home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / diskcat / diskmenu.prg < prev    next >
Encoding:
Text File  |  1986-05-21  |  4.7 KB  |  143 lines
  1.  
  2. * Program..: DISKMENU.PRG
  3. * Author...: SATURIN E.THOMAS
  4. * Date.....: 05/21/86
  5. * Notice...: Copyright (c) 1986, SATURIN E.THOMAS, All Rights Reserved
  6. * Notes....: 
  7. * Reserved.: selectnum
  8. *
  9.  
  10. SET TALK OFF
  11. SET BELL OFF
  12. SET STATUS ON
  13. SET ESCAPE OFF
  14. SET CONFIRM ON
  15. SET COLOR TO W+/BR,G+/GR,N
  16. USE DISK INDEX DISKSORT
  17.  
  18. DO WHILE .T.
  19.  
  20.    * ---Display menu options, centered on the screen.
  21.    *    draw menu border and print heading
  22.    CLEAR
  23.    @ 2, 0 TO 19,79 DOUBLE
  24.    @ 3, 8 SAY [S A T U R I N ' S   D B A S E   I I I +   D I S K   C A T A L O G]
  25.    @ 4,1 TO 4,78 DOUBLE
  26.    * ---display detail lines
  27.    @  7,28 SAY [1. Add Disk Information]
  28.    @  8,28 SAY [2. Change Disk Data]
  29.    @  9,28 SAY [3. Remove Information]
  30.    @ 10,28 SAY [4. Display Data]
  31.    @ 11,28 SAY [5. Print Report]
  32.    @ 12,28 SAY [6. Print Labels]
  33.    @ 13,28 SAY [7. Eject Printer Page]
  34.    @ 14,28 SAY [8. Display Disk Directory]
  35.    @ 15,28 SAY [9. Quit To Dos]
  36.    @ 17, 28 SAY '0. EXIT'
  37.    STORE 0 TO selectnum
  38.    @ 19,33 SAY " select     "
  39.    @ 19,42 GET selectnum PICTURE "9" RANGE 0,9
  40.    READ
  41.  
  42.    DO CASE
  43.       CASE selectnum = 0
  44.          SET BELL ON
  45.          SET TALK ON
  46.          CLEAR ALL
  47.          RETURN
  48.  
  49.       CASE selectnum = 1
  50.       *  DO Add Disk Information                                                  
  51.          SET FORMAT TO DISKSCRN
  52.          APPEND                                                                
  53.          SET FORMAT TO 
  54.          SET CONFIRM OFF
  55.          STORE ' ' TO wait_subst
  56.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  57.          READ
  58.          SET CONFIRM ON
  59.  
  60.       CASE selectnum = 2
  61.       *  DO Change Disk Data                                                      
  62.          SET FORMAT TO DISKSCRN
  63.          EDIT                                                                  
  64.          SET FORMAT TO 
  65.          SET CONFIRM OFF
  66.          STORE ' ' TO wait_subst
  67.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  68.          READ
  69.          SET CONFIRM ON
  70.  
  71.       CASE selectnum = 3
  72.       *  DO Remove Information                                                    
  73.          SET TALK ON
  74.          CLEAR
  75.          @ 2,0 SAY ' '
  76.          ? 'PACKING DATABASE TO REMOVE RECORDS MARKED FOR DELETION'
  77.          PACK                                                                  
  78.          SET TALK OFF
  79.          SET CONFIRM OFF
  80.          STORE ' ' TO wait_subst
  81.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  82.          READ
  83.          SET CONFIRM ON
  84.  
  85.       CASE selectnum = 4
  86.       *  DO Display Data                                                          
  87.          BROWSE                                                                
  88.          SET CONFIRM OFF
  89.          STORE ' ' TO wait_subst
  90.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  91.          READ
  92.          SET CONFIRM ON
  93.  
  94.       CASE selectnum = 5
  95.       *  DO Print Report                                                          
  96.          REPORT FORM DISKREPT TO PRINT                                         
  97.          SET CONFIRM OFF
  98.          STORE ' ' TO wait_subst
  99.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  100.          READ
  101.          SET CONFIRM ON
  102.  
  103.       CASE selectnum = 6
  104.       *  DO Print Labels                                                          
  105.          LABEL FORM DISKLBL TO PRINT                                           
  106.          SET CONFIRM OFF
  107.          STORE ' ' TO wait_subst
  108.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  109.          READ
  110.          SET CONFIRM ON
  111.  
  112.       CASE selectnum = 7
  113.       *  DO Eject Printer Page                                                    
  114.          EJECT                                                                 
  115.          SET CONFIRM OFF
  116.          STORE ' ' TO wait_subst
  117.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  118.          READ
  119.          SET CONFIRM ON
  120.  
  121.       CASE selectnum = 8
  122.       *  DO Display Disk Directory                                                
  123.          DIR *.*                                                               
  124.          SET CONFIRM OFF
  125.          STORE ' ' TO wait_subst
  126.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  127.          READ
  128.          SET CONFIRM ON
  129.  
  130.       CASE selectnum = 9
  131.       *  DO Quit To Dos                                                           
  132.          QUIT                                                                  
  133.          SET CONFIRM OFF
  134.          STORE ' ' TO wait_subst
  135.          @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  136.          READ
  137.          SET CONFIRM ON
  138. ENDCASE
  139.  
  140. ENDDO T
  141. RETURN
  142. * EOF: DISKMENU.PRG
  143.