guess.bas

1 PRI "THIS IS A NUMBER GUESSING GAME. I'LL THINK"
2 PRI "OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT."
3 PRI "THEN YOU HAVE TO GUESS WHAT IT IS."
4 PRI
5 PRI "WHAT LIMIT DO YOU WANT";
6 INPL
7 PRI
8 L1=INT(LOG(L)/LOG(2))+1
9 PRI"I'M THINKING OF A NUMBER BETWEEN 1 AND"L
10 G=1
11 PRI "NOW YOU TRY TO GUESS WHAT IT IS"
12 M=INT(L*RND(0))+1
13 INP N
14 IF N>0 THEN 25
15 GOSUB70
16 GOTO1
17 IF N=M THEN 50
18 G=G+1
19 IF N>M THEN 40
20 PRI "TOO LOW.  GUESS AGAIN."
21 GOTO 20
22 PRI "TOO HIGH.   GUESS AGAIN."
23 GOTO 20
24 PRI "THAT'S IT!   YOU GOT IT IN"G"TRIES."
25 IF G<L1 THEN 58
26 IF G=L1 THEN 60
27 PRI "YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY"L1"."
28 GOT 65
29 PRI"VERY ";
30 PRI"GOOD."
31 GOSUB70
32 GOTO10
33 FOR H=1 TO 5
34 PRI
35 NEXT H
36 RETURN
99 END