10 CLS:CLEAR:WIDTH20,8:DEFINTA-Z:OPTIONBASE0:DIMA(19):DIMA$(19,3)
20 LOCATES0,0,0:LOCATE8,2:PRINT"Pong";
30 K=1:FORI=1TO2:FORJ=1TO56:K=(K*J)MOD56+1:SOUNDK,1:NEXTJ,I
40 O$=TIME$:O=(VAL(LEFT$(O$,2))MOD6)*3600+VAL(MID$(O$,4,2))*60+VAL(RIGHT$(O$,2))
50 RANDOMIZEO:Z=0:FORN=1TO8:L=0
60 FORI=1TO18:FORJ=0TO3:A$(I,J)=" ":NEXTJ,I:FORJ=0TO3:A$(0,J)="Œ":A$(19,J)="Œ":NEXT
70 FORI=1TO18:A(I)=I:NEXT:FORI=18TO16STEP-1
80 K=INT(RND*I)+1:X(18-I)=A(K):Y(18-I)=A(K)MOD4
90 FORJ=K TO18:A(J)=A(J+1):NEXT:NEXT
100 X=X(0):Y=Y(0):A$(X(1),Y(1))="–":A$(X(2),Y(2))="™"
110 FORI=0TO19:FORJ=0TO3:LOCATEI,J,0:PRINTA$(I,J);:NEXTJ,I:LOCATES0,0,0
120 FORM=1TO80:A$=INKEY$:IFA$="\"ORA$="/"THENA$(X,Y)=A$
130 IFA$(X,Y)="\"THENL=3-L ELSEIFA$(X,Y)="/"THENL=(5-L)MOD4
140 ONL+1GOSUB180,200,220,240
150 IFX=X(1)ANDY=Y(1)THENGOSUB260ELSEIFX=X(2)ANDY=Y(2)THENGOSUB280
160 NEXTM:IFASC(A$(X,Y))<128THENGOSUB300
170 NEXTN:GOSUB310:END
180 IFX=18THENL=2:RETURN
190 LOCATEX,Y:PRINTA$(X,Y);:X=X+1:LOCATEX,Y:PRINT"š";:RETURN
200 IFY=0THENL=3:RETURN
210 LOCATEX,Y:PRINTA$(X,Y);:Y=Y-1:LOCATEX,Y:PRINT"š";:RETURN
220 IFX=1THENL=0:RETURN
230 LOCATEX,Y:PRINTA$(X,Y);:X=X-1:LOCATEX,Y:PRINT"š";:RETURN
240 IFY=3THENL=1:RETURN
250 LOCATEX,Y:PRINTA$(X,Y);:Y=Y+1:LOCATEX,Y:PRINT"š";:RETURN
260 FORI=1TO3:FORJ=56TO51STEP-1:SOUNDJ,1:SOUND51,1:SOUND56,1
270 NEXTJ,I:M=80:Z=Z+1:RETURN
280 FORI=1TO2:FORJ=56TO1STEP-4:SOUNDJ,1:SOUNDJ+1,1
290 NEXTJ,I:M=80:RETURN
300 FORI=4TO11:FORJ=8TO15:K=(I*I*J)MOD56+1:SOUNDK,1:SOUNDK+28,1:NEXTJ,I:M=80:RETURN
310 CLS:PRINT"–/™":PRINTZ*12.5;:PRINT"%"
320 FORK=1TO2:FORL=1TO4:FORI=1TO112STEP4:J=ABS(I-56):SOUNDJ+31,1:SOUNDJ,1:NEXTI,L
330 FORI=1TO112:J=I^2-56*(I^2\56):SOUNDJ,1:NEXTI,K:RETURN