8-Bit Software Online Conversion

Prime Numbers 2 - Listing

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