#atari8bitbot {CS70}

PROC C() INT X,Y

Graphics(8+16)

COLOR=1

FOR Y=0 TO 191

DO

FOR X=0 TO 319

DO

IF Rand(192)<Y THEN

PLOT(X,Y)

FI

 OD

OD

DO OD

RETURN

#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 0R.MK7F>#R.#HMU'a+]#UWaKbPN@NHN]W`LMI#$5*IC$U']/N####M#DQM#DQN#$>C$5M)M'@#G#MbH#\Q\Q\Qb#XEW[\PTOTON%XWaEH#]'a/TM6+_#M#+_#J+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)