10 'This is a benchmark program
11 'configured for the M100.
12 'Timings are:Model 100---1900sec
13 '            Kaypro II---1100sec
14 '            NEC---------????sec
20 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$:BEEP

es