Category : BBS Programs+Doors
Archive   : RBBS-LIT.ZIP
Filename : PCNET.LIT

 
Output of file : PCNET.LIT contained in archive : RBBS-LIT.ZIP
*[PCNET.LIT]******************************************************************
* Description: Provide support for Orchid PC-NET multi node file locking. *
* RBBS-PC Level: CPC17.3 û AM *
* Module Affected: RBBSSUB3.BAS *
* Selection Option: MULTINODE = PCNET *
* Additional files: None *
******************************************************************************
22000 IF ZMsgFileLock = ZTrue THEN _
RETURN
ZMsgFileLock = ZTrue
MID$(ZLockStatus$,1,2) = "LM"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZActiveMessageFile$
IF ZNetworkType > 0 THEN GOTO 22300
RETURN
22100
22200
22300 GOSUB 28100
CALL LPLKIT(ZLockDrive,ZLockFileName$,ZWasA)
RETURN
22400
22500
25000 IF NOT ZMsgFileLock THEN _
RETURN
ZMsgFileLock = ZFalse
MID$(ZLockStatus$,1,2) = "UM"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZActiveMessageFile$
IF ZNetworkType > 0 THEN GOTO 25300
RETURN
25100
25200
25300 GOSUB 28100
CALL UNLOKIT(ZLockDrive,ZLockFileName$,ZWasA)
RETURN
25400
25500
26000 IF ZUserFileLock = ZTrue THEN _
RETURN
ZUserFileLock = ZTrue
MID$(ZLockStatus$,4,2) = "LU"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZActiveUserFile$
IF ZNetworkType > 0 THEN GOTO 22300
RETURN
26100
26200
26300
26500 IF ZUserBlockLock = ZTrue THEN _
RETURN
ZUserBlockLock = ZTrue
ZBlk = (ZUserFileIndex / 4) + .26
MID$(ZLockStatus$,7,2) = "LB"
ZSubParm = 2
CALL Line25
IF ZNetworkType > 0 THEN GOTO 26800
RETURN
26600
26700
26750
26800 ZLockFileName$ = LEFT$(ZActiveUserFile$,2) + _
"BLK" + _
RIGHT$("0000" + MID$(STR$(ZBlk),2),5)
GOTO 22300
26900
27000 IF NOT ZUserFileLock THEN _
RETURN
ZUserFileLock = ZFalse
MID$(ZLockStatus$,4,2) = "UU"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZActiveUserFile$
IF ZNetworkType > 0 THEN GOTO 25300
RETURN
27100
27200
27300
27500 IF NOT ZUserBlockLock THEN _
RETURN
ZUserBlockLock = ZFalse
ZBlk = (ZUserFileIndex / 4) + .26
MID$(ZLockStatus$,7,2) = "UB"
ZSubParm = 2
CALL Line25
IF ZNetworkType > 0 THEN GOTO 27800
RETURN
27600
27700
27750
27800 ZLockFileName$ = LEFT$(ZActiveUserFile$,2) + _
"BLK" + _
RIGHT$("0000" + MID$(STR$(ZBlk),2),5)
GOTO 25300
27900
28000
28010
28100 CALL AllCaps (ZLockFileName$)
ZLockDrive = ASC(LEFT$(ZLockFileName$,1)) - ASC("A")
ZLockFileName$ = ZLockFileName$ + _
STRING$(32 - LEN(ZLockFileName$),0)
ZWasA = 0
RETURN
29000 IF LockedEn$ = ZWasEN$ THEN _
RETURN
LockedEn$ = ZWasEN$
MID$(ZLockStatus$,10,2) = "LD"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZWasEN$
IF ZNetworkType > 0 THEN GOTO 22300
29010 RETURN
29100
29300
29500 IF LockedEn$ <> ZWasEN$ THEN _
RETURN
LockedEn$ = ""
MID$(ZLockStatus$,10,2) = "UD"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZWasEN$
IF ZNetworkType > 0 THEN GOTO 25300
29510 RETURN
29600
29650
29700
29710
29720
29730
29800
29810
29820
29830 END SUB
30000 SUB InitIBM STATIC
END SUB
30020


  3 Responses to “Category : BBS Programs+Doors
Archive   : RBBS-LIT.ZIP
Filename : PCNET.LIT

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/