home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / ERIC / APWRITE / CONTRACT < prev    next >
Encoding:
Text File  |  1984-03-20  |  1021 b   |  76 lines  |  [04] ASCII Text (0x0000)
  1.  NY
  2.  PND
  3.  LSTARTCON
  4.  B
  5.  PPR
  6. T PIN Tenant's name? =$A
  7.  PCS /$A//
  8.  PGO T
  9.  F/(tenant)/$A/
  10.  Y?
  11. U PINApartment number? (1 through 340) =$A
  12.  PCS /$A//
  13.  PGO U
  14.  F/(unit)/$A/
  15.  Y?
  16. R PINMonthly rental rate in dollars?  (Don't type $ sign.) =$A
  17.  PCS /$A//
  18.  PGO R
  19.  F/(rate)/$A/
  20.  Y?
  21.  PND
  22. M PPR  Contract ---------------------
  23.  PPR
  24.  PPR
  25.  PPR OPTIONS:
  26.  PPR
  27.  PPR  1  Cleaning deposit
  28.  PPR  2  Rent due the 15th
  29.  PPR  3  No pets
  30.  PPR  4  Renter pays utilities
  31.  PPR
  32.  PPR
  33.  PPR
  34.  PPR
  35.  PPR Type numbers of clauses
  36.  PPR to include (1-4):
  37.  PIN RETURN stops: =$A
  38.  PPR
  39.  PCS /$A//
  40.  PGO QUIT
  41.  PCS /$A/1/
  42.  PGO CLEAN
  43.  PCS /$A/2/
  44.  PGO DUE15TH
  45.  PCS /$A/3/
  46.  PGO PETS
  47.  PCS /$A/4/
  48.  PGO UTILS
  49.  PGO M 
  50. CLEAN E
  51.  LCLAUSES!<Deposit>!<!N
  52.  PGO M
  53. DUE15TH E
  54.  LCLAUSES!<Rent Due 15th>!<!N
  55.  PGO M
  56. PETS E
  57.  LCLAUSES!<No Pets>!<!N
  58.  PGO M
  59. UTILS E
  60.  LCLAUSES!<Pays Utils>!<!N
  61.  PGO M
  62. QUIT E
  63.  LCONTRACTEND
  64.  PPR
  65.  PPR Your contract is completed.
  66.  PIN Press RETURN to see it.
  67.  PPR
  68.  b
  69.  PYD
  70. l f<><><
  71.  Y?
  72.  pgo l
  73.  b
  74.  pin              Press RETURN to continue.
  75.  pasREPEAT=$D
  76.  pdodemos