10 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
20 DIM A$(26)
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."
310L=1+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 INPUT A$
431 PRINT
432 A=ASC(A$)
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 PRINT
515PRINT
520 PRINT "LET'S PLAY AGAIN....."
530 GOTO 310
999 END