10FORI%=0TO2STEP2
20P%=&50
30[OPT I%
40LDX #18
50.loop1 LDA #45
60STA &7D04,X
70STA &7E6C,X
80STA &7FD4,X
90CPX #3
100BCS skip1
110LDA data,X
120STA &7CE4,X
130.skip1 DEX
140BPL loop1
150.loop2 LDA #43
160CMP (loop1+4,X)
170BCC skip2
180LDA #33
190.skip2 STA (loop1+4,X)
200LDY #9
210STA (loop1+3),Y
220LDY #18
230STA (loop1+3),Y
240CLC
250LDA loop1+3
260ADC #40
270STA loop1+3
280BCC loop2
290INC loop1+4
300BPL loop2
310RTS
320.data EQUB 92:EQUB 79:EQUB 47
330]
340NEXT
350*SAVE VCCC24 50 8C
