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

 
Output of file : FILES.PRG contained in archive : DBASEBBS.ZIP
fopt=[ ]
do whil .t.
@ 0,0 clea
? [ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ]
? [File areas:]
? [ ]
? [0... QUIT to Main Menu]
? [ ]
? [1... Uploads 5... Communications]
? [ ]
? [2... Utilities 6... BBS files]
? [ ]
? [3... DOS Utilities]
? [ ]
? [4... Games]
? [ ]
if myaccess>5
? [7... Ram Commandos]
? [ ]
endi
accept [Select file area: ] to fopt
if fopt=[0]
return
endi
if fopt=[1]
set path to c:\dbbs\uploads
store [c:\dbbs\uploads\] to where
use temp
zap
use
endi
if fopt=[2]
set path to c:\dbbs\util
store [c:\dbbs\util\] to where
use temp
zap
use
endi
if fopt=[3]
set path to c:\dbbs\turbo
store [c:\dbbs\turbo\] to where
use temp
zap
use
endi
if fopt=[4]
set path to c:\dbbs\games
store [c:\dbbs\games\] to where

use temp
zap
use
endi
if fopt=[5]
set path to c:\dbbs\comm
store [c:\opus\comm\] to where
use temp
zap
use
endi
if fopt=[6]
set path to c:\opus\opie
store [c:\dbbs\opie\] to where
use temp
zap
use
endi
if myaccess>5
if fopt=[7]
set path to c:\dbbs\999
store [c:\dbbs\999\] to where
use temp
zap
use
endi
endi
@ 0,0 clea
a=1
set path to &where
use files
do whil .not. eof()
? name+[ ]+trim(desc)
skip 1
a=a+1
if a=23
bailer=[ ]
wait [ Press to continue or Q to QUIT.] to bailer
bailer=upper(bailer)
bailer=trim(bailer)
if bailer=[Q]
exit
endi
a=1
@ 0,0 clea
endi
endd
bailer=[ ]
wait [ Press any key to continue or Q to QUIT.] to bailer
bailer=upper(bailer)
bailer=trim(bailer)
if bailer=[Q]
exit
endi
@ row(),0 clea
whichun=space(12)
accept [What is the complete filename (with extension) ] to whichun
whichun=trim(whichun)
if len(whichun)=0
loop
endi
@ 0,0 clea
whichun=trim(whichun)
if .not. file('&whichun')
@ 0,0 clea
wait [ I can't find that file. Press any key to continue.]
loop
endi
proto=[ ]
? [ ]
? [Protocols:]
? [ ]
? [X Xmodem-CRC]
? [ ]
* ? [Y Ymodem]
* ? [ ]
? [Z Zmodem]
? [ ]
acce [Pick a download protocol > ] to proto
proto=upper(proto)
if len(trim(proto))=0
loop
endi
if proto=[X]
? [Sending &whichun in Xmodem...]
store where+whichun to gotit
! dsz CON D sx &gotit
endi
* if proto=[Y]
* ? [Sending &whichun in Ymodem...]
* store where+whichun to gotit
* ! dsz sb &gotit
* endi
if proto=[Z]
? [Sending &whichun in Zmodem...]
store where+whichun to gotit
! dsz CON D sz &gotit
endi
set path to
endd
return




  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBASEBBS.ZIP
Filename : FILES.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/