008
17.04.2019, 09:00 Uhr
holm
|
Redabas 2 lief auf 8 und 16 Bit CP/M Rechnern, Redabas 3 auf Dos, möglicherweise auch auf CP/M86 aka SCP1700. Auf Mutos1700 gab es kein Redabas, aber IMHO eine andere Datenbank, weiß nicht ob die damals Ingres portiert hatten.
Gruß, Holm -- float R,y=1.5,x,r,A,P,B;int u,h=80,n=80,s;main(c,v)int c;char **v; {s=(c>1?(h=atoi(v[1])):h)*h/2;for(R=6./h;s%h||(y-=R,x=-2),s;4<(P=B*B)+ (r=A*A)|++u==n&&putchar(*(((--s%h)?(u<n?--u%6:6):7)+"World! \n"))&& (A=B=P=u=r=0,x+=R/2))A=B*2*A+y,B=P+x-r;} |