home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
1
/
173adwnf.zip
/
NOTROH-A.SB4
< prev
next >
Wrap
Text File
|
1990-02-15
|
2KB
|
55 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against C:\CPC17-3A\RBBSSUB4.BAS to produce RBBSSB4-.BAS
* C:\CPC17-3A\RBBSSUB4.BAS: Date 2-11-1990 Size 120641 bytes
* ------------[ Created 02-14-1990 18:24:34 ]------------
* REPLACING old line(s) by new
57010 IF ZAutoDownDesired THEN _
* ------[ first line different ]------
ZAutoDownYes = ZFalse : _
GOTO 57020
' IF NOT ZAutoDownVerified THEN _ 'RH021501
CALL TestUser
IF NOT ZAutoDownYes THEN _
CALL QuickTPut1 ("Your comm pgm does not support AUTODOWNLOAD") : _
ZAutoDownDesired = ZTrue
* REPLACING old line(s) by new
* ------[ first line different ]------
57030 IF ZAutoDownYes THEN ZAutoDownDesired = ZTrue 'RH021501
IF NOT ZAutoDownYes THEN ZAutoDownDesired = ZFalse 'RH021501
ZOutTxt$ = "Autodownload " + FNOffOn$(ZAutoDownDesired)
CALL QuickTPut1 (ZOutTxt$)
RETURN
* REPLACING old line(s) by new
59400 ' $SUBTITLE: 'LogPDown -- subroutine to record private downloads'
' $PAGE
'
' NAME -- LogPDown
'
' INPUTS -- PARAMETER MEANING
'
' OUTPUTS --
'
' PURPOSE -- Puts a "!" in place of an "*" in private directory
' after downloaded
'
* ------[ first line different ]------
SUB LogPDown (PrivateDnld,ZAnsIndex) STATIC 'RH021501
IF NOT PrivateDnld THEN _
EXIT SUB
ZWasEN$ = ZPersonalDir$
WasBX = &H4
ZSubParm = 9
CALL FileLock
WasL = 36 + ZMaxDescLen + ZPersonalLen
CLOSE 2
IF ZShareIt THEN _
OPEN ZWasEN$ FOR RANDOM SHARED AS #2 LEN=WasL _
ELSE OPEN "R",2,ZPersonalDir$,WasL
FIELD #2,WasL AS PersonalRec$
ZWasA = VAL(MID$(ZUserIn$(0),5 * (ZAnsIndex - 1) + 1,5)) 'RH021501
GET #2,ZWasA
MID$(PersonalRec$,WasL-2,1) = "!"
PUT #2,ZWasA
CALL UnLockAppend
END SUB