%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1169
File Name:PONG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
0\->Z
"1\ Or 2 PLAYER"?\->A
A=2\=>1\->Z
A=2\=>6\->\theta
A=1\=>8\->\theta
\Cls
\AxesOff
\ViewWindow 1,127,1,1,64,1
\Text 1,37,"0 ~ PONG ~ 0"
\Horizontal 1
\Horizontal 58
0\->L~M
29\->H~I
\Lbl 3
\Text H,1," "
\Text I,123,"  "
29\->H~I
\Text H,1,"("
\Text I,125,")"
29\->A:3\->B:7\->F
\Text A,B,"\aster"
\Do
\Int 58\Ran#+1\->C
\Int 110\Ran#+9\->D
C-A\->C
D-B\->D
C/D\->E
\LpWhile E=0
\Lbl 0
F*E\->G
\Text \Int A,\Int B,"  "
B+F\->B
A+G\->A
\If A<8\ Or A>60
\Then \(-)E\->E
\(-)G\->G
A+G\->A
F>0\=>\Isz F
F<0\=>\Dsz F
\IfEnd
\Text \Int A,\Int B,"\aster"
\Getkey=31\=>\Goto9
\If \Getkey=77\ And H<53:\Then \Text H,1," "
H+7\->H
\Text H,1,"("
\IfEnd
\If \Getkey=78\ And H>10:\Then \Text H,1," "
H-7\->H
\Text H,1,"("
\IfEnd
\If Z=1
\Then \If \Getkey=37\ And I<53
\Then \Text I,123,"  "
I+7\->I
\Text I,125,")"
\IfEnd
\If \Getkey=28\ And I>10
\Then \Text I,123,"  "
I-7\->I
\Text I,125,")"
\IfEnd
\Else F<0\ Or B<45\=>\Goto1
\If I+7\<=\Int A
\Then \Text I,123,"  "
I+7\->I
\Text I,125,")"
\Goto1
\IfEnd
\If I-7\>=\Int A
\Then \Text I,123,"  "
I-7\->I
\Text I,125,")"
\IfEnd
\IfEnd
\Lbl 1
\If B+F>118
\Then \Text \Int A,\Int B,"  "
115-B\->J
J*E\->G
A+G\->A
B+J\->B
\Text \Int A,\Int B,"\aster"
\If I+\theta\>=\Int A\ And I-\theta\<=\Int A
\Then \Isz F
\(-)F\->F
.3\Ran#-.15+E\->E
\(-)E\->E
\Goto0
\Else \Text I,123,"*"
\Text \Int A,\Int B,"  "
\Isz L
\Text 1,33,"   "
\Text 1,37,L
L>5\=>\Goto2
\Goto3
\IfEnd
\IfEnd
\If B+F<3
\Then \Text \Int A,\Int B,"  "
B-3\->J
J*E\->G
B+J\->B
\Text \Int A,\Int B,"\aster"
\If H+6\>=\Int A\ And H-6\<=\Int A
\Then \Dsz F
\(-)F\->F
.3\Ran#-.15+E\->E
\(-)E\->E
\Goto0
\Else \Text H,1,"*"
\Text \Int A,\Int B,"  "
\Isz M
\Text 1,81,"   "
\Text 1,85,M
M>5\=>\Goto4
\Goto3
\IfEnd
\IfEnd
\Goto0
\Lbl 2
\While \Getkey\<>31
\Text H,1," "
\Text H,1,"("
\Text 20,43,"1 WINS"
\WhileEnd
\Stop
\Lbl 4
\While \Getkey\<>31
\Text I,123,"  "
\Text I,125,")"
\Text 20,37,"2\slashCOMP WINS":\WhileEnd
\Stop
\Lbl 9
\Text 15,50,"PAUSED"
\While \Getkey\<>58
\WhileEnd
\Text 15,50,"      "
\Goto0
%End