ClrText
1ŢA
7ŢB
Int 5Ran#ŢX
Xŕ1ăGoto X
Lbl A
A>1ăLocate 1,A™1,"                     "
B<7ăLocate 1,B‰1,"                     "
Locate 7,A,"F
Locate 11,A,"G
Locate 15,A,"T"
A‰1ŢA
Locate 9,B,"I"
Locate 13,B,"H"
B™1ŢB
B=3ăGoto B
Goto A
Lbl B
1ŢA
7ŢB
Goto C
Lbl C
A>1ăLocate 1,A™1,"                     "
B<7ăLocate 1,B‰1,"                     "
Locate 6,A,"©©©©©©©©©©©"
A‰1ŢA
Locate 6,B,"©©©©©©©©©©©"
B™1ŢB
B=4ăGoto D
Goto C
Lbl D
Int 5Ran#‰1ŢE
Int (S‰E‰5)Ran#‰1ŢA
Getkey=31ăGoto E
Goto D
Lbl E
ClrText
Int (10‰M)Ran#‰1ŢB
Int 99Ran#‰1ŢC
Int 5Ran#‰1ŢF
Goto F
Lbl F
Locate 1,1,"©©©©©©© FIGHT ©©©©©©©"
Locate 1,2,"CARRIES: "
Locate 1,2,"GOLD:    "
Locate 1,3,"CARRIES: "
Locate 1,2,"ATTACK:  "
Locate 1,3,"GOLD:    "
Locate 1,4,"CARRIES: "
Locate 1,2,"SOLDIERS:"
Locate 1,3,"ATTACK:   "
Locate 1,4,"GOLD:    "
Locate 1,5,"CARRIES: "
Locate 1,2,"         "
Locate 1,3,"SOLDIERS:"
Locate 1,4,"ATTACK:  "
Locate 1,5,"GOLD:    "
Locate 1,6,"CARRIES: "
Locate 1,3,"         "
Locate 1,4,"SOLDIERS:"
Locate 1,5,"ATTACK:  "
Locate 1,6,"GOLD:    "
Locate 1,7,"CARRIES: "
E=1ăLocate 10,3,"GYPSIES"
E=2ăLocate 10,3,"THIEVES"
E=3ăLocate 10,3,"REBELS"
E=4ăLocate 10,3,"BANDITS"
E=5ăLocate 10,3,"KNIGHTS"
Locate 11,4,B
Locate 11,5,A
Locate 11,6,C
F>0ăLocate 11,7,"NOTHING"
F>0ă9ŢF
F>0ăGoto G
F=0ăInt 3Ran#ŢF
F=0ăLocate 11,7,"SCROLL"
Fá0ăLocate 11,7,"WEAPON"
Goto G
Lbl G
Getkey=31ăGoto H
Goto G
Lbl H
Hŕ0ăGoto P
ClrText
Locate 1,1,"©©©©©©© FIGHT ©©©©©©©"
Locate 1,3,"YOU             ENEMY"
Locate 1,4,H
Locate 18,4,B
Locate 1,6,"[F1]  ATTACK"
Locate 1,7,"[F2]  RETREAT"
Goto I
Lbl I
Getkey=79ăGoto J
Getkey=69ăGoto R
Goto I
Lbl J
Locate 1,6,"                     "
Locate 1,7,"                     "
Int 5Ran#‰1ŢX
Int SRan#‰1ŢO
O©XŢX
Locate 10,5,"KILLED"
Locate 17,5,X
B™XŢB
B<0ă0ŢB
Locate 18,4,"      "
Locate 18,4,B
Goto K
Lbl K
Getkey=31ăGoto L
Goto K
Lbl L
Bŕ0ăGoto N
Int 5Ran#‰1ŢX
X©EŢX
H™XŢH
H<0ă0ŢH
Locate 1,5,"                     "
Locate 1,5,"KILLED"
Locate 8,5,X
Locate 1,4,"                 "
Locate 1,4,H
Goto M
Lbl M
Getkey=31ăGoto H
Goto M
Lbl N
ClrText
Locate 1,1,"©©©©©© VICTORY ©©©©©©"
Locate 1,3,"ON THE ENEMY YOU FIND"
Locate 1,4,C
Locate 4,4,"GOLD."
C‰GŢG
Goto S
Lbl O
1ŢA
Getkey=31ăReturn
Goto O
Lbl P
ClrText
Locate 1,1,"©©©©©©© R I P ©©©©©©©"
Locate 1,2,"YOU ARE DEAD AND YOUR"
Locate 1,3,"KINGDOM IS OVERTAKEN"
Locate 3,4,"BY THE EVIL BLACK"
Locate 8,5,"KNIGHT."
Locate 1,7,"©©©   GAME OVER   ©©©"
Goto Q
Lbl Q
Getkey=31ăClrText
Stop
Goto Q
Lbl R
Int 4Ran#ŢA
A=0ăLocate 1,6,"                     "
A=0ăLocate 1,7,"                     "
A=0ăLocate 2,7,"UNABLE TO RETREAT!"
A=0ăGoto K
Aá0ă1ŢA
A=1ăReturn
Lbl S
If Fá9
Then Locate 8,4," AND A"
F=0ăLocate 1,5,"SCROLL OF STRENGTH."
F=0ăS‰10ŢS
F=1ăLocate 1,5,"MACE."
F=1ăS‰3ŢS
F=2ăLocate 1,5,"SWORD."
F=2ăS‰1ŢS
Goto O
IfEnd
If F=9
Then Goto O
IfEnd
Lbl X
Int 15Ran#ŢA
Int 250Ran#‰1ŢB
Locate 1,1,"©© T R E A S U R E ©©"
Locate 1,3,"YOU FOUND"
A=0 Or A=3ăLocate 11,3,"A MACE."
A=0 Or A=3ăS‰3ŢS
A=1 Or A=2ăLocate 11,3,"A SWORD."
A=1 Or A=2ăS‰1ŢS
A=4 Or A=5ăLocate 11,3,"AN AXE."
A=4 Or A=5ăS‰4ŢS
A=6ăLocate 11,3,"A SCROLL "
A=6ăLocate 1,4,"OF STRENGTH."
A=6ăS‰10ŢS
A=7 Or A=8ăLocate 11,3,"LANCE."
A=7 Or A=8ăS‰2ŢS
A=9ăInt 25Ran#‰1ŢX
A=9ăLocate 11,3,X
A=9ăLocate 1,4,"REBELS WHO JOIN YOUR"
A=9ăLocate 1,5,"ARMY FREE OF CHARGE."
A=9ăX‰MŢM
A=9ăX‰HŢH
A>9ăLocate 11,3,B
A>9ăB‰GŢG
A>9ăLocate 15,3,"GOLD."
Goto O