10 DEFINTA-Z:H=500:DIMN(H*2):Y=1:T=2:FORF=1TOH:LPRINTF;: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):LPRINTCHR$(N(T-A)+48);:NEXT:LPRINT:NEXT