home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a016 / 1.ddi / CLP / BLERRPRG.PRG < prev    next >
Encoding:
Text File  |  1992-03-15  |  2.1 KB  |  67 lines
  1. *****************************************************************
  2. *
  3. *  Program  : BLERRPRG.PRG
  4. *           : Blinker/Clipper Summer '87 Error Handler
  5. *  Date     : 92.03.14
  6. *
  7. *  Compiler : Clipper Summer '87
  8. *  Linker   : Blinker 2.0
  9. *  Compile  : /l
  10. *
  11. *  Note     : Overlaying of this file is NOT recommended, because
  12. *           : if a severe error occurs, it may be impossible to
  13. *           : load this error handler into memory, in which case
  14. *           : the error will never be reported, making debugging
  15. *           : difficult.
  16. * 
  17. extern misc_error
  18. *
  19. private tmperrnum, tmperrmsg
  20. *
  21. tmperrnum = blierrnum ()
  22. *
  23. do case
  24. case tmperrnum = 1201
  25.    tmperrmsg = "unable to find overlay " + blierrprm () + ;
  26.                " in the current PATH"
  27. case tmperrnum = 1202
  28.    tmperrmsg = "DOS read error in file " + blierrprm ()
  29. case tmperrnum = 1203
  30.    tmperrmsg = "file " + blierrprm () + " is not a valid .EXE file"
  31. case tmperrnum = 1204
  32.    tmperrmsg = "overlay file " + blierrprm () + " does not match the .EXE file"
  33. case tmperrnum = 1205
  34.    tmperrmsg = "not enough memory to load procedure"
  35. case tmperrnum = 1206
  36.    tmperrmsg = "maximum procedure nesting depth exceeded"
  37. case tmperrnum = 1207
  38.    tmperrmsg = "demonstration calls limit exceeded"
  39. case tmperrnum = 1208
  40.    tmperrmsg = "demonstration date limit exceeded"
  41. case tmperrnum = 1209
  42.    tmperrmsg = "demonstration time limit exceeded"
  43. case tmperrnum = 1210
  44.    tmperrmsg = "overlay has been prematurely freed"
  45. case tmperrnum = 1211
  46.    tmperrmsg = "overlay manager stack overflow"
  47. case tmperrnum = 1212
  48.    tmperrmsg = "Overlay Opsize exceeded - increase Opsize"
  49. case tmperrnum = 1213
  50.    tmperrmsg = "attempt to call DEFINED routine"
  51. case tmperrnum = 1214
  52.    tmperrmsg = "error accessing EMS overlay cache"
  53. case tmperrnum = 1215
  54.    tmperrmsg = "error accessing XMS overlay cache"
  55. case tmperrnum = 1216
  56.    tmperrmsg = "overlay manager unable to resume"
  57. case tmperrnum = 1217
  58.    tmperrmsg = "overlay vector corrupted during execution"
  59. otherwise
  60.    tmperrmsg = "undefined error"
  61. endcase
  62. *
  63. set color to
  64. @ 1,0
  65. misc_error ("BLINKER", tmperrnum, tmperrmsg, "")
  66. *
  67.