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