start tok64 d64-fuSz9u
10 POKE 52,56:POKE 56,56:CLR
20 POKE 56334,PEEK(56334) AND 254
30 POKE 1,PEEK(1) AND 251
40 FOR i=0 TO 511
50 POKE i+14336,PEEK(53248+i)
60 NEXT i
70 POKE 1,PEEK(1) OR 4
80 POKE 56334,PEEK(56334) OR 1
90 READ n:IF n<0 THEN 1000
100 FOR i=0 TO 7: READ d
110 POKE 14336+8*n+i,d
120 POKE 14336+8*(128+n)+i,255-d:NEXT i
130 GOTO 90
140 POKE 56334,PEEK(56334) OR 1
200 DATA 1,48,72,20,34,62,34,65,0
202 DATA 2,92,34,66,124,66,34,92,0
204 DATA 3,28,34,84,80,80,34,28,0
206 DATA 4,88,100,66,66,66,100,88,0
208 DATA 5,92,34,64,112,64,34,92,0
210 DATA 6,92,34,34,120,32,32,64,0
212 DATA 7,28,34,64,94,98,62,2,6
214 DATA 8,28,34,32,60,34,34,36,0
216 DATA 9,2,60,72,8,10,60,64,0
218 DATA 10,1,2,2,2,34,68,56,0
220 DATA 11,66,36,40,112,40,36,66,0
222 DATA 12,24,36,32,32,32,33,94,0
224 DATA 13,84,42,42,106,42,42,64,0
226 DATA 14,66,50,42,106,42,42,68,0
228 DATA 15,28,34,81,81,81,34,28,0
230 DATA 16,92,34,34,124,32,32,64,0
232 DATA 17,56,84,34,2,12,26,124,0
234 DATA 18,92,34,34,120,36,34,66,0
236 DATA 19,2,60,64,60,2,60,64,0
238 DATA 20,1,126,48,80,80,33,30,0
240 DATA 21,33,82,18,18,18,18,12,0
242 DATA 22,76,178,34,34,34,20,8,0
244 DATA 23,128,92,82,82,82,84,40,0
246 DATA 24,34,84,12,8,24,37,66,0
248 DATA 25,66,164,36,36,26,66,60,0
250 DATA 26,126,2,4,8,16,32,64,126
252 DATA -1
1000 POKE53272,(PEEK(53272)AND 240) OR 14
stop tok64
(bastext 1.0)