Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!uwm.edu!gem.mps.ohio-state.edu!tut.cis.ohio-state.edu!ucsd!ogccse!orstcs!jacobs.CS.ORST.EDU!borcelf From: borcelf@jacobs.CS.ORST.EDU (Fernando Borcel) Newsgroups: comp.sys.mac.programmer Subject: Re: File manager's "Newline" mode Message-ID: <12615@orstcs.CS.ORST.EDU> Date: 25 Sep 89 21:09:44 GMT References: <12604@orstcs.CS.ORST.EDU> <31506@ucbvax.BERKELEY.EDU> Sender: usenet@orstcs.CS.ORST.EDU Reply-To: borcelf@jacobs.CS.ORST.EDU.UUCP (Fernando Borcel) Distribution: usa Organization: Oregon State University - CS - Corvallis Oregon Lines: 43 I posted an article a couple of days ago, referred to the File Manager's New Line mode. I got a couple of answers, telling me to set the high byte in ioPosMode to the NewLine character. I did, but it seem to make no difference at all! Here's a chunk of the little prototype code I wrote to see if it worked or not... Here it goes... var MiscFile: integer; error: OSErr; paramBlock: ParamBlockRec; stream: streamType; filename: str255; begin filename := ':MiscFile'; with ParamBlock do begin ioNameptr := @filename; ioPermssn := fsRdPerm; ioVRefNum := 0; ioMisc := nil; ioBuffer := @stream; ioReqCount := 255; ioPosMode := $0d00; {High byte =} ioPosOffset := 0; end; error := PBOpen(@ParamBlock, false); repeat error := PBRead(@paramBlock, false); writeln(Text2Str(stream, paramBlock.ioActCount)); until error <> noErr; error := PBClose(@paramBlock, false); end. ================ Thanks, Fernando Borcel borcelf@jacobs.cs.orst.edu