/--------------------------------------- |The reason I sent mine was, he said his didn't work. It was very |much like yours above. The only thing I can say is...The same |thing I said to him...Give mine a try...!!! It works for me... \--------------------------------------- To | GEORGE DE BRUIN Actually, the reason I responded was that while your macro would work just fine, it did duplicate a series of steps which shouldn't have been necessary. I saw in another message where you tried the revision and found that it works fine. /------------------- |Meanwhile...back at the ranch, How have things been with you. I |know you've been busy. I watch the boards. \------------------- Yeah, been fairly busy. Trying to get some other things done here as well... Am looking forward to Christmas. George J. De Bruin SemWare Technical Support -- SPEED 2.0c #10: SemWare: QEdit Adv., TSR, OS/2 and The SemWare Editor --- FidoPCB v1.4 [ff151/a] * Origin: SemWare Support BBS * 404-641-8968 * (1:133/314) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: BGC00004 Date: 12/05/94 From: RAY ASBURY Time: 05:15pm \/To: DENNIS BROWN (Read 10 times) Subj: Upper Macro Hello Dennis, <<< DENNIS BROWN >>>Ŀ Can someone give an example of a macro that will force the first letter of each word within a block to upper-case, and the remaining chars in the word to lower-case? >>> ALL <<< Try this: PROC pnSetFirstCharCaps() INTEGER liChr, liBlkMarked = IsBlockInCurrFile(), liMarking = Set(Marking, OFF), liLastLine IF (NOT liBlkMarked) MarkWord() ENDIF PushPosition() liLastLine = Query(BlockEndLine) GotoBlockBegin() Lower() REPEAT IF (IsCursorInBlock()) liChr = CurrChar() CASE (liChr) WHEN _AT_EOL_, _BEYOND_EOL_ liChr = 0 OTHERWISE InsertText(Upper(Chr(liChr)), _OVERWRITE_) ENDCASE ENDIF UNTIL ( (NOT WordRight()) OR (CurrLine() > liLastLine) ) PopPosition() IF (NOT liBlkMarked) UnMarkBlock() ELSE Set(Marking, liMarking) ENDIF END pnSetFirstCharCaps Hope this helps you out! E. Ray Asbury, Jr. (rasbury@msmailpc01.saic.com) Team TSE --- * SemQWK 1.17 #0 * Flashlight: A case in which to carry dead batteries. --- FidoPCB v1.4 [ff151/a] * Origin: SemWare Support BBS * 404-641-8968 * (1:133/314) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: BGC00005 Date: 12/05/94 From: ANDERS HOLST Time: 10:20pm \/To: ALL (Read 10 times) Subj: word wrap How do you make Qedit start up, with wordwrap set to on? With friendly regards ʻ ʻnders ͹olst --- Terminate 1.50 * Origin: "I think not," said Descartes; and promptly disappear (2:236/125.30) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: BGC00006 Date: 12/05/94 From: FRANK JACOBBERGER Time: 04:13pm \/To: ISAAC LUZ (Read 10 times) Subj: Re: Qedit With Os/2warp? Hello ISAAC! 02 Dec 94 22:42, ISAAC LUZ wrote to ALL: IL> Hey has anyone used qedit with os/2 warp yet? Yep, have the OS/2 QEdit running like gangbusters here! Frank --- GED/2 2.50.B1016+ * Origin: Your Roots BBS * QFront 1.13b * OS/2 3.00 Warp (1:311/10) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: BGC00007 Date: 12/06/94 From: VIC DURA Time: 09:07am \/To: VICKI CRAWFORD (Read 10 times) Subj: Blankety-blank Blanks! VC> CH> Sorry I missed your reply to me -- we have a really VC> CH> horrible echomail feed here and lately we've been missing VC> CH> several days' worth at a time. Governor Lawton Chiles has VC> CH> declared a state of emergency and is demanding Federal aid. VC> For missing several days worth of echomail?????? Wow! Hey!, This stuff is *important*!! Regards, Vic Dura (victor.dura@woodybbs.com) Rogersville, AL --- * RM 1.3 01752 * Lead, follow, or get out of the way. --- QScan v1.131b / 01-0087 * Origin: Data Stream BBS 205-232-2400 28.8K Athens,Ala (1:3670/10) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: BGD00000 Date: 12/06/94 From: DENNIS R. MORTENSEN Time: 02:04pm \/To: ROELAND JANSEN (Read 10 times) Subj: TSE StatusLine Hi Roeland Jansen, >> The only thing that can se is the option "Statusline At >> top = [ON/OFF]" RJ> so ? did you try it ? UPS.... RJ> if at top is off..... it will be at another place. bottom maybe ? so, a RJ> try RJ> next time would save work :-) Bummmmmmmmmer.... Thanks for the info, to bad that you _had_ to tell me.... ;-) M.V.H. Dennis R. Mortensen HUMANOID ___ Terminate 1.50 * Origin: - (2:238/912.52) --------------- FIDO MESSAGE AREA==> TOPIC: 152 QEDIT Ref: BGF00000 Date: 12/08/94 From: STUART BULLINGTON Time: 07:03pm \/To: ALL (Read 10 times) Subj: Downloading Internet E-mail Received I am still confused about how to download e-mail to my computer. I tried to access it as a .QWK packet, but I couldn't find my mail as one of the options in the .QWK utility. It listed areas and topics instead. If I succeed in downloading it, how do I unpack it afterwards? Thanks, Caleb AsiaNet BBSASeattle USA (asianet.ces.wa.com) { * * p --- VFIDO 6.20.00 Gamma Candidate 10 * Origin: AsiaNet (1:343/178)