10 REM BASIC WEEK 4
20 CLS
30 PRINT "TYPE IN A NUMBER"
40 INPUT N
50 PRINT N
60 PRINT N / 2
70 END

100 REM QBASIC
110 CLS
120 LETX=2
130 PRINT"TYPE IN NUMBER
140 INPUT A
150 IF (A/X=INT(A/X))TNEN GOTO 180
160 PRINT "TRY ANOTHER NUMBER"
170 GOTO 140
180 PRINT 'GOOD NUMBER"
200 END