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 / MBUG105.ARC / MAILMEN.LQR / XMASLAB.CMD < prev   
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  62 lines
  1. * XMASLAB.PRG PRINTS CHRISTMAS LABELS FOR MAILING LIST PROGRAM (C) COPYRIGHT
  2. * DECEMBER 3, 1983 BY PHILIP K. PERLMAN
  3. SET TALK OFF
  4. ERASE
  5. STORE T TO BEVEL
  6. DO WHILE BEVEL
  7. STORE ' ' TO ANS1
  8. @ 10,5 say "Do you wish to print labels of friends or business (F or B) ?"
  9. @ 10,75 GET ANS1
  10. READ
  11. CLEAR GETS
  12.      IF !(ANS1) = 'F' .OR. !(ANS1) = 'B'
  13.      STORE F TO BEVEL
  14. ELSE
  15. ENDIF
  16. ENDDO
  17. ERASE
  18. @ 10,5 SAY 'Mount Labels one across by 15/16" high in Printer'
  19. @ 12,5 SAY 'Press any key when ready'
  20. set console off
  21. wait
  22. set console on
  23. IF !(ANS1) = 'F'
  24.      USE &DBF1    
  25.      GO TOP
  26.      SET PRINT ON
  27.      ? CHR(15)
  28.      DO WHILE .NOT. EOF
  29.           IF FRIEND <> ' '
  30.                ? TRIM(FIRST), LAST
  31.                ? ADDR1
  32.                ? ADDR2
  33.                ? TRIM(CITY)-"," , STATE, ZIP
  34.                ?
  35.                ?
  36.           ENDIF
  37.           SKIP
  38.      ENDDO
  39.      ? CHR(18)
  40.      SET PRINT OFF
  41.      RETURN
  42. ENDIF
  43. IF !(ANS1) = 'B'
  44.      USE &DBF1
  45.      GO TOP
  46.      SET PRINT ON
  47.      ? CHR(15)
  48.           DO WHILE .NOT. EOF
  49.             IF BUS:XMAS <> ' '
  50.               ? TRIM(FIRST), LAST
  51.               ? COMPANY
  52.               ? ADDR1
  53.               ? TRIM(CITY)-"," , STATE, ZIP
  54.               ?
  55.               ?
  56.             ENDIF
  57.             SKIP
  58.           ENDDO
  59.      ? CHR(18)
  60.      SET PRINT OFF
  61.      RETURN
  62. ENDIF