home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / ERIC / APWRITE / FLETTER < prev    next >
Encoding:
Text File  |  1984-03-20  |  754 b   |  60 lines  |  [04] ASCII Text (0x0000)
  1. START PSX 1
  2.  NY
  3.  PND
  4.  PIN  What is your name? =$B
  5.  PPR
  6.  PPR
  7.  PIN What is the date? =$C
  8.  PPR
  9.  LFORMLET
  10.  B
  11.  PYD
  12.  PND
  13.  PPR Here's the original form letter
  14.  PIN Press RETURN to modify: =$A
  15. REPADDR PYD
  16.  NY
  17.  LFORMLET
  18.  B
  19.  F/(Address)//
  20.  Y?
  21.  LADDRESSES!((X))!(!N
  22.  PGO REPNAME
  23.  PGO QUIT
  24. REPNAME F/(Name)//
  25.  Y?
  26.  LADDRESSES<((X))<><N
  27.  F/(FirstName)//
  28.  Y?
  29.  PGO FOUND
  30.  PGO NEXTFORM
  31. FOUND LADDRESSES<((X))< <N
  32.  PGO REPNAME
  33. NEXTFORM PSX +1
  34.  E
  35.  F/(Signature)/$B/
  36.  Y?
  37.  B
  38.  F!(Date)!$C!
  39.  Y?
  40.  B
  41.  PIN"E" stops; Press RETURN for next letter=$A
  42.  PCS /$A/E/
  43.  PGO QUIT
  44.  PCS /$A/e/
  45.  PGO QUIT
  46.  PPR
  47.  PGO REPADDR
  48. QUIT NY
  49.  LADDRESSES
  50.  E
  51.  PND
  52.  PPR
  53.  PPR
  54.  PPR The letters were prepared
  55.  PPRfrom the addresses on this list.
  56.  PPR
  57.  PIN Press RETURN to continue. 
  58.  NY
  59.  PASREPEAT=$D
  60.  PDOdemos