150 HOME : PRINT "WANT TO KNOW HOW TO PLAY ";: GET Z$: IF Z$ < >"Y" AND Z$ < >"N" THEN 150
170 IF Z$ < >"Y" THEN 280
180 REM *** HERE IS HOW TO PLAY
190 HOME
200 PRINT "I WILL THINK OF A NUMBER FROM 1 TO 100.
210 PRINT "TRY TO GUESS MY NUMBER. AFTER YOU GUESS I WILL TYPE 1 OR MORE STARS (*). THE CLOSER YOU ARE TO MY NUMBER, THE MORE STARS (*) I WILL TYPE. ONE STAR (*)
240 PRINT "MEANS YOU ARE FAR AWAY FROM MY NUMBER. SEVEN STARS (*******) MEANS YOU'RE VERY
250 PRINT "CLOSE TO MY NUMBER!!!
260 GOSUB 10000
270 REM *** COMPUTER 'THINKS' OF A NUMBER FROM 1 TO 100
280 LET X = INT(100 * RND(1)) +1
300 HOME : PRINT "OK, STARSEEKER, I AM THINKING OF A NUMBER. START GUESSING.
310 REM *** GUESSING BEGINS
320 LET N = 1
330 PRINT
340 INPUT "WHAT IS YOUR GUESS? ";G$:G = INT( VAL(G$))
360 IF G = X THEN 550
370 LET D = ABS(G -X)
375 IF D = 1 THEN PRINT "*";
380 IF D < = 2 THEN PRINT "*";
390 IF D < = 4 THEN PRINT "*";
400 IF D < = 8 THEN PRINT "*";
410 IF D < = 16 THEN PRINT "*";
420 IF D < = 32 THEN PRINT "*";
430 IF D < = 64 THEN PRINT "*";
510 PRINT
520 LET N = N +1
530 GOTO 330
540 REM *** PLAYER HAS GUESSED THE GALACTIC NUMBER
550 HOME : IF N >20 THEN K = 1: GOTO 570
555 VTAB 5: FOR K = 1 TO 21 -N: PRINT " <CTRL-G>* ";: NEXT : PRINT : PRINT "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"