HDTenEightyP/NetNews huggingface dataset:
From: leonard@qiclab.scn.rain.com (Leonard Erickson)
Subject: Re: powers in TURBO pascal
Reply-To: Leonard.Erickson@f51.n105.z1.fidonet.org
Organization: SCN Research/Qic Laboratories of Tigard, Oregon.
Date: Thu, 31 Dec 1992 12:23:26 GMT

lehnert@ifsws1.sozialforschung.uni-stuttgart.de (Doris Lehnert) writes:

>Hi, everybody,
>I suppose it's trivial, but ...

>What is the TURBO pascal operator for "x to the power of y"?

>I tried ^ (reserved for pointers), **, and others,
>and consulted the Borland Reference Books;
>Maybe somebody can help me.

There *isn't* a power operator in Turbo Pascal. You see, Pascal as defined
in the standard has no such operator. So it would be an extension of
the standard, and they chose not to do it. 

You'll have to write your own function:

Function Power(a,b:real):real;
begin
{messy code goes here!}
end;
-- 
Leonard Erickson		      leonard@qiclab.scn.rain.com
CIS: [70465,203]			 70465.203@compuserve.com
FIDO:   1:105/51	 Leonard.Erickson@f51.n105.z1.fidonet.org
(The CIS & Fido addresses are preferred)
Newsgroups: comp.lang.pascal
Subject: Re: Looking for STAKDUMP.OBJ
From: cscmd@lux.latrobe.edu.au (Mitch Davis)
Date: Wed, 30 Dec 1992 16:24:33 GMT
Organization: La Trobe University

In article <1992Dec16.000345.1@vms.ucc.okstate.edu> v923106@vms.ucc.okstate.edu writes:
>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.

Richard A. Morris (or RAM to his friends, of which I am one) nows works
for Borland in Sydney Australia.  He's a TurboVision whiz among other
things. 

And now for a completely unconnected fact:
  The number for Borland in Sydney is: +61-2-953-9500.  Sydney is now
GMT+11.

Actually, Richard was why I didn't come first in the Fidonet Pascal
Programming Contest - and his ERR_FUNC was the winner!  I came second.

Hope this helps not just you, but others as well.

Mitch.
Newsgroups: comp.lang.pascal
From: andrewb@lynx.cs.washington.edu (Andrew Berg)
Subject: Re: Distributing TPUs
Organization: Computer Science & Engineering Dept., Univ. of Washington, Seattle
X-Newsreader: TIN [version 1.1 PL8]
Date: Sat, 26 Dec 92 12:40:53 GMT

Alan Mead (amead@s.psych.uiuc.edu) wrote:
: dmurdoch@mast.queensu.ca (Duncan Murdoch) writes:

: >In article <1992Dec21.135420.10280@discus.technion.ac.il> s2942275@techst02.technion.ac.il (Yaniv Golan) writes:
: >>
: >>I want to distribute a TP unit which uses a second unit. I do not want
: >>to distribute the second unit with it, only the first TPU. Can it be done ?

Distributing just a .TPU is fine, but please be sure to document it really
well.

: This makes it sound like you are distributing COMPILED units.  You could
: release the source to unit 1 and the compiled .TPU to unit 2 (the one you
: are reluctant to distribute) and all would be well (as long as your users
: use EXACTLY the same version of TP).

This really isn't a big deal when you consider that there are really only 3
versions of TP to distribute for.

: >give your program a much wider audience by distributing it in source form, 
: >perhaps without giving away source to external .OBJ files.

: Why doesn't Turbo Pascal produce a OBJ file?  Does Borland Pascal?  I
: think this is a really serious drawback.  (I think I know the
: advantages of a TPU--dynamic code deletion etc).

The advantage of a TPU is that it is a lot faster, and can contain interface
code (which a OBJ can't very easily).

: -alan

--

andrewb@cs.washington.edu
From: roth@oasys.dt.navy.mil (Pete Roth)
Newsgroups: comp.lang.pascal
Subject: Re: BP7 on CD-ROM
Date: 22 Dec 92 13:33:44 GMT
Reply-To: roth@oasys.dt.navy.mil (Pete Roth)
Organization: The David Taylor Model Basin

In comp.lang.pascal, foster@nzkites.UUCP (Foster Schucker) writes:
[...]
>BTW, is anyone annoyed by the $15 handle charges by Borland or is it just
>me that minds paying $15 to ship a box via UPS for $3?

So, what would _you_ charge?

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: dpl@aber.ac.uk (David Philip Langstaff)
Newsgroups: comp.lang.pascal
Subject: Re: help with die rolls...
Date: 21 Dec 92 12:12:16 GMT
Organization: University of Wales, Aberystwyth

In article <1992Dec16.170959.3637@csdvax.csd.unsw.edu.au> p2112899@csdvax.csd.unsw.edu.au writes:
>
>The code I have done is:
>
>for i := 0 to 3 do  pe := pe + random(6);
>
>to roll a 6 sided die 3 times, but it doesn't work as it should. Some values
>produced are actually lower than possible.
>
0 <= Random(x) < x
  ^^           ^

So use Random(6) + 1 to simulate a die


-- 
Dave Langstaff | Janet:dpl@uk.ac.aber
Any views expressed are those of the author alone. | Phone:(0970)622838 
After-life, After-shave, don't hold with any of it, bleugh! - Sir Henry
From: mparanj@eis.calstate.edu (Milind Paranjpe)
Newsgroups: comp.lang.pascal
Subject: Linking C++ .OBJ's with TP 5.5
Date: 23 Dec 92 00:38:01 GMT
Organization: Calif State Univ/Electronic Information Services

Hello:

I'm trying to link in functions written in Borland C++ 2.0 into a Pascal
program (TP 5.5).  I keep getting errors saying that the public symbols in
the C++ .OBJ file aren't in the CODE segment.  Looking at the C++ manual, all
the code goes in a segment called _TEXT.  Is there a way to change this so
TP 5.5 can recognize and use the C++ function??

Thanks,
Milind Paranjpe
paranjpe@eis.calstate.edu
From: chip@ac.dal.ca
Newsgroups: comp.lang.pascal
Subject: Re: powers in TURBO pascal
Date: 1 Jan 93 00:43:10 -0400
Organization: Dalhousie University, Halifax, Nova Scotia, Canada

> 
> Function Power(a,b:real):real;
> begin
> {messy code goes here!}
> end;

NOTE:
 y    y * LN(x)
x  = e

Therefore:

FUNCTION Power(Base, Power) : REAL;
BEGIN
  EXP(Power * LN(Base));
END;

That's the messy code....

Season's Greetings....Mark Klaamas
chip@ac.dal.ca
Newsgroups: comp.lang.pascal
From: jeffbyrn@mp.cs.niu.edu (Jeff Byrne)
Subject: Re: Calling Local Procedures - Problems
Organization: Northern Illinois University
Date: Mon, 21 Dec 1992 23:53:22 GMT

Hi again,
  I don't know what happened but the last end. vanished from the program I
just posted.  It should obviously finish with :
                                                    end.
Sorry about that.  I hope someone can help me solve my problem.
Thanks,
- Jeff
jeffbyrn@mp.cs.niu.edu
jeff@art.niu.edu
From: berend@contrast.wlink.nl (Berend de Boer)
Newsgroups: comp.lang.pascal
Subject: Turbo Vision Keys?
Date: Tue, 22 Dec 1992 13:14:38

Kjell Rilbe wrote in a message to All:

>  CUA87 was directed to computer independence. A 3270 should behave like
>your IBM PC. Let's take for example the ENTER and TAB key. When running
>a 3270 emulator on our LAN connected to a CICS mainframe, the TAB moves
>to the next field, ENTER accepts the screen. Just like your TVision
>programs (if you follow standard behaviour).

 KR> Now, I just feel I have to comment this. 
 KR> (1) Which key is easiest to find of TAB and ENTER?
 KR> 	Answer: ENTER

?? Why? Just depends on your training.

 KR> (2) Which action is most frequent of 'Next Field' and
 KR> 'Accept Screen'? 	Answer: 'Next Field'

?? Why? Just depending on appliation, dialogbox etc.

 KR> So why the heck are they not using ENTER for 'Next
 KR> Field'?????

I don't see your point. Give facts, not opinions. Why not use the
spacebar for the next field? Enter for spaces and Tabs for Accept
Screen? Everyone can make their own user interface, just fine if they
are running on their old local computer, but if you have to work with
different computers, different OS's some kind of standard can be a big
help.
User Interfaces depend on some standard. You are used (as was I) to a
different one. Why not replace our habits with different ones?


 KR> I will *NEVER* follow such a stupid standard if I can avoid
 KR> it!

Oh, you can't avoid it. No one accepts Turbo Vision programs which do
not conform to the CUA standard. To confusing to use in combination with
other Turbo Vision.

 KR> Just my opinion, you guys don't have to agree!

That's the problem. Opinions are not important in CUA programming.
Standards are.


Groetjes,

Berend. (-:
fido: 2:281/527.23
email: berend@contrast.wlink.nl

Newsgroups: comp.lang.pascal
From: msfuller@cc.utah.edu (MARC S. FULLER)
Subject: Re: BP 7.0 and qemm6.02
News-Software: VAX/VMS VNEWS 1.4-b1  
Organization: University of Utah Computer Center
Date: 30 Dec 1992 11:54 MST  

In article <1992Dec30.145016.19494@ncsu.edu>, samodena@csemail.cropsci.ncsu.edu (S. A. Modena) writes...
{In article <29DEC199213113041@cc.utah.edu> msfuller@cc.utah.edu (MARC S. FULLER) writes:
{>Does anyone have experience running BP 7.0 while using QEMM?  Recently I 
{>received exception errors 12 or 13 while trying to start BP7.0.  I traced it 
{>down to a noems switch I had put in the qemm statement in the config.sys file.  
{>I did this to save the 64k expanded memory  base page in upper memory since I
{>had no need of expanded memory functions.  BP7.0  is a protected mode compiler, 
{>so why should it care about expanded memory?
{>
{ 
{The equivalent under DOS drivers is DEVICE=EMM386.sys ....which also
{causes strange bugs while debugging.
{ 
{The answer is simple: configure QEMM to forbid from loading it's
{equilvalent to EMM386.sys.  
( other stuff deleted) 
{Steve
{ 
Unfortunately the problem I am having is just the opposite of what you 
perceived.  Only when I DISABLE EMS by putting in the /noems switch in QEMM do 
I get exception errors.  This happens as soon as I try to load BP  
When I allow EMS to exist BP works fine. Note to others that sent me EMail-this 
is BP (protected mode) not TP (real mode) compiler.
From: ts@uwasa.fi (Timo Salmi)
Newsgroups: comp.lang.pascal
Subject: Re: BOOT source wanted
Date: 31 Dec 92 16:07:22 GMT
Organization: University of Vaasa, Finland

In article <1992Dec29.232601.24121@uwasa.fi> ts@uwasa.fi (Timo Salmi) writes:
>No souce code included, but this might be of interest:
>
>TSUNTG: (uses Dos)
>  COLDBOOT Reboot computer, including memory tests
>  WARMBOOT Warm reboot of the computer (as alt-ctrl-del)
>
>  99367 Nov  8 19:13 garbo.uwasa.fi:/pc/ts/tspa3140.zip

I have said this before, and I'll say this again.  If you are a user
who does not like the way I answer and operate, simply quit reading
my postings.  Don't let them deter from giving better pointers.  It
is quite easy to avoid someone's postings in many newsreaders, like
rn:

 killfile.zip rn KILL file FAQ from Leanne Phillips
 4356 Dec 22 23:41 garbo.uwasa.fi:/pc/doc-net/killfile.zip

Of course I could quit comp.lang.pascal again for a period, but
judging from the feedback I get, some users think differently. 

   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
From: d92ms@efd.lth.se (Mats Svensson)
Newsgroups: comp.lang.pascal
Subject: GIF source code wanted
Date: 3 Jan 93 17:25:34 GMT
Reply-To: d92ms@efd.lth.se (Mats Svensson)
Organization: Lund Institute of Technology

Anyone out there got the GIF source code for Turbo Pascal ? ?

If so, could you please mail it to me or post it to this group!


-- 
===========================================================================
I                I                                            I  * 0000   I
I Mats Svensson  I            d92ms@efd.lth.se                I **00  00  I
I Kadettvagen 23 I            LUND INSTITUTE OF TECHNOLOGY    I  *0    0  I 
I                I                                            I  *0    0  I
I 23732 Bjarred  I=============================================  *0    0  I
I Sweden         I                                            I  *00  00  I
I                I Hightech is Sci-fi becoming reality . . .  I ***0000   I
I                I                                            I           I
===========================================================================
From: hemstree@mddchh.fc.hp.com (Charles H. Hemstreet IV)
Date: Tue, 29 Dec 1992 16:12:53 GMT
Subject: How forgiving is TURBO pascal concerning strings?
Organization: Hewlett Packard - Mechanical Design Division
Newsgroups: comp.lang.pascal


With the following brief description below what is the expected result?
Will Turbo pass by the comparison without an error?  I am also
assuming that teststr[0] contains the value of the size of the string.

Thank you for any help,

Charles

------------------
teststr : string[100];
testchar : char;

teststr := 'the is not a big string';
testchar := 'a';

if testchar = teststr[0] then make a milkshake
else milk the cow first
------------------
--
Charles

-------------------------------------------------------------------------------
Charles H. Hemstreet IV                                 ********  h    *******
Hewlett Packard                    /\          /\      *******   h        *****
3404 East Harmony Rd., MS110    /\/  \  /\    /  \     *****    hhhh pppp  ****
Ft. Collins, CO  80525       /\/  \   \/  \/\/    \    ****    h  h p  p   ****
(303) 229-4471              /  \   \  /   /  \     \   ****   h  h pppp   *****
(303) 229-7182  (fax)      /    \   \    /    \     \  *****      p     *******
hemstree@mddchh.fc.hp.com     Mech. Design Division     *******  p    ********
-------------------------------------------------------------------------------
Newsgroups: comp.lang.pascal
From: spoulsen@mcs213a.cs.umr.edu (Steven P Poulsen)
Subject: TPW 1.0 windebug.dll error
Date: Sat, 2 Jan 1993 17:08:08 GMT
Organization: University of Missouri - Rolla

Is it a common problem to not get TDW to load a file ?  I have tried everything but the right thing? It claims it can't load windebug.dll?

help please.
-- 
===========================================      ,--,
  Steven P. Poulsen <spoulsen@cs.umr.edu>      ,'  '--,
  Student of Electrical Engineering            ---, ,'
  University of Missouri - Rolla                ,','
Xref: sparky comp.lang.pascal:7770 rec.games.programmer:5230 comp.sys.ibm.pc.misc:16247 comp.sys.ibm.pc.programmer:714
From: jkenton@ksr.com (Jeff Kenton)
Newsgroups: comp.lang.pascal,rec.games.programmer,comp.sys.ibm.pc.misc,comp.sys.ibm.pc.programmer
Subject: Re: Source of a little puzzle under MS-DOS TurboPascal wanted
Date: 31 Dec 92 10:04:49 EST

ahoekstr@cs.utwente.nl (Andre D. Hoekstra) writes:

>In article <1992Dec30.162530.7112@delos.stgt.sub.org> stefanb@delos.stgt.sub.org (Stefan Bechtold) writes:
>>Hi !
>>
>>A friend of mine is looking for a puzzle; it's a little bit difficult 
>>to describe but I'll try it.
>>This puzzle shuffles a display like those old 16 square plastic
>>puzzles.
>>and you have to put those squares in the right order)
>>
>>The program should also be able to solve the problem itself.
>>

There is a program called puzzle in the X distribution which does this.  It's
written in C, of course.


Newsgroups: comp.lang.pascal
From: hallch@CS.ColoState.EDU (christopher hall)
Subject: Re: How forgiving is TURBO pascal concerning strings?
Date: Wed, 30 Dec 1992 18:28:12 GMT
Organization: Colorado State University, Computer Science Department

In article <HEMSTREE.92Dec29091253@mddchh.mddchh.fc.hp.com> hemstree@mddchh.fc.hp.com (Charles H. Hemstreet IV) writes:
>
>With the following brief description below what is the expected result?

In this case you will milk the cow first.  The length of your string is not
97.

Chris Hall


/--------------------------------------------------------------------------\
|    The world cannot end today because it is tomorrow in Australia...     |
|                                                                          |
|       |________          Chris Hall                                      |
| ||OOO||________>         hallch@handel.colostate.edu                     |
|       |                                                                  |
\__________________________________________________________________________/
Newsgroups: comp.lang.pascal
Subject: Re: Why doesn't this cause an error?
From: cscmd@lux.latrobe.edu.au (Mitch Davis)
Date: Sat, 2 Jan 1993 10:45:42 GMT
Organization: La Trobe University

In article <1993Jan01.220029.27699@crash> tech@crash.cts.com (Don Bontemps) writes:
>I know there is probably an easy answer to this question, but here is
>a portion of a routine that I am using to convert a lowercase string
>into an uppercase string.
>
>
>    readln(comment);
>    for l := 1 to length of comment do comment[l] := upcase(comment[l]);
>
>If the user doesn't enter anything, this causes the length of comment to
>become zero and what confuses me is that this event does not cause any
>error whatsoever.  I would figure that "for l := 1 to 0" to cause a
>run-time error or some other type of error, but it doesn't.  Why not??

In Standard Pascal, the FOR is formally defined to behave in exactly the
same way as:

  FOR count := a to b DO BEGIN
    {some statements}
  END;

  count := a;
  WHILE a <= b DO BEGIN
    {some statements}
    a := a + 1;
  END;

Thus you can see that if b < a, (a<=b) is never true, and so the body of
the WHILE (and hence FOR) statement is never executed.

I always used to test for the length of strings FIRST before using a
FOR, until one day I realised the above.  I can always tell code I wrote
before that date!

Mitch.
From: rfulk@cwis.unomaha.edu (Robert Fulkerson)
Newsgroups: comp.lang.pascal
Subject: DX2/50MHz and TDebug problems?
Date: 28 Dec 92 02:21:44 GMT

Howdy,

I was just curious -- I'm running TPW 1.0 on my Gateway 2000 DX2/50MHz
machine and I can _not_ get Turbo Debugger to run at all.  I have loaded
it (TPW), unloaded it, reloaded it, installed the Win3.1 fixes for TPW
1.0, reinstalled 'em, etc.  

Whenever I try to run TDebug, the system just locks up on me and I have
to CTRL-ALT-DEL to break out of the non-respondant application.

If you have run into this or know someone who has, I would be most
appreciative of some insights into what to do.

Thanks,
-- Bob
.---------------------------------------------------------------------------.
. Robert Fulkerson, Creighton University  . Vice-President, Assoc Comp Mach .
.     rfulk@{creighton|unomaha}.edu       .     Creighton University ACM    .
.---------------------------------------------------------------------------.
From: CT80@music.mus.polymtl.ca (Steph)
Newsgroups: comp.lang.pascal
Subject: Re: TVision : BUG in my head or in TV?
Date: 1 Jan 93 21:58:31 GMT
Organization: Ecole Polytechnique de Montreal

In article <765343d37755t218@witsend.uucp> "D. C. Sessions" <dcs@witsend.tnet.com> writes:
>In <30DEC92.02825818.0033@music.mus.polymtl.ca>, CT80@music.mus.polymtl.ca (Steph)  wrote:
>#
># f*ck.  I hate this editor.  Wish I could go back and modify that
># last one, but I can't.  Sorry about that.  In any case, yes, I
># add spaces to AText, then I call TStaticText.Init(Bounds, AText);
>
>  Try getting a different mailer?
>

Ha!  I wish.  I'm getting my feed through school, and this system
ain't UNIX, PC, XENIX or whatever.  It's MUSIC.  Hey, sounds neat,
eh?  Well, there is no such thing as kill files in here, I'm not
using RN/NN/anything, I'm just viewing files as they come and
go.  Bah.  At least it's something!

># What happens is this : I found out (after many bugs with this), that
># EndOfStatic (my before-adding-spaces-to-AText-length) is set to 0
># after the call to TStaticText.Init!  Why is this so?
>
>  TObject.Init zeros out the object in question.  Therefore, any
>  initialization you do prior to a call to the ancestral Init
>  procedure is wasted.
>
>--- D. C. Sessions                            Speaking for myself ---
>--- Note new network address:                dcs@witsend.tnet.com ---
>--- Author (and everything else!) of TMail  (DOS mail/news shell) ---
>.
>.

Someone else mentioned it before.  I don't know why/how it does it,
but I programmed around it and now it works.  Sheesh, and I thought
I didn't need people forcing me to do spaghetti.

Steph.
Date: Thursday, 31 December 1992 00:04:16 MST
X-Mailer: TMail version 1.15R
From: "D. C. Sessions" <dcs@witsend.tnet.com>
Organization: Nobody but me -- really
Subject: Re: TVision : BUG in my head or in TV?
Newsgroups: comp.lang.pascal
Distribution: world

In <30DEC92.02825818.0033@music.mus.polymtl.ca>, CT80@music.mus.polymtl.ca (Steph)  wrote:
# 
# f*ck.  I hate this editor.  Wish I could go back and modify that
# last one, but I can't.  Sorry about that.  In any case, yes, I
# add spaces to AText, then I call TStaticText.Init(Bounds, AText);

  Try getting a different mailer?

# What happens is this : I found out (after many bugs with this), that
# EndOfStatic (my before-adding-spaces-to-AText-length) is set to 0
# after the call to TStaticText.Init!  Why is this so?

  TObject.Init zeros out the object in question.  Therefore, any
  initialization you do prior to a call to the ancestral Init
  procedure is wasted.

--- D. C. Sessions                            Speaking for myself ---
--- Note new network address:                dcs@witsend.tnet.com ---
--- Author (and everything else!) of TMail  (DOS mail/news shell) ---
Newsgroups: comp.lang.pascal
From: edelblut@nosc.mil (David J. Edelblute)
Subject: large arrays
Organization: Naval Ocean Systems Center, San Diego, CA
Date: Wed, 30 Dec 1992 01:17:19 GMT



I have problems for which I need moderately large arrays, e.g.,
x: array[0..524287] of double.  For this, I have been using FS 
Pascal.

I know that Borland Pascal allows protected mode programs, but I 
have not heard anyone say that it allows one to address a large 
array in linear fashion.  Can anyone tell me how this works? 

Dave Edelblute