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 / MBUG102.ARC / LABEL.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  44 lines
  1. *LABEL
  2. *PROGRAM TO PRINT ADDRESS LABELS FOR CUSTOMERS - USES DUAL STICKY LABELS
  3. ERASE
  4. ? ' PRESS ANY KEY TO PRINT STICKY LABELS FOR ALL CUSTOMERS'
  5. ? ' USE STATIONERY WITH TWO LABELS SIDE-BY-SIDE'
  6. WAIT
  7. SET TALK OFF
  8. SET FORMAT TO PRINT 
  9. USE NAMELIST INDEX NAME
  10. STORE 0 TO PPOS
  11. DO WHILE .NOT. EOF
  12. STORE NAME TO NAMEA
  13. STORE STREET TO STREETA
  14. STORE CITYPC TO CITYPCA
  15. STORE DISCOUNT TO DISCOUNTA
  16. SKIP
  17. STORE NAME TO NAMEB
  18. STORE STREET TO STREETB
  19. STORE CITYPC TO CITYPCB
  20. STORE DISCOUNT TO DISCOUNTB
  21. SET PRINT ON
  22. @ PPOS,0 SAY NAMEA
  23. @ PPOS,37 SAY NAMEB
  24. STORE PPOS+1 TO PPOS
  25. @ PPOS,0 SAY STREETA
  26. @ PPOS,37 SAY STREETB
  27. STORE PPOS+1 TO PPOS
  28. @ PPOS,0 SAY CITYPCA
  29. @ PPOS,37 SAY CITYPCB
  30. STORE PPOS+1 TO PPOS
  31. @ PPOS,0 SAY DISCOUNTA
  32. @ PPOS,37 SAY DISCOUNTB
  33. STORE PPOS+6 TO PPOS
  34. SKIP
  35. ENDDO
  36. SET FORMAT TO SCREEN
  37. EJECT
  38. SET PRINT OFF
  39. RETURN
  40. . CUSTOMER MAILING LABELS'
  41. @ 10,COLUMN2 SAY'4. OVERDUE LETTER'
  42. @ 12,COLUMN1 SAY'SALES REPORTS'
  43. @ 12,COLUMN2 SAY'5. SALES TAX REPORT'
  44. @ 13,COLUMN2 SAY'6. TRADING