HDTenEightyP/NetNews huggingface dataset:
From: chard@borland.com (Richard Nelson)
Subject: Re: Funny (?) DOS IDE editor window chars
Originator: chard@genghis.borland.com
Organization: Borland International
Date: Tue, 15 Dec 1992 23:08:08 GMT

>I've noticed that when I reload a file that's already been "made" that
>the editor window occasionally posts an "M" next to the spot
>where the "file has been changed" symbol appears (lower left corner
>of the window). I haven't found anything in the K's of doc pages that
>might give me a clue to this behavior.
>
>Are there other characters that can appear?
>Where do the docs reference these things ?
>What are they characters telling me ?

Hmmm.  This seems to have snuck by the doc team.  :-)  I just talked
to an IDE engineer, and he tells me the following:

o  The M character indicates that there is symbol information
available to the browser, but that information is not in sync with the
editor file. In other words, something changed the editor file after
you compiled it last, and it wasn't the IDE editor.

o  The most common cause of this is shelling out to an editor or other
program that modifies source code.  The internal editor updates line
number info for existing symbol information as you modify files, but
obviously it can't do that if you use an external editor.

o  There are no other symbols that appear down there, other than the
"splat" that indicates a modified file with unsaved changes.
-- 
=========================================================================
 Richard Nelson, Borland Int'l | chard@borland.com | Go Bears! Grrr-rah!
  Had this been Borland's opinion, I would have written it in a manual.
 "I met a girl who sang the blues, and I asked her for some happy news."
From: shudes@lunatix.uucp (Chris Shudes)
Subject: Using TrueType
Organization: Lexington Public Access Unix. -KY- (606) 255-9121
Date: Sat, 19 Dec 1992 05:24:10 GMT
X-Newsreader: TIN [version 1.1 PL6]

Could someone please give me some well-documented source code (in
TPW) telling me how to use TrueType fonts as regular text output,
for some reason I can get the simple fonts such as ansi_font (or
something like that), but not the TrueType fonts.

Also, how do you change the point size of the font?  Any and all
help would be Greatly appriciated.. 

- Chris Shudes

-- 
						Chris Shudes
				             via Lunatix BBS
From: roth@oasys.dt.navy.mil (Pete Roth)
Newsgroups: comp.lang.pascal
Subject: Missing from IDE docs: RE escapable chars
Date: 17 Dec 92 13:51:12 GMT
Reply-To: roth@oasys.dt.navy.mil (Pete Roth)
Organization: The David Taylor Model Basin

I discovered through perseverence with the IDE editor regular
expressions (RE) that the TAB character can be represented by the
two-character symbol
	\t
which should've been obvious to this old unix user.

Anybody find any other escapable characters ?

regards, pete
- - - - - - - - - - - - - - - - - - - - - - - - - -
Peter N Roth      roth@oasys.dt.navy.mil
Do what you can with what you have where you are. - D L Moody.
From: ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
Newsgroups: comp.lang.pascal
Subject: TURTLE GRAPHICS IN ANY BGI MODE
Date: Wed, 16 Dec 1992 16:56:18 GMT
Organization: INSA  CENTRE INFORMATIQUE DU 1er CYCLE
NNTP-Posting-Host: 134.214.232.25

   Timo 's being so busy setting up the new comp.archives.msdos.announce
(do subscribe it's worthy), he asked me to inform the group about
my last upload ....
 
----- Forwarded message begins here -----
From: Timo Salmi  <ts@uwasa.fi>
Wed, 16 Dec 1992 16:29:23 +0200 
To: ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
Cc: msdos-ann@TACOM-EMH1.Army.Mil (Combined SIMTEL20 & Garbo announcements)
Subject: Re: UPLOAD TURTLE10.ZIP
>File name               : TURTLE10.ZIP
>One line description    : unit that allows turtle graphics in any BGI mode
>Author or company       : Dr Patrick L.Pollet
>Email address           : ppollet@cismibm.univ-lyon1.fr
>Surface address         : Institut National des Sciences Appliquees
>                          Centre informatique du 1er Cycle    Bat 110
>                          20 avenue A.Einstein
>                          69621  Villeurbanne Cedex France
>Special requirements    :EGA card minimum
>Shareware payment required from private users     : None
>Shareware payment required from corporates        : None
>Demo:        No
>Nagware: No
>Self-documenting:  Hopefully
>External documentation included:  yes
>Source included:   yes
This upload is now available as
  30420 Dec 16 13:40 garbo.uwasa.fi:/pc/turbopas/turtle10.zip

Please note that if you wish to inform the comp.lang.pascal users of
this, please feel free to do so because my announcements to to
comp.archives.msdos.announce now that the newsgroup has been
created. 
   All the best, Timo
...................................................................
Prof. Timo Salmi      Co-moderator of comp.archives.msdos.announce
Moderating at garbo.uwasa.fi anonymous FTP archives 128.214.87.1
Faculty of Accounting & Industrial Management; University of Vaasa
Internet: ts@uwasa.fi Bitnet: salmi@finfun   ; SF-65101, Finland
------ Forwarded message ends here ------
ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
--------------------------------------------------------
Dr Patrick L.Pollet
Institut National des Sciences Appliques
Centre Informatique du 1er Cycle  Bat 110
20 Avenue A.Einstein
69621 Villeurbanne Cedex France
--------------------------------------------------------
Phone: 72 43 83 80 -   la premiere erreur c'est
Fax  : 72 43 85 33 -   de se lever le matin  ... GASTON
-------------------------------------------------------
Newsgroups: comp.lang.pascal
From: u910826@bruny.cc.utas.edu.au (Louis        siuoL)
Subject: FLI TPU for TP6/7 ??
Summary: Wanted FLI TPU for TP6/7
Keywords: FLI
Organization: University of Tasmania, Australia.
Date: Wed, 16 Dec 1992 00:21:23 GMT

As the title says, I'm looking for a FLI library.
I already have FLILIB.ZIP which is a lib for C, but I don't want to have to convert the whole thing.

(Shareware/PD Please)



--
Louis Solomon - a student at The University of Tasmania
      e-mail: u910826@bruny.cc.utas.edu.au

"If wishes were fishes, we'd all cast nets" - Dune
From: berend@contrast.wlink.nl (Berend de Boer)
Newsgroups: comp.lang.pascal
Subject: Overlays and device drivers
Date: Fri, 11 Dec 1992 22:13:06

Duncan Murdoch wrote in a message to All:

 DM> I assume that your device driver is being called from
 DM> outside your program. If so, it won't be part of the chain,
 DM> so it had better not do anything to  trigger a swap:  don't
 DM> call any code that's overlaid from within it. 

Hello Duncan,

I reply again to your message, because, after some further thinking, I'm
not sure if these last two sentences are the case in my program.

What's going on.

I wrote a device driver unit with OpenFunc, InOutFunc etc. I use this
unit in the following way:

unit A;
uses Device;
begin
  write(lst, 'Hello world');
end.

The device driver is actually a printer unit with special functions. Can
I call using lst to acces the functions in the Device unit "being called
from outside your program" to quote your words?

If you would be so kind to clarify this point,

Yours sincerely,

Berend. (-:
fido: 2:281/527.23
email: berend@contrast.wlink.nl
From: ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
Newsgroups: comp.lang.pascal
Subject: Re: HOW USE PRINTER FROM A PROGRAM....
Date: Mon, 14 Dec 1992 15:52:32 GMT
Organization: INSA  CENTRE INFORMATIQUE DU 1er CYCLE
NNTP-Posting-Host: 134.214.232.25

In article <1992Dec14.135919.12430@tolten.puc.cl> icarus@ing.puc.cl (Eduardo Jimenez) writes:
>From: icarus@ing.puc.cl (Eduardo Jimenez)
>Subject: HOW USE PRINTER FROM A PROGRAM....
>Date: Mon, 14 Dec 1992 13:59:19 GMT

> hello, well i just have two problems programing pascal.(I'm a novice),
> i want to know how to print a txt file from a program wrote in pascal,
> ......

Two ways (by standard Pascal )plus many others using Dos,Bios....

   - Include a Uses printer atop of your program and dump the Text file to 
it:
      such as :
        var MyText:Text;
            aLine:String;
  
        Assign(MyText,'TEXTFIL.TXT');
        Reset(MyText);
        While Not Eof(MyText) do
          begin
             Readln(MyText,aLine);
             Writeln(lst,aLine);
                     ^^^  a text file automatically associated to PRN: 
                          by the unit Printer 
          end;
        Close(MyText);
 
   -Otherwise you may use a second text file say MyOutput:Text and
    assign it to 'PRN'
           .....
           Assign(MyOutPut,'PRN');
           Rewrite(MyOutPut);
           While Not Eof(MyText) do
             begin
                readln(MyText,aLine);
                 writeln(MyOutput,aLine);
              end;
           Close(MyText);Close(MyOutput)
           .......    
  

> The second problem is how to call others program from other, for instance I
>have to make a program more big than 64k, so I split it in few parts, then 
>i'll call them, but how...?
> Pd: im working with Turbo Pascal 6.0    

    With TP6 there is no need to split programs that are bigger than 64K. 
    You can use Units, and Get a limit a 64K of compiled code per unit  
    Furthermore, with overlays, the size of your program may exceed the
    available memory... So why bother ? 

    Nevertheless, if you want to call another program, check in your 
manual for instruction Exec(NameofTheProgram,CommandLine).
There is no problem calling another program off Turbo. To make them 
communicate , say with common variables.... is another story. You have time
to learn it .....


> If somebody can help me I'll be gratefull


> Eduardo J. Aleuy
> ICARUS@MALLOCO.ING.PUC.CL


ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
--------------------------------------------------------
Dr Patrick L.Pollet
Institut National des Sciences Appliques
Centre Informatique du 1er Cycle  Bat 110
20 Avenue A.Einstein
69621 Villeurbanne Cedex France
--------------------------------------------------------
Phone: 72 43 83 80 -   la premiere erreur c'est
Fax  : 72 43 85 33 -   de se lever le matin  ... GASTON
-------------------------------------------------------
Newsgroups: comp.lang.pascal
From: pf@bilbo.bio.purdue.edu (Paul Furbacher)
Subject: Re: Nice curve fitting code...
Organization: Purdue University
Distribution: comp.lang.pascal
Date: Sat, 12 Dec 1992 04:49:25 GMT

In article <1992Dec11.155710.10700@news.nd.edu>, 
   fdeck@vyasa.helios.nd.edu (francis deck) writes:
 
> I have a nice curve-fitting code in Turbo Pascal which I'm willing
> to post.  I don't want to waste bandwidth, but if a few people
> mail me, ...

Would you be opposed to putting it on GARBO, and then
letting us know by a short note to this group?  You 
work sounds interesting and of use to us.  Thanks for 
making the offer.

You went on to mention GRAFSYS -- is that its name 
on Simtel?  Is there source code available with it?

PF

.  Paul Furbacher
.  Dept. of Biological Sciences
.  Purdue University
.  West Lafayette, IN  47907-1392
.  pf@bilbo.bio.purdue.edu
From: jvs@lester.appstate.edu (John V. Scalco)
Newsgroups: comp.lang.pascal
Subject: Anyone useing BPE (paradox engine ???
Date: 11 Dec 1992 22:47:02 -0500
Organization: Appalachian State University
NNTP-Posting-Host: lester.appstate.edu
X-Newsreader: TIN [version 1.1 PL7]

	hi folks,

	I'm thinking about purchasing BPE and dbase Frameworks,
	is anyone using it?  Y'know the pascal routines to manipulate
	dbase, or paradox  tables??

	I'm interested in using this package to read dbase files,
	then possibly use the ObjectWindows Frameworks to display
	the records in windows3.x

	thanks alot - sincerely   j.v.scalco
Newsgroups: comp.lang.pascal
From: quintenu@htsa.aha.nl (Quinten Uijldert)
Subject: Wanted: Code for sorting a file
Date: Tue, 15 Dec 1992 13:53:54 GMT
Organization: Algemene Hogeschool Amsterdam, Polytechnic Institute

Who can E-Mail me some code for sorting a file. The file contains
records like this:

TYPE
  RecType = RECORD
    Name, Street, Zip, Telephone: String;
  END;
  FileType = TEXT;

VAR
  Rec: RecType;
  f: FileType;

I Want to sort the file on Rec.Name, but I can't figure it out how
to do it.
I Use TP 6.0.

Thanks in advance...

----------------------------+---------------------------------------------------
Quinten Uijldert            | 'HO HO HO !!' | 'It's an offer you can't refuse.'
quintenu@solist.htsa.aha.nl | -Santa Claus- | 'All major creditcards accepted.'
----------------------------+---------------------------------------------------
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: Faking millions of colors out of 16, and so on
Organization: Queen's University
Date: Sun, 13 Dec 1992 02:41:31 GMT

In article <1992Dec12.234840.199@athena.mit.edu> acgoldis@athena.mit.edu (Andrew C Goldish) writes:
>According to the Borland 6 graphics package and the rules for my monitor, one can
>set the sixteen colors in the palette to be different things with the
>SetRGBPalette command.  Is there any way one can print sixteen colors, change one
>of the values, and print a 17th color on the screen without having the pixel
>originally in the color that was changed change to the new color?

Only if you're very fast.  The EGA or VGA hardware standard that the 16 
colour modes are using is only able to display 16 different colours 
simultaneously.  However, pixels only get updated on the screen 50 or 60 
times per second.  If you like, you can change the palette after a pixel has 
been drawn, write a different pixel in a 17th colour, and change palette the
back by the time the card refreshes the first pixel.  

Soon after the EGA came out there was a program published in PC Magazine 
that could use this technique to display 64 colours simultaneously on a 6 
Mhz AT; I'd guess a modern PC would have enough time left over to get some 
useful work done at the same time it was flipping the palette around like 
this.

Of course, this is isn't very useful in general; you wouldn't be able to put 
17 different coloured pixels all in the same scan line, for instance.  
You're much better off using a 256 (or more) colour mode, or dithering to 
get colours by mixing different colours of pixels together.

>Also, how exactly do you get certain colors using Red, Green, and Blue 
values>(i.e. purple, pink salmon, Celtic green, etc.)

Find or write a palette editing program, and just hold colour samples up to 
your screen until you can get a match.  Or buy a colour scanner, and see what
colour it sees.  Or just fool around until you get something you like.

Duncan Murdoch
dmurdoch@mast.queensu.ca
From: yngvar@sentral.imr.no (Yngvar Foelling)
Newsgroups: comp.lang.pascal
Subject: Re: Week numbers
Date: 12 Dec 92 16:15:34 GMT
Organization: Institute of Marine Research, Bergen, Norway.

In article <Bz3nBs.3E3@cs.vu.nl>, sbakker@cs.vu.nl (Bakker S) writes:
|> Can anyone tell me how to number weeks, i.e. does Jan. 1 fall into week #1 or
|> week #52? For example, in 1992 Jan. 1 fell into week #1, but in 1993 it will
|> fall into week #52 of '92.

I don't know what the rules are for other countries, but remember that since
some countries begin the week with Sunday, while others (like Norway) use
Monday, there clearly are differences.
|> 
|> Am I right in assuming that it's week #1 if Jan. 1 is either Monday, Tuesday,
|> or Wednesday, and #52 otherwise?

If your rules are the same as Norway (does the week begin with Monday in the
Netherlands?), you're almost right.  Week #1 is the first week that includes
Thursday, so add Thursday to the list.  Also, remember that since the year
contains 365 or 366 days (i.e. one or two days *more* than 52 weeks), every
5th or 6th year contains 53 weeks.

1992 is such a year.  It began with a Wednesday, so Jan 1 was in week #1.  But
Dec 30 is the 53rd Wednesday of the year.  Jan 1 1993 falls on a Friday, so it
will be in the last week of '92 (the *53rd*, not the 52nd).

I find it very unlikely that the Dutch system would make 1993 begin with week
52 of 1992, if Jan 1 1992 was in week #1.  The first Wednesday would be in week
#1, the second in week #2 etc.  How, then, can the last Wednesday of the year,
the 53rd, be followed two days later by Friday, week 52?

-- 
ISO 8859-1: Yngvar Fxlling  | Snail mail:
ASCII:      Yngvar Foelling | Tertnesveien 121
                            | N-5084 Tertnes
E-mail:     yngvar@imr.no   | Norway
From: system@micromed.com (Duane Davis)
Newsgroups: comp.lang.pascal
Subject: TP6 & LHarc
Date: Sun, 13 Dec 92 22:02:37 PST
Organization: Micro-Medic BBS - +1 408 279 5240 - Public Access


I've run into a problem with a program I wrote and I'm hoping one
of you can help me with a solution. 

The program uses the EXEC procedure to run LHarc. The program WAS
working until I made a few changes to it. Now LHarc reports an
"Archive not found (path/filename)" error. The path shown is correct
but the filename is just garbage.

I've tried creating a LHARC.BAT file to intercept the parameters passed
by my program and it shows everything as being correct. Available memory
during the EXEC is sufficient (500K+) and I've even tried replacing
LHARC.EXE thinking it might be corrupt.

Any ideas?

Please reply via mail as I don't always get time to read this newsgroup.


--- 
system@micromed.com (Duane Davis)                   voice (408)293-3299
Micro-Medic                          public access usenet (408)279-5240
711 Lincoln Avenue                  public access pcboard (408)280-1610
San Jose, CA 95126                    FileServer - FTPMail@micromed.com
From: berend@contrast.wlink.nl (Berend de Boer)
Newsgroups: comp.lang.pascal
Subject: REQUEST: novell interrupt  
Date: Wed, 16 Dec 1992 08:42:42

Trygve Storr|nningen wrote in a message to All:

 TS> Can anybody help me finding the interrupt for getting 
 TS> a novell current user_name and the current station adress ??

Procedure GetConnectionInfo
(Var LogicalStationNo: Integer; Var Name: String; Var HEX_ID: String;
 Var ConnType : Integer; Var DateTime : String; Var retcode:integer);

Var
  Reg            : Registers;
  I,X            : Integer;
  RequestBuffer  : Record
                     PacketLength : Integer;
                     FunctionVal  : Byte;
                     ConnectionNo : Byte;
                   End;
  ReplyBuffer    : Record
                     ReturnLength : Integer;
                     UniqueID1    : Packed Array [1..2] of byte;
                     UniqueID2    : Packed Array [1..2] of byte;
                     ConnType     : Packed Array [1..2] of byte;
                     ObjectName   : Packed Array [1..48] of Byte;
                     LoginTime    : Packed Array [1..8] of Byte;
                   End;
  Month          : String[3];
  Year,
  Day,
  Hour,
  Minute         : String[2];

Begin
  With RequestBuffer Do Begin
    PacketLength := 2;
    FunctionVal := 22;  { 22 = Get Station Info }
    ConnectionNo := LogicalStationNo;
  End;
  ReplyBuffer.ReturnLength := 62;
  With Reg Do Begin
    Ah := $e3;
    Ds := Seg(RequestBuffer);
    Si := Ofs(RequestBuffer);
    Es := Seg(ReplyBuffer);
    Di := Ofs(ReplyBuffer);
  End;
  MsDos(Reg);
  name := '';
  hex_id := '';
  conntype := 0;
  datetime := '';
  If Reg.al = 0 Then Begin
    With ReplyBuffer Do Begin
      I := 1;
      While (I <= 48)  and (ObjectName[I] <> 0) Do Begin
        Name[I] := Chr(Objectname[I]);
        I := I + 1;
      End { while };
      Name[0] := Chr(I - 1);
      if name<>'' then
      begin
       Str(LoginTime[1]:2,Year);
       Month := Months[LoginTime[2]];
       Str(LoginTime[3]:2,Day);
       Str(LoginTime[4]:2,Hour);
       Str(LoginTime[5]:2,Minute);
       If Day[1] = ' ' Then Day[1] := '0';
       If Hour[1] = ' ' Then Hour[1] := '0';
       If Minute[1] = ' ' Then Minute[1] := '0';
       DateTime := Day+'-'+Month+'-'+Year+' ' + Hour + ':' + Minute;
      End;
    End { with };
  End;
  retcode := reg.al;
  if name<>'' then
  begin
   hex_id := '';
   hex_id := hexdigits[replybuffer.uniqueid1[1] shr 4];
   hex_id := hex_id + hexdigits[replybuffer.uniqueid1[1] and $0F];
   hex_id := hex_id + hexdigits[replybuffer.uniqueid1[2] shr 4];
   hex_id := hex_id + hexdigits[replybuffer.uniqueid1[2] and $0F];
   hex_id := hex_id + hexdigits[replybuffer.uniqueid2[1] shr 4];
   hex_id := hex_id + hexdigits[replybuffer.uniqueid2[1] and $0F];
   hex_id := hex_id + hexdigits[replybuffer.uniqueid2[2] shr 4];
   hex_id := hex_id + hexdigits[replybuffer.uniqueid2[2] and $0F];
   ConnType := replybuffer.conntype[2];
  { Now we chop off leading zeros }
   while hex_id[1]='0' do hex_id := copy(hex_id,2,length(hex_id));
 End;
End { GetConnectInfo };


Groetjes,

Berend. (-:
fido: 2:281/527.23
email: berend@contrast.wlink.nl
From: v923106@vms.ucc.okstate.edu
Newsgroups: comp.lang.pascal
Subject: Looking for STAKDUMP.OBJ
Date: 16 Dec 92 06:03:45 GMT
Article-I.D.: vms.1992Dec16.000345.1
Organization: Oklahoma State University Computer Center

I am looking for a file called stakdump.obj. It comes from Kim Kokkokonnens on
the Tpro bonus disk. The reason why I am looking for this is because I found an
interesting unit called ERR_FUNC written by Richard A. Morris.  The problem is,
this unit won't compile without the stakdump.obj file. Richard didn't include
it in the archive. If anybody knows what I'm talking about or knows how to
contact Richard A. Morris, please let me know.  By the way, I found this unit
on wuarchive.wustl.edu in mirrors2/msdos/turbopas. it's called err_func.zip.
Also, Richard gave a fido net number 3: 640/378 but I don't have any idea what
that means.

		any help will be appreciated!
From: rind@binoc.bih.harvard.edu (David Rind)
Newsgroups: comp.lang.pascal
Subject: Com Port Losing Characters
Date: 17 Dec 92 16:19:32 GMT
Organization: Beth Israel Hospital, Harvard Medical School, Boston Mass., USA

In past discussions here, a couple of people seem to have written high
speed communications programs, so perhaps someone has a solution to
this.

I have a terminal emulator written in TP which uses an interrupt
driven routine to get characters out of the com port.  The program
is intended to run at speeds up to 9600 baud.  On a PS2 model 25,
running at 9600 baud, two characters will occasionally hit the com
port before the program gets around to moving the first character
into a buffer.

This only happens when some other process (on this particular
machine, it seems to be a packet driver program which wakes up
every 30 seconds or so) that is TSR steals some processing time --
I assume it has disabled interrupts for longer than the time
it takes for the second character to arrive.

Is there some way for the terminal emulator to deal with this,
other than simply saying that no other processes can be running
when the emulator is being used?  Has anyone come up with a solution
for this?  I'd expect that those who've written high speed 
communications routines encounter this problem even more frequently.

-- 
David Rind
rind@binoc.bih.harvard.edu
Newsgroups: comp.lang.pascal