HELP!!! i cant figure this out

ok i started writing my program and now i cant get it to loop back this is what i have.

ASK PIXELS xpix,ypix
SET WINDOW 1,xpix,ypix,1
LET midx=xpix/2
LET midy=ypix/2

SET BACKGROUND COLOR 16
CLEAR
CALL Read_Image ("JPEG", gamename$, "Gamenamepage.jpg")
BOX SHOW gamename$ at midx-420,midy+270
PAUSE 5
LET redomm=1
DO while redomm=1
LET redomm = 0
CLEAR
SET BACKGROUND COLOR 15
CLEAR
CALL Read_Image ("JPEG", mainmenu$, "mainmenupage.jpg")
BOX SHOW mainmenu$ at midx-276,200
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT TAB (50);"1. Play game"
PRINT tab (50);"2. Little bit of semi-useful information about the game"

INPUT prompt "Choose an option sir.":mainmenu
SELECT CASE mainmenu

CASE 1
LET game$="y"
LET redomm= 0

CASE 2
LET tut$="y"
LET redomm= 0

CASE else
PRINT "FOOL chose something thats ON THE MENU!"
LET redomm=1

END SELECT

LOOP until redomm = 1

DO while tut$="y"
CLEAR
PRINT
LET confirm$="no"
DO while confirm$="no"

PRINT "What would you like to know, sir? "

PRINT "1. How to make gold."
PRINT
PRINT "2. How to get weapons."
PRINT
PRINT "3. How to level up."
PRINT
PRINT "4. Return to game main menu."

INPUT prompt "Which would you like to learn about? ":tutorial

SELECT CASE tutorial
CASE 1
CLEAR
INPUT prompt"So you would like to lern about gold?(yes/no)":option$
IF option$ = "no" then
LET confirm$="no"
CLEAR
END IF
IF option$="yes" then
LET confirm$="yes"
END IF
DO while confirm$= "yes"
CLEAR
PLOT TEXT, AT midx,16:"?!?GOLD? !?"
PLOT TEXT, AT midx,17: "__________"
PRINT
PRINT
PRINT"To make gold you have to go to the forest and kill monsters."
PRINT"Every monster gives you an amount of gold depending on their level."
PRINT"The higher the level the more gold you get."
PRINT"Kill high leveled monsters to get more gold!"
PRINT"press any key to return to the information page"
GET KEY pse
LET confirm$="no"
CLEAR
LOOP until confirm$="no"

CASE 2
CLEAR
INPUT prompt"So you would like to lern about weapons?(yes/no)":option$
IF option$ = "no" then
LET confirm$="no"
CLEAR
END IF
IF option$="yes" then
LET confirm$="yes"
END IF
DO while confirm$="yes"
SET COLOR -23
CLEAR
PLOT TEXT, AT midx,16:"?!?Weapon§? !?"
SET COLOR 16
PLOT TEXT, AT midx,17:"_____________"
PRINT
PRINT
PRINT"To get weapons you need gold. to lern how to obtain gold see prievious page."
PRINT"If You have gold you can obtain weapons by going into one of the corresponding shops."
PRINT"If you don't have enough money to buy the weapon selected, and if you try to buy it you get kicked outa the store for trying to haggle."
PRINT"this includes magic, items, swords, daggers, and the armory."
PRINT"press any key to return to the tutorial page."
GET KEY pse
LET confirm$="no"
CLEAR
LOOP until confirm$="no"
CASE 3
CLEAR
INPUT prompt"So you would like to learn how to level up?(yes/no)":option$
IF option$ = "no" then
LET confirm$="no"
CLEAR
END IF
IF option$="yes" then
LET confirm$="yes"
END IF
DO while confirm$="yes"
SET COLOR 12
CLEAR
PLOT TEXT, AT midx,16:"?!?Leveling Up?!?"
SET COLOR -23
PLOT TEXT, AT midx,17:"_________________"
PRINT
PRINT
SET COLOR 16
PRINT"To level up you must kill........Monsters."
PRINT"To kill you have to go to the forest."
PRINT"In there the option to kill comes up."
PRINT"Click that and then the fight action will be activated triggering well a fight."
PRINT"win the fight to obtain experience"
PRINT"After you have filled your experience bar go to the arena to fight the knight at your current level."
PRINT"After you win this fight you will level up."
PRINT"After level five you will go to castle town which has a magic shop you can use."
PRINT"Press any key to return to the tutuorial page"
GET KEY pse
LET confirm$="no"
CLEAR
LOOP until confirm$="no"
CASE 4
CLEAR
PLOT TEXT, AT midx,16: "Are you certain?"
PLOT TEXT, AT midx,17: "________________"
PRINT
PRINT
INPUT prompt"Are you sure you know everything you need? (yes/no)":option$
IF option$ = "no" then
LET confirm$="no"
CLEAR
END IF
IF option$="yes" then
LET confirm$="yes"
END IF
DO while confirm$ ="yes"
PRINT "ok then off to the main menu you go"
PRINT "press any key to return to the main menu"
GET KEY pse

LET confirm$="no"
LOOP until confirm$="no"
LET redomm=1
CASE else
CLEAR

PRINT"Please choose an option thats on the menu, sir."
PRINT"press any key to continue."
GET KEY pse
CLEAR
END SELECT

LOOP

LOOP

END

i am trying to get it loop from case 4 so that it can go back up to the main menu but no matter what i do it just keeps going back to the tutorial main page please help me

peace

Comments

The 2 jpeg files

Daranhiss ... Can you email me the two missing jpeg files? Regards ... Tom M

Re: HELP!!! ...

Daranhiss ... I just got your TB program listing. I'll see what I can do. Regards ... Tom M

thanks

did you figure anything out yet?

Re: Your program ...

Daranhiss ... I'm stymied. Over the days I've been studying your program listing and trying to debug it, I get stuck in one of the inner nested DO loops, as I think you do. I've been unable to return to the outermost DO loop.

In the TB Silver manual, there's a paragraph under "Nested Loops", on page 45:

"Nested structures give you lots of power and flexibility; however, they can also create extremely complex programs that are difficult to debug and maintain. While nested structures provide the best solution to many programming needs, it is important that you understand how such nesting works before you use it."

Considering where you currently are in your program development, you might have to substantially edit - or - rewrite your program listing before you encounter new problems.

I notice that you haven't created any subprograms or written any EXIT DO lines into your listing. Perhaps these features can help solve the problem. For now, Regards ... Tom M

thanks

thank you i have a copy of silver but lost my book so yea well i will manage to redo the program i tried sub programs bu unfortunately they didn't work

fixed it

yes i fixed it thanks for helping me figure out what it was :D

also

i forgot to mention about how you pirated your copy of tb silver by copying it of of mr.asmondys cd

dear tim rikowski or darenhiss

first off it may help if you listen to these people that are trying to help you with your school work! I'm in your programming class and you told kenny specifically not to use subprograms, so maybey you should listen to kenny and the people on here telling you to use subprograms!

Corection

first of all i legitly got the copy of TB Silver
secondly i told kenny not to "Rewrite the program" in sub variables considering that that would make the game hard and almost impossible to complete in a year for as when it gets re-vamped is for when subprograms and more "fluff" come in and quit harassing my posts on the web or i will turn you in for harassment charges

you idiot

first, dont lie, i know you got it illegally because kenny gave it to you. i gave the original to kenny. second just do the work yourself. you have access to like 6 manuals in the classroom

half right

ok first of all come on email me at school about this ok makes life easier on forums. secondly i got silver from Kenny yes but i did buy my copy of bronze but the Manuel was thrown away (dam sister) because it was messed up badly. lastly i'd like these posts to be saved for as they contain valuable information that should be kept hence why i got these fellow programmers to help so yea. please email me at school.