HDTenEightyP/NetNews huggingface dataset:
From: death@acca.nmsu.edu (Jeff Garzik)
Subject: Re: can't get EXEC to work
Organization: New Mexico State University
X-Newsreader: Tin 1.1 PL5
Date: Tue, 1 Sep 1992 10:55:02 GMT

Joel Daniel Just (joel@cs.utexas.edu) wrote:
: I am having trouble getting the EXEC command to work in Turbo Pascal v5.0 on
: the PC.  Here is an example program:
: 
: PROGRAM TEST;
: USES DOS;
: BEGIN
:    EXEC('dir','');
:    WRITELN('DONE')
: END.
: 
: When I run this program, 'DONE' is printed, and nothing else happens.  The
: EXEC command doesn't seem to be executed, no matter what I put in between the
: two sets of quotes in the EXEC call.  Even if I put garbage between the
: quotes, I don't get an error.  I just get 'DONE' and that's it.

This question pops up every so often...  You need to make sure you have
enough memory to execute the Exec call.  Try adding the {$M 8192,0,0}
directive at the start of the program, as well as SwapVectors calls before
and after the Exec call.  

Finally, never forget to check the DosError variable.  This probably would
have told you what you need to know in the first place.

However, except for some small jobs, you will want heap and the ability to
Exec, such as creating a DOS shell.  TurboPower software offers a public
domain "ExecSwap" unit which will do just that with a minimum of hassel. 
Their Object Professional also has a lot of helpful Exec routines.

--
"Only sheep need a leader." - Nomeansno

death@acca.nmsu.edu

Newsgroups: comp.lang.pascal
From: chris@castlab.engr.wisc.edu (Christian Rohrmeier)
Subject: Procedural Variables
Organization: U of Wisconsin-Madison College of Engineering
Date: 31 Aug 92 14:50:28 CDT

Thanks to all those who sent me replies to my question about dynamically calling
a procedure via a variable.

It seems that is comes down to procedural variables.

The problem is, I can't seem to assign a variable to the proc. variable!

Here sample code given to me by Kjell:

Program TestProc;

Uses Crt;

Var Proc: procedure;

Begin
  Proc:= ClrScr;
  Proc;
End;

This works. However, if I try Proc:='name_of_my_procedure' or to try and assign a
string varibale to it I get a type mismatch.

Any ideas from the net?

-Chris
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: FILE NOT OPEN error dilemma - sup? help?
Organization: Queen's University
Date: Wed, 26 Aug 1992 16:58:28 GMT

In article <exuptr.393.714846422@exu.ericsson.se> exuptr@exu.ericsson.se (exuptr@exu.ericsson.se) writes:
>
>I'd go into the IDE and trace this thing looking at the value of your file
>variable, xixpf.  Maybe it's not opening, or maybe something is corrupting
>it.  TP acts really wierd if you get an IO error and you have IO checking 
>off.  All subsequent IO operations fail.  

You should also be watching InOutRes - it's what IOResult returns.  That'll
let you see an uncleared error.

Duncan Murdoch
dmurdoch@mast.queensu.ca
Newsgroups: comp.lang.pascal
From: jeroenp@rulfc1.LeidenUniv.nl (Jeroen W. Pluimers)
Subject: Re: TPW 1.5 Manuals
Organization: Dept. FMC, Gorlaeus Labs, Leiden University, The Netherlands
Date: Sat, 29 Aug 92 03:16:22 GMT

In article <27AUG199215361076@gergi.tamu.edu> chris@gergi.tamu.edu (Chris King) writes:
>Hey can anyone tell me what manuals where included in tpw 1.5.
>
With the upgrade the following manuals are included:
- TDW 3.0 manual
- Resource Workshop manual

With the full TPW 1.5 release, the following manuals are included:
- All TPW 1.0 manuals except the WRT manual (WRT is replaced by RW)
- TDW 3.0 manual
- RW manual

>I called customer support and they said that that was all, but the
>person I talked to didn't seem to know what was suppose to be included,
>and had a hard time answering my questions.
>
There has been some confusion. Zacker Urlocker (Borland languaga manager)
stated on compuserve that TPW 1.5 is an interim upgrade. Most new stuff 
is on disk (including complete a complete new helpfile), but as the comppiler
and the language didn't change much, the didn't feel it neccesarry to 
produce new manuals.

--
    o _   _  _   _   _             voice: +31-2522-20908 (19:00-24:00 UTC)
   / (_' |  (_) (_' | |            snail: P.S.O.
__/                                       attn. Jeroen W. Pluimers
                                          P.O. Box 266
jeroenp@rulfc1.LeidenUniv.nl              2170 AG Sassenheim
jeroen_pluimers@f256.n281.z2.fidonet.org  The Netherlands
From: Gordon.Farquharson@p12.f120.n7102.z5.fidonet.org (Gordon Farquharson)
Newsgroups: comp.lang.pascal
Subject: Screen lines
Date: Fri, 28 Aug 92 21:40:00 GMT
Organization: FidoNet node 5:7102/120.12 - Interlink BBS, CT


On 28 Aug 92, David Reeve Sward muttered to All:

 DRS> Where can I find the number of lines in the current screen?
 DRS> r

Try memory location $0040:$0084 for the number of lines-1 on the screen. I hope this is for the CURRENT screen.

Cheers,
       Gordon

--  
INTERNET: Gordon.Farquharson@p12.f120.n7102.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.
From: ollpau01@uctvax.uct.ac.za
Newsgroups: comp.lang.pascal
Subject: EMS from Turbo Pascal ?
Date: 2 Sep 92 11:22:48 +0200
Organization: University of Cape Town

Hello all,

Can someone tell me how to access EXTENDED / EXPANDED RAM from Turbo
Pascal 6.0 ?

I have made a stereo sound-sampling plug-in card for the PC - and need
rather large amounts of memory - in the region of 144 kbytes per second.
It is in fact a 12-bit A/D D/A card, with 4 channel input and 2 channel
output.  A/D sampling rate is 184 kHz. 

Any help / programming examples would be much appreciated,
Paul.

***************************************************************************
* "The grass is always greener on the other side !"                       *
*                                                                         *
* --- Paul Olley              ---  INTERNET  : OLLPAU01@UCTVAX.UCT.AC.ZA  *
* --- University of Cape Town ---  Telephone : (+27) 21 797 8190          *
* --- South Africa            ---                                         *
*                                                                         *
***************************************************************************
-- 
***************************************************************************
* "The grass is always greener on the other side !"                       *
*                                                                         *
* --- Paul Olley              ---  INTERNET  : OLLPAU01@UCTVAX.UCT.AC.ZA  *
* --- University of Cape Town ---  Telephone : (+27) 21 797 8190          *
* --- South Africa            ---                                         *
*                                                                         *
***************************************************************************
From: pavic@nucleus.cuc.ab.ca (Zeljko Pavic)
Newsgroups: comp.lang.pascal
Subject: Need a procedure to detect EMS
Date: 27 Aug 92 11:21:12 GMT
Organization: The Nucleus 16 Lines 403-531-9353 -CNet Amiga-

Hello netters..
        I'm programming an application on my ibm clone using TP 6.0 and I need
a function that will detect if there is any EMS memory on a computer it could
be running on.  It needs to return a boolean true if EMS is present, oh and
maybe it could also determine how much EMS there is? (tho it's no problem to do
without this).  Can anyone help?  Responses are preferred via email since I
might not be getting this group for long.  Thanks in advance.

pavic@nucleus.cuc.ab.ca
Xref: sparky comp.lang.pascal:5096 comp.os.msdos.misc:4933 comp.os.msdos.apps:4563
From: ss62+@andrew.cmu.edu (Shelby Stewman)
Newsgroups: comp.lang.pascal,comp.os.msdos.misc,comp.os.msdos.apps
Subject: Re: Turbo Pascal 5.5 Mouse Support??
Date: 28 Aug 92 18:54:08 GMT
Article-I.D.: andrew.YebiPES00UhW087tkO
Organization: Heinz School, Carnegie Mellon, Pittsburgh, PA

To get mouse support, you must first have the mouse driver installed
(normally mouse.com or mouse.sys). Then refer to a mouse reference on
the interrupt access. An example procedure might be:

procedure LowLevelMouse(var r:registers);
begin
    Intr($33,r);
end;

Some mice come with references in their manuals or in text files on
disk, others (like microsoft's [who are so CHEAP they squeak]) come in a
seperate book with lots of superflous info on THEIR compilers
(QuickBasic, etc) and one chapter on connection with Turbo Pascal.
Another source you might try is Que's DOS Programmer's Reference
(something like that) or Ralf Brown's Interrupt List (locatable at any
decent anonymous FTP site). Hope this helped.


                -- Shannon F. Stewman
From: gedeck@pctc.chemie.uni-erlangen.de
Newsgroups: comp.lang.pascal
Subject: Re: can't get EXEC to work
Date: 1 Sep 92 11:07:33 GMT


You forgot to use the SwapVectors command.

SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;

Peter
Newsgroups: comp.lang.pascal
From: mwodrich@cs1.uct.ac.za (M WODRICH)
Subject: Re: procedural types -- a bug in TP?
Organization: Computer Science Department, University of Cape Town
Date: Wed, 2 Sep 1992 09:20:02 GMT

In article <1992Aug28.154106.15275@news.columbia.edu> stone@cunixb.cc.columbia.edu (Glenn Stone) writes:
>From: stone@cunixb.cc.columbia.edu (Glenn Stone)
>Subject: procedural types -- a bug in TP?
>Date: 28 Aug 92 15:41:06 GMT
>This seems to dumb, I'm sure I'm missing something right under my nose.  
>But anyway:
>
>I want to use a procedural type but my compiler (TP 5.5) objects.  So
>I copied the example right out of the manual (Ref Guide 5.0, p. 85 --
>I've paraphrased it a bit):
>------------------------------------------------
>type
>   proc = procedure (var x,y : integer);
>
>var
>   p : proc;
>
>{F+}
>procedure swap (a,b : integer);
>   begin
>   end;
>{F-}
>
>begin
>p := swap;
>end.
>------------------------------------------
>
>The compiler stops on the "p := swap" line and says
>
>Error 143: Invalid procedure or function reference
>
>Is this a bug, am I making some colossally stupid mistake, or am I in
>the Twilight Zone?
>
Try saying P := @Swap;

My Pascal is a bit rusty since I graduated to C++, but I think that should 
work. Regarding your possible visit to the Twilight Zone, send me a 
postcard !
----------------------------------------------------------------------
                     He who says, does not know.
               He who knows, does not say.
                                     - Lao Tzu.

  Om Nama Shivaya       He who is not sure, mumbles.
                                                - Me.
----------------------------------------------------------------------
From: woodard@troll.Eng.Sun.COM (Mike Woodard)
Newsgroups: comp.lang.pascal
Subject: looking for sparc version of concurrent pascal
Date: 26 Aug 1992 15:40:13 GMT
Organization: Sun Microsystems
Distribution: world
Reply-To: woodard@troll.Eng.Sun.COM
NNTP-Posting-Host: troll
Keywords: sparc concurrent pascal

A friend of mine (without net access) is trying to find a version of
concurrent pascal that runs on sparcstations to use in a class he's
teaching this fall. If you have information about an implementation,
please send me email with the availability details. Thanks.

---
Mike Woodard
(1) woodard@eng.sun.com    (2) woodard%eng@sun.com    (3) sun!troll.eng!woodard
From: jmwoithe@teaching.cs.adelaide.edu.au (JM WOITHE)
Newsgroups: comp.lang.pascal
Subject: Local types in TP6
Date: 3 Sep 92 17:35:44 GMT

Hi all.

Last night, I came across an application where a type was only needed
inside one procedure.  I tried a local type declaration, and to my
surprise, it worked!  I don't recall *any* mention of the possibility
of local types in any of the manuals (I do know that local types
are not allowed in standand pascal).

I was wondering whether others have, or whether this is an undocumented
feature, or one which is described in one or two obscure lines
somewhere?  Does it have any nasty side-effects?  Or have I just missed
something obvious?

In case you're wondering, the place of the local type was in a view's
valid procedure, which needed to GetData() a specific owned view.

jon.

-- 
		>>>>>>>>>********************<<<<<<<<<
 _____________________________________________________________________
|                            |                                        |
| Jonathan Woithe            | e-Mail to jmwoithe@cs.adelaide.edu.au  |
|____________________________|________________________________________|
|                                                                     |
| ** What's Yellow and dangerous? .... 42!                            |
|_____________________________________________________________________|
From: roesel@apap4.pap.univie.ac.at
Newsgroups: comp.lang.pascal
Subject: Re: can't get EXEC to work
Date: 2 Sep 92 18:25:22 GMT
Organization: Vienna University Computer Center

In article <la5469INNgd2@langtry.cs.utexas.edu>, joel@cs.utexas.edu (Joel Daniel Just) writes:
> I am having trouble getting the EXEC command to work in Turbo Pascal v5.0 on
> the PC.  Here is an example program:
> 
> PROGRAM TEST;
> USES DOS;
> BEGIN
>    EXEC('dir','');
>    WRITELN('DONE')
> END.
> 
> When I run this program, 'DONE' is printed, and nothing else happens.  The
> EXEC command doesn't seem to be executed, no matter what I put in between the
> two sets of quotes in the EXEC call.  Even if I put garbage between the
> quotes, I don't get an error.  I just get 'DONE' and that's it.
> 
> Any suggestions?


If you do not change the memory settings, Turbo Pascal uses all memory for 
the heap. In this case there is no space to load a program with EXEC. 
Therefore you must alter the memory settings, e.g. with the compiler directive
{$M}. If you do not need the heap, you can write {$M 16384,0,0}. 

If you want to exec an internal command like DIR, then write
    exec('c:\dos\command.com','/c dir');  
or even better
    exec(getenv('comspec'),'/c dir');  


program example; { for exec }
uses dos;

{$M 16384,0,0}             

begin
 swapvectors;
{ exec('bsp.exe',''); }               {  an external command }
 exec(getenv('comspec'),'/c dir');   { an internal command }
 swapvectors;
 writeln(doserror);    { doserror = 0, if all is right }
end.


I hope, this will help you

		Martin

------------------------------------------------------------------------------
Martin Roesel, Institute of Solid State Physics, University of Vienna, Austria
roesel@apap1.pap.univie.ac.at
From: Shane.Greyvenstein@p1.f37.n7101.z5.fidonet.org (Shane Greyvenstein)
Newsgroups: comp.lang.pascal
Subject: How can I retrieve the command string from within Pascal program ?
Date: Fri, 28 Aug 92 18:36:01 GMT
Organization: FidoNet node 5:7101/37.1 - Top Byte, Verwoerdburg

Hi!

 >  vmoe>   How could one retrieve the on-line program
 > parameters,
 >  vmoe> such as the program name, or the whole command
 > string
 >  vmoe> from within the pascal program  ?

Do this, it should work, although I've never tried it <G>

----- CUT HERE -----

var params  : paramstr;
    i       : integer;





begin
  params:='';

  for i:=0 to paramcount do     { Paramstr(0) is the path }
  params:=params+paramstr(i);
end.

----- CUT HERE -----

Tell me if it worx :-)

Cherio,
Shane

--  
INTERNET: Shane.Greyvenstein@p1.f37.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: vchan@uhunix.uhcc.Hawaii.Edu (Horatio Chan)
Subject: Problem using READLN with TP 6.0
Organization: University of Hawaii at Manoa
Date: Wed, 2 Sep 1992 22:23:24 GMT

Hi there,

Does anyone ever have problem using readln in Turbo Pascal?

My problem is that when I use readln to read in a line from a strictly ASCII 
file into a string, instead of getting the actual string from the file, I got 
a string with some special character such as #1#2 within the actual string.
This problem does not happen all the time.  Does anyone know why or what caused
this happened?  Any comment and suggestion are appreciated!

Thank you in advanced!

vchan@uhunix.uhcc.hawaii.edu (Horatio Chan)
From: andrew@rentec.com (Andrew Mullhaupt)
Newsgroups: comp.lang.apl
Subject: Re: Numerical Analysis + APL/J
Date: 2 Sep 92 22:55:34 GMT
Organization: Renaissance Technologies Corp., Setauket, NY.

In article <1992Sep1.043755.27813@fid.morgan.com> sethb@fid.morgan.com (Seth Breidbart) writes:
>Now you're demanding an oracle that will tell you whatever you want.

Of course. The point of the "oracle" is to get a lower bound by assuming
that you can do some part of the problem instantaneously. Another way to
look at it is that you are using a nondeterministic algorithm to guess
part of the answer.

>The original problem had an oracle that will tell you the answer, but
>not how to get it.

Right. You just have to check that it solves the problem. The original
point was that the oracle gives you a matrix and you have to check
that it's column-orthogonal. Now you can check _some_ orthogonal matrices
in O(mn), and this is _indeed_ a lower bound for the QR decomposition. On
the other hand, it isn't high enough. Since by the QR problem we usually
mean finding the QR decomposition of an arbitrary matrix, and that it is
trivial to see that any column orthogonal matrix can appear as Q, then we
can see that checking the general column orthogonal matrix is also a valid
lower bound.

If you don't like the oracle language, look at it this way. If you can solve
the  QR in some time, then you can check that a matrix is column orthogonal
in the same time by computing it's QR decomposition. So a lower bound for
checking orthogonality is a lower bound for QR.

Later,
Andrew Mullhaupt
Newsgroups: comp.lang.apl
From: agrtqb%irmfao01.bitnet@utcs.utoronto.ca
Subject:      RE: j 5.1, pc, 386
X-Acknowledge-To: <AGRTQB@IRMFAO01>
Organization: Food and Agriculture Organization of the UN
Date: Mon, 31 Aug 1992 09:38:12 GMT

in <689@svcs1,UUCP> Bill Miller writes
>(it works, but workspace size via 7!:0 '' is still as low as it is with ...

7!:0 is not *free* workspace size as quadWA but *used now* workspace size
which means that using 7!:0 '', entering some function definitions, and using
again 7!:0 '' should show an increase in the size returned.

I would like to have the same quadWA but I suppose there are very good
reasons why it is not implemented. Roger?

Cheers

Alain Delmotte     Agrometeorology / FAO         or   Avenue du Marathon, 6
                   Via delle Terme di Caracalla       B1348 Louvain-la-Neuve
                   I00100 Rome ITALY                  BELGIUM
                   tel.: Italy-6-5797 5504            Belgium-10-45 11 92
Newsgroups: comp.lang.apl
From: qmdbms@gsusgi2.gsu.edu (Brian Schott)
Subject: Re: Questions using J version 5
Organization: Georgia State University
Date: Mon, 31 Aug 1992 15:30:53 GMT

agrtqb%irmfao01.bitnet@utcs.utoronto.ca writes:


>Using J version 5 (from APL92) we encountered some problems or bugs

>a) external function save workspace

>      NB. from `Programming in J` page 20

>      Save=. 2!:2

>      Save <'abc'


>      Copy=. 2!:4
>      Copy <'abc'


>      NB. but the file has been created as it is shown with read
>      read=. 1!:1
>      y=.read <'abc'
>      y

>                 NB. not quite what I get on the PC see PS

>b) with the Member of Interval

>      NB. from `Dictionnary of J` page 34
>      'co' E. 'cocoa'

>      (0 1 +/ i. 3) E. 4 | +/~ i. 5


>c) with the fit function

>      x=. 20.5 20.6
>      y=. 20.52 20.61
>      x=y

>      x =!.0.2 y

>      x =!. 10^_2 y       NB. sorry it is 10caret_2 see PS

>      x =!.(10^_2) y

I think several small bugs of the type in a)-c) were fixed in J5.1. 

>d) How do you, in a explicit function, create a prompt for input, like:

>Enter your name:

>cursor waiting after the colon; on the same line on the PC it would be
>interesting to have 1!:2 (2) writing to the screen without carriage
>return nor line feed, this would allow to use the ANSI escape screen
>handling.

I do not believe there is any way to get a cursor waiting on the same
line on any platform unless you recompile J and customize it.  This
would be a nice feature, but I believe the developers have concluded
that to offer this would mean having individualized source code for
each platform.  They have elected not to make such features.  

>Thanks

>Alain Delmotte     Agrometeorology / FAO         or   Avenue du Marathon, 6
>                   Via delle Terme di Caracalla       B1348 Louvain-la-Neuve
>                   I00100 Rome ITALY                  BELGIUM
>                   tel.: Italy-6-5797 5504            Belgium-10-45 11 92

>PS moving file from the PC to the mainframe I get incorrect characters
>   as well as when I receive files or messages from the network; this
>   most of the time concerns the square brackets and caret, sometimes the
>   stile. Solutions?

This problem may be related to IBM using an EBCDIC, not ASCII, character
set.  I have had this problem, too, on an IBM mainframe.  The solution
I have used is to substitute the "international character set" offered
in the J documentation.  I created a WordPerfect Macro on the Mac to
do this, but I recall that one of the characters would not work in
the macro (/ or \, I think).  I haven't used it but once, some time ago. 
Instead I got access to a Unix box.

-- 
Brian Schott/Decision Sciences Dept.             qmdbms@gsusgi2.gsu.edu
College of Business Administration                         404-651-4070
Georgia State University                  interests: approx. reasoning,
Atlanta, Georgia USA 30303-3083     (B=)       decision support systems
From: pviton@magnus.acs.ohio-state.edu (P A Viton)
Newsgroups: comp.lang.apl
Subject: APL2/PC Exchange Assembly files
Date: 26 Aug 92 15:28:47 GMT
Organization: The Ohio State University

I while ago I seem to recall obtaining a file containing a large number of 
exchange assembly files for IBMs APL/2-PC.  Unfortunately I've lost them in a 
hard disk crash, and I can't find the files on any of my backups.  (part of the
problem is that I don't even remember the name of the archive file which 
contained them; nor where I got them).

If this description rings a bell for anyone, would it be possible for you to 
upload a copy of the archive to Lee Dickey's repository at Waterloo?  Or at 
least tell me what the file is called and where it is, if that's not possible?

Thanks very much!
-- 
-----------
Phil Viton
PViton@magnus.acs.ohio-state.edu
From: slix@svcs1.UUCP (Bill Miller)
Newsgroups: comp.lang.apl
Subject: j/386 problems with DOS extender
Keywords: j 5.1, pc, 386
Date: 30 Aug 92 01:58:39 GMT
Organization: Silicon Valley Computer Society, Sunnyvale, CA

Hi.
 
I just recently heard about J for the PC environment and just got the
pc executable stuff from watserv.uwaterloo.ca - both j5.1 for the PC
and the DOS-extender 386 version.  The plain PC one works all right, but
ca. 45K for workspace isn't a whole lot. So, I really want to get more
workspace, so I'm trying the 386 version.  After reading the documentation,
I have not been able to successfully get it to work (it works, but work-
space size via 7!:0 '' is still as low as it is with the plain PC version)
correctly.  My normal environment includes QEMM - I tried with and without
it and it doesn't seem to make much difference.  On the other hand, if I
boot without it, and invoke 'dos4gm jemu.le' it crashes with an interrupt #13.
Under QEMM, this behavior doesn't happen, but it doesn't know about the
extended memory (which does exist under QEMM; maybe not as much).
 
Am I not doing something right?
:w