1000 REM ......
1010 ? "ENTER (1) PRIMES/LINE , (2) LINES/BLOCK , (3) # BLOCKS , (4) IOUT : "
1020 INPUT PPL,LPB,NBLOX,IOUT
1030 OPEN #1, "PRIME.DAT", OUTPUT
1050 PRINT #IOUT USING "        ######", 2;
1060 PRINT #IOUT USING "######", 3;
1070 N=2
1080 X=3
2000 REM ...... PRIME LOOP
2010 FOR X=3 TO 1000000 STEP 2
2110   FOR DIV=3 TO SQR(X) STEP 2
2120   IF(X/DIV=INT(X/DIV)) THEN GO TO 2900
2130   NEXT DIV
2150
2200 REM ...... NEW PRIME
2210 N=N+1
2220 PRINT #IOUT USING "######", X;
2230 IF(N/PPL=INT(N/PPL)) THEN PRINT #IOUT : PRINT #IOUT "        ";
2235 Y=N/PPL/LPB
2236 IF(Y=INT(Y)) THEN GO TO 2237   ELSE GO TO 2240
2237   PRINT #IOUT
2238   PRINT #IOUT "        ";
2239   PRINT "BLOCK # ";Y   :   PRINT "        ";
2240 IF(Y >= NBLOX) THEN PRINT #IOUT : GO TO 3000
2900 NEXT X
2910
3000 REM ...... END
3010 CLOSE #1
3020 END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.