home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug105.arc / MAILMEN.LQR / MAILMEN.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  81 lines
  1. *THIS PROGRAM IS CALLED MAILMEN.PRG-- IT HANDLES ALL SUB PROGRAMS TO OPERATE
  2. * MAILING LISTS. COPYRIGHT JULY 30,1983 BY PHILIP K. PERLMAN
  3. SET TALK OFF
  4. RELEASE ALL
  5. SET BELL OFF
  6. SET COLON OFF
  7. DO WHILE T
  8. USE
  9. ERASE
  10. RESTORE FROM MAILSET
  11. SET FORMAT TO &PRINTMEN
  12. STORE '  ' TO NEXT
  13. READ
  14. CLEAR GETS
  15.    IF VAL(NEXT) = 1
  16.      SET FORMAT TO SCREEN
  17.      DO &MAILINP
  18.      RELEASE ALL
  19.    ELSE
  20.    IF VAL(NEXT) = 2
  21.      SET FORMAT TO SCREEN
  22.      DO &MAILED
  23.      RELEASE ALL
  24.    ELSE
  25.    IF VAL(NEXT) = 3
  26.      SET FORMAT TO SCREEN
  27.      DO &PRINTCAT
  28.      RELEASE ALL
  29.    ELSE
  30.    IF VAL(NEXT) = 4
  31.      SET FORMAT TO SCREEN
  32.      DO &PRINTROL                               
  33.      RELEASE ALL
  34.    ELSE
  35.    IF VAL(NEXT) = 5
  36.      SET FORMAT TO SCREEN
  37.      DO &PRINTLAB
  38.      RELEASE ALL
  39.    ELSE
  40.    IF VAL(NEXT) = 6
  41.       SET FORMAT TO SCREEN
  42.       DO &PRINTIND
  43.       RELEASE ALL
  44.    ELSE
  45.    IF VAL(NEXT) = 7
  46.       SET FORMAT TO SCREEN
  47.       DO &XMASLAB
  48.       RELEASE ALL
  49.    ELSE
  50.    IF VAL(NEXT) = 8
  51.       SET FORMAT TO SCREEN
  52.       DO &BIRTH
  53.       RELEASE ALL
  54.    ELSE
  55.    IF VAL(NEXT) = 9
  56.       SET FORMAT TO SCREEN
  57.       DO &MAILSET
  58.       RELEASE ALL
  59.    ELSE
  60.    IF VAL(NEXT) = 10
  61.       SET FORMAT TO SCREEN
  62.       DO &MAILDEL
  63.       RELEASE ALL
  64.    ELSE
  65.    IF VAL(NEXT)= 11
  66.       ERASE
  67.       QUIT
  68.    ELSE
  69.       LOOP
  70.    ENDIF
  71. ENDIF
  72. ENDIF
  73. ENDIF
  74. ENDIF
  75. ENDIF
  76. ENDIF
  77. ENDIF
  78. ENDIF
  79. ENDIF
  80. ENDIF
  81.    ENDDO                                                                                         GUARDI