Cls
ViewWindow 1,60,0,1,64,0
0ÞA~Z
1ÞZ
1ÞV
Plot 1,10
Plot 59,10
Green Line
Plot 1,52
Plot 59,52
Green Line
Text 1,40,"™PONG  PRO™"
Text 7,18,"™BY:MARCUS LUNDSTROEM™"
Text 57,9,"SPEED:"
Text 57,38,V
1ÞA~Z
10ÞB
1ÞD
30ÞG~H
Text 57,58,"TIME:"
Text 30,5,"I"
Text 30,120,"I"
While Z=1
PlotOn A,B
PlotOff A,B
A‰CÞA
B‰DÞB
B>49ã™VÞD
B<14ãVÞD
S‰0.25ÞS
Frac S=0ãText 57,85,"       "
Frac S=0ãText 57,85,S
If Getkey=28
Then V‰1ÞV
V>5ãV™1ÞV
C<0ã™VÞC
C>0ãVÞC
D>0ãVÞD
D<0ã™VÞD
Text 57,38," "
Text 57,38,V
IfEnd
If Getkey=37
Then V™1ÞV
V<1ãV‰1ÞV
C<0ã™VÞC
C>0ãVÞC
D>0ãVÞD
D<0ã™VÞD
Text 57,38," "
Text 57,38,V
IfEnd
If Getkey=72
Then G™7ÞG
G<12ãG‰7ÞG
Text G,5,"I"
Text G‰7,5," "
IfEnd
If Getkey=71
Then G‰7ÞG
G>47ãG™7ÞG
Text G,5,"I"
Text G™7,5," "
IfEnd
If Getkey=32
Then H™7ÞH
H<12ãH‰7ÞH
Text H,120,"I"
Text H‰7,120," "
IfEnd
If Getkey=31
Then H‰7ÞH
H>50ãH™7ÞH
Text H,120,"I"
Text H™7,120," "
IfEnd
If A<6
Then Bâ64™GãBà64™G‰7ãVÞC
IfEnd
If A>53
Then Bâ64™HãBà64™H‰7ã™VÞC
IfEnd
A>65ã2ÞZ
A<™2ã3ÞZ
WhileEnd
Z=2ãText 30,45,"LEFT WINS
Z=3ãText 30,45,"RIGHT WINS"