start tok64 d64-vdLLcR 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)