10 A=0:B=8192:D=4*4096:E=30
15 FORI=0TO7
20 FORJ=0TO7
25 C=B+J+I*E*8
30 S=INT(C/256):M=INT(C-S*256)
35 POKED+A,M
40 POKED+A+64,S
45 A=A+1:NEXT:NEXT
50 FORI=0TOE*8-1
55 C=7-(IAND7)
60 POKED+256+I,INT(I/8)*8
65 POKED+512+I,2^C
70 POKED+768+I,255-(2^C)
75 NEXT