REM This is a program designed to test if a number is divisible by 2.
99  CLS
100 PRINT "Homework. BASIC Program: Test for divisibility by 2"
110 PRINT
120 PRINT
121 PRINT
122 PRINT
130 PRINT "To determine if a number is divisible by 2, please type in a number and then    press <enter>."
140 INPUT "The number you have chosen is"; X
150 IF ((X / 2) = INT(X / 2)) THEN
    PRINT X; "is indeed divisible by 2, the answer is:"; (INT(X / 2))
    ELSE PRINT "Sorry,"; X; "is not divisible by 2"
    END IF
160 PRINT
161 PRINT
170 INPUT "Would you like to try again? Press 1 for Yes or 2 for No"; answer
180 IF answer = 1 THEN GOTO 140
190 IF answer = 2 THEN GOTO 191
191 PRINT
192 PRINT
900 PRINT "This program is now over.  Thank you for playing."


999 END