BCG101/port/STARS.BAS

 100 REM *** STARS - PEOPLE'S COMPUTER CENTER, MENLO PARK, CA
 110 PRINT "STARS - A NUMBER GUESSING GAME"
 120 PRINT
 130 RANDOMIZE
 140 REM *** A IS LIMIT ON NUMBER, M IS NUMBER OF GUESSES
 150 LET A=100
 160 LET M=7
 170 PRINT "DO YOU WANT INSTRUCTIONS (1=YES 0=NO)";
 180 INPUT Z
 190 IF Z=0 THEN 280
 200 REM *** INSTRUCTIONS ON HOW TO PLAY
 210 PRINT "I AM THINKING OF A WHOLE NUMBER FROM 1 TO";A
 220 PRINT "TRY TO GUESS MY NUMBER. AFTER YOU GUESS, I"
 230 PRINT "WILL TYPE ONE OR MORE STARS (*). THE MORE"
 240 PRINT "STARS I TYPE, THE CLOSER YOU ARE TO MY NUMBER."
 250 PRINT "ONE STAR (*) MEANS FAR AWAY. SEVEN STARS (*******)"
 260 PRINT "MEANS REALLY CLOSE! YOU GET";M;"GUESSES."
 270 REM *** COMPUTER 'THINKS' OF A NUMBER
 280 PRINT
 290 PRINT
 300 LET X=INT(A*RND(0)+1)
 310 PRINT "OK, I AM THINKING OF A NUMBER. START GUESSING."
 320 REM *** GUESSING BEGINS. HUMAN GETS M GUESSES
 330 FOR K=1 TO M
 340 PRINT
 350 PRINT "YOUR GUESS";
 360 INPUT G
 370 IF G=X THEN 600
 380 LET D=ABS(X-G)
 390 IF D >= 64 THEN 510
 400 IF D >= 32 THEN 500
 410 IF D >= 16 THEN 490
 420 IF D >= 8 THEN 480
 430 IF D >= 4 THEN 470
 440 IF D >= 2 THEN 460
 450 PRINT "*";
 460 PRINT "*";
 470 PRINT "*";
 480 PRINT "*";
 490 PRINT "*";
 500 PRINT "*";
 510 PRINT "*";
 520 PRINT
 530 NEXT K
 540 REM *** DID NOT GUESS NUMBER IN M GUESSES
 550 PRINT
 560 PRINT "SORRY, THAT'S";M;"GUESSES. THE NUMBER WAS";X
 580 GOTO 280
 590 REM *** WE HAVE A WINNER
 600 FOR N=1 TO 50
 610 PRINT "*";
 620 NEXT N
 630 PRINT "!!!"
 640 PRINT "YOU GOT IT IN";K;"GUESSES!!  LET'S PLAY AGAIN..."
 650 GOTO 280
 660 END