home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 199.img / HYPE4.ZIP / DEBUG.HP < prev    next >
Text File  |  1990-05-08  |  982b  |  31 lines
  1. ; debug.hp -- HyperACCESS/5 HyperPilot debugging script
  2. ;
  3. ;    $Revision:   1.0  $
  4. ;    $Date:   13 Jul 1989 12:48:38  $
  5. ;
  6. ;
  7. ;   This script can be used as a tool when developing HyperPilot scripts.
  8. ;   When a script in running and encounters a command that causes that
  9. ;   script to fail, the the script name, and the line number of the
  10. ;   offending command are displayed on the comm screen.  If debug.rdy
  11. ;   is run immediately after this message is displayed, the script that
  12. ;   failed is loaded into the editor with the cursor positioned on the
  13. ;   line that failed.  For ease of use, you may want to assign this script
  14. ;   to a key, such as F1.
  15. ;
  16.  
  17. label(10)
  18.   ifnot screen match("manual control.", 24) branch(980)
  19.  
  20.   ifnot get integer(I(9), "/S(9)") branch(980)
  21.  
  22.   ifnot truncate(S(9), ".HP") branch(980)
  23.  
  24.   type("<ALT-M>ke/S(9)<ENTER><ALT-O>jl/I(9)<ENTER><ALT-L>SS")
  25.  
  26.   end()
  27.  
  28. Label(980)
  29.   prompt("/nDebug could not find error information.")
  30.   end()
  31.