home *** CD-ROM | disk | FTP | other *** search
- ' $linesize:132
- ' $title: 'RBBSSUB2.BAS CPC17.3, Copyright 1986 - 90 by D. Thomas Mack'
- ' Copyright 1990 by D. Thomas Mack, all rights reserved.
- ' Name ...............: RBBSSUB2.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 64WasK code segment used by RBBS-PC.BAS.
- ' Parameters..........: Most parameters are passed via a COMMON statement.
- '
- ' Subroutine Line Function of Subroutine
- ' Name Number
- ' Macro 1320 Check/execute macro
- ' AnswerIt 200 Answer the telephone when it rings
- ' ASCIICodes 129 Allow a CONFIG string to have any ASCII value
- ' BadChar 455 Check user name for invalid characters
- ' BadName 20235 Check for system crash attempt with bad file name
- ' Baud450 5507 Allow 300 baud callers to bump up to 450 baud
- ' CheckRatio 20096 Test upload/download ratio
- ' CheckMacro 1242 Checks for macro and processes
- ' CopyRight 97 Display RBBS-PC's copyright notice
- ' DEFALTU 9600 Write out the user's defaults
- ' DenyAccess 1386 Downgrade security so access denied
- ' DoorExit 10983 Set up a .BAT file to exit RBBS-PC to a "door"
- ' DosExit 10934 Set up a .BAT file to exit to DOS (second level)
- ' EditALine 2618 Edits a single line
- ' EditDef 120 Edit configuration parameters
- ' FileNameCheck 20240 Matches file name to a prefix & extension
- ' GetArc 20140 Handle request for verbose listing
- ' GetCommand 101 Get RBBS-PC's node id from command line
- ' GetTime 9140 Calculates callers elapsed time (hh,mm,ss)
- ' GoIdle 90 Release resources when waiting for keyboard input
- ' KillMsg 3952 Delete old or unnecessary messages
- ' Line25 945 Build and/or update line 25 of RBBS-PC's local screen
- ' LineEdit 3700 Edit a line while minimizing string space consumption
- ' LogError 13660 Log error message to CALLERS file
- ' LPrnt 1480 Subroutine to write to local display
- ' MLInit 8 Handle MultiLink initialization/de-initialization
- ' MsgProt 2055 Sets protection for a message
- ' MessageTo 2018 Sets who a message is to
- ' PageLen 5200 Change page length ' KG010402
- ' ParseIt 1637 Parses a string
- ' PassWrd 660 Verify user & message passwords
- ' PopCmdStack 1650 Get user input, 1st checking command stack ' KG010402
- ' PScrn 1483 Print to display
- ' QuickLPrnt 1482 Quickly writes count of blocks on file transfer
- ' QuickTPut 1478 Fast, but limited, "TPut" equivalent
- ' QuickTPut1 1478 Outputs short string following by CR LF ' KG010706
- ' RBBSExit 10992 RBBS-PC exit to transfer control to other programs
- ' RecoverMsg 10410 Recover a deleted message
- ' RemNonAlf 5100 Removes non-alpha characters from a string
- ' RingCaller 1636 Ring caller's bell and put message in emphasis
- ' SetBaud 1654 Set baud rate in the 8250 chip of the RS232 interface
- ' SetCrLf 1496 Set up the necessary carriage return/line feed string
- ' SetSection 12000 Set the proper section prompts (main, file, util, libr)
- ' SetThread 4554 Set up request for threading thru messages
- ' SkipLine 1485 Write a # of blank lines to the communications port
- ' SearchCmd 1238 Searches list of commands in RBBS for a request
- ' SecViolation 1380 Process a security violation
- ' SysMenu 112 Displays sysop menu/status
- ' SysopChat 4773 Sysop and caller chat
- ' TestRel 336 Tests for Reliable connect
- ' TGet 1498 Read a line from the communications port
- ' TPut 1396 Write a line to the communications port
- ' Trim 105 Strip leading and trailing blanks from a string
- ' TrimTrail 107 Strip off specified string off end of another string
- ' UntilRight 12878 Ask a question until user says answer is right
- ' UpdateU 10600 Updates the user record on loging off/exiting RBBS-PC
- ' VarInit 109 Initialize system variables
- ' ViewHelp 1330 Processes help command
- ' WhoCheck 2250 Checks whether a user exists in user file
- ' WhosOn 9801 Report status of each node - who's on
- ' WordInFile 10976 Find a whole word within a file/menu
- '
- ' $INCLUDE: 'RBBS-VAR.BAS'
- '
-