100gosub140:gosub330
110v=13*4096:pokev+21,1:pokev+39,1:pokev+0,100:pokev+1,100:pokev+16,0
120poke2040,56:sys12*4096+256
130end
140forx=0to129:reada$:gosub430:poke49408+x,y:nextx:return
150dataad,15,03,c9,c1,f0,19,08
160data78,ad,14,03,8d,00,c0,ad
170data15,03,8d,01,c0,a9,21,8d
180data14,03,a9,c1,8d,15,03,28
190data60,d8,ad,19,d4,ac,02,c0
200data20,58,c1,8c,02,c0,18,6d
210data00,d0,8d,00,d0,8a,69,00
220data29,01,4d,10,d0,8d,10,d0
230dataad,1a,d4,ac,03,c0,20,58
240datac1,8c,03,c0,38,49,ff,6d
250data01,d0,8d,01,d0,6c,00,c0
260data8c,05,c0,8d,04,c0,a2,00
270data38,ed,05,c0,29,7f,c9,40
280datab0,07,4a,f0,12,ac,04,c0
290data60,09,c0,c9,ff,f0,08,38
300data6a,a2,ff,ac,04,c0,60,a9
310data00,60
320rem................
330forx=0to63:reada$:gosub430:poke3584+x,y:nextx:return
340dataf8,00,00,90,00,00,b8,00
350data00,dc,00,00,8e,00,00,07
360data00,00,02,00,00,00,00,00
370data00,00,00,00,00,00,00,00
380data00,00,00,00,00,00,00,00
390data00,00,00,00,00,00,00,00
400data00,00,00,00,00,00,00,00
410data00,00,00,00,00,00,00,00
420rem................
430y=1:y1=0
440ifleft$(a$,1)<>mid$("0123456789abcdef",y,1)theny=y+1:goto440
450y1=(y-1)*16:y=1
460ifright$(a$,1)<>mid$("0123456789abcdef",y,1)theny=y+1:goto460
470y=y1+y-1:return


.C:c100  AD 15 03    LDA $0315
.C:c103  C9 C1       CMP #$C1
.C:c105  F0 19       BEQ $C120
.C:c107  08          PHP
.C:c108  78          SEI
.C:c109  AD 14 03    LDA $0314
.C:c10c  8D 00 C0    STA $C000
.C:c10f  AD 15 03    LDA $0315
.C:c112  8D 01 C0    STA $C001
.C:c115  A9 21       LDA #$21
.C:c117  8D 14 03    STA $0314
.C:c11a  A9 C1       LDA #$C1
.C:c11c  8D 15 03    STA $0315
.C:c11f  28          PLP
.C:c120  60          RTS
.C:c121  D8          CLD
.C:c122  AD 19 D4    LDA $D419
.C:c125  AC 02 C0    LDY $C002
.C:c128  20 58 C1    JSR $C158
.C:c12b  8C 02 C0    STY $C002
.C:c12e  18          CLC
.C:c12f  6D 00 D0    ADC $D000
.C:c132  8D 00 D0    STA $D000
.C:c135  8A          TXA
.C:c136  69 00       ADC #$00
.C:c138  29 01       AND #$01
.C:c13a  4D 10 D0    EOR $D010
.C:c13d  8D 10 D0    STA $D010
.C:c140  AD 1A D4    LDA $D41A
.C:c143  AC 03 C0    LDY $C003
.C:c146  20 58 C1    JSR $C158
.C:c149  8C 03 C0    STY $C003
.C:c14c  38          SEC
.C:c14d  49 FF       EOR #$FF
.C:c14f  6D 01 D0    ADC $D001
.C:c152  8D 01 D0    STA $D001
.C:c155  6C 00 C0    JMP ($C000)
.C:c158  8C 05 C0    STY $C005
.C:c15b  8D 04 C0    STA $C004
.C:c15e  A2 00       LDX #$00
.C:c160  38          SEC
.C:c161  ED 05 C0    SBC $C005
.C:c164  29 7F       AND #$7F
.C:c166  C9 40       CMP #$40
.C:c168  B0 07       BCS $C171
.C:c16a  4A          LSR A
.C:c16b  F0 12       BEQ $C17F
.C:c16d  AC 04 C0    LDY $C004
.C:c170  60          RTS
.C:c171  09 C0       ORA #$C0
.C:c173  C9 FF       CMP #$FF
.C:c175  F0 08       BEQ $C17F
.C:c177  38          SEC
.C:c178  6A          ROR A
.C:c179  A2 FF       LDX #$FF
.C:c17b  AC 04 C0    LDY $C004
.C:c17e  60          RTS
.C:c17f  A9 00       LDA #$00
.C:c181  60          RTS
.C:c182  00          BRK