5 REM QBASIC PROGRAM #1
7 REM This program determines if a number is divisble by two
10 CLS
15 PRINT
20 INPUT "Please enter a number"; a
30 LET b = 2
35 PRINT
40 IF (a / b = INT(a / b)) THEN PRINT a; "Is divisble by 2" ELSE PRINT a; "Is not divisble by 2"
60 END