read: : read: .EXIT read: ax read: &h4c00 read: | read: # read: mov read: &h21 read: int read: ; read: : read: d" read: begin read: in@ read: dup read: [ read: in@ read: lit read: ] read: != read: while read: outb! read: repeat read: drop read: ; read: cs read: push read: \ read: ds read: pop read: tell read: 1 read: + read: dx read: 0 read: # read: mov read: ah read: 9 read: # read: movb read: &h21 read: int read: 0 read: .EXIT read: tell read: d" read: &h100 read: + read: swap read: seek read: outw!