// BCPL program to printe prime numbers up to "N" GET "LIBHDR" MANIFEST $( N = 1000 $) LET START() BE $( LET CNT = 0 LET ISPRIME(P) = VALOF $(F LET ISP(P, D) = VALOF $( IF D * D > P THEN RESULTIS TRUE IF P REM D = 0 THEN RESULTIS FALSE RESULTIS ISP(P, D + 2) $) TEST P = 2 THEN RESULTIS TRUE ELSE $( TEST P REM 2 = 0 THEN RESULTIS FALSE ELSE RESULTIS ISP(P, 3) $)F FOR I = 2 TO N DO IF ISPRIME(I) THEN $( WRITEF("%I8", I) CNT := CNT + 1 $) WRITEF("*N%I6 primes*N", CNT) $) |