10 REM NUMB2.ECB 20 REM ...NUMBER...from MERITSS : GAME 12-21-77 100 PRINT "&K&J&J *** NUMBER *** A NUMBER GUESSING GAME *** &J&J" 110 REM *** COPYRIGHT PEOPLE'S COMPUTER COMPANY 120 REM *** P. O. BOX 310, MENLO PARK, CA 94025 130 REM *** MODIFIED AND ADAPTED FOR CDC BASIC BY KENT T. KEHRBERG 140 REM *** PRINT INSTRUCTIONS ON HOW TO PLAY 150 PRINT "I WILL THINK OF A WHOLE NUMBER FROM 1 TO 100." 160 PRINT "TRY TO GUESS MY NUMBER. AFTER EACH GUESS, I WILL" 170 PRINT "TELL YOU IF YOU HAVE GUESSED MY NUMBER OR IF YOUR" 180 PRINT "GUESS IS TOO SMALL OR TOO BIG." 190 REM *** COMPUTER 'THINKS' OF A NUMBER - CALL IT X 200 LET X=INT(100*RND(0))+1 210 LET T=0 220 PRINT 230 PRINT "OK, I HAVE A NUMBER. START GUESSING." 240 REM *** HUMAN STARTS GUESSING 250 PRINT 260 PRINT "WHAT IS YOUR GUESS"; 270 INPUT G 280 LET T=T+1 290 IF G=X THEN 360 300 IF G>X THEN 330 310 PRINT "TOO SMALL. TRY A LARGER NUMBER." 320 GOTO 250 330 PRINT "TOO BIG. TRY A SMALLER NUMBER." 340 GOTO 250 350 REM *** HUMAN HAS GUESSED THE COMPUTER'S NUMBER 360 PRINT 370 PRINT "YOU GUESSED IT. IT TOOK YOU ";T;" GUESSES." 380 PRINT "DO YOU WANT TO PLAY AGAIN ?" 390 INPUT "( 1=YES 0=NO )",A9 400 IF A9=1 THEN 200 410 IF A9=0 THEN 440 420 PRINT "YES OR NO, PLEASE"; 430 GOTO 390 440 END