home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / 173_LIT.ZIP / MLSUB3.LIT < prev    next >
Encoding:
Text File  |  1990-01-13  |  3.8 KB  |  155 lines
  1. *[MLSUB3.LIT]*****************************************************************
  2. * Description: Provides MultiLink support for muti node file locking.        *
  3. * RBBS-PC Level: CPC17.3                                              √ AM Module Affected: RBBSSUB3.BAS                                              *
  4. * Selection Option: MULTINODE = MULTILINK                                    *
  5. * Additional files: None                                                     *
  6. ******************************************************************************
  7. 22000 IF ZMsgFileLock = ZTrue THEN _
  8.          RETURN
  9.       ZMsgFileLock = ZTrue
  10.       MID$(ZLockStatus$,1,2) = "LM"
  11.       ZSubParm = 2
  12.       CALL Line25
  13.       ZLockFileName$ = ZActiveMessageFile$
  14.       IF ZNetworkType > 0 THEN GOTO 22100
  15.       RETURN
  16. 22100 WasAX = &H0
  17.       WasBX = &H1
  18.       IF ZMultiLinkPresent > 0 THEN _
  19.          CALL RBBSML(WasAX,WasBX)
  20.       RETURN
  21. 22200
  22. 22300
  23. 22400
  24. 22500
  25. 25000 IF NOT ZMsgFileLock THEN _
  26.          RETURN
  27.       ZMsgFileLock = ZFalse
  28.       MID$(ZLockStatus$,1,2) = "UM"
  29.       ZSubParm = 2
  30.       CALL Line25
  31.       ZLockFileName$ = ZActiveMessageFile$
  32.       IF ZNetworkType > 0 THEN GOTO 25100
  33.       RETURN
  34. 25100 WasAX = &H100
  35.       WasBX = &H1
  36.       IF ZMultiLinkPresent > 0 THEN _
  37.          CALL RBBSML(WasAX,WasBX)
  38.       RETURN
  39. 25200
  40. 25300
  41. 25400
  42. 25500
  43. 26000 IF ZUserFileLock = ZTrue THEN _
  44.          RETURN
  45.       ZUserFileLock = ZTrue
  46.       MID$(ZLockStatus$,4,2) = "LU"
  47.       ZSubParm = 2
  48.       CALL Line25
  49.       ZLockFileName$ = ZActiveUserFile$
  50.       IF ZNetworkType > 0 THEN GOTO 26100
  51.       RETURN
  52. 26100 WasAX = &H0
  53.       WasBX = &H2
  54.       IF ZMultiLinkPresent > 0 THEN _
  55.          CALL RBBSML(WasAX,WasBX)
  56.       RETURN
  57. 26200
  58. 26300
  59. 26500 IF ZUserBlockLock = ZTrue THEN _
  60.          RETURN
  61.       ZUserBlockLock = ZTrue
  62.       ZBlk = (ZUserFileIndex / 4) + .26
  63.       MID$(ZLockStatus$,7,2) = "LB"
  64.       ZSubParm = 2
  65.       CALL Line25
  66.       IF ZNetworkType > 0 THEN GOTO 26600
  67.       RETURN
  68. 26600 WasAX = &H0
  69.       WasBX = ZBlk + 10
  70.       IF ZMultiLinkPresent > 0 THEN _
  71.          CALL RBBSML(WasAX,WasBX)
  72.       RETURN
  73. 26700
  74. 26750
  75. 26800
  76. 26900
  77. 27000 IF NOT ZUserFileLock THEN _
  78.          RETURN
  79.       ZUserFileLock = ZFalse
  80.       MID$(ZLockStatus$,4,2) = "UU"
  81.       ZSubParm = 2
  82.       CALL Line25
  83.       ZLockFileName$ = ZActiveUserFile$
  84.       IF ZNetworkType > 0 THEN GOTO 27100
  85.       RETURN
  86. 27100 WasAX = &H100
  87.       WasBX = &H2
  88.       IF ZMultiLinkPresent > 0 THEN _
  89.          CALL RBBSML(WasAX,WasBX)
  90.       RETURN
  91. 27200
  92. 27300
  93. 27500 IF NOT ZUserBlockLock THEN _
  94.          RETURN
  95.       ZUserBlockLock = ZFalse
  96.       ZBlk = (ZUserFileIndex / 4) + .26
  97.       MID$(ZLockStatus$,7,2) = "UB"
  98.       ZSubParm = 2
  99.       CALL Line25
  100.       IF ZNetworkType > 0 THEN GOTO 27600
  101.       RETURN
  102. 27600 WasAX = &H100
  103.       WasBX = ZBlk + 10
  104.       IF ZMultiLinkPresent > 0 THEN _
  105.          CALL RBBSML(WasAX,WasBX)
  106.       RETURN
  107. 27700
  108. 27750
  109. 27800
  110. 27900
  111. 28000
  112. 28010
  113. 28100
  114. 29000 IF LockedEn$ = ZWasEN$ THEN _
  115.          RETURN
  116.       LockedEn$ = ZWasEN$
  117.       MID$(ZLockStatus$,10,2) = "LD"
  118.       ZSubParm = 2
  119.       CALL Line25
  120.       ZLockFileName$ = ZWasEN$
  121.       IF ZNetworkType > 0 THEN GOTO 29100
  122. 29010 RETURN
  123. 29100 WasAX = &H0
  124.       WasBX = &H3
  125.       IF ZMultiLinkPresent > 0 THEN _
  126.          CALL RBBSML(WasAX,WasBX)
  127.       RETURN
  128. 29300
  129. 29500 IF LockedEn$ <> ZWasEN$ THEN _
  130.          RETURN
  131.       LockedEn$ = ""
  132.       MID$(ZLockStatus$,10,2) = "UD"
  133.       ZSubParm = 2
  134.       CALL Line25
  135.       ZLockFileName$ = ZWasEN$
  136.       IF ZNetworkType > 0 THEN GOTO 29600
  137. 29510 RETURN
  138. 29600 WasAX = &H100
  139.       WasBX = &H3
  140.       IF ZMultiLinkPresent > 0 THEN _
  141.          CALL RBBSML(WasAX,WasBX)
  142.       EXIT SUB
  143. 29650
  144. 29700
  145. 29710
  146. 29720
  147. 29730
  148. 29800
  149. 29810
  150. 29820
  151. 29830 END SUB
  152. 30000 SUB InitIBM STATIC
  153.       END SUB
  154. 30020
  155.