#atari8bitbot
5 DIM O(6),XS(6),YS(6):PI=3.141592653589793
10 GR.7+16:SE.0,7,4:SE.2,0,14:SE.1,3,4:SE.4,0,14:W=159:H=95
15 FOR I=1 TO 6:READ V:O(I)=V:NEXT I
20 C.1:F.Y=0 TO H/5:PL.0,Y:DR.W,Y:N.Y
30 F.Y=2/5*H TO 3/5*H:PL.0,Y:DR.W,Y:N.Y
40 F.Y=4/5*H TO H:PL.0,Y:DR.W,Y:N.Y
50 C.2:F.Y=0 TO H/2:PL.0,Y:DR.Y,Y:N.Y
60 F.Y=H/2 TO H:PL.0,Y:DR.H-Y,Y:N.Y
64 C.3:X=W/8:Y=H/2:EXEC STAR
70 DO
80 C.2:TEXT 60,10,"free!!"
90 PAUSE 50
100 C.2:TEXT 60,10,"peace!"
110 PAUSE 50
120 LOOP
200 PROC STAR
220 TH=PI
225 FOR RS=2 TO 10
230 FOR JS=1 TO 6
240 TH=TH+2/5*PI
250 XS(JS)=RS*SIN(TH)+X:YS(JS)=RS*COS(TH)+Y
260 NEXT JS
270 FOR IS=1 TO 5
280 PLOT XS(O(IS)),YS(O(IS))
290 DRAWTO XS(O(IS+1)),YS(O(IS+1))
300 NEXT IS
310 NEXT RS
400 ENDPROC
500 DATA 1,3,5,2,4,1

10 GR.0: SE. 1,1,14:SE. 2,0,0
15 XMAX=39:YMAX=24:NBALLS=7
17 REM #Atari8bitbot
18 POKE 752,1
20 DIM x(NBALLS):DIM y(NBALLS):DIM dx(NBALLS):DIM dy(NBALLS):DIM cx(NBALLS):DIM cy(NBALLS):DIM CH(NBALLS)
25 FOR i=1 TO NBALLS
30 x(i)=RAND(XMAX)
40 y(i)=RAND(YMAX)
50 IF(RAND(2)=1):dx(i)=1:ELSE:dx(i)=-1:ENDIF
60 IF(RAND(2)=1):dy(i)=1:ELSE:dy(i)=-1:ENDIF
70 cx(i)=x(i)
80 cy(i)=y(i)
90 NEXT i
95 GOSUB 400
100 DO
110 FOR i=1 TO NBALLS
120 POS. cx(i),cy(i)
130 IF CH(i)=ASC("."):PRINT ".";:ELSE:PRINT " ";:ENDIF
140 x(i)=x(i)+dx(i)
150 y(i)=y(i)+dy(i)
160 IF x(i)<=0: x(i)=0:dx(i)=-dx(i) :ENDIF
170 IF y(i)<=0: y(i)=0:dy(i)=-dy(i) :ENDIF
180 IF x(i)>=XMAX: x(i)=XMAX-2:dx(i)=-dx(i) :ENDIF
190 IF y(i)>=YMAX: y(i)=YMAX-2:dy(i)=-dy(i) :ENDIF
200 cx(i)=x(i):cy(i)=y(i)
210 LOCATE x(i),y(i),CH:CH(i)=CH
230 POS. x(i),y(i): PRINT CHR$(20);: REM o
240 NEXT i
260 LOOP
400 FOR i=1 TO 100
410 POS. RAND(XMAX),RAND(YMAX): PRINT ".";
420 NEXT i
430 RETURN

#Atari8bitBot {S60B3}
10 GR. 8+16:C.1
20 PI=3.14159265:D=1.95
30 F.A=0 TO PI*2 STEP PI/30
40 X1=(280/2)+COS(A)*40+0.5
50 Y1=30+SIN(A)*20+0.5
60 X2=(280/2)+COS(A+D)*50+0.5
70 Y2=140+SIN(A+D)*40+0.5
80 PL. X1,Y1:PL.X2,Y2
85 DR. X1,Y1+A
90 N.A
100 PAUSE 1000

#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