0 'FACTRL.100 author unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 'For a printer change PRINT to LPRINT. 10 DEFINTA-Z:H=500:DIMN(H*2):Y=1:T=2:FORF=1TOH:PRINTF;:Z=1:FORC=0TO2:W=F(C)+Z:Z=W/10:F(C)=WMOD10:T=T+N(T)+N(T-1)+N(T-2):FORL=0TOT:X=F(C)*N(L+H)+N(L+C)*SGN(C)+Y:N(L+C)=XMOD10:Y=X/10:NEXT:NEXT:FORA=0TOT:N(A+H)=N(A):PRINTCHR$(N(T-A)+48);:NEXT:PRINT:NEXT