0MODE0:REM ADDED BY CJR
10 REM PRIM8BS. K2K (Peter Davy's) mo
dification of D6E's (R. Harker's) progra
m in Issue No.50 for listing PRIME NUMBE
RS.
20 PRINT 2;" is prime number ";1:PRIN
T 3;" is prime number ";2
30 number%=5
40 try%=1
50 order%=2
60 REPEAT
70 REPEAT
80 try%=try%+2
90 IF (number% MOD try%)=0 THEN facto
rfound=TRUE ELSE factorfound=FALSE
100 UNTIL factorfound OR try%>SQR(numb
er%)
110 IF NOT factorfound AND try%>SQR(nu
mber%) THEN order%=order%+1:PRINT number
%;" is prime number ";order%
120 number%=number%+2:try%=1
130 UNTIL 2=3