;   The Whiz-zards Association 1989
;     a sourcy of fcopy dolphin

l1800    = $1800
l1801    = $1801
l1803    = $1803
l1805    = $1805
l180d    = $180d
l1c00    = $1c00
l1c01    = $1c01
l800c    = $800c
l8db8    = $8db8
la07f    = $a07f
la107    = $a107
la410    = $a410
la446    = $a446
la772    = $a772
lb100    = $b100
lb300    = $b300
lb400    = $b400
lb500    = $b500
lb600    = $b600
lb700    = $b700
lb900    = $b900
lba00    = $ba00
lbb00    = $bb00
lbc00    = $bc00
lbdd0    = $bdd0
lbdd1    = $bdd1
lf24b    = $f24b
lf2a9    = $f2a9
lf40b    = $f40b
lf41e    = $f41e
lf497    = $f497
lf505    = $f505
lf6c5    = $f6c5
lf6d0    = $f6d0
lf969    = $f969
lfb50    = $fb50
lfda3    = $fda3
lfe00    = $fe00
lfe0e    = $fe0e
lfedb    = $fedb

         *= $00

d00      .byte $01; "."
d01      ora (d01,x)
         .byte $01; "."
d04      ora (d00,x)
d06      asl d00
d08      .byte $06; "."
d09      .byte $01; "."
d0a      .byte $06; "."
d0b      .byte $0e; "."
d0c      .byte $02; "."
d0d      .byte $06; "."
d0e      brk
d0f      .byte $0d; "."
l10      brk
         brk
l12      brk
l13      .byte $07; "."
l14      .byte $01; "."
l15      .byte $04; "."
l16      .byte $ee; "."
l17      .byte $0d; "."
l18      brk
l19      brk
l1a      brk
l1b      brk
l1c      brk
l1d      ora (d00,x)
         brk
l20      .byte $30; "0"
l21      brk
l22      .byte $06; "."
l23      brk
         .byte $52; "r"
l25      adc l25
         and #$52
         .byte $54; "t"
         sbc l35
         and #$4a
         brk
l2f      .byte $04; "."
l30      brk
l31      .byte $03; "."
         asl d00
l34      asl a
l35      brk
         .byte $ff; "."
l37      brk
         .byte $07; "."
l39      php
         .byte $7b; "."
l3b      brk
l3c      brk
         brk
         brk
         brk
         asl d00
         .byte $01; "."
l43      ora $60,x; ???
         rts
l46      brk
         .byte $07; "."
         .byte $fe,$18,$00; incl18,x
         .byte $02; "."
         .byte $04; "."
         brk
l4e      .byte $01; "."
l4f      tsx
         brk
l51      .byte $07; "."
l52      .byte $03; "."
l53      .byte $23; "#"
l54      brk
l55      brk
         asl a
         .byte $13; "."
         .byte $12; "."
         .byte $13; "."
         asl a
         asl a
         asl a
         asl a
         .byte $02; "."
         .byte $12; "."
         brk
         brk
         ora lfa
         .byte $05; "."
l65      lda l43
         sta l23
l69      lda #$5a
         sta l46
l6d      ldy #$ff
         sty l1805
         ldx #$64
l74      lda l1c00
         bpl l83
         lda l1805
         bne l74
         lda #$06
         jmp lf969
l83      .byte $ad,$01; "."
l85      .byte $1c; "."
l86      clv
l87      .byte $70; "."
l88      ora #$88
l8a      bne l87
l8c      dex
         bne l87
         jmp lf6c5
l92      clv
         ldy l1c01
         cpy #$52
         beq la1
         dec l46
         bne l6d
l9e      jmp lf40b
la1      ldx #$00
la3      bvc la3
la5      clv
         lda l1c01
         sta l25,x
         inx
         cpx #$09
         bcc la3
         stx d0c
         jsr lf497
         lda l54
         sta l4e
         .byte $a5; "ø"
lba      eor l85,x
         .byte $4f; "o"
lbd      ldx l19
         txa
         eor l16
         eor l17
         eor l18
         eor l1a
         beq ld1
         dec l23
         bne l69
         jmp lf41e
ld1      lda d06
         cmp l18
         bne l9e
         lda d0b
         bpl lde
         jmp lf505
lde      lda l16
         sta l12
         lda l17
         sta l13
         jsr la07f
         ldy #$00
leb      sty l37
         ldy l37
         lda d06e0,y
         cmp #$f1
         beq d0100
         lda l800c,y
         .byte $10; "."
lfa      ora lf2a9
         sta d06e0,y
d0100    iny
         cpy l43
         bcc leb
         jmp lf505
         jsr la410
         tya
         jsr d0277
         tya
         asl a
         tax
         lda lbdd0,x
         sta l16
         ldy lbdd1,x
         sty l17
         jsr la772
         ldy #$40
d0121    lda (l16),y
         bit l1800
         sta l1801
         lda #$10
d012b    bit l180d
         beq d012b
         lda (l86),y
         bit l1800
         sta l1801
         tya
         beq d0188
         lda (l88),y
         asl a
         tax
         and #$06
         sta l53
         lda lba00,x
         sta l54
         lda (l8a),y
         rol a
         tax
         lda #$10
d014e    bit l180d
         beq d014e
         lda lb900,x
         ora l54
         bit l1800
         sta l1801
         lda (l8c),y
         tax
         sty l34
         and #$e0
         ora l53
         tay
         lda #$10
d016a    bit l180d
         beq d016a
         lda lbb00,y
         ora lbc00,x
         bit l1800
         sta l1801
         ldy l34
         dey
         lda #$10
d0180    bit l180d
         beq d0180
         jmp d0121
d0188    jsr la107
         jsr d027f
         lda l1c00
         eor #$08
         sta l1c00
         ldy l37
         jsr d0264
         tax
         jsr d027f
         txa
         ora #$f0
         sta d06e0,y
         iny
         cpy l43
         bcs d01ad
         jmp leb
d01ad    jmp lf505
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
d01d0    lda #$08
         jsr d0293
         lda d09
         cmp #$4c
         beq d01e4
         cmp #$46
         bne d01f0
         jsr lfda3
         beq d01e7
d01e4    jsr lfe0e
d01e7    jsr lfe00
         jsr d0293
d01ed    jmp lf505
d01f0    lda #$07
         sta l31
         sta l2f
         lda l12
         ldx l13
         sta l16
         stx l17
         eor l18
         eor l17
         sta d09
         lda #$00
         sta l30
         sta l34
         sta l19
d020c    eor d09
         sta l1a
         lda l39
         sta l52
         lda l1a
         sta l53
         lda l19
         sta l54
         lda l18
         sta l55
         jsr lf6d0
         lda l17
         sta l52
         lda l16
         sta l53
         lda l4e
         sta l54
         lda l4f
         sta l55
         jsr lf6d0
         inc l19
         lda l19
         cmp l43
         bcc d020c
         jmp d04b8
d0241    lda #$ff
d0243    bvc d0243
         clv
         sta l1c01
         dex
         bne d0243
         rts
d024d    lda #$ff
         jsr d0277
         lda d06
         sta l18
         jsr d027c
         lda l1801
         jsr d0264
         bne d0269
         jmp d031a
d0264    lda #$00
         sta l1803
d0269    lda #$10
d026b    bit l180d
         beq d026b
         lda l1800
         lda l1801
         rts
d0277    ldx #$ff
         stx l1803
d027c    sta l1801
d027f    lda #$10
d0281    bit l180d
         beq d0281
         lda l1800
         rts
d028a    lda #$00
         sta l1d
         sta d0e
         rts
d0291    lda #$00
d0293    sta l21
         lda l1c00
         and #$f7
         ora l21
         sta l1c00
         rts
d02a0    lda d0e
         sec
         sbc lfedb,y
         sta d0e
         lda lfedb,y
         inc l1d
         bne d02b1
d02af    lda d0e
d02b1    cli
         jsr d02df
         sei
         rts
d02b7    lda #$c0
         sta l3c
         bne d02bd
d02bd    sta d00
         cli
d02c0    lda d00
         bmi d02c0
d02c4    bit l20
         bvs d02c4
         bmi d02c4
         sei
         rts
d02cc    ldx #$ff
         stx l1803
         bit l1800
         sta l1801
         lda #$10
d02d9    bit l180d
         beq d02d9
         rts
d02df    cmp #$00
         beq d02f0
         sta d02fe
d02e6    cmp d02fe
         beq d02e6
         lda #$00
         sta d02fe
d02f0    rts
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
d02fe    brk
         brk
         lda d00
         and #$06
         beq d0317
         cmp #$02
         beq d0314
         cmp #$06
         beq d0311
         jmp d01d0
d0311    jmp lf505
d0314    jmp l65
d0317    jmp lf505
d031a    ldx #$cf
         txs
         jsr d028a
         sta l3c
         sta l35
         sta l51
         lda #$04
         jsr d0293
         jsr d0264
         sta l3b
         jsr d0269
         sta l10
         jsr d0269
         sta d08
         lda #$08
         jsr d0293
         lda l10
         sta d06
d0343    jsr d0291
         lda #$80
         jsr d0277
         lda d06
         sta l14
d034f    jsr lf24b
         sta l43
         lda #$00
         ldx l43
d0358    sta d06df,x
         dex
         bne d0358
         jsr d024d
         clc
         adc l43
         jsr d027f
         bcc d036e
         ldx #$88
         jmp d0477
d036e    jsr d028a
         sta d0b
         sta d0c
d0375    sta l19
         lda l3b
         sta d0f
d037b    lda #$e2
         jsr d02bd
         lda d00
         cmp #$01
         bne d03a6
         lda l4e
         cmp #$0d
         bne d0390
         lda #$29
         sta d08
d0390    ldx l43
d0392    lda d06df,x
         cmp #$f1
         bne d039f
         dex
         bne d0392
         jmp d03c9
d039f    dec d0f
         bne d037b
         jmp d03c9
d03a6    ldx l19
         sta d06e0,x
         nop
         nop
         nop
         nop
         ldy l1d
         lda lfedb,y
         beq d03c9
         dec d0f
         bne d037b
         lda l3c
         beq d03c4
         jsr d02a0
d03c1    jmp d0375
d03c4    jsr d02b7
         bpl d03c1
d03c9    jsr d02af
         ldy l10
         dey
         beq d03dc
         lda #$82
         jsr d0277
         lda l1801
         jmp d031a
d03dc    lda d06e0,y
         ora #$f0
         cmp #$f1
         beq d03ec
         jsr d0277
         tya
         jsr d027c
d03ec    iny
         cpy l43
         bne d03dc
         inc d06
         lda d06
         cmp #$24
         bcs d03fe
d03f9    lda d06
         jmp d034f
d03fe    cmp d08
         bcs d0426
         lda l35
         bmi d03f9
         lda #$ff
         sta d0b
         jsr d028a
         sta d0c
         lda #$e2
         jsr d02bd
         lda d00
         cmp #$01
         bne d0423
         lda #$ff
         sta l35
         ldx #$84
         jmp d0477
d0423    jmp d0475
d0426    ldx #$85
         jmp d0477
d042b    lda l14
         sta d06
         lda #$e6
         jsr d02bd
d0434    jsr d024d
         sta d09
         jsr d027f
d043c    lda l3b
         sta d0f
         lda #$e4
         jsr d02bd
         cmp #$01
         bne d0470
d0449    inc d06
         lda d06
         cmp #$24
         bcs d0458
d0451    cmp l1b
         beq d0482
         jmp d0434
d0458    cmp d08
         bcs d0464
         lda l51
         bmi d0451
         lda l35
         bmi d0467
d0464    jmp d0485
d0467    lda #$ff
         sta l51
         ldx #$86
         jmp d0480
d0470    lda #$fb
         jmp d0487
d0475    ldx #$fe
d0477    lda d06
         sta l1b
d047b    lda #$08
         jsr d0293
d0480    txa
         .byte $2c; ","
d0482    lda #$fd
         .byte $2c; ","
d0485    lda #$fc
d0487    jsr d0277
         lda l1801
         jsr d0264
         tax
         bne d049f
         lda #$12
         sta d06
         lda #$e6
         jsr d02bd
         jmp d031a
d049f    jsr d027f
         cpx #$01
         beq d043c
         cpx #$02
         beq d0449
         cpx #$05
         beq d047b
         cpx #$04
         bne d04b5
         jmp d0343
d04b5    jmp d042b
d04b8    lda #$00
         sta d0a
         jsr d02cc
         inc l1803
         jsr la410
d04c5    lda d0a
         asl a
         tax
         lda lbdd0,x
         sta l16
         ldy lbdd1,x
         sty l17
         jsr la772
         ldx d0a
         lda #$10
d04da    bit l180d
         beq d04da
         lda l1800
         lda l1801
         sta l800c,x
         ldy #$40
d04ea    lda #$10
d04ec    bit l180d
         beq d04ec
         lda l1800
         lda l1801
         sta (l16),y
         lda #$10
d04fb    bit l180d
         beq d04fb
         lda l1800
         lda l1801
         sta (l88),y
         lda #$10
d050a    bit l180d
         beq d050a
         lda l1800
         lda l1801
         sta (l8a),y
         lda #$10
d0519    bit l180d
         beq d0519
         lda l1800
         lda l1801
         sta (l8c),y
         dey
         bpl d04ea
         inc d0a
         lda d0a
         cmp l43
         bcc d04c5
d0531    lda #$01
         sta l46
         lda #$00
         sta d0a
         jsr lfb50
         ldx #$ff
d053e    lda #$55
         jsr d0243
         ldx #$06
         jsr d0241
         ldx d0a
         lda l800c,x
d054d    bvc d054d
         clv
         sta l1c01
         ldx #$09
         ldy l46
d0557    lda (l30),y
d0559    bvc d0559
         clv
         sta l1c01
         iny
         dex
         bne d0557
         iny
         sty l46
         lda #$55
d0568    bvc d0568
         clv
         sta l1c01
         lda d0a
         asl a
         tax
         lda lbdd0,x
         sta l16
         ldy lbdd1,x
         sty l17
d057c    bvc d057c
         clv
         ldx #$05
         lda l16
         ldy l17
d0585    bvc d0585
         clc
         adc #$41
         clv
         bcc d058e
         iny
d058e    sty l86,x
         dex
d0591    bvc d0591
         clv
         sta l86,x
         dex
         bpl d0585
d0599    bvc d0599
         clv
         ldx #$05
         jsr d0241
         ldy #$40
d05a3    .byte $b3; ""
         asl lbd,x
         brk
         bcs d05f9
         inc l8db8,x
         ora (l1c,x)
         lda lb100,x
         sta l53
         .byte $b3; ""
         stx lbd
         brk
         .byte $b2; ""
         ora l53
d05ba    bvc d05ba
         sta l1c01
         clv
         lda lb300,x
         sta l53
         .byte $b3; ""
         dey
         lda l53
         ora lb400,x
d05cc    bvc d05cc
         sta l1c01
         clv
         lda lb500,x
         sta l53
         .byte $b3; ""
         txa
         lda l53
         ora lb600,x
d05de    bvc d05de
         sta l1c01
         clv
         lda lb700,x
d05e7    bvc d05e7
         clv
         sta l1c01
         dey
         bpl d05a3
         ldx #$08
         inc d0a
         lda d0a
         cmp l43
         .byte $b0; ""
d05f9    .byte $03; "."
         jmp d053e
d05fd    bvc d05fd
         clv
         lda #$55
         sta l1c01
d0605    bvc d0605
         jsr lfe00
         jsr d0291
         lda #$01
         sta l46
         lda #$00
         sta d0a
d0615    lda d0a
         asl a
         tax
         lda lbdd0,x
         sta l16
         ldy lbdd1,x
         sty l17
         jsr la446
         ldx d0a
d0628    bvc d0628
         clv
         lda l1c01
         eor l800c,x
         bne d066d
         ldy l46
         ldx #$09
d0637    bvc d0637
         clv
         lda l1c01
         eor d0700,y
         bne d066d
         iny
         dex
         bne d0637
         iny
         sty l46
         lda l16
         ldy l17
         ldx #$05
d064f    clc
         adc #$41
         bcc d0655
         iny
d0655    sty l86,x
         dex
         sta l86,x
         dex
         bpl d064f
         jsr la446
         sec
         ldy #$40
d0663    .byte $b3; ""
         asl lbd,x
         brk
         bcs d06b9
         inc d01ed,x
         .byte $1c; "."
d066d    bne d06c6
         lda lb100,x
         sta l53
         .byte $b3; ""
         stx lbd
         brk
         .byte $b2; ""
d0679    bvc d0679
         ora l53
         sbc l1c01
         bne d06c6
         lda lb300,x
         sta l53
         .byte $b3; ""
         dey
         lda l53
d068b    bvc d068b
         ora lb400,x
         sbc l1c01
         bne d06c6
         lda lb500,x
         sta l53
         .byte $b3; ""
         txa
         lda l53
d069e    bvc d069e
         ora lb600,x
         sbc l1c01
         bne d06c6
         lda lb700,x
d06ab    bvc d06ab
         sbc l1c01
         bne d06c6
         dey
         bpl d0663
         inc d0a
         lda d0a
d06b9    cmp l43
         bcc d06c3
         jsr la107
         jmp lf505
d06c3    jmp d0615
d06c6    dec d0f
         beq d06cd
         jmp d0531
d06cd    jsr la107
         jmp lf6c5
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
d06df    brk
d06e0    brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
d0700

l0e00    = $0e00
l0e15    = $0e15
l0e2a    = $0e2a
l0e3f    = $0e3f
l0e54    = $0e54
l0f00    = $0f00
l0f44    = $0f44
l1000    = $1000
l1100    = $1100
l1242    = $1242
l124f    = $124f
l1250    = $1250
l1254    = $1254
l150e    = $150e
l154d    = $154d
l2004    = $2004
l2020    = $2020
l2030    = $2030
l3456    = $3456
l40e0    = $40e0
l4142    = $4142
l4346    = $4346
l4500    = $4500
l502d    = $502d
l5046    = $5046
l5453    = $5453
l9385    = $9385
la08f    = $a08f
la0a0    = $a0a0
la29d    = $a29d
laca4    = $aca4
lb020    = $b020
lb120    = $b120
lb1b0    = $b1b0
lb2a0    = $b2a0
lb4b0    = $b4b0
lb4b1    = $b4b1
lb5b1    = $b5b1
lb6b0    = $b6b0
lb6b1    = $b6b1
lb7b0    = $b7b0
lbb0f    = $bb0f
lcba0    = $cba0
ld011    = $d011
ld2c4    = $d2c4
ld404    = $d404
ldc00    = $dc00
ldc01    = $dc01
ldd01    = $dd01
ldd03    = $dd03
ldd0d    = $dd0d
le0f6    = $e0f6
lff00    = $ff00

         *= $00

l00      .byte $df; ""
l01      .byte $dd,$42; "b"
l03      .byte $01; "."
l04      .byte $04; "."
l05      .byte $20; " "
l06      .byte $42; "b"
         eor (l4d,x)
         .byte $2d,$50; "-p"
l0b      .byte $12; "."
l0c      .byte $05; "."
l0d      .byte $13; "."
l0e      .byte $13; "."
         .byte $20; " "
l10      .byte $53; "s"
         .byte $54; "t"
l12      .byte $4f; "o"
l13      bvc l15
l15      .byte $43; "c"
         .byte $0f; "."
         bpl l32
         jsr l0944
         .byte $13; "."
         .byte $0b; "."
         brk
         .byte $44; "d"
l20      ora #$12
         ora l03
         .byte $14; "."
         .byte $0f; "."
         .byte $12; "."
         ora l4500,y
         asl l2004
         .byte $0f; "."
         asl l20
         .byte $43; "c"
         .byte $0f; "."
l32      bpl l4d
         brk
         eor #$0e
         .byte $13; "."
         ora l12
         .byte $14; "."
         jsr l124f
         ora #$07
l40      ora #$0e
         ora (l0c,x)
         brk
         eor l13,x
         ora l12
         jsr l1242
         .byte $05; "."
l4d      ora (l0b,x)
         brk
         eor l0e
         .byte $04; "."
         jsr l060f
         jsr l0353
         ora (l0e,x)
         brk
         eor #$0e
         .byte $13; "."
         ora l12
         .byte $14; "."
         jsr l0142
         .byte $03; "."
l66      .byte $0b; "."
         ora l10,x
         brk
         .byte $42; "b"
         ora (l04,x)
         jsr l1254
         ora (l03,x)
         .byte $0b; "."
         brk
         .byte $43; "c"
         .byte $0f; "."
         bpl l91
         jsr l154d
         .byte $0c; "."
         .byte $14; "."
         ora #$10
         .byte $0c; "."
         ora l00
         .byte $53; "s"
l83      .byte $03; "."
         ora (l0e,x)
         jsr l0944
l89      .byte $13; "."
         .byte $0b; "."
         brk
         ldy lb0,x
         brk
         brk
l90      brk
l91      .byte $b3; ""
         .byte $b5; ""
l93      brk
         brk
         brk
         cmp l9385,y
l99      brk
         dec la08f
l9d      brk
l9e      lda #$ea
la0      .byte $29; ")"
la1      .byte $79; "."
la2      brk
la3      .byte $f4; "."
la4      brk
         brk
la6      .byte $10; "."
la7      .byte $02; "."
la8      brk
         .byte $04; "."
laa      .byte $bf; ""
lab      .byte $a9; ""
lac      .byte $01; "."
lad      brk
lae      brk
         .byte $b1; ""
lb0      brk
lb1      rti
lb2      .byte $20,$40; " @"
lb4      brk
lb5      brk
         brk
lb7      .byte $10; "."
lb8      .byte $04; "."
lb9      .byte $01; "."
lba      .byte $ff; "."
lbb      .byte $e2; "."
lbc      .byte $a2; ""
lbd      .byte $4e; "n"
lbe      .byte $a0; " "
lbf      .byte $01; "."
lc0      jsr le0f6
lc3      lda #$57
         brk
         bcs le8
         ldx #$bb
         lda #$00
         sta l66
         lda l12
         jsr l40e0
         lda #$4e
         ldy #$00
         jmp lbb0f
         lda pha
ldb      .byte $4c; "l"
ldc      .byte $9d; "."
ldd      ldx #$00
ldf      lda l0e2a,x
         beq lf9
         ldy lab
         .byte $99,$00; ".."
le8      bpl la7
         brk
         .byte $0e,$99,$00; asll99
         .byte $0f; "."
         lda l0e15,x
         sta l1100,y
         inc lab
         bne l0107
lf9      lda l0e54,x
         beq l0107
         .byte $bd; ""
lff      .byte $3f; "?"
         asl laca4
         sta (la1),y
         dec lac
l0107    inx
         cpx #$15
         bcc ldf
         lda lbb
         beq l0116
         lda #$11
         sta la3
         sta lab
l0116    rts
         ldx #$02
         jsr l0644
         lda #$7f
         sta ldc00
l0121    cmp ldc01
         bne l0121
l0126    ldx #$45
         bne l0137
l012a    jsr l0148
         lda lbb
         beq l0135
         ldx #$50
         bne l0137
l0135    ldx #$29
l0137    jsr l065a
         jsr l0746
         jsr l0781
         and #$00
l0142    jsr l0779
         jmp l0c17
l0148    lda lad
         cmp #$24
         bcc l0150
         sbc #$05
l0150    tax
         lda l0852,x
         ora #$80
         sta l0852,x
         lda l087a,x
         ora #$80
         sta l087a,x
         rts
l0162    lda lad
         cmp #$24
         bcc l016a
         sbc #$05
l016a    tax
         lda l0852,x
         and #$7f
         sta l0852,x
         lda l087a,x
         and #$7f
         sta l087a,x
         rts
l017c    ldx #$b6
         stx l0899
         inx
         stx l089a
         inx
         stx l089b
         inx
         stx l089c
         ldx #$b0
         stx l089d
         ldx #$b4
         stx l0875
         rts
l0198    ldx #$b1
         stx l0899
         inx
         .byte $8e,$9a; ".."
l01a0    php
         inx
         stx l089b
         inx
         stx l089c
         inx
         stx l089d
         ldx #$b3
         stx l0875
         rts
l01b3    ldx #$0d
         lda #$20
l01b7    sta l0813,x
         dex
         bne l01b7
         rts
l01be    ldx #$0a
l01c0    lda l0bf5,x
         sta l0816,x
         dex
         bne l01c0
         rts
l01ca    lda #$33
         sta l0814
         lda #$35
         sta l0815
         jmp l01be
l01d7    lda #$34
         sta l0814
         lda #$30
         sta l0815
         jmp l01be
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
l0200    ldx #$35
         jsr l0644
         lda #$7f
         sta ldc00
         ldx #$ef
l020c    cmp ldc01
         beq l0216
         cpx ldc01
         bne l020c
l0216    jsr l0636
l0219    lda #$11
         clc
         adc lbc
         sta la3
         sta la4
         ldx #$00
         stx lab
         stx la1
         dex
         stx la2
         stx lac
         nop
         nop
         nop
         nop
         lda #$00
         sta lb9
l0235    lda #$00
         tax
l0238    sta l0e00,x
         inx
         bpl l0238
l023e    jsr l076b
         bpl l0246
         jmp l0372
l0246    sta lae
         tay
         lda l0e2a,y
         bne l0255
         inc la3
         lda la3
         sta l0e2a,y
l0255    ldy #$00
         sta l9e
         sta l02d2
l025c    lda ldd0d
         beq l025c
         lda ldd01
         sta lbe
l0266    lda ldd0d
         beq l0266
         lda ldd01
         dec l01
         sta (l9d),y
         inc l01
         iny
         bne l0266
l0277    lda ldd0d
         beq l0277
         lda ldd01
         sta lbf
         dec l01
         lda lbe
         cmp #$07
         bne l02bf
         ldy #$01
l028b    lda (l9d),y
         cmp #$01
         bne l02bf
         iny
         bne l028b
         lda #$01
         eor lbf
         cmp (l9d),y
         bne l02bf
         ldx #$ff
         stx la7
         ldx la1
         bne l02a6
         dec la2
l02a6    dec la1
         inc lac
         ldx lae
         sta l0e3f,x
         dec la3
         lda #$00
         sta l0e2a,x
         lda #$01
         sta lb9
         sta l0e54,x
         bne l02e4
l02bf    ldx lae
         lda lbf
         sta l0e15,x
         lda lbe
         sta l0e00,x
         ldy #$00
         sty la7
         tya
l02d0    .byte $59,$00; "y."
l02d2    .byte $ff; "."
         iny
         bne l02d0
         ldy #$f4
         ldx lbe
         cpx #$07
         bne l02e6
         ldy #$05
         cmp lbf
         bne l02e6
l02e4    ldy #$f1
l02e6    inc l01
         dec ldd03
         sty ldd01
l02ee    lda ldd0d
         beq l02ee
         lda ldd01
         lda ldc
         bne l030c
         lda #$2d
         ldx la7
         bne l0307
         tya
         and #$0f
         tay
         lda l0698,y
l0307    ldx lae
         jsr l072f
l030c    jmp l023e
l030f    jsr ldd
         lda lbc
         beq l031b
         lda #$30
         jsr l0748
l031b    jsr l0148
         jsr l0752
         ldx #$5c
         jsr l0644
l0326    lda lbc
         beq l0340
         lda #$fd
         sta ldc00
         lda ldc01
         cmp #$bf
         bne l0340
         lda lbd
         bne l033d
         jmp l03f6
l033d    jmp l012a
l0340    lda #$7f
         sta ldc00
         ldx ldc01
         cpx #$ef
         beq l0354
         cmp ldc01
         bne l0326
         .byte $4c,$26; "l&"
l0353    .byte $01; "."
l0354    jsr l0781
         jsr l0779
         lda ldd01
         jsr l06ba
         ldx #$ff
         stx la2
         inx
         stx la1
         stx la8
         stx la4
         stx lb9
         stx lb2
l036f    jsr l076b
l0372    cmp #$80
         beq l030c
         cmp #$ff
         bne l03ca
         lda #$7f
         sta ldc00
         cmp ldc01
         bne l038a
         jsr l0770
         jmp l0126
l038a    jsr l0148
         jsr l0770
         cmp #$29
         bcc l0397
         jmp l012a
l0397    sta lad
         jsr l06a2
         stx lc0
         dec ldd03
         jsr l0781
         txa
         jsr l077e
         jsr l0162
         ldx la4
         bne l03b2
         jmp l049f
l03b2    lda lb9
         beq l03bb
         lda #$00
         sec
         sbc la2
l03bb    clc
         adc la3
         jsr l077e
         lda ldd01
         jsr ldd
         jmp l0235
l03ca    cmp #$fe
         bne l03dd
         sta lbd
         jsr l01ca
l03d3    lda lbb
         bne l03da
         jmp l030f
l03da    jmp l012a
l03dd    cmp #$fd
         bne l0414
l03e1    lda lbc
         beq l03f6
l03e5    jsr l0781
         lda #$05
         jsr l0779
         lda ldd01
         jsr l076b
         jmp l031b
l03f6    jsr l0781
         lda #$04
         jsr l0779
         lda ldd01
         jsr l0148
         lda la6
         beq l040e
         jsr l0ceb
         jsr l017c
l040e    jsr l0746
         jmp l0200
l0414    cmp #$fc
         bne l041f
         lda lbc
         bne l03e5
         jmp l012a
l041f    cmp #$fb
         bne l0426
         jmp l06cf
l0426    cmp #$f0
         bcc l0446
         and #$0f
         tay
         jsr l0770
         tax
         lda l0e54,x
         bne l0443
         lda l0e2a,x
         bne l0443
         lda l0698,y
         sta lb9
         jsr l072f
l0443    jmp l023e
l0446    cmp #$88
         bne l044d
         jmp l03d3
l044d    cmp #$84
         bne l0483
         jsr l01d7
         lda lbb
         bne l045b
         jmp l030f
l045b    lda #$7f
         sta ldc00
         ldx ldc01
         cpx #$ef
         beq l046f
         cmp ldc01
         bne l045b
         jmp l0126
l046f    jsr l0ceb
         jsr l017c
         jsr l0781
         lda #$04
         jsr l0779
         lda ldd01
         jmp l0219
l0483    cmp #$85
         bne l0493
         sta lbd
         lda lbb
         bne l0490
         jmp l030f
l0490    jmp l012a
l0493    cmp #$86
         bne l049c
         sta la6
         jmp l03e1
l049c    jmp l0d13
l049f    ldx #$00
         stx lae
         jsr l0787
         lda lad
         cmp #$24
         bcc l04ae
         sbc #$05
l04ae    tay
         lda (lda),y
         ora lba
         tay
         jsr l077e
         lda ldd01
         cpy #$4c
         beq l04c2
         cpy #$46
         bne l04c5
l04c2    jmp l036f
l04c5    lda #$00
         sta lb4
         lda #$12
         sta la3
l04cd    ldx lae
         jsr l0787
         lda lad
         cmp #$24
         bcc l04da
         sbc #$05
l04da    tay
         lda (lda),y
         cmp #$2b
         beq l0513
         cmp #$43
         beq l0513
         cmp #$49
         beq l0513
         tay
         lda #$d8
         sta lc3,x
         tya
         tax
         ldy #$00
         lda #$41
         cpx #$2d
         bne l0502
         lda la1
         bne l04fe
         dec la2
l04fe    dec la1
         lda (la1),y
l0502    ldx lb4
         sta lff00,x
         inx
         eor #$01
         sta lff00,x
         inx
         stx lb4
         jmp l0559
l0513    dec l01
         ldy la8
         lda l1000,y
         sta l9e
         sta l0549
         cmp #$d0
         bcc l053a
         cmp #$e0
         bcs l053a
         lda la3
         sta l0532
         ldy #$00
l052e    lda (l9d),y
         .byte $99,$00; ".."
l0532    .byte $ff; "."
         iny
         bne l052e
         lda la3
         inc la3
l053a    ldy la8
         ldx lae
         sta lc3,x
         lda lba
         bpl l0555
         ldx #$00
         txa
l0547    .byte $5d,$00; "]."
l0549    .byte $ff; "."
         inx
         bne l0547
         sta l1100,y
         lda #$07
         sta l0f00,y
l0555    inc la8
         inc l01
l0559    jmp l0dd3
         nop
         cmp lc0
         beq l0568
         jmp l04cd
l0564    cpy lc0
         bcc l0579
l0568    jsr l076b
         beq l0570
         jmp l0372
l0570    ldy #$00
         sty lae
         sty lb4
         dec ldd03
l0579    lda lba
         bmi l059d
         ldx lae
         jsr l0787
         lda lad
         cmp #$24
         bcc l058a
         sbc #$05
l058a    tay
         lda (lda),y
         cmp #$3f
         beq l0599
         cmp #$53
         beq l0599
         cmp #$48
         bne l059d
l0599    ldx #$55
         bne l059f
l059d    ldx #$52
l059f    stx ldd01
         ldy lae
         ldx lc3,y
         cpx #$d8
         beq l05ad
         jmp l0603
l05ad    lda #$07
l05af    ldx ldd0d
         beq l05af
         sta ldd01
         ldy lb4
         lda lff00,y
         iny
         sty lb4
l05bf    ldx ldd0d
         beq l05bf
         sta ldd01
         ldy #$01
         tya
l05ca    ldx ldd0d
         beq l05ca
         sta ldd01
         iny
         bne l05ca
         ldy lb4
         lda lff00,y
         iny
l05db    ldx ldd0d
         beq l05db
         sta ldd01
         sty lb4
l05e5    lda #$00
l05e7    ldx ldd0d
         beq l05e7
         sta ldd01
l05ef    ldx ldd0d
         beq l05ef
         sta ldd01
         inc lae
         ldy lae
l05fb    ldx ldd0d
         beq l05fb
         jmp l0564
l0603    stx l9e
         ldy lb2
         lda l0f00,y
l060a    ldx ldd0d
         beq l060a
l060f    sta ldd01
         ldy #$00
l0614    lda (l9d),y
l0616    ldx ldd0d
         beq l0616
         sta ldd01
         iny
         bne l0614
         ldy lb2
         lda l1100,y
l0626    ldx ldd0d
         beq l0626
         sta ldd01
         inc lb2
         jmp l05e5
l0633    ldx #$14
         .byte $2c; ","
l0636    ldx #$01
         lda #$20
         ldy #$13
l063c    sta l0828,x
         inx
         dey
         bne l063c
l0643    rts
l0644    stx lda
         jsr l0636
         lda #$1b
         sta ld011
         lda #$21
         sta ld404
         dec ld404
         ldy #$01
         bne l0661
l065a    stx lda
         jsr l0633
         ldy #$14
l0661    ldx lda
l0663    lda l00,x
         beq l0643
         sta l0828,y
         inx
         iny
         bne l0663
l066e    ldx #$ca
         .byte $f2; "."
         .byte $1a; "."
         .byte $42; "b"
         ror a
         .byte $92; "."
         tsx
         .byte $e2; "."
         asl a
         .byte $32; "2"
         .byte $5a; "z"
         .byte $82; "."
         tax
         .byte $d2; "R"
         .byte $fa; "."
         .byte $22; """
         lsr a
         .byte $72; "."
         txs
         .byte $c2; "B"
l0683    php
         php
         php
         ora #$09
         ora #$09
         ora #$09
         asl a
         asl a
         asl a
         asl a
         asl a
         asl a
         asl a
         .byte $0b; "."
         .byte $0b; "."
         .byte $0b; "."
         .byte $0b; "."
         .byte $0b; "."
l0698    .byte $3f; "?"
         .byte $2b; "+"
         pha
         .byte $53; "s"
         eor #$43
         jmp l5046
         pha
l06a2    cmp #$1f
         bcs l06b7
         cmp #$19
         bcs l06b4
         cmp #$12
         bcs l06b1
         ldx #$15
         .byte $2c; ","
l06b1    ldx #$13
         .byte $2c; ","
l06b4    ldx #$12
         .byte $2c; ","
l06b7    ldx #$11
         rts
l06ba    lda #$0b
         sta ld011
l06bf    bit ld011
         bpl l06bf
l06c4    bit ld011
         bmi l06c4
l06c9    bit ld011
         bpl l06c9
         rts
l06cf    ldx #$6a
         jsr l0644
l06d4    lda #$7f
         sta ldc00
         cmp ldc01
         beq l071e
         lda #$ef
         sta ldc00
         lda ldc01
         cmp #$fd
         beq l070a
         lda #$fb
         sta ldc00
         lda ldc01
         cmp #$fd
         bne l06d4
         jsr l0636
         jsr l0781
         lda #$01
         jsr l0779
         lda ldd01
         jsr l06ba
         jmp l0de5
l070a    jsr l0636
         jsr l0781
         lda #$02
         jsr l0779
         lda ldd01
         jsr l06ba
         jmp l036f
l071e    lda lbc
         bne l0725
         jmp l0126
l0725    lda #$ff
l0727    cmp ldc01
         bne l0727
         jmp l031b
l072f    pha
         jsr l0787
         lda lad
         cmp #$24
         bcc l073b
         sbc #$05
l073b    tay
         lda (lda),y
         bmi l0744
         pla
         sta (lda),y
         rts
l0744    pla
         rts
l0746    lda #$20
l0748    sta l084f
         sta l084e
         sta l084d
         rts
l0752    lda lbc
         beq l076a
         ldx #$02
l0758    inc l084d,x
         lda l084d,x
         cmp #$3a
         bcc l076a
         lda #$30
         sta l084d,x
         dex
         bpl l0758
l076a    rts
l076b    lda #$00
         sta ldd03
l0770    lda ldd0d
         beq l0770
         lda ldd01
         rts
l0779    ldx #$ff
         stx ldd03
l077e    sta ldd01
l0781    lda ldd0d
         beq l0781
         rts
l0787    lda l066e,x
         sta lda
         lda l0683,x
         sta ldb
         rts
l0792    ldy #$00
l0794    lda l00,x
         beq l079f
         sta l0bdb,y
         inx
         iny
         bne l0794
l079f    jmp l0c27
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         ldy #$20
         jsr l4346
         .byte $4f; "o"
l0806    bvc l0861
l0808    .byte $20,$56; " v"
l080a    .byte $34; "4"
         .byte $2e; "."
l080c    bmi $082e; ???
         jsr l2020
         .byte $20,$20; "  "
l0813    .byte $20; " "
l0814    .byte $20; " "
l0815    .byte $20; " "
l0816    jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
l0828    ldy #$20
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         .byte $20,$20; "  "
l084d    .byte $20; " "
l084e    .byte $20; " "
l084f    jsr la0a0
l0852    .byte $a0; " "
l0853    bcs $0805; ???
         bcs $0807; ???
         bcs $0809; ???
         bcs $080b; ???
         bcs $080e; ???
         lda (lb1),y
         lda (lb1),y
l0861    lda (lb1),y
         lda (lb1),y
         lda (lb2),y
         .byte $b2; ""
         .byte $b2; ""
l0869    .byte $b2; ""
         .byte $b2; ""
         .byte $b2; ""
         .byte $b2; ""
         .byte $b2; ""
         .byte $b2; ""
         .byte $b2; ""
         .byte $b3; ""
         .byte $b3; ""
         .byte $b3; ""
         .byte $b3; ""
         .byte $b3; ""
l0875    .byte $b3; ""
         ldy #$a0
         ldy #$a0
l087a    ldy #$b1
l087c    .byte $b2; ""
         .byte $b3; ""
         ldy lb5,x
         ldx lb7,y
         clv
         lda lb1b0,y
         .byte $b2; ""
         .byte $b3; ""
         ldy lb5,x
         ldx lb7,y
         clv
         lda lb1b0,y
         .byte $b2; ""
         .byte $b3; ""
         ldy lb5,x
         ldx lb7,y
         clv
         .byte $b9,$b0; ""
l0899    .byte $b1; ""
l089a    .byte $b2; ""
l089b    .byte $b3; ""
l089c    .byte $b4; ""
l089d    lda la0,x
         ldy #$a0
         bcs l0853
l08a3    .byte $20; " "
l08a4    .byte $20; " "
l08a5    jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         bcs $0878; ???
         ldy #$b0
         lda (l20),y
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr lb1b0
         ldy #$b0
         .byte $b2; ""
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         .byte $20,$20; "  "
l090d    jsr l2020
         jsr l2020
         jsr l2020
         bcs $08ca; ???
         ldy #$b0
         .byte $b3; ""
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr lb020
         .byte $b3; ""
         ldy #$b0
         ldy l20,x
l0944    .byte $20; " "
l0945    jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         bcs $091c; ???
         ldy #$b0
         lda l20,x
         jsr l2020
         jsr l2020
         .byte $44; "d"
         ora #$05
         .byte $13; "."
         ora l13
         jsr l1250
         .byte $0f; "."
         .byte $07; "."
         .byte $12; "."
         ora (l0d,x)
         ora l0c20
         ora (l05,x)
         ora l06,x
         .byte $14; "."
         jsr l2020
         jsr l2020
         bcs l0945
         ldy #$b0
         ldx l20,y
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr lb6b0
         ldy #$b0
         .byte $b7; ""
         jsr l2020
         jsr l2020
         jsr l150e
         .byte $12; "."
         jsr l090d
         .byte $14; "."
         jsr l0f44
         .byte $0c; "."
         bpl l09d7
         ora #$0e
         jsr l0f44
         .byte $13; "."
         .byte $20,$32; " 2"
l09d7    rol l2030
         jsr l2020
         jsr lb7b0
         ldy #$b0
         clv
         jsr l2020
         jsr l2020
l09e9    jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         .byte $20; " "
l09f9    jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr $b8b0; ???
         ldy #$b0
         lda l2020,y
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         bcs l09e9
         ldy #$b1
         bcs l0a54
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         .byte $20,$20; "  "
l0a54    jsr lb120
         bcs l09f9
         lda (lb1),y
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr lb120
         lda (la0),y
         lda (lb2),y
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr lb120
         .byte $b2; ""
         ldy #$b1
         .byte $b3; ""
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr lb120
         .byte $b3; ""
         ldy #$b1
         ldy l20,x
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr lb4b1
         ldy #$b1
         lda l20,x
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr lb5b1
         ldy #$b1
         ldx l20,y
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr lb6b1
         ldy #$b1
         .byte $b7; ""
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         ldy #$a0
         ldy #$a0
         ldy #$b1
         .byte $b7; ""
         ldy #$b1
         clv
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         ldy #$a0
         ldy #$d4
         .byte $92; "."
         .byte $89; "."
         sta l93
         tsx
l0b94    ldy la0,x
         lda (lb8),y
         ldy #$b1
         lda l2020,y
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         ldy #$a0
         ldy #$a0
         ldy #$a0
         ldy #$d2
         sta l90
         sta (l89,x)
         .byte $92; "."
         tsx
l0bba    cmp l9385,y
         ldy #$b1
         lda lb2a0,y
         bcs l0be4
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr l2020
         jsr lcba0
         stx ld2c4
         ldy #$a0
l0bdb    ldy lb0,x
         ldy #$a0
         .byte $d4; "T"
         .byte $92; "."
         sta (l83,x)
         .byte $8b; "."
l0be4    .byte $93; "."
         ldy #$b2
         bcs l0be9
l0be9    brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
l0bf5    brk
         .byte $54; "t"
         .byte $12; "."
         ora (l03,x)
         .byte $0b; "."
         jsr l0944
         .byte $13; "."
         .byte $0b; "."
         ldx #$00
l0c02    dex
         bne l0c02
         lda lb8
         eor #$0d
         sta lb8
         ora #$b0
         sta l0b94
l0c10    lda ldc01
         cmp #$ff
         bne l0c10
l0c17    ldy #$00
         sty lbd
         sty ldc
         sty la6
         .byte $a2; ""
l0c20    .byte $ff; "."
         txs
         ldx #$35
         jsr l0644
l0c27    lda #$ef
         sta ldc00
         lda ldc01
         cmp #$7f
         bne l0c3b
         lda #$00
         sta lba
         ldx #$9a
         bne l0c96
l0c3b    cmp #$ef
         beq l0ca3
         lda #$fd
         sta ldc00
         lda ldc01
         cmp #$df
         beq l0cad
         cmp #$fe
         bne l0c57
         lda #$24
         sta la0
         ldx #$91
         bne l0c83
l0c57    lda #$fb
         sta ldc00
         lda ldc01
         cmp #$fb
         bne l0c69
         sta ldc
         ldx #$1f
         bne l0cb5
l0c69    cmp #$ef
         beq l0cb3
         cmp #$bf
         beq l0c02
         lda #$fd
         sta ldc00
         lda ldc01
         cmp #$f7
         bne l0c86
         lda #$29
         sta la0
         ldx #$8c
l0c83    jmp l0792
l0c86    lda #$f7
         sta ldc00
         lda ldc01
         cmp #$fd
         bne l0c27
         sta lba
         ldx #$96
l0c96    ldy #$00
l0c98    lda l00,x
         beq l0c27
         sta l0bba,y
         inx
         iny
         bne l0c98
l0ca3    lda #$10
         sta lbc
         ldx #$74
         ldy #$00
         beq l0cb9
l0cad    ldx #$82
         ldy #$01
         bne l0cb7
l0cb3    ldx #$15
l0cb5    ldy #$00
l0cb7    sty lbc
l0cb9    sty lbb
         jsr l065a
         jsr l0ce5
         lda ldc
         bne l0cd7
         lda lb8
         jsr l0779
         lda #$01
         jsr l077e
         lda la0
l0cd1    jsr l077e
         jmp l0216
l0cd7    lda #$02
         jsr l0779
         lda #$12
         jsr l077e
         lda #$00
         beq l0cd1
l0ce5    jsr l01b3
         jsr l0198
l0ceb    jsr l0148
         lda #$01
         sta lad
l0cf2    ldx #$14
         stx la8
l0cf6    lda #$20
         ldx la8
         jsr l072f
         dec la8
         bpl l0cf6
         inc lad
         lda lad
         cmp #$24
         bcc l0cf2
         ldx #$20
         txa
l0d0c    sta l08a3,x
         dex
         bpl l0d0c
         rts
l0d13    jsr l0781
         jsr l0148
         lda l0e2a
         beq l0d34
         sta l9e
         ldy #$90
         ldx #$00
l0d24    lda (l9d),y
         jsr l0dae
         ora #$80
         sta l08a4,x
         inx
         iny
         cpx #$17
         bcc l0d24
l0d34    jsr l0dc4
         ldy #$01
l0d39    sty lae
         lda l0e2a,y
         beq l0dab
         sta l9e
         ldy #$02
l0d44    sty lab
         lda (l9d),y
         bpl l0d97
         dec lb4
         bne l0d74
         lda #$7f
         sta ldc00
l0d53    lda ldc01
         cmp #$7f
         beq l0dab
         cmp #$ef
         bne l0d53
         ldx #$00
l0d60    dex
         bne l0d60
l0d63    cmp ldc01
         beq l0d63
         sty lac
         jsr l0ce5
         jsr l0dc4
         ldy lac
         dec lb4
l0d74    lda l0d8f
         sec
         adc #$27
         sta l0d8f
         bcc l0d82
         inc l0d90
l0d82    iny
         iny
         iny
         ldx #$00
l0d87    lda (l9d),y
         jsr l0dae
         and #$7f
         .byte $9d; "."
l0d8f    .byte $a4; "_"
l0d90    php
         iny
         inx
         cpx #$10
         bcc l0d87
l0d97    lda lab
         clc
         adc #$20
         tay
         bcc l0d44
         ldy #$00
         lda (l9d),y
         beq l0dab
         iny
         lda (l9d),y
         tay
         bne l0d39
l0dab    jmp l0c17
l0dae    bmi l0dbf
         cmp #$20
         bcc l0dbe
         cmp #$60
         bcc l0dbc
         and #$df
         bcs l0dbe
l0dbc    and #$3f
l0dbe    rts
l0dbf    and #$7f
         ora #$40
         rts
l0dc4    lda #$a4
         ldx #$08
         sta l0d8f
         stx l0d90
         lda #$15
         sta lb4
         rts
l0dd3    lda lb2
         sta lb5
         inc lae
         lda lae
         cmp lc0
         beq l0de2
         jmp l04cd
l0de2    jmp l0568
l0de5    lda lb5
         sta lb2
         jmp l0568
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk
         brk

l1e55    sei
         ldx #$00
l1e58    .byte $bd,$00; "."
l1e5a    bpl $1df9; ???
         brk
l1e5d    brk
         inx
         bne l1e58
         inc l1e5a
         inc l1e5d
         lda l1e5a
         cmp #$1e
         bcc l1e58
         lda #$08
         sta ldc0e
         lda #$27
         sta ld018
         lda #$3c
         sta ldd02
         lda #$80
         sta ldd07
         lda #$0f
         sta ld021
         lda #$06
         sta ld020
         ldx #$00
l1e8e    .byte $9d,$00; ".."
l1e90    cld
         inx
         bne l1e8e
         inc l1e90
         ldy l1e90
         cpy #$dc
         bne l1e8e
         ldx #$ff
         txs
         lda #$0d
         sta ldc05
         lda #$7a
         sta ldc04
         lda #$1d
         sta ld400
         sta ld401
         lda #$f9
         sta ld406
         lda #$0f
         sta ld418
         jmp l0c17
         brk
         brk
         brk

