1 ' WARNING !!! DO NOT CHANGE, BYPASS OR REMOVE LINES 25-44
2 ' RBBS-PC.BAS (RBBS-PC ver. CPC12)
3 REM $LINESIZE: 132
4 'by D. Thomas Mack
5 '   The Second Ring
6 '   10210 Oxfordshire Road
7 '   Great Falls, Virginia 22066
8 '
9 ' *******************************NOTICE*************************************
10 ' *  A limited license is granted to all users of this program and it's   *
11 ' *  companion program, CONFIG.BAS (ver. CPC12), to make copies of this   *
12 ' *  program and distribute the copies to other users, on the following   *
13 ' *  conditions:                                                          *
14 ' *    1.   The notices contained in lines 25 through 44 of the programs  *
15 ' *         are not altered, bypassed, or removed.                        *
16 ' *    2.   The program is not to be disrtibuted to others in modified    *
17 ' *         form (i.e. the line numbers must remain the same).            *
18 ' *    3.   No fee is to be charged (or any other consideration received) *
19 ' *         for coping or distributing these programs without an express  *
20 ' *         written agreement with D. Thomas Mack, The Second Ring, 10210 *
21 ' *         Oxfordshire Road, Great falls, Virginia 22006                 *
22 ' *                                                                       *
23 ' *   Copyright (c) 1983 D. Thomas Mack, The Second Ring                  *
24 ' *************************************************************************
45 ' ***********************************************************************
46 '
47 'RBBS-PC.BAS   Remote Bulletin Board Program  CPC12
48 'Capital PC RBBS-PC enhancement version CPC12:
49 '
50 'CPC00     Original author - Russ Lane         6/21/82 - Copyright (c) 1982
51 'CPC01     Revised by Brad Hanson              3->5/83 - Copyright (c) 1983
52 'CPC01     2,3,5,6,7 Revised by Larry Jordan   4->5/83 - Copyright (c) 1983
53 'CPC03     04 & 05 Revised by Gary Horwith        5/83 - Copyright (c) 1983
54 'CPC04     Revised by Rich Schinnell              5/83 - Copyright (c) 1983
55 'CPC01     Revised by Jim Fry                     5/83 - Copyright (c) 1983
56 'CPC09,4,7 Revised by Scott Loftesness         5->6/83 - Copyright (c) 1983
57 'CPC10     Tom Mack Revised & made compilable  6->8/83 - Copyright (c) 1983
58 'CPC11     Tom Mack added RBBS-PC.DEF file use    8/83 - Copyright (c) 1983
59 'CPC12     Jon Martin Revised & Optimized        10/83 - Copyright (c) 1983
60 'CPC12.1   Jon Martin added the "N" command
61 '          and Tom Mack the SYSOP function 12    12/83 - Copyright (c) 1983
87 '  For Hayes Smartmodem 300 or 1200 .. Switch settings UUDDDUUD
88 '                                                      12345678
89 ' ***********************************************************************
134 'Write Record #, Msg #, to Array
199 'Wait for Caller to Call
399 'Get Caller's Name
499 'Check Last Caller
599 'Check User File
699 'Get New User's Background
799 'Log To Disk
899 'Search for any messages to this caller
1199 'Command Dispatcher
1299 '           ?    B    C    E    F     G     H    K    L    M     N    O    P
1499 'Input string
1653 'baud switching routines
1699 '? Type Functions Supported
1719 'Type Bulletins
1739 'Type Help File
1759 'Type Welcome
1799 'Comments
1999 'Enter A Message
2299 'Editing dispatcher
2399 'Abort
2499 'Delete A Line
2599 'Edit A Line
2799 'Insert A Line
3099 'Set Right Margin
3199 'Print Tab Settings
3299 'Test Line Number
3399 'Save Message
3549 'Pack Disk Record
3699 'Word Processor
3899 'Kill A Message
4099 'Toggle Line Feeds
4199 'Toggle Bell
4239 'Toggle Expert
4319 'Quick Scan & Summary & Retrieval
4699 'O Chat
4769 'Forced chat enters here
4899 '# Counters
4999 'Convert Lower Case to Upper Case
5109 'Change Password Function
5199 'Change Page Length Function
5499 'Swap baud rate 300 <=> 450
5999 'Common Routine to Print  A File
7009 'Common Routine To Test Fields
7999 'Process Message Header
8099 'Remove Spaces That Pad Msg Header
8999 'Unpack Disk Record
9099 'Time On System
9299 'Sends 5 Null characters
9399 'Routine to open users file
9499 'SYSOP AVAILABILITY
9709 'BULLETIN SUBSYSTEM
9999 'Sysop's Utilities
10069 '1 LIST COMMENTS
10089 '2 LIST CALLERS
10109 '3 PACK MESSAGE FILE
10279 'Renumber
10389 'Resurrection
10489 'Print Msg Header
10529 'Purge Comments
10559 'Goodbye
10619 'Log-Off Weasels
10699 'Sysop function to view all filespecs
10959 'Main menu msg margin
10999 'USERS file maintenance
11999 'Pack users file by deleted and time lapse
12999 'Error Trapping
13999 'Return trap for F5 - force on-line
14999 'Hold system open for SYSOP next
19999 'File subsystem
20109 'Help subdirectory
20129 '? subdirectory
20149 'List option
20179 'Download a file function
20289 'Download using XMODEM
20339 'Download using ASCII
20399 'Upload file functions
20529 'Upload using XMODEM
20559 'Upload using ASCII
20749 'Print transfer time information
20809 'Get Character
20859 'Receive With Xmodem Protocol
21249 'END
21289 'Purge Buffer
21299 'Send with Xmodem Protocol
21569 'END
29999 'Force Chat Mode [ KEY 10 ] B$=SYSOP'S CHARACTER, C$=USER'S CHARACTER
30999 'Return to System [ KEY 1 ]
31999 'Exit into BASIC  [ KEY 2 ]
32999 'Toggle Line Printer [ KEY 3 ]
33039 'Toggle Page Bell despite preset times from line 182 [ KEY 4 ]
38999 'Toggle Snoop on [ KEY 9 ]
39999 '3 sec time delay for display
40999 'Time remaining
41999 'Check for COMM port carrier detect
49999 'non-recoverable error or ERROR.MAX exceeded ------------------
50099 'Main menu
50199 'File menu
50399 'Message menu
60199 'MLINK ENQUEUE ROUTINE
60399 'MLINK DEQUEUE ROUTINE
63000 'CPC12 - *** END OF PROGRAM ***
QUEUE ROUTINE x%ö:ÙCPC12 - *** END OF PROGRAM ***   d automatic