Basic/data/BENCH1.TXT
Joerg Deckert cbee494fe7 Basic 2.2
2014-05-18 19:57:12 +02:00

12 lines
196 B
Plaintext

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"