10 CLS
20 LET b = 37
30 PRINT "type in a number";
100 INPUT a
140 IF (a / b = INT(a / b)) THEN GOTO 200
160 PRINT "TRY ANOTHER NUMBER";
170 GOTO 100
200 PRINT " GOOD NUMBER"
210 END