%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1925
File Name:BOWLING
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 2
\ClrText
"123456789"
"^\theta \theta \theta \theta^"
"  \theta \theta \theta"
"   \theta \theta"
"    \theta"
\Locate 12,1,"FRAME="
\Locate 12,2,"1 BALL=":\Locate 12,3,"2 BALL=":\Locate 12,4,"3 BALL=":\Locate 12,5,"SCORE="
R=2\Pi\=>\Goto1
1\->A~J:0\->K~Z:1\->M
\Lbl 1
\Locate 18,1,M
N>0\=>\Locate 19,2,T-1
N=0\=>\Locate 19,2,T
N=11\=>\Locate 19,2,"X "
T=11\=>\Locate 19,2,"X "
P=1\=>T\<>11\=>\Locate 19,2,T-1
\Locate 19,3,\Int O
P\<>0\=>O+T=11\=>T\<>11\=>\Locate 19,3,"\slash"
O=10\=>\Locate 19,3,"X "
P=1\=>T\<>11\=>\Locate 19,3,"\slash"
\Locate 19,4,0
\Locate 18,5,S
0\->R
\Do
\Isz R
R>9\=>1\->R
\Locate 5,6,R
\LpWhile \Getkey\<>31
0\->Z
\While Z=0
\Int 3\Ran#+2\->\r
Y\->Z:X\->Y:W\->X:V\->W:U\->V:\theta\->U:\r\->\theta
\WhileEnd
\Int 3\Ran#+2\->\r
\If T\<>0\ Or M=10\ And T<11\ And N=11
\Then 0\->U~Z:0\->\r:0\->\theta
\IfEnd
\If R=2
\Then 0\->A
Z=2\=>0\->B
Y=2\=>0\->E
\IfEnd
\If R=3
\Then 0\->A~B:0\->E
Z=3\=>1\->A
Y=3\=>1\->B
X=2\=>0\->F
W=2\=>0\->C
\IfEnd
\If R=4
\Then 0\->A~C:0\->E~F:0\->H
Z=3\=>1\->E
Y=3\=>1\->F
X=3\=>1\->A
W=3\=>1\->C
V=2\=>0\->J
U=2\=>0\->I
\theta=2\=>0\->G
\r=2\=>0\->D
\IfEnd
R=5\=>0\->A~J
\If R=6
\Then 0\->B~D:0\->F~G:0\->I
Z=3\=>1\->F
Y=3\=>1\->G
X=3\=>1\->B
W=3\=>1\->D
V=2\=>0\->J
U=2\=>0\->H
\theta=2\=>0\->E
\r=2\=>0\->A
\IfEnd
\If R=7
\Then 0\->C~D:0\->G
Z=3\=>1\->C
Y=3\=>1\->D
X=2\=>0\->F
W=2\=>0\->B
\IfEnd
\If R=8
\Then 0\->D
Z=2\=>0\->C
Y=2\=>0\->G
\IfEnd
1\->N
A=0\=>\Isz N
B=0\=>\Isz N
C=0\=>\Isz N
D=0\=>\Isz N
E=0\=>\Isz N
F=0\=>\Isz N
G=0\=>\Isz N
H=0\=>\Isz N
I=0\=>\Isz N
J=0\=>\Isz N
\Locate 5,6," "
\For 7\->L \To 2 \Step \(-)1
\Locate R,L,"O"
L\<=5\=>J=0\=>\Locate 5,5," "
\If L\<=4
\Then H=0\=>\Locate 4,4," "
I=0\=>\Locate 6,4," "
\IfEnd
\If L\<=3
\Then E=0\=>\Locate 3,3," "
F=0\=>\Locate 5,3," "
G=0\=>\Locate 7,3," "
\IfEnd
\If L\<=2
\Then A=0\=>\Locate 2,2," "
B=0\=>\Locate 4,2," "
C=0\=>\Locate 6,2," "
D=0\=>\Locate 8,2," "
\IfEnd
\Locate R,L," "
\Next 
\If M=10\ And O=.3
\Then N-1\->O
K=4\=>S+20+O\->S
\If O\<>10
\Then \Locate 19,3,O\Disp1\->P
\Goto1
\Else \Locate 19,3,"X"\DispK=3\=>4\->K
K=2\=>3\->K
\Goto4
\IfEnd
\IfEnd
\If M=10\ And P=1
\Then \If T=11\ And O\<>10:\Then N-1-O\->P
\Else N-1\->P
\IfEnd
\If P=10\ And O\<>10
\Then S+20\->S
\Else S+T-1+O+P\->S
\IfEnd
\Locate 19,4,P
P=10\=>O=10\=>\Locate 19,4,"X "
O+P=10\=>\Locate 19,4,"\slash"
\Locate 18,5,S
\Stop
\IfEnd
\If T\<>0
\Then N-T\->O
K=2\=>S+N-1\->S
K=3\=>S+O\->S
K=4\=>S+10+O\->S
\If N<11
\Then \Locate 19,3,O\Disp\If O=0
\Then 0\->T:0\->K
\Goto3
\IfEnd
\Else \Locate 19,3,"\slash"\Disp\IfEnd
\IfEnd
\If T=0
\Then N\->T
K=1\=>S+T-1\->S
K=3\=>N<11\=>S+N+9\->S
K=4\=>N<11\=>S+N+19\->S
K=4\=>N=11\=>S+20\->S
\If N<11
\Then \Locate 19,2,T-1\Disp\Else \Locate 19,2,"X"\Disp\IfEnd
\IfEnd
\If N=11\ And O=0
\Then K=3\=>4\->K
K=2\=>3\->K
K=0\=>2\->K
K=1\=>2\->K
S+10\->S
M=10\=>\Goto5
M\<=9\=>\Isz M
0\->T:0\->N~O
1\->A~J
2\Pi\->R
\Goto2
\IfEnd
N<11\=>O=0\=>\Goto1
\If N=11\ And O\<>0
\Then M=10\=>\Goto4
1\->K:0\->T:0\->N~O
S+10\->S
M\<=9\=>\Isz M
1\->A~J
2\Pi\->R
\Goto2
\IfEnd
\If N<11\ And O\<>0
\Then \If M=10
\Then S+N-1\->S
\Locate 18,5,S
\Stop
\IfEnd
0\->T:0\->K
\Lbl 3
S+N-1\->S
0\->N~O
M\<=9\=>\Isz M
1\->A~J
2\Pi\->R
\Goto2
\IfEnd
\Lbl 4
1\->A~J
2\Pi\->R
1\->P
\Goto2
\Lbl 5
1\->A~J
2\Pi\->R
.3\->O
\Goto2
%End