Ping Pong!

15, PRINT RT y,pp, OUER 1, INK 3,@;"El ganador es el Jugador N2"

10 LET pp = 3 + 25 * lado
THEN LET x = -x
IF 1*40=1 THEN GO TO 7
5000 PRINT RT 1,10, FLASH 1, BR
9 BEEP .05, 15
CP .05, 15 LET
BEEP .05, 5
incv=RND
BE LIGHT 1."TACHING"
5001 BEEP .5,0
PLOT 4,4 DRRU 247.0 DRRU
8,128 DRRU -247,0 DRRU 0,-128
5002 CLS
5003 BEEP .5,10
PLOT 118+6,4 DRRU 0,128 PLOT
5004 PRINT RT 1,10; FLASH 1, BR
120+8,4 DRRU 0,128 PLOT 56+8,4 DRRU
4 DRRU 0,128 PLOT 56+8.66 DRRU 126,0
5005 BEEP .5,0
PLOT 184+8,4 DRRU 0,126
0,128 PLOT 56+8.66 DRRU 126,0
5010 IF p > r > pder THEN PRINT RT 1
3,0,"El ganador es el jugador N1
15,PRINT RT y,pp, OUER 1, INK 3,@;"El
20 IF THEN GO SUB (IN q<>in OR I N
ganador es el Jugador N2
aoinal 5030 INPUT "qweresi repetir...!"