home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / cubs / rosters.prg < prev    next >
Text File  |  1989-03-31  |  3KB  |  144 lines
  1. *ROSTERS.PRG
  2.  
  3. CLEAR
  4. SET TALK OFF
  5.  
  6. ? '                                 PRINT MENU'
  7. ?
  8. ?
  9. ?
  10. ?
  11. ? '            1. Print All Rosters              6. Print Den 3  '
  12. ?
  13. ? '            2. Print Leaders Only             7. Print Den W1 '
  14. ?
  15. ? '            3. Print All Cubs                 8. Print Den W2 '
  16. ?
  17. ? '            4. Print Den 1                    9. Not Used   '
  18. ?
  19. ? '            5. Print Den 2                    0. Exit to Main Menu'
  20. ?
  21. ?
  22. ?
  23. ?
  24. WAIT '                           PICK A NUMBER...' TO CHOICE
  25.  
  26. DO CASE
  27.     CASE CHOICE = '1'
  28.         SELECT 2
  29.         GO TOP
  30.         DO LDRPRINT
  31.  
  32.         SELECT 1
  33.         GO TOP
  34.         STORE ' ALLCUBS' TO MDEN
  35.         DO CUBPRINT
  36.  
  37.         SELECT 1
  38.         SET FILTER TO DEN = '1'
  39.         GO TOP
  40.         STORE ' DEN 1' TO MDEN
  41.         DO CUBPRINT
  42.  
  43.         SELECT 1
  44.         SET FILTER TO DEN = '2'
  45.         GO TOP
  46.         STORE ' DEN 2' TO MDEN
  47.         DO CUBPRINT
  48.  
  49.         SELECT 1
  50.         SET FILTER TO DEN = '3'
  51.         GO TOP
  52.         STORE ' DEN 3' TO MDEN
  53.         DO CUBPRINT
  54.  
  55.         SELECT 1
  56.         SET FILTER TO DEN = 'W1'
  57.         GO TOP
  58.         STORE 'DEN W1' TO MDEN
  59.         DO CUBPRINT
  60.  
  61.         SELECT 1
  62.         SET FILTER TO DEN = 'W2'
  63.         GO TOP
  64.         STORE 'DEN W2' TO MDEN
  65.         DO CUBPRINT
  66.  
  67.     CASE CHOICE = '2'
  68.         SELECT 2
  69.         GO TOP
  70.         DO LDRPRINT
  71.  
  72.     CASE CHOICE = '3'
  73.         SELECT 1
  74.         GO TOP
  75.         STORE ' ALLCUBS' TO MDEN
  76.         CLEAR
  77.         ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
  78.         ?
  79.         WAIT ' Press any key to begin printing...'
  80.         DO CUBPRINT
  81.  
  82.     CASE CHOICE = '4'
  83.         SELECT 1
  84.         SET FILTER TO DEN = '1'
  85.         GO TOP
  86.         STORE ' DEN 1' TO MDEN
  87.         CLEAR
  88.         ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
  89.         ?
  90.         WAIT ' Press any key to begin printing...'
  91.         DO CUBPRINT
  92.  
  93.     CASE CHOICE = '5'
  94.         SELECT 1
  95.         SET FILTER TO DEN = '2'
  96.         GO TOP
  97.         STORE ' DEN 2' TO MDEN
  98.         CLEAR
  99.         ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
  100.         ?
  101.         WAIT ' Press any key to begin printing...'
  102.         DO CUBPRINT
  103.  
  104.     CASE CHOICE = '6'
  105.         SELECT 1
  106.         SET FILTER TO DEN = '3'
  107.         GO TOP
  108.         STORE ' DEN 3' TO MDEN
  109.         CLEAR
  110.         ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
  111.         ?
  112.         WAIT ' Press any key to begin printing...'
  113.         DO CUBPRINT
  114.  
  115.     CASE CHOICE = '7'
  116.         SELECT 1
  117.         SET FILTER TO DEN = 'W1'
  118.         GO TOP
  119.         STORE 'DEN W1' TO MDEN
  120.         CLEAR
  121.         ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
  122.         ?
  123.         WAIT ' Press any key to begin printing...'
  124.         DO CUBPRINT
  125.  
  126.     CASE CHOICE = '8'
  127.         SELECT 1
  128.         SET FILTER TO DEN = 'W2'
  129.         GO TOP
  130.         STORE 'DEN W2' TO MDEN
  131.         CLEAR
  132.         ? '                  ALIGN TOP OF PAPER WITH PRINTHEAD'
  133.         ?
  134.         WAIT ' Press any key to begin printing...'
  135.         DO CUBPRINT
  136.     CASE CHOICE = '9'
  137.  
  138.     CASE CHOICE = '0'
  139.         RETURN
  140.  
  141. RELEASE ALL
  142. ENDCASE CHOICE
  143. ENDDO
  144.