If Y=1 Or R=1 Or U=1 Or T=1 Or K=1
Then Goto Í
IfEnd
Lbl Í
ClrText
Locate 1,1,"©©©© A T T A C K ©©©©"
Y=0ăLocate 1,2,"[F1]  YELLOW KNIGHT"
R=0 And Sâ10ăLocate 1,3,"[F2]  RED KNIGHT"
U=0 And Sâ30ăLocate 1,4,"[F3]  BLUE KNIGHT"
T=0 And Sâ50ăLocate 1,5,"[F4]  GREEN KNIGHT"
K=0 And Sâ100ăLocate 1,6,"[F5]  BLACK KNIGHT"
Locate 1,7,"[F6]  EXIT"
Goto Î
Lbl Î
Getkey=29ăGoto A
Getkey=79ăGoto B
Getkey=69ăGoto C
Getkey=59ăGoto D
Getkey=49ăGoto E
Getkey=39ăGoto F
Goto Î
Lbl A
1ȚA
Return
Lbl B
Yâ1ăGoto Î
1ȚE
100ȚA
Goto G
Lbl C
S<10 Or R=1ăGoto Î
2ȚE
250ȚA
Goto G
Lbl D
S<30 Or U=1ăGoto Î
3ȚE
500ȚA
Goto G
Lbl E
S<50 Or T=1ăGoto Î
4ȚE
750ȚA
Goto G
Lbl F
S<100 Or K=1ăGoto Î
5ȚE
2000ȚA
Goto G
Lbl G
ClrText
Locate 1,4,"!"
Locate 1,4,"K!"
Locate 1,4,"CK!"
Locate 1,4,"ACK!"
Locate 1,4,"TACK!"
Locate 1,4,"TTACK!"
Locate 1,4,"ATTACK!"
Locate 1,4," ATTACK!"
Locate 1,4,"  ATTACK!"
Locate 1,4,"   ATTACK!"
Locate 1,4,"    ATTACK!"
Locate 1,4,"     ATTACK!"
Locate 1,4,"      ATTACK!"
Locate 1,4,"       ATTACK!"
Locate 7,1,"©©©©©©©©©"
Locate 7,7,"©©©©©©©©©"
Locate 7,1,"         "
Locate 7,7,"         "
Locate 7,2,"©©©©©©©©©"
Locate 7,6,"©©©©©©©©©"
Locate 7,2,"         "
Locate 7,6,"         "
Locate 7,3,"©©©©©©©©©"
Locate 7,5,"©©©©©©©©©"
Goto Z
Lbl Z
Getkey=31ăGoto Y
Goto Z
Lbl Y
ClrText
Int (1.5©S)Ran#‰1ȚB
Locate 1,1,"©©©© A T T A C K ©©©©"
Locate 1,4,":"
Locate 1,4,"S:"
Locate 1,4,"RS:"
Locate 1,4,"ERS:"
Locate 1,4,"IESR:"
Locate 1,4,"DIERS:"
Locate 1,4,"LDIERS:"
Locate 1,4,"OLDIERS:"
Locate 1,4,"SOLDIERS:"
Locate 1,5,":"
Locate 1,5,"K:"
Locate 1,5,"CK:"
Locate 1,5,"ACK:"
Locate 1,5,"TACK:"
Locate 1,5,"TTACK:"
Locate 1,5,"ATTACK:"
Locate 1,6,":"
Locate 1,6,"D:"
Locate 1,6,"LD:"
Locate 1,6,"OLD:"
Locate 1,6,"GOLD:"
Locate 1,7,":"
Locate 1,7,"S:"
Locate 1,7,"ES:"
Locate 1,7,"IES:"
Locate 1,7,"RIES:"
Locate 1,7,"RRIES:"
Locate 1,7,"ARRIES:"
Locate 1,7,"CARRIES:"
E=1ăLocate 9,3,"YELLOW"
E=2ăLocate 12,3,"RED"
E=3ăLocate 11,3,"BLUE"
E=4ăLocate 10,3,"GREEN"
E=5ăLocate 10,3,"BLACK"
Locate 16,3,"KNIGHT"
Locate 11,4,A
Locate 11,5,B
Locate 11,6,"100"
E=1ăLocate 11,7,"SWORD"
E=2ăLocate 11,7,"LANCE"
E=3ăLocate 11,7,"MACE"
E=4ăLocate 11,7,"AXE"
E=5ăLocate 11,7,"CATAPULT"
Goto T
Lbl T
Getkey=31ăGoto H
Goto T
Lbl H
Hà0ăGoto P
ClrText
Locate 1,1,"©©©© A T T A C K ©©©©"
Locate 1,3,"YOU             ENEMY"
Locate 1,4,H
Locate 18,4,A
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
A™XȚA
A<0ă0ȚA
Locate 18,4,"      "
Locate 18,4,A
Goto K
Lbl K
Getkey=31ăGoto L
Goto K
Lbl L
Aà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
100ȚC
Locate 1,1,"©©©©©© VICTORY ©©©©©©"
Locate 1,3,"ON THE ENEMY YOU FIND"
Locate 1,4,C
Locate 5,4,"GOLD AND A"
E=1ăLocate 16,4,"SWORD."
E=1ăS‰1ȚS
E=2ăLocate 16,4,"LANCE."
E=2ăS‰2ȚS
E=3ăLocate 16,4,"MACE."
E=3ăS‰3ȚS
E=4ăLocate 15,4,"N AXE."
E=4ăS‰4ȚS
E=5ăLocate 1,5,"CATAPULT."
E=5ăS‰25ȚS
E=1ă1ȚY
E=2ă1ȚR
E=3ă1ȚU
E=4ă1ȚT
E=5ă1ȚK
C‰GȚG
Goto X
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
Locate 1,6,"                     "
Locate 1,7,"                     "
Locate 2,7,"UNABLE TO RETREAT!"
Goto L
Lbl X
Getkey=31ăGoto S
Goto X
Lbl S
If Yá0 And Rá0 And Uá0 And Tá0 And Ká0
Then Goto W
IfEnd
1ȚA
Return
Lbl W
ClrText
Locate 1,1,"  CAMELOT IS SAVED!"
Locate 2,2,"YOU HAVE ONCE AGAIN"
Locate 1,3,"PROVED YOUR WORTH AS"
Locate 1,4,"  KING.  THE BLACK"
Locate 1,5,"KNIGHT WILL NO LONGER"
Locate 1,6,"TORMENT YOUR PEOPLE."
Locate 1,7,"     OR WILL HE?"
Goto V
Lbl V
Getkey=31ăGoto U
Goto V
Lbl U
ClrText
Locate 1,2,"THIS GAME WAS CREATED"
Locate 1,3,"BY:"
Locate 11,5,"          S"
Locate 11,5,"         SE"
Locate 11,5,"        SEA"
Locate 11,5,"       SEAN"
Locate 11,5,"      SEAN "
Locate 11,5,"     SEAN W"
Locate 11,5,"    SEAN WA"
Locate 11,5,"   SEAN WAR"
Locate 11,5,"  SEAN WARR"
Locate 11,5," SEAN WARRE"
Locate 11,5,"SEAN WARREN"
Goto 0
Lbl 0
Getkey=31ăGoto 1
Goto 0
Lbl 1
ClrText
Locate 1,2,"     ©©©©©©©©©©©"
Locate 1,3,"     ©         ©"
Locate 1,4,"     © THE END ©"
Locate 1,5,"     ©         ©"
Locate 1,6,"     ©©©©©©©©©©©"
Goto 2
Lbl 2
Getkey=31ăGoto 3
Goto 2
Lbl 3
ClrText
Stop