home *** CD-ROM | disk | FTP | other *** search
- ' $linesize:132
- ' $title: 'RBBS-SUB1.BAS CPC17.3, Copyright 1986-90 by D. Thomas Mack'
- ' Copyright 1990 by D. Thomas Mack, all rights reserved.
- ' Name ...............: RBBSSUB1.BAS
- ' First Released .....: January 14, 1989
- ' Subsequent Releases.:
- ' Copyright ..........: 1986-1990
- ' Purpose.............:
- ' Subprorams that require error trapping are incorporated
- ' within RBBSSUB1.BAS 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
- ' ChangeDir 20101 Change subdirectory
- ' CheckInt 58360 Check input is valid integer
- ' CommPut 59275 Write string to communications port
- ' FindFree 51098 Find amount of space on the upload disk drive
- ' FINDITX 20219 Find if a file exists on a device ' KG061001
- ' FindUser 12598 Find a user in the USERS file
- ' FlushCom 20308 Read all characters in the communications port
- ' GetCom 1418 Read a character from the communications port
- ' GetPassword 58280 Read RBBS-PC's "PASSWORD" file
- ' GETWRK 58330 Read record from file number 2
- ' KillWork 58258 Delete a RBBS-PC "WORK" file
- ' NetBIOS 20898 Lock/Unlock NetBIOS semaphore files
- ' OpenCom 200 Open communications port (number 3)
- ' OpenFMS 58188 Open the upload management system directory
- ' OpenOutW 28218 Open RBBS-PC's "WORK" file (number 2) for output
- ' OpenRSeq 1479 Open a sequential file (number 2) for random I/O
- ' OpenUser 9398 Open the USER file (number 5)
- ' OpenWork 57978 Open RBBS-PC's work file (number 2)
- ' OpenWorkA 58340 Open RBBS-PC's "WORK" file (number 2) for append
- ' Printit 13673 Print line on the local PC printer
- ' PrintWork 58320 Print string to file #2 w/o CR/LF
- ' PrintWorkA 58350 Print string to file #2 with CR/LF
- ' PutCom 59650 Write to the communications port
- ' PutWork 59660 Write to work file randomly
- ' RBBSPlay 59680 Plays a musical string
- ' ReadAny 58310 Read file number 2 into ZOutTxt$
- ' ReadDef 112 Read configuration file
- ' ReadDir 58290 Read entire lines
- ' ReadParms 58300 Read certain number of parameters from file 2
- ' Talk 59700 RBBS-PC Voice synthesizer support for sight impaired
- ' SetCall 108 Find where next callers record is
- ' UpdateC 43048 Update the caller's file with elasped session time
- ' UpdtCalr 13661 Update to the caller's file
- '
- ' $INCLUDE: 'RBBS-VAR.BAS'
- '
-