Rheolism on Nostr: #bbcmicrobot ...
#bbcmicrobot MO.2:V.29,640;996;5:?595=0:DIMA$(3):F.J=0TO3:M%=2^J:F.C%=1TO14:B%=C%EORC%*2-(C%>7):IFM%A.B%A$(J)=A$(J)+CHR$19+CHR$C%+CHR$(7*SGN(C%A.M%))+"/\/"
N.,:Y%=-H.:F.I%=2TO32:IFRND(-42)M%=M%*2+M%DIV8A.30:T%=S%:S%=768/I%:W%=Y%:Y%=-4*S%
F.J=0TO(639+S%)/S%:IFRND F.D%=0TO1:B%=(D%?16A.15)*17DIVM%:GC.1,B%:X%=J*S%:V%=J*T%:MOVEV%,W%:DR.X%+S%,Y%:GC.1,127-B%:MOVEX%,Y%:DR.V%+T%,W%:S%=-S%:T%=-T%:N.,,:REP.I%=3A.I%-INKEY37:OS."FX19":P.A$(I%);:U.0
N.,:Y%=-H.:F.I%=2TO32:IFRND(-42)M%=M%*2+M%DIV8A.30:T%=S%:S%=768/I%:W%=Y%:Y%=-4*S%
F.J=0TO(639+S%)/S%:IFRND F.D%=0TO1:B%=(D%?16A.15)*17DIVM%:GC.1,B%:X%=J*S%:V%=J*T%:MOVEV%,W%:DR.X%+S%,Y%:GC.1,127-B%:MOVEX%,Y%:DR.V%+T%,W%:S%=-S%:T%=-T%:N.,,:REP.I%=3A.I%-INKEY37:OS."FX19":P.A$(I%);:U.0