Category : BBS Programs+Doors
Archive : RBBS-LIT.ZIP
Filename : NETBIOS.LIT
Output of file : NETBIOS.LIT contained in archive : RBBS-LIT.ZIP
* Description: Provide support for NETBIOS multi node file locking *
* RBBS-PC Level: CPC17.3 û AM *
* Module Affected: RBBSSUB3.BAS *
* Selection Option: MULTINODE = NETBIOS *
* Additional files: NETBOFF.LIT *
******************************************************************************
22000 IF ZMsgFileLock = ZTrue THEN _
RETURN
ZMsgFileLock = ZTrue
MID$(ZLockStatus$,1,2) = "LM"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZActiveMessageFile$
IF ZNetworkType > 0 THEN GOTO 29700
RETURN
22100
22200
22300
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 29800
RETURN
25100
25200
25300
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 29720
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 29730
RETURN
26600
26700
26750
26800
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 29820
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 29830
RETURN
27600
27700
27750
27800
27900
28000
28010
28100
29000 IF LockedEn$ = ZWasEN$ THEN _
RETURN
LockedEn$ = ZWasEN$
MID$(ZLockStatus$,10,2) = "LD"
ZSubParm = 2
CALL Line25
ZLockFileName$ = ZWasEN$
IF ZNetworkType > 0 THEN GOTO 29710
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 29810
29510 RETURN
29600
29650
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/