Re: Error Level Of Progra

 BBS: Inland Empire Archive
Date: 04-17-92 (02:40)             Number: 76
From: JOHN HOWARD                  Refer#: NONE
  To: STEVE WOODWARD                Recvd: NO  
Subj: Re: Error Level Of Progra      Conf: (2) Quik_Bas

  I think this is how you would do it, but I'm not sure,
you will have to use the qb.qlb and qb.lib libraries.

  type reg
    ax as integer
    bx as integer
    cx as integer
    dx as integer
  end type

  dim regs as reg

  regs.ax = &h4d00
  call interrupt(&h21,regs,regs)
  returnval% = regs.ax \ 256

  If the program returned a value, returnval% will now hold
it.  Also, you can use termination% = regs.ax mod 256, to
retrieve the termination method.  They are:
       00 = Normal
       01 = Terminated, Ctrl+C
       02 = Critical device error
       03 = Keep Program function

  If there is no return value that you can retrieve, then
the AX information is meaningless.  You will have to
decide how to figure if it is true info or not.  I believe
that it should have the same value which it had before if
there is no return value.  But like I said, I've never used
this function before so I'm not sure if this code will
work.
  The information came from Microsoft MS-Dos Programmer's
Reference, so it should be pretty accurate.  I just
modified it some for the Basic environment.

Good luck,
jh

--- QuickBBS 2.76 (Gamma-1)
 * Origin: Amiga Frontier! (405)624-0301 DHST/ADS/SAN Site! (1:3814/113.0)