200 REM DIVISIBLE BY TWO
210 PRINT "ENTER NUMBER OR 299 TO EXIT"
220 INPUT X
225 IF X = 299 THEN 299
230 LET D = X / 2
240 '
245 PRINT "YOUR NUMBER";
250 IF D = INT(D) THEN PRINT " IS";  ELSE PRINT " IS NOT";
260 PRINT " DIVISIBLE BY TWO"
270 PRINT
280 GOTO 210
290 '
299 END