home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug105.arc / MAILMEN.LQR / PRINTROL.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  4KB  |  169 lines
  1. * PRINTROL.PRG PRINTS ROLADEX CARDS FOR MAILMEN PROG. COPYRIGHT NOVEMBER 1,
  2. * 1983 PHILIP K. PERLMAN
  3. SET TALK OFF
  4. ERASE
  5. STORE T TO BEVEL
  6. DO WHILE BEVEL
  7. STORE ' ' TO ANS1
  8. @ 10,5 say "Do You Wish To Print Cards of friends or business (F or B) ?"
  9. @ 10,75 GET ANS1
  10. READ
  11. CLEAR GETS
  12.      IF !(ANS1) = 'F' .OR. !(ANS1) = 'B'
  13.      STORE F TO BEVEL
  14. ELSE
  15. ENDIF
  16. ENDDO
  17. ERASE
  18. @ 10,5 SAY 'Mount 2 1/8" by 4" Roladex Cards in Printer'
  19. @ 12,5 SAY 'Press any key when ready'
  20. SET CONSOLE OFF
  21. wait
  22. set console on
  23. IF !(ANS1) = 'F'
  24.      ERASE
  25.      USE &DBF1 INDEX &NDX1
  26.      GO TOP
  27.      SET PRINT ON
  28.      ? CHR(15)
  29.           DO WHILE .NOT. EOF
  30.           IF FRIEND <> ' '
  31.              ? TRIM(LAST)-",", FIRST, ' ', PROF1
  32.              ? ADDR1, ' ', PROF2
  33.              ? ADDR2
  34.              ? TRIM(CITY)-"," , STATE, ZIP
  35.              ? COMPANY
  36.              ? 'TEL:WRK', TEL:WRK
  37.              ? 'TEL:HM', TEL:HM
  38.              ?
  39.              ?
  40.              ?                                          
  41.              ?                                          
  42.              ?                                          
  43.              ?                                          
  44.           ENDIF
  45.           SKIP
  46.           ENDDO
  47.      ? CHR(18)
  48.      SET PRINT OFF
  49.      RETURN
  50. ENDIF
  51. IF !(ANS1) = 'B'
  52. STORE T TO RIGHT
  53. DO WHILE RIGHT
  54. STORE ' ' TO P
  55. ERASE
  56. @ 10,5 SAY "Press 'A' To Print Cards For All Categories"
  57. @ 12,5 SAy "Press 'S' to print selected categories"
  58. @ 12,70 get P
  59. READ
  60. CLEAR GETS
  61. IF !(P) = 'A' .OR. !(P) = 'S'
  62.      STORE F TO RIGHT
  63. ELSE
  64. ENDIF
  65. ENDDO
  66. IF !(P) = 'A'
  67.      ERASE
  68.      USE &DBF1
  69.      GO TOP
  70.      SET PRINT ON
  71.      ? CHR(15)
  72.           DO WHILE .NOT. EOF
  73.           IF FRIEND = ' '
  74.              ? TRIM(LAST)-",", FIRST, '  ', PROF1
  75.              ? COMPANY, '  ', PROF2
  76.              ? ADDR1, '  ', PROF3
  77.              ? ADDR2
  78.              ? TRIM(CITY)-"," , STATE, ZIP
  79.              ? 'TEL:WRK', TEL:WRK
  80.              ? 'TEL:HM', TEL:HM
  81.              ?
  82.              ?                                          
  83.              ?                                          
  84.              ?                                          
  85.              ?
  86.              ?
  87.           ENDIF
  88.           SKIP
  89.           ENDDO
  90.      ? CHR(18)
  91.      SET PRINT OFF
  92.      RETURN
  93. ENDIF
  94. IF !(P) = 'S'
  95. STORE T TO CONTINUE
  96. DO WHILE CONTINUE
  97. SET PRINT OFF
  98. STORE T TO LEVEL
  99. DO WHILE LEVEL
  100. STORE ' ' TO ANS
  101. STORE ' ' TO CAT
  102. ERASE
  103. ?
  104. ?
  105. ?
  106. ?
  107. ACCEPT "What Priority Level Are You Searching (1,2, OR 3) ?" TO ANS
  108. ?
  109. ?
  110. ACCEPT "What Category Are You Looking For ?" TO CAT
  111. IF ANS = '1' .OR. ANS = '2' .OR. ANS = '3'
  112. STORE 'PROF'-ANS TO PROF
  113. STORE DRV1-':'-'PROF'-ANS TO MNDX
  114. STORE F TO LEVEL
  115. ELSE
  116. ENDIF
  117. ENDDO
  118. ERASE
  119. STORE !(CAT) TO CAT
  120. USE &DBF1 INDEX &MNDX
  121. FIND &CAT
  122. ERASE
  123. SET PRINT ON
  124. ? CHR(15)
  125. STORE T TO TRUE
  126.      DO WHILE .NOT. EOF .AND. &PROF = '&CAT'
  127.             ? TRIM(LAST)-",", FIRST, '  ', PROF1
  128.             ? COMPANY, '  ', PROF2
  129.             ? ADDR1, '  ', PROF3
  130.             ? ADDR2
  131.             ? TRIM(CITY)-"," , STATE, ZIP
  132.             ? 'TEL:WRK', TEL:WRK
  133.             ? 'TEL:HM', TEL:HM
  134.             ?
  135.             ?
  136.             ?                                           
  137.             ?                                           
  138.             ?
  139.             ?                                           
  140.           SKIP
  141.      ENDDO
  142. ERASE
  143. STORE ' ' TO CONT
  144. @ 10,5 SAY 'Do you wish to continue ?'
  145. @ 12,5 SAY "Press 'N' to Return to the Menu"
  146. @ 14,5 SAY 'Press any other key to continue'
  147. @ 14,40 GET CONT
  148. READ
  149. CLEAR GETS
  150. IF !(CONT) = 'N'
  151. ? CHR(18)
  152. SET PRINT OFF
  153. STORE F TO CONTINUE
  154. RETURN
  155. ELSE
  156. ENDDO
  157. ENDIF
  158. ENDIF.NOT. EOF
  159.           IF FRIEND <> ' '
  160.              ? TRIM(LAST)-",", FIRST, ' ', PROF1
  161.              ? ADDR1, ' ', PROF2
  162.              ? ADDR2
  163.              ? TRIM(CITY)-"," , STATE, ZIP
  164.              ? COMPANY
  165.              ? 'TEL:WRK', TEL:WRK
  166.              ? 'TEL:HM', TEL:HM
  167.              ?
  168.              ?                                          
  169.              ?