Embed Notice

HTML Code

<blockquote style="position: relative; padding-left: 55px;"><section><a href="https://twiukraine.com/users/RLabibov/statuses/110949114879687505">r_labibov (rlabibov@twiukraine.com)'s status on Saturday, 26-Aug-2023 02:26:15 JST</a><a href="https://twiukraine.com/@RLabibov" title="rlabibov@twiukraine.com"><img src="https://gnusocial.jp/avatar/163479-48-20230825172615.webp" width="48" height="48" alt="r_labibov" style="position: absolute; left: 0; top: 0;">r_labibov</a><div><a href="https://mastodon.me.uk/@bbcmicrobot/110949112360274204" rel="in-reply-to">in reply to</a><ul><li></ul></div></section><article><p><a href="https://mastodon.me.uk/@bbcmicrobot">@bbcmicrobot</a> <br><a href="https://twiukraine.com/tags/bbcmicrobot" rel="tag">#bbcmicrobot</a> R%=500<br>MODE1<br>VDU19,1,5;0;29,640;512;<br>MOVE0,0<br>GCOL32,1<br>FORI%=0TO540STEP4<br>MOVE0,0<br>S=R%*COS(5*RAD(I%)/3):S=S*(1+.1*(ABS(S)/R%&gt;.9))<br>PROCC(85,S,I%)<br>NEXT<br>GCOL0,3<br>FORI%=0TO360STEP45<br>PROCP(R%*.2,I%)<br>PROCP(R%*.3,I%+22)<br>NEXT<br>MOVE640,0<br>VDU5<br>DEFPROCC(k%,R,I%):PLOTk%,R*COSRAD(I%),R*SINRAD(I%):ENDPROC<br>DEFPROCP(R,I%):MOVE0,0:PROCC(5,R,I%):PLOT&amp;99,12,12:ENDPROC</p></article><footer><a rel="bookmark" href="https://gnusocial.jp/conversation/1989104#notice-3907406">In conversation</a><time datetime="2023-08-26T02:26:15+09:00" title="Saturday, 26-Aug-2023 02:26:15 JST">Saturday, 26-Aug-2023 02:26:15 JST</time> <span>from <span><a href="https://twiukraine.com/@RLabibov/110949114879687505" rel="external" title="Sent from twiukraine.com via ActivityPub">twiukraine.com</a></span></span><a href="https://twiukraine.com/@RLabibov/110949114879687505">permalink</a></footer></blockquote>

Corresponding Notice

Embed this notice
r_labibov (rlabibov@twiukraine.com)'s status on Saturday, 26-Aug-2023 02:26:15 JSTr_labibov
in reply to
- BBC Micro Bot :mastodon:
@bbcmicrobot
#bbcmicrobot R%=500
MODE1
VDU19,1,5;0;29,640;512;
MOVE0,0
GCOL32,1
FORI%=0TO540STEP4
MOVE0,0
S=R%*COS(5*RAD(I%)/3):S=S*(1+.1*(ABS(S)/R%>.9))
PROCC(85,S,I%)
NEXT
GCOL0,3
FORI%=0TO360STEP45
PROCP(R%*.2,I%)
PROCP(R%*.3,I%+22)
NEXT
MOVE640,0
VDU5
DEFPROCC(k%,R,I%):PLOTk%,R*COSRAD(I%),R*SINRAD(I%):ENDPROC
DEFPROCP(R,I%):MOVE0,0:PROCC(5,R,I%):PLOT&99,12,12:ENDPROC
In conversationSaturday, 26-Aug-2023 02:26:15 JST from twiukraine.compermalink

Public

Embed Notice

HTML Code

Corresponding Notice