home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / OVRSEA.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  142 lines
  1. * File:- OVRSEA.CMD
  2. * Label printer,All Overseas  (Alph order)
  3. * J.L.Read. Merrylands. NSW.
  4. * Date:- 08/04/87
  5. * UPDATE:-
  6. ERASE
  7. SET TALK OFF
  8.  @ 1,14 SAY"********** MAILING ADDRESS LABEL PRINTER **********"
  9.  @ 3,5 SAY"LABELS, COUNTRY"
  10.  @ 3,61 SAY"Date:- "+ DATE()
  11.  SET INTEN ON
  12.  @ 6,26 SAY" ADDRESS LABELS BY COUNTRY "
  13.  SET INTEN OFF
  14.  @ 8,5 SAY"Options:-"
  15.  @ 10,13 SAY"-===================================================-"
  16.  @ 12,16 SAY"A ---->  NAME/ADDRESS LABELS,  FOR OVERSEAS"
  17.  @ 13,16 SAY"B ---->  BUSINESS ADDR LABELS, FOR OVERSEAS"
  18.  @ 15,13 SAY"-===================================================-"
  19.  @ 23,38 SAY"oOo"
  20. STORE T TO LAB1
  21. DO WHILE LAB1
  22.  @ 17,27 SAY"< Press RETURN To Exit >"
  23.  STORE "       " TO SEC
  24.  @ 20,5 SAY"Enter Country,(Frst 7 Char) " GET SEC PICTURE "!!!!!!!"
  25.  SET CONFIRM ON
  26.  READ
  27.  SET CONFIRM OFF
  28.  IF $(SEC,1,2)= "  "
  29.  RELEASE LAB1,COMMAND,SEC
  30.  ERASE
  31.  @ 11,32 SAY"CLOSING FILE "
  32.  RETURN
  33.  ENDIF $(SEC,1,2)= "  "
  34.  @ 17,45
  35.  @ 17,45 SAY"Abort >"
  36.  @ 18,5 SAY"Label Select &SEC"
  37.  @ 20,0
  38.  @ 22,0
  39. @ 20,5 SAY"Enter Option "
  40. SET CONSOLE OFF
  41. WAIT TO COMMAND
  42. STORE !(COMMAND) TO COMMAND
  43. SET CONSOLE ON
  44. @ 17,0
  45. @ 18,0
  46. IF !(COMMAND) = " "
  47. LOOP
  48. ENDIF
  49. DO CASE
  50. CASE COMMAND = "A"
  51. @ 20,0
  52. @ 20,6 SAY"Print Address Labels, (Overseas) <Y> or <N>."
  53.  SET CONSOLE OFF
  54.   WAIT TO COMMAND
  55.  SET CONSOLE ON
  56.  IF !(COMMAND) = "Y"
  57.  @ 20,0
  58.  SET INTEN ON
  59.  @ 20,6 SAY" TURN YOUR PRINTER ON "
  60. SET INTEN OFF
  61.  @ 20,29 SAY"Press RETURN When Ready."
  62.  SET CONSOLE OFF
  63.   WAIT
  64.  SET CONSOLE ON
  65.  USE LABEL INDEX SNAMIND
  66.  GO TOP
  67.  @ 20,0
  68.  @ 20,6 SAY"Printing Labels, WAIT."
  69.  SET CONSOLE OFF
  70.  SET PRINT ON
  71. DO WHILE .NOT. EOF
  72. IF AUST= "O".AND. CLASS= "N".AND. COUNTRY= "&SEC"
  73. ?
  74. ? " ",TITLE,TRIM(INITAL),TRIM(SNAME)+"."
  75. ? " ",TRIM(STREET)+"."
  76. ? " ",TRIM(LOCATN)+"."
  77. ? " ",STATE,"         ",TRIM(COUNTRY)+"."
  78. ?
  79. ?
  80. ?
  81. ?
  82. ENDIF
  83. SKIP
  84. ENDDO
  85. SET PRINT OFF
  86. SET CONSOLE ON
  87.  USE
  88.  @ 20,0
  89.  ELSE !(COMMAND) <> "Y"
  90.   ENDIF
  91.  @ 20,0
  92.  LOOP
  93. CASE COMMAND= "B"
  94.  @ 20,0
  95.  @ 20,6 SAY"Print Business Address Labels, (Overseas) <Y> or <N>."
  96.  SET CONSOLE OFF
  97.  WAIT TO COMMAND
  98.  SET CONSOLE ON
  99.  IF !(COMMAND) = "Y"
  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 COMPIND
  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="O".AND. CLASS="B".AND. COUNTRY= "&SEC"
  116. ? " ",TITLE,TRIM(INITAL),SNAME
  117. ? " ",TRIM(COMPANY)+"."
  118. ? " ",TRIM(STREET)+"."
  119. ? " ",TRIM(LOCATN)+"."
  120. ? " ",STATE,"         ",TRIM(COUNTRY)+"."
  121. ?
  122. ?
  123. ?
  124. ?
  125. ENDIF
  126. SKIP
  127. ENDDO
  128. SET PRINT OFF
  129.  SET CONSOLE ON
  130.  USE
  131.  @ 20,0
  132.  ELSE COMMAND <> "Y"
  133.  ENDIF
  134.  @ 20,0
  135.  LOOP
  136. ENDCASE
  137. SET INTEN ON
  138. @ 22,5 SAY"Options are <A & B> Only."
  139. SET INTEN OFF
  140. ENDDO
  141. RETURN
  142.