start tok64 d64-3gVUKE
10 REM *** decimal till hexadecimal ***
20 REM *** talkonverterare gjord av ***
30 REM *** mikael pawlo f{pound}r shn4/91 ***
40 REM *** anv[nd med sys 49152,dec ***
50 REM ***   d[r dec [r ett tal i   ***
60 REM ***       decimal form       ***
70 FORt=49152TO49208:READbymp:POKEt,bymp:NEXTt
300 DATA  32 , 115 , 0 , 32 , 138
310 DATA  173 , 32 , 247 , 183 , 132
320 DATA  251 , 32 , 22 , 192 , 165
330 DATA  251 , 32 , 22 , 192 , 76
340 DATA  121 , 0 , 72 , 74 , 74
350 DATA  74 , 74 , 32 , 46 , 192
360 DATA  170 , 104 , 41 , 15 , 32
370 DATA  46 , 192 , 72 , 138 , 32
380 DATA  210 , 255 , 104 , 76 , 210
390 DATA  255 , 24 , 105 , 246 , 144
400 DATA  2 , 105 , 6 , 105 , 58
410 DATA  96 , 0 , 0 , 0 , 0
stop tok64
(bastext 1.0)