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› 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››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››