**TI86** Group file received by TiLP[l 5?ADVNTRE5?3?1L:0P:0Q:0RÖ0CEXP:1AC:0GPÖ0ENC:1AG:0ACMODÖ0AGMOD:1AMODÖ60MHP:60CHP:0LDÖ1AN:6AF:0RUNÖ0WP:0AR:0SHÖ0ARCS:0ACC:0EVNTÖ{0,0,0,0,0,0}PTNÖLbl TOPÖClLCDÖDisp "+-------------------+","| |","| RPG4!!! |","| |","| Second Release |","| |","+-------------------+"ÖMenu(2,"New",ST,4,"Load",LDÖÖÖÖLbl LDÖ1LD:ZPAUSEÖIf LD==1:Goto TOPÖÖÖÖLbl REDIRÖ0STLCÖIf LM==1:Goto STHOMEÖIf LM==2:Goto STFVILÖIf LM==3:Goto STARCHÖIf LM==4:Goto STFTNTÖIf LM==6:Goto STFGLÖIf LM==5:Goto STOVRÖIf LM==7:Goto STFT1ÖIf LM==8:Goto STFT2ÖIf LM==9:Goto STFT3ÖIf LM==11:Goto STVILAÖIf LM==12:Goto STVILBÖIf LM==13:Goto STDTNTÖIf LM==14:Goto STDREÖIf LM==15:Goto STDCMPÖIf LM==16:Goto STDTRNÖIf LM==17:Goto STDT1ÖIf LM==18:Goto STDT2ÖIf LM==19:Goto STDT3ÖIf LM==20:Goto STDT4ÖIf LM==21:Goto STFNLÖIf LM==22:Goto STDGATÖDisp "Error!:Stop"ÖÖÖÖLbl STÖClLCDÖDisp "Welcome!","ÖPauseÖDisp "This is the story of","your adventure to","wrestle control of","the world from the","clutches of Really","Really Evil","Guy (RREG)."ÖPause ÖLbl NAMTOPÖClLCDÖDisp "What is your name?",""ÖOutpt(3,16,"------"ÖInpSt "----- ",NAMEÖÖIf (lngth NAME)>8:Then:Disp "That name is too long","for me to remember.","Perhaps you have a","nickname?":Pause :Goto NAMTOP:EndÖClLCDÖDisp "Hello, "+NAME+"."ÖPauseÖClLCDÖDisp "You will begin in","your home in the","western forest."ÖPause :ClLCDÖDisp "Get your equipment,","which you have rather","stupidly put outside","and head for the","village."ÖPause ÖÖÖÖ11X:3YÖLbl STHOMEÖClLCDÖOutpt(4,6,"Loading..."Ö1LMÖZLEVMAPÖIf P==1:Then:4Y:20X:EndÖ[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,1,0,1,0,0,6,0,1,1,1,1,1,0,0,0,0,0,0,0,1][1,0,0,0,0,1,0,0,1,0,0,0,1,0,0,0,0,1,0,0,1][1,0,1,0,0,0,0,0,1,1,0,1,1,0,0,1,0,0,0,0,4][1,0,0,0,0,0,1,1,0,0,0,1,0,0,0,0,1,1,1,0,1][1,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]LVLOBÖÖÖÖLbl LHOMEGENÖClLCDÖDisp L1,L2,L3,L4,L5,L6,L7ÖÖIf P==0:Outpt(2,7,"Á"ÖÖOutpt(8,1," Your Land "ÖÖLbl HMELPTOPÖOutpt(Y,X,"¼"):XNX:YNY:ZMOVEÖIf Z==22:Then:ZPAUSE:Goto REDIR:EndÖÖOutpt(Y,X," ")ÖÖÖÖIf Q==0:Then:NXX:NYY:Goto HMELPTOP:Else:If Q==1:Goto HMELPTOP:EndÖÖIf Q==4:Then:If P<1:Then:ClLCD:Disp "Get your gear first.":Pause :ClLCD:Goto LHOMEGEN:Else:1STLC:Goto STFVIL:End:EndÖIf Q==6:Then:NXX:NYY:If P==0:Then:1P:GP+50GP:ClLCD:Disp "Let's see... sword,","shield, wallet,","bubble gum...","all set to adventure!":Pause:Goto LHOMEGEN:End:EndÖÖGoto HMELPTOPÖÖÖÖLbl STFVILÖClLCDÖOutpt(4,6,"Loading..."Ö2LMÖZLEVMAPÖÖIf STLC==1:Then:4Y:2X:Else:If STLC==2:Then:2Y:4X:Else:If STLC==3:Then:6Y:3X:Else:If STLC==4:Then:6Y:17X:End:End:End:EndÖ[[1,1,1,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,11,0,0,0,1,14,0,1,1,1,15,0,0,0,0,0,7,0,1][1,0,0,0,0,1,1,1,7,1,0,1,1,7,1,1,1,1,1,0,1][2,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,1,0,0,0,1,1,1,1,1,1,0,0,1,1,1,7,1,1,1,1][1,0,0,1,0,0,7,0,12,1,1,0,1,0,1,0,0,13,1,0,1][1,1,6,1,1,1,1,1,1,1,1,1,1,1,1,1,5,1,1,1,1]]LVLOBÖÖÖÖLbl FVILGENÖClLCDÖDisp L1,L2,L3,L4,L5,L6,L7ÖÖÖOutpt(8,1," Forest Village "ÖÖÖÖLbl FVILPTOPÖOutpt(Y,X,"¼"):XNX:YNYÖZMOVEÖIf Z==22:Then:ZPAUSE:Goto REDIR:EndÖÖIf R==0:Then:Outpt(Y,X," ":Else:Outpt(Y,X,"@":0R:EndÖÖÖIf Q==7:Then:1R:0Q:EndÖÖIf Q==0:Then:NXX:NYY:Goto FVILPTOP:Else:If Q==1:Goto FVILPTOP:EndÖÖÖIf Q==2:Goto STHOMEÖIf Q==3:Then:1STLC:Goto STFTNT:EndÖIf Q==5:Then:2STLC:Goto STARCH:EndÖIf Q==6:Then:1STLC:Goto STARCH:EndÖÖIf Q==11:Then:ClLCD:Disp "Lovely weather we're","having, isn't it?":Pause :Goto FVILGEN:EndÖIf Q==12:Goto FVILSTRÖIf Q==13:Then:ClLCD:Disp "There's an archery","range back there. I'd","go, but I can't","shoot at all.":Pause :Goto FVILGEN:EndÖIf Q==14:Then:ClLCD:Disp "This is a nice","village, but I kind","of wish I bought a","bigger house.":Pause :Goto FVILGEN:EndÖIf Q==15:Then:ClLCD:Disp "There's a temple","north of here. Last","I checked, though,","there was some kind","of seal on the","entrance.":Pause :Goto FVILGEN:EndÖÖÖGoto FVILPTOPÖÖÖÖLbl FVILSTRÖClLCDÖDisp "+------------------+","| TOWN INN/STORE |","+-------------------"ÖOutpt(6,1,"You have gp.":Outpt(6,10,GP:Menu(2,"Store",STORE,4,"Inn",FVILINN)ÖÖLbl FVILINNÖClLCDÖDisp "Inn","Would you like to","stay for the night","for only 50 gp?":Outpt(6,1,"You have gp.":Outpt(6,10,GP:Menu(2,"Yes",FVIN,4,"No",FVILGENÖLbl FVIN:ClLCDÖOutpt(4,6,"Sleeping..."ÖIf GP<50:Then:Outpt(4,1," ":Disp "You don't have enough","gold.":Pause :Goto FVILGEN:EndÖÖGP-50GPÖMHPCHPÖGoto FVILGENÖÖÖLbl STOREÖ(iPart (1+L/4))AN:(6+WP)AF:(iPart (L+WP/2))AMOD:AR+SHACMOD:ACMODAC:ACCAGMOD:(L-1)+AGMODAGÖClLCDÖDisp "Upgrade which piece","of equipment?"ÖOutpt(6,1,"You have gp.":Outpt(6,10,GP:Menu(1,"Weap.",FSWP,2,"Armor",FSAR,3,"Shld.",FSSH,4,"Acc.",FSAC,5,"Exit",FVILGENÖÖLbl FSWP:ClLCDÖIf WP>1:Then:Disp "The upgrade for this","piece of equipment is","not available here!":Pause :Goto STORE:EndÖ60(WP+1)+60(WP+1)G:Outpt(1,1,"Upgrade from":Outpt(2,1,sub(EQPMNT,1+21WP,16:Outpt(3,1,"to":Outpt(4,1,sub(EQPMNT,22+21WP,16:Outpt(5,1,"for ":Outpt(5,5,G:Outpt(5,10,"gp?":Outpt(6,1,"You have gp.":Outpt(6,10,GP:Menu(2,"Yes",SFWPY,4,"No",STOREÖÖLbl SFWPY:ClLCDÖIf G>GP:Then:Disp "Not enough gold!":Pause :Goto STORE:EndÖGP-GGP:DelVar(G:WP+1WP:Disp "Upgrade complete!":Pause :Goto STOREÖÖÖÖLbl FSAR:ClLCDÖIf AR>1:Then:Disp "The upgrade for this","piece of equipment is","not available here!":Pause :Goto STORE:EndÖ75(AR+1)+75(AR+1)G:Outpt(1,1,"Upgrade from":Outpt(2,1,sub(EQPMNT,253+21AR,16:Outpt(3,1,"to":Outpt(4,1,sub(EQPMNT,274+21AR,16:Outpt(5,1,"for ":Outpt(5,5,G:Outpt(5,10,"gp?":Outpt(6,1,"You have gp.":Outpt(6,10,GP:Menu(2,"Yes",SFARY,4,"No",STOREÖÖLbl SFARY:ClLCDÖIf G>GP:Then:Disp "Not enough gold!":Pause :Goto STORE:EndÖGP-GGP:DelVar(G:AR+1AR:Disp "Upgrade complete!":Pause :Goto STOREÖÖÖÖLbl FSSH:ClLCDÖIf SH>1:Then:Disp "The upgrade for this","piece of equipment is","not available here!":Pause :Goto STORE:EndÖ40(SH+1)+40(SH+1)G:Outpt(1,1,"Upgrade from":Outpt(2,1,sub(EQPMNT,505+21SH,16:Outpt(3,1,"to":Outpt(4,1,sub(EQPMNT,526+21SH,16:Outpt(5,1,"for ":Outpt(5,5,G:Outpt(5,10,"gp?":Outpt(6,1,"You have gp.":Outpt(6,10,GP:Menu(2,"Yes",SFSHY,4,"No",STOREÖÖLbl SFSHY:ClLCDÖIf G>GP:Then:Disp "Not enough gold!":Pause :Goto STORE:EndÖGP-GGP:DelVar(G:SH+1SH:Disp "Upgrade complete!":Pause :Goto STOREÖÖÖÖLbl FSAC:ClLCDÖIf ACC>1:Then:Disp "The upgrade for this","piece of equipment is","not available here!":Pause :Goto STORE:EndÖ50(ACC+1)+50(ACC+1)G:Outpt(1,1,"Upgrade from":Outpt(2,1,sub(EQPMNT,673+21ACC,16:Outpt(3,1,"to":Outpt(4,1,sub(EQPMNT,694+21ACC,16:Outpt(5,1,"for ":Outpt(5,5,G:Outpt(5,10,"gp?":Outpt(6,1,"You have gp.":Outpt(6,10,GP:Menu(2,"Yes",SFACY,4,"No",STOREÖÖLbl SFACY:ClLCDÖIf G>GP:Then:Disp "Not enough gold!":Pause :Goto STORE:EndÖGP-GGP:DelVar(G:ACC+1ACC:Disp "Upgrade complete!":Pause :Goto STOREÖÖÖÖÖÖLbl STARCHÖClLCDÖOutpt(4,6,"Loading..."Ö3LMÖZLEVMAPÖIf STLC==1:Then:3X:2Y:Else:If STLC==2:Then:17X:2Y:End:End :[[1,1,3,1,1,1,1,1,1,1,1,1,1,1,1,1,8,1,1,1,1][1,1,0,0,1,0,0,1,0,0,1,0,0,1,0,0,0,0,0,0,1][1,0,1,0,0,0,0,0,1,1,0,0,0,12,0,0,0,0,0,11,1][1,0,0,0,1,1,1,15,0,0,0,0,0,13,0,0,0,0,0,0,1][1,0,1,1,0,0,0,0,0,0,0,0,0,14,0,0,0,1,1,1,1][1,0,16,1,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,1][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]LVLOBÖÖÖÖLbl ARCHGENÖClLCDÖDisp L1,L2,L3,L4,L5,L6,L7ÖÖIf ARCS>0:Outpt(6,3,"$"ÖÖOutpt(8,1," Archery Range "ÖÖLbl ARCLPTOPÖOutpt(Y,X,"¼"):XNX:YNYÖZMOVEÖIf Z==22:Then:ZPAUSE:Goto REDIR:EndÖÖOutpt(Y,X," "ÖÖIf Q==0:Then:NXX:NYY:Goto ARCLPTOP:Else:If Q==1:Goto ARCLPTOP:EndÖÖIf Q==3:Then:3STLC:Goto STFVIL:EndÖIf Q==8:Then:4STLC:Goto STFVIL:EndÖIf Q==11:Then:ClLCD:Disp "I own this range.","","You can do what you","want, but don't cross","that line.":Pause :Goto ARCHGEN:EndÖIf Q==12:Then:1TRGT:Goto ARCHGAM:EndÖIf Q==13:Then:2TRGT:Goto ARCHGAM:EndÖIf Q==14:Then:3TRGT:Goto ARCHGAM:EndÖIf Q==15:Then:ClLCD:Disp "Range Keeper:","Hey you! Do you want","to get hit!? Get out","from back there!":Pause :15X:6Y:Goto ARCHGEN:EndÖIf Q==16:Then:If ARCS==0:Then:NXX:NYY:Goto ARCLPTOP:Else:ClLCD:Disp "The range keeper's","money! It has","gp in it!":Outpt(2,15,ARCS:GP+ARCSGP:0ARCS:Pause :Goto ARCHGEN:End:EndÖÖGoto ARCLPTOPÖÖÖÖÖLbl ARCHGAMÖClLCDÖOutpt(4,6,"Loading..."Ö10LMÖZLEVMAPÖClLCDÖDisp L1,L2,L3,L4,L5,L6,L7ÖOutpt(8,2,TRGT:Outpt(8,3,"00 ft 0 ft"ÖPause ÖClLCDÖDisp "Rules:","Press [ENTER] to draw","the bow. Then press","again at the desired","power to release."ÖPause ÖClLCDÖDisp L1,L2,L3,L4,L5,L6,L7ÖOutpt(8,2,TRGT:Outpt(8,3,"00 ft 0 ft"ÖWhile Z105:getKyZ:EndÖOutpt(6,20," ":ÖFor(Z,1,3):Z+1Z:Outpt(5,20,"-":EndÖOutpt(5,20," ":ÖFor(Z,1,3):Z+1Z:Outpt(5,19,"-":EndÖOutpt(5,19," ":ÖFor(Z,1,3):Z+1Z:Outpt(5,18,"-":EndÖOutpt(5,18," ":ÖFor(Z,1,3):Z+1Z:Outpt(6,17,"-":EndÖOutpt(6,17," ":ÖOutpt(6,18,"-"ÖOutpt(3,10,"Power:"Ö0POWRÖLbl ARCLPÖTRGT+POWRPOWRÖOutpt(3,17,POWRÖIf getKy==0:Goto ARCLPÖÖLbl ARCNDÖOutpt(6,18,"("ÖIf POWR>100TRGT:Then:For(Z,1,17:For(A,1,2):A+1A:Outpt(1+iPart ((18-Z)/3),18-Z,"-":End:Outpt(1+iPart ((18-Z)/3),18-Z," ":End:Pause :ClLCD:Disp "You missed!","Oh, by the way,","that's 10 gp for the","arrow.":GP-10GP:Pause :If GP<0:Then:0GP:ClLCD:Disp "You're out of gold!","Get out!":Pause :4STLC:Goto STFVIL:End:0STLC:Goto STARCH:EndÖÖÖIf POWR==100TRGT:Then:For(Z,1,14):For(A,1,2:A+1A:Outpt(6,18-Z,"-":End:Outpt(6,18-Z," ":End:Outpt(6,3,"-":Pause :ClLCD:Disp "Range Keeper:","Well done! Here's"," gp!":Outpt(3,1,5+5TRGT:GP+(5+5TRGT)GP:Pause :0STLC:Goto STARCH:EndÖÖÖFor(Z,1,iPart (15POWR/(100TRGT)):For(A,1,2:A+1A:Outpt(6,18-Z,"-":End:Outpt(6,18-Z," ":End:Outpt(7,18-Z,"|":Pause :ClLCD:Disp "You missed!","Oh, by the way,","that's 10 gp for the","arrow.":GP-10GP:Pause :If GP<0:Then:0GP:ClLCD:Disp "You're out of gold!","Get out!":Pause :4STLC:Goto STFVIL:End:0STLC:Goto STARCHÖÖÖÖÖLbl STFTNTÖClLCDÖOutpt(4,6,"Loading..."Ö4LMÖZLEVMAPÖIf STLC==1:Then:6Y:4X:Else:If STLC==2:Then:6Y:2X:Else:If STLC==3:Then:2Y:8X:Else:If STLC==4:Then:4Y:20X:End:End:End:EndÖ[[1,1,1,1,1,1,1,8,1,1,1,1,1,1,1,1,1,1,4,4,4][1,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,1,0,0,0,4][1,0,0,1,1,0,1,0,1,0,0,0,1,1,0,1,0,0,0,0,4][1,0,1,0,0,0,1,0,0,0,1,0,1,0,0,0,1,1,0,0,4][1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,4][2,0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,1,0,0,4][1,1,1,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4]]LVLOBÖÖÖÖLbl FTNTGENÖClLCDÖDisp L1,L2,L3,L4,L5,L6,L7ÖÖIf P<3:Outpt(1,8,"É"ÖÖOutpt(8,1," Forest "ÖÖLbl FTNLPTOPÖOutpt(Y,X,"¼"):XNX:YNYÖZMOVEÖIf Z==22:Then:ZPAUSE:Goto REDIR:EndÖÖIf ENC==1:Then:If randInt(1,3)<3:Then:1EN:Else:2EN:End:ZCOMBAT:Goto FTNTGEN:EndÖÖOutpt(Y,X," "ÖÖIf Q==0:Then:NXX:NYY:Goto FTNLPTOP:Else:If Q==1:Goto FTNLPTOP:EndÖÖ0FSWÖIf Q==2:Goto STFGLÖIf Q==4:Then:1STLC:Goto STOVR:EndÖIf Q==5:Then:2STLC:Goto STFVIL:EndÖIf Q==8:Then:ClLCD:If P<2:Then:Disp "A wall of force","blocks your path.":Pause :Goto FTNTGEN:End:If P==2:Then:3P:Disp "You touch the strange","stone to the seal,","and the wall of force","recedes.","":End:If P3:Then:Disp "Enter the temple?":1STLC:Menu(2,"Yes",STFT1,4,"No",FTNTGEN:End:EndÖÖÖÖLbl STFGLÖClLCDÖOutpt(4,6,"Loading..."Ö6LMÖZLEVMAPÖIf STLC==1:Then:20X:6Y:EndÖ[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1][1,0,9,0,0,0,8,0,0,1,0,0,0,0,0,0,0,0,0,1,1][1,0,0,0,1,1,1,1,0,0,0,1,0,1,0,1,1,0,0,0,1][1,1,7,1,1,0,0,0,1,1,1,1,0,0,1,0,0,1,0,0,1][1,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1,0,0,0,1,1][1,1,0,0,0,1,0,0,0,0,1,0,0,0,1,0,0,0,0,0,4][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]LVLOBÖÖÖÖLbl FGLGENÖDisp L1,L2,L3,L4,L5,L6,L7ÖÖIf P<2:Outpt(2,3,"o"ÖIf FSW0:Then:Outpt(2,7," ":Outpt(4,3,"Ê":EndÖÖOutpt(8,1," Forest "ÖÖÖLbl FGLLPTOPÖOutpt(Y,X,"¼"):XNX:YNYÖZMOVEÖIf Z==22:Then:ZPAUSE:Goto REDIR:EndÖÖIf ENC==1:Then:If randInt(1,3)<3:Then:1EN:Else:3EN:End:ZCOMBAT:Goto FGLGEN:EndÖÖOutpt(Y,X," "ÖÖIf Q==0:Then:NXX:NYY:Goto FGLLPTOP:Else:If Q==1:Goto FGLLPTOP:EndÖÖIf Q==4:Then:DelVar(FSW):2STLC:Goto STFTNT:EndÖIf Q==7:Then:If FSW==0:Then:1FSW:Outpt(4,3,"Ê":Outpt(2,7," ":End:EndÖIf Q==8:Then:If FSW==1:Then:NXX:NYY:End:EndÖIf Q==9:Then:NXX:NYY:If FSW2:Then:If P<2:Then:2P:ClLCD:Disp "You found a strange","glowing stone.":Pause :ClLCD:Goto FGLGEN:End:End:EndÖÖGoto FGLLPTOPÖÖÖÖLbl STFT1ÖClLCDÖOutpt(4,6,"Loading..."Ö7LMÖZLEVMAPÖIf STLC==1:Then:6Y:11X:Else:If STLC==2:Then:2Y:11X:End:EndÖ[[1,1,1,1,1,1,1,1,1,1,3,4,1,1,1,1,1,1,1,1,1][1,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1][1,0,0,1,0,1,1,1,1,1,1,1,1,0,1,0,1,1,1,1,1][1,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1][1,0,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,1,0,1][1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,6,0,0,0,0,1][1,1,1,1,1,1,1,1,1,1,5,1,1,1,1,1,1,1,1,1,1]]LVLOBÖÖÖÖLbl FT1GENÖClLCDÖDisp L1,L2,L3,L4,L5,L6,L7ÖÖIf P<4:Outpt(1,11,"#"ÖÖOutpt(8,1," Forest Temple "ÖÖLbl FT1LPTOPÖOutpt(Y,X,"¼"):XNX:YNYÖZMOVEÖÖIf Z==22:Then:ZPAUSE:Goto REDIR:EndÖÖIf ENC==1:Then:If randInt(1,3)<3:Then:2EN:Else:3EN:End:ZCOMBAT:Goto FT1GEN:EndÖÖOutpt(Y,X," "ÖÖIf Q==0:Then:NXX:NYY:Goto FT1LPTOP:Else:If Q==1:Goto FT1LPTOP:EndÖÖIf Q==3:Then:If P<4:Then:ClLCD:Disp "An elf in armor walks","through the door.":Pause :ClLCD:Disp "Elf:","The elven division of","RREG's forces is","taking control of","this temple. We will","not be stopped.":Pause :ClLCD:Disp "You:","Oh, yeah?":Pause :4EN:1RUN:ZCOMBAT:0RUN:4P:Goto FT1GEN:Else:1STLC:Goto STFT2:End:EndÖIf Q==4:Goto FT1LPTOPÖIf Q==5:Then:3STLC:Goto STFTNT:EndÖIf Q==6:Then:ClLCD:Disp "What appeared to be a","key is actually a","hologram.","","Strange...":Pause :Goto FT1GEN:EndÖGoto FT1LPTOPÖÖÖÖLbl STFT2ÖClLCDÖOutpt(4,6,"Loading..."Ö8LMÖZLEVMAPÖIf STLC==1:Then:6Y:11X:Else:If STLC==2:Then:2Y:12X:End:EndÖ[[1,1,1,1,1,1,1,1,1,1,3,4,1,1,1,1,1,1,1,1,1][1,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1][1,0,0,1,0,1,1,1,1,1,1,1,1,0,1,0,1,1,1,1,1][1,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1][1,0,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,1,0,1][1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,6,0,0,0,0,1][1,1,1,1,1,1,1,1,1,1,5,1,1,1,1,1,1,1,1,1,1]]LVLOBÖÖÖÖLbl FT2GENÖClLCDÖDisp L1,L2,L3,L4,L5,L6,L7ÖÖOutpt(8,1," Forest Temple "ÖÖLbl FT2LPTOPÖOutpt(Y,X,"¼"):XNX:YNYÖZMOVEÖÖIf Z==22:Then:ZPAUSE:Goto REDIR:EndÖÖIf ENC==1:Then:If randInt(1,3)<3:Then:2EN:Else:4EN:End:ZCOMBAT:Goto FT2GEN:EndÖÖOutpt(Y,X," "ÖÖIf Q==0:Then:NXX:NYY:Goto FT2LPTOP:Else:If Q==1:Goto FT2LPTOP:EndÖÖIf Q==3:Goto FT2LPTOPÖIf Q==4:Then:ClLCD:If P<5:Then:Disp "This wall appears to","have some sort of","crack in it, and a","tiny, strangely","shaped hole...":Pause :Goto FT2LPTOP:Else:Disp "You insert the key","into what appears to","be a keyhole, and the","door slides open.":Pause :1STLC:Goto STFT3:End:EndÖIf Q==5:Then:2STLC:Goto STFT1:EndÖIf Q==6:Then:If P<5:Then:ClLCD:Disp "You find a key on the","ground. Funny, it was","just invisible, but","as you pick it up, it","gradually becomes","visible.":Pause :ClLCD:Disp "It is crafted from a","dull metal that","gleams with brown and","green, the colors of","the forest.":Pause :5P:Goto FT2GEN:End:EndÖGoto FT2LPTOPÖÖÖÖLbl STFT3ÖClLCDÖOutpt(4,6,"Loading..."Ö9LMÖZLEVMAPÖIf STLC==1:Then:6Y:12X:EndÖ[[1,1,1,1,1,1,1,1,1,1,3,1,1,1,1,1,1,1,1,1,1][1,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1][1,1,1,1,1,1,1,1,1,1,1,5,1,1,1,1,1,1,1,1,1]]LVLOBÖÖÖÖLbl FT3GENÖClLCDÖDisp L1,L2,L3,L4,L5,L6,L7ÖÖIf P<6:Outpt(2,11,"Â"ÖÖOutpt(8,1," Forest Temple "ÖÖLbl FT3LPTOPÖOutpt(Y,X,"¼"):XNX:YNYÖZMOVEÖÖIf Z==22:Then:ZPAUSE:Goto REDIR:EndÖÖIf ENC==1:Then:If randInt(1,3)<3:Then:2EN:Else:4EN:End:ZCOMBAT:Goto FT3GEN:EndÖÖOutpt(Y,X," "ÖÖIf Q==0:Then:NXX:NYY:Goto FT3LPTOP:Else:If Q==1:Goto FT3LPTOP:EndÖÖIf Q==3:Then:ClLCD:Disp "Thank you for","completeing the","second release of","RPG4!!! Items will be","added in the future.":Pause :Stop:EndÖIf Q==2:Then:NXX:NYY:If P>5:Then:Goto FT3LPTOP:Else:ClLCD:Disp "Hireling to RREG:","In the name of the","Guy who is Really","Really Evil, I","command you to stop!":Pause :ClLCD:Disp "You:","No! You stop!":Pause :5EN:1RUN:ZCOMBAT:0RUN:6P:Goto FT3GEN:End:EndÖIf Q==5:Then:2STLC:Goto STFT2:EndÖÖÖÖÖÖÖÖLbl STOVRÖClLCDÖDisp "Overworld coming soon"ÖPause ÖGoto FTNTGENÖÖ ¢ ENEMIES¢  Slime ( ) Evil Gnome È Willo'Wisp ¿ Elf Guard (0- Hireling (Â- 666666666600000000007777777777000000000088888888880000000000 .ENSTATS.üü€ü%üüüü ü@üEü0üü0ü0ü@ü0ü5ü0üü@ü0üPü`üüPüPü0ü€üü0ü t EQPMNTtrShort Sword Flint Spear Hand Axe Long Sword Mace Greatsword Battleaxe Bastard Sword Enchanted Spear Enchanted Axe Enchanted Sword Cotton Clothes Silk Robe Leather Armor Studded Armor Hide Armor Chain Shirt Chain Mail Scale Mail Full Plate Armor Enchanted Robe Enchanted Armor None Buckler Sm. Wooden Shld. Lg. Wooden Shld. Sm. Steel Shield Lg. Steel Shield Enchanted Shield None Dexterity Ring Weightless Boots Roc Spirit Pendant None Lesser Healing Moderate Healing Greater Healing Full Healing S LVLMAPSSQÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊ Ê +---+ ÊÊ Ê | | Ê ÊÊ Ê +- -+ Ê Ê ÊÊ Ê ÊÊÊ ÊÊ Ê Ê ÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊ# #Ê+--+Ê+---+--+ÊÊÊ Â | |Ê| @ Ê# Ê+-@+ +-@-+--+ Ê O Ê#Ê Ê+---+ Ê+-@-+ÊÊÊ Ê @ |Â| Ê | Â| ÊÊÊÊÊÊÊ+--@+ÊÊÊ+-@-+ÊÊÊÊ ÊÊÊ+---+ÊÊÊ+- -+ÊÊÊÊ Ê Ê Ê  ÊÊ Ê 0  ÂÊÊ Ê0  ÊÊ 0  +--+Ê Ê Ê Ê  @ |ÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊ+--+ÊÊÊÊÊʾ ¾ÊÊÊÊÊÊÊÊÊ ÊÊ Ê Ê Ê Ê ÊÊ Ê Ê ÊÊ Ê Ê Ê Ê Ê Ê ÊÊ Ê Ê Ê Ê Ê Ê Ê Ê Ê Ê ÊÊÊ ÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊ ~~/- /   ¾ -/    ~~~~~/   / ÊÊÊ +-+  /¾ Ê¾Ê |+| / / ÊÊ Ê +-+ / / Ê = / /ÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊ Ê Ê ÊÊÊ ÊÊÊÊ Ê Ê ÊÊ ÊÊÊ ÊÊ ÊÊÊÊ Ê Ê ÊÊ Ê Ê Ê Ê Ê ÊÊÊÊ Ê Ê Ê ÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊ+-Ê--Ê--ʾ ¾Ê--Ê--Ê-+| | | |Ê | +Ê--Ê--Ê + -Ê--Ê| | | | |Ê -Ê-+ Ê--Ê- -+--Ê- Ê| | | |Å |+-Ê--Ê-+ʾ ¾Ê-+Ê--Ê-++-Ê--Ê--OOO0O--Ê--Ê-+| |Ê Ê| |Ê Ê| |+-Ê--Ê--ʾ ¾Ê--Ê--Ê-++-Ê--Ê--ÊO OÊ--Ê--Ê-+| |Ê Ê| |Ê Ê| |+-Ê--Ê--OOO O--Ê--Ê-+ 0 (¼|Â--------------------- 0 (¼|Â--------------------- ZCOMBAT ClLCDÖsub(ENEMIES,19+20EN,10)ENENAMEÖOutpt(4,1,ENENAME:Outpt(4,13,"emerges!"ÖPause ÖÖENSTATS(6EN-5)ENUÖENSTATS(6EN-4)EFÖENSTATS(6EN-3)EMHPÖENSTATS(6EN-2)EXPÖENSTATS(6EN-1)EACÖENSTATS(6EN)EAGÖEMHPECHPÖÖÖClLCDÖOutpt(1,11,"|"ÖOutpt(2,11,"|"ÖOutpt(3,11,"|"ÖOutpt(4,11,"|"ÖOutpt(5,11,"|"ÖOutpt(7,11,"|"ÖOutpt(6,1,"----------+----------"ÖÖsub(ENEMIES,19+20EN,10)ENENAMEÖsub(ENEMIES,9+20EN,10)ENEPICÖOutpt(1,5-(iPart (.5+.5(lngth NAME))),NAMEÖOutpt(3,5,"¼"ÖOutpt(1,12,ENENAMEÖOutpt(3,12,ENEPICÖÖÖ(iPart (10CHP/MHP))AÖ(iPart (10ECHP/EMHP))BÖOutpt(5,2,CHP:Outpt(5,5,"/":Outpt(5,6,MHPÖIf A>0:Outpt(7,1,sub("##########",1,AÖIf B>0:Outpt(7,22-B,sub("##########",1,BÖÖLbl COMLPTOPÖÖOutpt(8,1," "ÖIf RUN==1:Then:Menu(1,"Fight",FI,2,"Item",PTSLT:Else:Menu(1,"Fight",FI,2,"Item",PTSLT,5,"Run",ESC:EndÖÖÖÖLbl PTSLTÖ3LD:ZPAUSEÖ1PLFIRST:Goto ENATÖÖÖÖÖLbl FIÖ0PLFIRSTÖIf (randInt(1,20)+AG)(randInt(1,20)+EAG):Then:1PLFIRST:Goto PLAT:EndÖÖÖÖÖÖLbl ENATÖIf (randInt(1,20)+(EXP/50))<(AC+AG):Then:Outpt(8,1," The enemy misses! ":Pause :Goto COMLPTOP:EndÖOutpt(8,1," "ÖOutpt(8,1,"It hits for"Ö0DMGÖFor(I,1,ENU):randInt(1,EF)+DMGDMG:EndÖOutpt(8,13,DMGÖOutpt(8,16,"damage"ÖCHP-DMGCHPÖÖÖ(iPart (10CHP/MHP))AÖOutpt(5,2," "ÖOutpt(5,2,CHP:Outpt(5,5,"/":Outpt(5,6,MHPÖOutpt(7,1," "ÖIf A>0:Outpt(7,1,sub("##########",1,AÖPause ÖÖIf CHP0:Then:Outpt(8,1," You have fallen! ":Pause :ClLCD:Outpt(4,7,"GAME OVER":Pause :DelVar(ENU:DelVar(EF:DelVar(ECHP:DelVar(EMHP:DelVar(A:DelVar(B:DelVar(I:DelVar(EXP:DelVar(DMG:DelVar(ENENAME:DelVar(ENEPIC:DelVar(EAC:DelVar(EAG:Stop:EndÖÖÖIf PLFIRST==1:Goto COMLPTOPÖÖÖÖÖLbl PLATÖIf randInt(1,20)+AMOD0:Outpt(7,22-B,sub("##########",1,BÖPause ÖÖIf ECHP0:Then:Outpt(8,1,"You felled ":Outpt(8,12,ENENAME:CEXP+EXPCEXP:Pause :Outpt(8,1," You gained EXP! ":Outpt(8,13,EXP:Pause :.6EXP+GPGP:Outpt(8,1," You got GP! ":Outpt(8,12,.6EXP:Pause :If Q==0:Then:NXX:NYY:End:If (CEXP(50L+50L)):Then:L+1L:(L-1)+AGMODAG:ACMODAC:MHP-CHPHPDIF:5L+5L+50MHP:MHP-HPDIFCHP:(iPart (1+L/4))AN:(iPart (L+WP/2))AMOD:(L-1)+AGMODAG:DelVar(HPDIF:Outpt(8,1,"You are now level !":Outpt(8,19,L:End:DelVar(ENU:DelVar(EF:DelVar(ECHP:DelVar(EMHP:DelVar(A:DelVar(B:DelVar(I:DelVar(EXP:DelVar(DMG:DelVar(ENENAME:DelVar(ENEPIC:DelVar(EAC:DelVar(EAG:Return:EndÖÖIf PLFIRST==1:Then:Goto ENAT:Else:Goto COMLPTOP:EndÖÖÖÖLbl ESCÖIf randInt(1,20)+AG>EAG:Then:Outpt(8,1,"You got away safely! ":Pause :If Q==0:Then:NXX:NYY:End:Return:Else:Outpt(8,1,"You failed to escape!":Pause :1PLFIRST:Goto ENATÖÖ ÿZLEVMAPÿý4LMaD1 3Mo9LVLMAPS/D1473M`D1/D21 4L1o9LVLMAPS/D1473M`D22/D21 4L2o9LVLMAPS/D1473M`D43/D21 4L3o9LVLMAPS/D1473M`D64/D21 4L4o9LVLMAPS/D1473M`D85/D21 4L5o9LVLMAPS/D1473M`D106/D21 4L6o9LVLMAPS/D1473M`D127/D21 4L7oooß —ZMOVE—•0ENCÖLbl LWAITÖgetKyZÖIf Z==24:X-1NXÖIf Z==25:Y-1NYÖIf Z==26:X+1NXÖIf Z==34:Y+1NYÖIf Z==0:Goto LWAITÖIf randInt(1,6)==1:1ENCÖLVLOB(NY,NX)QÖÖ \ZPAUSE\ZÖIf LD==3:Goto POTIONÖIf LD==2:Goto SAVEÖIf LD==1:Goto LOADÖLbl STATÖIf LD>0:ReturnÖClLCDÖDisp "","Level:","Current EXP:","Next Level:","HP:","GP:"ÖOutpt(1,11-(iPart (.5(lngth NAME))),NAME:Outpt(2,8,L:Outpt(3,14,CEXP:Outpt(4,13,50L+50L:Outpt(5,5,CHP:Outpt(5,8,"/":Outpt(5,9,MHP:Outpt(6,5,GPÖMenu(1,"Resume",RES,2,"Items",EQ,3,"Load",LOAD,4,"Save",SAVE,5,"Exit",CONÖÖÖLbl EQÖClLCDÖDisp "Equipment:","WP:","AR:","SH:","ACC:"ÖOutpt(2,5,sub(EQPMNT,1+21WP,16:Outpt(3,5,sub(EQPMNT,253+21AR,16:Outpt(4,5,sub(EQPMNT,505+21SH,16:Outpt(5,5,sub(EQPMNT,673+21ACC,16ÖMenu(1,"Potions",POTION,5,"Back",STATÖÖLbl POTIONÖClLCDÖDisp "Potions:","1 -","2 -","3 -","4 -","5 -","6 -"ÖFor(Z,1,6:Outpt(Z+1,5,sub(EQPMNT,778+21PTN(Z),16:EndÖIf LD==0:Menu(1,"Use",PUSE,2,"Eqpmt.",EQ,5,"Back",STATÖLbl PUSEÖDisp "(enter 0 for back)"ÖInput "Use: "PNÖClLCDÖCHPNHPÖIf PTN(PN==1:CHP+20CHPÖIf PTN(PN==2:CHP+60CHPÖIf PTN(PN==3:CHP+120CHPÖIf PTN(PN==4:MHPCHPÖIf CHP>MHP:MHPCHPÖDisp "Recovered HP!"ÖOutpt(1,11,CHP-NHPÖDelVar(NHPÖPauseÖGoto STATÖÖÖÖÖÖÖÖÖÖÖÖLbl LOADÖClLCDÖOutpt(4,4,"Please wait..."Ö1AÖsub(SVNAMES,1,8)NA1:sub(SVNAMES,9,8)NA2:sub(SVNAMES,17,8)NA3:sub(SVNAMES,25,8)NA4Ösub(SVNAMES,33,8)NA5:sub(SVNAMES,41,8)NA6:sub(SVNAMES,49,8)NA7:sub(SVNAMES,57,8)NA8Ösub(SVNAMES,65,8)NA9:sub(SVNAMES,73,8NA0ÖÖLbl LOADGENÖClLCDÖDisp "Load from which file?","1: 6:","2: 7:","3: 8:","4: 9:","5: 10:"ÖOutpt(2,3,NA1:Outpt(3,3,NA2:Outpt(4,3,NA3:Outpt(5,3,NA4:Outpt(6,3,NA5ÖOutpt(2,14,NA6:Outpt(3,14,NA7:Outpt(4,14,NA8:Outpt(5,14,NA9:Outpt(6,14,NA0ÖMenu(1,NA1,NAA,2,NA2,NAB,3,NA3,NAC,4,NA4,NAD,5,NA5,NAE,6,NA6,NAF,7,NA7,NAG,8,NA8,NAH,9,NA9,NAI,10,NA0,NAJ,11,"Back",STATÖLbl NAA:1FN:Goto LÖLbl NAB:2FN:Goto LÖLbl NAC:3FN:Goto LÖLbl NAD:4FN:Goto LÖLbl NAE:5FN:Goto LÖLbl NAF:6FN:Goto LÖLbl NAG:7FN:Goto LÖLbl NAH:8FN:Goto LÖLbl NAI:9FN:Goto LÖLbl NAJ:10FN:Goto LÖÖLbl LÖClLCDÖOutpt(4,6,"Loading..."ÖÖLSAVEOB(FN,1LMÖLSAVEOB(FN,2XÖLSAVEOB(FN,3YÖLSAVEOB(FN,4LÖLSAVEOB(FN,5CEXPÖLSAVEOB(FN,6GPÖLSAVEOB(FN,7CHPÖLSAVEOB(FN,8MHPÖLSAVEOB(FN,9PÖLSAVEOB(FN,10WPÖLSAVEOB(FN,11ARÖLSAVEOB(FN,12SHÖLSAVEOB(FN,13ACCÖLSAVEOB(FN,14EVNTÖLSAVEOB(FN,15PTN(1ÖLSAVEOB(FN,16PTN(2ÖLSAVEOB(FN,17PTN(3ÖLSAVEOB(FN,18PTN(4ÖLSAVEOB(FN,19PTN(5ÖLSAVEOB(FN,20PTN(6Ö"Ösub(SVNAMES,7+8FN,8NAME:" "Z:9NAMLNGÖWhile Z==" ":NAMLNG-1NAMLNG:sub(NAME,NAMLNG,1Z:EndÖsub(NAME,1,NAMLNGNAMEÖÖ(iPart (1+L/4))AN:(6+WP)AF:(iPart (L+WP/2))AMOD:AR+SHACMOD:ACMODAC:ACCAGMOD:(L-1)+AGMODAGÖ0LDÖGoto STATÖÖÖÖLbl SAVEÖClLCDÖOutpt(4,4,"Please wait..."Ö1AÖsub(SVNAMES,1,8)NA1:sub(SVNAMES,9,8)NA2:sub(SVNAMES,17,8)NA3:sub(SVNAMES,25,8)NA4Ösub(SVNAMES,33,8)NA5:sub(SVNAMES,41,8)NA6:sub(SVNAMES,49,8)NA7:sub(SVNAMES,57,8)NA8Ösub(SVNAMES,65,8)NA9:sub(SVNAMES,73,8NA0ÖÖÖÖLbl SAVGENÖClLCDÖDisp "Save to which file?","1: 6:","2: 7:","3: 8:","4: 9:","5: 10:"ÖOutpt(2,3,NA1:Outpt(3,3,NA2:Outpt(4,3,NA3:Outpt(5,3,NA4:Outpt(6,3,NA5ÖOutpt(2,14,NA6:Outpt(3,14,NA7:Outpt(4,14,NA8:Outpt(5,14,NA9:Outpt(6,14,NA0ÖÖInput "File #: ",FNÖIf fPart FN0:Goto SÖIf FN<1:Goto SÖIf FN>10:Goto SÖÖOutpt(7,1,"Change name?":Menu(2,"Yes",Y,4,"No",SVÖLbl Y:Outpt(7,1," "ÖDisp "Name:"ÖInpST NAMEÖClLCDÖIf lngth NAME>8:Then:Disp "Invalid name.":Pause :Goto SAVGEN:EndÖÖLbl SVÖOutpt(4,6,"Saving..."ÖÖIf (lngth NAME)<8:NAME+sub(" ",1,(8-(lngth NAME)))NAMEÖÖIf FN==1:NAME+NA2+NA3+NA4+NA5+NA6+NA7+NA8+NA9+NA0SVNAMESÖIf FN==2:NA1+NAME+NA3+NA4+NA5+NA6+NA7+NA8+NA9+NA0SVNAMESÖIf FN==3:NA1+NA2+NAME+NA4+NA5+NA6+NA7+NA8+NA9+NA0SVNAMESÖIf FN==4:NA1+NA2+NA3+NAME+NA5+NA6+NA7+NA8+NA9+NA0SVNAMESÖIf FN==5:NA1+NA2+NA3+NA4+NAME+NA6+NA7+NA8+NA9+NA0SVNAMESÖIf FN==6:NA1+NA2+NA3+NA4+NA5+NAME+NA7+NA8+NA9+NA0SVNAMESÖIf FN==7:NA1+NA2+NA3+NA4+NA5+NA6+NAME+NA8+NA9+NA0SVNAMESÖIf FN==8:NA1+NA2+NA3+NA4+NA5+NA6+NA7+NAME+NA9+NA0SVNAMESÖIf FN==9:NA1+NA2+NA3+NA4+NA5+NA6+NA7+NA8+NAME+NA0SVNAMESÖIf FN==10:NA1+NA2+NA3+NA4+NA5+NA6+NA7+NA8+NA9+NAMESVNAMESÖÖÖLMLSAVEOB(FN,1ÖXLSAVEOB(FN,2ÖYLSAVEOB(FN,3ÖLLSAVEOB(FN,4ÖCEXPLSAVEOB(FN,5ÖGPLSAVEOB(FN,6ÖCHPLSAVEOB(FN,7ÖMHPLSAVEOB(FN,8ÖPLSAVEOB(FN,9ÖWPLSAVEOB(FN,10ÖARLSAVEOB(FN,11ÖSHLSAVEOB(FN,12ÖACCLSAVEOB(FN,13ÖEVNTLSAVEOB(FN,14ÖPTN(1LSAVEOB(FN,15ÖPTN(2LSAVEOB(FN,16ÖPTN(3LSAVEOB(FN,17ÖPTN(4LSAVEOB(FN,18ÖPTN(5LSAVEOB(FN,19ÖPTN(6LSAVEOB(FN,20ÖÖÖÖOutpt(4,6,"Game saved!"ÖPause ÖGoto STATÖÖLbl S:ClLCD:Disp "Invalid #.":Pause :Goto SAVGENÖÖÖÖÖÖÖLbl CONÖClLCDÖOutpt(3,5,"Are you sure?"ÖMenu(2,"Yes",EX,4,"No",STATÖÖLbl EXÖClLCDÖOutpt(4,4,"Cleaning up..."ÖDelVar(LÖDelVar(PÖDelVar(QÖDelVar(RÖDelVar(CEXPÖDelVar(ACÖDelVar(GPÖDelVar(ENCÖDelVar(AGÖDelVar(ACMODÖDelVar(AGMODÖDelVar(AMODÖDelVar(CHPÖDelVar(MHPÖDelVar(LDÖDelVar(ANÖDelVar(AFÖDelVar(LMÖDelVar(ENÖDelVar(AÖDelVar(BÖDelVar(CÖDelVar(DÖDelVar(EÖDelVar(QÖDelVar(NÖDelVar(NAÖDelVar(NA1ÖDelVar(NA2ÖDelVar(NA3ÖDelVar(NA4ÖDelVar(NA5ÖDelVar(NA6ÖDelVar(NA7ÖDelVar(NA8ÖDelVar(NA9ÖDelVar(NA10ÖDelVar(FNÖDelVar(RUNÖDelVar(L1ÖDelVar(L2ÖDelVar(L3ÖDelVar(L4ÖDelVar(L5ÖDelVar(L6ÖDelVar(L7ÖDelVar(WPÖDelVar(ARÖDelVar(SHÖDelVar(ACCÖDelVar(NXÖDelVar(NYÖDelVar(PTNÖDelVar(XÖDelVar(YÖDelVar(ZÖClLCDÖDisp "Thank you for playing"," RPG4!",""," -Cary",""ÖStopÖÖLbl RESÖ0LDÖÖ¥¹