%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:766 File Name:PONG-PRO Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \BG-None \AxesOff \LabelOff \S-WindMan \FuncOff \Do \ClrText "ACCELERATION [1=0]~[2=MAX] [1.2=NORMAL]"?\->I \Abs I\->I \LpWhile I<1\ Or I>2 \Do \ClrGraph {6.2,6.2}\->\List 1 {\(-).5,.5}\->\List 2 {\(-)6.2,\(-)6.2}\->\List 3 {\(-).5,.5}\->\List 4 {0}\->\List 5 {0}\->\List 6 \S-Gph1 \DrawOn,\xyLine,\List1,\List2,1,\Dot \S-Gph2 \DrawOn,\xyLine,\List3,\List4,1,\Dot \S-Gph3 \DrawOn,\Scatter,\List5,\List6,1,\Square .4\->A~B \Ran#<.5\=>\(-)A\->A \Ran#<.5\=>\(-)B\->B 0\->C~D \Do \List 5[1]\->E \List 6[1]\->F B/A\->M F-ME\->P \If E\<=\(-)6 \Then \(-)6M+P\->F \(-)6\->E \If \Abs (F-D)\<=.4 \Then \(-)IA\->A G=76\=>B+.3\->B G=75\=>B-.3\->B \Else \Break \IfEnd \IfEnd \If E\>=6 \Then 6M+P\->F 6\->E \If \Abs (F-C)\<=.4 \Then \(-)IA\->A G=26\=>B+.3\->B G=25\=>B-.3\->B \Else \Break \IfEnd \IfEnd \If F\>=3 \Then (3-P)/M\->E 3\->F \(-)B\->B \IfEnd \If F\<=\(-)3 \Then (\(-)3-P)/M\->E \(-)3\->F \(-)B\->B \IfEnd E\->\List 5[1] F\->\List 6[1] \Cls \DrawStat \Getkey \Ans\->G \If \Ans=26\ And C<2.4 \Then \List 2+.4\->\List 2 C+.4\->C \IfEnd \If \Ans=25\ And C>\(-)2.4 \Then \List 2-.4\->\List 2 C-.4\->C \IfEnd \If \Ans=76\ And D<2.4 \Then \List 4+.4\->\List 4 D+.4\->D \IfEnd \If \Ans=75\ And D>\(-)2.4 \Then \List 4-.4\->\List 4 D-.4\->D \IfEnd \List 5+A\->\List 5 \List 6+B\->\List 6 \LpWhile 1 \Cls \DrawStat \Text 30,36,"PLAYER 1 WINS!" E=\(-)6\=>\Text 30,64,2 \Do:\Getkey:\LpWhile \Ans=0 \LpWhile 1 %End