%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:489
File Name:PONG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 9,1,"PONG"
\Locate 1,7,"PUSH EXE TO CONTINUE"
\Locate 9,3,"BY"
\Locate 3,4,"THE MADWEB TEAM"
\Locate 2,5,"WWW.MADWEB.4T.COM"
\Do
\LpWhile \Getkey\<>31
\ClrText
3\->X
3\->Y
5\->A
5\->B
0.9\->G
0.8\->H
\Locate 1,1,"XXXXXXXXXXXXXXXXXXXX"
\Locate 1,7,"XXXXXXXXXXXXXXXXXXXX"
\Lbl A
X>3\=>\Locate 1,X-2," "
\Locate 1,X-1,"I"
\Locate 1,X,"I"
X<6\=>\Locate 1,X+1," "
Y>3\=>\Locate 21,Y-2," "
\Locate 21,Y-1,"I"
\Locate 21,Y,"I"
Y<6\=>\Locate 21,Y+1," "
\Locate \Int A,\Int B," "
A+G\->A
B+H\->B
\Locate \Int A,\Int B,"\aster"
A>20\=>-G\->G
B>6\=>-H\->H
B<3\=>-H\->H
B=X\ Or B=X-1\=>A<3\=>-G\->G
B=Y\ Or B=Y-1\=>A>20\=>-G\->G
\Getkey\->D
D=28\ And Y>3\=>\Dsz Y
D=37\ And Y<6\=>\Isz Y
D=77\ And X<6\=>\Isz X
D=78\ And X>3\=>\Dsz X
\GotoA

%End