add all BASIC source files and folders

54 Letter/README.md

@@ -0,0 +1,7 @@
+### Letter
+
+As published in Basic Computer Games (1978)
+https://www.atariarchives.org/basicgames/showpage.php?page=99
+
+Downloaded from Vintage Basic at
+http://www.vintage-basic.net/games.html

54 Letter/letter.bas

@@ -0,0 +1,26 @@
+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 PLAN AGAIN....."
+530 GOTO 310
+999 END