 opt %100101› org $a000››ttu equ *› lda #0› sta $d201› sta 559› sta 20› sta 19› sta 18›loop equ *› lda #0› sta 53274› lda #$f2› sta 53274› lda #$f6› sta 53274› lda #$f8› sta 53274› lda #$fa› sta 53274› lda #$fc› sta 53274› lda #$fe› sta 53274› lda #$9e› sta 53274› lda #$9c› sta 53274› lda #$9a› sta 53274› lda #$98› sta 53274› lda #$96› sta 53274› lda #$92› sta 53274› lda #0› sta 53274› dta c'кккккккк'› lda 19› cmp #1› bne loop›tu lda <dl› sta $230› lda >dl› sta $231› ldx #0›x0 txa› lda $d20a› and #$1f› sta $b000,x› lda $d20a› and #$1f› sta $b100,x› lda $d20a› and #$1f› sta $b200,x› lda $d20a› and #$1f› sta $b300,x› lda $d20a› and #$1f› sta $b400,x› lda $d20a› and #$1f› sta $b500,x› inx› bne x0› lda #35› sta 559› lda #2› sta 710› lda #12› sta 709› lda #$b8› sta 756››petla equ *› ldx #0›p1 lda $d20a› sta $b800,x› sta $d201› inx› bne p1› lda 19› cmp #2› beq quit› jmp petla››quit equ *› jmp ttu››dl dta b($42),a($b000)› dta c''› dta b($41),a(dl)›› org $2e0› dta a($a000)››