1 '*Wall Tennis* CC BY Copyright (c) 2017 Shiro SAITO
10 CLS:CLV:FOR X=0 TO 31:?"=";:NEXT
20 FOR Y=1 TO 21:LC 0,Y:?"|":LC 31,Y:?"|":NEXT
30 P=RND(27):LC P,22:?"=====";
40 X=P+1:Y=21:LC X,Y:?CHR$(233):D=-1:E=-1
50 U=X+D:V=Y+E:C=SCR(U,V)
60 IF C=124 BEEP 20,3:D=-D:GOTO 50
70 IF C=61 BEEP 10,3:E=-E:S=S+1:GOTO 50
80 LC X,Y:?" ";:LC U,V:?CHR$(233);:X=U:Y=V
90 Q=P-BTN(28)*(P>0)+BTN(29)*(P<27)
100 LC P,22:?"     ";:LC Q,22:?"=====";:P=Q
110 WAIT 3:IF V<22 GOTO 50
120 BEEP 30,60:LC 15,11:?S