0 Z=19712:A=16917:POKEA,126:POKEA+1,77:POKEA+2,00
2 DATA 95,134,251,151,2,182,191,255,132,8,38,2,198,1,134,254,151,2,182,191,255,132,4,38,2,202,2,247,77,31,57,0
4 READB:IFB=0THEN10
6 POKEZ+R,B:R=R+1:GOTO4
10 CLS0:PRINT@13,"PONG";:Z=RND(8):FORX=0TO63:SET(X,5,Z):SET(X,28,Z):NEXTX:FORY=6TO27:SET(0,Y,Z):SET(63,Y,Z):NEXTY
15 L3=0:L2=0
20 W=49151:R=15:Q=15:A=3:B=60:Z=RND(8):FORY=RTO19:SET(A,Y,Z):SET(B,Y,Z):NEXTY:S=1
30 PRINT@4,K;:PRINT@25,L;
200 IFS>0THENX=4
202 IFS<0THENX=59
210 Y=RND(2):IFY=1THENY=6:E=1
215 IFY=2THENY=25:E=-1
250 SET(X,Y,Z)
500 L8=USR(0):K=PEEK(19743):IFK=1THENGOSUB2100
505 IFK=2THENGOSUB2200
510 IFK=3THENGOSUB2100:GOSUB2200
520 IFPEEK(W)=251THENGOSUB2000
530 IF PEEK(W)=223THENGOSUB2300
535 RESET(X,Y)
540 X=X+S:Y=Y+E
545 IFX>58THENX=58:GOTO1000
550 IFX<5THENX=5:GOTO1200
555 IFY<7ORY>26THENE=E*-1:SOUND200,1:GOTO540
560 SET(X,Y,Z)
600 GOTO500
1000 IFQ<=YANDQ+4>=YTHENSOUND150,1:S=S*-1:GOTO1300
1010 L3=L3+1:GOTO1220
1020 GOTO1220
1200 IFR<=YANDR+4>=YTHENSOUND150,1:S=S*-1:GOTO1300
1210 L2=L2+1
1220 SOUND100,2:PRINT@4,L3;:PRINT@25,L2;:IFL2=15ORL3=15THEN3000
1230 GOTO200
1300 E=RND(3)-2:F=RND(2):IFF=2THENE=E*2
1302 IFY>20THENE=-1
1304 IFY<10THENE=1
1310 IFS=-2THENS=-1
1320 IFS=2THENS=1
1330 F=RND(2):IFF=2THENS=S*2
1350 GOTO 540
2000 R=R-1:IFR<6THENR=6
2010 SET(A,R,Z):RESET(A,R+5):RETURN
2100 R=R+1:IFR>23THENR=23
2110 SET(A,R+4,Z):RESET(A,R-1):RETURN
2200 Q=Q-1:IFQ<6THENQ=6
2210 SET(B,Q,Z):RESET(B,Q+5):RETURN
2300 Q=Q+1:IFQ>23THENQ=23
2310 SET(B,Q+4,Z):RESET(B,Q-1):RETURN
3000 FORX=1TO10:SOUND200,1:NEXTX
3005 PRINT@235,"GAME OVER";
3010 K$=INKEY$:IFK$=""THEN3010
3020 IFK$="S"THEN10
3030 GOTO3010