l=7
s=520
h=s*Sqr(3)/2
x=320-s/2:y=160-h/3
b=320+s/2:c=y
d=320:e=160+h*2/3
CLS RGB(Blue)
PROCF(x,y,b,c,l)
PROCF(b,c,d,e,l)
PROCF(d,e,x,y,l)
End

Sub PROCF(x,y,b,c,l)
If l=0 Then PROCd(x,y,b,c) Else PROCsd(x,y,b,c,l)
End Sub

Sub PROCd(x,y,b,c)
Line x,y,b,c
End Sub

Sub PROCsd(x,y,b,c,l)
Local i,j,k,m,n,o,g,h,a
a=Pi/3
g=(b-x)/3:h=(c-y)/3
i=x+g:j=y+h
k=x+2*g:m=y+2*h
n=i+(g*Cos(a)-h*Sin(a))
o=j+(g*Sin(a)+h*Cos(a))
PROCF(x,y,i,j,l-1)
PROCF(i,j,n,o,l-1)
PROCF(n,o,k,m,l-1)
PROCF(k,m,b,c,l-1)
End Sub