#!/usr/local/bin/yabasic
rem Released under GPL License distribute and modify freely
rem version 0.1b1 (needs lots of modifications but works :-)
header$="Yamandel, Copyright (c) Hermang H. Mansilla Mattos, Nov 1998"
goto Main
label Initialize
Ro=-1.60:Io=-1.0
Rn=0.60:In=1.0
rem Ro=-1.0:Io=-0.7
rem Rn=-0.5:In=0
delta=0.01
VentXmax=300
VentYmax=260
IterMax=350
dim buffer(VentXmax/8,VentYmax)
return :rem Initialize

label showcord
print @(8,14) "From:";
print @(8,15) "Real=",str$(Ro);
print @(8,16) "Imag=",str$(Io);
print @(8,17) "To:";
print @(8,18) "Real=",str$(Rn);
print @(8,19) "Imag=",str$(In);
return:rem showcord

label Mandelbrot
ZR=0
ZI=0
n=0
label Lazo
TR=R+ZR*ZR-ZI*ZI
TI=I+2*ZI*ZR
ZR=TR
ZI=TI
n=n+1
MAG2=ZR*ZR+ZI*ZI
if MAG2>4 then 
    answer$="N"
    goto Salir
fi
if n"f10" then goto handlekey fi
close window
end

    Source: geocities.com/sunsetstrip/palms/1624/yabasic/graphics

               ( geocities.com/sunsetstrip/palms/1624/yabasic)                   ( geocities.com/sunsetstrip/palms/1624)                   ( geocities.com/sunsetstrip/palms)                   ( geocities.com/sunsetstrip)