ШИФР 419999 ЗС5^
EEВ1А3
*NAME PRIME NUMBERS
*     The ^L char before *NAME is important
*     NO LIST	Disable source listing by removing spaces between * and NO
*NO LOAD LIST	Enable loader listing by adding 5 spaces between * and NO
*               Disabling fanfold page alignment
*CALL NOTLIS
*ASSEM
 ETIME: ,NAME,
c       Get time of day in jiffies
	,*53 , 010B
c       OR the integer exponent
	,AOX , =6400000000000000
c       F.p. divide by 50
	,A/X , =R50.0
c       Return
     13 ,UJ  ,
	,END ,
*FTN
        PROGRAM MAIN
        PRINT 1000
1000    FORMAT(' Computing prime numbers the dumb way')
        TIME0 = ETIME(0)
        CALL PRIMES
        TIME1 = ETIME(0)
        NTIME = TIME1 - TIME0
        PRINT 2000, NTIME
        STOP
2000    FORMAT (' Time, seconds =', i6)
        end

        SUBROUTINE PRIMES
        T=0
        DO 10 N=1001, 100000, 2
                MAXK=SQRT(N+0.0)+1
                DO 20 K=3, MAXK, 2
                M = (N / K) * K
                IF (N .EQ. M) GOTO 10
20              CONTINUE
c------ Printing every 1000th prime number
                T=T+1
                IF (T .LT. 1000) GOTO 10
                PRINT 1000, N
                T=0
10      CONTINUE
        RETURN
1000    FORMAT (1X, I9)
        END
*EXECUTE
*     The ^L char after *END FILE is important
*END FILE
ЕКОНЕЦ
