DECLARE SUB Click () COMMON SHARED Geek DO TimerSave = TIMER FOR Numba = 1 TO 8: Geek = 1 DO IF TIMER + Numba > TimerSave THEN Click: EXIT DO LOOP NEXT FOR Numba = 8 TO 10 STEP .1: Geek = .1 DO IF TIMER + Numba > TimerSave THEN Click: EXIT DO LOOP NEXT LOOP SUB Click SOUND 800, .5 SOUND 0, Geek * 18.2 SELECT CASE Geek CASE IS >= 1 PRINT ">"; CASE IS < 1 PRINT "ù"; END SELECT END SUB