2 WHILE q<10:MODE 1:CLG 3:WINDOW 17,29,1,1:PRINT j;9-q;k;:WINDOW 2,39,3,24:CLS:q=q+1:c=1:x=-1:v=1:w=11:m=38:n=12:WHILE a+b=0:LOCATE v,w:PEN 2:PRINT"*":LOCATE m,n:PEN 1:PRINT"#":v=v+c:w=w+l:m=m+x:n=n+y:a=TEST(v*16+8,375-w*16):b=TEST(m*16+8,375-n*16)
8 k=k-(a>0):j=j-(b>0):p=INKEY(1)-INKEY(8):WHILE p:c=p:l=0:p=0:WEND:p=INKEY(2)-INKEY(0):WHILE p:l=p:c=0:p=0:WEND:p=INKEY(75)-INKEY(74):WHILE p:x=p:y=0:p=0:WEND:p=INKEY(73)-INKEY(72):WHILE p:y=p:x=0:p=0:WEND:WEND:WHILE INKEY(47):WEND:a=0:b=0:y=0:l=0:WEND