HDTenEightyP/NetNews huggingface dataset:
From: pynq@quads.uchicago.edu (George Jetson)
Subject: Expect can read its script from stdin, but then interact doesn't work
Summary: (Subject says it all)
Reply-To: pynq@midway.uchicago.edu
Organization: D. J. Dougherty & Associates
Date: Thu, 12 Nov 1992 20:26:57 GMT

I'm just curious if this is something that will be fixed or if it is a
builtin deficiency.  I spent a fair amount of time tearing my hair over
this one - I couldn't understand why my script was mysteriously
terminating itself at the interact statement.

My shell script was something like:

	nawk '...' | expect -

where nawk builds up the script and pipes it to expect.

I would have expected stdin/stdout to be forced to something like
/dev/tty before the interact is executed.  Is there some way I can cause
this to happen?

************************************************************************
I've been told to back off on the diode jokes, but I still don't
like smileys ;-)

	- pynq@quads.uchicago.edu, who is still costing the net
	  hundreds, if not thousands, of dollars, every time he posts -
************************************************************************
Newsgroups: comp.lang.tcl
From: jlc@firewalladaclabs.com (Jean-Luc Chatelain)
Subject: Re: graph-1.0
Organization: Adac Laboratories, Milpitas Ca
Date: Thu, 5 Nov 1992 18:51:23 GMT

I have graph-1.0 running under tk2.3 and tclX6.4 and I do not recall having any problems. I'll be glad to help but can specify exactly what's wrong ?
-- 
Jean-Luc Chatelain				VOICE: 408 321 9100 x1797
ADAC Laboratories				VMAIL: 800 SAY ADAC x1797
540 Alder Driver				INET : jlc@adaclabs.com
Milpitas, CA 95035

Disclaimer: Any opinion expressed is my own may not reflect the views of
ADAC Laboratories
Newsgroups: comp.lang.tcl
From: blk@mitre.org (Brian L. Kahn)
Subject: Tcl with emacs or epoch
Organization: The MITRE Corp. Bedford, MA
Date: Sun, 8 Nov 1992 21:30:51 GMT


Has anyone produced patches to incorporate tk/tcl into emacs or epoch?
I looked in the FAQ and docs, but couldn't find a reference.

--
B<   Brian Kahn   blk@mitre.org   "may the farce be with you"

Newsgroups: comp.lang.pascal
From: clane@csws2.ic.sunysb.edu (Charles F Lane)
Subject: Re: tp graphics
Organization: State University of New York at Stony Brook
Date: Fri, 13 Nov 1992 00:07:18 GMT

In article <BxGryz.8H9@watserv1.uwaterloo.ca> nowinski@watserv1.uwaterloo.ca (NOWINSKI A - OPTOMETRY ) writes:
>
>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
>
>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.

You can find GIF loaders in Pascal on FTP sites.  E-mail me if you
don't know where to look.  I think they're kind of slow, though -- not
too sure.

>
>2) I would like to have people walk in the background without     
>   changing color or leaving black blocks behind. When I draw a   

What you need is a sprite engine.  I have various units obtained from FTP
sites.  Some names are SPRITES.ZIP, WGT_<SomethingOrOther>, TPANI, and
others.  I am working on one myself for a while now and hope to release it
within the next century.  E-mail for additional info on the above units.

>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     

320x200x256 mode (mode $13) only offers one page of graphics memory.
You can get drivers for 320x240x256 with 2 pages from FTP sites (a wonderful
thing, these FTP sites) ;-)  You could dynamically allocate a 64k buffer to
use as a second page, but it's kind of slow copying standard memory to video
memory and you would have to make your own drawing routines.

-- 
                          | "So who is this Al Gorithm guy they keep
Charles F. Lane           |  mentioning in my Computer Science classes?"
clane@Libws1.ic.sunysb.edu|
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: TV: Limited display and menu def.
Organization: Queen's University
Date: Tue, 10 Nov 1992 13:57:43 GMT

In article <27315@oasys.dt.navy.mil> roth@oasys.dt.navy.mil (Pete Roth) writes:
>>- When EXECing programs from TP/TV, is there a way to limit the
>>  child process' actual screen area?  For instance, define a
>>  window in TV then call a batch file that only writes in the
>>  window defined by TV.
>
>Make a TTerminal the interior of a Twindow and use AssignDevice to
>put the file output into YourTTerminal.

That won't work, because the child processes write to file handle 0, and 
AssignDevice redirects TP text I/O, not DOS I/O.  I don't know how to 
do what was asked, but the Object Professional demo unit EXECWSWP.ZIP
or EXECWIN.ZIP (*not* EXECSWAP.ZIP) does it.

Duncan Murdoch
From: holland@matt.ksu.ksu.edu (Rich Holland)
Newsgroups: comp.lang.pascal
Subject: Re: What we need is a TPU to PAS convertor (Re: tpu files)
Date: 9 Nov 1992 08:40:56 -0600
Organization: Kansas State University
NNTP-Posting-Host: matt.ksu.ksu.edu

dmurdoch@mast.queensu.ca (Duncan Murdoch) writes:

>Perhaps it's about time for someone to write a source mangler, so that you 
>could feel free to release source code without revealing any secrets.

Nah, somebody out there would take the time to write an unmangler to reverse
your algorithm...either that, or do it by hand...nah.  :-)

-- 
Rich Holland              | INTERNET: holland@matt.ksu.ksu.edu
100 Jardine Terr, Apt A7  | BITNET  : holland@ksuvm
Manhattan, KS  66502-3357 | UUCP    : ...!rutgers!matt.ksu.ksu.edu!holland
char*p="char*p=%c%s%c;main(){printf(p,34,p,34);}";main(){printf(p,34,p,34);}
Newsgroups: comp.lang.pascal
From: (Jim)
Subject: Re: Saving screens in Turbo Pascal
Organization: Ericsson
Date: Mon, 9 Nov 1992 10:43:36 GMT

Hi Michael.

The easiest way I find is to read the CGA memory directly as if it was a buffer pointed
to by a pointer and blockwrite it into an untyped file.  Here is an outline for VGA
(I think CGA is B800:0000??).

var vgamem : byte absolute $A000:0000;
    vgaptr : pointer;
    myfile : file;
    numrec : integer;

    procedure savescreen;
    begin
     vgaptr:=@vgamem;
     assign(myfile,'NAME.XXX');
     rewrite(myfile,1);
     numrec:=blockwrite(myfile,vgaptr^,64000);   <-You might want to check this syntax
     close(myfile);                                as I've written this from memory.
    end;

That's as much as I can remember.  Anyone want to elaborate or debug??

Good luck, Jim.



Xref: sparky comp.lang.pascal:6414 comp.lang.c:16203 comp.lang.scheme:2565
Newsgroups: comp.lang.pascal,comp.lang.c,comp.lang.scheme
Subject: Re: Third Annual Internet Programming Contest
From: alien@acheron.amigans.gen.nz (Ross Smith)
Date: 9 Nov 92 07:24:05 GMT+12
Distribution: world
Organization: Wanganui Amigans, Wanganui, NZ

In article <721157261@thneed.cs.duke.edu> khera@duke.cs.duke.edu (Vivek Khera) writes:
>
>                          A N N O U N C I N G
>
>                       The Third Annual Internet
>
>                 P R O G R A M M I N G   C O N T E S T


This sounds fascinating ... pity it's only open to those lucky enough to
have real-time Internet access. Why doesn't someone organise a similar
contest that we can enter by mail?


--
...... Ross Smith (Wanganui, NZ) ...... alien@acheron.amigans.gen.nz ......
             "If there is ever a war between men and machines,
         it is easy to guess who will start it." (Arthur C Clarke)
Newsgroups: comp.lang.pascal
Subject: BGI driver for 256 colors
From: <TAMGC@CUNYVM.BITNET>
Date: Friday, 13 Nov 1992 00:01:21 EST
Organization: City University of New York/ University Computer Center

I have basicly two questions and will appreciate all the help I can get:

1) I have a raw picture file with 256 colors and trying to write a
program to read and display it on the screen. Something quite simple.
But to my surprise I have found out that Pascal does not have a
driver to  display 256 colors. Can someone tell me how can I obtain
one?  or what else can I do to display 256 colors?

2) I also have a raw image file, with 16 shades of gray but I again
could not set the screen mode to grayscale. Any suggestions for this?
I am using Turbo Pascal 6.0 by the way.

Thanks a million for all the help.

Tamer Avcilar
tamgc@cunyvm.cuny.edu
Newsgroups: comp.lang.pascal
From: mglacy@lamar.ColoState.EDU ()
Subject: Read/Write standard i/o under VAX Pascal
Date: Fri, 06 Nov 1992 22:17:29 GMT
Distribution: usa
Organization: Colorado State University, Fort Collins, CO  80523

I'd like to convert a TP6.0 program to run under VAX Pascal,
which I haven't used in some time and for which I don't have
access to a manual.  The TP program gets all input from
a file specified on the command line, and writes output to a similarly
specified file.  If this can be done under VAX Pascal, I'd appreciate
a short description or an example if possible.  Thanks.
=-=-=-=-=-=-=-=-=-==-=-=-=
Mike Lacy, Sociology Dept.      CSU and I have a deal: We don't take
Colo. State Univ.               responsibility for one another's opinions.
Fort Collins CO 80523           voice (303) 491-6721
Newsgroups: comp.lang.pascal
From: rbt@tous.oau.org (Robert B. Tate)
Subject: Re: What we need is a TPU to PAS convertor (Re: tpu files)
Summary: sorry, I couldn't resist....
Organization: Tate Enterprises
Distribution: na
Date: Fri, 6 Nov 1992 04:43:59 GMT

In article <1992Nov5.170329.17596@hippo.ru.ac.za> g92m3062@ru.ac.za (Brad Meier) writes:
>Steve Madsen (sjmadsen@miavx1.acs.muohio.edu) wrote:
[.32 lines removed..]
>
>What about the NOT SO PORTABLE TPU's... some authors just vanish without a
>trace and then you sit there with Turbo Pascal vX.X unable to use the units
>that you loved and used?
>
>--
> |  / |  | ~|~ /~~\  |  | ~|~ /~~\  |~~\  /~~\         The KnightOrc 
[..5 more lines..]

I agree with your comment, but, is it _REALLY_ needed to quote 32 lines
of the orig. message to make a 2 1/2 line comment about it, then have a
_6_ line sig. tail!

-- 
 rbt@tous.OAU.ORG  (Robert B. Tate)       | A little knowledge is a dangerous
 {ucf-cs,peora,tarpit}!tous!rbt           | thing. Any less can kill you.
Newsgroups: comp.lang.pascal
From: joy@quip.eecs.umich.edu (Chien-Chung Chen)
Subject: Re: reading alternate keys on ibm from turbo
Organization: University of Michigan EECS Dept., Ann Arbor
Distribution: usa
Date: Fri, 6 Nov 1992 21:11:28 GMT

In article <1deij2INNnva@uwm.edu> randyd@csd4.csd.uwm.edu (Randall Elton Ding) writes:
>In article <73862@hydra.gatech.EDU> gtd205a@prism.gatech.EDU (James Houghton Crouch) writes:
>>>procedure keyread (var ch: char; var alt: boolean);
>>>  begin
>>>    ch:= readkey;
>>>    alt:= (ch=#0) and keypressed;
>>>    if alt then ch:= readkey;
>>>  end;
>>
>>I think that this program will also return the arrow
>>keys, PageUp, PageDown, and quite a few others.  
>>
>>I'm pretty sure that TP firsts reads a #0 and then a code for these keys
>>too
>
>Yes, That was the whole purpose for posting that function.
>The origional question was "how do I read page up/page down ...etc..."!
>My keyread function does in fact read everything except function keys
>11 and 12.  Does anyone know how to read these two function keys 
>from TP?
>
>randyd@csd4.csd.uwm.edu

The following is a TP program that I wrote long time ago. I think it
might help.


-- Chien-Chung Chen

---------------

{ This program generates the scan code for the enhanced (101) keyboard. }
program scan_enhance;
uses crt, dos;
const
   zf = $40;
var
   regs: registers;
begin
   repeat
      regs.ah := $11;
      intr($16, regs);
   until (regs.flags and zf)=0;
   regs.ah := $10;
   intr($16, regs);
   writeln(regs.al:3, regs.ah:10)
end.
Newsgroups: comp.lang.pascal
From: joet@dcatlas.dot.gov (Joe Trott)
Subject: Re: Help with this programming
Organization: U.S Dept. of Transportation
Date: Fri, 13 Nov 1992 17:42:32 GMT


If anything, it looks like you are missing an "Open" for your names text
file.  The first reference I see in your code to Names is the top of your
loop checking for EOF.  Does it simply croak, or do you get an immediate
EOF with no names read?  I.e. what does the eof test return for a file that
has not been opened?

-JTT

Newsgroups: comp.lang.pascal
From: jameel@cs.tulane.edu (Akhtar Jameel)
Subject: HELP with assigning NAME TO A FILE
Organization: Computer Science Dept., Tulane Univ., New Orleans, LA
Distribution: usa
Date: Sun, 8 Nov 1992 08:06:23 GMT
Nntp-Posting-Host-[nntpd-24512]: amor

I declare a file in the program statement as
    program(input,output,proto);
    .
    .
    proto : text;
    fname : packed array[1..20] of char;
    .
    .
    fname := 'genuine';
    {NOW I want to assign the name 'genuine' to "proto"...}

    reset(proto,genuine);      {from a previous reference this should do it
				but not on my microvax running vms 5.4-3,
				standard pascal}


Now, what du ya say!
jameel@rex.cs.tulane.edu
Newsgroups: comp.lang.pascal
From: 0112wilz@concave.cs.wits.ac.za (Zane Wilson)
Subject: GIF Format - code?
Organization: Computer Science, Wits University
Date: Fri, 6 Nov 1992 10:14:24 GMT

I am going to do doing a project involving the translation of a raw
data file into a GIF. The raw data will be of varying sizes. Does anyone
know of/have Pascal source (or any other declaritive language source)
of how to do this? Otherwise - where can I get the specs for the GIF format, 
so I can write my own code?

Please email.
Newsgroups: comp.lang.pascal
From: jeremy@fsg.com (Jeremy C.M. Sevareid)
Subject: Looking for FAQ
Organization: Fusion Systems Group, Inc.
Date: Fri, 6 Nov 1992 13:11:48 GMT

Where is the comp.pascal FAQ?
I have not been able to find it
with archie or in ftp.uu.net.

Please respond by mail.
Thanks in advance.
-- 
Jeremy Sevareid			E-mail:		jeremy@fsg.com
Fusion Systems Group, Inc.	Voice: 		(212) 285-8001, x/217
New York, New York		Voice mail:	359
				Fax: 		(212) 285-8705
Newsgroups: comp.lang.pascal
From: emamid@athena.ecs.csus.edu (David Emami)
Subject: Re: A bit about BP7
Organization: California State University, Sacramento
Date: Tue, 10 Nov 92 07:58:04 GMT

In article <1992Nov9.133118.12708@ncsu.edu> samodena@csemail.cropsci.ncsu.edu (S. A. Modena) writes:
>When BP7 arrives and I get it unpacked, I'll post an explicit
>summary of what is included and what my initial impressions are.

We just got BP7 at work today. Haven't installed it yet, but one thing that I
did notice was that the TurboVision documentation was a lot more comprehensive.
It looks like they've moved the stuff from the *.DOC files into the manual, so
the Editors, Buffers, and StdDlg are explained.
Newsgroups: comp.lang.pascal
From: gpang@uva386.schools.virginia.edu (George S. Pang)
Subject: Re: WANTED: Super VGA BGI drivers for TP 6.0/7.0
Organization: Virginia's Public Education Network (Charlottesville)
Distribution: na
Date: Thu, 12 Nov 92 19:35:13 GMT

I have a set that I FTPd from the William and Mary
computers..., but for the life of me, I can't remember the
server name... Anyway, I have no documentation for my set, and
it's a little complex to use them since the normal procedure
for doing so doesn't work... Mine are specifically for Tseng
ET4000 set though... In any case, Tight ASM drivers are MUCH
faster... Fast enough to refresh the WHOLE screen many times a
second...
	George Pang
Organization: Penn State University
Date: Tue, 10 Nov 1992 09:04:38 EST
From: <F0O@psuvm.psu.edu>
Newsgroups: comp.lang.pascal
Subject: Question about scroll bars in TPW 1.0

   I've found what seems to be a quirk with the scroll bar controls.  In
the scroll app example program, if I change the XRange and YRange values
to 0 in the init constructor, the scroll bars don't show up.  So far all
is ok.  I've read this is what is supposed to happen.  However, when I
set the XRange and YRange values to 0 in the init method in a program I
wrote, the scroll bars still appear!  My code is:

     Scroller := New(PScroller, Init(@Self, 0, 0, 0, 0));

   I set them all to 0's at the start since I don't yet know what they
should be until the user loads a file.  When I try this same line of code
in the scrollapp example program, they don't show up.
   Has anyone else ran into this?  Anyone have a clue as to what is going on?

                                                             [Tim]
From: roth@oasys.dt.navy.mil (Pete Roth)
Newsgroups: comp.lang.pascal
Subject: Re: Cloning or serializing an EXE?
Date: 5 Nov 92 13:03:59 GMT
Reply-To: roth@oasys.dt.navy.mil (Pete Roth)
Distribution: usa
Organization: The David Taylor Model Basin

In comp.lang.pascal, bsmith@mentor.cc.purdue.edu (Barry Smith) writes:
>Any source code out there that will allow me to burn in a serial number
>to an EXE (external program) and then when the user runs the program he
>can burn in his name and company?

TurboPower Software sells Object Professional, which allows you
to set and change program "constants". 

1-800-333-4160

regards, pete
- - - - - - - - - - - - - - - - - - - - - - - - - -
Peter N Roth      roth@oasys.dt.navy.mil
You can take a horse to water, but a pencil must be lead.
From: JWF.Thirion@p2.f118.n7102.z5.fidonet.org (JWF Thirion)
Newsgroups: comp.lang.pascal
Subject: Pause Key Disbler - HELP!
Date: Thu, 05 Nov 92 15:33:05 GMT
Organization: FidoNet node 5:7102/118.2 - Digital Systems BBS, CT

Hello David!

Monday November 02 1992, David Rind writes to All:

 >> I'm trying to make a TSR that will disable the pause key. I made one
 >> earlier that disables the PrintScreen key, but that uses a different
 >> interrupt. Is their a simple procedure I can make, possibly using
 >> interrupt $09, that will disable the pause key?

 DR> I have code I use to detect and disable a press of the pause key, though
 DR> not in a TSR.  The method runs off the clock and at each clock tick
 DR> checks to see if the pause key has been pressed and if it has resets
 DR> the interrupt.  The code is only a few lines long, and if anyone's
 DR> interested I'm happy to post it.  I got the method from some magazine.
 DR> --
 DR> David Rind
 DR> rind@binoc.bih.harvard.edu

 DR> -+- QM v1.30/b
 DR>  + Origin: THE CATALYST BBS - Port Elizabeth RSA (5:7104/2.0)

I am interrested and I would appreciate it if you can post it.  (BTW: What language is it in)

CU,
JWF Thirion (Drik)

--  
INTERNET: JWF.Thirion@p2.f118.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: newton@digsol.jpunix.com (Michael Nichols)
Newsgroups: comp.lang.pascal
Subject: Re: Where is general Pascal group?
Date: Thu, 05 Nov 92 10:29:21 CST
Organization: Digital Solutions, Inc. Houston, TX.

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?!?
> 
> Just asking...


Despite its ideocyncracies when run under different operating 
environments, the basic PASCAL language is the same.  If anyone has 
questions regarding "Pure Pascal," I'm sure any one of us could answer or 
would be interested in discussing it.  This IS the general Pascal board, 
however, there is no "Standard Pascal."  Every compiler is slightly 
different.  However, they have enough in common with each other to be 
understood by most any Pascal programmer, being the high-level language 
that it is.  I use TP3.0 and UCSD Pascal, myself, these languages being 
"obselete" from TP6 or VMS Pascal.  However, these languages are the 
closest to a pure Pascal as you can find.  If you'd like to discuss "Pure 
Pascal" here, feel free to do so.  I and I'm sure many other people will 
be out here with hand cupped behind the ear, ready to listen.  Give me a 
buzz.

Mike Nichols
newton@digsol.jpunix.com
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: What we need is a TPU to PAS convertor (Re: tpu files)
Organization: Queen's University
Date: Mon, 9 Nov 1992 22:19:32 GMT

In article <2789.2AFD5B88@catpe.alt.za> Shane.Greyvenstein@f61.n7101.z5.fidonet.org (Shane Greyvenstein) writes:
> ->         1.  Personally, I don't want any .TPUs I distribute to be
> -> turned into .PAS files.  There are all sorts of reasons for this,
> -> including a package falling into the shareware category or people
> -> who just don't want others to have their source.  Whoever writes
> -> a TPU2PAS program is going to piss a lot of people off.  What
> -> kind of incentive will "register and I'll send you the source to
>
>Agreed.  I certainly wouldn't distribute anymore of my code if 
>this sort of thing had to come to life.  Besides, if you distribute the 
>source code, 99% of the people will never mention where they got it from.  
>Sad, but true.

This is just nonsense.  DOS has always come with DEBUG, which includes a 
simple disassembler.  From the very first day you compiled one, people have 
been able to disassemble your .TPU files.  Ever since version 5.0, when 
Borland started distributing Turbo Debugger, disassembly has been easy.
You even get public symbol names included in the disassembly.  

The step from assembly language to Pascal wouldn't add anything to what 
people already know about your .TPU files.  That's the reason nobody has 
written a TPU to PAS convertor:  a lot of work for no gain.

If you want a relatively sophisticated TPU disassembler for TP 6/TPW 1.x, 
just look in TWU1.ZIP on Garbo.  If you just want to reconstruct the 
interface section, get Turbo Analyst from TurboPower Software, or 
INTRFCxx.ZIP from Garbo.  (Garbo = garbo.uwasa.fi:/pc/turbopas.)

Duncan Murdoch
dmurdoch@mast.queensu.ca
Newsgroups: comp.lang.pascal
From: nowinski@watserv1.uwaterloo.ca (NOWINSKI A - OPTOMETRY )
Subject: tp graphics
Organization: University of Waterloo
Date: Mon, 9 Nov 1992 19:40:09 GMT


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.