Guess the number/With feedback (player): Difference between revisions

=={{header|IS-BASIC}}==

<lang IS-BASIC>100 PROGRAM "GuessIt.bas"

110 LET N=100

120 TEXT 80

130 PRINT "Choose a number between 1 and;" N:PRINT "I will start guess the number."

140 LET BL=1:LET UL=100:LET NR=0

150 DO

160 LET GUESS=INT((BL+UL)/2):LET NR=NR+1

170 SET #102:INK 3:PRINT :PRINT "My";NR;". guess: ";GUESS:SET #102:INK 1

180 LET ANSWER=QUESTION

190 SELECT CASE ANSWER

200 CASE 1

210 LET UL=GUESS-1

220 CASE 2

230 LET BL=GUESS+1

240 CASE ELSE

250 END SELECT

260 IF BL>UL THEN PRINT "You are cheating!":LET ANSWER=9

270 LOOP UNTIL ANSWER=0 OR ANSWER=9

280 PRINT "So the number is:" GUESS

290 DEF QUESTION

300 PRINT "Your number: 1 - Is lower?; 2 - Is higher?; 0 - Is equal?"

310 DO

320 LET K$=INKEY$

330 LOOP UNTIL K$>="0" AND K$<="3"

340 LET QUESTION=VAL(K$)

350 END DEF</lang>