home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a016 / 1.ddi / BAS / BLERRPRG.BAS next >
Encoding:
BASIC Source File  |  1992-03-15  |  1.9 KB  |  63 lines
  1. '****************************************************************
  2. '
  3. '  Program  : BLERRBAS BAS
  4. '           : MS PDS 7.1 Error Handler
  5. '  Date     : 92.03.14
  6. '
  7. '  Compiler : Microsoft Basic PDS 7.1
  8. '  Linker   : Blinker 2.0
  9. '  Compile  : BC blerrbas /O;
  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. '
  18. '
  19. tmperrnum% = blierrnum%
  20. '
  21. select case tmperrnum%
  22. case 1201
  23.    tmperrmsg$ = "unable to find overlay " + blierrprmbas$ + " in the current PATH"
  24. case 1202
  25.    tmperrmsg$ = "DOS read error in file " + blierrprmbas$
  26. case 1203
  27.    tmperrmsg$ = "file " + blierrprmbas% + " is not a valid .EXE file"
  28. case 1204
  29.    tmperrmsg$ = "overlay file " + blierrprmbas$ + " does not match the .EXE file"
  30. case 1205
  31.    tmperrmsg$ = "not enough memory to load procedure"
  32. case 1206
  33.    tmperrmsg$ = "maximum procedure nesting depth exceeded"
  34. case 1207
  35.    tmperrmsg$ = "demonstration calls limit exceeded"
  36. case 1208
  37.    tmperrmsg$ = "demonstration date limit exceeded"
  38. case 1209
  39.    tmperrmsg$ = "demonstration time limit exceeded"
  40. case 1210
  41.    tmperrmsg$ = "overlay has been prematurely freed"
  42. case 1211
  43.    tmperrmsg$ = "overlay manager stack overflow"
  44. case 1212
  45.    tmperrmsg$ = "Overlay Opsize exceeded - increase Opsize"
  46. case 1213
  47.    tmperrmsg$ = "attempt to call DEFINED routine"
  48. case 1214
  49.    tmperrmsg$ = "error accessing EMS overlay cache"
  50. case 1215
  51.    tmperrmsg$ = "error accessing XMS overlay cache"
  52. case 1216
  53.    tmperrmsg$ = "overlay manager unable to resume"
  54. case 1217
  55.    tmperrmsg$ = "overlay vector corrupted during execution"
  56. case else
  57.    tmperrmsg$ = "undefined error"
  58. end select
  59. '
  60. cls
  61. print "BLINKER", tmperrnum%, tmperrmsg$
  62. stop
  63.