3 CLS
5 PRINT "Warte auf Sekunde 0"
10 a=GTIME (3)
11 IF a>0 THEN GOTO 10
20 PRINT "Start"
30 FOR i=1 TO 1000
40 NEXT i
90 c=GTIME (3):d=GTIME (2)
100 PRINT "stop"
110 PRINT "Laufzeit:";c;"sek"