%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