home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBIIIBBS.ARC / XFERMENU.PRG < prev    next >
Text File  |  1985-08-16  |  935b  |  48 lines
  1. * XFERMENU - USE DBASE TO MANIPULATE BBS XFERLIST
  2. SET TALK OFF
  3. SET PROCEDURE TO XFERPGMS.PRG
  4. SET FUNCTION  9 TO 'MODIFY COMMAND XFERMENU;' 
  5. SET FUNCTION 10 TO 'MODIFY COMMAND XFERPGMS;'
  6. * ACTUAL MENU
  7. DO WHILE .T.
  8.   CLEAR
  9. ? DATE()               
  10. ? TIME()
  11. TEXT
  12. -----------------------------------
  13.        MASTER MENU - DBMENU
  14.  
  15.  1. Directory
  16.  2. Append from XFERLIST TO DBASE
  17.  3. Search Beginning - FILENAME.EXT
  18.  4.                  - DESC
  19.  5.        anywhere  - FILE_EXT
  20.  6.                  - DESC 
  21.  7. dBASE III dot prompt .
  22.  8. DOS
  23. -----------------------------------
  24. ENDTEXT
  25. WAIT  'ENTER SELECTION----->' TO SEL
  26.   DO CASE
  27.   CASE SEL='1'
  28.      DIR
  29.      WAIT
  30.   CASE SEL='2'
  31.      DO APPXFER
  32.   CASE SEL='3'
  33.      DO BEGFILE
  34.   CASE SEL='4'
  35.      DO BEGCOMM
  36.   CASE SEL='5'
  37.      DO ANYFILE
  38.   CASE SEL='6'
  39.      DO ANYCOMM
  40.   CASE SEL='7'
  41.      CANCEL
  42.   CASE SEL='8'
  43.      QUIT
  44.   ENDCASE
  45. ENDDO
  46. RETURN
  47.  
  48.