home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / DISPRNT.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  170 lines
  1. * File:- DISPRNT.CMD
  2. * Screen Display & Print Label
  3. * J.L.Read. Merrylands. NSW.
  4. * Date:- 20/04/87
  5. * Update:-
  6. ERASE
  7. STORE " " TO GO
  8. @ 11,19 SAY"Screen List & Print Labels <Y> or <N> " GET GO PICTURE "!"
  9. READ
  10. IF GO= "Y"
  11. @ 11,0
  12. SET INTEN ON
  13. @ 11,26 SAY" TURN YOUR PRINTER ON -  NOW "
  14. SET INTEN OFF
  15. @ 13,28 SAY"Press RETURN When Ready "
  16. SET CONSOLE OFF
  17. WAIT
  18. SET CONSOLE ON
  19. RELEASE GO
  20. ERASE
  21.  @ 1,1 SAY"Date:- " +DATE()
  22.  USE LABEL INDEX IDNOIND
  23.  STORE T TO SCRDIS1
  24.  DO WHILE SCRDIS1
  25.  SET INTEN ON
  26.  @ 2,24 SAY" SCREEN DISPLAY & PRINT LABELS "
  27.  SET INTEN OFF
  28.  @ 4,36 SAY"-======-"
  29.  @ 6,30 SAY"Press RETURN To Exit"
  30.  STORE 0 TO SCR
  31.  @ 9,25 SAY"Enter Label Id/Number " GET SCR PICTURE "     "
  32.  SET CONFIRM ON
  33.  READ
  34.  SET CONFIRM OFF
  35.  IF SCR=0
  36.  RELEASE SCRDIS1,SCR
  37.  USE
  38.  RETURN
  39.  ENDIF SCR=0
  40.  STORE STR(SCR,5) TO MSCR
  41.  FIND &MSCR
  42.  IF #=0
  43.  @ 9,0
  44.  SET INTEN ON
  45.  @ 9,28 SAY" Label Not On File!!!! "
  46.  SET INTEN OFF
  47.  STORE 1 TO XX
  48.  DO WHILE XX <120
  49.  STORE XX+1 TO XX
  50.  ENDDO WHILE XX <120
  51.  RELEASE XX,SCR,MSCR
  52.  @ 9,0
  53.  LOOP
  54.  ELSE #>0
  55.  @ 12,18
  56.  @ 14,0
  57.  @ 15,0
  58.  @ 16,0
  59.  @ 17,0
  60.  @ 18,0
  61.  @ 19,0
  62.  @ 20,0
  63.  @ 12,1 SAY"Label Id/Number:- &MSCR"
  64.  IF AUST= "A".AND. CLASS= "N"
  65.  @ 14,1 SAY"Name/Address Label.(Aust)"
  66.  ?
  67.  SET PRINT ON
  68.  ? " ",TITLE,TRIM(INITAL),TRIM(SNAME)+"."
  69.  ? " ",TRIM(STREET)+"."
  70.  ? " ",TRIM(LOCATN)+"."
  71.  ? " ",TRIM(STATE)+".","                ",PCODE+"."
  72.  SET CONSOLE OFF
  73.  ?
  74.  ?
  75.  ?
  76.  ?
  77.  ?
  78.  SET CONSOLE ON
  79.  SET PRINT OFF
  80.  RELEASE MSCR
  81.  LOOP
  82.  ENDIF
  83.  IF AUST= "O".AND. CLASS= "N"
  84.  @ 14,1 SAY"Name/Address Label.(Overseas)"
  85.  ?
  86.  SET PRINT ON
  87.  ? " ",TITLE,TRIM(INITAL),TRIM(SNAME)+"."
  88.  ? " ",TRIM(STREET)+"."
  89.  ? " ",TRIM(LOCATN)+"."
  90.  ? " ",STATE,"         ",TRIM(COUNTRY)+"."
  91.  SET CONSOLE OFF
  92.  ?
  93.  ?
  94.  ?
  95.  ?
  96.  ?
  97.  SET CONSOLE ON
  98.  SET PRINT OFF
  99.  RELEASE MSCR
  100.  LOOP
  101.  ENDIF
  102.  IF AUST= "A".AND. CLASS= "B"
  103.  @ 14,1 SAY"Business Address Label.(Aust)"
  104.  ?
  105.  SET PRINT ON
  106.  ? " ",TITLE,TRIM(INITAL),SNAME
  107.  ? " ",TRIM(COMPANY)+"."
  108.  ? " ",TRIM(STREET)+"."
  109.  ? " ",TRIM(LOCATN)+"."
  110.  ? " ",TRIM(STATE)+".","                ",PCODE+"."
  111.  SET CONSOLE OFF
  112.  ?
  113.  ?
  114.  ?
  115.  ?
  116.  SET CONSOLE ON
  117.  SET PRINT OFF
  118.  RELEASE MSCR
  119.  LOOP
  120.  ENDIF
  121.  IF AUST= "O".AND. CLASS= "B"
  122.  @ 14,1 SAY"Business Address Label.(Overseas)"
  123.  ?
  124.  SET PRINT ON
  125.  ? " ",TITLE,TRIM(INITAL),SNAME
  126.  ? " ",TRIM(COMPANY)+"."
  127.  ? " ",TRIM(STREET)+"."
  128.  ? " ",TRIM(LOCATN)+"."
  129.  ? " ",STATE,"         ",TRIM(COUNTRY)+"."
  130.  SET CONSOLE OFF
  131.  ?
  132.  ?
  133.  ?
  134.  ?
  135.  SET CONSOLE ON
  136.  SET PRINT OFF
  137.  RELEASE MSCR
  138.  LOOP
  139.  ENDIF
  140.  ENDIF #>0
  141.  @ 12,0
  142.  ENDDO
  143. ELSE GO <>"Y"
  144.  RELEASE GO
  145.  ENDIF GO
  146. RETURN
  147. T ON
  148.  ? " ",TITLE,TRIM(INITAL),TRIM(SNAME)+"."
  149.  ? " ",TRIM(STREET)+"."
  150.  ? " ",TRIM(LOCATN)+"."
  151.  ? " ",STATE,"         ",TRIM(COUNTRY)+"."
  152.  SET CONSOLE OFF
  153.  ?
  154.  ?
  155.  ?
  156.  ?
  157.  ?
  158.  SET CONSOLE ON
  159.  SET PRINT OFF
  160.  RELEASE MSCR
  161.  LOOP
  162.  ENDIF
  163.  IF AUST= "A".AND. CLASS= "B"
  164.  @ 14,1 SAY"Business Address Label.(Aust)"
  165.  ?
  166.  SET PRINT ON
  167.  ? " ",TITLE,TRIM(INITAL),SNAME
  168.  ? " ",TRIM(COMPANY)+"."
  169.  ? " ",TRIM(STREET)+"."
  170.  ? " ",TRIM(LOCATN)+".