start tok64 d64-4gh4If
10 REM ***       pointer       ***
20 REM *** (/) mikael pawlo 91 ***
30 FORa=49152TO49355:READbymp
40 POKEa,bymp:b=b+bymp:NEXT
50 IFb<>22209THENPRINT"fel i datasatserna{.*3}":STOP
60 PRINT"starta rutinen med sys 49152."
70 PRINT"rutinens placering: $c{0*3}-$c0cb"
80 PRINT"{space*17}#49152-#49355."
90 PRINT"frid,{space*3}mikael pawlo."
95 END:of program /bymp
100 DATA 162,0,189,140,192,157,64,3
110 DATA 232,224,64,208,245,169,13,141
120 DATA 248,7,169,80,141,0,208,141,1
130 DATA 208,169,1,13,21,208,141,21,208
140 DATA 169,2,141,39,208,120,173,20,3
150 DATA 141,206,192,173,21,3,141,207
160 DATA 192,169,64,141,20,3,169,192
170 DATA 141,21,3,88,96,72,173,0,220
180 DATA 141,204,192,169,1,45,204,192
190 DATA 240,3,238,1
200 DATA 208,169,2,45,204,192,240,3,206,1
210 DATA 208,169,4,45,204,192,240,13,238,0
220 DATA 208,208,8,169,1,13,16,208,141
230 DATA 16,208,169,8,45,204,192,240,18
240 DATA 206,0,208,169,255,205,0,208
250 DATA 208,8,169,254,45,16,208,141,16
260 DATA 208,104,108,206,192,255,224,0
270 DATA 255,208,0,255,160,0,255,64,0
280 DATA 254,128,0,255,64,0,255,160,0
290 DATA 247,208,0,227,232,0,193,244,0
300 DATA 128,250,0,0,125,0,0,62,128,0
310 DATA 29,0,0,10,0,0,4,0,0,0,0,0,0,0
320 DATA 0,0,0,0,0,0,0,0,0,0
stop tok64
(bastext 1.0)