Sorry your browser is not supported!

sync on : sync rate 60
ink rgb(255,255,255),1

global maxdata
dim mydata(maxdata)

for i = 1 to 10
   mydata(i) = i*4
   print mydata(i)
next i
sync : suspend for key : undim mydata(maxdata)

_top:

number=rnd(100)

cls

if number=>0 and number=<1
print number; \"% is 0-1%\"
wait key
endif

if number>1 and number=<5
print number; \"% is 2-5%\"
wait key
endif

if number>5 and number=<10
print number; \"% is 6-10%\"
wait key
endif

if number>10 and number=<20
print number; \"% is 11-20%\"
wait key
endif

if number>20 and number=<25
print number; \"% is 21-25%\"
wait key
endif

if number>25 and number=<50
print number; \"% is 26-50%\"
wait key
endif

if number>50 and number=<100
print number; \"% is 51-100%\"
wait key
endif

goto _top

dim Max(6,1)

Max(0,1)=1
Max(1,0)=2 : Max(1,1)=5
Max(2,0)=6 : Max(2,1)=10
Max(3,0)=11 : Max(3,1)=20
Max(4,0)=21 : Max(4,1)=25
Max(5,0)=26 : Max(5,1)=50
Max(6,0)=51 : Max(6,1)=100

_top:

number=rnd(100)
cls
for t=0 to 6
 if number=>Max(t,0) and number<=Max(t,1)
  print str$(number)+"% is "+str$(Max(t,0))+"-"+str$(Max(t,1))
 endif
next t
wait key

goto _top

dim max(6,1)

max(0,1)=1
max(1,0)=2
max(1,1)=5
max(2,0)=6
max(2,1)=10
max(3,0)=11
max(3,1)=20
max(4,0)=21
max(4,1)=25
max(5,0)=26
max(5,1)=50
max(6,0)=51
max(6,1)=100

_top:

number=rnd(100)
cls
for t=0 to 6
if number=>max(t,0) and number<=max(t,1)
print (number); "% is "; (max(t,0));"-";(max(t,1))
endif
next t
wait key

goto _top