home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / 173_LIT.ZIP / OUTDEF2.LIT < prev    next >
Encoding:
Text File  |  1990-01-28  |  4.6 KB  |  154 lines
  1. *[OUTDEF2.LIT]****************************************************************
  2. * Description: Puts READDEF in module with no error checking                 *
  3. * RBBS-PC Level: CPC17.3                                                     *
  4. * Module Affected: RBBSSUB1.BAS                                              *
  5. * Selection Option: DEFERROR = OFF                                           *
  6. * Additional files: OUTDEF.LIT,INDEF.LIT                                     *
  7. ******************************************************************************
  8. 65000 IF ZDebug THEN _
  9.          ZOutTxt$ = "RBBSSUB1 DEBUG Error Trap Entry ERL=" + _
  10.               STR$(ERL) + _
  11.               " ERR=" + _
  12.               STR$(ERR) : _
  13.          IF ZPrinter THEN _
  14.             CALL Printit(ZOutTxt$) _
  15.          ELSE CALL LPrnt(ZOutTxt$,1)
  16.       ZErrCode = ERR
  17. '
  18. '     SetCall
  19. '
  20.       IF ERL = 110 THEN _
  21.           RESUME NEXT
  22. '
  23. '     OPEN COM PORT ERROR HANDLING
  24. '
  25.       IF ERL = 200 THEN _
  26.          CLS : _
  27.          CALL PScrn (ZComPort$ + " does not exist/not responding- Error" + STR$(ERR)) : _
  28.          STOP
  29. '
  30. '     GetCom ERROR HANDLING
  31. '
  32.        IF ERL = 1420 AND ERR = 57 THEN _
  33.           RESUME NEXT
  34.        IF ERL = 1420 AND ERR = 69 THEN _
  35.           ZSubParm = -1 :_
  36.           RESUME NEXT
  37. '
  38. '      OPENRESEQ ERROR HANDLING
  39. '
  40.        IF ERL = 1481 THEN _
  41.            ZErrCode = ERR : _
  42.            RESUME NEXT
  43. '
  44. '      OpenUser ERROR HANDLING
  45. '
  46.        IF ERL = 9400 AND ERR = 75 AND ZShareIt THEN _
  47.           CALL DelayTime (30) : _
  48.           RESUME
  49. '
  50. '      FindUser ERROR HANDLING
  51. '
  52.        IF ERL = 12610 THEN _
  53.           RESUME NEXT
  54. '
  55. '     UpdtCalr ERROR HANDLING
  56. '
  57.        IF ERL = 13663 THEN _
  58.           RESUME NEXT
  59.        IF ERL = 13672 AND ERR = 61 THEN _
  60.           CALL QuickTPut1 ("Disk Full") : _
  61.           IF ZDiskFullGoOffline THEN _
  62.              GOTO 65010 _
  63.           ELSE RESUME NEXT
  64.        IF ERL = 13672 THEN _
  65.           ZCallersFileIndex! = ZCallersFileIndex! - 1 : _
  66.           RESUME NEXT
  67. '
  68. '     ZPrinter ERROR HANDLING
  69. '
  70.        IF ERL = 13674 THEN _
  71.           ZPrinter = ZFalse : _
  72.           RESUME
  73. '
  74. '      ChangeDir ERROR HANDLING
  75. '
  76.        IF ERL = 20103 THEN _
  77.           ZOK = ZFalse : _
  78.           RESUME NEXT
  79. '
  80. '     FindIt ERROR HANDLING
  81. '
  82.        IF ERL = 20221 THEN _
  83.           RESUME NEXT
  84.        IF ERL = 20223 AND ZErrCode = 58 THEN _
  85.           ZErrCode = 64 : _
  86.           ZOK = ZFalse : _
  87.           RESUME NEXT
  88.        IF ERL = 20223 AND ZErrCode = 76 THEN _
  89.           CALL LPrnt("Bad path.  File name is " + FilName$,1) : _
  90.           ZErrCode = 76 : _
  91.           ZOK = ZFalse : _
  92.           RESUME NEXT
  93.        IF ERL => 20221 AND ERL <= 20223 AND ZErrCode = 70 _
  94.           AND ZNetworkType = 6 THEN _
  95.              ZErrCode = 0 : _
  96.              RESUME NEXT
  97.        IF ERL => 20221 AND ERL <= 20223 THEN _
  98.           RESUME
  99. '
  100. '     FlushCom ERROR HANDLING
  101. '
  102.        IF ERL = 20311 AND ERR = 57 THEN _
  103.           RESUME NEXT
  104.        IF ERL = 20311 AND ERR = 69 THEN _
  105.           ZAbort = ZTrue : _
  106.           ZSubParm = -1 : _
  107.           RESUME NEXT
  108. '
  109. '     NetBIOS ERROR HANDLING
  110. '
  111.        IF ERL => 29900 AND ERL <= 29920 THEN _
  112.           RESUME NEXT
  113. '
  114. '     UpdateC ERROR HANDLING
  115. '
  116.       IF ERL => 43050 AND ERL <= 43060 AND ERR = 61 THEN _
  117.          ZOutTxt$ = "* Disk full - terminating *" : _
  118.          ZSubParm =2 : _
  119.          CALL TPut : _
  120.          IF ZDiskFullGoOffline THEN _
  121.            GOTO 65010 _
  122.          ELSE SYSTEM
  123. '
  124. '     CheckInt ERROR HANDLING
  125. '
  126.        IF (ERL = 59652 OR ERL = 59727) AND ERR = 24 THEN _
  127.           ZNotCTS = ZTrue : _
  128.           CALL Line25 : _
  129.           ZErrCode = 0 : _
  130.           RESUME
  131.        IF ERL => 52000 AND ERL <= 59725 THEN _
  132.           RESUME NEXT
  133. '
  134. '     FindFile ERROR HANDLING
  135. '
  136.        IF ERL = 59791 THEN _                                         ' KG012802
  137.           IF ERR = 57 THEN _                                         ' AC012601
  138.              CALL DelayTime (1) : _                                  ' AC012601
  139.              CALL UpdtCalr ("SLOW I/O ERROR",1) : _                  ' AC012601
  140.              IOErrorCount = IOErrorCount + 1 : _                     ' AC012601
  141.              IF IOErrorCount < 11 THEN _                             ' AC012601
  142.                 RESUME                                               ' AC012601
  143. '
  144. '     CATCH ALL OTHER ERRORS
  145. '
  146.        ZOutTxt$ = "RBBS-SUB1 Untrapped Error" + _
  147.             STR$(ERR) + _
  148.             " in line" + _
  149.             STR$(ERL)
  150.        CALL QuickTPut1 (ZOutTxt$)
  151.        CALL UpdtCalr (ZOutTxt$,2)
  152.        RESUME NEXT
  153. '     SHARED ROUTINE FOR GOING OFF LINE WHEN DISK FULL
  154.