start tok64 d64-JCnVVy
10 REM *** raster effekt gjord av ***
20 REM ***  mikael pawlo f{pound}r shn  ***
25 REM *** be cool... be bymp !!! ***
30 FORt=16384TO16832:READbymp:POKEt,bymp
40 NEXTt
50 INPUT "vill du ha en demonstration av rutinen";a$
60 IF a$="j"ORa$="ja"ORa$="y"ORa$="yes"THEN GOTO 100
70 PRINT"{clear}rutinen ligger mellan 16384 och 16832"
80 PRINT"dvs. $4{0*3}-$41c0."
90 PRINT"starta den med sys 16384.":END
100 PRINT"{clear}{white}{right*2}en rasterrutin gjord av mikael pawlo"
110 PRINT"{right}f{pound}r 64 in toto / svenska hemdator nytt"
120 PRINT"{down*2}{cyan}{right}anv[nd den till att liva upp dina egna"
130 PRINT"{right}program, om du vill{.*3}"
140 SYS 16384
310 DATA 120,169,55,162,64,141,20,3,142,21,3,169,241,141,26,208,169
320 DATA 127,141,13,220,169,27,141,17,208,169,112,141,18,208,162
330 DATA 19,189,4,65,149,2,202,16,248,169,0,133,249,133,250,141,32
340 DATA 208,141,33,208,88,96,169,31,141,17,208,230,18,165,18,41
350 DATA 28,74,74,170,189,24,65,32,240,64,24,101,19,133,19,56,233
360 DATA 3,141,18,208,169,117,205,18,208,208,251,173,22,208,41,247
370 DATA 141,22,208,160,148,190,2,207,173,18,208,205,18,208,240,251
380 DATA 142,32,208,142,33,208,169,0,153,2,207,136,208,231,169,14
390 DATA 133,22,166,22,138,10,10,24,105,48,141,165,64,246,2,181,2
400 DATA 41,120,74,74,74,168,185,32,65,24,117,3,149,3,170,160,8,185
410 DATA 48,65,157,0,207,202,136,16,246,198,22,198,22,165,22,201
420 DATA 254,208,204,165,3,201,78,144,9,169,230,162,0,160,16,76,205
430 DATA 64,169,198,162,14,160,254,141,174,64,141,176,64,142,129
440 DATA 64,140,181,64,76,49,234,173,119,64,201,208,208,6,169,160
450 DATA 141,119,64,96,169,208,141,119,64,96,96,201,3,208,15,230
460 DATA 249,165,249,201,16,144,7,32,220,64,169,0,133,249,96,0,34
470 DATA 4,36,8,38,12,40,16,42,20,44,24,46,28,48,0,72,255,54,253
480 DATA 254,255,0,0,1,2,3,0,1,2,3,4,3,2,1,0,255,254,253,252,253
490 DATA 254,255,0,0,0,11,12,15,0,0,0,0,11,12,15,7,1,0,0,11,12,15
500 DATA 7,1,7,15,0,11,12,15,7,1,7,15,0,11,12,15,7,1,7,15,0,11,12
510 DATA 15,7,1,7,15,0,0,11,12,15,7,1,0,0,0,0,11,12,15,0,0,0,0,1
520 DATA 2,3,4,3,2,169,0,133,253,169,4,133,254,169,0,133,251,169
530 DATA 9,133,252,160,0,177,251,145,253,200,201,0,240,11,192,0,208
540 DATA 243,230,252,230,254,76,138,65,162,0,169,1,157,0,216,157
550 DATA 0,217,157,0,218,157,232,218,232,208,241,76,0,64,0,0,0,0
560 DATA 0,0,0,0,0,0,0,0,254
stop tok64
(bastext 1.0)