{ Contents : Exit - exit to current KBM (usually DCL or BASIC) } { Exitd - exit to default KBM (usually DCL) } {$nodebug} procedure exit; { Exit to current KBM (usually DCL or BASIC, whichever you last } { were in) - 1/84 - EFM } var fqnam1 origin 412B : integer; fqnam2 origin 414B : integer; begin fqnam1 := 0; fqnam2 := 0; emt(255); emt(40) end; procedure exitd; { Exit to default KBM as set by the System Manager (usually DCL) - 1/84 - EFM } begin emt(255); emt(38) end; {$debug}