home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / factrl.ba < prev    next >
Text File  |  2006-10-19  |  404b  |  5 lines
  1. 0 'FACTRL.100 author unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'For a printer change PRINT to LPRINT.
  4. 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
  5.