10  *=$4000
20  LDX #$FF
30  STX $2FC
40 ;
50 ;
60 LOOP LDA $D40B
70  STA $D40A
80  STA $D01A
90  LDX $2FC
0100  CPX #$FF
0110  BNE QUIT
0120  JMP LOOP
0130 QUIT
0140 END