start tok64 d64-2jvxg0
1 REM *** en deleterutin gjord av ***
2 REM *** mikael pawlo f{pound}r shn 91 ***
3 REM ***  syntax : sys49243,x-y  ***
4 REM *** d[r x [r start och y [r ***
5 REM ***   [r sista raden som    ***
6 REM ***     skall raderas.      ***
10 FORt=49243TO49408:READ bymp
20 POKEt,bymp:NEXTt
300 DATA 32,191,192,165,95,166,96,133
310 DATA 251,134,252,32,19,166,165,95
320 DATA 166,96,144,10,160,1,177,95
330 DATA 240,4,170,136,177,95,133,122
340 DATA 134,123,165,251,56,229,122
350 DATA 170,165,252,229,123,168,176
360 DATA 30,138,24,101,45,133,45,152
370 DATA 101,46,133,46,160,0,177,122
380 DATA 145,251,200,208,249,230,123
390 DATA 230,252,165,46,197,252,176
400 DATA 239,32,51,165,165,34,166,35
410 DATA 24,105,2,133,45,144,1,232
420 DATA 134,46,32,89,166,76,116,164
430 DATA 32,253,174,32,121,0,144,22
440 DATA 240,14,201,171,208,10,169,1
450 DATA 133,95,169,8,133,96,208,21
460 DATA 76,8,175,234,234,234,32,107
470 DATA 169,32,19,166,32,121,0,240
480 DATA 12,201,171,208,235,32,115,0
490 DATA 32,107,169,208,227,165,20,5
500 DATA 21,208,6,169,255,133,20,133
510 DATA 21,96
stop tok64
(bastext 1.0)