home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / aminet / jdlib4_6.lha / Procs / _Statistik.AMOS / _Statistik.amosSourceCode
AMOS Source Code  |  2008-12-10  |  1KB  |  32 lines
  1. '
  2. '
  3. '                              Statistik v1.0  
  4. '
  5. '                           Coding by Holltronic 
  6. '
  7. '                               Manowar 1993 
  8. '
  9. '   Syntax : 
  10. '             Statistic [ Wert1 , Wert2 , Wert3 , Wert4 , Wert5 ]  
  11. '
  12. Screen Open 0,320,250,4,0 : Curs Off : Cls 0 : Flash Off : Palette $4,$F,$FFF
  13. '
  14. STATISTIC[4300,1012,710,5220,2310]
  15. '
  16. Procedure STATISTIC[NR1,NR2,NR3,NR4,NR5]
  17. '
  18. If NR1<200 and NR2<200 and NR3<200 and NR4<200 and NR5<200 Then NE=1 : Goto GOON
  19. AD1=Max(NR1,NR2) : AD2=Max(NR4,NR5) : AD3=Max(AD1,AD2) : AD4=Max(AD3,NR5) : NE=AD4/200
  20. '
  21. GOON: Bell 80 : Ink 1
  22. '
  23. For T=0 To NR1 Step NE : Draw 10,200-ARC To 60,200-ARC : Inc ARC : Next T : ARC=0
  24. For T=0 To NR2 Step NE : Draw 70,200-ARC To 120,200-ARC : Inc ARC : Next T : ARC=0
  25. For T=0 To NR3 Step NE : Draw 130,200-ARC To 180,200-ARC : Inc ARC : Next T : ARC=0
  26. For T=0 To NR4 Step NE : Draw 190,200-ARC To 240,200-ARC : Inc ARC : Next T : ARC=0
  27. For T=0 To NR5 Step NE : Draw 250,200-ARC To 300,200-ARC : Inc ARC : Next T : ARC=0
  28. '
  29. Ink 2,0 : Text 10,210,Str$(NR1)-Space$(1) : Text 70,210,Str$(NR2)-Space$(1)
  30. Text 130,210,Str$(NR3)-Space$(1) : Text 190,210,Str$(NR4)-Space$(1) : Text 250,210,Str$(NR5)-Space$(1)
  31. '
  32. End Proc