Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBASEBBS.ZIP
Filename : DBBS.DOC

 
Output of file : DBBS.DOC contained in archive : DBASEBBS.ZIP
TurnKey Technologies
6302 Riverdale Street
San Diego, CA 92120
Data 202/102 (619)563-6688
Voice (619)563-8416
Jay Kenney

- Redirects all output to the remote and local monitors. -

This program is far from complete. It must be compiled with Clipper
and have the ANSI.OBJ added at link time like this:

CLIPPER DBBS
PLINK86 FI DBBS LIB CLIPPER,ANSI

It reads your existing FILES.BBS (Opus or QuickBBS format) with the
LOADER.PRG. Right now the only way to get that to happen is to copy
FILE.DBF, TEMP.DBF and LOADER.PRG to each file area you have, then
run DBASE LOADER which will create a FILES.DBF for that area.

Uses DSZ.COM for Zmodem and Xmodem file downloads. You must have
DSZ.COM available and MUST edit FILES.PRG to point it to your
available files directories. With a little tinkering, you should be
able to implement uploads in the FILES.PRG. I just haven't taken the
time to do this yet.

Binkley on the front end with an exit on errorlevel called like below
calls MODE to handle 300,1200 and 2400 baud connects:

mode COM1:24,N,8,1,
cls
SET BINKLEY=C:\QuickBBS\
SET DSZLOG=C:\QUICKBBS\QDSZ.LOG
echo off
:start
DTR COM1: ON
AT COM1: H0
mode COM1:24,N,8,1,
bt unattended
if ERRORLEVEL 100 goto local
if ERRORLEVEL 90 goto renum
if ERRORLEVEL 80 goto xlatlist
if ERRORLEVEL 70 goto renum
if ERRORLEVEL 40 goto postexit
if ERRORLEVEL 30 goto postarc
if ERRORLEVEL 24 goto opus2400
if ERRORLEVEL 20 goto postrecv
if ERRORLEVEL 15 goto cycle
if ERRORLEVEL 12 goto opus1200
if ERRORLEVEL 10 goto start
if ERRORLEVEL 6 goto mort
if ERRORLEVEL 5 goto start
if ERRORLEVEL 3 goto opus300
if ERRORLEVEL 1 goto end

goto start

:opus2400
cls
dbbs /ansi >COM1 goto after

:opus1200
mode COM1:12,N,8,1,
dbbs /ansi >COM1 mode COM1:24,N,8,1,
goto after

:opus300
mode COM1:3,N,8,1,
dbbs /ansi >COM1 mode COM1:24,N,8,1,
goto after

:after
DTR COM1: ON
AT COM1: H0
cls
if ERRORLEVEL 255 goto start
if ERRORLEVEL 70 goto renum
if ERRORLEVEL 60 goto mort
if ERRORLEVEL 30 goto postarc
if ERRORLEVEL 20 goto postrecv
if ERRORLEVEL 12 goto start
if ERRORLEVEL 7 goto postexit
if ERRORLEVEL 6 goto mort
if ERRORLEVEL 5 goto qmail
if ERRORLEVEL 4 goto qmail
if ERRORLEVEL 3 goto qmail
if ERRORLEVEL 2 goto start
if ERRORLEVEL 1 goto start
if ERRORLEVEL 0 goto start

************************
THIS DOES NOT WORK! You'll need to compile a version without
the calls to WATCHDG and setting the printer to COM1.
\/\/\/\/\/
:local
cls
dbbs
goto after

:end
cls
*****************************************************************************

Things it needs:

1) Word-wrap in messages and comments.

2) Modem control to watch carrier detect so WATCHCD is not necessary.
If a caller exit with G)oodbye, it will return to Binkley without
rebooting...BUT...if they drop carrier anywhere inside DBBS,
WATCHDG will reboot the machine.
Maybe just drop it back to Binkley after a lost carrier?
Current Bonzai-modem control is primitive yet works...

3) Interface to Fidonet Mail via Sirius or Overdrive?
* If this is possible it could eliminate the need for the current
messy messages and comments program.

4) Can user color preferences be stored in USER.DBF?
Would color redirect? I haven't tried this.

5) Chat or local sysop intervention.
* I can't get anything to work from the local keyboard with everything
redirected to the COM port.

6) Sysop utilities, log reporting, and a method to control user time on
system. (These should be pretty easy.)

7) Last, but far from least, it needs your input. I write dBase applications
for clients and don't care to have to learn C to play with a BBS program.
If you find a way to make it work better, I'd appreciate hearing from you.

Long live Ashton-Tate!

Jay Kenney



  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBASEBBS.ZIP
Filename : DBBS.DOC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/