home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
t
/
tellthem.zip
/
TELLTHEM.MOD
< prev
next >
Wrap
Text File
|
1989-06-12
|
2KB
|
54 lines
Here is some code that can be plugged into RBBSSUB5.BAS
(only code between the "*****" need be added,
the rest is for reference only ---- )
that will allow you to display a text file to the Downloader
just before the Download begins...the file is bypasses if
user does NOT have enough time left or the file is a Personall Download
the filename TELTHEM.DEF can be changed to anything you want...
(this one just poped into my head )
supports Smart Text and is NON INTERRUPTABLE
If the File "TELTHEM.DEF is NOT present routine is skipped
also the file needs to be were you have your Welcome files
since the calls to display the file are made thru "CALL BUFFILE" graphics
versions are supported by adding the "G" or "C" for ANSI graphics version
This mod is for Maple version of RBBS but should work in any version
of RBBS 17
20791 IF PERSONAL.DOWNLOAD THEN _
RETURN
CALL CHKTREMAIN (TIME.REMAINING!)
IF SUBROUTINE.PARAMETER = -1 THEN _
FILESYS.PARAMETER = 6 : _
RETURN
OK = TRUE
IF (INT(BLOCKS.IN.FILE# / 60) + 1) > INT(TIME.REMAINING!) THEN _
A$ = "Not enough time left!" : _
CALL UPDTCALR (FILE.NAME$ + " " + A$,2) : _
CALL QTPUT (A$,1): _
A$ = "" : _
OK = FALSE : _
RETURN
'****************************** Add This code only ************************
'
NOTIFY$ = WELCOME.FILE.DRV.PATH$ + _
"TELTHEM.DEF" 'Pe 06/12/89
STOP.INTERRUPTS = TRUE 'Pe 06/12/89
CALL BUFFILE (NOTIFY$,X) 'Pe 06/12/89
'
'********************** END OF MOD **************************************
CALL AUTOLOGOFF 'Autologoff mod
CALL CHECKRATIO (TRUE)
RETURN
20810 CALL SETABORT (DELAY!,6)
EnjoY !!!
Pete Eibl <Maple Street BBS (414-771-2805 ) 1200 - 9600 Baud HST