10 LET A=32767
15 LET D=32766
20 POKE A,6
25 POKE D,31
30 POKE A,7
35 POKE D,255-(8+16+32)
40 POKE A,8
45 POKE D,16
50 POKE A,9
55 POKE D,16
60 POKE A,10
65 POKE D,16
70 POKE A,13
75 POKE D,10
80 POKE A,12
85 FOR F=0 TO 20
90 POKE D,22-F
95 FOR G=0 TO 200
97 NEXT G
99 NEXT F
