#bbcmicrobot $@%="4F1B5G9CH3EHA6I7B479B8DCF1E1D37BHEI6F85IA4CG2BGI6CED81834E72AFIIA74862ECE2FCI1847":ë2:X=0:Y=0:ÞC(2,12):ÞS(9,9)
û7:û132:ãI=0¸1:ãJ=0¸11ƈ3:P=³(3)-1:C(I,J)=P:Q=³(2):C(I,J+1)=(P+Q)ƃ3:C(I,J+2)=(P+3-Q)ƃ3:í,:R=³(2)-1
ãI=0¸8:ãJ=0¸8:Q=((C(R,I Ɓ3)*3+C(R,I+3))*9+(C(1-R,J Ɓ3)*3+C(1-R,J+3))):S(I,J)=@%?Q:í,
ãI=0¸8:ãJ=0¸8:N=S(I,J):M=N Ɓ16:ñƊ2*I,2*J);½((4-M)*(M>4)-N*(M=3)-32*(M=4));:í,
K=0:Z=0:õ
çK=1:Z=¦(0):X=(X+(Z=79)-(Z=80)+9)ƃ9:Y=(Y+(Z=69)-(Z=68)+9)ƃ9:çZ>48ƀZ<58:S(X,Y)=(S(X,Y)ƃ16)+16*(Z-44)
ï23,1,0;0;0;0;:N=S(X,Y):M=N Ɓ16:A=N ƃ16:û6-(M=3ƄA=M-4):û132+K:ñƊ2*X,2*Y);½((4-M-48)*(M>4)-N*(M=3)-32*(M=4));
K=1-K:ýZ=32:å20

#bbcmicrobot ë0:P=0:ãN=1¸64:P=(P+37)ƃ64:I=(P Ɓ8)+1:J=(P ƃ8)+1:ìJ*98,I*98
çI=1ð1,98,0:Ƌð1,41,0:ð0,8,12:ð0,8,-12:ð&A1,-16,0:ð0,16,0:ð1,41,0
çJ=8ð1,0,98:Ƌð1,0,41:ð0,12,8:ð0,-12,-8:ð&A1,0,16:ð1,0,41
çI=8ð1,-98,0:Ƌð1,-41,0:ð0,-8,12:ð0,8,-12:ð&A1,-16,0:ð1,-41,0
çJ=1ð1,0,-98:Ƌð1,0,-41:ð0,12,-8:ð0,-12,-8:ð&A1,0,16:ð0,0,-16:ð1,0,-41
ãZ=1¸99:X=³(124):Y=³(124):U=X ƃ98:V=Y ƃ98:T=-(U>V)*U-(U<=V)*V:V=-(V>U)*U-(V<=U)*V:U=T:W=(V-12)*(V-12)+(U-49)*(U-49)<144
ç((¬W ƀX<98ƀY<98)Ƅ(W ƀ((J=1ƀX<24)Ƅ(I=1ƀY<24)Ƅ(J<8ƀX>98)Ƅ(I<8ƀY>98))))ƀ(((J*98+X-490)^2+(I*98+Y-490)^2)<1E5) ð69,J*98+X,I*98+Y
í,

#bbcmicrobot
REM Did you know you can program BBC BASIC in morse code?
VDU -... .- ... .. -.-. .-. ..- .-.. . ...

#bbcmicrobot 🚀 @bbcmicrobot
CLS
v$="oieua"
c$="hgdvtscbpn"
t$=",.!?"
p$="."
IFRND(-1650)
REPEAT
w$=FNw(RND(5),RND(2)-2)
V%=167*LENw$:FORz=1TOLENw$:V%=(V%+ASCMID$(w$,z))EOR&AA76:NEXT
IFp$<>",":w$=CHR$(ASCw$-32)+RIGHT$(w$,LENw$-1): p$=","
IFRND(100)<16: p$=FNr(t$): w$=w$+p$
IFPOS+LENw$>35: PRINT:VDU8
PRINT;CHR$(135+(V%=43952)*5);w$;
UNTILVPOS>22
END
DEFFNr(s$)=MID$(s$,RND(LENs$),1)
DEFFNl
v=NOTv
IFv:x$=FNr(v$) ELSE x$=FNr(c$)
=x$
DEFFNw(n,v)LOCAL w$
IF n=1:v=0
FORi=1TOn
w$=w$+FNl
NEXT
=w$

#bbcmicrobot MODE9+RND(-8):DIMC(16,16):FORI=1TO15:FORJ=1TO15:C(I,J)=INT(RND(1)+0.7):NEXT,:I=1:J=1:W=0:PRINTTAB(0,3);"INVISIBLE EXIT ->":REPEAT
IFW=0:U=I:V=J:R=-40:S=0:L=0:M=46:N=40:O=-21:P=40:Q=23
X=&71+2*(W MOD2):MOVE600+40*(U-V),100+23*(U+V):PLOT0,R,S:PLOT1,L,M:GCOL16,0:PLOTX,N,O:GCOL32,0:PLOTX,P,Q:GCOL48,0:PLOTX,-L,-M
IFW=0Z=INKEY(1E4):A=(Z=65)-(Z=68):B=(Z=83)-(Z=87)
W=W+1:IFW>3:W=0:IFC(I+A,J+B)=1:I=I+A:J=J+B
IFW=2ANDA<>0:U=I+A/2:R=-46:S=32:L=29:M=46:P=29:Q=-18
IFW=2ANDB<>0:V=J+B/2:R=-40:S=35:L=22:M=32:N=22:O=-45
UNTILI+J=30:PRINT"WIN!"