# Primes by Trial Division - FORTRAN-66

20 December 2017

For Nevada FORTRAN, use `WRITE` unit 1, instead of 6.

INTEGER UNIT, FOUND, COUNT, I, PRIMES(100) C UNIT = 1 UNIT = 6 FOUND = 0 COUNT = 2 10 FOUND = FOUND + 1 WRITE (UNIT,*) COUNT PRIMES(FOUND) = COUNT COUNT = COUNT + 1 I = 1 IF (FOUND .LE. 100) THEN 20 IF (MOD(COUNT,PRIMES(I)) .EQ. 0) THEN COUNT = COUNT + 1 I = 1 ELSE IF (I .EQ. FOUND) GO TO 10 ENDIF I = I + 1 GO TO 20 ELSE GO TO 30 ENDIF 30 STOP END