' Pausentest DECLARE SUB Pause (t!) DIM SHARED kal&, faktor! kal& = 0& t! = TIMER WHILE TIMER = t! WEND t! = TIMER + 1! WHILE TIMER < t! kal& = kal& + 1& WEND INPUT "Faktor"; faktor! t! = TIMER WHILE TIMER = t! WEND t1! = TIMER Pause 10! t2! = TIMER - t1! faktor! = faktor! * 10! / t2! PRINT faktor! SUB Pause (t!) FOR i& = 1& TO CLNG(t! * faktor! * CLNG(kal&)) NEXT i& END SUB