void gui_puts(char *str, int mode)
{
while (str && *str)
{
grpprt(*str++, mode);
}
}
main()
{
float a,e,u,o,p,q,h,i,j,k,x,y;
int f,t,z,s;
static char warn[] = "ANY KEY QUITS";
a = -1.1; /* links (-2..0) */
e = .95; /* rechts (0..2) */
u = -1.33; /* onder (-2..0) */
o = 1.85; /* boven (0..2) */
f = 15; /* diepte (1..) */
x=((e-a)/(MAXX-1));
y=((o-u)/(MAXY-1));
p=a;
q=o;
screen(SCR);
color(15,1,1);
setpg(1,1); /* teken op pagina 1 */
cls();
inispr(4); /* sprites uit */
glocate(10,200);
for(z=0;z<strlen(warn);z++)
grpprt(warn[z],PSET); /* zet text op het scherm */
for(z=1;z<9;z++) /* verander paletkleuren */
setplt(z,(z-1)<<4);
for(z=9;z<16;z++)
setplt(z,((7-(z-9))<<4)+((z-8)<<8));
for(z=10;z<MAXY;z++) /* verticale resolutie */
{
for(s=0;s<(MAXX);s++) /* horizontale resolutie */
{
t=0;
h=i=j=k=0;
lus:
if ((t==f) || ((j+k) >= 8))
{
pset(s,z,t,PSET); /* pset (x,y,kleur,logop */
p += x;
}
else {
i *= h; i += i; i -= q; h = (j-k-p);
j = (h*h); k = (i*i); t++;
goto lus;
}
} /* loop S */
p=a;
q -= y;
if (kbhit()) /* indien toetsdruk */
{
reset_all();
exit(0); /* eindig */
}
} /* loop Z */
beep();
z = getch(); /* wacht op toetsdruk */
reset_all();
} /* main */