opt %00110111›     org $9000››dl   dta d'pppppppppppppp',b($52),a($0600)›ad   equ *-2›     dta a($1212),b($41),a(dl)››aa   dta d'








 '›ab   dta d'--------- '›ac   dta d'






`

'››s    lda #$e0›     sta $02f4›     lda #$ff›     sta $d200›     sta $d210›     lda #$cf›     sta $d201›     lda #$4f›     sta $d211›     ldx <dl›     stx $02c6›     ldy >dl›     jsr dl_›     ldy #50›loop lda #0›     tax›l0   sta $0600,x›     dex›     bne l0›     sty $f0›     ldx #11›l1   lda aa,x›     sta $0600,y›     lda ab,x›     sta $0630,y›     lda ac,x›     sta $0660,y›     dey›     dex›     bpl l1›     ldx #3›l2   stx $d404›     jsr wf›     dex›     bpl l2›     ldy $f0›     dey›     cpy #30›     bcs loop›     sty $d200›     sty $d210›     inc $0230›     inc $0230›     lda $0230›     cmp #14›     bne loop›     ldx <$14›     ldy >$14›     jsr dl_›     lda $d20a›     sta $02f4›     lda #$ff›     sta $d200›     sta $d210›     ldx #$0f›l3   stx 712›     jsr wf›     jsr wf›     jsr wf›     txa›     ora #$40›     sta $d201›     txa›     ora #$20›     sta $d211›     dex›     bpl l3›     lda #$e0›     sta $02f4›     ldx <en›     ldy >en››dl_  stx $0230›     sty $0231›     rts››wf   lda $14›     cmp $14›     beq *-2›     rts››en   dta b($42),a(en_),b($41),a(en)›en_  dta d'..next one!'››     org $2e0›     dta a(s)›     end››