--------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200074 Date: 03/24/98 From: RICHARD GRIFFITHS Time: 10:20pm \/To: DAVID AUKERMAN (Read 3 times) Subj: Re: Code FAQ 03/98 01/12 Hi David Aukerman, Terry Mueller wrote to David Aukerman on the subject of: Re: Code FAQ 03/98 01/12 TM> Could you please identify on the 1st page whether there are any changes TM> from the previous release Yeh, it would be very helpful if you could have a "Last Updated:" date. Thanks, ----------------------------------------------------------------------------- Regards, FidoNet : 2:254/292.3 Email : Rich@TheArc.CrayBBS.co.uk Richard Griffiths Burp's BBS: ++44 (0)181 405 4164 CoSysop of Burp's BBS UK On the net: http://members.aol.com/burpsbbs ----------------------------------------------------------------------------- .!. We're all sitting in the same boat: I fish, you row. --- The Ripped One * Origin: The Co-Sysop of Burp's BBS UK: ++44(0)181 405 4164 (2:254/292.3) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200075 Date: 03/24/98 From: RICHARD GRIFFITHS Time: 10:23pm \/To: CHRIS GUNN (Read 3 times) Subj: Re: PKT Files Hi Chris Gunn, Chris Gunn wrote to Richard Griffiths on the subject of: Re: PKT Files CG> Have you looked at GoldEd, Timed, Terminate, and the others that have CG> been around for years yet? Yep, I used Terminate for a long time. I never liked TimEd. CG> I'm not saying you can't do it, but there are many good reasons why I CG> use GoldEd instead of building one of my own Well, I don't want to write a complicated message writer/reader. The main reason I want to write one is so that my parents can use the program to write emails and the messages, when I run my tosser, I want to be ready to poll. I don't want my parents using the same message reader/writer as me for obvious reasons, and they really only need the email/netmail function - eally only the email as they don't understand fidonet. ----------------------------------------------------------------------------- Regards, FidoNet : 2:254/292.3 Email : Rich@TheArc.CrayBBS.co.uk Richard Griffiths Burp's BBS: ++44 (0)181 405 4164 CoSysop of Burp's BBS UK On the net: http://members.aol.com/burpsbbs ----------------------------------------------------------------------------- .!. This message brought to you by the letters BO and the numbers 3.00 --- The Ripped One * Origin: The Co-Sysop of Burp's BBS UK: ++44(0)181 405 4164 (2:254/292.3) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200076 Date: 04/02/98 From: KURT KUZBA Time: 05:51am \/To: DAVID ROTHSCHILD (Read 3 times) Subj: Multiple eofs DR> read/write files with multiple EOF's (like ZIPs or EXEs)? Open the file in BINARY mode. Here is some rather ancient code which shows how this works. ' [=-----=] -begin- CHRCOUNT.BAS [=-----=] ' [ This program will search any file for instances of ' [ a given character and report the number of times ' [ the number was found. (Includes a progress bar SUB :) ' [ Released to the Public Domain by Kurt Kuzba ' [=-----=] [=-----=] [=-----=] [=-----=] [=-----=] [=-----=] DECLARE SUB Progress (Total&, Left&) ON ERROR GOTO OOps name$ = "": COLOR 2, 0: CLS : LOCATE 3, 1 INPUT " Enter file name => ", name$ IF name$ = "" THEN END INPUT " ASCII value of character to find => ", char% IF char% = 0 THEN END: ELSE char$ = CHR$(char%) OPEN name$ FOR BINARY AS #1 flen& = LOF(1) PRINT flen&; "bytes in "; name$ bytesread& = 0 Hits& = 0 PRINT TIME$ WHILE NOT EOF(1) test$ = INPUT$(4096, 1): GOSUB TestString WEND CLOSE 1: PRINT " Hits ="; Hits&: PRINT TIME$: END TestString: pointer% = 0 WHILE INSTR(pointer% + 1, test$, char$) <> 0 pointer% = INSTR(pointer% + 1, test$, char$) Hits& = Hits& + 1 WEND bytesread& = bytesread& + LEN(test$) Progress flen&, bytesread& RETURN OOps: PRINT " Disk error or bad file name ["; ERR; "]" CLOSE 1: END SUB Progress (Total&, BRead&) x = CSRLIN: y = POS(0) COLOR 15, 5: LOCATE 1, 1: PRINT "*"; done% = FIX((BRead& / Total&) * 70) display$ = STRING$(70, " ") MID$(display$, 1) = STRING$(done%, "") COLOR 14, 4: PRINT display$; : COLOR 15, 5 PRINT "*"; RIGHT$(" " + STR$(FIX(done% * 1.438)), 4); "%"; COLOR 2, 0: LOCATE x, y END SUB ' [=-----=] --end-- CHRCOUNT.BAS [=-----=] > ] Nothing is absolute, save Grace, Harmony, and Balance....... --- * Origin: *YOPS ]I[* 8.4 GIG * RA/FD/FE * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4300000 Date: 04/02/98 From: DAVID STUMPF Time: 12:50am \/To: DAVID WILLIAMS (Read 3 times) Subj: Multiple eofs - Quoting David Williams - to David Rothschild -> How do I read/write files with multiple EOF's (like ZIPs or EXEs)? -> I'm writing an Encryption program, but it stops at the first EOF. I -> tried a FOR X = 1 to LOF..... but then I ran into an "Input past end -> of file", even when there was more file past the EOF. DW> Forgive a "mere" Mac user, but how can a file have more than one EOF? DW> In any (reasonable) DOS, EOF is *not* just an ASCII character. The DW> stuff that is recorded on a disk is a whole lot more complex than it DW> appears "through" the DOS. There are extra bits that are used for error DW> detection and correction. And there are codes for things like EOF that DW> do not represent any regular characters. The DOS handles everything, DW> and provides the outside world with something that looks a whole lot DW> simpler than what is really on the disk. It also ensures (or *should* DW> ensure) that there is only one EOF in each file, at its very end. DW> No? You can add as many EOF characters to a file as you wish. The first one that basic encounters, will be reported as the end of file I believe. (It would make sense to me at least) [David.Stumpf@Earthling.net] [http://www.dzs.home.ml.org] [*] AutoSig v1.20 ... Calm down. It's only ones and zeros. --- Telegard v3.02/Pro * Origin: The GPC Approved II / Houston Texas / 713-856-8048 (1:106/830) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4300001 Date: 04/01/98 From: BRUCE CORBETT Time: 05:41pm \/To: BILL WHITE (Read 3 times) Subj: Old Folks Hi Bill White, hope you are having a nice day .+'~'+. | Qouted from a message from Bill White 29-Mar-98| To Bruce Corbett `+._.+' | About Old Folks BW> @MSGID: 1:135/110.0 351dddfc BC>> Any ideas where I could get a copy of this? or if its a public BW> domain file BW> DON MALIN'S XREF BW> Main Category / Subcategory:Computers / Resource Optimization BW> Facilities Operating System:MS-DOSLanguage:EnglishList price:$59.00; BW> Site License Plans Are AvailableSW-ID:5678 So in other words we would have to pay for the software.... Darn! Oh well... maybe its somthing that could be worth the money. :-) BW> * SLMR 2.1a * Hell is being locked forever in a room with your friends! Ah, A new tagline.... Have never seen it before but its good... Cheereo, .+'~'+. | Bruce Corbett (Hook@Cheerful.com) H O O K | Hk Software (www.members.tripod/~nzhook) `+._.+' | ruce's anter S (3:775/70) ((646) 756-6331 Np, Nz) --- * Origin: Not following the meaning, ruce's anter S (3:775/70) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4300002 Date: 04/02/98 From: BOB LOTSPEICH Time: 07:47am \/To: NIGEL TRAVES (Read 3 times) Subj: Computer piracy | Quoting from a message by Nigel Traves | To Bob Lotspeich | About - Computer piracy BL> Well done, and great research, Nigel! A copy has been saved for my BL> records! Thanks. NT> Nah! I knew I had that file somewhere, it just took a little NT> searching that's all. And If you read Chris Gunn's reply to me, it NT> would seem that the guy who wrote it may have been wrong anyway. Hey, NT> how should I know what the copyright laws are in the USA, I'm in the NT> UK and I was only quoting already . I'm sure you've followed this thread, and its apparent that most of us in the States don't know much about it either. :) --- Blue Wave/386 v2.30 * Origin: The Circle Circus * Dale City, VA * 703-730-3115 (1:265/124)