color 10,0
Reset:
NO:
print "GUESS THE RANDOM NUMBER GAME!"
print "What type of number should I choose..."
print "?";
input Word$;
Word$ = UCASE$(Word$)
print ""
if Word$ = "" then
print "Type a word..."
goto Reset:
endif
Redo:
print "My number is:";
print Word$
print "Are you sure (Y/N)?";
input YN$;
print ""
YN$ = lcase$(YN$)
if YN$ = "y" then YES:
if YN$ = "n" then
goto NO:
endif
print ""
print "Enter (Y)es or (N)o..."
print ""
goto Redo:
YES:
randomize
print "THE RANDOM NUMBER IS BETWEEN 1 to 100"
print "I want you to find the number I guessed...."
print "My number is very ";
color 10,8
print Word$
color 10,0
MIN = 0
MAX = 101
OLDP = 0
OLDM = 101
N = 101 / 2
Z = 0
LO = 101
HI = 0
for JKL = 1 to 100
print "[";
print JKL;
print "] - ";
print "IS MY NUMBER LOWER OR HIGHER THEN:";
print N;
print "  (+/-) ?";
OLDN = N
input A$;
print ""
if A$ = "q" then
end
endif
IF N > HI THEN
HI = N
ENDIF
IF N < LO THEN
LO = N
ENDIF
WORK = 0
if A$ = "+" then
OLDP = N
X1 = OLDM - N
X1 = X1 / 2
N = N + X1
WORK = 1
endif
if A$ = "-" then
OLDM = N
X1 = N - OLDP
X1 = X1 / 2
N = N - X1
WORK = 1
endif
if WORK = 1 then OK:
goto Dam:
OK:
if OLDN = N then
print "VICTORY!!!"
print "THE NUMBER WAS:";
print N
print "THE NUMBERS SIZE:";
print A$
print "Press ENTER...";
input ENTER$;
print ""
print "Bye..."
END
endif
Dam:
next JKL
print "I GIVE UP!"
end