HDTenEightyP/NetNews huggingface dataset:
From: usgcjsx@gsusgi2.gsu.edu (Craig_J_Stadler)
Subject: Changing from hidden to UNHIDDEN
Organization: Georgia State University
Date: Mon, 11 Jan 1993 15:54:22 GMT

How does one go about changing a file attribute
from hidden to unhidden using SetFAttr ?

How do you toggle the settings?

Hidden to unhidden
ReadOnly to Non ReadOnly
System to Non System
Archive to Non Archive

???


-- 
------------------------------------------------------------------------------
             DO not attempt to adjust your television set...
                    We are controlling transmission
------------------------------------------------------------------------------
/-   --  |\  | |  |  --- | |  |\   -\  Morbid Visions/Beneath The Remains
\   |-   |/  | |  |   |  | |  |/  |_|  Bestial Devastation/ARISE
_/  |--  |    -   \_  |   -   |\  | |  Schizophrenia
------------------------------------------------------------------------------
Atari 2600,5200,7800   Vectrex    ColecoVision   Intellivsion    Channel F
Emerson Fairchild      Odyssey    Odyssey 2  

                     I BUY USED/NEW CARTS/SYSTEMS!!! 
------------------------------------------------------------------------------
                    ATTENTION!!  WANTED DEAD OR ALIVE :

Stretch ARMSTRONG  Stretch MONSTER        STP Racers            CreepyCrawlers
Sit-N-Spin         Inch Worm              6 Million Dollar Man  Lincoln Logs
Silly Putty        Rock Em Sock Em Robots Snow Bird Ice Machine Tinker Toys
Digger The Dog     Mouse Trap             Big Wheel             Green Machine
Weeble Wobbles
                 usgcjsx@gsusgi2.gsu.edu (404) 651-4542
                      DAMN That Was a LONG .signature!!
------------------------------------------------------------------------------

Newsgroups: comp.lang.pascal,comp.lang.c
From: thelke@cpp.uucp (Thomas Helke)
Subject:  astrology programs in pascal or c?
Organization: Critical Path Project
Date: Mon, 11 Jan 1993 09:25:12 GMT
Followup-To: poster

I have two commercial astrology programs (Vedic and Western). 
I've heard that astrology programs are written in Pascal because b
that is the language that lends itself efficiently
to creating ephemerides, planetary motion, etc. 

I would like to know if an astrology program can
be written in C? And I would also like to know
where to get the formulas, etc. to write such
a program -- do I have to write to the Naval
Observatory, for instance ... 

Any suggestions, advice would be most appreciated.

Thomas Helke
thelke@cpp.uucp
From: bobw@blade.stack.urc.tue.nl (Bob Witlox)
Newsgroups: comp.lang.pascal
Subject: Removing memory resident programs
Date: 12 Jan 93 18:19:28 GMT
Organization: MCGV Stack, Eindhoven University of Technology, the Netherlands.
X-Newsreader: TIN [version 1.1 PL6]


Does anyone know how to remove a program from memory that has been terminated
with Keep(0) ?  Is there a way to find out where a certain program is running
in memory ?
Mail me (at bobw@blade.stack.urc.tue.nl) or reply...


Bob
 
Newsgroups: comp.lang.pascal
From: ts@uwasa.fi (Timo Salmi)
Subject: Re: TVision
Organization: University of Vaasa, Finland
Date: Thu, 7 Jan 1993 06:53:32 GMT

In article <DDZXwB1w165w@suction.acme.gen.nz> scimitar@suction.acme.gen.nz (Robert Singers) writes:
>I sure this is a FAQ.  But I don't have a copy of the FAQ list.

In fact the FAQ only covers TP without anything objects or TVision. 

   All the best, Timo

..................................................................
Prof. Timo Salmi      Co-moderator of comp.archives.msdos.announce
Moderating at garbo.uwasa.fi anonymous FTP archives 128.214.87.1
Faculty of Accounting & Industrial Management; University of Vaasa
Internet: ts@uwasa.fi Bitnet: salmi@finfun   ; SF-65101, Finland
From: gordo@phsbbs.princeton.nj.us (Gordon Davidescu)
Newsgroups: comp.lang.pascal
Subject: How do I create...
Date: Tue, 05 Jan 93 07:57:44 EST
Organization: Princeton High School, Princeton, New Jersey

TURBO PASCAL 6.0 units that work?

-----
Gordon Davidescu, Princeton High School BBS
DNS: gordo@phsbbs.princeton.nj.us      UUCP: ...!princeton!phsbbs!gordo
Disclaimer: Author bears full responsibility for this message.
Newsgroups: comp.lang.pascal
From: basse@pcuf.fi (Basse Salmela)
Subject: Re: Cursor and F1-F12 keys under Turbo-Pascal
Organization: The PC-users of Finland
Date: Wed, 6 Jan 1993 22:26:32 GMT

  You wanted to know how to use function and cursor keys in your Pascal
programs.
  
  When reading cursor keys, and function keys, you have to read character
twice. In first time when key is pressed the return is character #0, after
that comes second character, example #59 which is F1.
  Maybe a little example makes it easier to understand.
  
  Ch := ReadKey;
  If Ch = #0 then Begin
    Ch := ReadKey;
    Case Ch of
      #59 : F1Pressed;
      #60 : F2Pressed;
    End;
  End;
  
  There, in first 'ch := readkey' program asks user to press any key, and
if it was #0 then it reads the second char what comes automaticly after
#0 and then comes that Case loop..
  
  Finding out these combinations you should do a program which shows every
key code you press. Something like this:
  
  Repeat
   Ch := ReadKey;
   WriteLn('Key was: ', Ord(Ch));
  Until Ch = #27;
  
  
  Hope this helped in some way...
  
    Best regards, BaSSe
From: jjf101@deakin.anu.edu.au (Jason Ford)
Newsgroups: comp.lang.pascal
Subject: Problem with TP7
Date: 6 Jan 1993 00:08:02 GMT
Organization: The Australian National University, Canberra
Distribution: world
NNTP-Posting-Host: 150.203.15.26


I have this problem with Turbo Pascal 7.
When ever I run a program from within TP7
after excution is completed my mouse cursor
has disappeared.

To get my cursor back I have to quit and
restart TP7.

Has anyone came across this problem before
and has an possible solution.

I am running it on a 386/25 with 2 mega of
memory.

Jason Ford
Newsgroups: comp.lang.pascal
From: jeroenp@rulfc1.LeidenUniv.nl (Jeroen W. Pluimers)
Subject: Re: There is no decompile on Turbo is there?
Organization: Dept. FMC, Gorlaeus Labs, Leiden University, The Netherlands
Date: Fri, 8 Jan 93 09:16:01 GMT

In article <1ifihbINNe4e@usenet.INS.CWRU.Edu> ah157@cleveland.Freenet.Edu (Rob Henry) writes:
>
>I can't take a trubo pascal compiled program and reverse it to get
>the source code can I?

It looks like this question is the most popular one on this forum since the
last few months.

Answer: Compare compiling with cooking. And think about the problem of 
reversing the proces into creating water and fresh vegetables from soup....
--
jeroen                             voice: +31-2522-20908 (19:00-23:00 UTC)
                                   snail: P.O. Box 266
jeroenp@rulfc1.LeidenUniv.nl              2170 AG Sassenheim
jeroen_pluimers@f256.n281.z2.fidonet.org  The Netherlands
From: berend@contrast.wlink.nl (Berend de Boer)
Newsgroups: comp.lang.pascal
Subject: TVision : BUG in my head or in TV?
Date: Sat, 02 Jan 1993 21:16:28

Duncan Murdoch wrote in a message to All:

 DM> This is a nasty surprise designed into TurboVision. 
 DM> TObject.Init zeroes out  all fields of any descendant.  It's
 DM> not done that way in OWL, and shouldn't  be in TurboVision,
 DM> but Borland won't change it now because they're afraid of 
 DM> breaking existing code.

Nasty? Wonderfull!


Greetings,

Berend. (-:
fido: 2:281/527.23
email: berend@contrast.wlink.nl
From: mmigdol@ccwf.cc.utexas.edu (michael a migdol)
Newsgroups: comp.lang.pascal
Subject: TP 6.0 Strange rounding problem (Debugger is *lying* to me!)
Date: 7 Jan 93 14:32:19 GMT
Reply-To: mmigdol@ccwf.cc.utexas.edu (michael a migdol)
Organization: The University of Texas at Austin, Austin TX
Originator: mmigdol@grumpy.cc.utexas.edu

Here's a fragment of a program that was causing me some major grief last night.

PROGRAM FOO;

VAR
    HighFreq, ToneFreq : Integer;

Procedure Foo1(...VAR factor : Real;...)
VAR
    ...
    diff : Real;
    ...

BEGIN
    diff := HighFreq - ToneFreq;
    ...
    diff := diff / Factor;
    HighFreq := Round(ToneFreq + diff);
    ...    
END; { Procedure }
 
    Ok, boys and girls, assuming that upon entry to Foo1, variables have the
following values, what should HighFreq be after the last statement is executed?
    HighFreq = 525
    ToneFreq = 500
    factor = 2.0

    Well, the first statement sets diff to 25.0. The second sets it to 12.5.
ToneFreq + diff is then 512.5, and round of this is...
    512???

    The plot thickens even more. If I trace variables up to the last line, and
o a watch on Round(ToneFreq + diff), THAT returns 513! But execution of
the last statement puts 512 in HighFreq! It's this discrepency that has kept
me from dismissing this as a simple rounding error somewhere. (12.5 really 
equals 12.4999999999999 or something like that). 

    I've got a temporary fix for the problem by replacing Round(ToneFreq + diff)
with Trunc(ToneFreq + diff + 0.5), but I'd still like to know exactly what's 
going on. Does anyone have any ideas?

Thanks in advance...
     Michael
From: berend@contrast.wlink.nl (Berend de Boer)
Newsgroups: comp.lang.pascal
Subject: How do I create...
Date: Wed, 06 Jan 1993 11:15:38

Gordon Davidescu wrote in a message to All:

 GD> TURBO PASCAL 6.0 units that work?

Yes, I wonder always why the stuff I type works. Sorry as I can't help
you as I don't know how I do it. I just sit and type... :-)


Groetjes,

Berend. (-:
fido: 2:281/527.23
email: berend@contrast.wlink.nl
From: bobbe@vice.ICO.TEK.COM (Robert Beauchaine)
Newsgroups: comp.lang.pascal
Subject: Re: There is no decompile on Turbo is there?
Date: 12 Jan 93 00:17:21 GMT
Organization: Tektronix, Inc., Beaverton,  OR.

In article <1993Jan11.211343.238@uwasa.fi> ts@uwasa.fi (Timo Salmi) writes:
>(Warning: Not to be taken seriously).
>
>The real dilemma arises if the original program's writer works in
>another language than English.  All the known reverse compilers will
>choke in trying to reverse-engineer eg Finnish program comments and
>Finnish procedure names.  Other than that, piece of cake, except
>some source code indentations might sometimes not be restored quite
>accurately.  :-) :-)

  Really?  My copy of TP chokes on all Finnish identifier names with
  a compile time "Scandanavian syntax error".  Doesn't yours?

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

Bob Beauchaine bobbe@vice.ICO.TEK.COM 

"Look, I tried the cat experiment.  On the third trial, the cat was
dead.  On each of the subsequent 413 trials, it remained dead.  Am I
doing something wrong?"
			James Nicoll

Q.  How many Heisenbergs does it take to screw in a light bulb?
A.  If you know the number, you don't know where the light bulb is!

Newsgroups: comp.lang.pascal
From: leonard@qiclab.scn.rain.com (Leonard Erickson)
Subject: Re: File locking question
Reply-To: Leonard.Erickson@f51.n105.z1.fidonet.org
Organization: SCN Research/Qic Laboratories of Tigard, Oregon.
Date: Tue, 12 Jan 1993 06:48:06 GMT

u055@csx.cciw.ca (James Sprenger) writes:

>>        If you want your files to be "SHAREABLE" you should fiddle with the 
>>FileMode public variable of TurboPascal BEFORE doing any Reset,Rewrite,
>>Close (and possibly Append :I did not tried that one yet )

>I don't think this will work 'cause the file that is accessed is
>redirected from the command line, and not initialized from the TP prog. 
>Even if you did open the file from the TP program, I think you'll run into
>problems when two people try to write to the file simultaneously (spelling?)
>Any how, if you are using a Novell NetWare network, its probably best to
>use semaphores...these netware function are faaaast and you don't have to
>write your own lowlevel IO routines. 

Nope! Novell *has* to support the share operations. And it does. I wrote
a program that did it this way. *much* simpler than semaphores for a short
program. 


>> So my guess  is that your program username should:
>>
>>  -be compiled with $I-  (no stop on runtime error)
>>
>>  -Repeat
>>     -try to open the file in mode $11 (Write and deny ALL)
>>  -Until (IoResult=0)  (* nobody else has locked it *)
>>

>I tried a similar routine with an app I was writing and never quite got it to
>work.  Maybe I should look at it again....

It *will* work. As long as you onl;y want one process at a time using the file.
I've gotten it to work with DenyAll-Read/Write, and with DenyNone-ReadOnly. 
The first for a logging program. The other for a shared data file that I could
update when the programs reading it were down.

These are only stopgaps. Ways of getting a non-network program (or programmer)
going on a LAN with minimal trouble. Doing things *right* takes a lot more.

-- 
Leonard Erickson		      leonard@qiclab.scn.rain.com
CIS: [70465,203]			 70465.203@compuserve.com
FIDO:   1:105/51	 Leonard.Erickson@f51.n105.z1.fidonet.org
(The CIS & Fido addresses are preferred)
Newsgroups: comp.lang.pascal
From: cole@alexia.lis.uiuc.edu (Sandra Stewart-Cole)
Subject: Re: INHERITED: what are the advantages
Organization: University of Illinois at Urbana
Date: Mon, 11 Jan 1993 18:43:40 GMT

In <29505@oasys.dt.navy.mil> roth@oasys.dt.navy.mil (Pete Roth) writes:

>There's not much in the BP7 docs about using the reserved word
>INHERITED, although it is used in place of all previously fully
>qualified method invocations. For example, in place of

>CONSTRUCTOR TDerived.Init ;
> BEGIN
>   TBase.Init
>   ...

>the new "example" is

>CONSTRUCTOR TDerived.Init ;
> BEGIN
>   INHERITED Init
>   ...

>How is this new model an advantage?

For one thing, it starts to converge with Apple's Object Pascal proposed 
standard... 

Beyond that, it allows one to change the inheritance structure to insert a new
parent between a former parent and child without going back to change all the 
explicit parent calls. I can speak from the position of someone developing a 
cross-platform system in Think C (Mac) and Borland C (Windows/DOS) and I really
wish that Borland C had the inherited feature, because we have had to insert 
classes, and as a result have had to go back thru some rather complex objects 
to change a lot of explicit parent calls. If we had been able to use the Think
C inherited call, the insertion of a parent would have been much simpler.

Bill Stewart-Cole
Newsgroups: comp.lang.pascal
From: snodgras@cs.unca.edu (Ryan Snodgrass)
Subject: WANTED: Source Code
Organization: University of North Carolina at Asheville
Date: Wed, 13 Jan 1993 03:13:16 GMT

Does anyone have any of the source code (or better yet the entire disk)
for Tom Swan's Mastering Turbo Pascal 6.0 (Fourth Edition)?  Thanks,


Ryan
From: jcampione@hpb.hwc.ca
Newsgroups: comp.lang.pascal
Subject: Turbo Pascal database projects
Date: 8 Jan 93 22:00:26 GMT
Organization: Health and Welfare, Canada




                
        Is there any good modern Toolbox for database programming in 
        Turbo Pascal? I have experience with the Borland's Database 
        Toolbox for TP (originally for TP4 but recompilable with TP6). 
        This toolbox produces databases compatible with Reflex (not 
        very visible these days, but still supported by Borland). 
        Together the TP database Toolbox and Reflex can give some 
        satisfactory results but I'd like to know what's the best 
        present way to tackle a database project in Turbo or Borland 
        Pascal. 
        
        -Jose-
From: Robert_Salesas@mindlink.bc.ca (Robert Salesas)
Newsgroups: comp.lang.pascal
Subject: Re: Is LHA source in Pascal?
Date: 6 Jan 93 21:33:29 GMT
Organization: MIND LINK! - British Columbia, Canada

Where can I find the indicated STREAMS13.ZIP file?  Does it support LZH or
LZW compression?

Rob

--
\------------------------------------------------------------------------/
\ Robert Salesas             | Internet: Robert_Salesas@mindlink.bc.ca   /
\ Eschalon Development Inc.  | CIS:    76625,1320  Tel/Fax: 604-520-1543 /
\------------------------------------------------------------------------/
Newsgroups: comp.lang.pascal
From: zisi@opal.cs.tu-berlin.de (Andreas Zisowsky)
Subject: Re: FindFirst
Organization: Techn. University of Berlin, Germany
Date: Sun, 10 Jan 1993 20:59:57 GMT

tp923021@jarrah.canberra.edu.au (ben elliston) writes:

>I'm using:
>
>  FindFirst('C:\*.*', Hidden, SearchInfo);

Hello,
Turbo Pascal does not care about attributes (maybe in version 7.0).
You have to do it in the way you mentioned it.

Ciao.
Andreas

--

Andreas Zisowsky      -----       Internet: zisi@cs.tu-berlin.de
					    zisi@marie.physik.tu-berlin.de
From: scimitar@suction.acme.gen.nz (Robert Singers)
Newsgroups: comp.lang.pascal
Subject: TVision
Date: Wed, 06 Jan 93 18:18:24 +1300
Organization: Barbed Wire Cat Productions

I sure this is a FAQ.  But I don't have a copy of the FAQ list.

I have TP 6.0 and I've noticed that several number keys don't work in 
the editor object provided with TV.  I believe it is just a case of 
recompiling the unit.  Is that right.  Or is there a fix for it 
available from somewhere like garbo?

Also can someone recommend a good database library for writing a small 
library database program.  I need to keep track of all my paperbacks, 
plus several genealogy societies have been crying out for something 
similiar.

Robert Singers               | Nothing I say or do should be taken as
scimitar@suction.acme.gen.nz | a reflection of any form of reality or
                             | consensual hallucination.
** It's not my spelling (much) that's faulty.  It's this keyboard! **
Newsgroups: comp.lang.pascal
From: armbrusj@meena.cc.uregina.ca
Subject: Something with the memory
Date: 4 JAN 93 05:10:32 GMT
Organization: University of Regina, Regina, Sask., Canada

    I was wondering if someone out there could help me with a little problem.
I'm using a very old version of Turbo Pascal (3.0) and am having trouble with
a text manipulation program I made.  I made this program to read in parts of a
text file, and produce some output to the screen.  Everything works good the
first run, just like it should.  But say I change something and re-compile it
or exit, run a different program, then come and run that one again, I get
screwed output!  It puts in control characters and other crap that is not
suppose to be there.  I think it has something to do with the memory because
everytime I startup the computer and run the program I made before any other,
it works fine.  But as soon as something else is in the memory, bam!  It goes
screwy.  Any suggestions?  It's really starting to get on my nerves.  And it's
not any TSR's, cause I removed them and it did the same thing!  Is there some
way to clear the memory as you run the program?  Any help would be muchly
appreciated!  Thanx.

Jason
Newsgroups: comp.lang.pascal
Subject: Re: powers in TURBO pascal
From: CHEAC@LURE.LATROBE.EDU.AU (CZERWINSKI,Alex)
Date: Fri, 8 Jan 1993 01:16:29 GMT
Organization: La Trobe University
X-News-Reader: VMS NEWS 1.24

In <1992Dec30.174246.2523@news.uni-stuttgart.de> lehnert@ifsws1.sozialforschung.uni-stuttgart.de writes:

> Hi, everybody,
> I suppose it's trivial, but ...
> 
> What is the TURBO pascal operator for "x to the power of y"?
> 
> I tried ^ (reserved for pointers), **, and others,
> and consulted the Borland Reference Books;
> Maybe somebody can help me.
> 
> Thanks,
> Doris
> -- 
> Doris Lehnert			lehnert@ifsws1.sozialforschung.uni-stuttgart.de
> Universitaet Stuttgart, Institut fuer Sozialforschung

 Here is an answer by Prof. Timo Salmi :


 Q: I need a power function but there is none in Turbo Pascal.

 A: Pascals do not have an inbuilt power function. You have to write
one yourself. The common, but non-general method is defining
   function POWERFN (number, exponent : real) : real;
     begin
       powerfn := Exp(exponent*Ln(number));
     end;
To make it general use:
   (* Generalized power function by Prof. Timo Salmi *)
   function GENPOWFN (number, exponent : real) : real;
   begin
     if (exponent = 0.0) then
       genpowfn := 1.0
     else if number = 0.0 then
       genpowfn := 0.0
     else if abs(exponent*Ln(abs(number))) > 87.498 then
       begin writeln ('Overflow in GENPOWFN expression'); halt; end
     else if number > 0.0 then
       genpowfn := Exp(exponent*Ln(number))
     else if (number < 0.0) and (Frac(exponent) = 0.0) then
       if Odd(Round(exponent)) then
         genpowfn := -GENPOWFN (-number, exponent)
       else
         genpowfn :=  GENPOWFN (-number, exponent)
     else
       begin writeln ('Invalid GENPOWFN expression'); halt; end;
   end;  (* genpowfn *)
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: Error 70: Unit Version Mismatch (Validate)
Organization: Queen's University
Date: Tue, 12 Jan 1993 21:17:06 GMT

In article <1993Jan12.194247.9978@cs.unca.edu> snodgras@cs.unca.edu (Ryan Snodgrass) writes:

>I have a problem, whenever I try to compile ANYTHING that uses the Dialogs
>unit, it stops there and says:

>Error 70: Unit version mismatch (Validate)

You've probably got a unit called Validate.  So does TurboVision now.  Since 
Dialogs uses Validate, the compiler is picking up your version instead of 
the TV version, and recognizing that it's not the right one.  You'll have
to change the name of yours, or change the name of the TV one and recompile 
all of the TV units that use it.

Duncan Murdoch
dmurdoch@mast.queensu.ca
Newsgroups: comp.lang.pascal
From: chard@borland.com (Richard Nelson)
Subject: Re: BP7 -- five more bugs
Summary: Directives vs. reserved words
Originator: chard@genghis.borland.com
Organization: Borland International
Date: Thu, 7 Jan 1993 22:30:44 GMT

>>2. Syntax highlighting fails for "forward".
>>------------------------------------------
>>
>>"Forward" is highlighted as a reserved identifier. It isn't.
>> ...
>
>Is this true?  I thought forward *was* a reserved identifier for declaring
>forward procedures or do you mean that BP7 allows you to call an identifier
>"forward" when it should be a reserved word?

Starting with version 6.0 of Turbo Pascal, certain identifiers that
used to be reserved words are now directives, which can be redefined
by your programs.  Since they have pre-defined meanings, the syntax
highlighting recognizes and highlights them.

Basically, all the procedural directives (such as near, far, absolute,
forward, virtual, interrupt, assembler) get highlighted.

The distinctions are explained on pages 16-17 of the Borland Pascal
Language Guide.
-- 
=========================================================================
 Richard Nelson, Borland Int'l | chard@borland.com | Go Bears! Grrr-rah!
  Had this been Borland's opinion, I would have written it in a manual.
 "...there's no hurry, I'm just sittin' here doing time." - John Lennon
From: CHARPER%COLGATEU.bitnet@cunyvm.cuny.edu
Newsgroups: comp.lang.pascal
Subject: Stuffing DOS command line
Date: 8 Jan 93 15:40:37 GMT

Hi y'all.  I haven't yet received any mail from this list, so I don't know if
this is the right kind of question to address here, but I joined in order to
ask this question:

Some years ago I worked with MS-Pascal, and used a method to load a desired
string into the DOS command line, so that that command was executed when the
application completed.  This was the best way I know of to chain from one
program to another.  I'm now working with Turbo Pascal 5.0, and would like to
know if someone has code which will do this in Turbo Pascal. (I don't have the
MS-Pascal code that did this any longer).  Basically I need something that will
set the next command to execute WITHOUT using EXEC (I can't afford the memory
to shell the command).

Thanks,
**************************************************************************
Cindy Harper, Systems Librarian                               Case Library
charper@colgateu                                        Colgate University
charper@center.colgate.edu                                    13 Oak Drive
(315) 824-7363                                           Hamilton NY 13346
**************************************************************************