________________________________________________________________________


           Title: Kung Fu
         Version: 1.1 No special move, one-fatality demo (Fully working,though)
          Author: Barry Haswell (7254@scarb-6-form.ac.uk)
            Size: ??? About 5K
           Model: 9850
     Description: Psycho nuttery Kung Fu thingy
                  
________________________________________________________________________


KEYS...
Cursor keys - Move, Jump/Duck
MENU - Block
tan - Punch
-> - Kick

PLAY - Block will defend from a punch, DUCK will defend a kick

When "FINISH HIM" appears, perform the death move.

SCREENSHOT


_____________________
 ********42 ********

   O/    (@~
  (#      *)
   "      "          
---------------------
_____________________


________________________________________________________________________

Command translation:

->              Single arrow (located on the keyboard)
=>              Double arrow (press: [shift] [prgm] [f1] [f1])
_               Display, -Disp- (press: [shift] [prgm] [f4])
<=              Less or equal (A <= B)
>=              Greater or equal (A >= B)
=\=             Not equal (A =\= B)
^               Raised to the power of
/               Division or fraction (explain which with a comment)

2rt()           Root (2rt(7) is the square root of 7)
4rt()           4th root
pi              pi (~3.14159265359, low case)
e()             e(1) (~2.7818281846, low case)
E               Exponent (5E4 gives 5*10^4) (located on the keyboard,
                [EXP])
________________________________________________________________________
_

Program :KUNG FU

ClrText

For 1->A To 20
Locate 1,4,"IN A BLEAK FUTURE..."
Next
Locate 1,4,"                    "
Goto V
Lbl W
For 1->A To 20
Locate 1,4,"THE ONLY ART..."
Next
Locate 1,4,"               "
Goto X
Lbl Y
For 1->A To 20
Locate 1,4,"IS MARTIAL..."
Next
Goto Z
Lbl 1
Locate 7,4,"KUNG FU"_
ClrText
Prog"KF1P"
Lbl V
Locate 4,2,"O"
Locate 3,3,"(#-"
Locate 3,4,"/ )"
Locate 9,2,"@"              <--- @ = Theta
Locate 8,3,"-*-"
Locate 8,4,"/("
For 1->A To 20
Locate 1,1," "
Next
ClrText
Goto W
Lbl X
Locate 4,3,"O"
Locate 3,4,"=#/"
Locate 3,5,"/"
For 1->A To 20
Locate 1,1," "
Next
ClrText
Goto Y
Lbl Z
ClrText
Locate 4,3,"~@"            <--- @ = Theta
Locate 4,4,"(#-"
Locate 4,5,"/ -"
For 1->A To 20
Locate 1,1," "
Next
ClrText
Goto 1

______________________
Program : KF1P

Lbl 0
100->T
8->R
8->Q
2->G
4->H
19->I
4->J
ClrText
Lbl 1
Locate 2,4,"O"
Locate 1,5,"(#@"         <--- @ = Square root symbol
Locate 1,6," @ "         <--- @ = Pi symbol
Locate 1,7,"---------------------"     <--- 21 '-'s
Locate 19,4,"@~"         <--- @ = Theta
Locate 18,5,"-*)"
Locate 18,6," @ "        <--- @ = Pi symbol
Goto X
Lbl 2
0->N
Int 20Ran#->N
Locate G,H,"  "     (2 spaces)
Locate G-1,H+1,"   "     (3 spaces)
Locate G-1,H+2,"   "
0->M
H<4=>H+1->H
Getkey->O
O=28=>H>3=>H-2->H
O=38=>G>2=>G-1->G
O=27=>G<20=>G<I-2=>G+1->G
O=37=>1->M
O=48=>2->M
O=26=>3->M
)=28=>4->M
M=3=>N=3=>G-1>1=>G-1->G
M=3=>N=3=>I+1<20=>I+1->I
M=3=>N>4=>N<10=>2->N
M=4=>N>4=>N<10=>1->N
M=0=>Goto A
M=1=>Goto B
M=2=>Goto C
M=3=>Goto D
M=4=>Goto E
Goto Z
Lbl A
Locate G,H,"O "
Locate G-1,H+1,"(#@"       <--- @ = Square root symbol
Locate G-1,H+2," @ "       <--- @ = Pi symbol
Goto Z
Lbl B
Locate G,H,"  "
Locate G-1,H+1,"'O/"
Locate G-1,H+2," @ "       <--- @ = Pi symbol
Goto Z
Lbl C
Locate G,H,"O)"
Locate G-1,H+1,"(# "
Locate G-1,H+2," @ "       <--- @ = Pi symbol
Goto Z
Lbl D
Locate G,H,"O/"
Locate G-1,H+1,"/# "
Locate G-1,H+2," @ "       <--- @ = Pi symbol
Goto Z
Lbl E
Locate G,H,"O "
Locate G-1,H+1,"=#/"
Locate G-1,H+2,"/  "
Goto Z
Lbl T
Locate 10,1,"   "     (3 spaces)
Locate 10,1,T
Q<1=>Goto Q
R<1=>Goto R
T-1=>T
If T>0
Then Goto 8
IfEnd
Locate 7,2,"TIME UP"_
Goto 0
Lbl Z
N=1=>Locate I-1,J,"   "     (3 spaces)
N=1=>Locate I-1,J+1,"(@'"     <--- @ = Theta
N=1=>Locate I-1,J+2," @ "     <--- @ = Pi symbol
N=2=>Locate I-1,J,"(@~"       <--- @ = Theta
N=2=>Locate I-1,J+1," *)"
N=2=>Locate I-1,J+2," @ "     <--- @ = Pi symbol
N=3=>Locate I-1,J,"L@~"       <--- @ = Theta
N=3=>Locate I-1,J+1," *)"
N=3=>Locate I-1,J+2," @ "     <--- @ = Pi symbol
N=4=>Locate I-1,J," @~"       <--- @ = Theta
N=4=>Locate I-1,J+1,"-*="
N=4=>Locate I-1,J+2,"  '"
N>10=>Locate I-1,J,"   "
N>10=>Locate I-1,J+1,"   "
N>10=>Locate I-1,J+2,"   "
N>10=>N<15=>I>2=>I>G+2=>I-1->I
N>15=>N<21=>I<20=>I+1->I
N>10=>Locate I-1,J," @~"       <--- @ = Theta
N>10=>Locate I-1,J+1,"-*)"
N>10=>Locate I-1,J+2," @ "     <--- @ = Pi symbol
Goto T
Lbl X
For 1->A To 20
Locate 7,1,"READY"
Next
Locate 1,1," ********100******** "
For 1->A To 10
Locate 7,3,"FIGHT!"
Next
Locate 7,3,"      "
Goto 2
Lbl 8
M=3=>N=\=2=>I-G<3=>R-1=>R
M=4=>N=\=1=>I-G<3=>R-1=>R
M=3=>N=\=2=>I-G<3=>Locate 20-R,1," "       (1 space)
M=4=>N=\=1=>I-G<3=>Locate 20-R,1," "
N=3=>M=\=2=>H>3=>I-G<3=>Q-1->Q
N=4=>M=\=1=>H>3=>I-G<3=>Q-1->Q
N=3=>M=\=2=>H>3=>I-G<3=>Locate Q+1,1," "     (1 space)
N=4=>M=\=1=>H>3=>I-G<3=>Locate Q+1,1," "     (1 space)
Goto 2
Lbl Q
Locate 4,2,"YOU LOSE"_
Prog"KUNG FU"
Lbl R
Locate 6,2,"FINISH HIM"
Locate I-1,J,"(@)"        <--- @ = Theta
Locate I-1,J+1," * "
Locate I-1,J+2," @ "      <--- @ = Pi symbol
50->T
0->S
While T>0 And S<5
Getkey->O
O=38=>S=0=>1->S
O=38=>S=1=>2->S
O=27=>S=2=>3->S
O=27=>S=3=>4->S
O=25=>S=4=>5->S
T-1=>T
WhileEnd
ClrText
Locate 1,2,"---------------------"      (21 '-'s)
Locate 1,7,"---------------------"
S<5=>Locate 5,5,"YOU WIN"
S=5=>Locate 3,4," O "
S=5=>Locate 3,5,"(#)"
S=5=>Locate 3,6," @ "      <--- @ = Pi symbol
S=5=>Locate 7,4," @~"      <--- @ = Theta
S=5=>Locate 7,5,"(*)"
S=5=>Locate 7,6," @ "      <--- @ = Pi symbol
S=5=>Locate 14,3,"r"
S=5=>Locate 14,4,"I"
S=5=>Locate 14,5,"I"
S=5=>Locate 14,6,"I"
S=5=>Locate 15,3,"-"
S=5=>Locate 16,3,"L"
S=5=>Locate 17,4,"L"
S=5=>Locate 18,5,"L"
S=5=>Locate 19,6,"L"
S=5=>For 1->A To 20
S=5=>Locate 1,1," "
S=5=>Next
S=5=>Locate 3,4,"   "     (3 spaces)
S=5=>Locate 3,5,"   "
S=5=>Locate 3,6,"   "
S=5=>For 1->A To 6
S=5=>Locate 4,3," O "
S=5=>Locate 4,4,"=#/"
S=5=>Locate 4,5,"/  "
S=5=>Locate 7,4,"   "
S=5=>Locate A+7,3+(A/2)," @~"       <--- @ = Theta
S=5=>For 1->C To 10
S=5=>Locate 1,1," "
S=5=>Next
S=5=>Locate A+7,3+(A/2),"   "
S=5=>Next
S=5=>Locate 16,6,"@~"      <--- @ = Theta
S=5=>For 1->A To 5
S=5=>Locate 7,1,"GOAL!!!"
S=5=>For 1->B To 10
S=5=>Locate 1,1," "
S=5=>Next
S=5=>Locate 7,1,"!!!LAOG"
S=5=>For 1->B To 10
S=5=>Locate 1,1," "
S=5=>For 1->B To 10
S=5=>Locate 1,1," "
S=5=>Next
S=5=>Next
S<5=>For 1->A To 20
S<5=>Locate 1,1," "
S<5=>Next
Prog "KF1P"

________________________________________________________________________
_

If you encounter any problems with this program contact:
7254@scarb-6-form.ac.uk

________________________________________________________________________
_