1 REM guess a number game

5 LET actual=INT(RND*100)
6 LET tries=0

10 PRINT "guess a number"
20 INPUT num$
30 LET num=VAL(num)
31 LET tries=tries+1
40 IF num<actual THEN GOTO 100
50 IF num>actual THEN GOTO 200
60 GOTO 300

100 PRINT "too low"
110 GOTO 10

200 PRINT "too high"
210 GOTO 10

300 PRINT "correct"
310 PRINT "took "; tries; " tries"