start tok64 d64-m8oUmM
10 REM ***   d.y.s.p.   ***
20 REM ***      av      ***
30 REM *** mikael pawlo ***
40 FORbymp=49152TO49477:READduo
45 z=z+duo:PRINTz
50 POKEbymp,duo:NEXTbymp
60 REM *** [ndra antal rasterrader i
70 REM *** adress 49242
80 INPUT "antal rasterrader";a
90 POKE49242,a
100 PRINT"starta med sys 49152"
300 DATA 32,234,192,120,169,127,141,13
310 DATA 220,169,1,141,26,208,169,27
320 DATA 141,17,208,169,50,141,18,208
330 DATA 169,47,141,20,3,169,192,141
340 DATA 21,3,169,200,141,22,208,173,25
350 DATA 208,141,25,208,88,96,169,1,141
360 DATA 25,208,169,52,141,18,208,169
370 DATA 66,141,20,3,88,76,0,195,169,1
380 DATA 141,25,208,169,47,141,20,3,36
390 DATA 255,36,255,36,255,173,18,208
400 DATA 201,52,240,0,162,128,169,255
410 DATA 141,21,208,36,255,206,255,3
420 DATA 206,255,3,206,255,3,234,234,36
430 DATA 255,169,62,141,4,221,169,17
440 DATA 141,14,221,36,255,206,255,3
450 DATA 234,36,255,172,18,208,185,0
460 DATA 194,141,17,208,172,4,221,185
470 DATA 194,192,141,148,192,76,150,192
480 DATA 234,234,234,234,234,234,234
490 DATA 234,234,234,206,22,208,238,22
500 DATA 208,202,208,216,76,191,192,234
510 DATA 234,234,234,234,234,234,234,36
520 DATA 255,206,22,208,238,22,208,202
530 DATA 208,194,104,104,104,104,104
540 DATA 104,169,50,141,18,208,169,27
550 DATA 141,17,208,76,49,234,192,192
560 DATA 159,180,158,179,157,178,156
570 DATA 177,155,176,154,175,153,174
580 DATA 152,173,151,172,150,171,149
590 DATA 170,160,0,162,0,189,46,193,153
600 DATA 0,194,200,240,8,232,224,8,208
610 DATA 242,76,236,192,162,0,169,234
620 DATA 157,0,195,232,208,250,162,0
630 DATA 189,54,193,157,0,208,232,224
640 DATA 16,208,245,169,0,141,255,63
650 DATA 141,16,208,162,7,169,1,157,39
655 DATA 208
660 DATA 169,80,157,248,7,202,16,243,96
670 DATA 31,24,25,26,27,28,29,30,0,60
680 DATA 35,65,70,70,105,75,140,75,175
690 DATA 70,210,65,245,60
stop tok64
(bastext 1.0)