10 *= 28500
12 .S
14 .P
16 .D ML.SETMAP..
18 JMP L100
20 TEMP .BYTE 0
100 L100 LDA 12288:CLC:ADC 828:STA 828:LDA 829:ADC #0:STA 829
110 LDA 12289:STA 53282
120 LDA 12290:STA 53283
130 LDA 12291:JSR SETCOL
140 LDA 12292:JSR ENERGY
150 LDA 12293:STA 830
160 LDA 12294:JSR RESET
170 LDA 12295:STA 832
180 LDA 12296:LDY #0
190 L190 STA 12288,Y:INY:CPY #8:BNE L190:JMP DONE
200 SETCOL LDY #0
210 L210 STA 55296,Y:STA 55552,Y:STA 55808,Y:STA 56064,Y:INY:BNE L210
220 LDA #3:LDY #0
230 L230 STA 55296,Y:STA 55336,Y:INY:CPY #25:BNE L230:LDY #0
240 L240 STA 55376,Y:STA 55409,Y:INY:CPY #7:BNE L240:LDY #0
250 L250 STA 55322,Y:STA 55362,Y:STA 55327,Y:STA 55367,Y:STA 55332,Y
260 STA 55372,Y:INY:CPY #3:BNE L250
278 RTS
280 ENERGY TAX:STX TEMP
290 L290 LDA #1:JSR 28300:LDX TEMP:DEX:STX TEMP:CPX #255:BNE L290
300 JMP DONE
310 RESET CMP #1:BNE DONE
320 LDA #0:STA 834:STA 835:STA 836:STA 837
330 DONE RTS
999 .END TX.SETMAP..