100  REM *** LETTER - A LETTER GUESSING GAME ***
110  REM *** COPYRIGHT PEOPLE'S COMPUTER COMPANY
120  REM *** P.O. BOX 310, MENLO PARK CA 94025
130  DIM A$[26],G$[26],L$[1]
140  LET A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
150  REM *** PRINT INSTRUCTIONS ON HOW TO PLAY
160  PRINT "I WILL THINK OF A LETTER FROM A TO Z."
170  PRINT "TRY TO GUESS MY LETTER. AFTER EACH GUESS, I WILL"
180  PRINT "TELL YOU IF YOU GUESSED MY LETTER OR IF YOUR GUESS"
190  PRINT "IS TOO HIGH OR TOO LOW. THE LOWEST LETTER IS 'A'"
200  PRINT "AND THE HIGHEST LETTER IS 'Z'."
210  PRINT 
220  PRINT "IF YOU WISH, THINK OF THE LETTERS FROM 'A'"
230  PRINT "TO 'Z' ARRANGED IN A TOTEM POLE WITH 'A' ON THE"
240  PRINT "BOTTOM AND 'Z' ON THE TOP. IF I TELL YOU TO TRY A"
250  PRINT "HIGHER LETTER, TRY ONE CLOSER TO THE TOP OF THE"
260  PRINT "TOTEM POLE. IF I TELL YOU TO TRY A LOWER LETTER, TRY"
270  PRINT "ONE CLOSER TO THE BOTTOM OF THE TOTEM POLE. ENJOY!"'7"!"'7"!"'7'7'7'7'7'7
280  REM *** COMPUTER 'THINKS' OF A LETTER
290  LET X=INT(26*RND(0))+1
300  LET L$=A$[X,X]
310  PRINT 
320  PRINT "OK, I HAVE A LETTER. START GUESSING."
330  REM *** ASK FOR A GUESS
340  PRINT 
350  PRINT "WHAT IS YOUR GUESS";
360  INPUT G$
370  REM *** IF GUESS IS NOT A LETTER, TRY AGAIN
380  FOR K=1 TO 26
390  IF G$=A$[K,K] THEN 440
400  NEXT K
410  PRINT "HEY!!! THAT'S NOT A SINGLE LETTER. PLAY FAIR, NOW!"
420  GOTO 340
430  REM *** COMPARE GUESS WITH COMPUTER'S LETTER
440  IF G$=L$ THEN 510
450  IF G$>L$ THEN 480
460  PRINT "TOO LOW. TRY A HIGHER LETTER."
470  GOTO 340
480  PRINT "TOO HIGH. TRY A LOWER LETTER."
490  GOTO 340
500  REM *** HUMAN HAS GUESSED THE COMPUTER'S LETTER
510  PRINT 
520  PRINT "YOU GOT IT!"'7"!"'7"!"'7'7'7" LET'S PLAY AGAIN."
530  PRINT 
540  GOTO 290
550  END 
