home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / ADLABA1.CMD next >
OS/2 REXX Batch file  |  1979-12-31  |  5KB  |  226 lines
  1. * File:- ADLABA1.CMD
  2. * Label printer,All labels. (Alph order)
  3. * J.L.Read. Merrylands. NSW.
  4. * Date:- 29/03/87
  5. * UPDATE:-
  6. ERASE
  7. SET TALK OFF
  8.  @ 1,14 SAY"********** MAILING ADDRESS LABEL PRINTER **********"
  9.  @ 3,5 SAY"ALL LABELS"
  10.  @ 3,61 SAY"Date:- "+ DATE()
  11.  SET INTEN ON
  12.  @ 6,20 SAY" ADDRESS LABELS IN ALPHERBETICAL ORDER "
  13.  SET INTEN OFF
  14.  @ 8,5 SAY"Options:-"
  15.  @ 10,13 SAY"-===================================================-"
  16.  @ 11,16 SAY"A ---->  NAME/ADDRESS LABELS, WITHIN AUSTRALIA"
  17.  @ 12,16 SAY"B ---->  NAME/ADDRESS LABELS, FOR OVERSEAS"
  18.  @ 13,16 SAY"C ---->  BUSINESS ADDRESS LABELS, WITHIN AUST."
  19.  @ 14,16 SAY"D ---->  BUSINESS ADDRESS LABELS, FOR OVERSEAS"
  20.  @ 15,16 SAY"M ---->  TO RETURN TO THE MASTER MENU"
  21.  @ 16,13 SAY"-===================================================-"
  22.  @ 23,38 SAY"oOo"
  23. STORE T TO LAB1
  24. DO WHILE LAB1
  25. @ 20,5 SAY"ENTER OPTION "
  26. SET CONSOLE OFF
  27. WAIT TO COMMAND
  28. STORE !(COMMAND) TO COMMAND
  29. SET CONSOLE ON
  30. IF COMMAND = "M"
  31. RELEASE LAB1,COMMAND
  32. ERASE
  33. @ 11,32 SAY"CLOSING FILE "
  34.  RETURN
  35. ENDIF
  36. DO CASE
  37. CASE COMMAND = "A"
  38.  @ 20,0
  39.  @ 20,5 SAY"Print Address Labels, (Aust.) <Y> or <N> "
  40.  SET CONSOLE OFF
  41.  WAIT TO COMMAND
  42.  SET CONSOLE ON
  43.  IF !(COMMAND)= "Y"
  44.  @ 20,0
  45.  SET INTEN ON
  46.  @ 20,6 SAY" TURN YOUR PRINTER ON "
  47.  SET INTEN OFF
  48.  @ 20,29 SAY"Press  <RETURN>  When Ready "
  49.  SET CONSOLE OFF
  50.  WAIT
  51.  SET CONSOLE ON
  52.  USE LABEL INDEX SNAMIND
  53.  GO TOP
  54.  @ 20,0
  55.  @ 20,6 SAY"Printing Labels,    WAIT."
  56.  SET CONSOLE OFF
  57.  SET PRINT ON
  58.  DO WHILE .NOT. EOF
  59.  IF AUST= "A".AND. CLASS= "N"
  60.  ?
  61.  ? " ",TITLE,TRIM(INITAL),TRIM(SNAME)+"."
  62.  ? " ",TRIM(STREET)+"."
  63.  ? " ",TRIM(LOCATN)+"."
  64.  ? " ",TRIM(STATE)+".","                ",PCODE+"."
  65.  ?
  66.  ?
  67.  ?
  68.  ?
  69.  ENDIF
  70.  SKIP
  71.  ENDDO
  72. SET PRINT OFF
  73. SET CONSOLE ON
  74.  USE
  75.  @ 20,0
  76.  ELSE COMMAND <> "Y"
  77.  ENDIF
  78.  @ 20,0
  79.  LOOP
  80. CASE COMMAND = "B"
  81. @ 20,0
  82. @ 20,6 SAY"Print Address Labels, (Overseas) <Y> or <N>."
  83.  SET CONSOLE OFF
  84.   WAIT TO COMMAND
  85.  SET CONSOLE ON
  86.  IF !(COMMAND) = "Y"
  87.  @ 20,0
  88.  SET INTEN ON
  89.  @ 20,6 SAY" TURN YOUR PRINTER ON "
  90. SET INTEN OFF
  91.  @ 20,29 SAY"Press RETURN When Ready."
  92.  SET CONSOLE OFF
  93.   WAIT
  94.  SET CONSOLE ON
  95.  USE LABEL INDEX SNAMIND
  96.  GO TOP
  97.  @ 20,0
  98.  @ 20,6 SAY"Printing Labels, WAIT."
  99.  SET CONSOLE OFF
  100.  SET PRINT ON
  101. DO WHILE .NOT. EOF
  102. IF AUST= "O".AND. CLASS= "N"
  103. ?
  104. ? " ",TITLE,TRIM(INITAL),TRIM(SNAME)+"."
  105. ? " ",TRIM(STREET)+"."
  106. ? " ",TRIM(LOCATN)+"."
  107. ? " ",STATE,"         ",TRIM(COUNTRY)+"."
  108. ?
  109. ?
  110. ?
  111. ?
  112. ENDIF
  113. SKIP
  114. ENDDO
  115. SET PRINT OFF
  116. SET CONSOLE ON
  117.  USE
  118.  @ 20,0
  119.  ELSE !(COMMAND) <> "Y"
  120.   ENDIF
  121.  @ 20,0
  122.  LOOP
  123. CASE COMMAND = "C"
  124.  @ 20,0
  125.  @ 20,6 SAY"Print Business Address Labels, (Aust.) <Y> or <N>."
  126.  SET CONSOLE OFF
  127.  WAIT TO COMMAND
  128.  SET CONSOLE ON
  129.  IF !(COMMAND) = "Y"
  130.  @ 20,0
  131.  SET INTEN ON
  132.  @ 20,6 SAY" TURN YOUR PRINTER ON "
  133.  SET INTEN OFF
  134.  @ 20,29 SAY"Press RETURN When Ready."
  135.  SET CONSOLE OFF
  136.  WAIT
  137.  SET CONSOLE ON
  138.  USE LABEL INDEX COMPIND
  139.  GO TOP
  140.  @ 20,0
  141.  @ 20,6 SAY"Printing Labels,   WAIT."
  142.  SET CONSOLE OFF
  143. SET PRINT ON
  144.  DO WHILE .NOT. EOF
  145.  IF AUST= "A".AND. CLASS="B"
  146. ? " ",TITLE,TRIM(INITAL),SNAME
  147. ? " ",TRIM(COMPANY)+"."
  148. ? " ",TRIM(STREET)+"."
  149. ? " ",TRIM(LOCATN)+"."
  150. ? " ",TRIM(STATE)+".","                 ",PCODE+"."
  151. ?
  152. ?
  153. ?
  154. ?
  155. ENDIF
  156. SKIP
  157. ENDDO
  158. SET PRINT OFF
  159.  SET CONSOLE ON
  160.  @ 20,0
  161.  ELSE COMMAND <> "Y"
  162.  ENDIF
  163.  USE
  164.  @ 20,0
  165.  LOOP
  166. CASE COMMAND= "D"
  167.  @ 20,0
  168.  @ 20,6 SAY"Print Business Address Labels, (Overseas) <Y> or <N>."
  169.  SET CONSOLE OFF
  170.  WAIT TO COMMAND
  171.  SET CONSOLE ON
  172.  IF !(COMMAND) = "Y"
  173.  @ 20,0
  174.  SET INTEN ON
  175.  @ 20,6 SAY" TURN YOUR PRINTER ON "
  176.  SET INTEN OFF
  177.  @ 20,29 SAY"Press RETURN When Ready."
  178.  SET CONSOLE OFF
  179.  WAIT
  180.  SET CONSOLE ON
  181.  USE LABEL INDEX COMPIND
  182.  GO TOP
  183.  @ 20,0
  184.  @ 20,6 SAY"Printing Labels,  WAIT "
  185.  SET CONSOLE OFF
  186. SET PRINT ON
  187. DO WHILE .NOT. EOF
  188. IF AUST="O".AND. CLASS="B"
  189. ? " ",TITLE,TRIM(INITAL),SNAME
  190. ? " ",TRIM(COMPANY)+"."
  191. ? " ",TRIM(STREET)+"."
  192. ? " ",TRIM(LOCATN)+"."
  193. ? " ",STATE,"         ",TRIM(COUNTRY)+"."
  194. ?
  195. ?
  196. ?
  197. ?
  198. ENDIF
  199. SKIP
  200. ENDDO
  201. SET PRINT OFF
  202.  SET CONSOLE ON
  203.  USE
  204.  @ 20,0
  205.  ELSE COMMAND <> "Y"
  206.  ENDIF
  207.  @ 20,0
  208. ENDCASE
  209. ENDDO
  210. RETURN
  211. lph order)
  212. * J.L.Read. Merrylands. NSW.
  213. * Date:- 29/03/87
  214. * UPDATE:-
  215. ERASE
  216. SET TALK OFF
  217.  @ 1,14 SAY"********** MAILING ADDRESS LABEL PRINTER **********"
  218.  @ 3,5 SAY"ALL LABELS"
  219.  @ 3,61 SAY"Date:- "+ DATE()
  220.  SET INTEN ON
  221.  @ 6,20 SAY" ADDRESS LABELS IN ALPHERBETICAL ORDER "
  222.  SET INTEN OFF
  223.  @ 8,5 SAY"Options:-"
  224.  @ 10,13 SAY"-===================================================-"
  225.  @ 11,16 SAY"A ---->  NAME/ADDRESS LABELS, WITHIN AUSTRALIA"
  226.  @ 12,1