900 REM > Primes4

  910 REM 21Sep1996 JGH: Fast 6n-1, 6n+1 prime lister

  920 :

  930 PRINT2;" is prime number 1":PRINT3;" is prime number 2"

  940 N%=5:I%=2:O%=2:T%=TIME:REPEAT

  950   D%=1:A%=4:F%=FALSE:IF(N%MOD3):L%=SQRN%:REPEATD%=D%+A%:A%=A%EOR6:F%=(N%MODD%)=0:UNTILF%ORD%>=L%

  960   IFNOT(F%ANDD%<=L%):O%=O%+1:PRINTN%;" is prime number ";O%;" after ";(TIME-T%)/100;" secs"

  970 N%=N%+I%:I%=I%EOR6:UNTILFALSE