Write Character to Standard Output

QuickBasic

---

' DOS 1+ - WRITE CHARACTER TO STANDARD OUTPUT

'$INCLUDE: 'qb.bi'

DIM inregs  AS RegTypeX
DIM outregs AS RegTypeX

inregs.ax = &H200
inregs.DX = &H42  ' character to write

' DOS interrupt with sub-function &H2

CALL InterruptX(&H21, inregs, outregs)

DIM Char AS INTEGER
Char = outregs.ax AND 255

PRINT "Last Character Output: "; CHR$(Char)