HDTenEightyP/NetNews huggingface dataset:
From: psmedsha@ecst.csuchico.edu (Paul Smedshammer)
Newsgroups: comp.lang.pascal
Subject: Drawing 3D Lines
Date: 6 Jan 93 19:33:45 GMT
Organization: California State University, Chico
NNTP-Posting-Host: cscihp.ecst.csuchico.edu

Is it possible to draw a 3D line in the graphic unit in Turbo Pascal
6.0?  What I have is a few vectors that I have the coordinates for
and I would like to draw those vectors in 3D on the screen so the
user will be able to view the solution graphically.  I would like to
use the cylindrical coordinate system (R, Theta, Phi) but I am not
stuck to that.  I would also like to view the vectors in the view as
below so I can see the angles that the vectors make.  
                        Z
                        |
                        |
                        |
                         ---------- Y
                       /
                      /
                     /
                    X
I would appreciate any suggestions.  Thanks for your time.

I would also like to say that this Group is great!  I really enjoy
all the questions and answers.  I have learned more in this group
that in any programming class.  Keep up the good work!

Paul
------------------------------------------------------------------------------
psmedsha@ecst.csuchico.edu (Paul Smedshammer)

Graduate Student in Mechanical Engineering
California State University at Chico
------------------------------------------------------------------------------
Newsgroups: comp.lang.pascal
From: Sorokin@ps1.iaee.tuwien.ac.at (Sorokin Zhenya)
Subject: Once more about big structures in BP7.
Organization: Inst. of General Electronics and Electroengeneering, TU Vienna
Date: Sat, 9 Jan 1993 16:47:01 GMT

Hallo!

There was a discussion on the topic of big memory now allowed in BP7 
already. However, one thing is still unclear to me: can I use structures 
bigger than 64k in BP7 program? To be precise:

1. Is the space for global variables now bigger than 64k in protected mode?

2. What is the upper limit for stack size?

3. Can I allocate a place for the structure, that is bigger than 64k on the 
heap? If not, why (i.e. what procedure is used to allocate memory on the 
heap? The conventional one from DOS takes only WORD as parameter, but maybe 
DPMI has another call)?

4. If 3. is "no", can I use some trick (if yes, which one) to allocate 
__contigiously__ enough blocks of memory to simulate allocation of bigger 
one?

5. If 4. is "yes", than can I address, say, MyDoubleArr[100000] (vorbidden 
in 8086 mode, but principally not in protected)?

6. Can I write "type MyDoubleArr = array [1..100000] of double"?

I want to clarify these points before I decide (if at all) to upgrade to BP7.

Special note to Timo: just read bp7-info from GARBO. No clues. Maybe these
questions with answers deserve to be added to bp7-info?

Thanks in advance,
Newsgroups: comp.lang.pascal
From: ts@uwasa.fi (Timo Salmi)
Subject: Re: There is no decompile on Turbo is there?
Organization: University of Vaasa, Finland
Date: Mon, 11 Jan 1993 21:13:43 GMT

In article <1ifihbINNe4e@usenet.INS.CWRU.Edu> ah157@cleveland.Freenet.Edu (Rob Henry) writes:
>I can't take a trubo pascal compiled program and reverse it to get
>the source code can I?

(Warning: Not to be taken seriously).

The real dilemma arises if the original program's writer works in
another language than English.  All the known reverse compilers will
choke in trying to reverse-engineer eg Finnish program comments and
Finnish procedure names.  Other than that, piece of cake, except
some source code indentations might sometimes not be restored quite
accurately.  :-) :-)

Take this with a big pinch of salt!

   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
Newsgroups: comp.lang.pascal
From: Steph <CT80@music.mus.polymtl.ca>
Subject: Performance questions
Organization: Ecole Polytechnique de Montreal
Date: Fri, 8 Jan 1993 00:26:42 GMT

First off I would like to thank all of you (there was a lot!) that
took the time to reply on the "User-Interface Language" question.
There were a lot of different ideas, and I have yet to choose one.
If you guys want it, I can post a summary of them all on this sub.

Anyway, I have two more questions for you out there.  Boy, I never
stop, eh?

1) I have seen often in 'C programs big functions separated in their
   own .C file, to make their own separate .OBJ file.  If I were to
   do this in PASCAL, implementing one function per .TPU, would there
   be any performance lags _at run time_?

2) considering the two following examples, which ones would run
   faster, if we take into account that disk access is much slower
   that any calculations done to find the indexing, thus the latter
   can be ignored:

var datatfile : file;

(**** example one *****)

  reset(datafile, 1);
  seek(datafile, random(100) * datasize);
  blockread(datafile, data, datasize, bytesread);

(**** example two *****)

  reset(datafile, datasize);
  seek(datafile, random(100));
  blockread(datafile, data, 1, records_read);

All I want to know if there is a difference, in _disk access_
between the two cases.  Thank you!

Steph.

Newsgroups: comp.lang.pascal
From: snodgras@cs.unca.edu (Ryan Snodgrass)
Subject: TP6 TPU to TP7 TPU converter
Organization: University of North Carolina at Asheville
Date: Tue, 12 Jan 1993 19:47:42 GMT

Would it not be possible to create a TP6 TPU to TP7 TPU converter if you knew
both of the formats?  <grin>  Just wondering.  Oh, and if so,does anyone have
the format of both of the TPU types?  Thanks,

Ryan

Newsgroups: comp.lang.pascal
From: nowinski@sciborg.uwaterloo.ca (Andrew Nowinski)
Subject: tvquestion
Organization: University of Waterloo
Date: Mon, 4 Jan 1993 16:56:20 GMT


Hi,
   my name Mark Nowinski I was wondering how I can put my program
into Turbo Vision. (Program listed below)

Program Convert;
Uses CRT;
const
    intercept = 32.0;
    slope = 1.8;
Var
  fahrenheit, celsius : real;
begin
ClrScr;
     write('Enter the degrees in Celsius: ');
     readln(celsius);
     fahrenheit := intercept + celsius * slope;
     writeln('That is equal to ',fahrenheit:3:0,' degrees F');
repeat until keypressed;
ClrScr;
end.


I would appreciate if someone wrote a short demo program.

--
Mark Nowinski
E-Mail: nowinski@sciborg.uwaterloo.ca
From: ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
Newsgroups: comp.lang.pascal
Subject: Re: Pascal Routine needed to read DOS directories...
Date: Wed, 6 Jan 1993 10:26:38 GMT
Organization: INSA  CENTRE INFORMATIQUE DU 1er CYCLE
Distribution: na
NNTP-Posting-Host: pc110-02.insa-lyon.fr
Keywords: pascal, dos, directory, needed

In article <C0F380.CDI@andy.bgsu.edu> jzawodn@bgsu.edu (jeremy zawodny) writes:
>From: jzawodn@bgsu.edu (jeremy zawodny)
>Subject: Pascal Routine needed to read DOS directories...
>Keywords: pascal, dos, directory, needed
>Date: Wed, 6 Jan 1993 05:28:47 GMT


>I am in need of a routine, unit, etc. that can be incorporated into a
>Borland Pascal/Turbo Pascal 6.0 or 7.0 program I am working on.  What I
>need is a way of reading a specified directory and obtaining a list of all
>the file in it along with their sizes, and dates.

>Any pointers, sources, help, etc. would be greatly appreciated!

>Thanks,

>Jeremy


>-- 
>Jeremy Zawodny, Computer Nerd (student) @ Bowling Green State University

>jzawodn@andy.bgsu.edu

Check FindFirst, FindNext, Doserror and SearchRec in TP6 docs or on-line 
help. There are full examples of your problem. 
ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
--------------------------------------------------------
Dr Patrick L.Pollet
Institut National des Sciences Appliquees
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: mueller@iwf.mabp.ethz.ch (Mueller Beat)
Subject: variable port[..] in tp
Organization: Swiss Federal Institute of Technology (ETH), Zurich, CH
Date: Tue, 12 Jan 1993 13:39:19 GMT

for serial communications tp provides the two pseudo-arrays
'port' and 'portw'. in the handbook iteself i can't find any
useful information what cryptic values are stored in these
registers and why.

does anybody in netland know where i can download a list (or
e-mail it if you have it yourself) with such stuff.

tx in advance

zosh
From: RKOHLBUS@jennifer.umd.edu (Robert C. Kohlbus)
Newsgroups: comp.lang.pascal
Subject: TVision and Cursor
Keywords: tvision,cursor
Date: 8 Jan 93 15:08:30 GMT
Organization: University of Maryland

Dear Fellow Pascal Programmers,
	
	I'm currently working with TP 6.0 (haven't yet found BP 7.0) and 
Turbo Vision.  I am looking for a way to change the normal block cursor into 
a more graphical icon type cursor, like a hand,arrow or an hour glass.  If 
anyone out there thinks they can lend a hand I would be in you debt.  If 
possible, example code is best. (I can read code better than I can English)!
Thanks...

=========================================================================

Robert Kohlbus
University of Maryland
Network Admin. / Computer Programmer
Internet:
    rkohlbus@jennifer.umd.edu
    kohlbus@wam.umd.edu

=========================================================================
From: ISAACSON@husc3.harvard.edu
Newsgroups: comp.lang.pascal
Subject: Re: complex numbers
Date: 12 Jan 93 10:37:22 GMT

Well, I'm new to this mail program I'm using, so I can't quote
you, and I'm new to this list (your message was in my first group
received) so I probably couldn't quote you accurately anyway.
However, I remember you saying that you want some kind of
"exponentiation operator" for Pascal. Well, the only operator of
this type that I know of is referenced mathematically as the caret
"^" -- raising something to a power, or exponent? I wrote a very
simple function in Pascal to do this, although because the subject
line is "complex numbers" I doubt it will help too much. Here it
is anyway:

function power(base, exp : word) : word;
  var
    count, temp : word;
  begin
    temp := 1;
    if exp > 0 then
      for count := 1 to exp do
        temp := temp * base;
    power := temp;
  end;

This one is implemented using words, just because that's what the
program I used it in called for. I do have a fair amount of
experience with things like this, so let me know if I can help
more...

 - Ron Isaacson
From: ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
Newsgroups: comp.lang.pascal
Subject: Re: 2 Questions about Graphic under TurboPascal6
Date: Tue, 5 Jan 1993 17:28:13 GMT
Organization: INSA  CENTRE INFORMATIQUE DU 1er CYCLE
NNTP-Posting-Host: pc110-02.insa-lyon.fr

In article <1993Jan4.225959.311@sinus.stgt.sub.org> stefan@sinus.stgt.sub.org (Stefan Bechtold) writes:
>From: stefan@sinus.stgt.sub.org (Stefan Bechtold)
>Subject: 2 Questions about Graphic under TurboPascal6
>Date: Mon, 4 Jan 1993 22:59:59 GMT

>Hi !

>I've two questions about the graphic mode under Turbo Pascal 6.0:

>1) What I want to do is to move a rectangle on the screen;
>   How can I do this ? If I use, e.g., a 
>   for i:=1 to 10 do
>   rectangle(i,i,4*i,4*i)
>   I get 10 rectangles drawn together; but what I want is that
>   they only appear for a certain time and then get removed
>   (so that is appear as if the rectangle would move from i,i to
>   10*i,10*i).


    Works in XOR mode : 
    When you draw an object twice in XorMode it restores the part
    of the screen it was on :

      Something like: (by memory check for mispellings !)

        SetWritemode(XORPUT);
        For I:= 1 to 10 do
          begin
            Rectangle(I,I,I*10,I*10);  (* draw it once *)
            Delay (10);                (*wait a bit *) 
            If I <>10 then              
              Rectangle (I,I,I*10,I*10)   (*erase it if not a last 
position*)    
       end;    
           
    


>2) I'm working on a program which often redraws the screen.
>   Is there any possiblity to clear only certain figures/parts
>   of the screen so that others remain on the screen ?
>   (I've a matrix and something writen on that; what I want is that
>   the matrix remains on the screen and only the other stuff will
>   be rewritten)

   By playing with SetViewport(),ClearViewport() you should be able to
    selectiveley erase some rectangular aera of the screen 
   There is an example at ClearViewport entry in the TP6 programmer
   reference manual 



>Thank you very much,
>Stefan
>-- 
>+ Stefan Bechtold # stefanb@delos.stgt.sub.org # Voice +49 711 813240 +
>++++++++sed nemo potuit tangere: merda fuit ! (Martial III 17)+++++++++

ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
--------------------------------------------------------
Dr Patrick L.Pollet
Institut National des Sciences Appliquees
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
-------------------------------------------------------
From: ISAACSON@husc3.harvard.edu
Newsgroups: comp.lang.pascal
Subject: Borland / Turbo Pascal 7.0
Date: 12 Jan 93 10:37:29 GMT

Well, I'm sure this is a question that will receive a great deal
of attention on this list, if it hasn't already. Somebody has to
ask it, so I suppose I will...

I just very recently heard about the new Borland Turbo Pascal 7.0
and Turbo Pascal 7.0. Well, I now use and love Turbo Pascal 6.0,
but there are definitely some things lacking. Not so many
programming features as development features -- token colorization,
and real online help for TurboVision, something which is extremely
powerful if you can figure it out.

So, the big question is this. Is it worth it to upgrade? Will I get
all the great new things I'm looking for, everything I've ever
wanted in a Pascal compiler and more? From the general opinions
I've heard recently, I think the answer is no. They say that the
new version is no faster than the old, and there are enough "little
idiosyncracies" to make it not worth it. In any case, I would have
to keep two copies of Turbo on my system, because I hear the new
TPU format is again not backwards compatible. (Hey, Borland: You
ever think of making new and more efficient TPU formats, but
including an auto-detect for older units and coping with them? I
can't tell you how many third-party, registered and unregistered,
units I cherish for which I do not have and could not get source!)

So, I pose to you the big question. Comparing the benefits to the
COST (which I hear is pretty outrageous if you want something
decent), is it worth it for me to upgrade? Seeing that a lot of
people here use BP7 and TP7 makes me think that this is the best
place to ask. Thanks a lot!

 - Ron Isaacson
Newsgroups: comp.lang.pascal
From: Sorokin@ps1.iaee.tuwien.ac.at (Sorokin Zhenya)
Subject: Re: Once more about big structures in BP7.
Organization: Inst. of General Electronics and Electroengeneering, TU Vienna
Date: Sat, 9 Jan 1993 21:39:34 GMT

In article <dmurdoch.287.726607429@mast.queensu.ca> dmurdoch@mast.queensu.ca (Duncan Murdoch) writes:
>In article <Sorokin.52.726598021@ps1.iaee.tuwien.ac.at> Sorokin@ps1.iaee.tuwien.ac.at (Sorokin Zhenya) writes:
>
>>3. Can I allocate a place for the structure, that is bigger than 64k on the 
>>heap? If not, why (i.e. what procedure is used to allocate memory on the 
>>heap? The conventional one from DOS takes only WORD as parameter, but maybe 
>>DPMI has another call)?
>
>Yes, you can.  In fact, you can in DOS too - INT 21 function 48h takes a word
>as a parameter, but it specifies the number of 16 byte paragraphs.  Under TP 
>it'll usually fail because TP has grabbed all memory for itself, but if you 
>ask for a small heap or shrink it using SetMemTop, you can allocate
>a block of any size.  
> 

16*64k = 1MB = 128k of double. OK to begin with.

>
>It's also not hard to work with the real mode heap 
>manager and do your own allocations of bigger than 64K.
>

Do you know of some units, ideas, algorithms, etc.? "It's also not hard" 
sounds well, but eats up a lot of time.

>Borland has chosen not to 
>put huge object support into TP.  Other real mode languages have it.  The 
>8086/80286 architecture makes it more difficult than on a 32 bit machine, 
>but certainly not impossible.
>

Did Borland do it on BC (TC)?
What languages support huge objects? And which ones do it in protected mode 
(should be more effective, I suppose)?

>
>Duncan Murdoch

Seems like I won't buy BP7...

Thanks,
Newsgroups: comp.lang.pascal
From: u055@csx.cciw.ca (James Sprenger)
Subject: Re: File locking question
Organization: Canada Centre for Inland Waters
Date: Tue, 5 Jan 1993 22:03:46 GMT

In article <ppollet.118.726255594@cismibm.univ-lyon1.fr> ppollet@cismibm.univ-lyon1.fr (Patrick POLLET) writes:
>In article <Hendrik.Klompmaker.31.726184187@beheer.zod.wau.nl> Hendrik.Klompmaker@beheer.zod.wau.nl (Hendrik Klompmaker) writes:
>>From: Hendrik.Klompmaker@beheer.zod.wau.nl (Hendrik Klompmaker)
>>Subject: File locking question
>>Date: Mon, 4 Jan 1993 21:49:47 GMT
>
>>Hy,
>
>>This might not be the correct folder to put this question but I thought 
>>there might be a TP solution.
>>I have to keep a log file a everyone who logs in to my network. A bacth file 
>>is used to write to that log file by simple redirection:
>>username >>logfile.dat
>>which writes the username, time and date to the log file.
>>A problem arrises when 2 people log in at the same time. Right: the log file 
>>is locked by one of them and the other one gets a A-R-I error (abort,re...)
>>Is there a simple (and fast and small) method to detect if a file is locked 
>>or not. (since username is a TP program it would sure be possible to do the 
>>checking there (how ??) but maybe it would even be possible to do that at 
>>dos/batch level. 
>>Any hints ??
>
>>Bye
>
>>Hendrik
>
>>===============================================================================
>>|******** Wageningen Agricultural University. Animal Production Group ********|
>>-------------------------------------------------------------------------------
>>Hendrik Klompmaker              Internet : Hendrik.Klompmaker@Beheer.Zod.Wau.Nl
>>System Manager                  Bitnet   : KLOMPMAKER@HWALHW50.BITNET
>>Phone : +31 (0)8370-83934       Fax      : +31 (0)8370-83962
>>Snail : Marijkeweg 40, 6709 PG  WAGENINGEN, The Netherlands
>>===============================================================================
>
>        If you want your files to be "SHAREABLE" you should fiddle with the 
>FileMode public variable of TurboPascal BEFORE doing any Reset,Rewrite,
>Close (and possibly Append :I did not tried that one yet )

I don't think this will work 'cause the file that is accessed is
redirected from the command line, and not initialized from the TP prog. 
Even if you did open the file from the TP program, I think you'll run into
problems when two people try to write to the file simultaneously (spelling?)
Any how, if you are using a Novell NetWare network, its probably best to
use semaphores...these netware function are faaaast and you don't have to
write your own lowlevel IO routines. 

>
> So my guess  is that your program username should:
>
>  -be compiled with $I-  (no stop on runtime error)
>
>  -Repeat
>     -try to open the file in mode $11 (Write and deny ALL)
>  -Until (IoResult=0)  (* nobody else has locked it *)
>

I tried a similar routine with an app I was writing and never quite got it to
work.  Maybe I should look at it again....

Cheers.

James Sprenger : u055@csx.cciw.ca


Newsgroups: comp.lang.pascal,comp.sys.ibm.pc.programmer
From: shadow@r-node.pci.on.ca
Subject: Turbo Pascal: Graphical Bar
Followup-To: comp.lang.pascal
Organization: Mylic
Date: Sun, 3 Jan 1993 04:57:27 GMT

I'd like to know how to write a routine for displaying a "graphical
representation bar (G.R.B.)".  A G.R.B. is one that displays the progress
of how much longer a task would take to finish certain work.
 
Here's an example of a graphical representation bar:
 
                 0                 50%                 100%
                [***************.........................]
 
Here's the question.  Let's say the program reads in a variable size file
for input, one line at a time, until End-Of-File.
 
How could I write a routine to display the progress of reading this file?
 
I probably first get the size of the file, which represents 100%.  But how
would I calculate each input line as a percentage of the total size?
-- 
        ______                shadow@r-node.gts.org
       | |__| |   If it's there and you can see it       - it's real
       |  ()  |   If it's there and you can't see it     - it's transparent
       |______|   If it's not there and you can't see it - you erased it!
Newsgroups: comp.lang.pascal
From: goyal@utdallas.edu (MOHIT K GOYAL)
Subject: Question about manuals for BTP v6 & BTP v7
Organization: Univ. of Texas at Dallas
Date: Thu, 7 Jan 1993 06:02:28 GMT

Hello.

I was wondering if someone can tell me how the manuals in Turbo Pascal v7
compare to those in v6.

Are they basically the same?

Thanks.
From: worley@a.cs.okstate.edu (WORLEY LAWRENCE JA)
Newsgroups: comp.lang.pascal
Subject: What's diff. between Tp7/Bp7?
Date: 11 Jan 93 00:00:56 GMT
Organization: Oklahoma State University

I'm considering buying Turbo Pascal 7.0 or TP for Windows 1.5.  I have 
read an article on Borland Pascal 7.0 in the Jan. 12 PC Magazine, but they
make it sound like Borland Pascal 7.0 and Turbo Pascal 7.0 are two different
animals.  Is this the case?

Also, I am going to be using the language to develop DOS and Windows apps. 
Which would be better to use (TPW or TP7)?  Also, is it easy to develop
Windows Apps using TP7?

Please e-mail any responses-

Thanks in advance,
Jason Worley
Newsgroups: comp.lang.pascal
From: reirinml@ucunix.san.uc.edu (Michael Reiring)
Subject: Re: BP7 -- five more bugs
Keywords: BP7, bugs
Organization: University of Cincinnati
Date: Fri, 8 Jan 1993 14:35:34 GMT

>2. Syntax highlighting fails for "forward".
>------------------------------------------
>
>"Forward" is highlighted as a reserved identifier. It isn't.
>------------------------------------------Morten Welinder, terra@diku.dk

	call me crazy, but isn't FORWARD used to declare a procedure in cases when procedure A calls procedure B and procedure B also calls procedure A????

-- 
|Michael Reiring            |" to talk in public, to think in solitude, to 
|University of Cincinnati   |  read, and to hear, to inquire, and to answer
|reirinml@ucunix.san.uc.edu |  inquiries, is the business of a scholar."
						-Ben Johnson
From: s924683@minyos.xx.rmit.OZ.AU ( Chandi )
Newsgroups: comp.lang.pascal
Subject: Re: Problem with TP7
Date: 7 Jan 93 01:26:38 GMT
Organization: RMIT Computer Centre
NNTP-Posting-Host: minyos.xx.rmit.oz.au

jjf101@deakin.anu.edu.au (Jason Ford) writes:


>I have this problem with Turbo Pascal 7.
>When ever I run a program from within TP7
>after excution is completed my mouse cursor
>has disappeared.

>To get my cursor back I have to quit and
>restart TP7.

>Has anyone came across this problem before
>and has an possible solution.

>I am running it on a 386/25 with 2 mega of
>memory.

>Jason Ford
I had that problem with my old 286 and still have the problem with 486 PC.
Few of my friends have the same Problem.  Some dont.  A friend of mine who
has the same bios as mine has not got the problem.  So I am open to
any suggestions...
thanks
chandi