5REM   BBSRUN: List 70-999  for instructions on use.
10LOMEM :29000
20POKE 16149, 255:POKE 16150, 255:POKE 27957, 0
22READ d$:FOR m=1 TO LEN(d$)
24POKE 27920+m, ASC(MID$(d$, m, 1)):NEXT m
26 m=m+1:POKE 27920+m, 13
30FOR m=27950 TO 27955:READ d:POKE m, d:NEXT m
32 d$=CHR$(4)
35HTAB 1:? d$; "MON C,I,O"
40HTAB 1:? d$; "RUN BBS"
50REM      name, bbs progs, message, password, upload, download, bulletin
60DATA  "Paul Pappas",5,5,5,5,5,5
70REM   This program allows the sysop to enter BBS startup data
80REM  in a data statement instead of entering it for each 
90REM    run. To use make the following modifications to BBS (the program).   
100REM  Delete 83, 132-137, 8700-8755.                 
110REM  Modify line: 80 p=peek(27950):dw=peek(27952):if peek(27957)=1 then 130
120REM  Modify the data statement (in THIS program) to reflect your system.
130REM  Run this program to activate the BBS system. 
140REM  To restart the BBS after a ^C abort, just type run. The poke is no longer needed.
150REM    In addition, the following modifications are recommened, but not required for this program.
155REM  BBS: 205 gosub 1980 (Checks for remote modem to prevent lockup if wrong number)
160REM   BBS: 511 gosub 2050 (CIS update)             
165REM  BBS: 172 if pdl(9) then 180 (This allows keyboard AND autoanswer interface use)      
170REM   BBSMBC: 964 if hm=0 then 980 (CIS update)
175REM  Build the autoanswer  circut. Its cheap, simple, and works.
180REM    Released into Public Domain by author. Use at your own risk (still a better warranty than most software has!).
999REM     Author - Paul Pappas - CIS #72277,3303
