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