geoffl on Nostr: #bbcmicrobot 🎬 MO.1:C.-3:CLS:C.-2:A%=135:X=36:Y=28 ...

#bbcmicrobot 🎬 MO.1:C.-3:CLS:C.-2:A%=135:X=36:Y=28
V.23,-1,-1;-1;-1;-1;28,2,30,39,1
F.I=0TOX:F.J=0TOY
A=0:IF(J+1)MOD2A=39
IFI=X A=46
V.31,I,J,A:N.,
R=RND(2)*4-6:IFRND(1)*2I=ABS(X+R)ELSEJ=ABS(Y+R)
IFI>36I=36
IFJ>28J=28
C.3
IFJ>Y V.31,I,Y+1,46
IFJ<Y V.31,I,Y-1,44
IFI>X V.31,X+1,J,39
IFI<X V.31,X-1,J,45
V.31X,Y,32
X=I:Y=J
C.1
V.31,X,Y,77
PROCD(X,Y+1,46)
PROCD(X,Y-1,44)
PROCD(X+1,Y,39)
PROCD(X-1,Y,45)
GOTO70
DEFPROCD(U,V,D)
V.31,U,V
!&70=USR(&FFF4)
IFD=?&71V.8,31,U,V,255
ENDPROC