Pause in Basic

    Hi,


    wie programmiere ich am besten eune Pause von ca. 5 sec in Basic? Mit After Gosub gehts leider nicht wenn es mich nicht täuscht, bzw die 5 sec werden nicht erreicht. :roll:

    Mit dem After Gosub lagst du gar nicht so falsch. Du musst den CPC natuerlich dann auch 5 Sekunden lang beschaeftigen und die Einheit fuer den Befehl sind 0.02 Sekunden.
    Hier mal ein kleines Beispielprogramm:


    Code
    5 a=0:begin=TIME
10 AFTER 250 GOSUB 100
20 IF a=0 GOTO 20
30 END
100 PRINT"5 Sekunden!!!"
110 a=1:PRINT"Gemessen: ",(TIME-begin)/300
120 RETURN

    Wenn es nicht ganz so genau sein muss:


    auf einem Original-CPC war eine Leer-Schleife ein guter Zeitnehmer


    Code
    10 a=time
20 for i=0 to 5000:next
30 b=time
40 print "Wartezeit :";(b-a)/300


    Dafür darf i allerdings kein INT sein ... (mit i% braucht es kaum 2 Sekunden)