Terminate with Return Code

QuickBasic

---

' DOS 2+ - EXIT - TERMINATE WITH RETURN CODE

'$INCLUDE: 'qb.bi'

DIM inregs  AS RegTypeX
DIM outregs AS RegTypeX

' AH = 4Ch
' AL = return code

inregs.ax = &H4C00 + AL

' DOS interrupt with sub-function &H4C

CALL InterruptX(&H21, inregs, outregs)

' NOTE: This program will exit the QuickBasic IDE