Lbl Í
ClrText
Locate 1,1,"©©© WEAPON SHOPPE ©©©"
Locate 1,2,"[F1]  SWORD       175"
Locate 1,3,"[F2]  LANCE       300"
Locate 1,4,"[F3]  MACE        400"
Locate 1,5,"[F4]  AXE         500"
Locate 1,6,"[F5]  CATAPULT   2000"
Locate 1,7,"[F6]  EXIT"
Goto Î
Lbl Î
Getkey=79ăGoto A
Getkey=69ăGoto B
Getkey=59ăGoto C
Getkey=49ăGoto D
Getkey=39ăGoto E
Getkey=29ăGoto F
Goto Î
Lbl F
1ȚA
Return
Lbl A
1ȚA
G<175ăGoto G
G™175ȚG
S‰1ȚS
Goto I
Lbl B
2ȚA
G<300ăGoto G
G™300ȚG
S‰2ȚS
Goto I
Lbl C
3ȚA
G<400ăGoto G
G™400ȚG
S‰3ȚS
Goto I
Lbl D
4ȚA
G<500ăGoto G
G™500ȚG
S‰4ȚS
Goto I
Lbl E
5ȚA
G<2000ăGoto G
S‰25ȚS
G™2000ȚG
Goto I
Lbl G
ClrText
Locate 1,1,"©©© WEAPON SHOPPE ©©©"
Locate 3,3,"NOT ENOUGH GOLD."
Goto H
Lbl H
If Getkey=31
Then 1ȚA
Return
IfEnd
Goto H
Lbl I
ClrText
Locate 1,1,"©©© WEAPON SHOPPE ©©©"
Locate 1,3,"YOU BOUGHT A"
A=1ăLocate 14,3,"SWORD."
A=2ăLocate 14,3,"LANCE."
A=3ăLocate 14,3,"MACE."
A=4ăLocate 13,3,"N AXE."
A=5ăLocate 14,3,"CATAPULT"
Locate 1,6,"ATTACK INCREASED TO:"
Locate 5,7,S
Goto H