130 REM***A IS LIMIT ON NUMBER 140 A=100 160 INPUT"ANWEISUNGEN";S$:IFLEFT$(S$,1)="J"THEN195 170 GOTO260 190 REM INSRUCTIONS 195 PRINT:PRINT:PRINT"************************" 200 PRINT"I AM THINKING OF A WHOLE NUMBER FROM 1TO";A 210 PRINT"TRY TO GUESS MY NUMBER. AFTER YOU GUESS, I" 220 PRINT"WILL TYPE ONE MORE STARS (*). THE MORE" 230 PRINT"STARS I TYPE, THE CLOSER YOU ARE TO MY NUMBER." 240 PRINT"ONE STAR (*) MEANS FAR AWAY. SEVEN STARS (*******)" 250 PRINT"MEANS REALLY CLOSE!" 255 PRINT"************************":PRINT:PRINT 260 REM COMPUTER THINKS OF NUMBER 270 PRINT 280 PRINT 290 X=INT(A*RND(1))+1 300 PRINT"OK, I AM THINKING OF A NUMBER. START GUESSING." 305 PRINT"------------------------" 310 REM GUESSING BEGINS 320 K=1 330 PRINT 340 PRINT"YOUR GUESS"; 350 INPUTG 360 IFG=XTHEN590 370 D=ABS(X-G) 380 IFD>=64THEN500 390 IFD>=32THEN490 400 IFD>=16THEN480 410 IFD>=8THEN470 420 IFD>=4THEN460 430 IFD>=2THEN450 440 PRINT"* "; 450 PRINT"* "; 460 PRINT"* "; 470 PRINT"* "; 480 PRINT"* "; 490 PRINT"* "; 500 PRINT"* "; 510 PRINT 520 K=K+1 530 GOTO330 580 REM WE HAVE A WINNER 590 FORN=1TO50 600 PRINT"*"; 610 NEXTN 620 PRINT"!!!" 630 PRINT"YOU GOT IT IN";K;"GUESSES!!! LET'S PLAY AGAIN." 640 GOTO270 650 END OK