start tok64 d64-q5kljd
0 REM multicolor 128
10 FORf=5120TO5251:READa
20 s=s+a:POKEf,a:NEXT
30 IFs<>7766THENPRINT"datafel !":END
40 PRINT"sys5120 to start
50 PRINT"poke 166,border{space*3}-{space*3}poke 167,sk[rm
100 DATA120,169,23,141,20,3,169,20,141
110 DATA21,3,169,1,141,26,208,169,27
120 DATA141,17,208,88,96,164,168,200
130 DATA192,2,144,2,160,0,132,168,165
140 DATA166,32,61,20,141,32,208,165,167
150 DATA32,61,20,141,33,208,32,148,193
160 DATA169,0,141,18,208,76,105,250,10
170 DATA24,101,168,168,185,68,20,96,0
180 DATA0,1,1,2,2,3,3,4,4,5,5,6,6,7,7
190 DATA8,8,9,9,10,10,11,11,12,12,13
200 DATA13,14,14,15,15,2,11,3,15,4,8
210 DATA5,10,6,9,6,11,7,13,12,14,0,6
220 DATA2,4,2,6,5,14,9,11,10,12,10,14
stop tok64
(bastext 1.0)