Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
45 lines (38 sloc) 1.09 KB
1 REM guess.gwbas - guessing game in GW-BASIC
2 REM
3 REM This is written to demonstrate this language versus the same program
4 REM written in other languages.
5 REM
6 REM RUN: Load using the 8x3 filename, eg LOAD"GUESS~1.GWB"
7 REM
8 REM 17-Oct-2004 Brendan Gregg Created this.
10 scorefile$ = "highscores_gwbas"
20 num = 0
30 PRINT "guess.gwbas - Guess a number between 1 and 100"
40 PRINT
50 REM Generate Random number
60 RANDOMIZE TIMER
70 answer = INT(RND * 99) + 1
100 REM Play Game
110 num = num + 1
120 PRINT "Enter guess"; num;
130 INPUT ": ", guess
140 IF guess < answer THEN PRINT "Higher..."
150 IF guess > answer THEN PRINT "Lower..."
160 IF guess <> answer THEN GOTO 110
200 PRINT "Correct! That took"; num; "guesses"
210 PRINT
300 REM Save high score
310 INPUT "Please enter your name: "; n$
320 OPEN scorefile$ FOR APPEND AS #1
330 PRINT #1, n$, num
340 CLOSE #1
400 REM Print high scores
410 PRINT
420 PRINT "Previous high scores,"
430 OPEN scorefile$ FOR INPUT AS #2
440 WHILE NOT EOF(2)
450 INPUT #2, l$
460 PRINT l$
470 WEND
480 CLOSE #2