Title

Title: Street Fighter Anime
Version: 1.7
Author: Quick Edge
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