#B
.J
NEW
10 REM This is a benchmark program
11 REM configured for the Z88
12 REM Timings are:   Model 100--- 1900 sec
13 REM                Kaypro II--- 1100 sec
14 REM                Z88--------- 1002 sec
15 REM Now that you know the Z88 timing,
16 REM you don't need to run it!
17 REM Phil Wheeler -- 12/88
20 *NAME BENCH
50 DEFSNG A-Z
100 T1$=TIME$
140 FOR N=1 TO 1000
150 FOR K=2 TO 500
160 LET M=N/K
170 LET L=INT(M)
180 IF L=0 THEN 230
190 IF L=1 THEN 220
200 IF M>L THEN 220
210 IF M=L THEN 240
220 NEXT K
230 PRINT N;
240 NEXT N
245 PRINT:PRINT "STARTED AT ";T1$
250 PRINT "ENDED AT   ";TIME$
260 END