home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / ADLABP3.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  5KB  |  256 lines
  1. * File:- ADLABP3.CMD
  2. * Label printer,All labels. (Post Code/State)
  3. * J.L.Read. Merrylands. NSW.
  4. * Date:- 06/03/87
  5. * UPDATE:-
  6. ERASE
  7. SET TALK OFF
  8.  @ 1,14 SAY"********** MAILING ADDRESS LABEL PRINTER **********"
  9.  @ 3,5 SAY"ALL LABELS.(Aust)"
  10.  @ 3,61 SAY"Date:- "+ DATE()
  11.  SET INTEN ON
  12.  @ 6,18 SAY" ADDRESS LABELS.POST CODE,STATE NUMB/ORDER "
  13.  SET INTEN OFF
  14.  @ 8,5 SAY"Options:-"
  15.  @ 10,13 SAY"-===================================================-"
  16.  @ 11,16 SAY"A ---->  NAME/ADDRESS LABELS, POST CODE (Numb)"
  17.  @ 12,16 SAY"B ---->  NAME/ADDRESS LABELS, FOR STATE ONLY"
  18.  @ 13,16 SAY"C ---->  BUSINESS ADDR LABELS,POST CODE (Numb)"
  19.  @ 14,16 SAY"D ---->  BUSINESS ADDR LABELS,FOR STATE ONLY"
  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, (Pcde.) <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 PCODEIND
  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.  STORE "   " TO STA
  82.  @ 20,0
  83.  @ 20,6 SAY"Enter State " GET STA PICTURE "!!!"
  84.  SET CONFIRM ON
  85.  READ
  86.  SET CONFIRM OFF
  87.  IF $(STA,1,2) = "  "
  88.  RELEASE STA
  89.  @ 20,0
  90.  LOOP
  91.  ENDIF $(STA,1,2) = "  "
  92. @ 18,6 SAY"For State &STA"
  93. @ 20,0
  94. @ 20,6 SAY"Print Address Labels, (State) <Y> or <N>."
  95.  SET CONSOLE OFF
  96.   WAIT TO COMMAND
  97.  SET CONSOLE ON
  98.  IF !(COMMAND) = "Y"
  99.  @ 18,0
  100.  @ 20,0
  101.  SET INTEN ON
  102.  @ 20,6 SAY" TURN YOUR PRINTER ON "
  103. SET INTEN OFF
  104.  @ 20,29 SAY"Press RETURN When Ready."
  105.  SET CONSOLE OFF
  106.   WAIT
  107.  SET CONSOLE ON
  108.  USE LABEL INDEX PCODEIND
  109.  GO TOP
  110.  @ 20,0
  111.  @ 20,6 SAY"Printing Labels, WAIT."
  112.  SET CONSOLE OFF
  113.  SET PRINT ON
  114. DO WHILE .NOT. EOF
  115. IF AUST= "A".AND. CLASS= "N".AND. STATE= "&STA"
  116. ?
  117. ? " ",TITLE,TRIM(INITAL),TRIM(SNAME)+"."
  118. ? " ",TRIM(STREET)+"."
  119. ? " ",TRIM(LOCATN)+"."
  120. ? " ",TRIM(STATE)+".","                 ",PCODE+"."
  121. ?
  122. ?
  123. ?
  124. ?
  125. ENDIF
  126. SKIP
  127. ENDDO
  128. SET PRINT OFF
  129. SET CONSOLE ON
  130.  USE
  131.  RELEASE STA
  132.  @ 20,0
  133.  ELSE !(COMMAND) <> "Y"
  134.   ENDIF
  135.  RELEASE STA
  136.  @ 18,6
  137.  @ 20,0
  138.  LOOP
  139. CASE COMMAND = "C"
  140.  @ 20,0
  141.  @ 20,6 SAY"Print Business Address Labels, (Pcde.) <Y> or <N>."
  142.  SET CONSOLE OFF
  143.  WAIT TO COMMAND
  144.  SET CONSOLE ON
  145.  IF !(COMMAND) = "Y"
  146.  @ 20,0
  147.  SET INTEN ON
  148.  @ 20,6 SAY" TURN YOUR PRINTER ON "
  149.  SET INTEN OFF
  150.  @ 20,29 SAY"Press RETURN When Ready."
  151.  SET CONSOLE OFF
  152.  WAIT
  153.  SET CONSOLE ON
  154.  USE LABEL INDEX PCODEIND
  155.  GO TOP
  156.  @ 20,0
  157.  @ 20,6 SAY"Printing Labels,   WAIT."
  158.  SET CONSOLE OFF
  159. SET PRINT ON
  160.  DO WHILE .NOT. EOF
  161.  IF AUST= "A".AND. CLASS="B"
  162. ? " ",TITLE,TRIM(INITAL),SNAME
  163. ? " ",TRIM(COMPANY)+"."
  164. ? " ",TRIM(STREET)+"."
  165. ? " ",TRIM(LOCATN)+"."
  166. ? " ",TRIM(STATE)+".","                 ",PCODE+"."
  167. ?
  168. ?
  169. ?
  170. ?
  171. ENDIF
  172. SKIP
  173. ENDDO
  174. SET PRINT OFF
  175.  SET CONSOLE ON
  176.  @ 20,0
  177.  ELSE COMMAND <> "Y"
  178.  ENDIF
  179.  USE
  180.  @ 20,0
  181.  LOOP
  182. CASE COMMAND= "D"
  183.  STORE "   " TO STE
  184.  @ 20,0
  185.  @ 20,6 SAY"Enter State " GET STE PICTURE "!!!"
  186.  SET CONFIRM ON
  187.  READ
  188.  SET CONFIRM OFF
  189.  IF $(STE,1,2) = "  "
  190.  RELEASE STE
  191.  @ 20,0
  192.  LOOP
  193.  ENDIF $(STE,1,2) = "  "
  194.  @ 18,6 SAY"For State &STE"
  195.  @ 20,0
  196.  @ 20,6 SAY"Print Business Address Labels, (State) <Y> or <N>."
  197.  SET CONSOLE OFF
  198.  WAIT TO COMMAND
  199.  SET CONSOLE ON
  200.  IF !(COMMAND) = "Y"
  201.  @ 18,0
  202.  @ 20,0
  203.  SET INTEN ON
  204.  @ 20,6 SAY" TURN YOUR PRINTER ON "
  205.  SET INTEN OFF
  206.  @ 20,29 SAY"Press RETURN When Ready."
  207.  SET CONSOLE OFF
  208.  WAIT
  209.  SET CONSOLE ON
  210.  USE LABEL INDEX PCODEIND
  211.  GO TOP
  212.  @ 20,0
  213.  @ 20,6 SAY"Printing Labels,  WAIT "
  214.  SET CONSOLE OFF
  215. SET PRINT ON
  216. DO WHILE .NOT. EOF
  217. IF AUST="A".AND. CLASS="B".AND. STATE= "&STE"
  218. ? " ",TITLE,TRIM(INITAL),SNAME
  219. ? " ",TRIM(COMPANY)+"."
  220. ? " ",TRIM(STREET)+"."
  221. ? " ",TRIM(LOCATN)+"."
  222. ? " ",TRIM(STATE)+".","                 ",PCODE+"."
  223. ?
  224. ?
  225. ?
  226. ?
  227. ENDIF
  228. SKIP
  229. ENDDO
  230. SET PRINT OFF
  231.  SET CONSOLE ON
  232.  USE
  233.  RELEASE STE
  234.  @ 20,0
  235.  ELSE COMMAND <> "Y"
  236.  RELEASE STE
  237.  ENDIF
  238.  @ 18,0
  239.  @ 20,0
  240. ENDCASE
  241. ENDDO
  242. RETURN
  243.  ADDR LABELS,FOR STATE ONLY"
  244.  @ 15,16 SAY"M ---->  TO RETURN TO THE MASTER MENU"
  245.  @ 16,13 SAY"-===================================================-"
  246.  @ 23,38 SAY"oOo"
  247. STORE T TO LAB1
  248. DO WHILE LAB1
  249. @ 20,5 SAY"ENTER OPTION "
  250. SET CONSOLE OFF
  251. WAIT TO COMMAND
  252. STORE !(COMMAND) TO COMMAND
  253. SET CONSOLE ON
  254. IF COMMAND = "M"
  255. RELEASE LAB1,COMMAND
  256. ER