%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:829
File Name:SOCCER
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ClrText
\ViewWindow 1,127,0,1,63,0
\Vertical 1
\Vertical 127
\Horizontal 1
\Horizontal 63
\Horizontal 55
\Text 3,20,"SOCCER AUSTRALIA - 2001"
\Text 20,30,"BY CLINTON SCOTT"
\Text 30,27,"CREATED:MARCH 2001"
\Text 40,35,"CFX 9850GB PLUS"
\Horizontal 9
\Text 57,43,"PRESS EXE"\Disp\Prog "NEW"
\Cls
\ViewWindow 1,127,0,1,63,0
\Vertical 1
\Vertical 127
\Horizontal 1
\Horizontal 63
\Horizontal 10
\Horizontal 55
\Text 3,15,"SOCCER AUSTRALIA ~  2001"
\F-Line 15,52,15,12
\F-Line 112,12,112,52
\F-Line 15,52,112,52
\F-Line 112,12,15,12
\F-Line 64,52,64,12
\F-Line 10,39,10,24
\F-Line 10,39,15,39
\F-Line 10,24,15,24
\F-Line 117,39,117,24
\F-Line 112,39,117,39
\F-Line 112,24,117,24
\F-Line 15,19,29,19
\F-Line 15,44,29,44
\F-Line 29,19,29,44
\F-Line 98,19,112,19
\F-Line 98,19,98,44
\F-Line 98,44,112,44
\Circle 64,31,4
\F-Line 26,10,26,1
\F-Line 46,10,46,1
\F-Line 65,10,65,1
\F-Line 81,10,81,1
\F-Line 105,10,105,1
\Text 30,17,"X"
\Text 20,31,"X"
\Text 41,31,"X"
\Text 14,46,"X"
\Text 45,46,"X"
\Text 31,63,"X"
\Text 14,80,"X"
\Text 45,80,"X"
\Text 41,94,"X"
\Text 20,94,"X"
\Text 30,107,"X"
\Text 57,9,"<P1"
\Text 57,50,"   "
\Text 57,72," "
\Text 57,86,"P2>"
\Mat A[1,5]=2\=>\Text 57,83,"CAL>"
\StoPict 1
\Lbl \r
\Prog "PLAY"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:987
File Name:NEW
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\ClrGraph
\ClrList
\Deg
\CoordOff
\GridOff
\AxesOff
\LabelOff
\Norm
\P/L-Blue
\ViewWindow 1,127,0,1,63,0
0\->A~Z
\Vertical 1
\Horizontal 1
\Vertical 127
\Horizontal 63
\Horizontal 55
\Text 3,40,"NEW GAME"
{1,7}\->\Dim \Mat A
\Text 15,30,"CHOOSE GAME TYPE"
\Text 25,10,"F1\->P1 VS P2 \slash F6\->P1 VS CAL"
0\->A
\Lbl A
\Getkey\->A
A=79\=>1\->\Mat A[1,5]
A=79\=>\GotoB
A=29\=>2\->\Mat A[1,5]
A=29\=>\GotoB
\GotoA
\Lbl B
\Text 15,25,"CHOOSE GAME LENGTH   "
\Text 25,10,"     F1\->2 F3\->5 F6\->10      "
0\->A
\Lbl D
\Getkey\->A
A=79\=>2\->\Mat A[1,6]
A=59\=>5\->\Mat A[1,6]
A=29\=>10\->\Mat A[1,6]
A>0\=>\GotoE
\GotoD
\Lbl E
\Text 15,25,"CHOOSE GAME SPEED (7)"
\Text 25,10,"      F1\->5 F3\->7 F6\->10   "
0\->A
\Lbl F
\Getkey\->A
A=79\=>5\->\theta
A=59\=>7\->\theta
A=29\=>10\->\theta
A>1\=>\GotoG
\GotoF
\Lbl G
\Text 15,25,"CHOOSE PAUSE TIME     "
\Text 25,10,"    F1\->0.5 F3\->1 F6\->2 "
0\->A
\Lbl W
\Getkey\->A
A=79\=>10\->\Mat A[1,7]
A=59\=>60\->\Mat A[1,7]
A=29\=>120\->\Mat A[1,7]
A>0\=>\GotoV
\GotoW
\Lbl V
\Text 15,25,"   AUTOMATIC TOSS     "
\Text 25,10,"                      "
0\->A
10\->B
\For 1\->A \To 10
B-A\->C
\Text 25,60,C
\Next 
\Int 2\Ran#+1\->A
A=1\=>1\->\Mat A[1,4]
A=2\=>2\->\Mat A[1,4]
\Text 15,30,"                    "
\Text 25,58,"   "
\Mat A[1,4]=1\=>\Text 15,35,"PLAYER 1 WINS"
\Mat A[1,4]=1\=>\Goto9
\Mat A[1,5]=2\=>\Text 15,28,"CALCULATOR WINS"
\Mat A[1,5]=1\=>\Text 15,35,"PLAYER 2 WINS"
\Lbl 9
\Text 25,18,"YOU HAVE FIRST KICK OFF"\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:686
File Name:PLAY
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\StoPict 1
\Text 57,33,"  "
\Text 57,113,"  "
\Text 31,63,"\theta"
\Mat A[1,4]=1\=>\Text 57,50,"PL1"
\Mat A[1,4]=1\=>\GotoQ
\Mat A[1,5]=1\=>\Text 57,50,"PL2"
\Mat A[1,5]=2\=>\Text 57,50,"CAL"
\Int 2\Ran#+1\->B
B=1\=>\GotoC
B=2\=>\GotoD
\Goto1
\Lbl Q
0\->A
\Lbl 1
\Getkey\->A
A=74\=>\GotoA
A=72\=>\GotoB
A=54\=>\GotoC
A=52\=>\GotoD
\Goto1
\Lbl A
2\->\Mat A[1,1]
\F-Line 64,32,47,44
\Goto2
\Lbl B
4\->\Mat A[1,1]
\F-Line 64,32,47,21
\Goto2
\Lbl C
3\->\Mat A[1,1]
\F-Line 64,32,81,44
\Goto2
\Lbl D
5\->\Mat A[1,1]
\F-Line 64,32,81,21
\Goto2
\Lbl 2
\Mat A[1,1]=10\=>\Goto3
\Mat A[1,1]=11\=>\Goto3
\Mat A[1,7]\->B
\For 1\->A \To B
\Next 
\Prog "POSESS"
\Cls
\RclPict 1
\Mat A[1,4]=1\=>\Text 57,50,"PL1"
\Mat A[1,4]=1\=>\Goto\r
\Mat A[1,5]=1\=>\Text 57,50,"PL2"
\Mat A[1,5]=2\=>\Text 57,50,"CAL"
\Lbl \r
\Prog "PROGSEL"
\Goto2
\Lbl 3
\Mat A[1,1]=10\=>\Prog "GOAL1"
\Mat A[1,1]=10\=>\Goto4
\Mat A[1,1]=11\=>\Prog "GOAL2"
\Lbl 4
\Cls
\RclPict 1
\Text 57,33,\Mat A[1,2]
\Text 57,113,\Mat A[1,3]
\StoPict 1
\Mat A[1,2]\->A
\Mat A[1,3]\->B
A=\Mat A[1,6]\=>\GotoT
B=\Mat A[1,6]\=>\GotoT
\Goto2
\Lbl T
\Prog "RESULT"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:246
File Name:POSESS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Mat A[1,1]\->A
A=1\=>\Goto1
A=2\=>\Goto2
A=3\=>\Goto3
A=4\=>\Goto2
A=5\=>\Goto3
A<8\=>\Goto4
A<10\=>\Goto5
"ERROR"\Disp\Lbl 1
\Int 10\Ran#+1\->A
A\<=10\=>2\->B
A<6\=>1\->B
\Goto9
\Lbl 2
\Int 10\Ran#+1\->A
A\<=10\=>2\->B
A<5\=>1\->B
\Goto9
\Lbl 3
\Int 10\Ran#+1\->A
A\<=10\=>2\->B
A<7\=>1\->B
\Goto9
\Lbl 4
\Int 10\Ran#+1\->A
A\<=10\=>2\->B
A<3\=>1\->B
\Goto9
\Lbl 5
\Int 10\Ran#+1\->A
A\<=10\=>2\->B
A<8\=>1\->B
\Goto9
\Lbl 9
B\->\Mat A[1,4]

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:234
File Name:PROGSEL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->\r
\Mat A[1,1]\->A
A=1\=>\Prog "CENTER"
\r=1\=>\Goto1
A=2\=>\Prog "MID2"
\r=1\=>\Goto1
A=3\=>\Prog "MID3"
\r=1\=>\Goto1
A=4\=>\Prog "MID4"
\r=1\=>\Goto1
A=5\=>\Prog "MID5"
\r=1\=>\Goto1
A=6\=>\Prog "STRIKE6"
\r=1\=>\Goto1
A=7\=>\Prog "STRIKE7"
\r=1\=>\Goto1
A=8\=>\Prog "STRIKE8"
\r=1\=>\Goto1
A=9\=>\Prog "STRIKE9"
\r=1\=>\Goto1
A=10\=>\Prog "GOAL1"
A=11\=>\Prog "GOAL2"
\Lbl 1

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:322
File Name:CENTER
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 31,63,"\theta"
\Mat A[1,4]=1\=>\Goto\r
\Mat A[1,5]=1\=>\Goto\r
\Int 2\Ran#+1\->B
B=1\=>\Goto3
B=2\=>\Goto4
\Lbl \r
0\->A
\theta\->C
\Lbl A
\Getkey\->A
C-1\->C
A=74\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\Text 57,72,C
C=0\=>\GotoB
A=74\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\GotoA
\Lbl B
1\->\Mat A[1,1]
\Goto9
\Lbl 1
\F-Line 64,32,47,44
2\->\Mat A[1,1]
\Goto9
\Lbl 2
\F-Line 64,32,47,21
4\->\Mat A[1,1]
\Goto9
\Lbl 3
\F-Line 64,32,81,44
3\->\Mat A[1,1]
\Goto9
\Lbl 4
\F-Line 64,32,81,21
5\->\Mat A[1,1]
\Goto9
\Lbl 9
1\->\r

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:322
File Name:MID2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 14,46,"\theta"
\Mat A[1,4]=1\=>\Goto\r
\Mat A[1,5]=1\=>\Goto\r
\Int 2\Ran#+1\->B
B=1\=>\Goto2
B=2\=>\Goto3
\Lbl \r
0\->A
\theta\->C
\Lbl A
\Getkey\->A
C-1\->C
A=74\=>\Goto1
A=63\=>\Goto2
A=54\=>\Goto3
A=72\=>\Goto4
\Text 57,72,C
C=0\=>\GotoB
A=74\=>\Goto1
A=63\=>\Goto2
A=54\=>\Goto3
A=72\=>\Goto4
\GotoA
\Lbl B
2\->\Mat A[1,1]
\Goto9
\Lbl 1
\F-Line 47,44,33,39
6\->\Mat A[1,1]
\Goto9
\Lbl 2
\F-Line 47,44,64,32
1\->\Mat A[1,1]
\Goto9
\Lbl 3
\F-Line 47,44,81,44
3\->\Mat A[1,1]
\Goto9
\Lbl 4
\F-Line 47,44,33,24
7\->\Mat A[1,1]
\Goto9
\Lbl 9
1\->\r

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:322
File Name:MID3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 14,80,"\theta"
\Mat A[1,4]=1\=>\Goto\r
\Mat A[1,5]=1\=>\Goto\r
\Int 2\Ran#+1\->B
B=1\=>\Goto3
B=2\=>\Goto4
\Lbl \r
0\->A
\theta\->C
\Lbl A
\Getkey\->A
C-1\->C
A=74\=>\Goto1
A=63\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\Text 57,72,C
C=0\=>\GotoB
A=74\=>\Goto1
A=63\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\GotoA
\Lbl B
3\->\Mat A[1,1]
\Goto9
\Lbl 1
\F-Line 81,44,47,44
2\->\Mat A[1,1]
\Goto9
\Lbl 2
\F-Line 64,32,81,44
1\->\Mat A[1,1]
\Goto9
\Lbl 3
\F-Line 81,44,95,39
8\->\Mat A[1,1]
\Goto9
\Lbl 4
\F-Line 81,44,95,24
9\->\Mat A[1,1]
\Goto9
\Lbl 9
1\->\r

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:322
File Name:MID4
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 45,46,"\theta"
\Mat A[1,4]=1\=>\Goto\r
\Mat A[1,5]=1\=>\Goto\r
\Int 2\Ran#+1\->B
B=1\=>\Goto3
B=2\=>\Goto4
\Lbl \r
0\->A
\theta\->C
\Lbl A
\Getkey\->A
C-1\->C
A=74\=>\Goto1
A=72\=>\Goto2
A=63\=>\Goto3
A=52\=>\Goto4
\Text 57,72,C
C=0\=>\GotoB
A=74\=>\Goto1
A=72\=>\Goto2
A=63\=>\Goto3
A=52\=>\Goto4
\GotoA
\Lbl B
4\->\Mat A[1,1]
\Goto9
\Lbl 1
\F-Line 33,39,47,21
6\->\Mat A[1,1]
\Goto9
\Lbl 2
\F-Line 33,24,47,21
7\->\Mat A[1,1]
\Goto9
\Lbl 3
\F-Line 64,32,47,21
1\->\Mat A[1,1]
\Goto9
\Lbl 4
\F-Line 47,21,81,21
5\->\Mat A[1,1]
\Goto9
\Lbl 9
1\->\r

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:322
File Name:MID5
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 45,80,"\theta"
\Mat A[1,4]=1\=>\Goto\r
\Mat A[1,5]=1\=>\Goto\r
\Int 2\Ran#+1\->B
B=1\=>\Goto3
B=2\=>\Goto4
\Lbl \r
0\->A
\theta\->C
\Lbl A
\Getkey\->A
C-1\->C
A=63\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\Text 57,72,C
C=0\=>\GotoB
A=63\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\GotoA
\Lbl B
5\->\Mat A[1,1]
\Goto9
\Lbl 1
\F-Line 64,32,81,21
1\->\Mat A[1,1]
\Goto9
\Lbl 2
\F-Line 47,21,81,21
4\->\Mat A[1,1]
\Goto9
\Lbl 3
\F-Line 81,21,95,39
8\->\Mat A[1,1]
\Goto9
\Lbl 4
\F-Line 81,21,95,24
9\->\Mat A[1,1]
\Goto9
\Lbl 9
1\->\r

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:330
File Name:STRIKE6
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 20,31,"\theta"
\Mat A[1,4]=1\=>\Goto\r
\Mat A[1,5]=1\=>\Goto\r
\Int 3\Ran#+1\->B
B=1\=>\Goto2
B=2\=>\Goto3
B=3\=>\Goto4
\Lbl \r
0\->A
\theta\->C
\Lbl A
\Getkey\->A
C-1\->C
A=74\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\Text 57,72,C
C=0\=>\GotoB
A=74\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\GotoA
\Lbl B
6\->\Mat A[1,1]
\Goto9
\Lbl 1
\F-Line 33,39,19,32
10\->\Mat A[1,1]
\Goto9
\Lbl 2
\F-Line 33,39,33,24
7\->\Mat A[1,1]
\Goto9
\Lbl 3
\F-Line 33,39,47,44
2\->\Mat A[1,1]
\Goto9
\Lbl 4
\F-Line 33,39,47,21
4\->\Mat A[1,1]
\Goto9
\Lbl 9
1\->\r

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:330
File Name:STRIKE7
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 41,31,"\theta"
\Mat A[1,4]=1\=>\Goto\r
\Mat A[1,5]=1\=>\Goto\r
\Int 3\Ran#+1\->B
B=1\=>\Goto1
B=2\=>\Goto3
B=3\=>\Goto4
\Lbl \r
0\->A
\theta\->C
\Lbl A
\Getkey\->A
C-1\->C
A=74\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\Text 57,72,C
C=0\=>\GotoB
A=74\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\GotoA
\Lbl B
7\->\Mat A[1,1]
\Goto9
\Lbl 1
\F-Line 33,39,33,24
6\->\Mat A[1,1]
\Goto9
\Lbl 2
\F-Line 33,24,19,32
10\->\Mat A[1,1]
\Goto9
\Lbl 3
\F-Line 47,44,33,24
2\->\Mat A[1,1]
\Goto9
\Lbl 4
\F-Line 33,24,47,21
4\->\Mat A[1,1]
\Goto9
\Lbl 9
1\->\r

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:305
File Name:STRIKE8
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 20,94,"\theta"
\Mat A[1,4]=1\=>\Goto\r
\Mat A[1,5]=1\=>\Goto\r
\Goto3
\Lbl \r
0\->A
\theta\->C
\Lbl A
\Getkey\->A
C-1\->C
A=74\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\Text 57,72,C
C=0\=>\GotoB
A=74\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\GotoA
\Lbl B
8\->\Mat A[1,1]
\Goto9
\Lbl 1
\F-Line 95,39,81,44
3\->\Mat A[1,1]
\Goto9
\Lbl 2
\F-Line 95,39,81,21
5\->\Mat A[1,1]
\Goto9
\Lbl 3
\F-Line 95,39,106,32
11\->\Mat A[1,1]
\Goto9
\Lbl 4
\F-Line 95,39,95,24
9\->\Mat A[1,1]
\Goto9
\Lbl 9
1\->\r

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:305
File Name:STRIKE9
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 41,94,"\theta"
\Mat A[1,4]=1\=>\Goto\r
\Mat A[1,5]=1\=>\Goto\r
\Goto4
\Lbl \r
0\->A
\theta\->C
\Lbl A
\Getkey\->A
C-1\->C
A=74\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\Text 57,72,C
C=0\=>\GotoB
A=74\=>\Goto1
A=72\=>\Goto2
A=54\=>\Goto3
A=52\=>\Goto4
\GotoA
\Lbl B
9\->\Mat A[1,1]
\Goto9
\Lbl 1
\F-Line 95,24,81,44
3\->\Mat A[1,1]
\Goto9
\Lbl 2
\F-Line 95,24,81,21
5\->\Mat A[1,1]
\Goto9
\Lbl 3
\F-Line 95,39,95,24
8\->\Mat A[1,1]
\Goto9
\Lbl 4
\F-Line 95,24,106,32
11\->\Mat A[1,1]
\Goto9
\Lbl 9
1\->\r

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:311
File Name:GOAL1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 30,17,"\theta"
\Mat A[1,4]=2\=>\Goto3
\Int 3\Ran#+1\->A
A=3\=>\Goto1
A=2\=>\Goto1
A=1\=>\Goto2
"ERROR"
\Lbl 1
\Text 14,52,"MISSED"
\Goto3
\Lbl 2
\Text 14,60,"GOAL"\Disp\Mat A[1,2]+1\->\Mat A[1,2]
\Lbl 3
\Mat A[1,5]=1\=>\GotoL
\Int 3\Ran#+1\->B
B=1\=>\GotoD
B=2\=>\GotoE
B=3\=>\GotoF
\Lbl L
0\->A
\Lbl A
\Getkey\->A
A=54\=>\GotoD
A=52\=>\GotoE
A=63\=>\GotoF
\GotoA
\Lbl D
\F-Line 19,32,47,44
2\->\Mat A[1,1]
\Goto9
\Lbl E
\F-Line 19,32,47,21
4\->\Mat A[1,1]
\Goto9
\Lbl F
\F-Line 19,32,64,32
1\->\Mat A[1,1]
\Goto9
\Lbl 9

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:261
File Name:GOAL2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 30,107,"\theta"
\Mat A[1,4]=1\=>\Goto3
\Int 3\Ran#+1\->A
A=3\=>\Goto1
A=2\=>\Goto1
A=1\=>\Goto2
\Lbl 1
\Text 14,52,"MISSED"
\Goto3
\Lbl 2
\Text 14,60,"GOAL"
\Mat A[1,3]+1\->\Mat A[1,3]
\Lbl 3
0\->A
\Lbl A
\Getkey\->A
A=74\=>\GotoB
A=72\=>\GotoC
A=63\=>\GotoD
\GotoA
\Lbl B
\F-Line 106,32,81,44
3\->\Mat A[1,1]
\Goto9
\Lbl C
\F-Line 106,32,81,21
5\->\Mat A[1,1]
\Goto9
\Lbl D
\F-Line 106,32,64,32
1\->\Mat A[1,1]
\Goto9
\Lbl 9

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:370
File Name:RESULT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\Vertical 1
\Horizontal 1
\Vertical 127
\Horizontal 63
\Horizontal 55
\Text 3,38,"SOCCER 2001"
\Text 15,40,"THE RESULT"
\Text 28,15,"PLAYER 1"
\Mat A[1,5]=1\=>\Text 28,80,"PLAYER 2"
\Mat A[1,5]=2\=>\Text 28,70,"CALCULATOR"
\Text 35,25,\Mat A[1,2]
\Text 35,90,\Mat A[1,3]
\Mat A[1,2]\->A
\Mat A[1,3]\->B
A>B\=>\Text 44,14,"PLAYER 1 HAS WON THE GAME"
A>B\=>\Goto\r
\Mat A[1,5]=1\=>\Text 44,14,"PLAYER 2 HAS WON THE GAME"
\Mat A[1,5]=2\=>\Text 44,14,"CALCULATOR WON THE GAME"
\Lbl \r
\Text 57,45,"PRESS EXE"\Disp
%End