_________________________________________________________________________

           Title: Street Fighter Anime
         Version: 1.7
          Author: Peter Pizzo
            Size: 
	     Model: 9850+
     Description: 

	Here is the first real fighting game for the Casio 9850g.  The
computer fights back, you throw fireballs, they launch them back at 
you.  The graphics are OK, play is a little sluggish however improved
from the DBZ version, but it's a calculator!!! You don't need to be 
charged to use a fireball, but if you are charged...you will never
miss-the fireball homes in on them.  If you want to know why the code
is so long, play it...I like to have a lot of cool visuals in my 
games, so if you don't want to spend the time, cut some visuals out.

[EXE] --shoots fireball 
[ - ] --above EXE charges...when it reaches 3 you can shoot
Left arrow=left...right arrow=right Up=Jump Down=jump down

[ * is the asterix locate in symbols         ]
[ x is a multiplication sign                 ]
[ _ is the disp command                      ]
[ =/= is not equal to                        ]
[ o is the degree sign, OPTN,F6,F5,F1        ]

_________________________________________________________________________

 Program :

2->B
For 1->A to 7
Locate B-1,4," "
Locate B,4,"C"
B+1->B
Next
Locate 8,4,"C"
1->B
For 1->A to 3
Locate 9,B," "
Locate 9,B+1,"A"
B+1->B
Next
Locate 8,4,"CA"
20->B
For 1->A to 10
Locate B+1,4," "
Locate B,4,"P"
B-1->B
Next
Locate 8,4,"CAP"
6->B
For 1->A to 3
Locate 11,B+1," "
Locate 11,B,"C"
B-1->B
Next
Locate 8,4,"CAPC"
20->B
For 1->A to 9
Locate B+1,4," "
Locate B,4,"O"
B-1->B
Next
Locate 8,4,"CAPCO"
2->B
For 1->A to 3
Locate 13,B-1," "
Locate 13,B,"M"
B+1->B
Next
Locate 8,4,"CAPCOM"
For 1->A to 6
Locate 1,1,"      "               *** 5 spcs
Next
ClrText
For 1->A to 10
Locate 7,4,"PRESENTS"
Locate 7,4,"PRESENTS"
Locate 7,4,"--------"
Locate 7,4,"--------"
Next
ClrText
Locate 4,3,"-STREET FIGHTER"
Locate 7,4,"/->NIME"
Locate 6,7,"PRESS [EXE]"_          *** disp command
0->W
Lbl 0
0->P
0->J
1->R
ClrText
" "
"------------"
Locate 12,3,"/"
Locate 11,4,"/"
Locate 10,5,"/"
10->C
For 1->A to 12
Locate C,6,"-"
C+1->C
Next
ClrText
"--------------"
Locate 13,2,"/"
Locate 12,3,"/"
Locate 11,4,"/"
Locate 10,5,"/"
Locate 9,6,"/"
8->B
For 1->A to 13
Locate B,7,"-"
B+1->B
Next
ClrText
Lbl 1            
ClrText
Locate 1,7,"---------------------"    *** 21 -'s
Locate 1,4,"Y"
Locate 1,4,"DY"
Locate 1,4,"ADY"
Locate 1,4,"EADY"
Locate 1,4,"READY"
2->B
For 1->A to 16
Locate B-1,4," "                *** 1 spc
Locate B,4,"READY"
B+1->B
Next
Locate 17,4," READ"
Locate 17,4,"  REA"
Locate 17,4,"   RE"
Locate 17,4,"    R"
Locate 21,4," "
For 1->A to 6
Locate 8,4,"ROUND"
Locate 13,4,R
Next
3->L
6->M
2->G
20->I
0->E
6->H
1->Z
3->Y
3->U
0->O
Locate 8,4,"      "                   *** 6 spcs
Locate 1,4,"FI                GHT"    *** 16 spcs
Locate 1,4," FI              GHT "    
Locate 1,4,"  FI            GHT  "    
Locate 1,4,"   FI          GHT   "    
Locate 1,4,"    FI        GHT    "    
Locate 1,4,"     FI      GHT     "    
Locate 1,4,"      FI    GHT      "    
Locate 1,4,"       FI  GHT       "    
For 1->A to 4
Locate 1,4,"        FIGHT        "    
Next
Locate 8,4,"      "                *** 6 spcs
While Z=1
O+1->O
O=2=>Int 2Ran#+1->N
Int 3Ran#+1->V
Y=3=>Locate 5,1,"xxx"
Y=2=>Locate 5,1,"xx "
Y=1=>Locate 5,1,"x  "
U=3=>Locate 16,1,"xxx"
U=2=>Locate 16,1,"xx "
U=1=>Locate 16,1,"x  "
P=1=>Locate 1,2,"V"
J=1=>Locate 21,2,"V"
Locate G,H,"O"
Locate 20,M,"O"
If Getkey=28 And M=6
Then Locate G,H," "          *** 1 spc
4->H
IfEnd
If Getkey=28 And M=4
Then Locate G,H," "          *** 1 spc
4->H
IfEnd
If Getkey=38 And G>1
Then Locate G,H," "
G-1->G
IfEnd
If Getkey=27 And G<7
Then Locate G,H," "
G+1->G
IfEnd
If Getkey=37 And H=4
Then Locate G,H," "
6->H
IfEnd
If Getkey=31 And E=/=3
Then For 1->A to 5
Locate G+1,H,"ooooooooooooO"           *** o is the degree sign
Locate G+1,H,"------------@"           *** @ is the theta
Next
Locate G+1,H,"             "           *** 13 spcs
M=H=>U-1->U
U=0=>Goto W
IfEnd
If Getkey=32
Then 1->Z
E=/=3=>1+E->E
Locate E,1,"*"
E=3=>For 1->A to 3
E=3=>Locate 1,1,"---"
E=3=>Locate 1,1,"***"
E=3=>Next
E=3=>1->R
IfEnd
If Getkey=31 And E=3
Then 1->Z
If U=1
Then For 1->A to 2
Locate G+2,H-2,"o"            *** o is degree
Locate G+1,H-1,"o"
Locate G+2,H-2," "  
Locate G+1,H-1," "
Locate G+2,H+1,"o"
Locate G+1,H,"o" 
H=6=>Locate G+2,H+1,"-"
H=4=>Locate G+2,H+1," "
Locate G+1,H," "
Next         
ClrText
For 1->A to 6
Locate 1,2,"--------------------"      *** 21 -'s
Locate 1,3,"-O"                     *** the - is the negative sign
Locate 1,4,"(--*"                   *** the 2nd - is the neg sign    
Locate 1,5,",/^Z"
Locate 1,6,"--------------------"      *** 21 -'s
Next
ClrText
Locate G,H,"O"
Locate 20,M,"O"
Locate 1,7,"--------------------"      *** 21 -'s
IfEnd
If H=M
Then Locate 1,1,"   "                 ***3 spcs
For 1->A to 5
Locate G+1,H,"***********("
Locate G+1,H,"xxxxxxxxxxx("
Next
Locate G+1,H,"            "           *** 12 spcs
O->E
IfEnd
If H=/=M
Then 7-G->Q
G+1->B
For 1->A to Q
Locate B,H,"*"
B+1->B
Next
G+1->B
For 1->A to Q
Locate B,H,"x"
B+1->B
Next
G+1->B
For 1->A to Q
Locate B,H," "
B+1->B
Next
IfEnd
If H=6 And M=4
Then for 1->A to 3
Locate 11,4,"******("
Locate 11,4,"xxxxxx)"
Next
IfEnd
If M=6 And H=4
Then For 1->A to 3
Locate 9,6,"*********("
Locate 9,6,"xxxxxxxxx)"
Next
Locate 9,6,"          "
IfEnd
0->E
M=4=>Locate 11,4,"       "          *** 7 spcs
M=6=>Locate 9,6,"        "          *** 8 spcs
Locate 1,1,"   "
For 1->A to 5
Locate 19,M,"x*"
Locate 19,M,"*x"
Locate 19,M," O"
Next
U-1->U
U=0=>Goto W
IfEnd
If N=1 And O=4
Then Locate 20,M," "
0->O
4->M
IfEnd
If N=2 And O=4
Then Locate 20,M," "
0->O
6->M
IfEnd
If V=1
Then M=H=>Y-1->Y
For 1->A to 5
Locate 4,M,")###############O"
Locate 4,M,"(VVVVVVVVVVVVVVVO"
Next
Locate 4,M,"                "       *** 15 spcs
Y=0=>Goto W
Y=0=>U=0=>Goto D
IfEnd
WhileEnd
Lbl W
7->B
For 1->A to 7
Locate 1,B,"*********************"
Locate 1,B,"                     "
B-1->B
Next
U=0=>For 1->A to 15
U=0=>Locate 8,4,"        "          *** 8 spcs
U=0=>Locate 8,4,"YOU WIN!"
U=0=>Locate 8,4,"YOU WIN!"
U=0=>Next
U=0=>P+1->P
Y=0=>For 1->A to 15
Y=0=>Locate 7,4,"YOU LOSE!"
Y=0=>Locate 7,4,"YOU LOSE!"
Y=0=>Locate 7,4,"         "
Y=0=>Next
Y=0=>J+1->J
J=2=>Goto L
P=2=>Goto V
R+1->R
Goto 1
Lbl L
ClrText
" "
"     -CONTINUE-"
Locate 8,5,"  O"
Locate 8,6," -I-"
Locate 8,7," I^I"
While Getkey=/=31               *** press exe to get by this:
Locate 8,6,"?-I-?"
Locate 8,5,"? O ?"
Locate 8,6,"--I--"
Locate 8,5,"- O -"
WhileEnd
Goto 0
Lbl V
ClrText
W+1->W
"  "
" "
"     -MATCH WON!-"
Locate 1,1,"WINS"
Locate 6,1,"W
Locate 8,5,"  O"
Locate 8,6," -I-"
Locate 8,7," I^I"
While Getkey=/=31               *** press exe to get by this:
Locate 8,6,"*-I-x"
Locate 8,5,"x O *"
Locate 8,6,"x-I-*"
Locate 8,5,"* O x"
WhileEnd
Goto 0
Lbl D
For 1->A to 15
Locate 6,4,"DOUBLE KO!"
Locate 6,4,"DOUBLE KO!"
Locate 6,4,"          "      *** 10 spcs
Next
Goto 1
_________________________________________________________________________