home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug105.arc / MAILMEN.LQR / BIRTHDAY.CMD next >
OS/2 REXX Batch file  |  1979-12-31  |  768b  |  27 lines
  1. * BIRTHDAY.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. @ 10,5 SAY 'Mount Labels one across by 15/16" high in Printer'
  6. @ 12,5 SAY 'Press any key when ready'
  7. set console off
  8. wait
  9. set console on
  10.      USE &DBF1
  11.      GO TOP
  12.      SET PRINT ON
  13.      ? CHR(15)
  14.      DO WHILE .NOT. EOF
  15.           IF BIRTHDAY <> ' '
  16.                ? TRIM(FIRST), LAST
  17.                ? ADDR1
  18.                ? ADDR2
  19.                ? TRIM(CITY)-"," , STATE, ZIP
  20.                ? BIRTHDAY
  21.                ? 
  22.           ENDIF
  23.           SKIP
  24.      ENDDO
  25.      ? CHR(18)
  26.      SET PRINT OFF
  27.      RETURN