%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2359
File Name:TENNIS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow 1,127,1,1,63,1
\Deg
\AxesOff
0\->O
\Lbl 1
\F-Line 10,32,60,32
\Vertical 1
\Vertical 70
\Vertical 10
\Vertical 60
\Horizontal 1
\Horizontal 63
O=\Pi\=>\Goto3
\Text 10,80,"SCORE=LV\slashLV"
\Text 20,80,"GAMES=0\slash0"
\Text 30,80,"SERVE=O"
0\->E~L:0\->R:0\->Z
\Lbl 3
57\->A:33\->B~D:4\->C:0\->W
8\->N:32\->Q
I=1\=>55\->N
\Text N,Q,"."
\Text A,B,"X"
\Text C,D,"O"
7\->M
\Int 50\Ran#+10\->S
15\->X
S-Q\->\r:63-N\->\theta
I=1\=>N\->\theta
I=1\=>Q-S\->\r
\r=0\=>1\->\r
\r<0\=>1\->O
\r<0\=>\(-)\r\->\r
\atan (\theta\ab/c\r)\->T
I=1\=>\atan (\r\ab/c\theta)\->T
90-T\->T
(\sin T)*X\->U
(\cos T)*X\->V
I=1\=>(\sin T)*X\->V
I=1\=>(\cos T)*X\->U
\Int U\->U:\Int V\->V
O=1\=>\(-)U\->U
\If I=1
\Then \(-)V\->V
Q\->F
N/100+F\->F
1\->Z
\IfEnd
0\->E
\While A>0
\Isz E
N<0\ Or N>63\ Or Q\<=9\ Or Q>60\=>\Break
\If E>1\ And N>0\ And N<64
\Then \Text N,Q," "
N+V\->N
Q-U\->Q
N<0\ Or N>63\ Or Q<10\ Or Q>60\=>\Break
\Text N,Q,"."
\IfEnd
1\->P:V<0\=>7\->M:V>0\=>7\->R
\If \Getkey=27\ And B<56:\Then \Text A,B," "
B+5\->B:0\->P
\Text A,B,"X"
\IfEnd
\If \Getkey=38\ And B>9
\Then \Text A,B," "
B-5\->B:0\->P
\Text A,B,"X"
\IfEnd
\If \Getkey=28\ And A>35:\Then \Text A,B," "
A-5\->A
\Text A,B,"X"
\IfEnd
P=0\=>7\->M
P=1\=>M+3\->M
\If \Getkey=78\ Or \Getkey=68
\Then 0\->O:1\->Z
Q\>=B+1\=>\Text A,B+4,"-"
Q<B+1\=>\Text A,B-6,"-"
\Do
\Isz O
\Getkey=78\=>L-6\->L
\Getkey=68\=>L+6\->L
\LpWhile O<8
Q<B+1\=>\Text A,B-6," "
Q\>=B+1\=>\Text A,B+4," "
\Text A-6,B,"I"
\Text A-6,B," "
\If N+V>A\ And Q\>=B-7\ And Q\<=B+7\ And N\<=A\ Or Q\>=B-7\ And Q\<=B+7\ And N\<=A+5\ And N>A-9\ And V>0
\Then 0\->O:Q+L\->S
Q-S\->\r:N\->\theta:M\->X
\r=0\=>1\->\r
\r<0\=>1\->O
\r<0\=>\(-)\r\->\r
(\atan \r\ab/c\theta)\->T
90-T\->T
(\sin T)*X\->V
(\cos T)*X\->U
\Int U\->U:\Int V\->V
O=1\=>\(-)U\->U:\(-)V\->V
Q\->F
N/100+F\->F
\IfEnd
0\->L:7\->M:0\->P
\IfEnd
\If Z=1
\Then F-\Int F\<>0\=>(F-\Int F)*100\->\r
\Int F\->F
\Int F\<>S\=>\r/(F-S)\->O
\If O\<>0
\Then \r-OF\->\theta
(1\ab/cO)*(C-\theta)\->W
W>60\=>60\->W
W<10\=>10\->W
OW+\theta\->J
\Else S\->W
C\->J
\IfEnd
0\->Z
W=10\=>J+5\->J
W=60\=>J+5\->J
\IfEnd
V>0\=>C\->J
V>0\=>33\->W
1\->K
0\->Y
\If C+5<29\ And V<0\ And C+5<J\ Or M<9\ And C+5<29\ And C+5<J\ And V<0
\Then \Text C,D," "
C+5\->C:1\->Z
\Text C,D,"O"
\IfEnd
\If D-6>W\ And D>13
\Then \Text C,D," "
D-5\->D:0\->K:1\->Y
\Text C,D,"O"
\IfEnd
\If D+6<W\ And D<56\ And Y=0
\Then \Text C,D," "
D+5\->D:0\->K
\Text C,D,"O"
\IfEnd
K=0\=>7\->R
K=1\=>R+3\->R
\If N+V\<=C\ And N\>=C-3\ And D-7\<=Q\ And D+7\>=Q\ And E>1\ Or N<C+7\ And N\>=C-3\ And D-7\<=Q\ And D+5\>=Q\ And E>1\ And V<0
\Then 0\->O
Q\>=D+1\=>\Text C,D+4,"-"
Q<D+1\=>\Text C,D-6,"-"
\Int 100\Ran#-15\->S
W<20\=>\Int 75\Ran#-15\->S
W>50\=>\Int 75\Ran#+15\->S
Q<D+1\=>\Text C,D-6," "
Q\>=D+1\=>\Text C,D+4," "
\Text C+6,D,"I"
\Text C+6,D," "
0\->O
S-Q\->\r:63-N\->\theta
\r=0\=>1\->\r
\r<0\=>1\->O
\r<0\=>\(-)\r\->\r
(\atan \theta\ab/c\r)\->T
90-T\->T
(\sin T)*R\->U
(\cos T)*R\->V
\Int U\->U:\Int V\->V
O=1\=>\(-)U\->U
0\->L:7\->R:0\->K
\IfEnd
\WhileEnd
N>63\=>1\->O
N>32\=>Q<10\=>1\->O
N>32\=>Q>60\=>1\->O
N<1\=>2\->O
N<32\=>Q<10\=>2\->O
N<32\=>Q>60\=>2\->O
\If N=32\ And Q>60\ And Q<10
\Then V<0\=>2\->O
V>0\=>1\->O
\IfEnd
\If O=2
\Then G+.1\->G
\If G-\Int G=.4
\Then \Isz G
\Int G\->G
\Int H\->H
I=0\=>3\->O
I=1\=>0\->I
O=3\=>1\->I
\IfEnd
\IfEnd
\If O=1
\Then H+.1\->H
\If H-\Int H=.4
\Then \Isz H
\Int H\->H
\Int G\->G
I=1\=>3\->O
I=0\=>1\->I
O=3\=>0\->I
\IfEnd
\IfEnd
G-\Int G=.1\=>\Text 10,104,"15"
G-\Int G=.2\=>\Text 10,104,"30"
G-\Int G=.3\=>\Text 10,104,"40"
G=\Int G\=>\Text 10,104,"LV"
H-\Int H=.1\=>\Text 10,116,"15"
H-\Int H=.2\=>\Text 10,116,"30"
H-\Int H=.3\=>\Text 10,116,"40"
H=\Int H\=>\Text 10,116,"LV"
\Text 20,106,\Int G
\Text 20,114,\Int H
\Int G>7\ Or \Int H>7\=>\Stop
\Text 30,104,"O"
I=1\=>\Text 30,104,"X"
\Text A,B," "
\Text C,D," "
\Pi\->O
\While \Getkey\<>31
\Text 50,80,"PRESS [EXE]"
\WhileEnd
\Text 50,80,"           "
\Goto1
%End