_________________________________________________________________________

           Title: Mortal Kombat 9850 
         Version: v0.9 beta
          Author: Peter Pizzo (N64KING15@AOL.COM)
            Size:
	     Model: 9850+
     Description: Yes it's true...MK is on the casio 9850.

Features Include:
* Special Moves!
* Finishing Moves
* Timer + Life Gauge
* And an opening sequence!!!
   As of now there are no enemies, it just shows you the basics of the game
with playable character with moves and 1 fatality.  Timer counts down but has
no effect on the game.
   Copy the beta code on your casio now to get the feel...Keep checking this 
site for the realease of the final version.
   The moves are as of now...
- Right arrow moves you right
- Left moves you left
- the tan key throws a fireball
- the --> key does a spin kick
- the cos key does an uppercut
...And the F2 key does a fatality!!!
Looks basically like this...
        -------------------
       | xxxxxx 100 xxxxxx |
       |                   |
       |                   |
       |   O               |
       |  -I-+             |
       |  I I              |
       |-------------------|
       ---------------------
_______________________________________________________________________

 Program :

6 ->J
ClrText
Locate 1,4,"--------------------"  (21 -'s
Locate 3,1,"O"
Locate 2,2,"-I-*"    (the * is the mult. Symbol
Locate 2,3,"I I"
For 1 ->A to 7
Locate 5,2,"+"
Locate 5,2,"*"    (the * is the mult. Symbol
Locate 5,2," "   (1 spc.
Next
Locate 2,2," "
Locate 4,4,"="
Locate 5,2," "
for 1 ->A to 12
Locate J-1,2," "
Locate J,2,"*"
Locate J,2,"+"
J=11 =>Locate 10,2,"M"
J=12 =>Locate 11,2,"O"
J=13 =>Locate 12,2,"R"
J=14 =>Locate 13,2,"T"
J=15 =>Locate 14,2,"A"
J=16 =>Locate 15,2,"L"
J+1 ->J
Next
Locate 17,2," "
Locate 18,5,"O"
Locate 16,6,"*-I-"
Locate 17,7,"I I"
15 ->J
For 1 ->A to 7
Locate 16,6,"+"
Locate 16,6,"*"
Locate 16,6," "
Next
Locate 20,6," "
Locate 17,6,"="
Locate 16,6," "
For 1 ->A to 12
Locate J+1,6," "
Locate J,6,"*"
Locate J,6,"+"
J=12 =>Locate 13,6,"T"
J=11 =>Locate 12,6,"A"
J=10 =>Locate 11,6,"B"
J=9 =>Locate 10,6,"M"
J=8 =>Locate 9,6,"O"
J=7 =>Locate 8,6,"K"
J=4 =>Locate 4,6," "
J-1 ->J
Next
For 1 ->A to 10
Locate 8,1," "
Locate 8,1," "
Next
ClrText
Lbl Y
Locate 7,3,"MK 9850"
Locate 5,5,"PRESS [EXE]"_    (Where _ is the triangle or disp command
ClrText
100 ->T
1 ->Z
7 ->B
5 ->M
4 ->N
7 ->O
7 ->F
For 1 ->A to 7
Locate 8,4,"READY!"
Locate 8,4,"READY!"
Locate 8,4,"      "   (6 spcs.
Next
Locate 2,1,"xxxxxxx"
Locate 14,1,"xxxxxxx"
Locate 10,1,T
Locate 1,7,"-------------------"   (21 -'s
While Z=1
Locate 10,1,"   "  (3 spcs
Locate 10,1,T
7 ->B
Locate M,4,"O"
Locate N,5,"-I-+"
Locate N,6,"I I"
Locate O,5,"*"
Locate O,5,"+"
Locate O,5,"*"
Locate O,5,"+"
Locate O,5,"*"
Locate O,5,"+"
If Getkey=26
Then O+2 ->F
Locate N,5," "
For 1 ->A to 12
Locate F,5,"*"
Locate F,5,"+"
Locate F,5,"*"
F+1 ->F
Locate F-1,5," "
F=21 =>20 ->F
Next
IfEnd
If Getkey=27
Then M=19 =>M-1 ->M
O=21 =>21 ->O
N=17 =>17 ->N
Locate N,4,"   "  (3 spcs
Locate N,5,"    " (4 spcs
Locate N,6,"    "
M<20 =>M+1 ->M
N<18 =>N+1 ->N
O<21 =>O+1 ->O
O<21 =>O+2 ->F
IfEnd
If Getkey=25
Then Locate N,4,"   " (3 spcs
Locate N,5,"   "  (3 spcs
Locate N,6,"    " (4 spcs
Locate M,4,"O"
Locate N,5,"-I-"
For 1 ->A to 7
Locate N,6,"-^-,"
Locate N,6,"-^-,"
Locate N,6,"    "
Locate N-1,6,",-^-"
Locate N-1,6,",-^-"
Locate N-1,6,"    "
Next
IfEnd
If Getkey=38
Then M=3 =>M+1 ->M
O=2 =>2 ->O
N=4 =>4 ->N
Locate N,4,"  "  (2 spcs
Locate N,5,"    "   (5 spcs
Locate N,6,"    "    (5 spcs
N=/=2 =>N-1 ->N     (=/= is not equal to
M=/=3 =>M-1 ->M
0=/=5 =>O-1 ->O  
IfEnd 
If Getkey=69
Then Locate N,5,"     "  (5 spcs
For 1 ->A to 5
Locate N,5,"-I-o"   (where o is the degree mark...optn F6, F5, F1
Next
Locate N,5,"     "  (5 spcs
For 1 ->A to 3
Locate N,5,"-I/"
Next
For 1 ->A to 3
Locate M+2,4,"/"
Next
For 1 ->A to 4
Locate M+3,5,"O"
Next
Locate M+3,5," "
For 1 ->A to 3
Locate M+3,4,"O"
Next
For 1 ->A to 4
Locate M+3,5,"I"
Locate M+3,6,"'"
Next
For 1 ->A to 10
Locate M+4,6,","
Locate M+4,6,"."
Locate M+4,6," "
Locate M+2,5,"."
Locate M+2,5,","
Locate M+2,5," "
Locate M+2,6,"."
Locate M+2,6,","
Locate M+2,6," "
Next
For 1 ->A to 11
Locate 7,2,"FATALITY!"
Locate 6,3,","
Locate 6,3,"."
Locate 6,3," "
Locate 9,3,","
Locate 9,3,"."
Locate 9,3," "
Locate 13,3,","
Locate 13,3,"."
Locate 13,3," "
Next
ClrText
Goto Y
IfEnd
T-1 ->T
If Getkey=36
Then Locate N+3,5,"  "  (2 spcs
For 1 ->A to 2
Locate M,4,"O o"    (where o is the degree mark
Locate N,5,"-I/"
Locate N,6,"-^I"
Next
Locate N,6,"    "   (4 spcs
Locate M,4,"   "    (3 spcs
Locate N,5,"    "
For 1 ->A to 2
Locate M,3,"O *"   (where * is the asterix located in symbol
Locate N,4,"-I/"
Locate N,5,"~^I"
Next
Locate M,3,"   "   (3 spcs
Locate N,4,"    "   (4 spcs
Locate N,5,"    "
IfEnd
WhileEnd

_________________________________________________________________________