0->C
0->P
Menu("      PONG      ","TWO PLAYER",2,"PRACTICE",P,"CHALLENGE",C,"QUIT",Q)
Lbl C
1->C
2->U
Lbl P
1->P
Lbl 2
0->V
0->W
0->S
0->T
4->L
32->O
48->N
0->E
1->D
0->Q
StoreGDB 0
1->Xmin
95->Xmax
FnOff 
AxesOff
ClrDraw
If C or P
Then
Vertical 1
Vertical 2
End
Horizontal ~10
Horizontal 10
For(I,1,93,92)
For(J,~L+32,L+32,1)
Pxl-On(J,I)
End
End
While not(Q)
getKey->G
If G
Then
If G=72 and Y-L+32!=1
Then
Y-1->Y
Pxl-On(Y-L+32,1)
Pxl-Off(Y+L+33,1)
Else
If G=92 and Y+L+32!=61
Then
Y+1->Y
Pxl-On(Y+L+32,1)
Pxl-Off(Y-L+31,1)
Else
If G=45
Then
ClrHome
Disp "GAME PAUSED"
Disp "[ENTER]: RESUME"
Disp "[CLEAR]: QUIT"
While not(F)
getKey->G
If G=45
Then
1->Q
1->F
End
If G=105
1->F
End
0->G
0->F
Else
If G=74 and T-L+32!=1
Then
T-1->T
Pxl-On(T-L+32,93)
Pxl-Off(T+L+33,93)
Else
If G=94 and T+L+32!=61
Then
T+1->T
Pxl-On(T+L+32,93)
Pxl-Off(T-L+31,93)
End
End
End
End
End
End
N->A
O->B
If N=1 or N=93
Then
If not(C)
Then
ClrHome
If N=1
V+1->V
If N=93
W+1->W
Disp "LEFT SCORE:"
Output(1,13,V)
Disp "RIGHT SCORE:"
Output(2,14,W)
Pause 
If V>9
Then
Disp "LEFT WINS!"
1->Q
End
If W>9
Then
Disp "RIGHT WINS!"
1->Q
End
32->O
48->N
0->E
Else
ClrHome
Disp "YOU LOSE..."
Disp "YOUR SCORE:"
Output(2,13,U)
If U>|LPONG(1)
U->|LPONG(1)
Disp "HIGH SCORE:"
Output(3,13,|LPONG(1))
Pause 
1->Q
End
End
If pxl-Test(O,N+D)
Then
If C and U>2
Then
Vertical U-1
Vertical U
U+1->U
End
~D->D
Else
If pxl-Test(O+1,N+D)
Then
~1->E
If N=2 or N=92
Then
~D->D
If C
Then
Vertical U-1
Vertical U
U+1->U
End
End
End
If pxl-Test(O-1,N+D)
Then
1->E
If N=2 or N=92
~D->D
End
End
O+E->O
N+D->N
Pxl-Off(B,A)
Pxl-On(O,N)
End
Lbl Q
RecallGDB 0
ClrHome