home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / ags / report.prg < prev    next >
Encoding:
Text File  |  1988-05-03  |  748 b   |  39 lines
  1. *   Program Report Menu
  2. *   RL Coppedge
  3. *   14 Mar 88
  4. *   V 2.10
  5. *
  6. CLEAR
  7. PUBLIC Ind,Name,Ch,Act
  8. SET TALK OFF
  9. SET HEADING OFF
  10. SET MARGIN TO 10
  11. DO WHILE .T.
  12.     CLEAR
  13.     ?
  14.     SET COLOR TO B+
  15.     ? Db_ttl + ' System'
  16.     SET COLOR TO W
  17.     ?   'Report Menu'
  18.     ?   'Choose from the following:'
  19.     ?   'Dummy Menu'
  20.     ?
  21.     ?
  22.     WAIT 'Which one do you want (Q to quit) ' TO Choice
  23.     DO CASE
  24.       CASE Choice = '1'
  25.       CASE Choice = '2'
  26.       CASE Choice = '3'
  27.       CASE Choice = '4'
  28.       CASE Choice = '5'
  29.       CASE Choice = '6'
  30.       CASE Choice = '7'
  31.       CASE Choice = '8'
  32.       CASE Choice = '9'
  33.       CASE UPPER(Choice) = 'Q'
  34.          RELEASE ALL
  35.          EXIT
  36.     ENDCASE Choice
  37. ENDDO
  38. RETURN
  39.