Mathstodon

0 posts0 participants0 posts today

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/atari8bitbot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#atari8bitbot</a> {S30} 0R.M&+J^K2FT#+0#U'aK2M#+9#R#C@CHC/%R#C@SHS'#+0#M#+9#U'Z/Y+5#HCIJ#C+5#HSIJ#C;N%W5-$_aG#5bM=+%;Fa#D3PC)='D8PS)=+D8+Y_L3; 1R.IlKbIzAVPDTTDLVaIbTAATAQdZCXSHmRPTAQ@I@ 2F.I=0TO114:POK.256+I,4*(PEEK($3738+I)-35)+((PEEK($37B1+I DIV3))DIV4^(I MOD3))&3:N.I:I=USR(256)

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {CS99} PROC M()INT X,Y,A,B,P,L,R,C=765GRAPHICS(9)DO FOR X=-25TO 25DO R=256/X IF R<0THEN R=-R FI P=X*X/R L=X+39FOR Y=P TO 188-P DO A=LOCATE(L,Y)B=LOCATE(L,Y+1)R=RAND(2) IF A=B THEN C=C+R*2-1 ELSE C=A*R+B*(R!1)FI IF C>15THEN C=15FI IF C<0THEN C=0FI PLOT(L+1,Y)OD OD OD

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {B99S99} 0GR.9:F.X=0TO255:C.RAND(8):PL.RAND(79),RAND(191):N.X 1F.X=-25TO25:S=X+40:L=S-1:P=X*X/ABS(256/(X+.1)):F.Y=P TO188-P STEP2:LOC.L,Y,A:LOC.L,Y+2,B:R=RAND(2):IF A=B:C=C+R*2-1:EL.:C=A*R+B*(1EXORR):END.:IF C>15THENC=15 2C.ABS(C):PL.S,Y:PL.S,Y+1:N.Y:N.X 3G.3

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {CS90} PROC M()BYTE X,Y,R,O,L,U=85,V=84 GRAPHICS(24)POKEC(709,15)COLOR=1 X=RAND(180)Y=RAND(180) DO DO R=RAND(4)+1 UNTIL R<>O OD X=X/2 Y=Y/2 IF R<3 THEN X==+90 FI IF R=2 OR R=3 THEN Y==+90 FI U=70+X V=Y+6 [32$F1D8] O=L L=R-1 IF L=0 THEN L=4 FI OD

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {B10S30} 1 GR.10:DPOKE $02C1,$DC80:POKE $02C3,15 4 COLOR 3:TEXT 10,44,"WE STAND":TEXT 5,140,"WITH YOU!" 5 COLOR 2:PLOT 0,96:DRAWTO 79,96:PAINT 56,144:PAINT 0,97 7 COLOR 1:PAINT 0,0:PAINT 56,144:DO:LOOP

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {B60S60} 1GR.31:DP.708,$2E0F:POK.710,$34:DEG 3FOR I=0TO359:C.1:PL.80+25*SIN(I),96-50*COS(I) 5FOR J=1TO3:C.J:R=55+RAND(J*J*4.5):DR.80+(R/2)*SIN(I),96-R*COS(I) 7N.J:N.I:DO:LOOP

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {B99S99} 0GR.10:DP.708,$8472:DP.710,$A896 1FORI=0TO3000:IFZ<=0:F=0:X=Y/4:Y=-8+RND*16:Z=0.2:END. 3U=40+X/Z:V=96+Y/Z:IFU<0ORU>79ORV<0ORV>191THENZ=0:N.I 5C.C:IFF:DR.U,V:EL.:PL.U,V:END.:F=1:C=1+C MOD8:Z=Z-.005:N.I 7DO:PA.2:V=PEEK(712):-M.705,706,7:POK.705,V:LOOP

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {CS90} PROC S()INT X=85 BYTE Y=84,V,L GRAPHICS(24) POKEC(709,15) COLOR=1 DO WHILE V=L DO V=RAND(4) OD X=X RSH 1 Y=Y RSH 1 IF V<2 THEN X=X+160 FI IF V=1 OR V=2 THEN Y=Y+96 FI [32$F1D8] L=V OD

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> 0R.MK7F><a href="https://mastodon.social/tags/R" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#R</a>.<a href="https://mastodon.social/tags/HMU" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#HMU</a>'a+]<a href="https://mastodon.social/tags/UWaKbPN" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#UWaKbPN</a>@NHN]W`LMI#$5*IC$U']/N###<a href="https://mastodon.social/tags/M" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#M</a>#DQM#DQN#$>C$5M)M'@<a href="https://mastodon.social/tags/G" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#G</a>#MbH#\Q\Q\Qb#XEW[\PTOTON%XWaEH#]'a/TM6+_<a href="https://mastodon.social/tags/M" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#M</a>#+_<a href="https://mastodon.social/tags/J" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#J</a>+Q]W#\`;XnYm@AhT]Aga]H@BQDQGFjTMvmHnDdHbC[@cMSpTCZ@ 1F.I=0TO126:POK.256+I,4*(PEEK($3738+I)-35)+(PEEK($37B7+I DIV3)DIV4^(I MOD3))&3:N.I:?USR(256)

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> 1GR.9:F.Y=128TO191:C.Y/4:PL.0,Y:DR.79,Y:R=RAND(79):C.R:PL.R,RAND(127):N.Y:D.169,80,205,11,212,208,251,169,192,141,27,208,140,26,208,208,239 2F.X=60TO76:C.X+3:PL.(X/1.5),128:DR.X,191:REA.A:POK.1988+X,A:N.X:F.X=0TO31:C.X/2:PL.30,12:DR.X+14,51:DR.30,91:N.X:?USR(2048)

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> 0REMMK&J#C]E'a='G_N%X'aFU#F`<a href="https://mastodon.social/tags/5F" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#5F</a>><a href="https://mastodon.social/tags/MKDaF" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#MKDaF</a>,R5'DaF*#=#Db\bLb-$W)N%WDb-<a href="https://mastodon.social/tags/F" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#F</a>.<a href="https://mastodon.social/tags/M" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#M</a>*K-GbUGbK7GbUGbK$)K#OaK7?aK-?aK-?a5E1_aO#5bGa\a\aWZ\a\aUWX_GrA@U\CGFZ[TEQgEefMfF]TSAAEDBTPADXHdXgbbfKC 1F.I=0TO125:POK.256+I,4*(PEEK($3738+I)-35)+(PEEK($37B6+I DIV3)DIV4^(I MOD3))&3:N.I:?USR(256)

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {CS90} PROC S() BYTE X=85,Y=84,V=8,R=$D20A INT A=0,B=2,C=4,D=6 GRAPHICS(24) COLOR=1 POKEC(709,15) X=R&127 Y=R&127 DO V=R&3 A=X RSH 1 B=Y RSH 1 IF V<2 THEN A==+90 FI IF V=1 OR V=2 THEN B==+90 FI C=A-90 D=B-90 IF (C*C)+(D*D)>600 THEN X=70+A Y=B [32$F1D8] X==-70 FI OD

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> 0R.M%DbKbKb)Pb@bHb]W`K#LaJ#BJ#B5bI#BE%-_D`5555$`J#CI#CE^'#'VN%X'aF`<a href="https://mastodon.social/tags/5F" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#5F</a>><a href="https://mastodon.social/tags/F" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#F</a>;<a href="https://mastodon.social/tags/N" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#N</a>,RF;#5'F,RK(K,R#BA#B-*Fbb^;<a href="https://mastodon.social/tags/W" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#W</a>#^;<a href="https://mastodon.social/tags/U" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#U</a>']E'\V9#V9#^9#61#QpBQFpREFwaZtjvAAxQM\hmQEUQA{aa]oD[IBIIyQA 1F.I=0TO123:POK.256+I,4*(PEEK($3738+I)-35)+(PEEK($37B4+I DIV3)DIV4^(I MOD3))&3:N.I:?USR(256)

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {CB90S90} PROC M()INT U,V,X,Y,I,J,K,C,D,S,T GRAPHICS(9)V=0FOR I=-300TO 0DO U=0FOR J=-512TO 192DO X=0Y=0K=0WHILE K<15DO S=X/16C=S*S T=Y/16D=T*T IF C+D>1024THEN EXIT FI Y=S*Y/8+I X=C-D+J K==+1OD COLOR=K PLOT(5+U,21+V)PLOT(5+U,171-V)U==+1J==+9OD V==+1I==+3OD DO OD

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {CS60} PROC F()BYTE ARRAY H(320)=1536,S(256)INT U,V,X,Y U=0V=0FOR X=0TO 127DO V=V+U Y=V/256S(X)=Y S(-X)=Y U==+2-4*(X/64)OD Graphics(8)COLOR=1 FOR Y=-80TO 80DO FOR X=-80TO 80DO U=160-(X-Y/2)V=60+S((X*X+Y*Y)/32)+Y/2IF V>H(U)THEN H(U)=V PLOT(U,160-V)FI OD Y==+2OD DO OD

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {CB30} PROC S()BYTE W=$D40A,V=W+1BYTE ARRAY L(96)INT X,Y,K GRAPHICS(23)FOR Y=13TO 95DO L(Y)=(Y/8&1)*15FOR X=0TO 159DO COLOR=1+(3*(X-80)/Y&1)PLOT(X,Y)OD OD DO WHILE V#16DO OD FOR Y=0TO 95DO K=L(95-Y)W=0[$ADK$8D$D016$49$F$8D$D017]W=0OD L(95)=L(13)MOVEBLOCK(L,L+1,95)OD

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {C} PROC R() BYTE V=$D40B,C=$D01A,W=$D40A,R=$14,D=$22F, Q,T D=0 DO Q=(V-R) LSH 1 T=Q&$10 IF T THEN T=$1F FI W=1 C=Q!T OD

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {CS40} PROC C() BYTE X,Y,DX,DY Graphics(22) Poke($2C4,$C8) FOR X=0 TO 80 DO FOR Y=0 TO 80 DO COLOR=1 DX=X DY=Y DO IF (DX MOD 3)=1 THEN IF (DY MOD 3)=1 THEN COLOR=0 EXIT FI FI DX==/3 DY==/3 UNTIL (DX=0 AND DY=0) OD PLOT(X,Y) OD OD DO OD

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {C} PROC H()INT S,H,M,N,X,Y,C,T GRAPHICS(8)COLOR=1FOR S=0TO 1023DO T=S&3!(S&2)/2 H=S/4 Y=T&1 X=T/2 M=4 WHILE M<64DO N=M/2 C=H&3 IF C=0THEN T=X X=Y Y=T FI IF C=1THEN Y=Y+N FI IF C=2THEN X=X+N Y=Y+N FI IF C=3THEN T=Y Y=N-1-X X=M-1-T FI H==/4 M==*2 OD DRAWTO(X*4,Y*4)OD

🇵🇱 Seban/Slight 🇺🇦<a href="https://mastodon.social/tags/Atari8BitBot" class="mention hashtag" rel="nofollow noopener noreferrer" target="_blank">#Atari8BitBot</a> {B80} GR.11:C.2:PL.8,0:F.S=0TO1023:H=S:T=PEEK(ADR("<a href="https://mastodon.social/@acb" class="u-url mention" rel="nofollow noopener noreferrer" target="_blank">@acb</a> ")+H&3):H=H DIV4:Y=T&1:X=(T&2)/2:M=4:W.M<64:N=M/2:C=H&3 2IF 0=C:T=X:X=Y:Y=T:END.:IF 1=C:Y=Y+N:END.:IF 2=C:X=X+N:Y=Y+N:END.:IF 3=C:T=Y:Y=N-1-X:X=N-1-T+N:END.:H=H DIV4:M=M*2:WE.:C.1+(S MOD15):DR.8+X*2,Y*6:N.S 3G.3

Recent searches

Search options

Administered by:

Server stats:

#atari8bitbot