BCG101/port/LETTER.BAS

  80 DIM A(6)
  90 RANDOMIZE
 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(0)*26)
 320 G=0
 340 PRINT\PRINT "OK, I HAVE A LETTER.  START GUESSING."
 410 PRINT\PRINT "WHAT IS YOUR GUESS";
 425 G=G+1
 430 LINPUT A$\CHANGE A$ TO A\A=A(1)\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