5 REM CIS 101 Assignment for June 20, 1999.  This program will test numbers
7 REM and determine whether they are prime or not.
9 REM Daniel R. Works 6-20-99            
10 CLS
100 PRINT "Enter a number( prime number test)"
110 INPUT x
120 FOR b = 2 TO x
125 IF b = x GOTO 400
130 IF (x / b = INT(x / b)) THEN GOTO 500
140 NEXT b
400 PRINT x; "is prime"
450 GOTO 550
500 PRINT x; " is not prime because it is divisible by "; b
550 PRINT "would you like to calculate another number?"
560 PRINT "enter 1 for yes, enter 2 for no"
570 INPUT z
580 IF z = 1 GOTO 10
590 IF z = 2 GOTO 1000
1000  END