001
22.10.2016, 17:22 Uhr
holm
|
Entweder Du bist Mathematiker oder Du würfelst die aus.
Bei dem "Heimcomputer" den ein Freund und ich vor der Wende gebaut hatten (Dieses K1520 System mit aufgebohrtem MC80 OS) hatten wir das Problem auch da die Eproms teilweise vom Schrott kamen. Wir hatten ein Turbopascal Programm das die Prüfsumme ausprobierte die in den ersten Eprom geschrieben werden mußte. Dieser enthielt die Testroutine und die PFS aller Eproms.
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;} |