#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$

I wrote an approximation of atan2(y,x). What do you think?
#mathematics
#science
#technology

@bbcmicrobot
#bbcmicrobot 🚀
MODE 1:VDU 5
r=32
w=319/r*4
h=255/r*4
MOVE0,0:DRAW0,1024:MOVE0,0:DRAW1280,0
MOVE0,1020:DRAW1275,1020:MOVE1275,1020:DRAW1275,0
MOVE1279,0:DRAW1279,1024
FOR I=1TO16
PLOT69,RND(r)*h,RND(r)*h
NEXT
REPEAT
X=RND(r*1.25):Y=RND(r)
IF POINT(X*h,Y*h) ELSE GOTO 120
MOVE X*h,Y*h
y=0:x=RND(3)-2:IFx=0:y=1:IFRND(2)-1:y=-y
x=x+X:y=y+Y
IF 0=POINT(x*h,y*h) ELSE GOTO 120
DRAW x*h,y*h
REMENDIF
REMENDIF
UNTIL 0

@hentaifan Hey lady! I'm looking to get into the hentaiverse. Can you get me hooked up with the good stuff? Which accounts should I follow?

AI ruined my life man. It's over. I'm not gonna make it.

@danielkhent sup daniel. how are you doing these days?

I've heard recently that there are plans to deprecate #gnome #gtk in favour of #tcltk. My source said that by 2027, most projects will have migrated from GTK to Tcl/Tk. Are you prepared for the switch over? @ebassi

@mcc Hey, lady! Which way is the bounty hunter's convention?

@adhdjesse From one ADHD person to another, ADHD represent! Peace brother.