HDTenEightyP/NetNews huggingface dataset:
From: S105728@umrvma.umr.edu ( Steve Poulsen)
Newsgroups: comp.lang.pascal
Subject: Modem problem
Date: 22 Aug 92 03:47:08 GMT

I have been writing modem terminal program.  Now when I use PCKERMIT, it works
fine but then I lose my echo.  No matter what I do [ATE1] I can't get it back.
The same thing happens If I break out of my program while online then restart
[this is no problem it just might help you figure it out].  I don't know much
about the COMM but I think that there is an interrupt being set to put the get
a character from the comm port and put it in the buffer.  Now I'm thinking that
maybe this PCKERMIT is somehow messing up the interrupt and it never get's
triggered so I lose what comes in [I don't lose what goes out].  I can type
+++ ATM1 and get the speaker so I know I'm still on line.  Maybe I don't know
what I'm talking about but I hope someone else does.

========================================      ,--,
  Steven P. Poulsen <S105728@UMRVMA>       ,'  '--,
  Student of Electrical Engineering        ---, ,'
  University of Missouri - Rolla            ,','
=======================================    , '
From: greg.vigneault@bville.gts.org (Greg Vigneault)
Newsgroups: comp.lang.pascal
Subject: ARRAY INDEX??
Date: 18 Aug 92 13:27:00 GMT
Reply-To: greg.vigneault@bville.gts.org (Greg Vigneault)
Organization: Baudeville BBS - Toronto, Canada 416-283-0114/6059* *v32bis/HST

GD> Is there anyway to declare and array of records so that you can
  > index the array by a string?

 Yes, if you're using Turbo Pascal.

 Here's an example using a single record, but the technique
 should also work with an array of records ...

(********************************************************************)
 PROGRAM foo;
 (* we'll make the array look like a string ...                     *)
 TYPE   CharArray   = RECORD
                        Length  : BYTE;
                        Data    : ARRAY [1..255] OF CHAR;
                      END;

 VAR    AnyRec  : CharArray;                (* create the space     *)
        RecStr  : String ABSOLUTE AnyRec;   (* string on array      *)
        loopc   : BYTE;
 BEGIN
        RecStr := 'Hello, world!';          (* assign string&array  *)

        FOR loopc := 1 TO AnyRec.Length     (* prove it             *)
            DO Write( AnyRec.Data[loopc] );

 END.
(********************************************************************)

 Greg_

 Aug.18.1992.Toronto.Canada.
 greg.vigneault@bville.gts.org
 gregsv@eastern.com
                                                                   
Newsgroups: comp.lang.pascal
From: chris@gergl.tamu.edu (Chris King)
Subject: Re: A good example of OOP
News-Software: VAX/VMS VNEWS 1.41    
Organization: Geochemical and Environmental Research Group - TAMU
Date: Wed, 12 Aug 1992 23:29:00 GMT

In article <1992Aug12.181130.27927@usenet.ins.cwru.edu>, br707@cleveland.Freenet.Edu (Mike L. Melamed) writes...
> 
>Can someone provide me with a good demo of OBJECT ORIENTED PROGRAMMING?
> 
>I know the concepts and everything but lack a good example from which I 
>could fully understand it. I tried TurboVision but it's way too hard to
>jump from 0 to 100, you know what I am saying?
> 

Hello, Turbo pascal's object oriented stuff was rather difficult to grasp at
first, and took alittle "brain reformatting".  My suggestion is to drop the
concept of controling the computer, if you plan to use a windowing event
driven enviroment, and adopt the concept of servicing events.  That is
really a hard thing to swallow for someone who is acustom to having control.

Good programmers of the past, where marked by there ability to get into the
system and make it do anything they wanted.  I beleive that is of days gone
by.  Good programmers of the future will be more designers, and problem 
solvers rather than Hackers, and will require a more professional approach.
(I am in no way implying that "hackers" are unproffesional.)  Good object
oriented programming comes from good planning in the initial stages.  It is
next to impossible to just sit down a "bang out" a program.  The manuals
in TPW can't really explain this, because it is not the subject the manuals
are for.  Object oriented things are... I think I'm rambling on about
philosophy.

Anyway the hardest thing I found about OOP was the lack of information
about what is inherited.  TPW comes with a great number of objects that
all interact with each other to give the ObjectWindows enviroment.  I was
confused until I became familiar enough with a the interactions (or at least
enough of them) to be able to see how to use the system for my own
purposes.

If youd like I have a wonderful object called a Tgraphwindow, that I would
be glad to share with you, and I will even document it.  I will also be 
glad to trade E-Mail messages with you about TPW.

Chris King

Chris@gerga.tamu.edu

Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: What should be added to the TP linker?
Organization: Queen's University
Date: Thu, 13 Aug 1992 17:35:48 GMT

Someone I've been talking to on Compuserve has a working replacement for the 
TP linker, itself written in TP.  (It takes .TPU files and links them 
together into an .EXE file, and perhaps an overlay file.)

He isn't sure what enhancements to make to it, now that he's duplicated the 
original.  Suggestions, anybody?
Newsgroups: comp.lang.pascal
From: chris@castlab.engr.wisc.edu (Christian Rohrmeier)
Subject: RO/WO Files
Organization: U of Wisconsin-Madison College of Engineering
Date: 19 Aug 92 15:34:27 CDT

Simple question here:

When appending to a text file the file is Write Only and file position is
set to the end, and if you use Reset the file is Read Only and the file
position is et to the beginning. So, how does one read the file, determine
one is at the right spot, and then write something to that spot??

Since I'm using a text file I can't use any of the seek functions, so I
got and read the file character by character and then look at where I
am, which i can't do when i want rite to the file since it become read-only!

-Christian
From: michael.hagerty@spacebbs.com (Michael Hagerty) 
Newsgroups: comp.lang.pascal
Subject: Whither The Next ANSI Pas
Date: 21 Aug 92 17:59:00 GMT
Distribution: na
Organization: SPACE BBS - Menlo Park, CA - 10 Lines + 4gB - 415-323-4193
Reply-To: michael.hagerty@spacebbs.com (Michael Hagerty) 

PH. From: orpheus@reed.edu (P. Hawthorne)
PH. Subject: Whither The Next ANSI Pascal Standard? (Breath of Life)
PH.
PH. Is there a proposal for an extension of the ANSI Pascal standard yet? The
PH. dark forces of illegibility and crypticism (C and C++) would seem to be at
PH. a major advantage, facing no competition from their archrival Pascal...

Yes, following the release of the Extended Pascal Standard, JPC (the Joint
Pascal Committee) began work on a number of extensions.  One of which is
objects...  I am not sure when the work is going out for ballot.  Regards,
Mikey
---
 . JABBER v1.2 #42 . Futility:  Diogenes at a meeting of lawyers...
                                                                                                                      
Newsgroups: comp.lang.pascal
From: wilsonm@vaxb.acs.unt.edu
Subject: Re: Turbo Pascal -> Borland C++?????
Organization: University of North Texas
Date: Thu, 13 Aug 1992 18:03:31 GMT

In article <1992Aug10.113545.58016@cc.usu.edu>, slb1b@cc.usu.edu (Holographic Banana) writes:
> HELP!
> 
> Is it possible to take Turbo Pascal .TPU files and somehow transfer them to
> .OBJ files so Borland C++ can link with them????? Is there some other way to
> link them with BC?  I'm using TPv6.0 and BCv3.0.
> 
Well there is suppose to be a way to call C OBJ's from Pascal.  I have yet to
get it to work correctly though.  All the sample code that comes with BC 3.0
works great...but when I try a simple string alteration it chokes.


> 
> I've got about 20,000 lines of source that I DON'T want to retype.

Hehehehe...

Newsgroups: comp.lang.pascal
From: kobet@picker.com (Harry Kobetitsch)
Subject: PASCAL to C
Organization: Picker International, Inc.
Distribution: na
Date: Fri, 14 Aug 1992 13:23:39 GMT

Are there any utilities out there that convert PASCAL programs
to C programs. I am trying to do a port from PASCAL on the
MAC to C on the SUN.

Also, are there a lot of differences between PASCAL on the Mac
and PASCAL V3.0 on the Sun ?
-- 
Picker International, Inc.
595 Miner Road
Highland Heights, Ohio 44143
Voice: 216-473-2624
From: vchan@uhunix.uhcc.Hawaii.Edu (Horatio Chan)
Newsgroups: comp.lang.pascal
Subject: Dynamic List Within Dialog Box
Date: 12 Aug 92 20:24:02 GMT
Organization: University of Hawaii at Manoa

HELP!!

I need help using dynamic lists within a dialog box in turbo vision.

I am trying to create a dialog box with four dynamic lists.  Each list is 
related to each other, i.e., after selecting an item from one list which in 
turn will determine what the items in the other lists should be.  

What is the best way for me to handle the dynamic lists?  Any suggestion or
solution would be greatly appreciated.  Thank you in advance!

vchan@uhunix.uhcc.hawaii.edu
Newsgroups: comp.lang.pascal
From: mgustaf@toty.joensuu.fi (Marcus Gustafsson /TOTY)
Subject: Displaing bitmaps in TPW
Keywords: bitmap, TPW, display
Organization: University of Joensuu
Date: Sun, 16 Aug 1992 13:03:17 GMT


Hello,

I've tried to display bitmaps in programs created with Turbo Pascal for Windows -
without any success. The bitmaps are created with Resource Toolkit. What do I have
to do to display a bitmap in a window ?

Please, help me
Marcus
--
Marcus Gustafsson/University of Joensuu ! Internet: mgustaf@toty.joensuu.fi
R&D Center for Information Technology   ! Bitnet  : 07025l@finujo
in Education                            ! Phone   : + 358 73 151 4086
P.O. Box 111, 80101 JOENSUU, FINLAND    ! Fax     : + 358 73 151 4528
Newsgroups: comp.lang.pascal
From: bj198@cleveland.Freenet.Edu (Jeremy Mans)
Subject: Re: Rounding real #s
Reply-To: bj198@cleveland.Freenet.Edu (Jeremy Mans)
Organization: Case Western Reserve University, Cleveland, OH (USA)
Date: Thu, 13 Aug 92 22:19:37 GMT


In a previous article, billb@crpmks.uucp (Bill Bochnik Info Systems)) says:

>In article <1992Aug11.082014.26260@qiclab.scn.rain.com> 70465.203@compuserve.com writes:
>>wmorgan@tony.ksu.ksu.edu () writes:
>>
>>>	I am a new user of TP 6.0, and would like to know how to round a
>>>real number to 2 decimal places, I.E. round 456.2345 to 456.23.  I am working
>>>on a payroll program.
>>
>>in a Write, or writeln, you just tack :x:y onto the variable. eg
>>	write(pay:6:2)
>>will print the contents of pay as a 6 place number with two places to the
>>left of the decimal.
>>-123.45
>> 123.45

	OR try this:

  pay:=Round(Pay*100.0)/100.0;

  Note - this is for all numbers, providing of course that you don't
exceed MaxReal    (which by the way is 1.7 x 10^38.......)


			-jmans 


-- 
Jeremy Mans     |FORTRAN II - A Model T Ford. Once it was king of the
bj198@cleveland.|                       road	
   freenet.edu  |FORTRAN IV - A Model A Ford	
Omaha, NE (CU)  |FORTRAN 77 - A V6 Ford Fairlane, no seat belts, auto
Newsgroups: comp.lang.pascal
From: karl@BofA.COM (Karl Nicholas)
Subject: PD Pascal Compiler wanted
Organization: Bank of America, Capital Products, RMTG #5906
Date: Wed, 19 Aug 92 20:15:37 GMT


	I am looking for a Public Domain pascal
compiler that can be made to run on a SUN SS2.

Thanks in advance to all who respond. I do have
ftp ability.

Karl.


-- 
 +---------------------------------------------------------------------------+
 | Karl Nicholas   (415) 953-0409    | Beer is good food.  Food is not beer. |
 | karl@BofA.COM   uunet!odinba!karl | *** BofA is not me, I am not BofA *** |
 +---------------------------------------------------------------------------+
Newsgroups: comp.windows.ms.programmer,comp.lang.pascal
From: richard@csi.on.ca (Richard Martin)
Subject: Re: Disabling Autoradiobuttons at run time - TPW
Keywords: Buttons TPW
Organization: Carp Systems International, Kanata, ON
Date: Thu, 13 Aug 1992 16:15:57 GMT

I think you're doing work in TPW, in which case it's quite
easy (I think) to just call the ancestor Show member.
I had a program where if you pressed a button at a certain
time, the entire system would hang.  (Don't ask me, ask MS)
I found it possible to hide the button entirely, making
this portion little-sister-proof.
I test everything on my little sister.  If she can't break
it, nothing can.
Richard.
Newsgroups: comp.lang.pascal
From: wct@po.CWRU.Edu (William C. Thompson)
Subject: Re: Arrays > 64K
Reply-To: wct@po.CWRU.Edu (William C. Thompson)
Organization: Case Western Reserve University, Cleveland, OH (USA)
Date: Thu, 13 Aug 92 00:30:31 GMT


Here is a file you can include with your source code.  You need to
define a type before you {$I} it.

{ To include this file in a program, you have to define what
  HugeDataType is.  It follows that another restriction would
  be you can only have one type of huge array. }

const
  hugemaxitems=64000 div sizeof(hugedatatype);

type
  hugedataptr=^hugedatatype;
  partition=array[1..hugemaxitems] of hugedatatype;
  partitionptr=^partition;
  hugearray=record
    p: array[1..10] of partitionptr;
    partitionct: byte;
    elements: longint;
    end;

procedure allocate(var h: hugearray; elements: longint);
var
  i,j: byte;
  lastsize: word;    { Size required for last partition }
begin
  h.elements:=elements;
  if elements=0 then h.partitionct:=0
  else begin
    h.partitionct:=(h.elements-1) div hugemaxitems+1;
    { First, allocate space for first large chunks }
    for i:=1 to h.partitionct-1 do begin
      if maxavail>64000 then getmem(h.p[i],64000)
      else begin
        { First, deallocate (undo) everything before this }
        for j:=1 to i-1 do freemem(h.p[j],64000);
        h.elements:=0;   { This signals the allocation was unsuccessful }
        h.partitionct:=0;
        exit   { Exit the procedure }
        end;
      end;
    { Now, allocate space for last chunk }
    lastsize:=elements*sizeof(hugedatatype)-(h.partitionct-1)*longint(64000);
    if maxavail>lastsize then getmem(h.p[h.partitionct],lastsize)
    else begin
      { Now deallocate (undo) everything before this }
      for j:=1 to h.partitionct-1 do freemem(h.p[j],64000);
      h.elements:=0;
      h.partitionct:=0;
      exit
      end;
  end
end;

procedure deallocate(var h: hugearray);
var
  i: byte;
  lastsize: word;
begin
  if h.partitionct>0 then begin
    { first, deallocate first partitionct-1 partitions }
    for i:=1 to h.partitionct-1 do freemem(h.p[i],64000);
    lastsize:=h.elements*sizeof(hugedatatype)-(h.partitionct-1)*longint(64000);
    { now deallocate last partition }
    freemem(h.p[h.partitionct],lastsize);
    h.partitionct:=0;
    h.elements:=0
    end
end;

function gethuge(var h:hugearray; element:longint):hugedataptr;
{ returns a pointer to the element in the huge array }
begin
  { (element-1) div hugemaxitems+1 is the partition to use, and
    (element-1) mod hugemaxitems+1 is the element in that partition }
  gethuge:=@h.p[(element-1) div hugemaxitems+1]^[(element-1) mod hugemaxitems+1]
end;


-- 
"What do you mean Star Trek isn't real!?" - anonymous
From: exuptr@exu.ericsson.se (Patrick Taylor)
Newsgroups: comp.lang.pascal
Subject: Re: Changing the colorpalette in Textmode?
Date: 20 Aug 92 19:03:25 GMT
Organization: Ericsson Network Systems, Inc.

In article <1992Aug20.130835.137@csghsg5a.bitnet> 89612048s@csghsg5a.bitnet writes:
>Path: exucom.exu.ericsson.se!texsun!cronkite.Central.Sun.COM!west.West.Sun.COM!news2me.ebay.sun.com!sun-barr!sh.wide!wnoc-tyo-news!nec-tyo!nec-gw!mips!sdd.hp.com!usc!sol.ctr.columbia.edu!ira.uka.de!chx400!csghsg5a.bitnet!89612048s
>From: 89612048s@csghsg5a.bitnet
>Newsgroups: comp.lang.pascal
>Subject: Changing the colorpalette in Textmode?
>Message-ID: <1992Aug20.130835.137@csghsg5a.bitnet>
>Date: 20 Aug 92 13:08:34 GMT
>Organization: University of St.Gallen, Switzerland
>Lines: 9

>Just a small Problem...

>In the normal Textmode you can display 8 backgroundcolors and
>16 Foregroundcolors. Is it possible to use all 16 colors for
>Fore- and Background. 

Yes, but you will lose the ability to blink characters.  There's an INT 10h
function for this.

>And is it possible to change the 16
>defaultcolors to any other colors of the VGA-Palette.

Yes.  Again, INT 10h subfunction.

>Thank's a lot
>Markus
 ----------------------------------------------------------------------------
    "This must be Thursday.  I never could get the hang of Thursdays"
                                                       - D Adams
  - Patrick Taylor
    Ericsson Network Systems
    exuptr@exu.ericsson.se                       "Don't let the .se fool you"
    alternately, exuptr@ZGNews.Lonestar.Org
From: jko@Bonnie.ICS.UCI.EDU
Subject: $L directive
Newsgroups: comp.lang.pascal
Date: 21 Aug 92 17:00:33 GMT


Who knows what the '{$L rotate}' line would mean at the
beginning of a pascal program (TURBO PASCAL) during the
declaration.

Is rotate a library function or possibly a assembly language
program??

jko@bonnie.ics.uci.edu
Newsgroups: comp.lang.pascal
From: mudrc@uxa.ecn.bgu.edu (Daniel R. Crowson)
Subject: Re: Help : Music File Formats.
Organization: Educational Computing Network
Date: Sun, 23 Aug 1992 01:40:40 GMT

In article <J0BuPB1w164w@bowker.com> jnicholson@bowker.com (Jim Nicholson) writes:
>ebolog@elaine.ee.und.ac.za (EDWIN BOLOGNA : THIRD) writes:
>
>>
>> Does anyone out there happen to have PAS, C, or ASM source code to decode
>> .MOD, .SAM, .SND, or .ROL music formats.
>>
>Contact Mark Cox (m.j.h.cox@bradford.ac.uk) for Pascal and C routines that
>will play .MOD files.
>

  I might be wrong, but I don't think Mark gives out the sources.  He
does have a package that allows using MOD files (in the form of an OBJ
file to link in).


---------------------------------------------------------------------------
        Dan Crowson                     |    mudrc@uxa.ecn.bgu.edu       
        Computer Science Student        |    crowsond@vax3.siue.edu     
        Western Illinois University     |    Hacker --> IRC             
___________________________________________________________________________
Xref: sparky comp.lang.pascal:4822 comp.lang.c:12225 comp.lang.c++:12269
From: a_rubin@dsg4.dse.beckman.com (Arthur Rubin)
Newsgroups: comp.lang.pascal,comp.lang.c,comp.lang.c++
Subject: Re: Pascal to C and Assembly
Date: 12 Aug 92 17:16:54 GMT

In <1992Aug7.164932.15243@cs.mun.ca> jodyc@garfield.cs.mun.ca (Jody R. Cairns) writes:


>Hello folks,

>  I have a request: could someone please translate the following Turbo Pascal
>  code to C and assembly language. I'd like the C version to be compatible 
>  with both Borland's and Microsoft's compilers, and the assembly version to
>  be compatible with Borland's TASM and Microsoft's MASM.  I realize the
>  assembly language is a bit much, so I don't expect to get that anytime
>  soon (if at all).

>  Please e-mail source code to: jodyc@cs.mun.ca

>(************************************************************)

>{$A+,B-,D-,L-,I-,R-,S-,V-}
>{$M 1024,0,0}

>TYPE
>  DirStr = string[67];

>VAR
> Str: DirStr;
> I  : word;

>BEGIN
>  Str:=ParamStr(1);

>  FOR I:=1 TO length(Str) DO
>    Str[I]:=upcase(Str[I]);

>  ChDir(Str);
>  IF IOResult <> 0 THEN
>    IF Str = '' THEN
>      ChDir('C:\')
>    ELSE IF Str = 'DOS' THEN 
>      ChDir('C:\DOS')
>    ELSE IF Str = 'BIN' THEN
>      ChDir('C:\DOS\BIN')
>    ELSE 
>      writeln('ERROR: Invalid directory.');

>  IF IOResult <> 0 THEN 
>    writeln('ERROR: Invalid directory.')
>END.
----------------Microsoft C--------------

#include <stdio.h>
#include <string.h>
#include <direct.h> /* chdir */
main(int argc,char * * argv)
{
    char * str;
    int result;
    str = strupr(strdup(argv[1]));

    if (result=chdir(argv[1])) {
        if (!strcmp(argv[1],"")) {
            result = chdir("C:\\");
        }
        else if (!strcmp(argv[1],"DOS") {
            result = chdir("C:\\DOS")
        }
        else if (!strcmp(argv[1],"BIN") {
            result = chdir("C:\\DOS\\BIN")
        }
     }
     if (result) {
         puts ("ERROR: Invalid directory.")
     }
}





--
Arthur L. Rubin: a_rubin@dsg4.dse.beckman.com (work) Beckman Instruments/Brea
216-5888@mcimail.com 70707.453@compuserve.com arthur@pnet01.cts.com (personal)
My opinions are my own, and do not represent those of my employer.
Our news system is unstable; if you want to be sure I see a post, mail it.
From: det15wx@osan-emh.af.mil (DETACHMENT 15 WEATHER)
Newsgroups: comp.lang.pascal
Subject: re: reading News Date headers
Date: 19 Aug 92 23:56:16 GMT


                   I N T E R O F F I C E   M E M O R A N D U M

                                        Date:      20-Aug-1992 08:42am KST
                                        From:      Maj Ken Waters 
                                                   DET15WX 
                                        Dept:      CC
                                        Tel No:    784-6332

TO:  Remote Addressee                     ( _INFO-PASCAL@BRL.MIL )


Subject: re: reading News Date headers

>  I'm looking for a Turbo Pascal function or procedure that can be passed
>  the contents of a news posting or mail message's Date: header and return
>  data suitable for use by a SetFTime call.
>  I'm trying to automate archiving of saved articles and especially of
>  some mailing lists I'm on, and I need to make the file date/time stamp
>  match the posting date. I can do it by hand with touch, but that's
>  a *major* pain!
>  I'll write it myself if I have to, but I'm hoping someone else has
>  written it.

Leonard,

   I had a similar problem (40-60 messages a day) and didn't have the
time to manually manipulate them all.  Let me tell you what I did.  First
of all, all my messages are captured using an automated script into one
file.  Then I use a splitting/parsing program which extracts the date/from/
subj info, it then writes the message out to a separate file, named from
the date/time (MMDDHHMM.).  In addition, an index file is created so that
I can see at a glance what all came in.  I know that's not exactly what
you were asking but it may be a solution to your dilemma.  The second part
of my way of dealing with this is a -simple- file viewing program which
allows the option to 'zip' files into appropriate cubby holes depending
on the subject.  I use the EXEC function for that.  If you are interested
in either file let me know and I'll be glad to post.

     Ken
--- Ken Waters/N4PBY ---------- Internet: det15wx@osan-emh.af.mil ---------
    Tachikawa, Japan
Newsgroups: comp.lang.pascal
From: wct@po.CWRU.Edu (William C. Thompson)
Subject: Detecting key presses
Reply-To: wct@po.CWRU.Edu (William C. Thompson)
Organization: Case Western Reserve University, Cleveland, OH (USA)
Date: Mon, 17 Aug 92 04:50:02 GMT


Does anyone have a small TSR that makes a short tone when a
key is pressed?  Can you also tell what key that is without
taking it off standard input?

What I am really shooting for is to write a TSR that captures
keys pressed to a buffer in memory which can be later retrieved.
I have the installation and writing to memory part down, but I
don't know how to detect when a key is pressed and what it was.

E-mailed responses and code would be greatly appreciated.

-- 
"What do you mean Star Trek isn't real!?" - anonymous
Newsgroups: comp.lang.pascal