Character Input without Echo

QuickBasic

---

' DOS 1+ - CHARACTER INPUT WITHOUT ECHO

'$INCLUDE: 'qb.bi'

DIM inregs  AS RegTypeX
DIM outregs AS RegTypeX

inregs.AX = &H800

' DOS interrupt with function &H8

CALL InterruptX(&H21, inregs, outregs)

' outregs.AL = character read from standard input

DIM Char AS STRING
Char = CHR$(outregs.AX AND 255)

PRINT "Character: "; Char