home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Du Jour
/
SoftwareDuJour.iso
/
BUSINESS
/
DBASE
/
DBIIIBBS.ARC
/
XFERPGMS.PRG
< prev
next >
Wrap
Text File
|
1985-08-16
|
2KB
|
67 lines
* XFERPGMS-TRANSFER AND USE XFERDIR INTO DBASEIII
PROCEDURE APPXFER
? ' This is a procedure to transfer, and search the database'
? ' for gene plantz bbs file - XFERLIST.'
?
? '1. Download the file using the Xmodem protocol. '
? '2. Unsqeeze the file using the USQ utility, or equivalent.'
? ' Assume you now have a standard text file called XFERLIST. '
ACCEPT 'HAVE YOU DONE THE ABOVE STEPS(Y/N)' TO ANS
IF ANS<>'Y'
RETURN
ENDIF
IF FILE('XFERLIST.DBF')
ACCEPT 'XFERLIST.DBF IS ALREADY ON DISK - DELETE.....(Y/N)' TO DEL
IF ANS='Y'
DELETE FILE XFERLIST.DBF
ELSE
RETURN
ENDIF
ENDIF
CLEAR
? 'Copying XFERSTRU.DBF TO XFERLIST.DBF'
USE XFERSTRU
COPY STRUCTURE TO XFERLIST.DBF
? 'Appending XFERLIST into XFERLIST.DBF'
USE XFERLIST
APPEND FROM XFERLIST. SDF
? '5. Using the Modify Structure command in DbaseIII, delete the'
? ' fields starting with SPACEx.'
WAIT
MODIFY STRUCTURE
RETURN
PROCEDURE BEGCOMM
use xferlist
ACCEPT 'Beg. String for DESC field-->' TO BC
DISPLAY FOR DESC='&BC' FILENAME,DATE,DESC,SIZE OFF
use
wait
RETURN
PROCEDURE BEGFILE
use xferlist
ACCEPT 'Beg. String for FILENAME field-->' TO BF
DISPLAY FOR FILENAME='&BF' FILENAME,DATE, DESC, SIZE OFF
USE
WAIT
RETURN
PROCEDURE ANYCOMM
USE XFERLIST
ACCEPT 'Search anywhere in DESC field-->' TO AC
DISPLAY FOR '&AC'$DESC FILENAME,DATE,DESC,SIZE OFF
USE
WAIT
RETURN
PROCEDURE ANYFILE
USE XFERLIST
ACCEPT 'Search anywhere in FILENAME field-->' TO AF
DISPLAY FOR '&AF'$FILENAME FILENAME,DATE,DESC,SIZE OFF
USE
WAIT
RETURN