%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3929
File Name:BLANKA1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
A\<>1\=>\Goto0
\If A=1
\Then \Locate 1,7,"-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-"
3\->B
6\->C
\Locate 1,2,"BLANKA"
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\Prog "CHOIX"
\IfEnd
\Lbl 0
\Locate 1,7,"\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)"
\If \Getkey=31
\Then \Locate 9,2,"PAUSED"
\For 1\->Y \To 100
\Next 
\While \Getkey\<>31
\Locate 9,2,"      "
\Locate 9,2,"PAUSED"
\WhileEnd
\Locate 9,2,"      "
\IfEnd
R\<=0\=>\Goto7
S\<=0\=>\Goto4
O\<>0\=>\Prog "BOULE"
N\<>0\=>\Prog "BOULE1"
N\<>0\=>\Goto5
\If H=1
\Then 0\->H
\If D=4\ Or F=4
\Then \Locate B,C,"  "
\Locate B,C-1,"  "
\IfEnd
0\->D~F
\Locate B,3," "
6\->C
\Locate B-2,C-1,"(= "
\Locate B-2,C-2,"O  "
\Locate B-2,C-1,"  "
\Locate B-2,C-2," "
\Locate B-2,C,"O>="
\For 1\->Y \To 99
\Next 
\Locate B-2,C,"   "
B<5\=>5\->B
B-2\->B
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\IfEnd
\If X=2
\Then \Locate B-1,C,"  "
\Locate B,C-1," "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
0\->X
\IfEnd
X=1\=>2\->X
W=1\=>U-1\->U
W=1\=>U=9\=>\Locate 10,1,"  "
W=1\=>\Locate 10,1,U
W=1\=>U=0\=>\Locate 5,1,"TIME OUT"
W=1\=>U=0\=>\Goto9
\If \r=1
\Then 0\->\r
\Locate B-1,C-1,"(="
\IfEnd
\If I=2\ And D\<>4\ And F\<>4
\Then \Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
6\->C
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
0\->I
\IfEnd
I=1\=>2\->I
\Getkey\->M
\If E=3\ And M\<>74\ And M\<>64\ And M\<>54
\Then \Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\IfEnd
\If D=4\ Or F=4
\Then \Prog "ROLL"
\Goto5
\IfEnd
D=1\=>M\<>38\=>0\->D
D=2\=>M\<>27\=>M\<>38\=>0\->D
D=3\=>M\<>73\ And M\<>63\ And M\<>53\ And M\<>74\ And M\<>64\ And M\<>54\=>0\->D
E=1\ Or E=2\ Or E=3\=>M\<>74\ And M\<>64\ And M\<>54\=>0\->E
F=1\=>M\<>37\=>0\->F
F=2\=>M\<>28\=>M\<>37\=>0\->F
F=3\=>M\<>73\ And M\<>63\ And M\<>53\=>0\->F
\If (M=25\ Or M=27)\ And B<J-1
\Then X\<>0\=>\Locate B-1,C," "
D=2\=>3\->D
1\->F
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
\Locate B+1,C,"\Pi"
M=27\=>\Locate B,C-1,"(="
M=25\=>\Locate B,C-1,"(+"
M=25\=>1\->\r
\Locate B+1,C-2,"O"
B+1\->B
\IfEnd
\If M=28\ And I=0
\Then F=2\=>3\->F
X\<>0\=>\Locate B-1,C," "
5\->C
1\->I
\Locate B,C+1," "
\Locate B-1,C,"  "
\Locate B,C-1," "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\IfEnd
M=38\=>D<2\=>\Isz D
\If M=38\ And B\<>3
\Then X\<>0\=>\Locate B-1,C," "
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
B-1\->B
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\IfEnd
\If M=38
\Then X\<>0\=>\Locate B-1,C," "
\Locate B-1,C-1,"(+"
1\->\r
\IfEnd
\If M=37
\Then X\<>0\=>\Locate B-1,C," "
F<2\=>2\->F
1\->X
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
\Locate B-1,C,"(="
\Locate B,C-1,"O"
\IfEnd
\If X\<>0\ And F\<>2
\Then \If M=74\ Or M=64\ Or M=54
\Then \Locate B+1,C-1,")"
\For 1\->Y \To 50
\Next 
\Locate B-1,C,"  "
\Locate B,C-1,"  "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O)"
\If (B+1=J\ Or B+2=J)\ And \theta\<>0
\Then S<2\=>2\->S
\Locate 22-S,1,"  "
S-2\->S
1\->P
\IfEnd
\For 1\->Y \To 38
\Next 
\Locate B+1,C-2," "
\Goto5
\IfEnd
\IfEnd
\If X\<>0\ And F\<>2
\Then \If M=73\ Or M=63\ Or M=53
\Then \Locate B,C,"I-"
\If (B+1=J\ Or B+2=J)\ And Q=0
\Then \Locate 22-S,1," "
S-1\->S
1\->P
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C,"= "
\IfEnd
\Goto5
\IfEnd
\If (M=73\ Or M=63\ Or M=53)\ And F=3
\Then 4\->F
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
\Prog "ROLL"
\Goto5
\IfEnd
\If (M=74\ Or M=64\ Or M=54\ Or M=73\ Or M=63\ Or M=53)\ And D=3
\Then {1}\->\List 1
4\->D
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
\Prog "ROLL"
\Goto5
\IfEnd
\If (M=74\ Or M=64\ Or M=54)\ And (E=2\ Or E=3)
\Then 3\->E
\Locate B,C,"#"
\Locate B-1,C-1,"##"
\Locate B,C-2,"#"
\If (B+1=J\ Or B+2=J)\ And \theta=0
\Then \Prog "ELECTR"
\IfEnd
\Goto5
\IfEnd
\If (M=74\ Or M=64\ Or M=54)\ And F=2
\Then 0\->F
\Locate B-1,C,"  "
\Locate B,C-1," "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\Locate B,C-1,"\aster"
\Locate B+1,C-2,")"
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2,"  "
B+1\<>J\=>B+1\->B
\Locate B,C-1,"\Pi"
\Locate B-1,C-2,"(\aster"
\Locate B,C-3,"O)"
\If B+1=J\ And \theta\<>1\ And Q=1
\Then 1\->P
S<3\=>3\->S
\Locate 22-S,1,"   "
S-3\->S
\IfEnd
\For 1\->Y \To 50
\Next 
\Locate B,C-1," "
\Locate B-1,C-2,"  "
\Locate B,C-3,"  "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\IfEnd
\If M=54\ And B+1=J\ And C=6\ And \theta=0\ And K=6
\Then \Locate B,C," "
\Locate B+1,C-1,"^"
1\->Y
\While Y>.5
\Locate B,C-2,"C"
\Locate 22-S,1," "
S-1\->S
1\->P
\For 1\->Y \To 50
\Next 
\Locate B,C-2,"O"
\For 1\->Y \To 99
\Next 
S=0\=>\Goto5
\Ran#\->Y
\WhileEnd
\Locate B+1,C-1," "
\Locate B,C,"\Pi"
\Goto5
\IfEnd
\If M=74
\Then E<2\=>\Isz E
\Locate B,C-1,"\aster\ab/c"
\If (B+1=J\ Or B+2=J)\ And \theta\<>1
\Then \Locate 22-S,1," "
S-1\->S
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C-1,"= "
\IfEnd
\If M=64
\Then E<2\=>\Isz E
\Locate B,C-1,"\aster"
\Locate B+1,C-2,"\slash"
\If (B+1=J\ Or B+2=J)\ And \theta=0
\Then 1\->P
\Locate 22-S,1," "
S-1\->S
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C-1,"="
\Locate B+1,C-2," "
\IfEnd
\If M=54
\Then E<2\=>\Isz E
\Locate B,C-1,"#"
\Locate B+1,C-2,")"
\If (B+1=J\ Or B+2=J)\ And \theta=0
\Then S=1\=>2\->S
\Locate 22-S,1,"  "
S-2\->S
1\->P
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C-1,"="
\Locate B+1,C-2," "
\IfEnd
\If M=73
\Then \Locate B,C,"I^"
\If (B+1=J\ Or B+2=J)\ And \theta\<>1\ And Q\<>1
\Then \Locate 22-S,1," "
S-1\->S
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C,"\Pi "
\IfEnd
\If M=63
\Then \Locate B,C,"I-"
\If (B+1=J\ Or B+2=J)\ And \theta\<>1\ And Q\<>1
\Then \Locate 22-S,1," "
S-1\->S
1\->P
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C,"\Pi "
\IfEnd
\If M=53
\Then \Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
\Locate B-1,C-1,"O=="
\Locate B-1,C-1,"O=="
\Locate B-1,C-1,"   "
\Locate B,C,"O"
\Locate B,C-1,"=)"
\Locate B,C-2,"V"
\Locate B,C," "
\Locate B,C-1,"  "
\Locate B,C-2," "
\Locate B-1,C-1,"==O"
\Locate B-1,C-1,"==O"
\Locate B-1,C-1,"   "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\If (B+1=J\ Or B+2=J)\ And \theta\<>1
\Then S=1\=>2\->S
\Locate 22-S,1,"  "
S-2\->S
1\->P
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C,"\Pi"
\Locate B+1,C-1," "
\IfEnd
\Lbl 5
\Prog "CHOIX"
\Goto0
\Lbl 9
R<S\=>\Goto7
S<R\=>\Goto4
S=R\=>\Locate 7,4," EGALITY "
\While \Getkey\<>31
\WhileEnd
\Return
\Lbl 7
\Locate 7,4," YOU LOSE "
\While \Getkey\<>31
\WhileEnd
\Return
\Lbl 4
\Locate 7,4," YOU WIN "
\While \Getkey\<>31
\WhileEnd
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:189
File Name:BOULE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
O=B\=>\r=1\=>0\->O
\If O=B\ And \r=0
\Then 1\->H
\Locate R-1,1,"  "
R-2\->R
0\->O
\Return
\IfEnd
O=1\=>0\->O
O=0\=>\Return
\Locate O,5," "
O-1\->O
\Locate O,5,"O"
O=B\=>\r=1\=>0\->O
\If O=B\ And \r=0
\Then 1\->H
0\->O
R=1\=>\Locate 1,1," "
R=1\=>0\->R
R>1\=>\Locate R-1,1,"  "
R>1\=>R-2\->R
\IfEnd
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:249
File Name:BOULE1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If N=O
\Then 0\->O
\Locate N,5," "
0\->N
\IfEnd
N=J\=>\theta=1\=>0\->N
\If N=J\ And \theta=0
\Then 1\->P
\Locate 22-S,1,"  "
S-2\->S
0\->N
\Return
\IfEnd
N=21\=>0\->N
N=21\=>\Locate 21,5," "
N=0\=>\Return
\Locate N,5," "
N+1\->N
\Locate N,5,"O"
N=J\=>\theta=1\=>0\->N
\If N=J\ And \theta=0
\Then 1\->P
0\->N
S=1\=>2\->S
\Locate 22-S,1,"  "
S-2\->S
\IfEnd
\If N=O\ And N\<>0
\Then 0\->O
\Locate N,5," "
0\->N
\IfEnd
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:314
File Name:CHOIX
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
V=1\=>\Locate 1,7,"[][][][][][][][][][]["
V=6\=>\Locate 1,7,"-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-\(-)-"
T=1\=>\Prog "RYU1"
T=2\=>\Prog "KEN1"
T=3\=>\Prog "ZANGIEF1"
T=4\=>\Prog "E.HONDA1"
T=5\=>\Prog "GUILE1"
T=6\=>\Prog "BLANKA1"
T=7\=>\Prog "CHUN LI1"
T=8\=>\Prog "DHALSIM1"
T=9\=>\Prog "CAMMY1"
T=10\=>\Prog "DEE JAY1"
T=11\=>\Prog "T.HAWK1"
T=12\=>\Prog "FEILONG1"
T=13\=>\Prog "BALROG1"
T=14\=>\Prog "VEGA1"
T=15\=>\Prog "SAGAT1"
T=16\=>\Prog "BISON1"
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:142
File Name:ELECTR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Locate J,K,"#"
\Locate J,K-1,"##"
\Locate J,K-2,"#"
\Locate J,K-1," ##"
\Locate J,K-2," #"
\Locate J,K," "
\Locate J,K-1,"   "
\Locate J,K-2,"  "
6\->K
1\->P
0\->Q
S<2\=>2\->S
\Locate 22-S,1,"  "
S-2\->S

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:628
File Name:ROLL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If H=1
\Then 0\->D
0\->F
\Locate B,C,"  "
\Locate B,C-1,"  "
\IfEnd
\If (B=J\ Or B+1=J\ Or B+2=J)\ And \theta=0
\Then 1\->P
0\->D
0\->F
S<3\=>3\->S
\Locate 22-S,1,"   "
S-3\->S
\Locate B,C,"  "
\Locate B,C-1,"  "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\Return
\IfEnd
\Locate B,C,"  "
\Locate B,C-1,"  "
B+1\->B
\If \List 1[1]=1
\Then \Locate B,C,"\Pi^"
\Locate B,C-1,"=O"
\IfEnd
\If \List 1[1]=2
\Then \Locate B,C,">O"
\Locate B,C-1,"=="
\IfEnd
\If \List 1[1]=3
\Then \Locate B,C,"O="
\Locate B,C-1,"*V"
\IfEnd
\If \List 1[1]=4
\Then 0\->\List 1[1]
\Locate B,C,"=<"
\Locate B,C-1,"O<"
\IfEnd
\List 1[1]+1\->\List 1[1]
\If B=J\ Or B+1=J\ Or B+2=J\ And \theta=1
\Then 0\->D
0\->F
\Locate B,C,"  "
\Locate B,C-1,"  "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\IfEnd
\If B=J\ Or B+1=J\ Or B+2=J\ And \theta=0
\Then 1\->P
S<3\=>3\->S
0\->D
0\->F
\Locate 22-S,1,"   "
S-3\->S
\Locate B,C,"  "
\Locate B,C-1,"  "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(="
\Locate B,C-2,"O"
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3443
File Name:RYU
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
A\<>1\=>\Goto0
\If A=1
\Then \Locate 1,7,"][][][][][][][][][][]"
3\->B
6\->C
\Locate 1,2,"RYU"
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(V"
\Locate B,C-2,"\theta"
\Prog "CHOIX"
\IfEnd
\Lbl 0
\Locate 1,7,"][][][][][][][][][][]"
\If \Getkey=31
\Then \Locate 9,2,"PAUSED"
\For 1\->Y \To 100
\Next 
\While \Getkey\<>31
\Locate 9,2,"      "
\Locate 9,2,"PAUSED"
\WhileEnd
\Locate 9,2,"      "
\IfEnd
R\<=0\=>\Goto7
S\<=0\=>\Goto4
O\<>0\=>\Prog "BOULE"
N\<>0\=>\Prog "BOULE1"
N\<>0\=>\Goto5
\If H=1
\Then 0\->D~F
0\->H
\Locate B,3," "
6\->C
\Locate B-2,C-1,"(V "
\Locate B-2,C-2,"\theta  "
\Locate B-2,C-1,"  "
\Locate B-2,C-2," "
\Locate B-2,C,"\theta>="
\For 1\->Y \To 99
\Next 
\Locate B-2,C,"   "
B<5\=>5\->B
B-2\->B
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(V"
\Locate B,C-2,"\theta"
\IfEnd
\If X=2
\Then \Locate B-1,C,"  "
\Locate B,C-1," "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(V"
\Locate B,C-2,"\theta"
0\->X
\IfEnd
X=1\=>2\->X
W=1\=>U-1\->U
W=1\=>U=9\=>\Locate 10,1,"  "
W=1\=>\Locate 10,1,U
W=1\=>U=0\=>\Locate 5,1,"TIME OUT"
W=1\=>U=0\=>\Goto9
\If \r=1
\Then 0\->\r
\Locate B-1,C-1,"(V"
\IfEnd
\If I=2
\Then \Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
6\->C
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(V"
\Locate B,C-2,"\theta"
0\->I
\IfEnd
I=1\=>2\->I
\Getkey\->M
D=1\=>M\<>38\=>0\->D
D=2\=>M\<>73\ And M\<>63\ And M\<>53\=>0\->D
E=1\=>M\<>27\=>0\->E
E=2\=>M\<>74\ And M\<>64\ And M\<>54\=>0\->E
F=1\=>M\<>37\=>0\->F
F=2\=>M\<>74\ And M\<>64\ And M\<>54\=>0\->F
\If (M=25\ Or M=27)\ And B<J-1
\Then X\<>0\=>\Locate B-1,C," "
E=1\=>2\->E
1\->F
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
\Locate B+1,C,"\Pi"
M=27\=>\Locate B,C-1,"(V"
M=25\=>\Locate B,C-1,"(+"
M=25\=>1\->\r
\Locate B+1,C-2,"\theta"
B+1\->B
\IfEnd
\If M=28\ And I=0
\Then X\<>0\=>\Locate B-1,C," "
5\->C
1\->I
\Locate B,C+1," "
\Locate B-1,C,"  "
\Locate B,C-1," "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(V"
\Locate B,C-2,"\theta"
\IfEnd
\If M=38\ And B\<>3
\Then X\<>0\=>\Locate B-1,C," "
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
B-1\->B
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(V"
\Locate B,C-2,"\theta"
D=1\=>2\->D
\IfEnd
\If M=38
\Then X\<>0\=>\Locate B-1,C," "
\Locate B-1,C-1,"(+"
1\->\r
\IfEnd
\If M=37
\Then X\<>0\=>\Locate B-1,C," "
1\->D
1\->E
1\->X
F=1\=>2\->F
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
\Locate B-1,C,"(Y"
\Locate B,C-1,"\theta"
\IfEnd
\If X\<>0\ And F\<>2
\Then \If M=74\ Or M=64\ Or M=54
\Then 0\->X
\Locate B-1,C,"  "
\Locate B,C-1," "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(V-"
\Locate B,C-2,"\theta"
\For 1\->Y \To 38
\Next 
\Locate B+1,C-1," "
\Locate B+1,C-2,")"
\If (B+1=J\ Or B+2=J)\ And \theta\<>0
\Then 1\->P
S<2\=>2\->S
\Locate 22-S,1,"  "
S-2\->S
\IfEnd
\For 1\->Y \To 40
\Next 
\Locate B+1,C-2," "
\IfEnd
\Goto5
\IfEnd
\If X\<>0\ And F\<>2
\Then \If M=73\ Or M=63\ Or M=53
\Then \Locate B,C,"I-"
\If (B+1=J\ Or B+2=J)\ And Q=0
\Then \Locate 22-S,1," "
S-1\->S
1\->P
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C,"Y "
\IfEnd
\Goto5
\IfEnd
\If (M=73\ Or M=63\ Or M=53)\ And D=2
\Then 0\->D
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2," "
B+1\->B
B=J\=>B+1\->J
B-1=J\=>B+2\->J
\For B\->Y \To B+1
\Locate Y-2,C-1," -I"
\Locate Y-2,C-2," (V"
\Locate Y-1,C-3," \theta"
\Locate Y-1,C-1," I-"
\If (Y+1=J\ Or Y+2=J)\ And \theta\<>1
\Then S<3\=>3\->S
1\->P
\Locate 22-S,1,"   "
S-3\->S
\Break
\IfEnd
B+1=J\=>B-1\->B
\Next 
Y\->B
\Locate B,C-1,"  "
\Locate B-1,C-2,"  "
\Locate B,C-3," "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(V"
\Locate B,C-2,"\theta"
\Goto5
\IfEnd
\If (M=74\ Or M=64\ Or M=54)\ And F=2
\Then 0\->F
\Locate B-1,C,"  "
\Locate B,C-1," "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(V"
\Locate B,C-2,"\theta"
\Locate B,C-1,"\aster"
\Locate B+1,C-2,")"
\Locate B,C," "
\Locate B-1,C-1,"  "
\Locate B,C-2,"  "
B+1\<>J\=>B+1\->B
\Locate B,C-1,"\Pi"
\Locate B-1,C-2,"(\aster"
\Locate B,C-3,"\theta)"
\If (B+1=J\ Or B+2=J)\ And \theta\<>1\ And Q=1
\Then 1\->P
S<3\=>3\->S
\Locate 22-S,1,"   "
S-3\->S
\IfEnd
\For 1\->Y \To 50
\Next 
\Locate B,C-1," "
\Locate B-1,C-2,"  "
\Locate B,C-3,"  "
\Locate B,C,"\Pi"
\Locate B-1,C-1,"(V"
\Locate B,C-2,"\theta"
\IfEnd
\If (M=74\ Or M=64\ Or M=54)\ And B+1\<>J\ And E=2
\Then 0\->E
\Locate B,C-1,".=O"
B+2\->N
\Prog "BOULE1"
\Locate B+1,C-1," "
\Goto5
\IfEnd
\If M=74
\Then \Locate B,C-1,"--"
\If (B+1=J\ Or B+2=J)\ And \theta\<>1
\Then \Locate 22-S,1," "
S-1\->S
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C-1,"V "
\IfEnd
\If M=64
\Then \Locate B,C-1,"\aster"
\Locate B+1,C-2,")"
\If (B+1=J\ Or B+2=J)
\Then 1\->P
\Locate 22-S,1," "
S-1\->S
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C-1,"V"
\Locate B+1,C-2," "
\IfEnd
\If M=54
\Then \Locate B,C-1,"#"
\Locate B+1,C-2,")"
\If (B+1=J\ Or B+2=J)\ And \theta=0
\Then S=1\=>2\->S
\Locate 22-S,1,"  "
S-2\->S
1\->P
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C-1,"V"
\Locate B+1,C-2," "
\IfEnd
\If M=73
\Then \Locate B,C,"I^"
\If (B+1=J\ Or B+2=J)\ And \theta\<>1\ And Q\<>1
\Then \Locate 22-S,1," "
S-1\->S
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C,"\Pi "
\IfEnd
\If M=63
\Then \Locate B,C,"I-"
\If (B+1=J\ Or B+2=J)\ And \theta\<>1\ And Q\<>1
\Then \Locate 21,S,1," "
S-1\->S
1\->P
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C,"\Pi "
\IfEnd
\If M=53
\Then \Locate B,C,"I"
\Locate B+1,C-1,"\slash"
\If (B+1=J\ Or B+2=J)\ And \theta\<>1
\Then S=1\=>2\->S
\Locate 22-S,1,"  "
S-2\->S
1\->P
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate B,C,"\Pi"
\Locate B+1,C-1," "
\IfEnd
\Lbl 5
\Prog "CHOIX"
\Goto0
\Lbl 9
R<S\=>\Goto7
S<R\=>\Goto4
S=R\=>\Locate 7,4," EGALITY "
\While \Getkey\<>31
\WhileEnd
\Return
\Lbl 7
\Locate 7,4," YOU LOSE "
\While \Getkey\<>31
\WhileEnd
\Return
\Lbl 4
\Locate 7,4," YOU WIN "
\While \Getkey\<>31
\WhileEnd
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2934
File Name:RYU1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
A\<>1\=>\Goto0
\If A=1
\Then 19\->J
6\->K
\Locate J,K,"\Pi"
\Locate J,K-1,"V)"
\Locate J,K-2,"\theta"
\Locate 19,2,"RYU"
\Locate 9,4,"READY"
\For 1\->Z \To 500
\Next 
\Locate 9,4,"FIGHT !"
\For 1\->Z \To 200
\Next 
\Locate 9,4,"       "
0\->A
\Return
\IfEnd
\Lbl 0
V=6\ And (D=4\ Or F=4)\=>\Prog "ROLL"
\If O\<>0
\Then N\<>0
\Prog "BOULE1"
\Prog "BOULE"
\Return
\IfEnd
\If N\<>0
\Then \Prog "BOULE1"
\IfEnd
\If P=1
\Then \Locate J,K-1," V)"
\Locate J,K-2," \theta"
\Locate J,K-1,"   "
\Locate J,K-2,"   "
\Locate J,K,"=<\theta"
\For 1\->Y \To 60
\Next 
\Locate J,K,"   "
J+2\->J
J>19\=>19\->J
0\->P
\IfEnd
\If \theta=1
\Then \Locate J,K-1,"V"
0\->\theta
\IfEnd
\If Q=2
\Then \Locate J,K," "
\Locate J,K-1,"  "
\Locate J,K-2," "
K+1\->K
\Locate J,K,"\Pi"
\Locate J,K-1,"V)"
\Locate J,K-2,"\theta"
0\->Q
\IfEnd
Q=1\=>2\->Q
\If J-4>B\ And N=0
\Then \If \Ran#>.1
\Then \Locate J,K," "
\Locate J,K-1,"  "
\Locate J,K-2," "
J-1\->J
\Locate J,K,"\Pi"
\Locate J,K-1,"V)"
\Locate J,K-2,"\theta"
\Else \If K=6
\Then \Locate J-2,K-1,"O=I)"
J-2\->O
\IfEnd
\IfEnd
\IfEnd
J-4>B\=>N=0\=>\Return
\If N\<>0
\Then \If \Ran#\<=.9
\Then \Locate J,K-1,"+"
1\->\theta
\Else \If J-1\<>B
\Then \Locate J,K," "
\Locate J,K-1,"  "
\Locate J,K-2," "
J-1\->J
\Locate J,K,"\Pi"
\Locate J,K-1,"V)"
\Locate J,K-2,"\theta"
\IfEnd
\IfEnd
\Return
\IfEnd
\If J-4\<=B
\Then \Ran#\->Z
V=6\ And E\>=3\=>\Ran#\<=0.5\=>J-1=B\ Or J-2=B\=>0.65\->Z
V=6\ And E\>=3\=>\Ran#\<=0.5\=>J-3=B\ Or J-4=B\=>0.3\->Z
\If Z\<=0.05\ And J\<=19
\Then \Locate J,K," "
\Locate J,K-1,"  "
\Locate J,K-2," "
J+1\->J
\Locate J,K,"\Pi"
\Locate J,K-1,"V)"
\Locate J,K-2,"\theta"
\Return
\IfEnd
\If Z\<=0.2
\Then \Locate J,K-1,"+)"
1\->\theta
\Return
\IfEnd
\If Z\<=.3\ And J-1\<>B
\Then \Locate J,K," "
\Locate J,K-1,"  "
\Locate J,K-2," "
J-1\->J
\Locate J,K,"\Pi"
\If \Ran#\>=.8
\Then \Locate J,K-1,"V)"
\Else \Locate J,K-1,"+)"
1\->\theta
\IfEnd
\Locate J,K-2,"\theta"
\Return
\IfEnd
\If Z\<=.5\ And Q=0
\Then \Locate J,K," "
\Locate J,K-1,"  "
\Locate J,K-2," "
1\->Q
K-1\->K
\Locate J,K,"\Pi"
\Locate J,K-1,"V)"
\Locate J,K-2,"\theta"
\Return
\IfEnd
\If Z\<=.55
\Then \Locate J-1,K,"^I"
\If (J-1=B\ Or J-2=B)\ And C\<=K\ And \r\<>1
\Then \If V=6\ And E=3
\Then \Prog "ELECTR"
\Return
\Else \Locate R,1," "
R-1\->R
\IfEnd
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate J-1,K," \Pi"
\Return
\IfEnd
\If Z\<=.6
\Then \Locate J-1,K,"-I"
\If (J-1=B\ Or J-2=B)\ And C\<=K\ And \r\<>1
\Then \If V=6\ And E=3
\Then \Prog "ELECTR"
\Return
\Else \Locate R,1," "
R-1\->R
1\->H
\IfEnd
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate J-1,K," \Pi"
\Return
\IfEnd
\If Z\<=.65
\Then \Locate J-1,K,"\slashI"
\If (J-1=B\ Or J-2=B)\ And (C=K\ Or C=K-1\ And \r\<>1)
\Then R=1\=>\Locate 1,1," "
R=1\=>0\->R
R>1\=>\Locate R-1,1,"  "
R>1\=>R-2\->R
1\->H
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate J-1,K," \Pi"
\Return
\IfEnd
\If Z\<=.7
\Then \Locate J-1,K-1,"--"
\If (J-1=B\ Or J-2=B)\ And \r\<>1
\Then \If V=6\ And E=3
\Then \Prog "ELECTR"
\Return
\Else \Locate R,1," "
R-1\->R
\IfEnd
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate J-1,K-1," V"
\Return
\IfEnd
\If Z\<=.75
\Then \Locate J-1,K-2,"("
\Locate J,K-1,"\aster"
\If (J-1=B\ Or J-2=B)\ And \r\<>1\ And X\<>1
\Then \If V=6\ And E=3
\Then \Prog "ELECTR"
\Return
\Else 1\->H
\Locate R,1," "
R-1\->R
\IfEnd
\IfEnd
\For 1\->Y \To 30
\Next 
\Locate J-1,K-2," "
\Locate J,K-1,"V"
\Return
\IfEnd
\If Z\<=.8
\Then \Locate J,K-1,"#"
\Locate J-1,K-2,"("
\If (J-1=B\ Or J-2=B)\ And \r\<>1\ And X\<>1
\Then \If V=6\ And E=3
\Then \Prog "ELECTR"
\Return
\Else 1\->H
R<2\=>2\->R
\Locate R-1,1,"  "
R-2\->R
\IfEnd
\IfEnd
\For 1\->Y \To 99
\Next 
\Locate J-1,K-2," "
\Locate J,K-1,"V"
\Return
\IfEnd
\If Z\<=1
\Then \If I=1\ And J-1\<>B\ And K\<>1
\Then \Locate J-1,K-2,"("
\Locate J,K-1,"\aster"
\Locate J,K," "
\Locate J,K-1,"   "
\Locate J-1,K-2,"  "
J-1\->J
K-1\->K
\Locate J,K,"\Pi"
\Locate J,K-1,"\aster)"
\Locate J-1,K-2,"(\theta"
\If (J-1=B\ Or J-2=B)\ And \r\<>1
\Then \If V=6\ And E=3
\Then \Prog "ELECTR"
\Return
\Else R<3\=>3\->R
\Locate R-2,1,"   "
R-3\->R
1\->H
\IfEnd
\IfEnd
\For 1\->Y \To 60
\Next 
\Locate J,K," "
\Locate J,K-1,"  "
\Locate J-1,K-2,"  "
K+1\->K
\Locate J,K,"\Pi"
\Locate J,K-1,"V)"
\Locate J,K-2,"\theta"
\Return
\IfEnd
0\->Q
\Locate J,K," "
\Locate J,K-1,"  "
\Locate J,K-2," "
5\->K
\For J\->Y \To J-1 \Step \(-)1
\Locate Y-1,K," I-"
\Locate Y-1,K-1,"(V"
\Locate Y-1,K-2," \theta"
\Locate Y-1,K-1,"V)  "
\Locate Y-1,K-2,"\theta "
\Locate Y-1,K,"-I "
\If (Y-1=B\ Or Y-2=B)\ And \r\<>1
\Then \If E=3\ And V=6
\Then \Locate Y-1,K-1,"  "
\Locate Y-1,K-2," "
\Locate Y-1,K,"  "
\Prog "ELECTR"
\Return
\Else 1\->H
R<3\=>3\->R
\Locate R-2,1,"   "
R-3\->R
\IfEnd
\Locate Y-2,K,"   "
\Locate Y-2,K-1,"   "
\Locate Y-2,K-2,"   "
Y\->J
6\->K
\Locate J,K,"\Pi"
\Locate J,K-1,"V)"
\Locate J,K-2,"\theta"
\Return
\IfEnd
\r=1\=>J+1\->J
\Next 
\Locate Y-2,K,"    "
\Locate Y-2,K-1,"    "
\Locate Y-2,K-2,"    "
Y\->J
6\->K
\Locate J,K,"\Pi"
\Locate J,K-1,"V)"
\Locate J,K-2,"\theta"
\IfEnd
\Return
\IfEnd
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1348
File Name:STREET F
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Orange "SUPER STREET FIGHTER2"
\Locate 2,3,"PRODUCED BY GAMETEK"
\Locate 5,5,"CAPCOM"
\Locate 1,7,"CREATED BY MAEL NAGOT"
\While \Getkey\<>31
\WhileEnd
\Lbl 7
0\->A~Z
\Cls
\ViewWindow 1,127,0,1,63,0
\CoordOff
\GridOff
\AxesOff
\LabelOff
\For 1\->M \To 2
M=1\=>\Text 2,20,"CHOOSE YOUR FIGHTER"
M=2\=>\Text 2,20,"CHOOSE YOUR ENNEMIE"
M=2\=>\Goto6
\Text 11,9,"RYU"
\Text 17,9,"KEN"
\Text 23,9,"ZANGIEF"
\Text 29,9,"E.HONDA"
\Text 35,9,"GUILE"
\Text 41,9,"BLANKA"
\Text 47,9,"CHUN-LI"
\Text 53,9,"DHALSIM"
\Text 11,65,"CAMMY"
\Text 17,65,"DEE JAY"
\Text 23,65,"T.HAWK"
\Text 29,65,"FEI LONG"
\Text 35,65,"BALROG"
\Text 41,65,"VEGA"
\Text 47,65,"SAGAT"
\Text 53,65,"M.BISON"
\Lbl 6
1\->V
1\->W
\Green \Text 11,1,"\->"
\While \Getkey\<>31
\If \Getkey=37\ And W=1\ And V<8
\Then \Green \Text 5+6V,1,"  "
V+1\->V
\Green \Text 5+6V,1,"\->"
\IfEnd
\If \Getkey=37\ And V=8\ And W=1
\Then \Green \Text 5+6V,1,"  "
1\->V
2\->W
\Green \Text 11,58,"\->"
\IfEnd
\If \Getkey=37\ And V<8\ And W=2
\Then \Green \Text 5+6V,58,"  "
V+1\->V
\Green \Text 5+6V,58,"\->"
\IfEnd
\If \Getkey=28\ And W=1\ And V>1
\Then \Green \Text 5+6V,1,"  "
V-1\->V
\Green \Text 5+6V,1,"\->"
\IfEnd
\If \Getkey=28\ And V=1\ And W=2
\Then \Green \Text 5+6V,58,"  "
8\->V
1\->W
\Green \Text 5+6V,1,"\->"
\IfEnd
\If \Getkey=28\ And W=2\ And V>1
\Then \Green \Text 5+6V,58,"  "
V-1\->V
\Green \Text 5+6V,58,"\->"
\IfEnd
\WhileEnd
W=2\=>V+8\->V
M=1\=>V\->N
M=2\=>V\->T
M=2\=>N\->V
\Next 
0\->M
0\->N
0\->X
\ClrText
\Lbl 0
"TIME [0\slash1]"?\->W
W=1\ Or W=0\=>\Goto8
\Goto0
\Lbl 8
W=1\=>"HOW LONG (10\->90)"?\->U
W\<>0\ And (U<10\ Or U>90\ Or \Int U\<>U)\=>\Goto8
9\->R
9\->S
1\->A
\Lbl 1
\ClrText
\Orange "\aster\aster\aster\aster\aster\aster\aster\aster\aster   \aster\aster\aster\aster\aster\aster\aster\aster"
\Locate 21,1,"\aster"
\Green " "
W=1\=>\Locate 10,1,U
V=1\=>\Prog "RYU"
V=2\=>\Prog "KEN"
V=3\=>\Prog "ZANGIEF"
V=4\=>\Prog "E.HONDA"
V=5\=>\Prog "GUILE"
V=6\=>\Prog "BLANKA1"
V=7\=>\Prog "CHUN LI"
V=8\=>\Prog "DHALSIM"
V=9\=>\Prog "CAMMY"
V=10\=>\Prog "DEE JAY"
V=11\=>\Prog "T.HAWK"
V=12\=>\Prog "FEI LONG"
V=13\=>\Prog "BALROG"
V=14\=>\Prog "VEGA"
V=15\=>\Prog "SAGAT"
V=16\=>\Prog "BISON"
\Isz T
\Goto7
%End