home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / propmgr2.zip / PRINT.TNT < prev    next >
Text File  |  1986-09-03  |  3KB  |  102 lines

  1. * DATE 07/19/84  18:00
  2. * Screen print
  3. @ 22,0 SAY 'PRINT OPTIONS: S (SINGLE SPACE), D (DOUBLE SPACE), N (NO PRINTING)       '
  4. STOR 'Y' TO PRNTSCRN
  5. STOR 'N' TO PRNTOPT
  6. @ 22,67 GET PRNTOPT PICTURE '!'
  7. READ
  8. DO WHIL @(PRNTOPT, 'SDN') = 0
  9.  @ 22,67 GET PRNTOPT PICTURE '!'
  10.  READ
  11. ENDD
  12. IF PRNTOPT = 'S'
  13.  STOR 1 TO LINEMULT
  14. ENDI
  15. IF PRNTOPT = 'D'
  16.  STOR 2 TO LINEMULT
  17. ENDI
  18. IF PRNTOPT = 'N'
  19.  STOR 'N' TO PRNTSCRN
  20. ENDI
  21. IF PRNTSCRN = 'Y'
  22.  STOR trent TO trentx
  23.  IF ttype = 'P'
  24.   IF (trentpc*(trentpcr/100)/12)>trent
  25.    STOR (trentpc*(trentpcr/100)/12) TO trentx
  26.   ENDI (trentpc)
  27.  ENDI ttype = 'P'
  28.  IF ttype = 'O'
  29.   STOR ((trentpc*(trentpcr/100)/12)+trent) TO trentx
  30.  ENDI ttype = 'O'
  31.  STOR (trentx + tlatec + taddl + trente + trentm) TO trentxx
  32.  SET FORMAT TO PRINT
  33.  EJEC
  34.  @ LINEMULT*4,3 SAY 'Tenant:'
  35.  @ LINEMULT*4,12 SAY TENANT
  36.  @ LINEMULT*4,54 SAY 'Code:'
  37.  @ LINEMULT*4,61 SAY BCODE
  38.  @ LINEMULT*5,5 SAY 'Unit:'
  39.  @ LINEMULT*5,12 SAY TUNIT
  40.  @ LINEMULT*5,27 SAY 'Building:'
  41.  @ LINEMULT*5,38 SAY BADDR
  42.  @ LINEMULT*6,2 SAY 'Contact:'
  43.  @ LINEMULT*6,12 SAY TCONTAC
  44.  @ LINEMULT*6,53 SAY 'Phone:'
  45.  @ LINEMULT*6,61 SAY TPHONE
  46.  @ LINEMULT*7,9 SAY 'Alternate mailing address:'
  47.  @ LINEMULT*7,36 SAY ALT
  48.  @ LINEMULT*8,1 SAY 'Address:'
  49.  @ LINEMULT*8,10 SAY ALTAD
  50.  @ LINEMULT*9,4 SAY 'City:'
  51.  @ LINEMULT*9,10 SAY ALTCTY
  52.  @ LINEMULT*11,5 SAY 'Type:'
  53.  @ LINEMULT*11,12 SAY TTYPE
  54.  @ LINEMULT*11,20 SAY 'Addl Percentage:'
  55.  @ LINEMULT*11,38 SAT TRENTPC USING '99.9999'
  56.  @ LINEMULT*11,49 SAY '1st Lease:'
  57.  @ LINEMULT*11,61 SAY TFIRST
  58.  @ LINEMULT*12,5 SAY 'Base:'
  59.  @ LINEMULT*12,12 SAY TRENTPCR USING '$999,999,999'
  60.  @ LINEMULT*12,25 SAY 'Expiration:'
  61.  @ LINEMULT*12,38 SAY TEXPIR
  62.  @ LINEMULT*13,1 SAY 'Security:'
  63.  @ LINEMULT*13,12 SAY TSEC USING '$99,999.99'
  64.  @ LINEMULT*13,31 SAY 'Bank:'
  65.  @ LINEMULT*13,38 SAY TSECB
  66.  @ LINEMULT*13,49 SAY 'Late Date:'
  67.  @ LINEMULT*13,61 SAY TLATE
  68.  @ LINEMULT*14,5 SAY 'Rent:'
  69.  @ LINEMULT*14,12 SAY TRENT USING '$99,999.99'
  70.  @ LINEMULT*14,26 SAY 'Late Chgs:'
  71.  @ LINEMULT*14,38 SAY TLATEC USING '$99,999.99'
  72.  @ LINEMULT*14,49 SAY 'Addl Rent:'
  73.  @ LINEMULT*14,61 SAY TADDL USING '$99,999.99'
  74.  @ LINEMULT*15,4 SAY 'G & E:'
  75.  @ LINEMULT*15,12 SAY TRENTE USING '$99,999.99'
  76.  @ LINEMULT*15,26 SAY 'Other Chgs:'
  77.  @ LINEMULT*15,38 SAY TRENTM USING '$99,999.99'
  78.  @ LINEMULT*15,49 SAY 'Total Rent:'
  79.  @ LINEMULT*15,61 SAY TRENTXX USING '$99,999.99'
  80.  @ LINEMULT*16,1 SAY 'Rent Due:'
  81.  @ LINEMULT*16,12 SAY TRENTD USING '$99,999.99'
  82.  @ LINEMULT*16,23 SAY 'Last Payment:'
  83.  @ LINEMULT*16,38 SAY TRENTPD
  84.  @ LINEMULT*16,50 SAY 'Amt Paid:'
  85.  @ LINEMULT*16,61 SAY TRENTP USING '$99,999.99'
  86.  @ LINEMULT*17,01 SAY 'Total Yr:'
  87.  @ LINEMULT*17,12 SAY TRENTY USING '$99,999.99'
  88.  @ LINEMULT*17,31 SAY 'Flag:'
  89.  @ LINEMULT*17,38 SAY TFLAG
  90.  @ LINEMULT*17,53 SAY 'Total:'
  91.  @ LINEMULT*17,61 SAY TRENTT USING '$99,999.99'
  92.  @ LINEMULT*19,4 SAY 'Notes:'
  93.  @ LINEMULT*19,12 SAY TNOTES
  94.  @ LINEMULT*19,52 SAY 'Update:'
  95.  @ LINEMULT*19,61 SAY TUPDATE
  96.  @ LINEMULT*21,1 SAY DATE()
  97.  @ 52,0 SAY ' '
  98.  SET FORMAT TO SCREEN
  99. ENDI
  100. RELE PRNTSCRN, PRNTOPT, LINEMULT
  101. @ 22,00
  102.