home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug105.arc / PHONE2.LQR / PHONE.CMD next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  50 lines
  1. *   Phone Book Master Menu
  2. use phone index phone
  3. Set Talk Off
  4. Set Format to Screen
  5. Select Primary
  6. Set Default to b
  7. STORE T TO Think
  8. DO WHILE Think
  9.    ERASE
  10. @ 05,29 SAY '1)  Add New Phone Numbers'
  11. @ 07,29 SAY '2)  Search/Edit Phone Numbers'
  12. @ 09,29 SAY '3)  Print Phone Numbers'
  13. @ 11,29 SAY '4)  Print Mailing List'
  14. @ 13,29 SAY '5)  Create Wordstar Type File'
  15. @ 15,29 SAY '6)  Return To Master Menu'
  16. @ 18,11 SAY 'Select [ 1 ==> 6 ] : '
  17.    SET CONSOLE OFF
  18.    WAIT TO Selection
  19.    SET CONSOLE ON
  20. IF Selection = '1'
  21.   DO PhoneAdd
  22.   ELSE
  23.     IF Selection = '2'
  24.       ERASE
  25.        Do PhoneGet
  26.       ELSE
  27.         IF Selection = '3'
  28. *           DO PhonePrn
  29.       ERASE
  30.       @ 7,10 SAY 'Not Ready Yet   [Any Key To Continue]'
  31.       WAIT to Rset
  32.           ELSE
  33.             IF Selection = '4'
  34.                 DO PhoneMal
  35.               ELSE
  36.                 IF Selection = '5'
  37.                    DO PhoneWS
  38.                   ELSE
  39.                     IF Selection = '6'
  40.                         ERASE
  41.                         RELEASE Think
  42.                         RELEASE Selection
  43.                         DO Start
  44.                     ENDIF
  45.                 ENDIF
  46.             ENDIF
  47.         ENDIF
  48.     ENDIF
  49. ENDIF
  50. ENDDO   WHILE Think