100 REM Percy Jones prime algorythm
110 INPUT "Please input a interger number ", N
120 LPRINT "Your number is "; N; A$ = "YES"
130 FOR Test = 2 TO SQR(N)
140 IF INT(N / Test) = N / Test THEN A$ = "NO": PRINT "Divisor:"; Test
150 NEXT Test
160 PRINT "Is this a prime number?.. "; A$