Goto B
Lbl H
ClrText
Stop
Lbl L
ClrText
Locate 1,1,"©©©©©© I N N E ©©©©©©"
Locate 3,3,"NOT ENOUGH GOLD."
Goto A
Lbl B
2ŢA
ClrText
Locate 1,1,"©©©©©© CAMELOT ©©©©©©"
Locate 1,2,"[F1]  INNE"
Locate 1,3,"[F2]  WEAPON SHOPPE"
Locate 1,4,"[F3]  ATTACK"
Locate 1,5,"[F4]  SEARCH FOREST"
Locate 1,6,"[F5]  STATS"
Locate 1,7,"[F6]  SAVE"
Goto C
Lbl A
Getkey=31ăGoto B
Goto A
Lbl C
Getkey=29ăGoto 0
Getkey=79ăGoto D
Getkey=69ăProg "~WEAPON"
Getkey=49ăProg "~FOREST"
Getkey=59ăProg "~ATTACK"
A=1ăGoto B
Getkey=39ăGoto I
Getkey=47ăGoto H
Goto C
Lbl D
ClrText
Locate 1,1,"©©©©©© I N N E ©©©©©©"
Locate 1,3," A ROOM IS 10 GOLD."
Locate 1,5,"[F1]  STAY"
Locate 1,6,"[F2]  RECRUIT"
Locate 1,7,"[F3]  EXIT"
Goto J
Lbl J
Getkey=59ăGoto B
Getkey=79ăGoto K
Getkey=69ăProg "~RECRUIT"
A=1ăGoto B
Goto J
Lbl K
G<10ăGoto L
MŢH
G™10ŢG
ClrText
Locate 1,1,"©©©©©© I N N E ©©©©©©"
Locate 1,3,"YOUR MEN ARE HEALTHY"
Locate 1,4,"AND READY FOR BATTLE."
Goto A
Lbl I
ClrText
Locate 1,1,"©©©©©©© STATS ©©©©©©©"
Locate 1,3,"SOL."
Locate 1,4,"ATK."
Locate 1,5,"GOLD:"
Locate 7,3,H
Locate 10,3,"/"
Locate 11,3,M
Locate 7,4,S
Locate 8,5,G
Goto A
Lbl 0
ClrText
Locate 1,1,"©©©©©©© SAVE ©©©©©©©©"
HŢList 6[1]
MŢList 6[2]
SŢList 6[3]
GŢList 6[4]
YŢList 6[5]
RŢList 6[6]
UŢList 6[7]
TŢList 6[8]
KŢList 6[9]
Locate 4,3,"SAVE SUCESSFUL."
Goto A