start tok64 d64-eXMO30
0 REM
1 REM {reverse on} sys pd, 1991 
2 REM
100 REM
110 REM *******************
120 REM** raster buncher! **
130 REM*********************
140 REM** by the almighty **
150 REM**                 **
160 REM**niclas emdelius!!**
170 REM *******************
180 REM
190 PRINT"{clear}step 1: reading prog datas"
200 FORa=0TO132:READd:ch=ch+d:POKE49152+a,d:NEXT
210 IFch<>17562THENPRINT"?data error(s)":STOP
220 PRINT"step 2: reading background colors"
230 FORa=1TO4:READa$:FORb=1TOLEN(a$):POKE49408+c,ASC(MID$(a$,b))AND15
240 c=c+1:NEXTb,a
250 FORa=0TO50:POKE49872+a,0:POKE49616+a,0:NEXT
260 PRINT"step 3: reading line colors"
270 READa$:FORa=1TOLEN(a$):POKE49391+a,ASC(MID$(a$,a))AND15:NEXT
280 PRINT"step 4: making sinus datas"
290 FORb=0TO255:c=c+360/256
300 a=SIN(({pi}/180)*c)*100
310 POKE49920+b,(a+100)AND255:NEXT
320 PRINT"step 5: reading line distance data"
330 e=0:FORa=0TO9:READd:POKE49376+a,(e+d)AND255:e=e+d:NEXT
340 PRINT"step 6: start prog! press space!"
350 GETa$:IFa$<>" "THEN350
360 POKE16383,0:SYS49152
370 REM ************
380 REM* prog datas *
390 REM ************
400 DATA120,169,28,141,20,3,169,192,141,21,3,141,22,208,162,1,169,127
410 DATA141,13,220,142,26,208,88,76,25
420 DATA192,169,32,141,18,208,160,0,162,33,185,0,194,236,18,208,208,251
430 DATA141,32,208,141,33,208,138,56,233,1,41,7,9,24,141,17,208,200
440 DATA232,224,255,208,225,162,0,189,0,193,157,0,194,232,224,224,208
450 DATA245,169,9,72,168,190,224,192,188,0,195,162,0,189,240,192,153,0
460 DATA194,232,200,224,7,208,244,104,170,202,138,16,228,162,9,254,224
470 DATA192,202,16,250,169,27,141,17,208,169,1,141,25,208,76,126,234,0
480 REM ***********************
490 REM*color datas(background)*
500 REM ***********************
510 DATA"{@*3}fdncgagcndf{@*4}f@ffdfddndnncnccgcggagaagaggcgccncnndnddfdf"
520 DATA"ff@f{@*3}f@fd@fdn@fdnc@fdncg@fdncga@fdncgagcndf@agcndf@gcndf@cn"
530 DATA"ndf@ndf@df@f{@*5}f@fdf@fdndf@fdncndf@fdncgcndf@fdncgagcndf@fd"
540 DATA"dncgcndf@fdncndf@fdndf@fdf@f@@"
550 REM ******************
560 REM*color datas(lines)*
570 REM ******************
580 DATA"bjgagjb@"
590 REM ******************
600 REM*line distance data*
610 REM ******************
620 DATA10,10,10,10,10,10,10,10,10,10
stop tok64
(bastext 1.0)