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