1 PRINT TAB(33);"GUESS":PRINT:PRINT
2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
3 PRINT:PRINT:PRINT:PRINT
4 PRINT "This is a number guessing game. I`ll think"
5 PRINT "of a number between 1 and any limit you want."
6 PRINT "Then you have to guess what it is."
7 PRINT
8 PRINT "What limit do you want";
9 INPUT L
10 PRINT
11 L1=INT(LOG(L)/LOG(2))+1
12 PRINT "I`m thinking of a number between 1 and ";L
13 G=1
14 PRINT "Now you try to guess what it is."
15 M=INT(L*RND(1)+1)
20 INPUT N
21 IF N>0 THEN 25
22 GOSUB 70
23 GOTO 1
25 IF N=M THEN 50
30 G=G+1
31 IF N>M THEN 40
32 PRINT "Too low. Try a bigger answer."
33 GOTO 20
40 PRINT "Too high. Try a smaller answer."
42 GOTO 20
50 PRINT "That`s it!! You got it in";G;"tries."
52 IF G<L1 THEN 58
54 IF G=L1 THEN 60
56 PRINT "You should have been able to get it in only";L1
57 GOTO 65
58 PRINT "VERY ";
60 PRINT "GOOD."
65 GOSUB 70
66 GOTO 12
70 FOR H=1 TO 5
71 PRINT
72 NEXT H
73 RETURN
99 END
OTO 65
58 PRINT "VERY ";