MY PROGRAMS
NumGuess 2.0
PROGRAM
The fanciest, nicest, most challenging, and best number
guessing game ever made for the wizard! Now with three
levels and a main menu! But I should warn you though, the
hard level is VERY hard. You have to guess the number
from 1 to 1 million.
BIN_PROG_1
PFILE:BYECXDS9.BAS
] Y I I
*ABOUT:P
i(64,14)-(174,14)
i(65,15)-(173,15)
i(67,17)-(171,17)
i(64,46)-(174,46)
i(65,45)-(173,45)
i(67,43)-(171,43)
i(64,46)-(64,14)
i(65,45)-(65,15)
i(67,43)-(67,17)
i(174,14)-(174,46)
i(173,15)-(173,45)
i(171,17)-(171,43)
Q90,2:`"NumberGuess"
Q94,3:`"Version 2.0"
Q88,5:`"Greg Shutters"
Q75,6:`"Studebkr87@aol.com"
START$=
START2=START$
BVSTART2=10START2=27START2=9START2=13T+*MENU:v+27
*MENU:*0
.
0HOP(4)
!P
"i(0,0)-(0,69)
#i(10,0)-(10,69)
$ Q3,0:`"*"
% Q2,1:`"G"
& Q3,2:`"U"
' Q3,3:`"E"
( Q3,4:`"S"
) Q3,5:`"S"
* Q3,6:`"*"
+i(228,0)-(228,69)
,i(238,0)-(238,69)
-Q231,0:`"*"
.Q230,1:`"G"
/Q231,2:`"U"
0Q231,3:`"E"
1Q231,4:`"S"
2Q231,5:`"S"
3Q231,6:`"*"
_Q85,0:`"* MAIN MENU *"
`Q82,2:`"[1] Easy (100)"
a Q82,3:`"[2] Medium (1000)"
b Q82,4:`"[3] Hard (1000000)"
c Q82,5:`"[4] Exit Program"
fHOP$=
gVHOP$=""T+102
h CODE=HOP$
iVCODE=0T+102
j(VCODE=49CODE=69CODE=30T+*EASY
k VCODE=50CODE=77T+*MED
l VCODE=51CODE=72T+O*HARD
m VCODE=52CODE=88T+
*EXIT
n!VCODE<>49505152T+102
q *EASY:P
s%:COMPNUM=100
uTRIES=0
wP
y?*GUESSTIMEE:a"What is your guess (between 1 and 100)? ";GUESS
{TRIES=TRIES+1
}8VGUESSCOMPNUMT`"Your guess was too high, try again."
"VGUESS>COMPNUMT+*GUESSTIMEE
VGUESS=COMPNUMTP
Q20,1:`"That's it!"
6Q20,2:`"You got it in ";TRIES;" tries.":A$=(1):P
+*MENU
*MED:P
%:COMPNUM=1000
TRIES=0
P
@*GUESSTIMEM:a"What is your guess (between 1 and 1000)? ";GUESS
TRIES=TRIES+1
8VGUESSCOMPNUMT`"Your guess was too high, try again."
"VGUESS>COMPNUMT+*GUESSTIMEM
VGUESS=COMPNUMTP
Q20,1:`"That's it!"
6Q20,2:`"You got it in ";TRIES;" tries.":A$=(1):P
+*MENU
*HARD:P
%:COMPNUM=1000000
TRIES=0
P
C*GUESSTIMEH:a"What is your guess (between 1 and 1000000)? ";GUESS
TRIES=TRIES+1
8VGUESSCOMPNUMT`"Your guess was too high, try again."
"VGUESS>COMPNUMT+*GUESSTIMEH
VGUESS=COMPNUMTP
Q20,1:`"That's it!"
6Q20,2:`"You got it in ";TRIES;" tries.":A$=(1):P
" +*MENU
*EXIT:P
*0
i(64,14)-(174,14)
i(65,15)-(173,15)
i(67,17)-(171,17)
i(64,46)-(174,46)
i(65,45)-(173,45)
i(67,43)-(171,43)
!i(64,46)-(64,14)
&i(65,45)-(65,15)
)i(67,43)-(67,17)
+i(174,14)-(174,46)
0i(173,15)-(173,45)
5i(171,17)-(171,43)
:Q90,2:`"NumberGuess"
DQ94,3:`"Version 2.0"
NQ88,5:`"Greg Shutters"
X Q75,6:`"Studebkr87@aol.com"
b
ENDIT$=
cENDIT2=ENDIT$
d0VENDIT2=10ENDIT2=27ENDIT=13TZ:v+ 610
u1Z