// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:38
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2fff  (10240 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0e00 (3584)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 596 bytes, Data: 9644 bytes
// Labels: 84, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $0c00-$0c30 ---
.pc = $0c00 "loc_0c00"

loc_0c00:
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop

loc_0c0c:
        nop
        nop
        sei
        jsr $fda3
        lda #$31
        sta $0314
        lda #$ea
        sta $0315
        sei
        jsr $e518
        ldy #$00

loc_0c22:
        lda dat_0c30,y
        sta $033c,y
        iny
        cpy #$2c
        bne loc_0c22
        jmp $033c

dat_0c30:
        .byte $a9                                   // .

// --- Region $0e00-$0e35 ---
.pc = $0e00 "main_0e00"

main_0e00:
        ldx #$00
        lda #$a0

loc_0e04:
        sta $2800,x
        sta $2900,x
        sta $2a00,x
        sta $2b00,x
        sta $2c00,x
        sta $2d00,x
        sta $2e00,x
        sta $2f00,x
        inx
        bne loc_0e04
        ldx #$08
        sta $fc
        ldx #$00
        stx $fb
        ldx #$00
        txa

loc_0e2a:
        sta $0120,x
        inx
        cpx #$08
        bne loc_0e2a
        jmp loc_1030

dat_0e35:
        // === Fill data (1 bytes, $0e35-$0e35) ===
        .byte $00                                   // .

// --- Region $1030-$1095 ---
.pc = $1030 "loc_1030"

loc_1030:
        sei
        ldx #$01
        stx $d01a
        stx $dc0d
        stx $f003
        dex
        stx $02
        stx $06
        stx $89
        stx $03
        stx $10
        stx $ff
        lda #$10
        sta $0315

loc_104e:
        lda dat_1000,x
        sta $d000,x
        inx
        cpx #$2f
        bne loc_104e
        lda #$24
        ldx #$00

loc_105d:
        sta $07f8,x
        clc
        adc #$01
        inx
        cpx #$07
        bne loc_105d
        lda #$90
        sta $a1
        lda #$20
        sta $11
        lda #$00
        sta $05
        lda #$07
        sta $08
        lda #$96
        sta $0314
        lda #$04
        sta $56
        lda #$20
        sta smc_11c1                                // SMC: modifies $11c1
        sta smc_1261                                // SMC: modifies $1261
        lda #$a0
        sta smc_11c6                                // SMC: modifies $11c6
        sta smc_1266                                // SMC: modifies $1266
        cli
        jmp loc_1170

dat_1095:
        .byte $ea                                   // .

// --- Region $1120-$1160 ---
.pc = $1120 "loc_1120"

loc_1120:
        lda #$01
        sta $d019
        lda #$96
        sta $0314
        dec $0315
        lda #$29
        sta $d012
        lda $a0
        beq loc_113b
        dec $a0
        jmp $ea81

loc_113b:
        lda $08
        sec
        sbc $56
        sta $08
        bcs loc_1159
        eor #$ff
        sta $08
        lda #$07
        sec
        sbc $08
        sta $08
        inc $02
        lda $d018
        eor #$10
        sta $d018

loc_1159:
        lda $08
        sta $d016
        jmp $ea81

// --- Region $1170-$1185 ---
.pc = $1170 "loc_1170"

loc_1170:
        lda $02
        beq loc_1170
        dec $02
        jsr sub_1190

loc_1179:
        lda $02
        beq loc_1179
        dec $02
        jsr sub_1230
        jmp loc_1170
        brk

// --- Region $1190-$1221 ---
.pc = $1190 "sub_1190"
// Referenced by: jsr from $1176

sub_1190:
        ldx #$00

loc_1192:
        lda $2801,x
        sta $2c00,x
        inx
        bne loc_1192

loc_119b:
        lda $2901,x
        sta $2d00,x
        inx
        bne loc_119b

loc_11a4:
        lda $2a01,x
        sta $2e00,x
        inx
        cpx #$80
        bne loc_11a4
        lda #$27
        sta $fb
        lda #$2c
        sta $fc
        ldx #$00
        ldy #$00

loc_11bb:
        asl $0120,x
        bcc loc_11c5
.label smc_11c1 = * + 1
        lda #$20                                    // !SMC: modified by $1083
        jmp loc_11c7

loc_11c5:
.label smc_11c6 = * + 1
        lda #$a0                                    // !SMC: modified by $108b

loc_11c7:
        sta ($fb),y
        lda $fb
        clc
        adc #$28
        sta $fb
        bcc loc_11d4
        inc $fc

loc_11d4:
        inx
        cpx #$08
        bne loc_11bb

loc_11d9:
        ldy #$00
        inc $05
        lda $05
        cmp #$08
        bne loc_1221
        sty $05
        inc $10
        bne loc_11eb
        inc $11

loc_11eb:
        lda ($10),y
        cmp #$00
        bne loc_11f6
        lda #$40
        sta $a0
        rts

loc_11f6:
        cmp #$ff
        bne loc_1203
        sty $10
        lda #$20
        sta $11
        jmp loc_11eb

loc_1203:
        sty $fc
        asl
        rol $fc
        asl
        rol $fc
        asl
        rol $fc
        sta $fb
        lda $fc
        clc
        adc #$08
        sta $fc

loc_1217:
        lda ($fb),y
        sta $0120,y
        iny
        cpy #$08
        bne loc_1217

loc_1221:
        rts

// --- Region $1230-$127c ---
.pc = $1230 "sub_1230"
// Referenced by: jsr from $117f

sub_1230:
        ldx #$00

loc_1232:
        lda $2c01,x
        sta $2800,x
        inx
        bne loc_1232

loc_123b:
        lda $2d01,x
        sta $2900,x
        inx
        bne loc_123b

loc_1244:
        lda $2e01,x
        sta $2a00,x
        inx
        cpx #$80
        bne loc_1244
        lda #$27
        sta $fb
        lda #$28
        sta $fc
        ldx #$00
        ldy #$00

loc_125b:
        asl $0120,x
        bcc loc_1265
.label smc_1261 = * + 1
        lda #$20                                    // !SMC: modified by $1086
        jmp loc_1267

loc_1265:
.label smc_1266 = * + 1
        lda #$a0                                    // !SMC: modified by $108e

loc_1267:
        sta ($fb),y
        lda $fb
        clc
        adc #$28
        sta $fb
        bcc loc_1274
        inc $fc

loc_1274:
        inx
        cpx #$08
        bne loc_125b
        jmp loc_11d9

dat_127c:
        .byte $00                                   // .

// --- Region $12f0-$1341 ---
.pc = $12f0 "loc_12f0"

loc_12f0:
        lda $dc01
        and #$7f
        ora #$10
        cmp #$7f
        bne loc_1300
        lda $dc00
        ora #$10

loc_1300:
        cmp #$77
        bne loc_130b
        lda $56
        beq loc_130a
        dec $56

loc_130a:
        rts

loc_130b:
        cmp #$7b
        bne loc_1318
        lda $56
        cmp #$04
        beq loc_130a
        inc $56
        rts

loc_1318:
        cmp #$7e
        bne loc_1323
        lda $89
        and #$01
        sta $89
        rts

loc_1323:
        cmp #$7d
        bne loc_132c
        lda #$02
        sta $89
        rts

loc_132c:
        lda $ff
        beq loc_1333
        dec $ff
        nop

loc_1333:
        lda $dc01
        eor $dc00
        and #$10
        beq loc_1368
        jmp loc_0c00

dat_1340:
        .byte $49,$80                               // I.

// --- Region $1368-$136d ---
.pc = $1368 "loc_1368"

loc_1368:
        lda #$10
        sta $ff
        rts

dat_136d:
        // === Fill data (1 bytes, $136d-$136d) ===
        .byte $00                                   // .

// ============================================
// Data blocks
// ============================================

// --- Region $0808-$0b00 ---
.pc = $0808 "dat_0808"

dat_0808:
        .byte $3e,$7e,$c0,$c6,$c6,$c6,$fe,$7e,$fc,$fe,$0e,$fc,$cc,$ce,$fe,$fc // >~.....~........
        .byte $7e,$fe,$00,$c0,$c0,$c0,$fe,$7e,$fc,$fe,$06,$c6,$c6,$c6,$fe,$fc // ~......~........
        .byte $fe,$fe,$00,$f0,$f0,$c0,$fe,$fe,$fe,$fe,$00,$f0,$f0,$c0,$c0,$c0 // ................
        .byte $7e,$fe,$00,$ce,$ce,$c6,$fe,$7c,$c6,$c6,$06,$fe,$fe,$c6,$c6,$c6 // ~......|........
        .byte $fe,$fe,$00,$38,$38,$38,$fe,$fe,$3e,$3e,$00,$0c,$0c,$cc,$fc,$78 // ...888..>>.....x
        .byte $c6,$ce,$1c,$f8,$f0,$f8,$dc,$ce,$e0,$e0,$00,$e0,$e0,$e0,$fe,$fe // ................
        .byte $fc,$fe,$16,$d6,$c6,$c6,$c6,$c6,$fc,$fe,$06,$c6,$c6,$c6,$c6,$c6 // ................
        .byte $7c,$fe,$06,$c6,$c6,$c6,$fe,$7c,$fc,$fe,$06,$c6,$fe,$fc,$c0,$c0 // |......|........
        .byte $7c,$fe,$06,$c6,$c6,$cc,$fe,$76,$fc,$fe,$06,$c6,$fc,$fc,$c6,$c6 // |......v........
        .byte $7e,$fe,$00,$fc,$7e,$06,$fe,$fc,$fe,$fe,$00 // ~...~......

txt_08a3:
        .text "88888"
        .byte $c6                                   // 'F' | $80 (end-of-string marker)
        .byte $c6,$06,$c6,$c6,$c6,$fe,$7c,$c6,$c6,$06,$c6,$c6,$ee,$7c,$38,$c6 // ......|......|8.
        .byte $c6,$06,$c6,$d6,$d6,$fe,$7c,$c6,$c6,$0e,$3c,$7c,$ee,$c6,$c6,$c6 // ......|...<|....
        .byte $c6,$06,$c6,$7c,$38,$38,$38,$fe,$fe,$00,$1c,$38,$70,$fe,$fe,$ff // ...|888....8p...
        .byte $ff,$06,$76,$76,$06,$36,$36,$e7,$e7,$66,$67,$67,$60,$7f,$7f,$ff // ..vv.66..fgg`...
        .byte $ff,$00,$ee,$ee,$60,$ec,$ec,$00,$18,$3c,$7e,$18,$18,$18,$18,$00 // ....`....<~.....
        .byte $10,$30,$7f,$7f,$30,$10,$00,$00,$00,$00,$00,$00,$00,$00,$00,$38 // .0..0..........8
        .text "8888"
        .byte $00
        .byte $38,$38,$66,$66,$66,$00,$00,$00,$00,$00,$66
        .byte $66,$ff,$66,$66,$ff,$66,$66,$18,$3e,$60,$3c,$06,$7c,$18,$00,$c0 // f.ff.ff.>`<.|...
        .byte $c6,$0e,$1c,$38,$70,$e6,$46,$3c,$66,$3c,$38,$67,$66,$3f,$00,$06 // ...8p.F<f<8gf?..
        .byte $0e,$0c,$00,$00,$00,$00,$00,$0e,$1e
        .text "8888"
        .byte $1e,$0e,$70
        .byte $78,$1c,$1c,$1c,$1c,$78,$70,$00,$00,$00,$00,$00,$00,$00,$00,$00 // x....xp.........
        .byte $38,$38,$fe,$fe,$38,$38,$00,$00,$00,$00,$00,$00,$18,$18,$30,$00 // 88..88........0.
        .byte $00,$00,$fe,$fe,$00,$00,$00,$00,$00,$00,$00,$00,$00,$18,$18,$00 // ................
        .byte $03,$06,$0c,$18,$30,$60,$00,$7c,$fe,$c6,$c6,$c6,$c6,$fe,$7c,$18 // ....0`.|......|.
        .byte $38,$38,$18,$18,$18,$7e,$7e,$7c,$fe,$c6,$0c,$38,$70,$fe,$fe,$7c // 88...~~|...8p..|
        .byte $fe,$06,$1c,$1c,$06,$fe,$7c,$cc,$cc,$cc,$cc,$fe,$fe,$0c,$0c,$7e // ......|........~
        .byte $7e,$60,$7c,$7e,$06,$7e,$7c,$7e,$fe,$c0,$fc,$fe,$c6,$fe,$7c,$7e // ~`|~.~|~......|~
        .byte $7e,$06,$0c,$0c,$1c,$38,$38,$7c,$fe,$c6,$7c,$fe,$c6,$fe,$7c,$7c // ~....88|..|...||
        .byte $fe,$c6,$fe,$7e,$06,$fe,$fc,$00,$00,$18,$18,$00,$18,$18,$00,$00 // ...~............
        .byte $00,$18,$18,$00,$18,$18,$30,$0e,$18,$30,$60,$30,$18,$0e,$00,$00 // ......0..0`0....
        .byte $fe,$fe,$00,$fe,$fe,$00,$00,$70,$18,$0c,$06,$0c,$18,$70,$00,$7c // .......p.....p.|
        .byte $7e,$06,$06,$1c,$18,$00,$18
        .byte $30,$30,$fc,$fc
        .text "0000"
        .byte $01
        .byte $01,$00,$00,$fd,$f7,$ff,$fd,$c0,$a0,$e0,$e0,$f8,$fc,$fc,$f8,$ff // ................
        .byte $00,$3f,$00,$0f,$00,$03,$00,$ff,$06,$fc,$0c,$f8,$19,$f3,$00,$f3 // .?..............
        .byte $66,$66,$cf,$c0,$81,$ff,$00,$ff,$00,$0f,$c0,$df,$80,$bf,$00,$fc // ff..............
        .byte $00,$f0,$00,$c0,$00,$00,$00,$ff,$00,$3f,$00,$0f,$00,$03,$00,$ff // .........?......
        .byte $18,$d8,$18,$d8,$18,$d8,$00,$cf,$cc,$cc,$cf,$c0,$c0,$ff,$00,$ff // ................
        .byte $00,$1f,$c0,$df,$c0,$df,$00,$fc,$00,$f0,$00,$c0,$00,$00,$00,$ff // ................
        .byte $00,$3a,$13,$13,$12,$00,$ff,$ff,$00,$b8,$a0,$b0,$bc,$00,$ff,$ff // .:..............
        .byte $00,$89,$95,$9c,$f7,$00,$ff,$ff,$00,$f9,$11,$90,$91,$00,$ff,$ff // ................
        .byte $00,$b5,$25,$a5,$b5,$00,$ff,$ff,$00,$99,$15,$95,$d5,$00,$ff,$ff // ..%.............
        .byte $00,$b3                               // ..

txt_0a9b:
        .text "#0"
        .byte $bb                                   // ';' | $80 (end-of-string marker)
        .byte $00,$ff,$1e,$7f,$e1,$de,$33,$6d,$73,$7f,$00,$80,$cc,$cc,$00,$8c // ......3ms.......
        .byte $8c,$80,$7e,$ff,$ff,$7e,$1c,$1c,$1a,$0e,$fc,$fc,$dc,$fc,$00,$00 // ..~..~..........
        .byte $00,$00,$fe,$ff,$f7,$fe,$00,$00,$00,$00,$fc,$fe,$fe,$fc,$70,$f0 // ..............p.
        .byte $b0,$e0                               // ..

txt_0ad0:
        .text "8(("
        .byte $aa                                   // '*' | $80 (end-of-string marker)
        .byte $ee,$6c,$38,$10                       // .l8.

dat_0ad8:
        // === Fill data (40 bytes, $0ad8-$0aff) ===
        .fill 40, $ff

dat_0b00:
        // === Fill data (1 bytes, $0b00-$0b00) ===
        .byte $00                                   // .

// --- Region $0c31-$0c5c ---
.pc = $0c31 "Program $0c31"
        .byte $36,$85,$01,$a9,$01,$a0,$30,$a2,$08,$85,$fe,$84,$ff,$85,$fb,$86 // 6.....0.........
        .byte $fc,$a0,$00,$b1,$fe,$91,$fb,$c8,$d0,$f9,$e6,$ff,$e6,$fc,$a5,$ff // ................
        .byte $c9,$d0,$d0,$ed,$a9,$37,$85,$01,$4c,$e2,$fc // .....7..L..

dat_0c5c:
        // === Fill data (1 bytes, $0c5c-$0c5c) ===
        .byte $00                                   // .

// --- Region $1000-$102f ---
.pc = $1000 "dat_1000"

dat_1000:
        .byte $18,$c0,$48,$c0,$78,$c0,$a8,$c0,$d8,$c0,$08,$c0,$38,$c0,$00,$00 // ..H.x.......8...
        .byte $60,$1b,$29,$d1,$00,$00,$c0,$7f,$a4,$79,$f1,$00,$00,$7f,$f7,$ff // `.)......y......
        .byte $00,$00,$00,$00,$f3,$f4,$f0,$01,$01,$01,$01,$01,$01,$01,$01,$ff // ................

// --- Region $1096-$111f ---
.pc = $1096 "Segment $1096"
        .byte $a6,$04,$ea,$ea,$ea,$ea,$ea,$ea,$ad,$12,$d0,$29,$07,$09,$58,$8d // ...........)..X.
        .byte $11,$d0,$a0,$07,$88,$d0,$fd,$ea,$ea,$ca,$d0,$e9,$a9,$01,$8d,$19 // ................
        .byte $d0,$a9,$30,$18,$65,$04,$a8,$a2,$00,$bd,$80,$12,$cc,$12,$d0,$d0 // ..0.e...........
        .byte $fb,$8d,$21,$d0,$ea,$c8,$c8,$e8,$e0,$21,$d0,$ed,$ee,$15,$03,$e6 // ..!......!......
        .byte $03,$a6,$03,$e0,$40,$d0,$04,$a2,$00,$86,$03,$bd,$b0,$12,$85,$04 // ....@...........
        .byte $a9,$fa,$8d,$12,$d0,$a5,$89,$49,$01,$85,$89,$d0,$15,$a2,$00,$ad // .......I........
        .byte $80,$12,$48,$bd,$81,$12,$9d,$80,$12,$e8,$e0,$1f,$d0,$f5,$68,$8d // ..H...........h.
        .byte $9f,$12,$ea,$ea,$ea,$ea,$ea,$ea,$ea,$ea,$ea,$ea,$ea,$a9,$20,$8d // .............. .
        .byte $14,$03,$20,$f0,$12,$4c,$81,$ea,$00,$00 // .. ..L....

// --- Region $1161-$116f ---
.pc = $1161 "dat_1161"

dat_1161:
        .fill 15, $00

// --- Region $1186-$118f ---
.pc = $1186 "dat_1186"

dat_1186:
        .fill 10, $00

// --- Region $1222-$122f ---
.pc = $1222 "dat_1222"

dat_1222:
        .fill 14, $00

// --- Region $127d-$12ef ---
.pc = $127d "Segment $127d"
        .byte $00,$00,$00,$07,$08,$0e,$03,$01,$03,$06,$05,$05,$03,$0d,$01,$0d // ................
        .byte $03,$03,$05,$02,$0a,$01,$01,$0a,$02,$0c,$0f,$01,$0f,$0f,$0c,$0b // ................
        .byte $09,$08,$08,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 // ................
        .byte $00,$00,$00,$79,$79,$78,$77,$75,$72,$6f,$6c,$68,$64,$5f // ...yyxwurolhd_

txt_12bb:
        .text "ZTOIC>82,'!"
        .byte $1c,$17,$13,$0f,$0c,$09,$06,$04,$03,$02,$02,$02,$03,$04,$06,$09 // ................
        .byte $0c,$0f,$13,$17,$1c                   // .....

txt_12db:
        .text "!',28>CIOTZ"
        .byte $5f,$64,$68,$6c,$6f,$72,$75,$77,$78,$79 // _dhloruwxy

// --- Region $1342-$1367 ---
.pc = $1342 "Segment $1342"
        .byte $8d,$c1,$11,$ad,$c6,$11,$49,$80,$8d,$c6,$11,$ad,$66,$12,$49,$80 // ......I.....f.I.
        .byte $8d,$66,$12,$ad,$61,$12,$49,$80,$8d,$61,$12,$ad,$23,$d0,$49,$00 // .f..a.I..a..#.I.
        .byte $8d,$23,$d0,$ee,$20,$d0               // .#.. .

// --- Region $2000-$235d ---
.pc = $2000 "spr_2000"

spr_2000:
        // === Sprite data (64 bytes, $2000-$203f) ===
        .byte $20,$14,$08                           // ..#........#.#......#...
        .byte $05,$20,$06                           // .....#.#..#..........##.
        .byte $05,$04,$05                           // .....#.#.....#.......#.#
        .byte $12,$01,$14                           // ...#..#........#...#.#..
        .byte $09,$0f,$0e                           // ....#..#....####....###.
        .byte $20,$01,$07                           // ..#............#.....###
        .byte $01,$09,$0e                           // .......#....#..#....###.
        .byte $13,$14,$20                           // ...#..##...#.#....#.....
        .byte $03,$0f,$10                           // ......##....####...#....
        .byte $19,$12,$09                           // ...##..#...#..#.....#..#
        .byte $07,$08,$14                           // .....###....#......#.#..
        .byte $20,$01,$0e                           // ..#............#....###.
        .byte $04,$20,$14                           // .....#....#........#.#..
        .byte $08,$05,$20                           // ....#........#.#..#.....
        .byte $0c,$01,$13                           // ....##.........#...#..##
        .byte $14,$20,$13                           // ...#.#....#........#..##
        .byte $03,$09,$05                           // ......##....#..#.....#.#
        .byte $0e,$03,$05                           // ....###.......##.....#.#
        .byte $20,$10,$12                           // ..#........#.......#..#.
        .byte $05,$13,$05                           // .....#.#...#..##.....#.#
        .byte $0e,$14,$3a                           // ....###....#.#....###.#.
        .byte $20                                   // sprite 0 padding
        .byte $27,$11,$15,$05,$04,$05,$18           // '......

txt_2047:
        .text " 100%'...     "

txt_2055:
        .encoding "screencode_mixed"
        .text "you can control the scroll by moving your joystick"
        .encoding "petscii_upper"

txt_2087:
        .text "...     "

txt_208f:
        .encoding "screencode_mixed"
        .text "the fac's greetings-charts: tdt-rwe/tlc- tls "
        .text "@"
        .text " fbr "
        .text "@"
        .text "fcs-flt-stl-tri-detonator-elc/bb-tgi-dcs-wizax-tcs-nfl-triad-htl-afl-ikari-dcu"
        .encoding "petscii_upper"

txt_2111:
        .text "'1789-"

txt_2117:
        .encoding "screencode_mixed"
        .text "ccs-coco/ace-ancor-accept/bb-c64cg-tds-cfr-b.art-arc-mzp-yf-gss-run dmc-apg-relax-dec and all other friends"
        .encoding "petscii_upper"

txt_2182:
        .text "...     "

txt_218a:
        .encoding "screencode_mixed"
        .text "the last science  "
        .encoding "petscii_upper"
        .byte $1b,$1c,$1d                           // ...

txt_219f:
        .encoding "screencode_mixed"
        .text " "
        .text "@"
        .text "greets: fac "
        .text "@"
        .text "-ccs- fcs "
        .text "@"
        .text "-tdt-bb-dec- tri "
        .text "@"
        .text "-ne-yeti!-t.s-c64cg"
        .text "@"
        .text "-tlf-fd-dmn-rdi-coco-taw-twr-stl-tau-tsl-ikari-hln-vortex-bsl-trs-fbr-dcs-ngc-nf-dcu-tst-tgi-ccf-tsk-r.dmc-tca-ntw-trm-cfr-riffs-maw-rwe-mcg-omicron-scg-tg-l99-tds-sigma-pnr-cct-acc-detonator-tld-arcon-relax-softcel-ovs-abc-fiss-gcf-gss-quadrant-s.t-cps-academi-tsr-ttw-btr-ecc-tdf-stm!-e$g/ibb-kangol-shna-170-wanda-karl xii-iron hawk-ebc and mzp"
        .encoding "petscii_upper"

txt_233a:
        .text "..... "

txt_2340:
        .encoding "screencode_mixed"
        .text "intro by kraak-vaak/tls"
        .encoding "petscii_upper"

txt_2357:
        .text "    "
        .byte $ff,$ff                               // ..

dat_235d:
        // === Fill data (1 bytes, $235d-$235d) ===
        .byte $00                                   // .