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