start tok64 d64-AUQWGX
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,60,76,84,36,60,68,134,0
210 DATA 2,62,74,82,28,18,34,252,0
220 DATA 3,28,102,66,128,128,136,112,0
230 DATA 4,124,18,34,34,66,68,248,0
240 DATA 5,126,146,160,56,32,66,252,0
250 DATA 6,63,73,80,28,16,32,32,192
260 DATA 7,60,100,128,156,136,112,16,224
270 DATA 8,57,74,82,30,36,36,198,0
280 DATA 9,28,8,16,16,16,32,112,0
290 DATA 10,124,136,144,16,16,16,32,192
300 DATA 11,115,148,168,48,40,72,228,3
310 DATA 12,12,16,32,32,32,68,248,0
320 DATA 13,113,146,146,62,42,66,131,0
330 DATA 14,113,145,178,50,42,68,132,2
340 DATA 15,12,50,34,66,68,76,48,0
350 DATA 16,126,146,164,56,32,64,224,0
360 DATA 17,12,50,34,66,68,76,48,14
370 DATA 18,124,148,164,56,40,68,228,2
380 DATA 19,28,38,34,16,8,136,112,0
390 DATA 20,126,137,144,16,16,32,120,0
400 DATA 21,114,34,38,68,68,72,118,0
410 DATA 22,114,146,162,36,40,48,32,0
420 DATA 23,99,162,162,66,84,124,130,0
430 DATA 24,51,20,8,8,20,36,195,0
440 DATA 25,98,149,148,8,8,16,32,192
450 DATA 26,63,68,8,16,34,66,252,0
460 DATA -1
1000 POKE53272,(PEEK(53272)AND 240) OR 14
stop tok64
(bastext 1.0)