#bbcmicrobot 🚀 MODE1:VDU19,1,4,0,0,0,5
G=1.32471795724474602596:A=1/G:B=A*A
X=0.5:Y=0.5
FORI=0TO2E5:X=(X+A)-INT(X+A):Y=(Y+B)-INT(Y+B)
U=INT(1280*X):V=INT(1024*Y):GCOL1,0
IF((U-500)^2+(V-300)^2<4E4)AND((U-450)^2+(V+(U AND15)-200)^2>5E4):GCOL0,1+(U AND1)+(V AND2)
IF(U-1E3)^2+(V+2100)^2<6E6:GCOL0,3:ELSEGOTO130
D=(1000*X)-INT(1000*X)
P=X*10:Q=Y*20:C=(2*SIN(P-2*Q)+2*SIN(4*P+3*Q)+2*SIN(3*Q-5*P)+2*SIN(7*P+5*Q)+SIN(5*P+11*Q)+SIN(10*P+7*Q))
IFC>3ANDC<5:D=D-(C-3)/2
P=X*2:Q=Y*8:C=(2*SIN(P-2*Q)+2*SIN(4*P+3*Q)+2*SIN(3*Q-5*P)+2*SIN(7*P+5*Q)+SIN(5*P+11*Q)+SIN(10*P+7*Q)):IFC>3ANDC<4.5:D=D-(C-3)/3
IFD<0.6:GCOL1,0
PLOT69,U,V
NEXT
G=1.32471795724474602596:A=1/G:B=A*A
X=0.5:Y=0.5
FORI=0TO2E5:X=(X+A)-INT(X+A):Y=(Y+B)-INT(Y+B)
U=INT(1280*X):V=INT(1024*Y):GCOL1,0
IF((U-500)^2+(V-300)^2<4E4)AND((U-450)^2+(V+(U AND15)-200)^2>5E4):GCOL0,1+(U AND1)+(V AND2)
IF(U-1E3)^2+(V+2100)^2<6E6:GCOL0,3:ELSEGOTO130
D=(1000*X)-INT(1000*X)
P=X*10:Q=Y*20:C=(2*SIN(P-2*Q)+2*SIN(4*P+3*Q)+2*SIN(3*Q-5*P)+2*SIN(7*P+5*Q)+SIN(5*P+11*Q)+SIN(10*P+7*Q))
IFC>3ANDC<5:D=D-(C-3)/2
P=X*2:Q=Y*8:C=(2*SIN(P-2*Q)+2*SIN(4*P+3*Q)+2*SIN(3*Q-5*P)+2*SIN(7*P+5*Q)+SIN(5*P+11*Q)+SIN(10*P+7*Q)):IFC>3ANDC<4.5:D=D-(C-3)/3
IFD<0.6:GCOL1,0
PLOT69,U,V
NEXT

