#Atari8BitBot {CS90}
PROC M()BYTE X,Y,R,O,L,U=85,V=84 GRAPHICS(24)POKEC(709,15)COLOR=1
X=RAND(180)Y=RAND(180)
DO
DO R=RAND(4)+1 UNTIL R<>O OD
X=X/2 Y=Y/2
IF R<3 THEN X==+90 FI
IF R=2 OR R=3 THEN Y==+90 FI
U=70+X V=Y+6 [32$F1D8]
O=L L=R-1 IF L=0 THEN L=4 FI
OD