home *** CD-ROM | disk | FTP | other *** search
/ Publication 8 / Publication_08_1996_High-Tech_de_Side_B.d64 / balkendiagramme (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  632b  |  30 lines
  1. 10 rem ********************************
  2. 11 rem * balkendiagramme/pbc issue #8 *
  3. 12 rem ********************************
  4. 13 rem
  5. 14 rem 13 zufallszahlen
  6. 15 rem
  7. 16 dim gp(13),z(13):an=13:forg=1to13:gp(g)=int(rnd(1)*20)+10:next
  8. 17 rem
  9. 18 rem hoechste zahl ermitteln
  10. 19 rem
  11. 20 a=gp(1):forg=2toan:ifa<gp(g)thena=gp(g)
  12. 21 next
  13. 22 rem
  14. 23 rem prozente errechnen
  15. 24 rem
  16. 25 b=((a-15)*100)/a:forg=1toan:z(g)=gp(g)-((gp(g)*b)/100):nextg
  17. 26 rem
  18. 27 rem diagramm auf bildschirm
  19. 28 rem
  20. 29 forg=1toan:forq=1toz(g):poke211,g*3-2:poke214,20-q:sys58732
  21. 30 print"  [146]":nextq,g
  22. 31 rem
  23. 32 rem zahlen unter die balken
  24. 33 rem
  25. 34 forg=1toan:poke211,g*3-3:poke214,22:sys58732:printgp(g):nextg
  26. 35 rem
  27. 36 rem endlosschleife
  28. 37 rem
  29. 38 goto38
  30.