10 PRINT "*** GUESS A NUMBER : GW-BASIC ***"
20 DIM RUNNING
30 RUNNING = 1
40 DIM MAXNUM
50 DIM ANSWER
60 DIM GUESS
70 DIM ANS$
80 DIM TRIES
100 REM MAIN_LOGIC_START
110 IF RUNNING = 1 THEN GOTO 200
120 PRINT "Thanks for playing!"
130 PRINT "*** GAME OVER ***"
140 END
200 GOSUB 1000
210 ANSWER = INT(RND(0)*MAXNUM)+1
220 PRINT "Ok, I am thinking of a number between 1 and";MAXNUM
230 INPUT GUESS
240 TRIES = TRIES + 1
250 IF GUESS > ANSWER THEN GOTO 400
260 IF GUESS < ANSWER THEN GOTO 500
270 IF TRIES = 1 THEN GOTO 600
280 PRINT "You got it in";TRIES;"tries!"
290 GOSUB 2000
300 GOTO 100
400 PRINT "Too High."
410 GOTO 230
500 PRINT "Too Low."
510 GOTO 230
600 PRINT "You got it in 1 try!"
610 GOTO 290
1000 REM ENTER_MAX_NUMBER
1010 INPUT "Please enter the maximum number you wish to use";MAXNUM
1020 IF MAXNUM > 0 THEN GOTO 1050
1030 PRINT "The maximum number should be greater than zero."
1040 GOTO 1000
1050 TRIES = 0
1060 RANDOMIZE TIMER
1070 RETURN
2000 REM ASK_TO_PLAY_AGAIN
2010 INPUT "Would you like to play? ('YES' or 'NO')"
2020 IF ANS$="YES" OR ANS$="Y" OR ANS$="y" OR ANS$="yes" THEN GOTO 2060
2030 IF ANS$="NO" OR ANS$="N" OR ANS$="n" OR ANS$="no" THEN GOTO 2080
2040 PRINT "Please respond with either 'YES' or 'NO'"
2050 GOTO 2000
2060 RUNNING = 1
2070 RETURN
2080 RUNNING = 0
2090 RETURN