home *** CD-ROM | disk | FTP | other *** search
- ' $linesize:132
- ' $title: 'RBBSSUB3.BAS CPC17.3, Copyright 1986 - 90 by D. Thomas Mack'
- ' Copyright 1990 by D. Thomas Mack, all rights reserved.
- ' Name ...............: RBBSSUB3.BAS
- ' First Released .....: January 14, 1990
- ' Subsequent Releases.:
- ' Copyright ..........: 1986 - 1990
- ' Purpose.............: The Remote Bulletin Board System for the IBM PC,
- ' RBBS-PC.BAS utilizes a lot of common subroutines. Those that do not
- ' require error trapping are incorporated within RBBSSUB 2-5 as
- ' separately callable subroutines in order to free up as much
- ' code as possible within the 64K code segment used by RBBS-PC.BAS.
- ' Parameters..........: Most parameters are passed via a COMMON statement.
- '
- ' Subroutine Line Function of Subroutine
- ' Name Number
- ' AllCaps 58050 Convert a string to all upper case characters
- ' AMorPM 41498 Calculate the current time as AM or PM
- ' AskGraphics 43004 Determine users graphic default
- ' BadFile 20741 Check for system crash attempt with bad device name
- ' Carrier 42000 Test for whether to continue in RBBS ' KG080501
- ' CheckRatio 20096 Test upload/download ratio
- ' CheckTime 58070 Test to insure that users don't exceed their time
- ' CheckCarrier 42005 Checks whether still have carrier ' KG080501
- ' CheckNewBul 58110 Check for new bulletins based on their file creation date
- ' CheckTimeRemain 41008 Set up to log off if time exceeded
- ' CommInfo 44020 Get users baud rate and parity in a string format
- ' CountLines 58160 Count categories a file can be classified into
- ' CountNewFiles 58150 Check for number of files uploaded after a specific date
- ' DelayTime 50495 Wait number of seconds specified before returning
- ' DispCall 57001 Display callers file
- ' DispTimeRemain 41032 Compute and display time remaining
- ' DispUpDir 58165 Display the shared directory of the FMS mng. sys.
- ' FileLock 21993 Allow files to be shared among multiple RBBS-PC's
- ' FindFKey 30595 Handle local keyboard's function & ZSysop's keys
- ' FindLast 58600 Finds last occurence of a string in a string
- ' FlushKeys 35000 Completely flush all user input
- ' Graphic 43031 Determines if graphic ver of file exists, opens as #2 ' KG010402
- ' GraphicX 43031 Determines if graphic ver of file exists, any file # ' KG010402
- ' HashRBBS 58080 "Hash" to a user's record in the USERS file
- ' InitFMS 58162 Initialize the RBBS-PC's File Management System
- ' InitIBM 30000 Open/create NetBIOS semaphore file
- ' AddCommas 58130 Format commands in the command prompt
- ' Library 21105 Provide support for "library" drives
- ' LinesInFile 58161 Counts lines in a file
- ' LoadNew 58140 Find the latest uploads
- ' ModemPut 52070 Write a modem command string to the modem
- ' NameCaps 58060 Convert a string to Proper Case (for name output) ' DA111106
- ' OpenMsg 30500 Open the messages file as file number 1
- ' PageUp 33202 Display user info. on local screen for ZSysop
- ' ReadProf 44000 Read user's profile on return from a "door"
- ' SaveProf 43068 Save the user's provile when exiting to "doors" or DOS
- ' SendName 20293 Send filename via EXEC-PC protocol during autodownload
- ' SetOpts 58100 Set correct prompt line for each subsystem
- ' SortString 58120 Sort characters in a string
- ' TestUser 20310 Check if user's software can do auto downloading
- ' TimeRemain 41010 Compute time remaining in minutes
- ' UpdtUpload 20705 Updates upload directory file
- ' WildFile 20290 Determines whether string matches a pattern
- ' XferType 21600 Identify the file transfer protocol
- '
- ' $INCLUDE: 'RBBS-VAR.BAS'
- '
-