Sorry your browser is not supported!

initialtime = timer()
loops = 0
cycles = 0

   while Joystick Fire A() = 0
      cls
         set cursor 10, 10
         print "Start Rapidly pressing button 1."
      sync
   endwhile

do:cls

currenttime = (timer() - (initialtime + (1000 * loops)))

if currenttime >= 1000
   inc loops
   totalpresses = totalpresses + presses
   inc cycles
   presses = 0
endif

avgpresses = (totalpresses / cycles)

`set cursor 10,5
`   print "Seconds past: ", currenttime

`set cursor 10,25
`   print "Presses: ", presses

set cursor 10,50
   print "Average Presses per second: ", avgpresses

set cursor 10, 100
`   print "Joystick pressed: " , JOYSTICK FIRE A()

if Joystick Fire A() = 1 and buttondown = 0
   buttondown = 1
   inc presses
endif
if Joystick Fire A() = 0 then buttondown = 0

sync
loop

initialtime = timer()
loops = 0
cycles = 0
dim results(2)

   while Joystick Fire A() = 0
      cls
         set cursor 10, 10
         print "Start Rapidly pressing button 1."
      sync
   endwhile

do:cls

currenttime = (timer() - (initialtime + (1000 * loops)))

if currenttime >= 1000
   inc loops
   results(2) = results(1)
   results(1) = results(0)
   results(0) = presses
   inc cycles
   presses = 0
endif

avgpresses = (results(0) + results(1) + results(2)) / 3

`set cursor 10,5
`   print "Seconds past: ", currenttime

`set cursor 10,25
`   print "Presses: ", presses

set cursor 10,50
   print "Average Presses per second: ", avgpresses

`set cursor 10, 100
`   print "Joystick pressed: " , JOYSTICK FIRE A()

`set cursor 10, 120
`   print "1st: ", results(0), " - 2nd: ", results(1), " - 3rd: ", results(2)

if Joystick Fire A() = 1 and buttondown = 0
   buttondown = 1
   inc presses
endif
if Joystick Fire A() = 0 then buttondown = 0

sync
loop