100  REM *** NUMBER *** A NUMBER GUESSING GAME ***
110  REM *** COPYRIGHT PEOPLE'S COMPUTER COMPANY
120  REM *** P. O. BOX 310, MENLO PARK CA 94025
200  REM *** PRINT INSTRUCTIONS ON HOW TO PLAY
210  PRINT "I WILL THINK OF A WHOLE NUMBER FROM 1 TO 100."
220  PRINT "TRY TO GUESS MY NUMBER. AFTER EACH GUESS, I WILL"
230  PRINT "TELL YOU IF YOU HAVE GUESSED MY NUMBER OR IF YOUR"
240  PRINT "GUESS IS TOO SMALL OR TOO BIG."
300  REM *** COMPUTER 'THINKS' OF A NUMBER - CALL IT X
310  LET X=INT(100*RND(0))+1
320  PRINT 
330  PRINT "OK, I HAVE A NUMBER. START GUESSING."
400  REM *** HUMAN STARTS GUESSING
410  PRINT 
420  PRINT "WHAT IS YOUR GUESS";
430  INPUT G
440  IF G=X THEN 510
450  IF G>X THEN 480
460  PRINT "TOO SMALL. TRY A LARGER NUMBER."
470  GOTO 410
480  PRINT "TOO BIG. TRY A SMALLER NUMBER."
490  GOTO 410
500  REM *** HUMAN HAS GUESSED THE COMPUTER'S NUMBER
510  PRINT 
520  PRINT "YOU GUESSED IT!!!"'7'7'7'7'7'7'7'7'7'7'7'7'7" LET'S PLAY AGAIN."
530  PRINT 
540  GOTO 310
999  END 
