100 REM JOYCE’S PRIME NUMBER ALGORITH

120 PRINT “PLEASE TYPE IN A NUMBER:”

130 INPUT X

140 LET B=X/2

150 IF B=INT (B) GO TO 200 IF NOT CONTINUE

160 DIVIDE B BY THE NEXT ODD NUMBER

170 IF B=INT (B) GO TO 200 IF NOT CONTINUE

180 CONTINUE DIVIDING X BY THE NEXT ODD NUMBER UNTIL YOU REACH X

190 IF YOU DO NOT REACH AN INTERGER UNTIL YOU REACH THE X THEN GO TO 210

200 PRINT ‘THIS IS NOT A PRIME NUMBER’

210 PRINT “THIS IS A PRIME NUMBER

220 END OF PROCEDURE