home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / EXPENSE.TRU < prev    next >
Encoding:
Text File  |  1985-01-05  |  559 b   |  18 lines
  1. ! Draw histogram of projected expenses.
  2. !
  3. DIM expense(1980 to 1989)      ! Bounds run from 1980 to 1989           
  4.  
  5. FOR i = 1980 to 1989           ! Run through those years
  6.     READ expense(i)            ! Read projected expense
  7.     IF expense(i) > max_exp then let max_exp = expense(i)    
  8. NEXT i
  9.  
  10. SET WINDOW 1980, 1990, 0, 1.1*max_exp    ! Set window
  11.     
  12. FOR i = 1980 to 1989                     ! Run through years
  13.     BOX AREA i, i+.5, 0, expense(i)      ! Draw bars
  14. NEXT i
  15.  
  16. DATA 4000,4500,7000,8700,8900,11400,11200,10100,9800,9900
  17. END
  18.