100 PRINT "FIND PRIME NUMBERS"
110 PRINT "ENTER NUNBER 2 TO 1000000"
120 INPUT X
130 IF X < 2 GOTO 110
140 IF X > 1000000 GOTO 110
150 A = 0
160 FOR Y = 2 TO X / 2
    IF X / Y <> INT(X / Y) GOTO 300
    PRINT "DIVISIBLE BY"; Y
    A = 1
300 NEXT Y
310 IF A = 1 GOTO 400
320 PRINT "THIS NUMBER IS PRIME"
330 GOTO 500
400 PRINT "NUMBER IS NOT PRIME"
500 END