Piramide egipcia en Basic

Hola buenas a todos hoy os presenta una piramide egipcia q es 100%REAL.Estos codigos te permitiran crear una piramide personalizada a tu gusto,como si fuera un bufet,no es muy dificl son solo un par de codigos y un par de numeros,si usted quiere mi preciada ayuda Contacteme por google+.Un saludo Lorenzo Gómez.

CODIGOS:

fastgraphics
graphsize 600,300
For n = 1 to 300
plot (300,1)
Print "Fractal rule every "+n+" rows"
For y = 1 to 300
For x = 1 to 600
a=0
if pixel(x-1,y)=black then a=a+1
if pixel(x,y)=black then a=a+10
if pixel(x+1,y)=black then a=a+100

if y/n = int (y/n) then 
gosub fractal
else
gosub chaotic
end if

next x
refresh
next y
refresh
clg
next n

chaotic:
if a=001 or a=110 or a =010 or a=100 then plot (x,y+1)
return
fractal:
if a=001 or a=010 or a=100 then plot (x,y+1)

return

Resultado Final.

No se olviden de los signos,las comillas,los puntos y esas letras que se cuelan JIJI.

Un Saludo Lorenzo Gomez