10 SYS36864
20 .OPT OO
30 *= 49152
40 P =56577
100 LDA #15:STA P+2:LDA #0:STA P:STA 2:STA 3:STA 166:STA 167
102 LDA #1:STA 180:STA 181:STA 182:LDA #20:STA 4:STA 5:LDA #90:STA 6
104 LDA #<IQ:LDY #>IQ:SEI:STA 788:STY 789:LDA #1:STA 56325:CLI:RTS
200 IQ LDA 2:BNE IQ1
202 IQB LDA P:AND #1;7:STA P:LDA #0:STA 166:JMP IQ2
210 IQ1 DEC 180:BNE IQ2:LDA 166:BNE IQA:LDA 4:STA 180:LDA P:ORA #2;8:STA P
211 STA 166:JMP IQ2
212 IQA LDA 6:STA 180:JMP IQB
220 IQ2 LDA 3:BNE IQ3
222 IQD LDA P:AND #2;8:STA P:LDA #0:STA 167:JMP IQ4
224 IQ3 LDX #1;2:CMP #128:BCS IQ5:LDX #1;5
226 IQ5 DEC 181:BNE IQ4:LDA 167:BNE IQC:LDA 5:STA 181
230 TXA:ORA P:STA P:STA 167
240 IQ4 DEC 182:BNE IQ7:LDA #64:STA 182:JMP $EA31
242 IQ7 JMP $EA7E
250 IQC LDA 6:STA 181:JMP IQD