HDTenEightyP/NetNews huggingface dataset:
From: exuptr@exu.ericsson.se (exuptr@exu.ericsson.se)
Newsgroups: comp.lang.pascal,alt.msdos.programmer
Subject: Re: 3 questions
Date: 13 Sep 92 22:51:57 GMT
Organization: Ericsson Network Systems, Inc.

In article <1992Sep13.020938.898@ncsu.edu> dspascha@eos.ncsu.edu (DAVID SCOTT PASCHAL) writes:
>From: dspascha@eos.ncsu.edu (DAVID SCOTT PASCHAL)
>Subject: Re: 3 questions
>Date: 13 Sep 92 02:09:38 GMT


>In article <1992Sep11.132246.12645@rhrk.uni-kl.de>, bootz@efes.physik.uni-kl.de (Michael Bootz) writes:
>|> In article <18ot9rINN67t@matt.ksu.ksu.edu>, holland@matt.ksu.ksu.edu (Rich Holland) writes:
>|> > Question 1:
>|> > -----------
>|> >   How do I determine if the user is at the command line?  I've been thinking
>|> >   about writing a TSR to intercept keypresses at the DOS command line and
>|> >   expand TABs to full filenames (like tcsh does).  
>|> > 
>|> [Question 2..3 deleted]
>|> If the actual PSP = PSP of command.com ==> user is at command line.
>|> (PSP= program segment prefix)
>|> see Ralf's Interrupt list, 
>|>   Int $21, fct $51 to get PSP
>|>   Int $21, fct $52 for format of MCB (memory control block)
>|> the MCB contains the name of a program, here command.com
>|> the MCB of an PSP is located 16 bytes before the PSP

>DOS versions prior to 4.0 do not put the name of the owner process in the MCB.

>One thing you could check is whether or not the parent PSP field in the current
>PSP is zero.  For some reason COMMAND.COM (even child copies) like to zero out
>this field, making it nearly impossible to trace back to the original shell.
>Of course, other shells (like 4DOS) may not do this, so this may not be such
>a great solution.

>Tschuess,
>David Paschal

Also there is an interrupt vector that contains command.com's PSP.  I believe
it is 2eh?
 ----------------------------------------------------------------------------
    "This must be Thursday.  I never could get the hang of Thursdays"
                                                       - Douglas Adams
  - Patrick Taylor                                       (Arthur Dent)
    Ericsson Network Systems
    exuptr@exu.ericsson.se                       "Don't let the .se fool you"
    or exuptr@ZGNews.Lonestar.Org, exu.exuptr@memo.ericsson.se
Newsgroups: comp.lang.pascal
From: ts@uwasa.fi (Timo Salmi)
Subject: Re: Problim with CTRL-Break in TP6.0
Organization: University of Vaasa, Finland
Date: Wed, 9 Sep 1992 11:07:40 GMT

In article <5315@tuegate.tue.nl> arnaud@blade (Arnaud Gouder de Beauregard) writes:
>I have written a program in TP 6.0, but it's possible to exit the program just by pressing Ctrl-Break. Is there any way of preventing this ?

Yes, covered in the Frequently Asked Questions
112730 Jun 13 12:23 garbo.uwasa.fi:/pc/ts/tsfaq29.zip

"If you do not know how to go about getting this material, users are
welcome to email me for the prerecorded garbo.uwasa.fi instructions
(long, circa 29Kb).  North American users are referred to the garbo
mirror on wuarchive.wustl.edu.  Australian users are referred to the
archie.au mirror.  The mirrors may lag occasionally, or might not
have all the files.  If you do not receive my reply within five
days, please ask your own site's system manager to construct a
returnable mail path for you". 

..................................................................
Prof. Timo Salmi
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
From: jnicholson@bowker.com (Jim Nicholson)
Newsgroups: comp.lang.pascal
Subject: Re: bk asks: File Handle in TP
Keywords: interrupts, file handle, FileRec.handle
Date: Mon, 07 Sep 92 23:35:41 EDT
Organization: Bowker Electronic Publishing, New Providence NJ

bk@Turing.ORG (Brian Knatz) writes:

>
> Question:
>       If I have a FILE, f, and a FileRec, fr, how do I get them to
> refer to the same file?
>       How, given an assigned-and-reset f do I take a look at the its Handle?

FileRec is generally used in a typecast; for example

var
   F : File;
...

With FileRec(F) do
   {Something with F's handle}



Jim Nicholson                          Internet: jnicholson@bowker.com
Any opinions expressed are not         FidoNet : 1:2605/705.0
necessarily my own                     Voice   : 908-665-2864
Newsgroups: comp.lang.pascal
From: kjell@weber.e.kth.se (Kjell Rilbe)
Subject: Re: BGI Env variable
Organization: Dept. of EE, Royal Institute of Technology, Stockholm, Sweden
Date: Fri, 11 Sep 1992 12:53:27 GMT

In article <2148.2AAF90B7@catpe.alt.za> Louis.Mandelstam@p2.f42.n7101.z5.fidonet.org (Louis Mandelstam) writes:
>.....
>BTW is the idea that all the BGI drivers should be in the directory, or 
>would it be better to link the common drivers into the EXE (EGAVGA, HERC etc)
>and have an option for the user to specify an external driver which would 
>then be located in the directory specified by the BGI enviroment variable?
>
>Cheers
>The Poltergeist
>
I like the idea of environment var for BGI:s. 

Wouldn't it be best to fo it this way: Let the program check for the 
environment variable BGI, and if it exists, use the BGI it sepcifies,
otherwise use the built-in autodetect to find which one of the standard
(and linked-in) BGI:s to use.

Just a thought...

/Kjell Rilbe

-- 
-----------------------------------------------------------------------------
! Kjell Rilbe           ! Love is not about getting everything on the list, !
! kjell@elixir.e.kth.se ! it's about accepting the things that aren't on    !
!                       ! the list!             - Stewart Markowitz, LA Law !
Xref: sparky comp.lang.pascal:5397 comp.sys.ibm.pc.programmer:422
From: exuptr@exu.ericsson.se (exuptr@exu.ericsson.se)
Newsgroups: comp.lang.pascal,comp.sys.ibm.pc.programmer
Subject: Re: writeln for graphical modes
Date: 14 Sep 92 19:29:21 GMT
Organization: Ericsson Network Systems, Inc.

In article <1992Sep14.121939.11310@news.cs.indiana.edu> wcwang@moose.cs.indiana.edu (Bill Wang) writes:
>From: wcwang@moose.cs.indiana.edu (Bill Wang)
>Subject: writeln for graphical modes
>Date: 14 Sep 92 17:19:30 GMT

>Does anyone know how to do char string (array of chars) output on
>the screen in various graphical mode in a PC such as EGA, VGA, SVGA, etc...
>using Microsoft Pascal?

>I couldn't find any reference in Microsoft's manuals and couldn't seem
>to find any book specific for MS Pascal either?  


>Any help or point would be greatly appreciated!



>-- 
>Bill Wang
>US Mail = Psychology Department, Indiana University, Bloomington, IN 47405
>Internet = wcwang@cs.indiana.edu

You aren't Gene Wang's brother by any chance ;-)
 ----------------------------------------------------------------------------
    "This must be Thursday.  I never could get the hang of Thursdays"
                                                       - Douglas Adams
  - Patrick Taylor                                       (Arthur Dent)
    Ericsson Network Systems
    exuptr@exu.ericsson.se                       "Don't let the .se fool you"
    or exuptr@ZGNews.Lonestar.Org, exu.exuptr@memo.ericsson.se
Newsgroups: comp.lang.pascal
From: TEB@VM.NRC.CA (Tom Bach)
Subject: Re: Shareware Pascal Compiler?
Organization: National Research Council
Date: Thu, 10 Sep 92 12:31:16 EDT

Does anyone know of a shareware version of Pascal, or a subset of it,
suitable for beginners?
Newsgroups: comp.lang.pascal
From: eigenstr@cs.rose-hulman.edu (Todd R. Eigenschink)
Subject: Pascal Standard
Organization: Rose-Hulman Institute of Technology
Distribution: comp
Date: Fri, 11 Sep 1992 01:42:30 GMT

FAQ or not, I've got a question I don't have a lot of time to get
answered:  Is there an electronic copy of the Pascal standard floating
around anywhere?  If it's an FAQ, would someone please mail the list
to me, and if not, would anybody clue me in?

(I can't find any references to FAQ in all the articles we have here
except people asking questions they think are FAQs.  :-)

--
Todd Eigenschink (eigenstr@CS.Rose-Hulman.Edu)
Psychopathic Peon System Administrator
Rose-Hulman Institute of Technology, Terre Haute, IN
Newsgroups: comp.lang.pascal
From: ts@uwasa.fi (Timo Salmi)
Subject: Re: New Idea!
Organization: University of Vaasa, Finland
Date: Tue, 8 Sep 1992 04:58:11 GMT

In article <1992Sep5.041154.10290@uwasa.fi> ts@uwasa.fi (Timo Salmi) writes:
>and SIMTEL20.  You can find the reference eg in /pc/ts/bestpr24.zip. 

My mistake.  It is
  6016 May 19 05:16 garbo.uwasa.fi:/pc/pd2/bestpr24.zip

..................................................................
Prof. Timo Salmi
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


Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: Video mode patch for TP6
Organization: Queen's University
Date: Sun, 13 Sep 1992 02:24:02 GMT

In article <2185.2AB2263C@catpe.alt.za> Louis.Mandelstam@p2.f42.n7101.z5.fidonet.org (Louis Mandelstam) writes:
> Yeah, I know it turned out Borland didn't REALLY use TV for the IDE, but 
> I'm sure the same basic routines were used?

Where did you hear that?  I've done binary compares of the object code in 
TPU files and TURBO.EXE, and it's pretty clear that it contains the 
following units:

  DOS, DRIVERS, OVERLAY, SYSTEM, COLORSEL, STDDLG, DIALOGS, APP,
  MENUS, VIEWS, HISTLIST, MEMORY, OBJECTS

If that's not using TV, what is it?

If you're interested in more details on the compares I did, look for 
TP6MAP.ZIP or TP6MAP2.ZIP.  I think at least the first is on garbo in 
/pc/turbopas; it gives the addresses of all the routines in the above 
units, to aid in patching the IDE.  The second adds a map for the June 91 
release of the compiler.  

If you really think it's possible to patch TV to use a special video mode, 
I'd recommend getting a copy of the map I made.  You might get away with 
just a few changes to the DRIVERS unit, or maybe it's not possible at all.  
I don't know.  For some idea of what sort of difficulties to expect, look up 
the TVG package, that tricks TV into running in graphics mode.

Duncan Murdoch
Newsgroups: comp.lang.pascal
From: art@world.std.com (Al Thompson)
Subject: Re: Turbo Pascal 7.0
Organization: The World Public Access UNIX, Brookline, MA
	<1992Sep9.153800.1035@iplmail.orl.mmc.com>
Date: Thu, 10 Sep 1992 18:35:39 GMT

In article <1992Sep9.153800.1035@iplmail.orl.mmc.com> steveg@iplmail.orl.mmc.com (Steve Gabrilowitz) writes:

   In article <1992Sep8.221748.94862@ns1.cc.lehigh.edu>, jlw5@ns1.cc.lehigh.edu (JOHN LESLIE WILLIAMS) writes:
   |> Does anyone know the status of Borland's Turbo Pascal 7.0?  I have heard
   |> repeated rumors that it is in the late stages of development, and any info on
   |> beta testing, what this new version will have and when it will be available
   |> would be greatly appreciated

   This sort of message appears on the net from time to time, and is really a rather
   silly one because anybody who might have any information on such would be
   contractually obligated to not disclose it.

Not so.  I was talking to a Borland service tech a few weeks ago.  I was
complaining about being constrained to the brain dead memory model of
DOS.  He told me to hold on until some time this fall when TP 7.0 would
be out as it "cures" the problem.  I doubt he'd have said anything if his
boss, Mr. Borland, didn't want him to.  BTW, later I mentioned tp 7.0 to
another Borland techie and he said, it might not be called 7.0 but was
coming out in late fall.

Newsgroups: comp.lang.pascal
From: gjp@sei.cmu.edu (George Pandelios)
Subject: Re: BGI printer drivers
Organization: The Software Engineering Institute
Date: Fri, 11 Sep 1992 13:16:35 GMT


In article <10271@vice.ICO.TEK.COM>, bobb@vice.ICO.TEK.COM (Robert Beauchaine) writes:
|> 
|>   I've gotten management here to buy into a third party BGI printer
|>   driver collection for TP 6.0.  I have references to three
|>   companies currently:
|> 
|>     Fleming Graf/Drive Plus
|>     Ansoft
|>     Ryle Design
|> 
|>   Anyone got any comments, additions, or information on this
|>   subject?  
|> 
|> /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ 
|> 
|> Bob Beauchaine bobb@vice.ICO.TEK.COM 
|> 
|> C: The language that combines the power of assembly language with the 
|>    flexibility of assembly language.
|> 
|> Real friends don't let friends use UNIX.
Amen.

As to Graf/Drive Plus, it got a terrific review in a recent (last 2 issues?)
of PCTechniques.  You might want to check that out.

I am also looking at it.  I have a need to control more than 1 output device
at a time, so I'm still pondering my options.  I believe that is a limit of
BGI, though, not the Graf/Drive product.

I have no connection with Fleming Software.

George
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  George J. Pandelios				Internet:  gjp@sei.cmu.edu
  Software Engineering Institute		usenet:	   sei!gjp
  4500 Fifth Avenue				Voice:	   (412) 268-7186
  Pittsburgh, PA 15213				FAX:	   (412) 268-5758
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Disclaimer:  These opinions are my own and do not reflect those of the
	     Software Engineering Institute, its sponsors, customers, 
	     clients, affiliates, or Carnegie Mellon University.  In fact,
	     any resemblence of these opinions to any individual, living
	     or dead, fictional or real, is purely coincidental.  So there.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
From: holland@matt.ksu.ksu.edu (Rich Holland)
Newsgroups: comp.lang.pascal
Subject: Re: New Idea!
Date: 7 Sep 1992 09:39:41 -0500
Organization: Kansas State University
NNTP-Posting-Host: matt.ksu.ksu.edu

ts@uwasa.fi (Timo Salmi) writes:

>Why isn't EQdit's jump to a line number command (control-J)
>sufficient? Am I misunderstanding your question, or missing
>something about it?

I didn't know about control-J.  Someone else pointed out to me that
'q filename -n#k' will load filename and jump to line k of the file.
That's more in line of what I was looking for.

>I'll try a tentative idea.  There just might be a roundabout way. 
>Could we utilize a clipboard?  There is an excellent one called
>DOSCLIP in the PC-Magazine utlities, which are available from garbo
>and SIMTEL20.  You can find the reference eg in /pc/ts/bestpr24.zip. 

I've been using snippr24.zip (SNIPPER.COM) to cut the line with the
runtime error, then loading the SCREEN.CUT file along with my file,
and then using PgDn to find the line I need, and then referring to
the SCREEN.CUT file to get the address from the MAP file.  IT's taking
just a bit to long for my tastes.  I'm going to code something to
automate it...i'll upload it somewhere when I'm done.
-- 
Rich Holland              | INTERNET: holland@matt.ksu.ksu.edu
100 Jardine Terr, Apt A7  | BITNET  : holland@ksuvm
Manhattan, KS  66502-3357 | UUCP    : ...!rutgers!matt.ksu.ksu.edu!holland
char*p="char*p=%c%s%c;main(){printf(p,34,p,34);}";main(){printf(p,34,p,34);}
From: ekeland@boeygen.nr.no (Anders Ekeland)
Newsgroups: comp.lang.pascal
Subject: TPW - spreadsheet code
Date: 7 Sep 92 08:43:58 GMT
Organization: /nr/boeygen/u2/ekeland/.organization

Some weeks ago someone asked if anyone had written the basics for 
spreadsheet like applications. Regrettably I did not save the posting.

Was there any response to this question? 

As I am new to Windows programming - what would you use to implement a
spreadsheet-like interface? Lists? Statics? Edits?
Newsgroups: comp.lang.pascal
From: ts@uwasa.fi (Timo Salmi)
Subject: Re: New Idea!
Organization: University of Vaasa, Finland
Date: Sat, 5 Sep 1992 04:11:54 GMT

In article <188jleINNcn6@matt.ksu.ksu.edu> holland@matt.ksu.ksu.edu (Rich Holland) writes:
>Question 1:  Is there a way to jump to a given line in Qedit?  Like a 
>macro you could use (Alt-J for Jump?) and enter the line number to go
>to?

As you know I've written a fair number of publicly available QEdit
macros, but before we step further help me understand something. 
Why isn't EQdit's jump to a line number command (control-J)
sufficient? Am I misunderstanding your question, or missing
something about it?

>Question 2:  Anyone (other than me) be interested in (or know of!) a
>program to grab the runtime error off the screen (from video memory),
>load up an editor with the file (Qedit, or an internal editor), and
>jump to the offending line??

I'll try a tentative idea.  There just might be a roundabout way. 
Could we utilize a clipboard?  There is an excellent one called
DOSCLIP in the PC-Magazine utlities, which are available from garbo
and SIMTEL20.  You can find the reference eg in /pc/ts/bestpr24.zip. 

Garbo is down at the moment, but the files are at the mirrirs and
SIMTEL20.

..................................................................
Prof. Timo Salmi
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
From: jdz1@Ra.MsState.Edu (John D. Zitterkopf)
Newsgroups: comp.lang.pascal
Subject: VAL: Replacement for a LongInt?
Keywords: Val(
Date: 11 Sep 92 16:31:01 GMT
Organization: Mississippi State University

Hello,
	I'm writing a program that stores Telephone #s and attempting to use
a LongInt to save space rather that a string. The problem is that I use a 
string to retrieve the value do that the phone # can be type as (xxx)yyy-zzzz.
The function I have developed works fine except that the VAL function I use
seems to tell my "problem" corrector that the last digit is an invalid char for
a number. I am convinced that the problem stems from the fact that the built-in
VAL procedure was developed for simple real/int values, not unsigned, LongInt
that I need. Has anyone run into this problem before? Does anyone have a 
replacement or mod? 

Please contact me by E-mail,
Thanks!
John

--
 ____________   _------_  |||IBM & |      EE majors Do it Best 8-)
  --------\\ ] ~-______-~ |||Atari |~~~~~~~~~John D. Zitterkopf~~~~~~~~~~~~~
     (~~~~~\\|_(__ ~~    / | \Rules!jdz1@ra.MsState.edu  jdz1@MsState.bitnet
      \______| (        /  |  \    |AOL: zitt@aol.com  jdz1@isis.MsState.edu
From: 9125113g@lux.latrobe.edu.au (Mitch Davis)
Newsgroups: comp.lang.pascal
Subject: Re: Ctrl-Break in TP 6.0 programs
Date: 11 Sep 92 10:30:38 GMT
Organization: La Trobe University

In article <exuptr.475.716143552@exu.ericsson.se> exuptr@exu.ericsson.se (exuptr@exu.ericsson.se) writes:
>In article <5341@tuegate.tue.nl> erik@blade (Erik Manders) writes:
>
>>Hello,
>
>>When I write a program in Turbo Pascal 6.0, it is always possible to
>>interrupt it by pressing Ctrl-Break. I don't want this to be possible,
>>so is there anybody who knows what I have to do to prevent this.
>
>*Sigh*
>uses crt;
>....
>begin
>...
>Checkbreak := false;

Sigh.  CheckBreak controls whether DOS checks for Ctrl-Break ALL the
time, or just when doing console input/output.  It is still possible for
programs that have CheckBreak := false to be halted using Ctrl-Break.

Two solutions that DO work:  Make an int $09 handler, which swallows the
Pause(etc) key if the Ctrl key is pressed, or make an Int $23 (is that
right?) handler which grabs the Ctrl-Break but doesn't ask for a halt.

Neither are particularly easy, but at least they work.

Mitch.
Newsgroups: comp.lang.pascal
From: friesenda@skyfox.usask.ca
Subject: RE: I need help with copying ""records""
Organization: University of Saskatchewan
Date: Wed, 9 Sep 1992 01:24:43 GMT

In a previous article, tech@crash.cts.com (Don Bontemps) wrote:

>Now if I wanted to copy data[1] to data [2], could I just say
>data[2] := data[1] or would I have to do it this way
>data[2].name := data[1].name and so on and so forth.  Your help
>would be greatly appreciated.  Thanks (in advance).


data[2] := data[1];

should work fine; both elements are of the same type.  Its the
same as assigning one integer to another - just a different variable
type.



-----------------------------------------------------------------------------
Darryl Friesen          |  "The vet let me keep them... they're my testicles"
Univ. of Saskatchewan   |   - Far Side cartoon: dog talking to his buddy.
friesenda@sask.usask.ca |
Newsgroups: comp.lang.pascal
From: pf@bilbo.bio.purdue.edu (Paul Furbacher)
Subject: Re: Track double clicks in HandleEvent, etc.
Organization: Purdue University
Distribution: comp.lang.pascal
Date: Thu, 10 Sep 1992 23:50:45 GMT

In article <SHEN.92Sep9131200@nil.IRO.UMontreal.CA>, 
  shen@nil.IRO.UMontreal.CA (Yu Shen) wrote:
asking ...
> how to track mouse double clicks ...

Peter Roth wrote in a follow-up article: 
> make sure you enable the event. Check the documentation for
>'evXXXX'... 

Good advice, but a bit laconic.  

If your descendent object is derived from TView, it will recognize
*evMouseDown*, evKeyDown, and evCommand (p. 308 TV Guide).
Other descendents of TView may have modified the TView field called
EventMask.  As pointed out in the manual somewhere, if you want to 
change the status of the EventMask field, do the following:
  ...
  EventMask := EventMask or ...;  { not + }
  ...
in your derived Init() method.

> And I don't quite understand the meaning of evMouseAuto. According to
> TP Vision guide: periodic event while mouse button held down. But in
> debugging, I noticed that after mouse button is released, there are
> still endless evMouseAuto events.

It seems  to me that using the debugger to track evMouseAuto might be a
little difficult to do.  If you need evMouseAuto for the purpose of dragging 
a view ...

> Anyway, I'd like to know how implement dragging a view by helding
> mouse button.

.. my question is why?  All descendents of TView are draggable.  Just set
the DragMode field of your descendent in its Init() method (see page 307).
As an example, while playing around with TMenuBox descendents, 
it was easy to set-up a draggable, always visible additional "toolbar".  
So, why re-invent the wheel.  If your object is not a descendent in 
some manner of TView, you might want to redesign its ancestry.

So as not to brush off the query of evMouseAuto, try constructing a loop
in your event handler.
  ...
  repeat
    Play(880,100);
    delay(100);
  until not MouseEvent(Event, evMouseAuto);
  ...

where Play() is

  procedure Play(Pitch, Duration: integer);
  begin
    Sound(Pitch); Delay(Duration); Nosound;
  end;

It will be necessary to include "crt" as the first unit in your "uses" clause. 

Holding down the mouse button (assuming your descendent uses the 
standard EventMask of  TView) should make some noise.  Play() can be
a useful debugging tool, in general.

PF

Newsgroups: comp.lang.pascal,alt.msdos.programmer