002
01.12.2014, 16:45 Uhr
holm
|
Dieses 12K-Basic... ist das das TDL bzw. Zapple Basic aus Rolf Dieter Kleins Basic Buch? Wenn ja, dann habe ich reassemblierte Quellen auf meiner Webseite herumliegen, die sollten zumindest bei der Patcherei hilfreich sein.
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;} |