' *** CODE 5.3: Zeitsteuerung in der Hauptschleife DIM AS DOUBLE letzteAusfuehrung = TIMER ' Zeitpunkt der letzten Ausfuehrung DIM AS DOUBLE naechsteAusfuehrung = 1.0 ' Abstand zwischen zwei Ausfuehrungen DIM AS STRING taste ' Benutzereingabe DO taste = INKEY IF taste = CHR(27) THEN EXIT DO ' Programmende bei Eingabe von ESC ELSEIF taste <> "" THEN PRINT taste; ' Benutzereingabe anzeigen END IF IF TIMER > letzteAusfuehrung + naechsteAusfuehrung THEN ' Ausfuehrung des Ereignisses PRINT "."; letzteAusfuehrung = TIMER ' aktuellen Zeitpunkt speichern END IF SLEEP 1 ' Pause fuer den Prozessor LOOP