ACLS:SPSET 0,0
FOR I=1 TO 5
BGPUT 0,RND(25),RND(15),I
NEXT
@LOOP
BU=BUTTON(0)
IF BGGET(0,X,Y+1,1)<1 && BGGET (0,X,Y+14,1)<1 && BU AND 4 THEN X=X-2
IF BGGET(0,X+15,Y+1,1)<1 && BGGET(0,X+15,Y+14,1)<1 && BU AND 8 THEN X=X+2
IF BGGET(0,X+1,Y,1)<1 && BGGET(0,X+14,Y,1)<1 && BU AND 1 THEN Y=Y+2
IF BGGET(0,X+1,Y+15,1)<1 && BGGET(0,X+14,Y+15,1)<1 && BU AND 2 THEN Y=Y+2
SPOFS 0,X,Y
WAIT 1:GOTO @LOOP