HDTenEightyP/NetNews huggingface dataset:
From: g92m3062@ru.ac.za (Brad Meier)
Newsgroups: comp.lang.pascal
Subject: Re: About gametp10.zip
Date: 5 Nov 92 17:09:36 GMT
Article-I.D.: hippo.1992Nov5.170936.18197
Organization: Rhodes University, Grahamstown, South Africa
X-Newsreader: Tin 1.1 PL5

Eddie Lotter (lotter@cc.und.ac.za) wrote:
: <LOPEZJ@EVALUN11.BITNET> writes:
: >     I am trying to ftp gametp10.zip from wuarchive (five or six times) but
: > I have a problem: when I have unloaded 180224 bytes, the ftp is closed. The
: > file is 189056 bytes. What is happening? Help meYY
: 
: It sounds like your connection is timing out. If you have a slow link
: like we do in .za then this probably happens all the time! It took me
: three tries to get the whole of gametp10.zip 8(
: 
: Cheers
: Eddie
: /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
: \ PMail : Lotter@cc.und.ac.za                                        /
: /                                                                    \
: \ "Calling occupants of interplanetary craft, we are your friends."  /
: /  - Carpenters                                                      \
: \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

Try FTP.SUN.AC.ZA next time Eddie... I pulled that down as soon as it was
released... with FSP (no chance of it dying!!).

Please, all .ZA people, check FTP.SUN first!!

--
 |  / |  | ~|~ /~~\  |  | ~|~ /~~\  |~~\  /~~\         The KnightOrc 
 |/   |\ |  | |   __ |__|  | |    | |__/ |         g92m3062@hippo.ru.ac.za
 |\   | \|  | |    | |  |  | |    | |  | |      "When it's over I'll go home, 
 |  \ |  | _|_ \__/  |  |  |  \__/  |  |  \__/    until then, I stay!" - Me

(What I say is what I mean, nothing to do with Rhodes University
From: Bert.Edens@f1160.n391.z1.FidoNet.Org (Bert Edens)
Sender: UUCP@p0.f1060.n391.z1.FidoNet.Org
Newsgroups: comp.lang.pascal
Subject: What we need is a TPU to PAS convertor (Re: tpu files)
Date: 07 Nov 92 23:40:00 EST


Thursday November 05 1992, Timo Salmi writes to All:

 TS> From: ts@uwasa.fi (Timo Salmi)
 TS> In article <dmurdoch.146.720968866@mast.queensu.ca>
 TS> dmurdoch@mast.queensu.ca (Duncan Murdoch) writes:
 >> In article <1992Nov5.045047.21508@uwasa.fi> ts@uwasa.fi (Timo Salmi)
 >> writes: The other solution besides an unlikely TPU2PAS is to
 >> distrubute the TPUs in all the TP versions.  I use that solution for
 >> my own. Bad news, Timo:  From what I hear, BP 7 includes *3* new .TPU
 >> formats - DOS, DOS protected mode, Windows.  (Actually, I suspect
 >> they're all the same
 TS> Eeeeeeeeeeeeeeeeeeeeeeek !!!!!!!!!!!!  :-)
 >> Duncan Murdoch
 TS>    All the best, Timo

Well, Timo, you may not speak out as often as you used to in c.l.p, but you
sure do get to the point when you do... :)

   -Bert

 * Origin: Hillbilly Korner BBS - (501) 751-3714 (1:391/1160)
Newsgroups: comp.lang.pascal
From: ae769@yfn.ysu.edu (Ritesh Patel)
Subject: LISP & PASCAL - comparission
Reply-To: ae769@yfn.ysu.edu (Ritesh Patel)
Organization: St. Elizabeth Hospital, Youngstown, OH
Date: Fri, 6 Nov 1992 04:54:35 GMT


I am writing a paper comparing lisp and pascal and would like some input
from someone who knows a little about both languages.

I am looking for languages semantics, reliability, portability .. issues.
--
From: ELS-MIMO@risoe.dk (Mikael Lindberg Mortensen)
Newsgroups: comp.lang.pascal
Subject: Re: tp graphics
Date: 11 Nov 92 09:48:13 GMT

> From:       NOWINSKI A - OPTOMETRY <nowinski@watserv1.uwaterloo.ca>
> Subject:    tp graphics
> Date:       9 Nov 92 19:40:09 GMT
> To:         info-pascal@BRL.MIL

>
> Subject : Help needed for Graphics in Turbo Pascal 6.
>
> Hi,
>   my name is Jack Nowinski. I have some trouble with graphics in
> Turbo Pascal, I have three questions. I would really appreciate
> some help with this.
>
> 1) I want a picture that has the PCX or GIF extension to show up
>    on my graphics screen, and in any screen resolution I want
>    i.e. (320x200x256, 640x480x16 etc). I also want the
>    picture to show up in a flash, instead of a slow fade.
>
> 2) I would like to have people walk in the background without
>    changing color or leaving black blocks behind. When I draw a
>    person in Turbo Pascal, and I put them to screen using
>    PutImage() after I put my character to a new position the old
>    position my person was on will have a black square, is there a
>    way to get rid of the black square on the old position and
>    make it look like my character is on a separate foreground
>    than the background, so what goes on in the foreground will
>    not change what happens in the background, or when I want the
>    two to work together.
>
>
> 3) When I use SetActivePage() or SetVisualPage() it does not work
>    in the mode I am using, I am using the 320x200x256 mode in
>    Turbo Pascal. If I have a background picture and I want to
>    animate it. How would I do this if SetActivePage() and
>    SetVisualPage() do not seem to work.
>

AD 1:   The Hardware support for the modes you mention, is not very
good in TP 6.0 Standard version (MY opinion) so I dont think you can
make the pictures   "FLASH" on to your screen using Standard Pascal
calls, you would hace to implement some special hardware near code.

AD 2: One way to preserve the background is to store the background in
memory with the GetImage procedure and then put your background before
you put your forground, this can be slow ( I wonder how Sierra do
this).

AD 3: You would have to write directly to the video registers, or
better get a different BGI driver that could do the trick for you.

I think TP has drawbacks on the graphical part, as far as I remember
there were no improvements made to the GRAPH unit from version 5.5 to
6.0, not even mouse support, maybe this is better in version 7.0

Hope this helps




          ______________________________________________________
         |   __  .  __   __     |   Mikael Lindberg Mortensen   |
         |  |__| | |__  | /|    |   Research Center Risoe,      |
         |  |  \ |  __| |/_|    |   Roskilde Denmark.           |
         |______________________________________________________|
Newsgroups: comp.lang.pascal
From: hartnegg@sun1.ruf.uni-freiburg.de (Klaus Hartnegg)
Subject: Re: rebooting computers in programs
Keywords: reboot
Organization: Rechenzentrum der Universitaet Freiburg, Deutschland
Date: Sun, 8 Nov 92 12:07:22 GMT

ma1cs181@troi.cc.rochester.edu (jeff gramowski) writes:

>     I need to find a way to have my computer reboot at the end of one
>of my programs.  I have tried to use the Intr($19,regs) comand in turbo   
>pascal 6.0 and it only caused the computer to freeze up.  I need the 
>computer to act like the Ctrl-alt-del keys have been pushed.

First try to simulate a ctrl-alt-del to cause disk caches
to flush their buffer. Then have the keyboard controller to do
a hard reset of the cpu. This is more reliable than the
jump $ffff:0000. Intr 19 is known to cause lots of problems.

Procedure boot (magic:word);
begin
  memw[$40:$72] := magic;             { set boot type }

  { let BIOS boot or flush write cache }
  mem[$40:$17] := mem[$40:$17] or $F; { press ctrl + shift + alt }
  asm
    mov ax, $4F53                     { press del }
    int $15
  end;
  mem[$40:$17] := mem[$40:$17] xor $F;{ release ctrl + shift + alt }

  { if we come here: allow cache to become active }
  writeln;
  idle; idle;

  { reset CPU }
  port [$64] := $FE;                  { tell keyboard controller to reset CPU }
  delay (500);                        { wait until it has an effect }

  { if it didn't work, try this: }
  inline ($EA/00/00/$FF/$FF);         { jump FFFF:0000 }

  { we had no luck, so go into an endless loop }
  asm
  @0: jmp @0
  end;

end;


Procedure ColdBoot; begin boot ($0000); end;
Procedure WarmBoot; begin boot ($1234); end;

-- 
------------------------------------------------------------------------------
Klaus Hartnegg, Kleist-Str. 7, D-7835 Teningen, Germany | This text reflects  
Internet : hartnegg@ibm.ruf.uni-freiburg.de             | MY opinion, not that
Bitnet : hartnegg@dfrruf1 or hartnegg@cernvm            | of my employer !     
Organization: Freshman, CIT general, Carnegie Mellon, Pittsburgh, PA
Newsgroups: comp.lang.pascal
Date: Wed, 11 Nov 1992 09:25:34 -0500 
From: "Stephan A. Zdancewic" <sz24+@andrew.cmu.edu>
Subject: Re: Chess Puzzle

>This is my first posting to this group, so I hope it even gets there,
here >goes!
>I'm trying to work out a solution to the "Eight Queens" chess problem
whereby y
>ou
>try to place 8 queens on a chessboard in such a way that no one queen can get 
>another queen. I've seen a solution to this problem using the "Icon"
language b
>ut
>I,m interrested in a Pascal solution. I figure 2 arrays [1..8] can
represent >the
>chessboard and I've worked out a procedure on how to make a
horizontal,vertical
> and
>both diagonals un-usable upon placement of a queen. The problem is in a
recursi
>ve
>procedure to keep trying the next placement and so on. Anybody have any
clues >or
>has anyone seen this before. Steer me in the right direction!!!

We just wrote a program in my computer science class to check a chess
board as you describe to see if it is 'safe.'  Based on the techniques
we used I have several suggestions that I hope are of some help.
First, it is probably easier to use a two dimensional array [1..8,1..8]
of boolean. That way you don't have to worry about arrays of arrays -
that could get messy.
One way to write this program (although it would be very slow) without
recursion would be to start at the upper corner of the board. Here's
some pseudo-code:

start at corner;
if (row is safe) and (column is safe) and (diagonals are safe) then put
a queen;
move to next square;

To check it a given line of squares is safe use code something like this:

function SafeLine(board : boardType; row, col, rowInc, colInc) : boolean;

var  Attacking : boolean;

begin
 Attacking := false;
 row := row + rowInc; {These two lines make sure you don't check the 'current' 
 col := col + colInc;   square}
 while (row > 0) and (row <= 8) and (col > 0) and (col <= 8) and
not(Attacking)         
   do begin
     if board[row, col] then Attacking := true;
     row := row + rowInc;
     col := col + colInc;
   end;
 SafeLine := not(Attacking);
end;

This function assumes you have a type boardType which is an array of
booleans.  A true represents a queen.  This function would be used like
this
  If SafeLine(board, row, col, 0, 1) then writeln ('The row to the right
of this square is safe');
To check diagonals make rowInc and colInc equal to 1 or -1, depending on
what direction you'd like to check.  The northeast diagonal would be -1,
1.

This program would generate the same board each time, and it would be
slow but it would work.  I'm sure that there are much faster ways of
accomplishing this, but I hope this starts you in the right direction.

............. . . . . .  .  .  .  .   .   .   .   .   .   .    .    .   
 .     .     .      .       .       .       .        .            .     
 Steve Zdancewic                :  [INSERT APROPRIATE QUOTE HERE]
sz24@andrew.cmu.edu    :
............. . . . . .  .  .  .  .   .   .   .   .   .   .    .    .   
 .     .     .      .       .       .       .        .            .
Newsgroups: comp.lang.pascal
From: dafnioti@cae.wisc.edu (Petros Dafniotis)
Subject: Re: What we need is a TPU to PAS convertor (Re: tpu files)
Organization: U of Wisconsin-Madison College of Engineering
Date: 5 Nov 92 18:11:09 CST

In article <dmurdoch.252.721004191@mast.queensu.ca> dmurdoch@mast.queensu.ca (Duncan Murdoch) writes:
>In article <wyTqTB1w164w@bowker.com> jnicholson@bowker.com (Jim Nicholson) writes:
>A reliable solution that Borland could implement would be a compiler option 
>to produce .OBJ output instead of .TPU output. If you want Borland to do 
>this, start buying compilers that do it instead of Borland compilers.  Stony 
>Brook's, for instance.  Borland is market driven.  If they sell just as many 
>compilers without that option, why put it in?
>
  I read the Borland information on garbo, and if I understood well DLLs
can be used (under the DPMI extender of BORLAND) from both DOS and Win.
If this is true, all this discussion and Duncan's comment are not applicable,
since one can simply use the DLL for intelanguage programming (biggest
necessity for OBJ files otherwise) as well as TPU->DLL maintenance. So
as long as they stick with DPMI all is well; right?
  On the other hand I do not know as much as Duncan or Timo, so could
someone knowledgeable comment on that?

                           Thank you.,
				Petros Dafniotis
				Chem Engr Dept, UW-Madison
Newsgroups: comp.lang.pascal
From: korte@kastor.itp.uni-hannover.de (Gerd Kortemeyer)
Subject: Re: Converting ':=x+y' to :=x+y ( Infix/Postfix )
Summary: Compiler for formulas
Keywords: Compiler, Formulas, 387
Organization: Institut fuer Theoretische Physik, Uni Hannover
Date: Fri, 13 Nov 1992 16:18:43 GMT

Hi.

There was a lot of talk about string-formulas to be computed by
Turbo-Pascal.

Well, if you got a 387 maybe I can help you because I developed a
compiler which has got a STRING with a formula as input (depending on two
variables) and pure 387-code as output, which comes in an ARRAY OF BYTE
you can execute from your program.

It is optimizing in that way it finds out constant parts of the formula
and replaces them by the constant itself.

The compiler is packed into a unit.

Requirements: A real 387 (or 486DX) and at least TP6.0.

The compiler will be part of a book I am writing about the 387 so
copyright is also by the publisher - which means I can't put it onto
some anonymous-FTP. 

If you are interested just send me a mail.

Gerd Kortemeyer
korte@kastor.itp.uni-hannover.de
Organization: Penn State University
Date: Fri, 13 Nov 1992 09:57:26 EST
From: <F0O@psuvm.psu.edu>
Newsgroups: comp.lang.pascal
Subject: Scroll bar update problem

   On a project I'm currently working on using TPW 1.0, I'm displaying
a map in a window and using the mouse to zoom in on sections of the map.
When I rubber-band a region and let go of the left mouse button, my
WMLButtonUp routine will get the new coordinate values and set the scroll
bars to their new position using Scroller:.ScrollTo().  The ScrollTo
method is supposed to update the window, I imagine by calling the Paint
method.
   This all works fine the first time I zoom from the full map displayed
in a window to a sub-section of the map.  By then when I try to zoom in
closer, the ScrollTo method does not seem to be calling the Paint method.
The window will not update the second time.  I can force it to by hiding
it behind another window and then making it the active window, in which
case everything looks fine, but the ScrollTo() method should update the
window for me.
   When I run the program in TDW, the first time I step past the ScrollTo()
method and the window is updated, the debugger will switch to the window
as it updates, then go back to the debugger.  However, the next time I
try and zoom in, when I step past the ScrollTo() method, the debugger does
not switch to the window.
   Has anyone else seen this problem or have any idea as to why the
ScrollTo() method does not seem to update the window on the second call?

                                                                 [Tim]
Newsgroups: comp.lang.pascal
From: etljmme@etlxd10h.etlxd (jim moore xd/nda)
Subject: Re: tp graphics
Reply-To: etljmme@etlxd10h.etlxd
Organization: Ericsson Telecom, Stockholm, Sweden
Date: Tue, 10 Nov 1992 10:37:59 GMT

Hi Jack.

  Save yourself alot of hassle, try and get gametp10.zip by Scott Ramsay (as discussed
in various postings).  I have been using it and it's more than capable of matching
your requirements (as in q.1 and 2) with good sprite routines, ideal for your person
graphic in question 2!

As to SetActivePage and SetVisualPage, Borland has not produced a 320x200x256 driver
that does have working page routines;  I've never found one that does and I've quite
a collection!!  I've never found out why, because it is SOOOO simple to implement but
they just HAVEN'T DONE IT YET!!  Again, Scott's gametp10.zip contains the facility
to write to a virtual page and copy it to the active page.

You can mail Scott on ramsay@access.digex.com

Bye, Jim
Newsgroups: comp.lang.pascal
From: adwright@athena.mit.edu (Andrew D. Wright)
Subject: Floating-point variables
Organization: Massachusetts Institute of Technology
Date: Thu, 12 Nov 1992 01:34:08 GMT

I am using Turbo Pascal 6.0 Professional on a 486 IBM compatible.
Could someone please send me a breakdown of the internal arrangement of bytes 
in the variable types: single, real, double, extended, comp ?
I need to know specifically the bytes in each type that contain the exponent,
where the zero through 9.999999999 real part is located, etc.
I would also like to have a list of software and hardware interrupts, what they
do, what sets them off, what their default interrupt procedures do, what they
use as input and output, etc.  Mainly I am interested in accessing the clock
tick and keyboard interrupts, but I'd like to know what the other ones do, 
also.  Thank you, any who may respond.

- Andy Wright (adwright@athena.mit.edu)
From: zeta%tcscs@idss.nwa.com (Gregory Youngblood)
Newsgroups: comp.lang.pascal
Subject: Re: Where is general Pascal group?
Date: Wed, 04 Nov 92 21:29:29 CST
Reply-To: srcsip!tcscs!zeta
Organization: TCS Consulting Services

Risto Virtanen <rvirta@utu.fi> writes:

> Most of this group is about TurboPascal versions and idiosyncracies!
> But I don't use TurboPascal:-( So where is pure Pascal group?
> Or should there be a separate Turbo group?!?
> 
From what I understand this group is for pascal on all machines... it 
also just happens to have a lot of turbo pascal users here as well.

In theory, (again from what I understand), if there is a specific question
that relates to ONLY to TurboPascal or MSDOS pascal, then it hsould be asked
in comp.os.msdos.programmer, or similar group.

That is what I was told a while back when I asked specific turbo pascal
questions here, AND turbo c questions in the c groups.... (though it seems
the people in the pascal group are more likely to help you, in my experience).

Greg


.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.
.   TCS Consulting Services   P.O. Box 600008   St. Paul, MN  55106-0008    .
.   ..!srcsip!tcscs!zeta                 ..!src.honeywell.com!tcscs!zeta    .
.   zeta%tcscs@idss.nwa.com                      tcscs!zeta@idss.nwa.com    .
.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.-=-.
Newsgroups: comp.lang.pascal
From: sakkinen@jyu.fi (Markku Sakkinen)
Subject: Re: Turbo and Procs/Fns as params..
Organization: University of Jyvaskyla, Finland
Date: Thu, 12 Nov 1992 11:52:32 GMT

In article <1992Nov11.111534.1@uwovax.uwo.ca> 4224_5276@uwovax.uwo.ca (Chris Walden) writes:
>> 2. Turbo Pascal arrogantly continues to omit some essential standard
>>    features, like procedures and functions as parameters, or buffers
>
>Turbo Pascal *DOES* Allow you to pass Procedures and Functions as parameters. 
>Unless I misinterpreted your comment....

Apologies to Borland if this is indeed the case in current TP.
Last time I had looked in a TP manual it wasn't there yet.
Seems to be one of my pet peeves, like those Fortran compilers
that cannot diagnose a jump into a DO loop as an error ...

----------------------------------------------------------------------
Markku Sakkinen (sakkinen@jytko.jyu.fi)
       SAKKINEN@FINJYU.bitnet (alternative network address)
Department of Computer Science and Information Systems
University of Jyvaskyla (a's with umlauts)
PL 35
SF-40351 Jyvaskyla (umlauts again)
Finland
----------------------------------------------------------------------
Newsgroups: comp.lang.pascal
From: jpehko@cs.joensuu.fi (Juha Pehkonen)
Subject: Re: Serial port communications in turbo pascal? (COM ports)
Organization: University of Joensuu
Date: Tue, 10 Nov 1992 11:58:25 GMT

ae769@yfn.ysu.edu (Ritesh Patel) writes:
>What are the different ways of sending codes to the serial ports i.e. COM1, 
>COM2 ...

>I know there are programs that send codes from the dos command line but
>I need to do this from inside a turbo pascal program.

There's an excellent unit available (source code included) called COMM_TP5.
You can find it at nic.funet.fi /pub/msdos/languages/turbopas/comm_tp5.lzh.
Probably available at lots of other sites too.

Juha Pehkonen
jpehko@cs.joensuu.fi
From: Shane.Greyvenstein@f61.n7101.z5.fidonet.org (Shane Greyvenstein)
Newsgroups: comp.lang.pascal
Subject: Turbo Pascal 7.0
Date: 4 Nov 92 15:01:02 GMT
Article-I.D.: catpe.2750.2AF96548
Organization: FidoNet node 5:7101/61 - Pyramid, Pretoria

Hello All!

In a msg of <01 Nov 92>, Mark H. Granoff writes to All:

 ->                         Borland Pascal 7.0      Turbo Pascal 7.0
 ->           Upgrade from
 ->           a previous
 ->           Turbo Pascal          US$149.95                US$89.95

I bought Turbo Pascal V6.0 late last year.  Can anyone tell me how I would go about getting the upgrade to Borland Pascal V7.0?

Kindest regards,
Shane

--  
INTERNET: Shane.Greyvenstein@f61.n7101.z5.fidonet.org
via:  THE CATALYST BBS in Port Elizabeth, South Africa.
       (catpe.alt.za)   +27-41-34-1122 HST or +27-41-34-2859, V32bis & HST.
Newsgroups: comp.lang.pascal
From: mleb0097@rz.uni-hildesheim.de (Mark Lebius)
Subject: Re: inputting non-character keys
Reply-To: mleb0097@rz.uni-hildesheim.de
Organization: Universitaet Hildesheim, RZ
Distribution: world
Date: Mon, 9 Nov 1992 12:13:07 GMT

In article 190434JLHHC@CUNYVM.BITNET, Jack Hammond <JLHHC@CUNYVM.BITNET> () writes:
>How does Turbo Pascal (I have 5.0) read such non-character keys as the
>function keys, insert, home, pgup etc., and alt-keys?

Hello Jack!
Use the function ReadKey (I'm not sure if it is available in TP 5.0; if
not: e-mail me).
If you have pressed a function key this will first return character #0.
If you call ReadKey again, it will return a character as normal. Here
is a little program (I don't tested it, but it should work).
It's written for TP6.0. If you have problems ... see above:

PROGRAM TestKey;
VAR a : CHAR;
BEGIN
  REPEAT
    a:=Readkey;          (*Get charakter from keyboard.*)
    WriteLn(Ord(a));     (*Write the ordinal number of the char.*)
  UNTIL FALSE;
END.

You stop this program by pressing simultaniously Ctrl+Break.
It returns the values of the pressed keys. The function-keys
return 2 values: 0 and x, a value depending on the function-
key.
Hope this helps.

Bye,
Mark

-------------------------------------------------------------------------------
|Mark Lebius                   |        University of Hildesheim              |
|Mergenthalerweg 25            |        E-Mail: mleb0097@rz.uni-hildesheim.de |
|W-3000 Hannover 81            |                mleb1097@rz.uni-hildesheim.de |
|Tel. ++ 49 (5 11) 8 43 68 20  |                                              |
|Germany                       |                                              |
-------------------------------------------------------------------------------
"Geh nicht immer auf dem vorgezeichneten Weg, der nur dahin fuehrt, wo andere
 bereits gegangen sind"
                           A. G. Bell (1847-1922)
From: toddy@uni-paderborn.de (Thomas Rose)
Newsgroups: comp.lang.pascal
Subject: CD-ROM Functions
Date: 9 Nov 1992 18:28:03 GMT
Organization: Uni-GH Paderborn, Germany
Distribution: world
NNTP-Posting-Host: cabrera.uni-paderborn.de

I am looking for a librabry which helps me to build a CD-ROM Audio-Player
under Turbo Pascal 6.0 !

If anybody has such things, please send it to Toddy@uni-paderborn.de

         Tom