10 REM LETTR.ECB 20 REM ...LETTER...from MERITSS : GAME 12-15-77 100 PRINT "&K&J *** LETTER&J&JLETTER GUESSING GAME &J&J" 110 REM *** from PEOPLE'S COMPUTER COMPANY 120 REM *** MODIFIED FOR CDC BASIC by KENT T. KEHRBERG 130 DIM A$(26) 140 LET A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 150 REM *** PRINT INSTRUCTIONS ON HOW TO PLAY 160 PRINT "I WILL THINK OF A LETTER OF THE ALPHABET, 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 REM *** COMPUTER THINKS OF A LETTER 220 LET X=INT(26*RND(0))+1 230 LET L$=A$(X,X) 240 PRINT 250 PRINT "OK, I HAVE A LETTER. START GUESSING." 260 PRINT 270 REM *** HUMAN STARTS GUESSING 280 PRINT "WHAT IS YOUR GUESS ---=>"; 290 INPUT (1,0)G$ 295 IF LEN(G$)=0 THEN 320 300 IF G$=L$ THEN 360 310 IF G$>L$ THEN 340 320 PRINT "TOO LOW. TRY A HIGHER LETTER." 330 GOTO 270 340 PRINT "TOO HIGH. TRY A LOWER LETTER." 350 GOTO 270 360 REM *** HUMAN HAS GUESSED THE LETTER 370 PRINT 380 PRINT "YOU GUESSED IT. DO YOU WANT TO PLAY AGAIN ---=>"; 390 INPUT (1,0)B$ 395 IF LEN(B$)=0 THEN LET B$="Y" 400 IF B$="Y" THEN 210 410 IF B$="N" THEN 440 420 PRINT "Y OR N, PLEASE"; 430 GOTO 390 440 END