Here it is pong 2 .

bq. 0[sto]W
0[sto]S
1[sto]B
3[sto]Y
7[sto]X
-1[sto]L
-1[sto]M
0[sto]C
2[sto]Q
While 1
getKey[sto]K
If K=26
Then
If B<13+W
Then
B+1[sto]B
End
End
If K=24
Then
If B>1
Then
B-1[sto]B
End
End
ClrHome
If W=0
Then
Output(8,B,”^^^^”)
End
If W=1
Then
Output(8,B,”^^^”)
End
Output(Y,X,”O”)
If C=Q
Then
Output(Y,X,”O”)
0[sto]C
X+M[sto]X
Y+L[sto]Y
If Y=0
Then
2[sto]Y
L*-1[sto]L
End
If X=0
Then
2[sto]X
M*-1[sto]M
End
If X=17
Then
15[sto]X
M*-1[sto]M
End
If Y=7
Then
If X>=B
Then
If W=0
Then
If X<=B+3
Then
S+1[sto]S
L*-1[sto]L
End
End
If W=1
Then
If X<=B+2
Then
S+1[sto]S
L*-1[sto]L
End
End
End
End
If Y=8
Then ClrHome
Disp “You Lose”
Disp “You score was”
Disp S
Stop
End
End
1+C[sto]C
If S=5
1[sto]Q
If S=20
1[sto]W
End