100 REM OPT LINE 100 INC 10 110 ' CALCULATE 1000 PRIMES 120 DIM P0(100) 130 T0=100 140 PRINT "START..." 150 REM CALL GETTIME 160 GOSUB 540 170 S0=TI 180 P0(1)=2 190 P0(2)=3 200 T1=3 210 L0=2 220 L1=2 230 REM DO 240 REM IF TESTNUM > PRIMENUM ( LASTTEST ) * PRIMENUM ( LASTTEST ) THEN 250 IF NOT T1>P0(L0)*P0(L0) THEN 280 260 L0=L0+1 270 REM END IF 280 T1=T1+2 290 P1=2 300 REM DO 310 REM IF ( TESTNUM MOD PRIMENUM ( PRIMEPTR ) ) < > 0 THEN 320 IF NOT (T1MODP0(P1))<>0 THEN 360 330 P1=P1+1 340 GOTO 390 350 REM ELSE 360 T1=T1+2 370 P1=2 380 REM END IF 390 REM LOOP UNTIL PRIMEPTR > LASTTEST 400 IF NOT P1>L0 THEN 310 410 L1=L1+1 420 P0(L1)=T1 430 PRINT T1; 440 REM LOOP UNTIL LASTPRIME = TOTALPRIMES 450 IF NOT L1=T0 THEN 240 460 PRINT "...DONE" 470 REM CALL GETTIME 480 GOSUB 540 490 E0=TI 500 PRINT 510 PRINT E0-S0;" SECONDS." 520 END 530 REM SUB GETTIME 540 TI$=TIME$ 550 TI=VAL(MID$(TI$,1,2))*3600 560 TI=TI+VAL(MID$(TI$,4,2))*60 570 TI=TI+VAL(MID$(TI$,7,2)) 580 REM ENDSUB 590 RETURN