start tok64 d64-GnzYky
10 REM ****************
20 REM *              *
30 REM * raster color *
40 REM *              *
50 REM ****************
60 REM
70 REM ob. computer 1/1988
80 REM
100 FORa=49152TO49426:READx:POKEa,x:NEXT
110 DATA120,169,27,141,17,208,169,1,141,26,208,169,127,141,13,220,169,41,141,20
120 DATA3,169,192,141,21,3,169,0,133,2,133,255,234,234,234,234,234,234,234,88,96
130 DATA173,25,208,141,25,208,230,2,165,2,201,1,240,11,201,2,240,10,169,0,133,2
140 DATA76,47,192,76,72,192,76,163,192,230,255,165,255,201,63,208,4,169,0,133,255
150 DATA166,255,24,169,20,125,100,192,141,18,208,133,254,76,49,234,0,0,0,2,4,6
160 DATA10,12,16,22,26,32,36,42,48,54,60,64,70,76,82,88,92,98,102,106,110,112,114
170 DATA116,118,118,118,118,118,116,114,110,108,104,100,94,90,84,80,74,68,62,56
180 DATA50,44,38,32,28,22,18,14,10,6,4,2,0,0,164,254,200,200,162,0,189,197,192
190 DATA204,18,208,208,251,141,32,208,141,33,208,200,200,232,224,77,208,235,136
200 DATA140,18,208,76,126,234,9,0,0,9,9,0,9,9,9,9,8,9,9,8,8,9,8,8,8,8,7,8,8,7,7
210 DATA8,7,7,7,7,1,7,7,1,1,7,1,1,1,1,7,1,1,7,7,1,7,7,7,7,8,7,7,8,8,7,8,8,8,8,9
220 DATA8,8,9,9,8,9,9,9,9,0,9,9,0,0,9,0,255
300 PRINT"{white}{clear}{down*2}{right}sys pd 1991
310 PRINT"{down*2}{right}raster color
320 SYS49152
330 GOTO330
stop tok64
(bastext 1.0)