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 / CMOUSE.LQR / PRNTMOUS.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  55 lines
  1. SET PRINT ON
  2. SET CONSOLE OFF
  3. STORE CHR(13) TO CAR:RET
  4. STORE CHR(10) TO LINE:FEED
  5. STORE "                            " TO SPACES
  6. STORE "                        " TO SPACEA
  7. ?? TRIM(FIRST:NAME)+'  '+TRIM(LAST:NAME)
  8. ? TRIM(FRST:NAME2)+'  '+TRIM(LST:NAME2)
  9. ? STREET+CAR:RET
  10. ?? SPACES+"BIRTHDATE   "+$(BIRTHDAY,1,2)+"/"+$(BIRTHDAY,3,2)
  11. ? TRIM(CITY)+', '+STATE+'  '+ZIP+CAR:RET
  12. ?? SPACES+"ZONE        "+ZONE
  13. ? "HOME PHONE "
  14. ?? "("+$(HOME:PHONE,1,3)+") "+$(HOME:PHONE,4,3)+;
  15.     "-"+$(HOME:PHONE,7,4)+CAR:RET
  16. ?? SPACES+"DATE JOINED "+$(MEMBER,1,2)+"/"+$(MEMBER,3,2)
  17. ? "WORK PHONE "
  18. ?? "("+$(BUS:PHONE,1,3)+") "+$(BUS:PHONE,4,3)+;
  19.     "-"+$(BUS:PHONE,7,4)+CAR:RET
  20. ?? SPACES+"ANNIVERSARY "+$(ANNVRSRY,1,2)+"/"+$(ANNVRSRY,3,2)
  21. ? CHR(13)
  22. ? "CMNTS "+COMMENTS
  23. ?? CHR(13)
  24. ? "NOTES "+NOTES
  25. ?? CHR(13)
  26. ? "SP IN "+SPEC:INTST
  27. ?
  28. ? "DEAR "+SALUT1+CAR:RET
  29. ?? SPACEA+"DEAR (2) "+SALUT2
  30. * Extra code here because of a problem observed with Ver. 2.4
  31.   STORE ".F." TO PARTNER1
  32.   STORE ".F." TO MAILING11
  33.   STORE ".F." TO MAILING21
  34.   IF PARTNER
  35.       STORE ".T." TO PARTNER1
  36.   ENDIF
  37.   IF MAILING1
  38.       STORE ".T." TO MAILING11
  39.   ENDIF
  40.   IF MAILING2
  41.       STORE ".T." TO MAILING21
  42.   ENDIF
  43. ? "PARTNER  "+PARTNER1+"   MAILING1 "+MAILING11+"  MAILING2 "+MAILING21
  44. ? "FIRST VISIT "+$(VISIT1,1,2)+"/"+$(VISIT1,3,2)+"/"+$(VISIT1,5,2)+CAR:RET
  45. ?? SPACES+"2D VISIT "+$(VISIT2,1,2)+"/"+$(VISIT2,3,2)+"/"+$(VISIT2,5,2)
  46. ? CAR:RET+LINE:FEED
  47. ?
  48. ?
  49. ?
  50. RELEASE CAR:RET, LINE:FEED, SPACES, SPACEA
  51.  
  52. SET PRINT OFF
  53. SET CONSOLE ON
  54. RETURN
  55.