DIM V(6):DIM W(6)
FOR I=0 TO 5
V(I)=I*10:W(I)=1
NEXT
X=15:Y=25
A=0:B=0
WHILE 1
CLS
LOCATE X,Y:PRINT "A"
LOCATE A,B:PRINT "!"
FOR I=0 TO 5
IF W(I) THEN LOCATE V(I),W(I):PRINT "M"
NEXT
FOR I=0 TO 5
IF W(I) THEN
W(I)=RND % 2 + W(I):V(I)=RND % 3 + V(I)-1
IF W(I)>25 THEN W(I)=1
IF V(I)=A THEN IF W(I)=B THEN W(I)=0:B=0
ENDIF
NEXT
IF SW AND 8 THEN X=X+1
IF SW AND 4 THEN X=X-1
IF X<0 THEN X=0
IF X>120 THEN X=120
IF B=0 THEN
IF SW AND 16 THEN A=X:B=Y
ELSE
B=B-1
ENDIF
WEND
