#atari8bitbot — Public Fediverse posts
Live and recent posts from across the Fediverse tagged #atari8bitbot, aggregated by home.social.
-
#atari8bitbot {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) -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot 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) -
#Atari8BitBot 0REMMK&J#C]E'a='G_N%X'aFU#F`#5F>#MKDaF,R5'DaF*#=#Db\bLb-$W)N%WDb-#F.#M*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) -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {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 -
#Atari8BitBot {B80}
GR.11:C.2:PL.8,0:F.S=0TO1023:H=S:T=PEEK(ADR("@acb
")+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 -
#Atari8BitBot {S60}
1D=9:DIMX(D),Y(D):GR.11:DEG:X=40:Y=191:A=90:GOS.3:DO:PA.0:C.1+(X MOD15):TE.16,0,"AUTUMN":X=X+1:LOOP
3 X(R)=X:Y(R)=Y:R=R+1:C.6+(9-D):PL.X,Y:IF0<D:X=X+COS(A)*D:Y=Y-4*SIN(A)*D:DR.X,Y:D=D-1:A=A-21:GOS.3:A=A+42:GOS.3:A=A-21:D=D+1:END.:R=R-1:X=X(R):Y=Y(R):RET. -
#Atari8BitBot {S99}
1 GR.10:C=2:FOR I=0 TO 7:V=2+(2*(7-I)*(I>2)+2*I*(I<3))+(I*32):POK.$02C1+I,V:N.I
2 DO:C.1:F.Y=0TO23:F.X=0TO9:TE.X*8,Y*8,CHR$(6+RAND(2)):N.X:N.Y
3 F.Y=0TO23:F.X=0TO9:C.C:C=C+1:IF C>9:C=2:END.
4 PAINT X*8+3,Y*8:N.X:N.Y:PA.100:LOOP -
#atari8bitbot 1MO.$E000,$8000,$400:MO.$8200,$8201,8:GR.17:POK.$02C4,$CC:POK.756,$82:POK.$BD63,$76:F.I=$BD66TO$BD7B:POK.I,$36:N.I:POK.I,$16:DO
2F.I=0TO7:PA.0:POK.$D404,7-I:POK.$D405,I:F.J=0TO3:POK.$BFC0+I*%3+J,6+PEEK($D20A)&%1:N.J:N.I:PA.0:DPOK.$D404,8:MO.$BD99,$BD80,576:LOOP -
#atari8bitbot {S30}
0 GOS.1:DO:F.I=0TO7:PA.0:POK.$D404,8-I:N.I:PA.0:POK.$D404,8:MO.$BD81,$BD80,$023D:POK.$BFBD,6+RAND(2):LOOP
1 GR.17:POK.$BD63,$56:F.I=$BD66TO$BD7C:POK.I,22:N.I:POK.756,226:POK.708,15:F.I=$BD80TO$BFBD:POK.I,6+RAND(2):N.I:RET. -
#Atari8BitBot {B4S30}
1 MO.$E000,$8000,$400:MO.$8200,$8201,8
2 GR.17:POK.756,$82:POK.$02C4,$0F:POK.$BD63,$66:F.I=$BD66TO$BD7B:POK.I,$26:N.I
3 DO:F.I=0TO7:PA.0:POK.$D405,I:V=I*3:F.J=$BF60TO$BF63:POK.J+V,6+RAND(2):N.J:N.I
4 PA.0:POK.$D405,0:MO.$BD94,$BD80,480:POK.$D405,0:LOOP