1 FORG=0TO32:LCG,22:?"@";:NEXT:FORG=0TO64:LCRND(32),RND(23):?"@";:NEXT:B=0:Y=20:X=5 2 IFSCR(X/2,Y/2+1)>0B=0:C=1ELSEB=B+3:C=0 3 A=A+(BTN(29)-BTN(28))*3:IFC=1B=B-BTN(30)*54 4 IFSCR(X/2+1,Y/2)>0ANDA>0A=0ELSEIFSCR(X/2-1,Y/2)>0ANDA<0A=0 5 B=B/2:A=A/2:LCX/2,Y/2:?CHR$(0):X=X+A:IFB>-2Y=Y+BELSEIFSCR(X/2,Y/2-1)>0B=0ELSEY=Y-2 6 WAIT2:DRAWX,Y:GOTO2