100 CLS
110 '
120 PRINT "Prime Number Test"
130 input "Enter a number you wish to test for prime, greater than zero please"; X
200
210 IF X = 0 THEN PRINT "Error": GOTO 130
220 IF X = 1 THEN PRINT "1 is neither a prime number or a composite number": GOTO 130
230 IF X = 3 THEN PRINT "3 is a prime number.": GOTO 500
240     LET Y = (X / 2)
250             IF Y = 1 THEN PRINT X; "is a prime number.": GOTO 500
260                     IF Y = INT(Y) THEN PRINT X; "is not prime because it is divisible by 2.": GOTO 400
300     LET Q = (X - 2)
310     FOR M = 3 TO Q STEP 2
320                LET P = (X / M)
330                IF P = INT(P) THEN PRINT X; "is not prime because it is divisible by"; M: GOTO 400
340     NEXT M
350 PRINT X; "is a prime number"
400 PRINT "Would you like to try again? (Y/N)"
410 INPUT A$
420 IF A$ = "Y" THEN GOTO 130
500
510 PRINT "Good bye."
999 END