mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-12 15:50:20 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
27 lines
909 B
QBasic
27 lines
909 B
QBasic
10 PRINT TAB(33);"LETTER"
|
|
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
30 PRINT:PRINT:PRINT
|
|
100 PRINT "LETTER GUESSING GAME": PRINT
|
|
210 PRINT "I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z."
|
|
220 PRINT "TRY TO GUESS MY LETTER AND I'LL GIVE YOU CLUES"
|
|
230 PRINT "AS TO HOW CLOSE YOU'RE GETTING TO MY LETTER."
|
|
310 L=65+INT(RND(1)*26)
|
|
320 G=0
|
|
340 PRINT: PRINT "O.K., I HAVE A LETTER. START GUESSING."
|
|
410 PRINT: PRINT "WHAT IS YOUR GUESS";
|
|
420 G=G+1
|
|
430 INPUT A$: A=ASC(A$): PRINT
|
|
440 IF A=L THEN 500
|
|
450 IF A>L THEN 480
|
|
460 PRINT "TOO LOW. TRY A HIGHER LETTER.": GOTO 410
|
|
480 PRINT "TOO HIGH. TRY A LOWER LETTER.": GOTO 410
|
|
500 PRINT: PRINT "YOU GOT IT IN";G;"GUESSES!!"
|
|
504 IF G<=5 THEN 508
|
|
506 PRINT "BUT IT SHOULDN'T TAKE MORE THAN 5 GUESSES!": GOTO 515
|
|
508 PRINT "GOOD JOB !!!!!"
|
|
510 FOR N=1 TO 15: PRINT CHR$(7);: NEXT N
|
|
515 PRINT
|
|
520 PRINT "LET'S PLAY AGAIN....."
|
|
530 GOTO 310
|
|
999 END
|