#bbcmicrobot 🚀
c=0
v=0
n=1.13459834765789273529034509143698601928367481
q=1073741823
MODE2
VDU5
FORx=0TO1280 STEP 8
FORy=0TO1024 STEP 4
GCOL0,FNc(x/1280+.125*SIN(y/1024*PI*2))
PLOT69,x,y
NEXT,
END
DEFFNc(g)=VALMID$("73104677",1+g*6+FNr,1)
DEFFNr
c=c+1
a=c*n*(1-v)
c=c-v
c=c-INTc+(c ANDq)
v=a-INTa
=v

#bbcmicrobot 🚀
c=0
v=0
N=1.13459834765789273529034509143698601928367481
K%=69
W=320
MODE1
DIMa(W)
FORi=0TOW:a(i)=FNR*1024:NEXT
FORi=0TOW
FORj=W TOi STEP-1
IFa(i)>a(j):H=a(i):a(i)=a(j):a(j)=H
NEXT,
FORi=0TOW
GCOL0,(i AND 1)+1
MOVEi*4,0
DRAWi*4,a(i)
NEXT
END
DEFFNR
c=c+1
a=c*N*(1-v)
c=ABS(c-v-.5)
v=a-INTa
=v

#bbcmicrobot 🚀
c=0
v=0
N=1.13459834765789273529034509143698601928367481
K%=69
W=1280
H=1024
MODE4
REPEATPLOTK%,FNR*W,FNR*H
UNTILFALSE
DEFFNR
c=c+1
a=c*N*(1-v)
c=ABS(c-v-.5)
v=a-INTa
=v

#bbcmicrobot 🚀
C=0
V=0
MODE1
FOR X=0TO160
FOR Y=0TO255
GCOL0,4*FNr
PLOT69,X*8,Y*4
NEXT
NEXT
END
DEF FNr
C=C+1
A=1.1650923776443*C+V*1.7632896
C=C-V
V=A-INT A
=V

#bbcmicrobot 🚀
C=0
V=0
MODE2
FOR X=0TO160
FOR Y=0TO255
GCOL0,8*FNr
PLOT69,X*8,Y*4
NEXT
NEXT
DEF FNr
C=C+1
A=1.1650923776443*C+V*1.7632896
C=C-V
V=A-INT A
=V

REM Based on https://www.dwitter.net/d/28330
MODE0
FOR i=0.1TO1000STEP0.05
a=SIN(i*i)
b=SIN(i)
K=b/a
x=640-COS(K)*640*a*COS(b)
y=512-SIN(K)*512*a+SIN(K*8)*40*a
PLOT69,x,y
NEXT
#bbcmicrobot 🚀

REM Based on https://www.dwitter.net/d/28028
MODE0
GCOL0,131
GCOL0,0
CLG
DIMC(299)
FORI%=0TO299
C(I%)=COS(2*PI*I%/299)
NEXT
FORt=0.01TO30STEP0.15
FORI%=1280+64TO0STEP-4
X=I%
Y=39/t
W=3
FORS%=1TO4
A=(X/t+t*W/3)MODW-W/2
D=1-A*A/W/W*4
X=X-A*C((D+9)*30)-Y*A*D*t/9
Y=Y-A*D/t
W=W/0.6
NEXT
PLOT69,X-W,Y*t*1.4+W*t*1.4
NEXT,
#bbcmicrobot🚀

@bbcmicrobot #bbcmicrobot
MODE 4
Xint=0
Yint=0
Aint=0
REM
REMPROCtree(100,2)
PROCfd(600)
PROCrt(90)
PROCtree(200,8)
END
DEFPROCtree(Sint,Lint)
REM PRINT Lint
IF Lint<1 THEN ENDPROC
PROCfd(Sint)
PROClt(90)
PROCtree(Sint*0.7,Lint-1)
PROCrt(180)
PROCtree(Sint*0.7,Lint-1)
PROClt(90)
PROCfd(-Sint)
ENDPROC
DEFPROCfd(Dint)
MOVE Xint,Yint
Xint=Xint+Dint*COS(Aint*PI/180)
Yint=Yint+Dint*SIN(Aint*PI/180)
DRAW Xint,Yint
ENDPROC
DEFPROCrt(Tint)
Aint=Aint+Tint
ENDPROC
DEFPROClt(Tint)
PROCrt(-Tint)
ENDPROC

@feditips
10 MODE 2
20 COLOUR RND(7)
30 PRINT "Thanks Fedi.Tips"
40 GOTO 20
#bbcmicrobot

REM Ā¢Ɛ±pðĄQrƑrÈÊÐô©ƀepƅp©Ăeqƅq©ƀerƅr©ĂesƅsÆtÐÔ`
f=&70:t=&72:MODE1:V.5:O=PAGE*2:H=16:V=640:D=3:MOVE400,784:GOSUB80:FORE=0TO3
X=E*320+144:MOVEX,144:GOSUB80:MOVEX+32-(E MOD2)*64,144-32+(E DIV2)*64:GOSUB80:NEXT
IFO<&3000ORO>&52FFV=-V:D=2EORD
IFO MODV=0ORO MODV=112H=-H:D=1EORD
O=O+H+V:!f=&6980+(D*&A0):!t=O:t?2=9:*FX19
CALLPAGE+5:GOTO40
GCOL3,2:FORL=110TO8STEP-4:PLOT&99,L,0:PLOT0,-L,0:GCOL3,6-(L/4)MOD3:NEXT:RETURN
#bbcmicrobot

A=12:M=.48:D=7000
MODE0:VDU29,640;-1800;5
DIMP(A),Q(A)
FORL=0TOA:S=PI/A*2*L+PI/4
P(L)=D*.8*COSS:Q(L)=D*SINS:NEXT
REPEAT
R=(R+4+RND(3))MODA
X=X+(P(R)-X)*M:Y=Y+(Q(R)-Y)*M
PLOT69,X,Y
UNTIL0
#bbcmicrobot 🚀

MO.1
V.19;2;0;275;3;0;531;6;0;787;7;0;
DIMS(1,1):DIMD(31,31)
S(0,0)=0:S(1,0)=2
S(0,1)=3:S(1,1)=1
F.Y=0TO31
F.X=0TO31
F.K=0TO4
D(X,Y)=D(X,Y)+S((X/2^K)MOD2,(Y/2^K)MOD2)*4^(4-K)
N.,,
F.X=0TO320
F.Y=0TO256
S=SQR((X-160)^2+Y^2)*8
C=D(X MOD32,Y MOD32)+128
GC.0,-(C*1.25>S)-(C*1.75>S)-(C*2>S)
PL.69,X*4,Y*4
N.,
GC.0,3
F.L=1TO70
MOVE640,48:DR.RND(1279),RND(1023)
N.
V.5,1
#bbcmicrobot 🚀

@bbcmicrobot
T=3000
MODE0
V.19,0,7;0;19,1,0;0;29,640;512;
FORL=1TOT
A=10*PI*L/T
B=16*PI*L/T
X=1000*COSA*(1-0.5*(COSB)^2)
Y=1000*SINA*(1-0.5*(COSB)^2)
R=1000*((0.005)+(0.1)*(SIN((52*PI*L)/T))^4)
FORK=0TO2*PI STEPPI/R/1.5
PLOT69,500+X+(COSK)*R,-500+Y+(SINK)*R
NEXT,
#bbcmicrobot
🚀

@bbcmicrobot
REM 6?5F;HBGDHIFICF@E@D>D;E5E1E.D*E%F%H#F"B"A$A%@+@/>.=.9-8):"9!5!4"4%4*3.1/---(-&.%.$-#*#)%),-7.:'>"?"@ģA)A3<6=9=8?8A6? 9=:<;9?8A:B<D> <@:?9@:A;A<@ C@A?@@AABAC@ 9-:(;';&9& 8A;H E@BG ?8>;<;;9
MODE0:L=PAGE+5
REPEAT
GOSUB80
IFX L=L+2:P=5 ELSEL=L+1:P=4:GOSUB80
PLOTP,X*20+150,Y*20+100
UNTILL>PAGE+191:VDU5,1:END
X=?L-32:Y=L?1-32
RETURN
#bbcmicrobot

REM 6?5F;HBGDHIFICF@E@D>D;E5E1E.D*E%F%H#F"B"A$A%@+@/>.=.9-8):"9!5!4"4%4*3.1/---(-&.%.$-#*#)%),-7.:'>"?"@#A)A3<6=9=8?8A6? 9=:<;9?8A:B<D> <@:?9@:A;A<@ C@A?@@AABAC@ 9-:(;';&9& 8A;H E@BG ?8>;<;;9
MODE0:L=PAGE+5
REPEAT
GOSUB80
IFX L=L+2:P=5 ELSEL=L+1:P=4:GOSUB80
PLOTP,X*20+150,Y*20+100
UNTILL>PAGE+191:VDU5,1:END
X=?L-32:Y=L?1-32
RETURN
#bbcmicrobot

MO.1
S=160:I=4:D=412
J=I*S:DIML(J/.8)
V.5,29,638;510;275;4;0;531;2;0;19;7;0;787;0;0;
F.C=0TOJ/.8
E=(C*2*PI)/J
L(C)=SIN(E)*D
N.
F.Z=1TOJ/2 STEPI
W=L(Z)/D
F.C=I TOJ STEPI
GCOL1,RND(2)
B=(C+J/4)
E=L(C-I):F=L(B-I)
G=L(B):H=L(C)
MOVEE*W,F:DR.H*W,G
MOVEE,F*W:DR.H,G*W
N.,
V.1
#bbcmicrobot 🚀

MODE1
FORX=0TO1279STEP4
FORY=0TO1023STEP4
GCOL0,8*TAN(COSRAD(X+80)+COSRADY)-6
PLOT69,X,Y
NEXT,
VDU5,1
#bbcmicrobot 🚀

MODE1
VDU19;7;0;787;0;0;29,640;512;5
FORL=-5TO5STEP0.5
FORT=0TO2*PI STEP PI/720
R=50*(TAN(3*T)+L)
IF ABSR<800 GCOL0,1+ABSL/2.5:PLOT69,R*COST,R*SINT
NEXT,:VDU1
#bbcmicrobot
🚀

@bbcmicrobot
#bbcmicrobot 🚀
REMAGCKMEOGDLBJPHNF
P%=PAGE+5
MO.0
DATA0,0,0,0,1,1,0,0,2,3,4,6,2,3,6,7
A%=&9B:FORK%=0TO15:READV%:X%=(K%*16)+V%:CALL&FFF4:N.
s%=32
DIMc s%:FORn=1TOs%:c?n=16*LOG(n)/LOG(s%):N.
H=2.5/256
FORk%=0TO128
FORl%=0TO639
u=H*l%/2-2.1:v=H*k%-1.25:n=-1:x=0:y=0
REP.f=y*y:e=x*x:y=2*x*y+v:x=e-f+u:n=n+1.8:U.n>s%ORe+f>4
IFc?n+?(P%+(3ANDl%)+(3ANDk%)*4)>80 PL.69,2*l%,4*k%:PL.69,2*l%,1024-4*k%
N.,
VDU5,1

ë 0:I%=0:Þ M 16
ãI%=0¸15:ó M?I%:í
P%=1536+128:R=1:U%=1
õ
X=(P%-128*(P%Ɓ128))/64-2+U%/2.5:Y=P%/8E3-.6:Z=R/8-.5:U%=(U%+1)ƃ6
ç(R<12)ƀ¤f(U%)ƌR=R/0.96ƋòR(P%ƃ128*10,P%Ɓ128*12,R*1.5)
ýP%=7936
à
ÝòR(W%,H%,c)
M%=(W%/2)ƃ4
ãX%=W%¸W%+8ƈ2
N%=(H%/3)ƃ4
ãY%=H%¸H%+8ƈ4
I%=M%+N%*4
çM?I%>c ð69,X%,Y%
N%=(N%+1)ƃ4
í
M%=(M%+1)ƃ4
í
P%=P%+1:R=1:U%=1
á
ݤH(O,A)
=¶(A*A+O*O)
ݤf(r)
=¤H(¤H(ƛ(r)*Y-µ(r)*Z,X)-.3,ƛ(r)*Z+µ(r)*Y)>0.1
Ü0,8,2,10,12,4,14,6,3,11,1,9,15,7,13,5
#bbcmicrobot 🚀
@bbcmicrobot