BBS: Inland Empire Archive Date: 02-13-93 (23:30) Number: 226 From: ROB MCKEE Refer#: NONE To: ERIC B. FORD Recvd: NO Subj: Echo readers Conf: (2) Quik_Bas
Hello Eric!
You wrote in a message to Victor Yiu:
> Just -how- many people read this echo on a regular basis?
> 100? 200? How far does it spread?
> I've been wondering about this question for a long time...
EBF> Well, How about this. Con somebody into saving a months
EBF> worth of messages, and then check them. Then make a program
EBF> to have it count the number of different authors,
EBF> recipients, origin lines, etc.
I'll post a message in a month and tell you:
Days=30
If Days - DaysOldOfOldestMessageIHave("Msg\Quik_Bas.sqd") = 0 then
DoTheSquishCount "Msg\Quik_Bas.Sqd", CountOfAuthors%,
CountOfSubject%,_ CountOfSystem%
Open "Ttl_Qbas.TXT" for output as 1
PRINT #1, "For the Preceding";days;"there were:
PRINT #1, "Count Of Authors :"; CountOfAuthors%
PRINT #1, "Count Of Subject :"; CountOfSubject%
PRINT #1, "Count Of Systems :"; CountOfSystems%
Close 1
Shell"SQSET msg\Quik_bas.sqd 1024 0 10"
Shell"SQpack msg\Quik_bas.sqd"
Shell"SQSET msg\Quik_bas.sqd 0 0 40"
Shell"msgs"
Else
Shell"msgs"
End If
Is the Program I'll run instead of calling my Msgs.bat
directly.. Since I have already written a working Squish
Message base reader.. Piece of Cake.. Plus I have the HD
space currently... Although I won't be doing much .Bas
work for the next month... I _have_ to learn TP60!
Argghhh... Such is a Paycheck...
Catcha Later , I'll see you on the flip side - Rob
--- timEd/B6
* Origin: Another Quik_Bas Point in Richmond, CA (1:125/411)

Books at Amazon:
Back to BASIC: The History, Corruption, and Future of the Language
Hackers: Heroes of the Computer Revolution (including Tiny BASIC)
Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution
The Advent of the Algorithm: The Idea that Rules the World
Moths in the Machine: The Power and Perils of Programming
Mastering Visual Basic .NET