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

 
Output of file : DBBS.PRG contained in archive : DBASEBBS.ZIP
* dBBS : the dBaseIII+ Bulletin Board System -
myaccess=1
set safe off
set bell off
set stat off
set talk off
set confirm on
***************************
! watchcd COM1 ON && < Guaranteed to boot if you log on local
set prin to COM1 && < Guaranteed to hang if you log on local
set devi to prin && < Guaranteed to hang if you log on local
set prin on && < Guaranteed to hang if you log on local
***************************
do tune && < Take this out if you don't want music at logon
@ 0,0 clea
? [ Welcome to TurnKey Technologies]
? [ ]
rotton=.t.
do whil rotton
rfname=space(20)
rlname=space(20)
? [ ]
accept [What is your FIRST name? ] to rfname
store trim(rfname) to rfname
if [ ] $ rfname
loop
endi
*use trashcan
*loca for fname=rfname
*if .not. eof()
*? chr(7)
*? [Bad user name]
*return
*endi
? [ ]
accept [What is your LAST name? ] to rlname
store trim(rlname) to rlname
if [ ] $ rlname
loop
endi
@ 4,0 clea
*go top
*loca for lname=rlname
*if .not. eof()
*? chr(7)
*? [Bad user name]
*return
*endi
use user
set exact on
loca for fname=upper(rfname)
if lname<>upper(rlname)
cont
endi
set exact off
if eof()
doagain=[ ]
@ 0,0 clea
@ 12,0 say [ ]
accept [ I didn't find a &rfname &rlname. Want to try again? (Y/N) ] to doagain
doagain=upper(doagain)
if doagain=[Y]
loop
endi
endi
if .not. eof()
store recno() to who
store password to pass
pass=trim(pass)
goodguy=[ ]
if len(trim(rfname))=0
? [NO FIRST NAME ?]
? chr(7)
loop
endi
if len(trim(rlname))=0
? [NO LAST NAME ?]
? chr(7)
loop
endi
@ 0,0 clea
? [ ]
accept [ ]+trim(rfname)+[ ]+trim(rlname)+[ Right? ] to goodguy
goodguy=upper(goodguy)
if goodguy=[N]
loop
endi
whatpass=space(20)
? [ ]
accept [What is your password? ] to whatpass
@ 8,0 clea
whatpass=trim(whatpass)
if upper(whatpass)=pass
rotton=.f.
endi
? [ Hi ]+rfname
? [ You last called on ]+dtoc(lastcall)
? [ ]
repl lastcall with date()
store access to myaccess
endi
if eof()
@ 0,0 clea
? [New User Questionaire]
go top
appe blan
rpass=space(20)
? trim(rfname)+[ ]+rlname
? [ ]
? [ ]
? [ ]
accept [What password would you like to use? ] to rpass
? trim(rpass)+[ Right?]
? [ ]
accept [ ? ] to opt
opt=upper(opt)
if opt=[N]
@ 0,0 clea
rpass=space(20)
? trim(rfname)+[ ]+rlname
accept [What password would you like to use? ] to rpass
endi
if len(trim(rfname))=0
? [NO FIRST NAME ?]
? chr(7)
loop
endi
if rpass=space(20)
? [NO PASSWORD?]
? chr(7)
loop
endi
if len(trim(rlname))=0
? [NO LAST NAME ?]
? chr(7)
loop
endi
repl password with upper(rpass)
repl firstcall with date()
@ 0,0 clea
radd=space(20)
rcity=space(15)
rstate=space(2)
rzip=space(11)
rphone=space(13)
rbphone=space(13)
? trim(rfname)+[ ]+rlname
accept [What is your street address? ] to radd
accept [City: ] to rcity
accept [State: ] to rstate
accept [Zip: ] to rzip
accept [Voice Phone Number: ] to rphone
@ 0,0 clea
? trim(rfname)+[ ]+rlname
? [ ]
? radd
? [ ]
? rcity+[ ]+rstate+[ ]+rzip
? [ ]
? rphone
? [ ]
accept [ Ok? ] to opt
opt=upper(opt)
if opt<>[Y]
@ 0,0 clea
? trim(rfname)+[ ]+rlname
accept [What is your street address? ] to radd
accept [City: ] to rcity
accept [State: ] to rstate
accept [Zip: ] to rzip
accept [Voice Phone Number: ] to rphone
endi
if len(trim(radd))<5
? chr(7)
? [Invalid address!]
loop
endi
if len(trim(rcity))<2
? chr(7)
? [Invalid City!]
loop
endi
if len(trim(rstate))=0
? chr(7)
? [Invalid State!]
loop
endi
if len(trim(rzip))<5
? chr(7)
? [Invalid Zip Code!]
loop
endi
if len(trim(rphone))<7
? chr(7)
? [Invalid Phone!]
loop
endi
@ 0,0 clea
repl fname with upper(rfname)
repl lname with upper(rlname)
repl address with radd
repl city with rcity
repl state with rstate
repl zip with rzip
repl phone with rphone
accept [Do you run a BBS? ] to opt
opt=upper(opt)
@ 0,0 clea
if opt=[Y]
rbbs=space(13)
accept [What is the data phone number? ] to rbbs
repl bbsphone with rbbs
endi
@ 0,0 clea
? [Welcome to TurnKey Technologies dBase Bulletin Board System ]+rfname
text

This program is in it's very early development stages.
~~~~

We are writing this program with dBASEIII Plus and compiling it with Clipper.
This program ONLY runs when we are here at the store.
After hours we run the regular BBS.

endt
wait [Press something...]
exit
endi
@ 0,0 clea
? [Welcome to TurnKey Technologies dBase Bulletin Board System ]+rfname
text

This program is in it's very early development stages.
~~~~

We are writing this program with dBASEIII Plus and compiling it with Clipper.
This program ONLY runs when we are here at the store.
After hours we run the regular BBS.

endt
wait [Press something...]
endd

do whil .t.
opt=[ ]
@ 0,0 clea
? [ M)essages S)tatistics]
? [ ]
? [ F)iles G)oodbye C)omment]
? [ ]
? [ ]
accept [Select: ] to opt
opt=upper(opt)
if opt=[M]
do messages
endi
if opt=[S]
@ 0,0 clea
text

93
32
89

60

34 78

and 2.

endt
wait
endi
if opt=[F]
do files
endi
if opt=[C]
do comment
endi
if opt=[G]
! watchcd COM1 OFF
@ 0,0 clea
? [Goodbye &rfname .....Thanks for calling. Please hang up now......]
! DTR COM1: ON
! AT COM1: H0
quit
endi
endd



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

  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/