start tok64 d64-jB53Vo
10 REM raster bar(s)
20 REM 49408-49663: waweform
30 REM 49664-49919: colors
40 REM 49920-50175: col.length
90 t=0
91 FOR n=49152 TO 49269
92 READ a
93 POKE n,a
94 t=t+a
95 NEXT n
96 IF t<>15263 THENPRINT"checksum error"
100 POKE 53280,0
110 POKE 53281,0
120 PRINT"{clear}{white}{down*7}{ct n}"
130 PRINT"{space*4}{cm i*27}"
140 PRINT"{space*4}{cm k}{space*25}{cm l}"
150 PRINT"{space*4}{cm k}{space*6}COMputer demo{space*6}{cm l}"
160 PRINT"{space*4}{cm k}{space*25}{cm l}"
170 PRINT"{space*4}{cm u*27}"
175 PRINT"{down*4}{space*14}reading data!"
180 FOR n=0 TO 255
190 POKE49408+n,(66+32*SIN(n*{pi}/64))*(nAND1)+(180+32*SIN(n*{pi}/32))*(1-(nAND1))
200 NEXT n
210 n=-1
220 n=n+1:READ a
230 POKE 49664+n,a
240 IF a<>255 THEN 220
250 n=-1
260 n=n+1:READ a
270 POKE 49920+n,a
280 IF a<>255 THEN 260
290 PRINT "{up}{space*27}"
300 SYS49152:END
997 :
998 REM   program-data
999 :
1000 DATA 120,169,39,141,20,3,169,192
1001 DATA 141,21,3,169,1,141,13,220
1002 DATA 169,129,141,26,208,173,25
1003 DATA 208,141,25,208,169,27,141
1004 DATA 17,208,169,32,141,18,208
1005 DATA 88,96,173,25,208,141,25,208
1006 DATA 32,63,192,172,118,192,185
1007 DATA 0,193,141,18,208,238,118
1008 DATA 192,76,49,234,174,32,208
1009 DATA 142,119,192,174,33,208,142
1010 DATA 120,192,162,0,189,0,195,168
1011 DATA 189,0,194,201,255,240,7,32
1012 DATA 108,192,232,76,77,192,174
1013 DATA 119,192,142,32,208,174,120
1014 DATA 192,142,33,208,96,141,32
1015 DATA 208,141,33,208,136,208,253,96
1097 :
1098 REM d-red/l-red/white/l-red/d-red
1099 :
1100 DATA 2,10,1,10,2,255
1197 :
1198 REM  length of colors = 40
1199 :
1200 DATA 40,40,40,40,40,255
stop tok64
(bastext 1.0)