CLS : COLOR 9: PRINT "Premere un tasto per iniziare!"
A$ = INPUT$(1)
PRINT "Attendere prego..."
SOUND 6000, 5
H1 = VAL(LEFT$(TIME$, 2)): M1 = VAL(MID$(TIME$, 4, 2)): S1 = VAL(RIGHT$(TIME$, 2))
DO
   I = I + 1
LOOP UNTIL I = 5000000
H2 = VAL(LEFT$(TIME$, 2)): M2 = VAL(MID$(TIME$, 4, 2)): S2 = VAL(RIGHT$(TIME$, 2))
Sec = (H2 - H1) * 3600 + (M2 - M1) * 60 + (S2 - S1)
COLOR 14: PRINT Sec; "secondi trascorsi."
SOUND 6000, 5
FOR J = 1 TO 20000: NEXT