1 POKE 768,64:POKE 232,0:POKE 233,3
5 FOR I=0 TO 31:POKE 770+(I*2),4:POKE 771+(I*2),205+I
8 POKE 770+64+(I*2),4:POKE 771+64+(I*2),205+I:NEXT
10 HGR2:SCALE=1
40 FOR I=1 TO 64
45 ROT=I-1
50 XDRAW I AT 140,96
60 NEXT I
70 GOTO 40