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 = &h4d00
  call interrupt(&h21,regs,regs)
  returnval% = \ 256

  If the program returned a value, returnval% will now hold
it.  Also, you can use termination% = 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
  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,

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

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET