home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l076 / 1.ddi / BARCHART.TRU < prev    next >
Encoding:
Text File  |  1988-08-27  |  1.0 KB  |  43 lines
  1. !  Advanced Bar Charts.
  2. !
  3. DIM prob(6)
  4. SET mode "graphics"
  5. SET back "blue"
  6.  
  7. FOR chart = 1 to 6
  8.     CALL Make_window(#1,chart,7)
  9.     READ title$
  10.     MAT READ prob
  11.     CALL bars(title$,prob)
  12. NEXT chart
  13.  
  14. DATA Northeast, .3, .4, .44, .52, .43, .38
  15. DATA Southeast, .22, .23, .44, .52, .6, .67
  16. DATA Central, .44, .42, .38, .36, .37, .32
  17. DATA Northwest, .56, .58, .65, .67, .72, .74
  18. DATA Southwest, .56, .59, .61, .62, .65, .67
  19. DATA West, .44, .49, .67, .65, .72, .77
  20. END
  21.  
  22.  
  23. SUB bars(title$,prob())
  24.     FOR i = Lbound(prob) to Ubound(prob)
  25.         IF prob(i)<.5 then SET color "cyan" else SET color "magenta"
  26.         BOX AREA i-.4,i+.4,.001,prob(i)
  27.         SET color "white"
  28.         BOX LINES i-.4,i+.4,.001,prob(i)
  29.     NEXT i
  30.     PLOT TEXT, at .5, .8: title$
  31. END SUB
  32.  
  33. SUB Make_window(#1,chart,n)
  34.     CLOSE #1
  35.     LET left = mod(chart-1,3)/3 + .02
  36.     LET bot  = .5 - Int((chart-1)/3)/2
  37.     OPEN #1: screen left,left+.29, bot+.04,bot+.46
  38.     SET color "white"
  39.     BOX LINES 0,1,0,1
  40.     PLOT 0,.5; 1,.5
  41.     SET window 0,n,0,1
  42. END SUB
  43.