5 REM CIS 101 Assignment for June 13, 1999.  This program will test numbers
7 REM and determine whether they are divisible by two or not.
9 REM Daniel R. Works 6-12-99
10 CLS
20 PRINT "Enter a number( 2 divisibility test)"
30 INPUT x
40 LET b = 2
50 IF (x / b = INT(x / b)) THEN GOTO 80
60 PRINT "Your number is not divisible by 2"
62 PRINT "Would you like to calculate another number?"
63 PRINT "enter 1 for yes, 2 for no"
66 INPUT y
67 IF y = 1 GOTO 10
68 IF y = 2 GOTO 90
80 PRINT "Your number is divisible by 2"
85 PRINT "Would you like to calculate another number?"
86 PRINT "enter 1 for yes, 2 for no"
87 INPUT y
88 IF y = 1 GOTO 10
89 IF y = 2 GOTO 90
90 END