HDTenEightyP/NetNews huggingface dataset:
From: mudrc@uxa.ecn.bgu.edu (Daniel R. Crowson)
Subject: Compiler directive help wanted!
Organization: Educational Computing Network
Date: Mon, 17 Aug 1992 04:59:45 GMT



        I've been working on some graphics programs in TP 6.0, but I
    have some problems (don't we all).  I want to link in some obj code
    to play music, but when I do this, I can't initialize the graphics.
    I've narrowed my problem down to one of the compiler directives 
    needed for the music playing part.

    {$M 4000, 0, 0}

        This frees up memory (I think).  How can I get the program to
    initialize graphics with the above directive?



-----------------------------------------------------------------------------
        Dan Crowson                     |    mudrc@uxa.ecn.bgu.edu       
        Computer Science Student        |    crowsond@vax3.siue.edu     
        Western Illinois University     |    Hacker --> IRC             
_____________________________________________________________________________
Newsgroups: comp.lang.pascal
Subject: Help : Music File Formats.
From: ebolog@elaine.ee.und.ac.za (EDWIN BOLOGNA : THIRD)
Date: 20 Aug 92 13:10:08 +0200
Organization: Electronic Eng., Univ. Natal, Durban, South Africa


Does anyone out there happen to have PAS, C, or ASM source code to decode
.MOD, .SAM, .SND, or .ROL music formats.

Any information at all on any of these formats will be greatly appreciated.

        Desperate fellow programmer (And very Greatful for any information)

                E.B. (EBOLOG@ELAINE.EE.UND.AC.ZA)

PS : Please be kind hearted and Assist !
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: Help with TSR programs
Organization: Queen's University
Date: Sat, 22 Aug 1992 04:22:43 GMT

In article <1992Aug21.121031.16939@uwasa.fi> ts@uwasa.fi (Timo Salmi) writes:
>In article <1992Aug20.220514.7038@crash> tech@crash.cts.com (Don Bontemps) writes:
>>currently running so as not to execute it twice?  Also, once your
>>TSR is installed, how do you get it to unload itself from memory?
>
>This is somewhat of an non-reply, but there is a good alternative. 
>That is using Turbo Power's mark-release from
> 75542 Feb 14  1992 garbo.uwasa.fi:/pc/memutil/tsrcom34.zip
>
>I've tried the an unistall of my own and run into all sorts of
>problems.  Of course there must be a working solution to be found,
>nevertheless.

Turbo Power puts the code for detecting a previously loaded copy and the 
code to unload a previous copy into their Turbo Professional and Object 
Professional packages (and presumably TSRs Made Easy, but I haven't looked 
at that package).  It's not easy to write an uninstall - there are a lot of 
issues involved, such as whether it's really safe to uninstall, how to close 
open files, etc.

Duncan Murdoch
dmurdoch@mast.queensu.ca
Newsgroups: comp.lang.pascal
From: las@cunyvms1.gc.cuny.edu
Subject: Input of data from text file
Reply-To: las@cunyvms1.gc.cuny.edu
Organization: Computer Center, CUNY Graduate School, New York NY 10036
Date: Thu, 20 Aug 1992 13:53:41 GMT



I am writing a program which inputs data from a text file,  and I am receiving
an incorrect numeric format error message on a Readln(InData, H, R); line.
Where "InData" is the text file, and "H,R" are both declared real. Generally
speaking, I have been able to input successfully using the "Assign" and "Reset" 
commands. I seem to be having trouble when the input is mixed numeric and
characters.

Please reply by e-mail. Thanks in advance.

Bill Baker.
From: kjell@elixir.e.kth.se (Kjell Rilbe)
Newsgroups: comp.lang.pascal
Subject: Re: Compiler directive help wanted!
Date: 17 Aug 92 07:15:19 GMT
Organization: Dept. of EE, Royal Institute of Technology, Stockholm, Sweden

In article <1992Aug17.045945.22109@uxa.ecn.bgu.edu> mudrc@uxa.ecn.bgu.edu (Daniel R. Crowson) writes:
>
>        I've been working on some graphics programs in TP 6.0, but I
>    have some problems (don't we all).  I want to link in some obj code
>    to play music, but when I do this, I can't initialize the graphics.
>    I've narrowed my problem down to one of the compiler directives 
>    needed for the music playing part.
>
>    {$M 4000, 0, 0}
>
>        This frees up memory (I think).  How can I get the program to
>    initialize graphics with the above directive?

This directive sets the maximum heap size to 0. That will not allow room for 
the BGI, which is loaded at runtime and placed on the heap. 

Try changing the latter 0 to the size of the BGI file or something like that.
Experiment! Test how much you need to fit in the BGI!

Then you would probably want to set the first zero to the same size, which is
the minimum heap size. I think DOS won't execute the program at all (program
won't fit in memory...) if DOS hasn't got enough memory to fit in at least
that much heap.

Hope this is what's wrong with it.

Good luck!

/Kjell Rilbe
From: bobb@vice.ICO.TEK.COM (Bob Beauchaine)
Newsgroups: comp.lang.pascal
Subject: Re: Apparent bug in TurboVision TInputLine
Date: 14 Aug 92 18:41:57 GMT
Organization: Tektronix, Inc., Beaverton,  OR.


In article <S2861785.92Aug14102443@techunix.technion.ac.il| s2861785@techunix.technion.ac.il (Alon Ziv) writes:
|While writing some TVision code, I came up with some rather weird
|behaviour in TInputLine's methods. It would seem that TInputLine uses
|DataSize in some unexpected ways, so, for instance, if you overload it
|to provide (say) LongInt data, and your SetData looks like
|
|    procedure TInputLong.SetData(var Rec);
|      {-Set data in a TInputLong (**BUGGY**) }
|
|      var
|        RecAsLongInt: LongInt
|                      absolute Rec;
|        S: String;
|
|      begin {SetData}
|        Str(RecAsLongInt: MaxLen, S);
|        TInputLine.SetData(S);
|      end; {TInputLong.SetData}
|
|(Yes, I know this is a little silly to do... Actually, what I had was
| a 'grandchild' of TInputLine using its parent's method, which used
| TInputLine's... )
|
|The above code won't work, because TInputLong.DataSize returns
|4=SizeOf(LongInt) and causes TInputLine.SetData to copy just 4 bytes
|from S (which probably won't be right...)
|
  Your fundamental mistake is that you are storing your long integer
  as a string, not a longint.  I assume (w/o a code reference) that
  you overrode TInputLine's Datasize method to return 4, the size of
  a long integer.  If so, you would then need to store the long
  integer as a longint, not a string.  You're not being consistent
  in your use of data types.  

  I have created descendents of TInputLine for long integers, and
  encountered none of the problems you are referring to.

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ 

Bob Beauchaine bobb@vice.ICO.TEK.COM 

C: The language that combines the power of assembly language with the 
   flexibility of assembly language.

Real friends don't let friends use UNIX.
From: cking@clepsydra.muse.rockwell.com (Christopher King)
Newsgroups: comp.lang.pascal
Subject: Re: RO/WO Files
Date: 19 Aug 1992 22:27:11 GMT
Reply-To: cking@clepsydra.muse.rockwell.com (Christopher King)
Organization: Rockwell International

In article <1992Aug19.153428.13654@doug.cae.wisc.edu>,
chris@castlab.engr.wisc.edu (Christian Rohrmeier) writes:
|>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??
|>

One possible solution would be to reopen the text file as a 'file of
char'; then reset the file and you could scan through it char by char.
You could then overwrite sections by writing out strings a character at a time.

Chris.

--
 Chris King                    | Internet: cking@zeus.muse.rockwell.com
 Rockwell International        | FidoNet : 1:103/315; CI$: 74017,1665
 2800 Westminster Blvd.        | Fax     : 310-797-1469
 Seal Beach, CA USA 90740-2089 | Voice   : 310-797-4969
From: glb2h@fermi.clas.Virginia.EDU (Greg Bullock)
Newsgroups: comp.lang.pascal
Subject: Re: Updating
Date: 21 Aug 92 00:27:35 GMT
Organization: University of Virginia

In article <1715upINN1as@matt.ksu.ksu.edu> holland@matt.ksu.ksu.edu (Rich Holland) writes:
>sjmadsen@miavx1.acs.muohio.edu (Steve Madsen) writes:
>
>>> Wouldn't Seek(EOF) work just as well, and read more clearly?
>>        EOF returns a boolean value, so I'd say no...
>
>I was CLOSE!  What I meant to say was:  "SeekEOF(F)" -- but that only
>works on files of type TEXT, not files of {type}...
>

Besides, SeekEOF(F) doesn't do what the original poster wishes.  It
will "skip over" *only* carriage returns & line feeds before returning
a Boolean indicating whether the EOF has been reached.

Keep trying, Rich :-)


--
Regards,
Greg Bullock           "...just as soon as I get this program running."
glb2h@Virginia.edu
Physics Dept./Univ. of Virginia
From: orpheus@reed.edu (P. Hawthorne)
Newsgroups: comp.lang.pascal
Subject: Whither The Next ANSI Pascal Standard? (Breath of Life)
Date: 18 Aug 92 08:43:21 GMT
Article-I.D.: reed.1992Aug18.084321.25762
Organization: Reed College, Portland OR

Is there a proposal for an extension of the ANSI Pascal standard yet? The
dark forces of illegibility and crypticism (C and C++) would seem to be at
a major advantage, facing no competition from their archrival Pascal...

Theus (orpheus@reed.edu)
Newsgroups: comp.lang.pascal
From: ins434u@aurora.cc.monash.edu.au (D. May)
Subject: Problems using Borland Custom Control Library
Organization: Monash University, Melb., Australia.
Date: Wed, 12 Aug 1992 22:54:00 GMT


I have this problem with TPW.  I am learning how to do TPW's menus, dialogs, etcwith Resource Workshop  - and am joggin through it with Neil Rubenking's
Turbo Pascal book.

I always thought that Resource Workshop was pretty cool because you could
access Borland's nice-looking dialogs, etc.  However, I have just found out
(from reading Rubenking's book) that unless BWCC.DLL is loaded (i.e. if you're
doing something like running Resource Workshop) your nice custom control
dialogs don't load up properly.

I tried it this morning and he was right.  But he says, instead of using
WObjects and StdDlgs, use the units WObjectB and StdDlgB - wait a minute...
I don't think I have those units (it would stand to reason - because I pur-
chased TPW when they bundled WRT with it.  My Resource Workshop comes with
TC++ for Windows).  You need these units to create stand-alone programs.

So - I was wondering if anyone can help me - by telling how to get them or
if they can get them to me or whatever!!!!!!!

Anyway ... at least I can still do dialogs - even though they'll be as 
boring as watching paint dry...


Thanks.

Daniel May
2nd year Sci/Law
Monash University, Australia, Earth
From: viznyuk@ohstpy.mps.ohio-state.edu
Newsgroups: comp.lang.pascal
Subject: Re: Command string
Date: 22 Aug 92 14:26:47 EDT

In article <32164@adm.brl.mil>, S105728@umrvma.umr.edu ( Steve Poulsen) writes:
> I believe this is what you are looking for.
> 
> ParamStr(n) will return the parameters where n goes from 1 to ParamCount.
> 
> If n is 0 then ParamStr returns the path and filename.  You could then use
> FSplit to break the path, drive, name and extension up.
> 
> ========================================      ,--,
>   Steven P. Poulsen <S105728@UMRVMA>       ,'  '--,
>   Student of Electrical Engineering        ---, ,'
>   University of Missouri - Rolla            ,','
> =======================================    , '

  Looks fine, but as it seems you are referring to
Pascal on MS-DOS platform, while I need the answer for
VAX/VMS. Thanks anyway.
S.V.
Newsgroups: comp.lang.pascal
From: ts@uwasa.fi (Timo Salmi)
Subject: Re: Help with TSR programs
Organization: University of Vaasa, Finland
Date: Fri, 21 Aug 1992 12:10:31 GMT

In article <1992Aug20.220514.7038@crash> tech@crash.cts.com (Don Bontemps) writes:
>currently running so as not to execute it twice?  Also, once your
>TSR is installed, how do you get it to unload itself from memory?

This is somewhat of an non-reply, but there is a good alternative. 
That is using Turbo Power's mark-release from
 75542 Feb 14  1992 garbo.uwasa.fi:/pc/memutil/tsrcom34.zip

I've tried the an unistall of my own and run into all sorts of
problems.  Of course there must be a working solution to be found,
nevertheless.

..................................................................
Prof. Timo Salmi
Moderating at garbo.uwasa.fi anonymous FTP archives 128.214.87.1
Faculty of Accounting & Industrial Management; University of Vaasa
Internet: ts@uwasa.fi Bitnet: salmi@finfun   ; SF-65101, Finland


Newsgroups: comp.lang.pascal
From: br707@cleveland.Freenet.Edu (Mike L. Melamed)
Subject: A good example of OOP
Organization: Case Western Reserve University, Cleveland, Ohio, (USA)
Date: Wed, 12 Aug 92 18:11:30 GMT


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?


Thanks very much



-- 
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: Why are set operations so Slow?
Organization: Queen's University
Date: Wed, 12 Aug 1992 14:15:13 GMT

In article <16b4c7INN88n@iraul1.ira.uka.de> S_JUFFA@iravcl.ira.uka.de (|S| Norbert Juffa) writes:
>Since sets are stored with maximum compression ( [250..255] takes only one
>byte), I can't see how to avoid the expansion into a 32-byte buffer before
>every operation. What optimizing compiler's like SBP+ can easily speed up are
>tests like: ReadLn (Ch); IF Ch IN ValidChars THEN ..., where ValidChars is a 
>SET OF CHAR with only very few set members. This can be optimize to a chain 
>of IF...THEN...ELSEs and I am sure this is what SBP+ does. TP 7.0 is supposed 
>to feature the same optimization.

The claim I saw in the Stoney Brook pamphlet was that operations on sets 
were converted to the equivalent bitwise operations when possible.  If S is 
a set of 250..255, then S+[251] would be compiled to do a bitwise OR of 2 
into S.  That's not a choice that was available to you in improving the RTL; 
you'd have to go back further, and change the code generator.

I've been told that there are some people on Genie who have pretty well 
dissected the TP code generator, so perhaps changes there would be possible.
It would be hard to trust the results, though.

Duncan Murdoch
dmurdoch@mast.queensu.ca
Newsgroups: comp.lang.pascal
From: venaas@siri.unit.no (Stig Venaas)
Subject: Re: $L directive
Organization: University of Trondheim
Date: Sat, 22 Aug 92 15:32:41 GMT

In article <9208211000.aa02248@Bonnie.ics.uci.edu> jko@Bonnie.ICS.UCI.EDU writes:
>
>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

It's an object file. It's probably some assembler routines.

























-- 
Stig (venaas@siri.unit.no)
Newsgroups: comp.windows.ms.programmer,comp.lang.pascal
From: chris@gergo.tamu.edu (Chris King)
Subject: Re: Disabling Autoradiobuttons at run time - TPW
News-Software: VAX/VMS VNEWS 1.41    
Keywords:  Buttons TPW
Organization: Geochemical and Environmental Research Group - TAMU
Date: Thu, 13 Aug 1992 15:37:00 GMT

In article <dekock.713691787@shannon>, dekock@shannon.ee.wits.ac.za (Nick de Kock) writes...
>I have an application in which I require the selection of 1 out of 
>a series of options. Depending on certain conditions some of these
>options are unavailable at certain times. I need to disable certain
>of the buttons. 

What you can do is set a boolean that refers to the status of the button,
and in your methods that are called when you press that button, place a
line like 

   if buttondisabled then exit;

I know this works, since I use it.  There are also ways of destroying the
button (since it is after all just another window) or hiding it, you may
even be able to dynamically change it's ID and that would disable it's
associated methods, then change it back when you need it again. 

I use the rather brutal approach of a boolean.

Chris King
Newsgroups: comp.lang.pascal
Subject: Help : Graphics Formats
From: ebolog@elaine.ee.und.ac.za (EDWIN BOLOGNA : THIRD)
Date: 20 Aug 92 13:15:00 +0200
Organization: Electronic Eng., Univ. Natal, Durban, South Africa


Does anyone out there happen to have PAS, C, or ASM source code to decode
.GIF, .PCX, .FLI, .GL, etc. graphic formats.

Any information at all on any of these formats will be greatly appreciated.

        Desperate fellow programmer (And very Greatful for any information)

                E.B. (EBOLOG@ELAINE.EE.UND.AC.ZA)

PS : Please be kind hearted and Assist !
Newsgroups: comp.lang.pascal
From: bruifal@elof.iit.edu (Falke Bruinsma)
Subject: Expanded memory and the heap...
Organization: Illinois Institute of Technology, Chicago
Date: Sat, 15 Aug 92 16:34:35 GMT


Hello

I am writing a program that needs huge amounts of memory, at this moment 
around 700K. Basically it is one huge tree and I add new records to it
by the following command NEW(ptr); However around the 600K (you guessed it)
I get a heap overflow... Since I do have expanded memory I as wondering if
someone can help me write a unit that makes the expanded memory an extension
of the heap. So that the program accesses expanded memory whenever the heap
is full. 

   Thanx a lot
     Falke
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   Falke Bruinsma
   (WildThing)                  in%"bruifal@minna.iit.edu"
                                in%"bruifal@elof.iit.edu"
   Sex is like programming: One mistake and you support it a lifetime.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: jackin@vehka.cs.uta.fi (Markku M{enp{{)
Newsgroups: comp.lang.pascal
Subject: DBASE III/IV compatible library for TP ??
Date: 18 Aug 92 12:55:06 GMT
Reply-To: jackin@vehka.cs.uta.fi (Markku M{enp{{)
Distribution: world
Organization: University of Tampere, Finland


My friend is looking for preferably shareware library for Turbo Pascal
compiler whic supports DBASE dialect (INDEX, SORT etc.). Please
answer via email, because I don't read this group very often.

Thanks, 

Markku
--
Markku M{enp{{ - email jackin@vehka.uta.fi - tel 358 31 561 575
From: handbook@orion.oac.uci.edu (Handbook)
Subject: Displaying many discrete screens
Newsgroups: comp.lang.pascal
Organization: University of California, Irvine
Date: 19 Aug 92 01:33:48 GMT

Hi,

Can anyone suggest ways to display screenfuls of information to users, 
without using a million and one writeln statements?  The problem is each
screen won't be related in content to any other screen, so I can't just
read in one big text file and then scroll through it.  It will be more 
like fifty screens, each one containing discrete information.  Also the 
screens will not always be accessed in the same order (the user will decide 
which screen to display next). 

On the plus side, since each screen is discrete, I don't need any scroll 
back features or anything filling the buffer (or at least I don't think I
do).

Anything will be of help,
thanks in advance,

Tony

Anthony Toyofuku
University of California,
Irvine


Newsgroups: comp.lang.pascal
From: friesenda@skyfox.usask.ca
Subject: RE: Updating
Organization: University of Saskatchewan
Date: Wed, 19 Aug 1992 06:01:17 GMT

In a previous article, newso584@Armstrong.EDU (Robert Newsome) wrote:
>This question may be naive, but is there a way that I can add records to a
>pascal file that already exits?  i.e. an open command instead of rewrite?

Yep.  Use the RESET command instead of REWRITE.  You may also have
to SEEK to the end of the file first before adding the records.

In Turbo Pascal you should be able to do something like: (this is off
the top of my head, so don't take it as being the word of God or
anything :)


VAR
   F : FILE of (whatever your record type is);

.
.
.
Assign( F, "MYFILE" );
Reset( F );

Seek(FileSize( F ));  { This should take you to the end of the file }

{add you records here}


As I said, this is off the top of my head so you may have to play
with it a little bit first.  Hope it helps.



-----------------------------------------------------------------------------
Darryl Friesen          |  "The vet let me keep them... they're my testicles"
Univ. of Saskatchewan   |   - Far Side cartoon: dog talking to his buddy.
friesenda@sask.usask.ca |
From: CHEJH@LURE.LATROBE.EDU.AU (HAZI,Jeno)
Newsgroups: comp.lang.pascal
Subject: Why the TPW real arithmetic much slower than TP 6.0 s?
Date: 21 Aug 92 03:11:23 GMT
Organization: La Trobe University
X-News-Reader: VMS NEWS 1.22

I plan to use a TP 6.0 program in Windows environment with TPW 1.0,
and I compared the speed of the arithmetic operations with the same 
program and setup. The speed of the integer operations was similar, 
but the speed of the operations with double and extended type was 
2-4 times faster when I used TP 6.0. Is it possible to reach at least
similar speed with TPW than with TP 6.0? How?
(The code is too much to write it in assembler.)

Does anybody compared the speed of any numerical program compiled with
different Pascal compilers?

Does anybody compared the speed of the same numerical algorithm written in 
Pascal and in another language?

Does anybody have experience with Weitek 4167 co-processor?

Has anybody know about FFT written in assembler?

Any tip how to increase the speed of the program greatly appreciated.

                                        Jeno Hazi
                                 chejh@lure.latrobe.edu.au

Environment:
IBM PC compatible, I486DX, 33MHz, 8Mbyte memory
MS Windows 3.1, 386 mode, Exclusive in foreground, TPW 1.0
Compiler directives: N+,G+,A+  all the others -
From: S105728@umrvma.umr.edu ( Steve Poulsen)
Newsgroups: comp.lang.pascal
Subject: FAQ
Date: 13 Aug 92 15:48:54 GMT

This is probably a FAQ but . . .

How does one go about obtaining the FAQ's for this list.

========================================      ,--,
  Steven P. Poulsen <S105728@UMRVMA>       ,'  '--,
  Student of Electrical Engineering        ---, ,'
  University of Missouri - Rolla            ,','
=======================================    , '