05-16-2005, 05:45 AM
I cant figure out whats wrong in my program, run it and you will see the problem. I am sure it is in plain view but Im too into it too see. You can do anything with the code you want just fix it! :roll: LOL
Code:
Begin:
CLS
SCREEN 13
LINE (40, 40)-(260, 40), 15
LINE (40, 40)-(40, 150), 15
LINE (40, 150)-(260, 150), 15
LINE (260, 150)-(260, 40), 15
LOCATE 4, 10
PRINT " Welcome to the Number Guessing Game"
LOCATE 7, 10
PRINT "(S)tart Game"
LOCATE 9, 10
PRINT "(I)nfo"
DO
A$ = UCASE$(INKEY$)
IF A$ = "S" THEN GOTO NewGame
IF A$ = "I" THEN GOTO INFO
LOOP
NewGame:
CLS
Score = 0
LINE (40, 40)-(260, 40), 15
LINE (40, 40)-(40, 150), 15
LINE (40, 150)-(260, 150), 15
LINE (260, 150)-(260, 40), 15
LOCATE 7, 11
PRINT "(E)asy Mode"
LOCATE 9, 11
PRINT "(M)edium Mode"
LOCATE 11, 11
PRINT "(H)ard mode"
DO
B$ = UCASE$(INKEY$)
IF B$ = "E" THEN GOTO Easy
IF B$ = "M" THEN GOTO Medium
IF B$ = "H" THEN GOTO Hard
LOOP
Easy:
Range = 10
Nog = 5
GOTO Game
Medium:
Range = 50
Nog = 10
GOTO Game
Hard:
Range = 100
Nog = 10
GOTO Game
Game:
RANDOMIZE TIMER
Number = INT(RND * Range) + 1
DO UNTIL Guess = Number
CLS
LOOPTOP:
LINE (40, 40)-(260, 40), 15
LINE (40, 40)-(40, 150), 15
LINE (40, 150)-(260, 150), 15
LINE (260, 150)-(260, 40), 15
LOCATE 7, 10
PRINT "Take a guess"
LOCATE 4, 6
PRINT "Guesses left:"; Nog
LOCATE 4, 25
PRINT "Score:"; Score
LOCATE 9, 14
INPUT Guess
IF Guess > Number THEN GOTO ToHigh
IF Guess < Number THEN GOTO ToLow
ToHigh:
LOCATE 13, 11
PRINT " To High, Try lower"
GOTO LOOPTOP
ToLow:
LOCATE 13, 19
PRINT " To Low, Try higher"
LOOP
Score = Score + Range
CLS
LINE (40, 40)-(260, 40), 15
LINE (40, 40)-(40, 150), 15
LINE (40, 150)-(260, 150), 15
LINE (260, 150)-(260, 40), 15
LOCATE 10, 10
PRINT "PLAY AGAIN?"
LOCATE 12, 10
PRINT "Y or N"
DO
C$ = UCASE$(INKEY$)
IF C$ = "Y" THEN GOTO Game
IF C$ = "N" THEN GOTO Begin
LOOP
INFO: