home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG061.ARC / LIBRARY.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  53 lines
  1. ********************************** LIBRARY.CMD
  2. ******************** Library System Main Menu.
  3. ******************** The LIBRARY System maintains
  4. ******************** a history and count of all
  5. ******************** keywords used in the LIBRARY
  6. ******************** database.
  7.  
  8. SET TALK OFF
  9.  
  10.  
  11. STORE 0 TO CHOICE
  12.  
  13. *************************** Display Main Menu.
  14. DO WHILE CHOICE <> 4
  15.    ERASE
  16.    TEXT
  17.  
  18.                     Library System Main Menu
  19.  
  20.                   1. Add new references
  21.                   2. Print Reports
  22.                   3. Edit References
  23.  
  24.                   4. Exit
  25.  
  26.    ENDTEXT
  27.    INPUT "                   Enter choice (1-4) " TO CHOICE
  28.  
  29.  
  30.    **************** Branch to appropriate procedure
  31.    **************** based upon choice.
  32.  
  33.    DO CASE
  34.  
  35.       CASE CHOICE = 1
  36.            DO LIBADD
  37.  
  38.       CASE CHOICE = 2
  39.            DO LREPORTS
  40.  
  41.       CASE CHOICE = 3
  42.            DO LIBEDIT
  43.  
  44.     ENDCASE
  45.  
  46. ENDDO (while choice # 4)
  47. *QUIT
  48.      WAIT
  49.     ENDIF (lp <> y)
  50.  
  51.  
  52.  
  53.