1 !
2 !		From Assignment: Benchmark by Tom Fox
3 !		in Interface Age, June 1980, page 130.
4 !
100 !		INTERFACE AGE's benchmark program to
110 !		'discover' the first 1000 prime numbers
120 !
130 PRINT "Starting:"
140 FOR N = 1 TO 1000
150  FOR K = 2 TO 500
160   M = N/K
170   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
250 PRINT "FINISHED."
270 END