100 PRINT "Interface Age Prime-Number Benchmark Program"
110 FOR N=1 TO 1000
120 FOR K=2 TO 500
130 M=N/K                              REM -------- on AM-100 ------------
140 L=INT(M)                           REM Interactive BASIC - 570 seconds
150 IF L=0 THEN 200                    REM UCSD PASCAL       - 510 seconds
160 IF L=1 THEN 190
170 IF M>L THEN 190
180 IF M=L THEN 210
190 NEXT  K
200 PRINT N
210 NEXT  N                            REM - on VAM 0.3 w/ 1.0g p3, w2k --
220 PRINT                              REM Interactive BASIC -  13 seconds
230 PRINT
240 PRINT "Done"                       REM - on VAM 0.3 w/P166 , rh 6.2 --
250 END                                REM Interactive BASIC -  88 seconds