' 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