prgmZEN1:

:randInt(1,10)LMYS2(1)

:If LMYS2(1)2:Then

:"Beaver"Str0

:{4,1,2,1,15,5}LMONST

:prgmZEN2:End

:If LMYS2(1)3 and LMYS2(1)4:Then

:"Rabbit"Str0

:{3,1,1,1,10,3}LMONST

:prgmZEN2:End

:If LMYS2(1)5:Then

:" "Str2

:sub(Str1,1,T-1)+Str2+sub(Str1,T+1,length(Str1)-TStr1

:Return

prgmZEN2:

:ClrHome

:Menu(Str0,"SWORD",1,"MAGIC",2,"STATS",3,"ITEMS",4,"RUN",5

:Lbl 1

:randInt(0,LSTAT(3))LMYS2(2)

:ClrHome

:Output(1,1,"You deal"

:Output(1,10,LMYS2(2)

:Pause

:LMONST(1)-LMYS2(2)LMONST(1)

:If LMONST(1)0:Then

:prgmZEN3:End

:prgmZEN4

:Lbl 2

:Menu("MAGIC","CURE",6,"Lightning",7,"Fire",8,"BACK",8

:Lbl 6

:ClrHome

:If LSTAT(2)2:Then

:LSTAT(2)-2LSTAT(2)

:LSTAT(1)+10LSTAT(1)

:If LSTAT(1)>LSTAT(5):Then

:Output(1,1,"You heal to fullHP!"

:Pause

:LSTAT(5)LSTAT(1)

:prgmZEN4:End

:Output(1,1,"You heal 10 HP"

:Pause

:prgmZEN4:End

:Output(1,1,"Not enough MP"

:Pause

:prgmZEN1

:Lbl 7

:ClrHome

:If LSTAT(2)4:Then

:LSTAT(2)-4LSTAT(2)

:randInt(0,4)LMYS2(2)

:LMONST(1)-LMYS2(2)LMONST(1)

:Output(1,1,"You deal"

:Output(1,10,LMYS2(2)

:Pause

:If LMONST(1)0:Then

:prgmZEN3:End

:prgmZEN4:End

:Output(1,1,"Not enough MP"

:Pause

:prgmZEN1

:Lbl 8

:If LSTAT(2)8:Then

:LSTAT(2)-8LSTAT(2)

:randInt(0,8)LMYS2(2)

:LMONST(1)-LMYS2(2)LMONST(1)

:Output(1,1,"You deal"

:Output(1,10,LMYS2(2)

:Pause

:If LMONST(1)0:Then

:prgmZEN3:End

:prgmZEN4:End

:Output(1,1,"Not enough MP"

:Pause

:prgmZEN1

:Lbl 9

:prgmZEN1

:Lbl 3

:ClrHome

:Output(1,1,"HP-"

:Output(1,6,LSTAT(1)

:Output(1,9,"/"

:Output(1,12,LSTAT(5)

:Output(2,1,"MP-"

:Output(2,6,LSTAT(2)

:Output(2,9,"/"

:Output(2,12,LSTAT(6)

:Output(3,1,"STR-"

:Output(3,6,LSTAT(3)

:Output(4,1,"DEF-"

:Output(4,6,LSTAT(4)

:Output(5,1,"EXP-"

:Output(5,6,LMYS2(4)

:Output(5,9,"/"

:Output(5,12,LMYS2(5)

:Pause

:prgmZEN2

:Lbl 4

:Menu("Items","Bread",10,"Honey Bread",11,"Red Potion",12,"Blue Potion",13)

:Lbl 10

:If LMYS2(10)>0:Then

:LMYS2(10)-1LMYS2(10)

:LSTAT(1)+10LSTAT(1)

:If LSTAT(1)>LSTAT(5):Then

:Output(1,1,"You heal to fullHP!"

:Pause

:LSTAT(5)LSTAT(1)

:prgmZEN4:End

:Output(1,1,"You heal 10 HP"

:Pause

:prgmZEN4:End

:ClrHome

:Output(1,1,"None."

:Pause

:prgmZEN2:End

:Lbl 11

:If LMYS2(11)>0:Then

:LMYS2(11)-1LMYS2(11)

:LSTAT(1)+20LSTAT(1)

:If LSTAT(1)>LSTAT(5):Then

:Output(1,1,"You heal to fullHP!"

:Pause

:LSTAT(5)LSTAT(1)

:prgmZEN4:End

:Output(1,1,"You heal 20 HP"

:Pause

:prgmZEN4:End

:ClrHome

:Output(1,1,"None."

:Pause

:prgmZEN2:End

:Lbl 12

:If LMYS2(12)>0:Then

:LMYS2(12)-1LMYS2(12)

:LSTAT(2)+10LSTAT(2)

:If LSTAT(2)>LSTAT(6):Then

:Output(1,1,"You heal to fullMP!"

:Pause

:LSTAT(6)LSTAT(2)

:prgmZEN4:End

:Output(1,1,"You heal 10 MP"

:Pause

:prgmZEN4:End

:ClrHome

:Output(1,1,"None."

:Pause

:prgmZEN2:End

:Lbl 13

:If LMYS2(13)>0:Then

:LMYS2(13)-1LMYS2(13)

:LSTAT(2)+20LSTAT(2)

:If LSTAT(2)>LSTAT(6):Then

:Output(1,1,"You heal to fullMP!"

:Pause

:LSTAT(6)LSTAT(2)

:prgmZEN4:End

:Output(1,1,"You heal 20 MP"

:Pause

:prgmZEN4:End

:ClrHome

:Output(1,1,"None."

:Pause

:prgmZEN2:End

:Lbl 5

:randInt(1,4)LMYS2(3)

:If LMYS2(3)=1:Then

:ClrHome

:Output(1,1,"You ran away! (WIMP!)"

:Pause

:ClrHome

:prgmZTOWN1:prgmZGA:End

:If LMYS2(3)2:Then

:ClrHome

:Output(1,1,"You fail to run! (FAILURE!)"

:Pause

:ClrHome

:prgmZEN4

prgmZEN3:

:ClrHome

:Output(1,1,"You kill"

:Output(2,1,Str0

:Pause

:LMYS2(4)+LMONST(5)LMYS2(4)

:randInt(0,LMONST(6)LMYS2(

:LMYS2(9)+LMYS2(8)LMYS2(9)

:prgmZLVL:prgmZTOWN1:prgmZGA

prgmZEN4:

:randInt(0,LMONST(3))LMYS2(7)

:ClrHome

:Output(1,1,Str0

:Output(2,1,"deals"

:Output(2,7,LMYS2(7)

:Pause

:LSTAT(1)-LMYS2(7)LSTAT(1)

:If LSTAT(1)0:Then

:ClrHome

:Output(1,1,"You die..."

:Pause

:Stop:End

:prgmZEN2

I'm thinking of switching from list to variables in here too, but wouldn't really want to, considering I took a long time changing it to lists...

:randInt(1,10)LMYS2(1)

:If LMYS2(1)2:Then

:"Beaver"Str0

:{4,1,2,1,15,5}LMONST

:prgmZEN2:End

:If LMYS2(1)3 and LMYS2(1)4:Then

:"Rabbit"Str0

:{3,1,1,1,10,3}LMONST

:prgmZEN2:End

:If LMYS2(1)5:Then

:" "Str2

:sub(Str1,1,T-1)+Str2+sub(Str1,T+1,length(Str1)-TStr1

:Return

prgmZEN2:

:ClrHome

:Menu(Str0,"SWORD",1,"MAGIC",2,"STATS",3,"ITEMS",4,"RUN",5

:Lbl 1

:randInt(0,LSTAT(3))LMYS2(2)

:ClrHome

:Output(1,1,"You deal"

:Output(1,10,LMYS2(2)

:Pause

:LMONST(1)-LMYS2(2)LMONST(1)

:If LMONST(1)0:Then

:prgmZEN3:End

:prgmZEN4

:Lbl 2

:Menu("MAGIC","CURE",6,"Lightning",7,"Fire",8,"BACK",8

:Lbl 6

:ClrHome

:If LSTAT(2)2:Then

:LSTAT(2)-2LSTAT(2)

:LSTAT(1)+10LSTAT(1)

:If LSTAT(1)>LSTAT(5):Then

:Output(1,1,"You heal to fullHP!"

:Pause

:LSTAT(5)LSTAT(1)

:prgmZEN4:End

:Output(1,1,"You heal 10 HP"

:Pause

:prgmZEN4:End

:Output(1,1,"Not enough MP"

:Pause

:prgmZEN1

:Lbl 7

:ClrHome

:If LSTAT(2)4:Then

:LSTAT(2)-4LSTAT(2)

:randInt(0,4)LMYS2(2)

:LMONST(1)-LMYS2(2)LMONST(1)

:Output(1,1,"You deal"

:Output(1,10,LMYS2(2)

:Pause

:If LMONST(1)0:Then

:prgmZEN3:End

:prgmZEN4:End

:Output(1,1,"Not enough MP"

:Pause

:prgmZEN1

:Lbl 8

:If LSTAT(2)8:Then

:LSTAT(2)-8LSTAT(2)

:randInt(0,8)LMYS2(2)

:LMONST(1)-LMYS2(2)LMONST(1)

:Output(1,1,"You deal"

:Output(1,10,LMYS2(2)

:Pause

:If LMONST(1)0:Then

:prgmZEN3:End

:prgmZEN4:End

:Output(1,1,"Not enough MP"

:Pause

:prgmZEN1

:Lbl 9

:prgmZEN1

:Lbl 3

:ClrHome

:Output(1,1,"HP-"

:Output(1,6,LSTAT(1)

:Output(1,9,"/"

:Output(1,12,LSTAT(5)

:Output(2,1,"MP-"

:Output(2,6,LSTAT(2)

:Output(2,9,"/"

:Output(2,12,LSTAT(6)

:Output(3,1,"STR-"

:Output(3,6,LSTAT(3)

:Output(4,1,"DEF-"

:Output(4,6,LSTAT(4)

:Output(5,1,"EXP-"

:Output(5,6,LMYS2(4)

:Output(5,9,"/"

:Output(5,12,LMYS2(5)

:Pause

:prgmZEN2

:Lbl 4

:Menu("Items","Bread",10,"Honey Bread",11,"Red Potion",12,"Blue Potion",13)

:Lbl 10

:If LMYS2(10)>0:Then

:LMYS2(10)-1LMYS2(10)

:LSTAT(1)+10LSTAT(1)

:If LSTAT(1)>LSTAT(5):Then

:Output(1,1,"You heal to fullHP!"

:Pause

:LSTAT(5)LSTAT(1)

:prgmZEN4:End

:Output(1,1,"You heal 10 HP"

:Pause

:prgmZEN4:End

:ClrHome

:Output(1,1,"None."

:Pause

:prgmZEN2:End

:Lbl 11

:If LMYS2(11)>0:Then

:LMYS2(11)-1LMYS2(11)

:LSTAT(1)+20LSTAT(1)

:If LSTAT(1)>LSTAT(5):Then

:Output(1,1,"You heal to fullHP!"

:Pause

:LSTAT(5)LSTAT(1)

:prgmZEN4:End

:Output(1,1,"You heal 20 HP"

:Pause

:prgmZEN4:End

:ClrHome

:Output(1,1,"None."

:Pause

:prgmZEN2:End

:Lbl 12

:If LMYS2(12)>0:Then

:LMYS2(12)-1LMYS2(12)

:LSTAT(2)+10LSTAT(2)

:If LSTAT(2)>LSTAT(6):Then

:Output(1,1,"You heal to fullMP!"

:Pause

:LSTAT(6)LSTAT(2)

:prgmZEN4:End

:Output(1,1,"You heal 10 MP"

:Pause

:prgmZEN4:End

:ClrHome

:Output(1,1,"None."

:Pause

:prgmZEN2:End

:Lbl 13

:If LMYS2(13)>0:Then

:LMYS2(13)-1LMYS2(13)

:LSTAT(2)+20LSTAT(2)

:If LSTAT(2)>LSTAT(6):Then

:Output(1,1,"You heal to fullMP!"

:Pause

:LSTAT(6)LSTAT(2)

:prgmZEN4:End

:Output(1,1,"You heal 20 MP"

:Pause

:prgmZEN4:End

:ClrHome

:Output(1,1,"None."

:Pause

:prgmZEN2:End

:Lbl 5

:randInt(1,4)LMYS2(3)

:If LMYS2(3)=1:Then

:ClrHome

:Output(1,1,"You ran away! (WIMP!)"

:Pause

:ClrHome

:prgmZTOWN1:prgmZGA:End

:If LMYS2(3)2:Then

:ClrHome

:Output(1,1,"You fail to run! (FAILURE!)"

:Pause

:ClrHome

:prgmZEN4

prgmZEN3:

:ClrHome

:Output(1,1,"You kill"

:Output(2,1,Str0

:Pause

:LMYS2(4)+LMONST(5)LMYS2(4)

:randInt(0,LMONST(6)LMYS2(

:LMYS2(9)+LMYS2(8)LMYS2(9)

:prgmZLVL:prgmZTOWN1:prgmZGA

prgmZEN4:

:randInt(0,LMONST(3))LMYS2(7)

:ClrHome

:Output(1,1,Str0

:Output(2,1,"deals"

:Output(2,7,LMYS2(7)

:Pause

:LSTAT(1)-LMYS2(7)LSTAT(1)

:If LSTAT(1)0:Then

:ClrHome

:Output(1,1,"You die..."

:Pause

:Stop:End

:prgmZEN2

I'm thinking of switching from list to variables in here too, but wouldn't really want to, considering I took a long time changing it to lists...