home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
factrl.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
404b
|
5 lines
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