home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug105.arc / MAILMEN.LQR / PRINTIND.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  43 lines
  1. * PRINTIND.PRG - PRINTS CATEGORIES FOR PROF1, PROF2, PROF3 FOR MAILING LIST
  2. * PROGRAM (C) COPYRIGHT DECEMBER 3, 1983 PHILIP K. PERLMAN
  3. ERASE
  4. SET TALK OFF
  5. STORE 55 TO N
  6. STORE 0 TO INDEX
  7. STORE 1 TO INDIC
  8. DO WHILE INDIC <= 3
  9. STORE 'PROF'-STR(INDIC,1) TO PROF
  10. STORE 'PROF'-STR(INDIC,1) TO MNDX
  11. USE MAIL INDEX &MNDX
  12. GO TOP
  13. STORE &PROF TO KEY
  14. SET PRINT ON
  15. STORE T TO TRUE
  16. DO WHILE TRUE
  17. ?
  18. ?
  19. ? PROF, "CATEGORIES"
  20. ?
  21. DO WHILE .NOT. EOF .AND. INDEX < N
  22. IF &PROF <> ' ' .AND. &PROF <> KEY
  23. ? &PROF
  24. STORE INDEX + 1 TO INDEX
  25. STORE &PROF TO KEY
  26. ENDIF
  27. SKIP
  28. ENDDO
  29. IF INDEX >= N
  30.      EJECT
  31.      STORE 0 TO INDEX
  32. ENDIF
  33. IF EOF
  34.      STORE F TO TRUE
  35. ENDIF
  36. ENDDO
  37. SET PRINT OFF
  38. STORE INDIC + 1 TO INDIC
  39. ENDDO                                                |"
  40. @ 22,9   SAY "|                    PLEASE CHOOSE ONE OPTION:                 |"
  41. @ 22,55 GET NEXT
  42. @ 23,9   SAY "+==============================================================+"    |"
  43. @ 18,9   SAY "|