menu screen 3-in-1 program

[crazygurl]

i need some help, i have a program where you have the option of playing two games. right now everytime someone plays and selects the games they want, they can play it. The problem is that when the game they have chosen is done, the menu screen where you choose to play game 1 or 2 doesn't come up, it only lets the play play that one game over and over. Is there a way where i could make it so that the menu comes up when the game is done..



thanks

[AsianSensation]

Alright, let me first apologize for not responding to your email. I just checked it today, so I didn't get a chance to fix your problem before. Sorry about that.

anyways, on to the problem. The problem is actually very simple. If you check your procedures game1 and game2, you'll find that you have 2 infinite loop inside each procedure. This causes the procedure to never finish running, because you only exited the inner loop. So take off a loop and end loop statement in both procedures and you should be fine.

Ex: instead of

Turing:

proc game1     loop         var number : int         var count : int := 1         var guess : int         setscreen ("graphics:vga")         setscreen ("nocursor")         cls         locate (12, 36)         color (2)         put "WELCOME TO NUMBERS" . . .     end loop end game1

take off the first loop statement:

Turing:

proc game1             var number : int         var count : int := 1         var guess : int         setscreen ("graphics:vga")         setscreen ("nocursor")         cls         locate (12, 36)         color (2)         put "WELCOME TO NUMBERS" . . .     end game1