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