home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / RCHAT300.ZIP / RSB1CHAT.MRG < prev    next >
Encoding:
Text File  |  1990-08-28  |  6.9 KB  |  205 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against OLD\RBBSSUB1.BAS to produce RBBSSUB1.BAS
  3. * OLD\RBBSSUB1.BAS:  Date 8-26-1990  Size 54169 bytes
  4. * ------------[ Created 08-28-1990 14:10:12 ]------------
  5. * REPLACING old line(s) by new
  6. 59791 IF FExists THEN _
  7.          IOErrorCount = 0 : _
  8.          CALL RBBSFind (FilName$,WasZ,WasY,WasM,WasD) : _
  9.          FExists = (WasZ = 0)
  10.       END SUB
  11. * ------[ first line different ]------
  12.  
  13. * INSERTING new line(s)
  14. 59800 SUB OpenWrk9 (ChatFileName$) STATIC                            ' CHAT0805
  15.       ON ERROR GOTO 65000                                            ' CHAT0805
  16.       IF ZShareIt THEN                                               ' CHAT0805
  17.          OPEN ChatFileName$ FOR RANDOM ACCESS READ WRITE SHARED AS #9 LEN = 128
  18.        ELSE                                                          ' CHAT0805
  19.          OPEN ChatFileName$ FOR RANDOM AS #9 LEN = 128               ' CHAT0805
  20.       END IF                                                         ' CHAT0805
  21.       END SUB                                                        ' CHAT0805
  22.                                                                      ' CHAT0805
  23. 59810 SUB LockIt9 (Record, ReadIt) STATIC                            ' CHAT0805
  24.       ON ERROR GOTO 65000                                            ' CHAT0805
  25.       LOCK 9, Record                                                 ' CHAT0805
  26.       IF ReadIt THEN                                                 ' CHAT0805
  27.          GET 9, Record                                               ' CHAT0805
  28.        ELSE                                                          ' CHAT0805
  29.          PUT 9, Record                                               ' CHAT0805
  30.       END IF                                                         ' CHAT0805
  31.       UNLOCK 9, Record                                               ' CHAT0805
  32.       END SUB                                                        ' CHAT0805
  33.  
  34. '  $SUBTITLE: 'Error Handling for separately compiled subroutines'
  35. '  $PAGE
  36. '
  37. '
  38. ' Error handling for the separately compiled subroutines of RBBS-PC
  39. '
  40. '
  41. * REPLACING old line(s) by new
  42. 65000 IF ZDebug THEN _
  43.          ZOutTxt$ = "RBBSSUB1 DEBUG Error Trap Entry ERL=" + _
  44.               STR$(ERL) + _
  45.               " ERR=" + _
  46.               STR$(ERR) : _
  47.          IF ZPrinter THEN _
  48.             CALL Printit(ZOutTxt$) _
  49.          ELSE CALL LPrnt(ZOutTxt$,1)
  50.       ZErrCode = ERR
  51. '
  52. '     SetCall
  53. '
  54.       IF ERL = 108 THEN _
  55.          CALL PScrn ("Unable to create callers log " + ZCallersFile$) : _ ' KG081602
  56.          SYSTEM                                                      ' KG081602
  57.       IF ERL = 110 THEN _
  58.           RESUME NEXT
  59. '
  60. '     OPEN CONFIG FILE
  61. '
  62.        IF ERL => 117 AND ERL <= 119 THEN _
  63.           RESUME NEXT
  64. '
  65. '     OPEN COM PORT ERROR HANDLING
  66. '
  67.       IF ERL = 200 THEN _
  68.          CLS : _
  69.          CALL PScrn (ZComPort$ + " does not exist/not responding- Error" + STR$(ERR)) : _
  70.          STOP
  71. '
  72. '     GetCom ERROR HANDLING
  73. '
  74.        IF ERL = 1420 AND ERR = 57 THEN _
  75.           RESUME NEXT
  76.        IF ERL = 1420 AND ERR = 69 THEN _
  77.           ZSubParm = -1 :_
  78.           RESUME NEXT
  79. '
  80. '      OPENRESEQ ERROR HANDLING
  81. '
  82.        IF ERL = 1481 THEN _
  83.            ZErrCode = ERR : _
  84.            RESUME NEXT
  85. '
  86. '      OpenUser ERROR HANDLING
  87. '
  88.        IF ERL = 9400 AND ERR = 75 AND ZShareIt THEN _
  89.           CALL DelayTime (30) : _
  90.           RESUME
  91. '
  92. '      FindUser ERROR HANDLING
  93. '
  94.        IF ERL = 12610 OR ERL = 12600 THEN _                          ' KG061001
  95.           RESUME NEXT
  96. '
  97. '     UpdtCalr ERROR HANDLING
  98. '
  99.        IF ERL = 13663 THEN _
  100.           RESUME NEXT
  101.        IF ERL = 13672 AND ERR = 61 THEN _
  102.           CALL QuickTPut1 ("Disk Full") : _
  103.           IF ZDiskFullGoOffline THEN _
  104.              GOTO 65010 _
  105.           ELSE RESUME NEXT
  106.        IF ERL = 13672 THEN _
  107.           ZCallersFileIndex! = ZCallersFileIndex! - 1 : _
  108.           RESUME NEXT
  109. '
  110. '     ZPrinter ERROR HANDLING
  111. '
  112.        IF ERL = 13674 THEN _
  113.           ZPrinter = ZFalse : _
  114.           RESUME
  115. '
  116. '      ChangeDir ERROR HANDLING
  117. '
  118.        IF ERL = 20103 THEN _
  119.           ZOK = ZFalse : _
  120.           RESUME NEXT
  121. '
  122. '     FindIt ERROR HANDLING
  123. '
  124.        IF ERL = 20221 THEN _
  125.           RESUME NEXT
  126.        IF ERL = 20223 AND ZErrCode = 58 THEN _
  127.           ZErrCode = 64 : _
  128.           ZOK = ZFalse : _
  129.           RESUME NEXT
  130.        IF ERL = 20223 AND ZErrCode = 76 THEN _
  131.           CALL LPrnt("Bad path.  File name is " + FilName$,1) : _
  132.           ZErrCode = 76 : _
  133.           ZOK = ZFalse : _
  134.           RESUME NEXT
  135.        IF ERL => 20221 AND ERL <= 20223 AND ZErrCode = 70 _
  136.           AND ZNetworkType = 6 THEN _
  137.              ZErrCode = 0 : _
  138.              RESUME NEXT
  139.        IF ERL => 20221 AND ERL <= 20223 THEN _
  140.           RESUME
  141. '
  142. '     FlushCom ERROR HANDLING
  143. '
  144.        IF ERL = 20311 AND ERR = 57 THEN _
  145.           RESUME NEXT
  146.        IF ERL = 20311 AND ERR = 69 THEN _
  147.           ZAbort = ZTrue : _
  148.           ZSubParm = -1 : _
  149.           RESUME NEXT
  150. '
  151. '     NetBIOS ERROR HANDLING
  152. '
  153.        IF ERL => 29900 AND ERL <= 29920 THEN _
  154.           RESUME NEXT
  155. '
  156. '     UpdateC ERROR HANDLING
  157. '
  158.       IF ERL => 43050 AND ERL <= 43060 AND ERR = 61 THEN _
  159.          ZOutTxt$ = "* Disk full - terminating *" : _
  160.          ZSubParm =2 : _
  161.          CALL TPut : _
  162.          IF ZDiskFullGoOffline THEN _
  163.            GOTO 65010 _
  164.          ELSE SYSTEM
  165. '
  166. '     CheckInt ERROR HANDLING
  167. '
  168.        IF (ERL = 59652 OR ERL = 59727) AND ERR = 24 THEN _
  169.           ZNotCTS = ZTrue : _
  170.           CALL Line25 : _
  171.           ZErrCode = 0 : _
  172.           RESUME
  173.        IF ERL => 52000 AND ERL <= 59725 THEN _
  174.           RESUME NEXT
  175. '
  176. '     FindFile ERROR HANDLING
  177. '
  178.        IF ERL = 59791 THEN _
  179.           IF ERR = 57 THEN _
  180.              CALL DelayTime (1) : _
  181.              CALL UpdtCalr ("SLOW I/O ERROR",1) : _
  182.              IOErrorCount = IOErrorCount + 1 : _
  183.              IF IOErrorCount < 11 THEN _
  184.                 RESUME
  185. * ------[ first line different ]------
  186.  
  187.       IF ERL = 59800 AND ERR = 70 THEN                               ' CHAT0805
  188.          RESUME NEXT                                                 ' CHAT0805
  189.       END IF                                                         ' CHAT0805
  190.                                                                      ' CHAT0805
  191.       IF ERL = 59810 AND ERR = 70 THEN                               ' CHAT0805
  192.          RESUME NEXT                                                 ' CHAT0805
  193.       END IF                                                         ' CHAT0805
  194. '
  195. '     CATCH ALL OTHER ERRORS
  196. '
  197.        ZOutTxt$ = "RBBS-SUB1 Untrapped Error" + _
  198.             STR$(ERR) + _
  199.             " in line" + _
  200.             STR$(ERL)
  201.        CALL QuickTPut1 (ZOutTxt$)
  202.        CALL UpdtCalr (ZOutTxt$,2)
  203.        RESUME NEXT
  204. '     SHARED ROUTINE FOR GOING OFF LINE WHEN DISK FULL
  205.