start tok64 d64-7I4HNZ
65 DATA169,40,141,8,3,169,192,141,9,3,169,15,141,24,212,169,0,141,5,212
70 DATA141,12,212,169,224,141,6,212,141,13,212,169,17,141,4,212,141,11,212
75 DATA96,32,115,0,201,64,240,11,165,122,208,2,198,123,198,122,76,228,167
80 DATA32,115,0,32,158,173,32,43,175,32,133,186,160,0,177,71,170,200,177
85 DATA71,133,251,200,177,71,133,252,134,253,160,0,177,251,201,48,144,91
90 DATA201,58,176,87,56,233,48,170,152,72,160,0,200,200,200,200,202,208
95 DATA249,152,170,234,234,189,202,192,141,8,212,189,201,192,141,7,212,189
100 DATA204,192,141,1,212,189,203,192,141,0,212,160,255,162,112,202,208,253
105 DATA136,208,248,169,0,141,8,212,141,7,212,141,1,212,141,0,212,160,255
110 DATA162,112,202,208,253,136,208,248,104,168,200,169,253,208,162,76,47
115 DATA192,152,72,160,255,162,255,202,208,253,136,208,248,76,176,192
120 REM ******* ljud data *******
125 DATA171,61,142,87    :REM 0
130 DATA173,45,59,80     :REM 1
135 DATA173,45,142,87    :REM 2
140 DATA173,45,203,96    :REM 3
145 DATA118,50,59,80     :REM 4
150 DATA118,50,142,88    :REM 5
155 DATA118,50,203,96    :REM 6
160 DATA214,55,59,79     :REM 7
165 DATA214,55,142,88    :REM 8
170 DATA214,55,203,96    :REM 9
175 FORi=49152TO49392:READx:POKEi,x:NEXTi:SYS49152
200 REM ******* program exempel *******
210 INPUT"{clear}{white}telnummer{.*3}";a$
220 @a$:GOTO210
stop tok64
(bastext 1.0)