HDTenEightyP/NetNews huggingface dataset:
From: "stella chin" <stella.chin@channel1.com>
Newsgroups: comp.lang.pascal
Subject: want asm/tp programme
Date: 27 Jan 93 01:28:48 EST
Reply-To: "stella chin" <stella.chin@channel1.com>
Distribution: comp
Organization: Channel 1 Communications

there is a programming job opening at Foley Hi-Tech Systems!!! :)

we are looking for someone who is fluent at turbo assembler and turbo
  pascal.  if you are fluent in these two languages, please contact
  david at (415) 882-1730...


stella
---
  DeLuxe/386 1.25 #8748  Foley Hi-Tech Systems BBS (415) 882-1735
--
Channel 1 (R)   Cambridge, MA
From: me21tg@surrey.ac.uk (Mr Timothy Green)
Newsgroups: comp.lang.pascal
Subject: Re: Replying with well known answers
Date: 22 Jan 93 20:28:55 GMT

Timo Salmi mentioned in one of his postings about people requesting
replies to be sent direct and not posted to this group. If the senders
of the replies considered carefully the likely number of people to also
know the answers then they could choose whether or not to e-mail or post.

Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: Streams for TV and Windows, are they compatible?
Organization: Queen's University
Date: Thu, 21 Jan 1993 14:00:58 GMT

In article <930021.134440.achristo@nutri1> achristo@pons.uio.no (Alf Christophersen) writes:

>I'm at spare time programming on a program for Windows which in
>future also will be implemented for TV. The program store all its
>data on streams. But I'm wondering how I should in future convert
>these datastreams when I'm going to transport the data to a
>parallell TV implementation. Is the ID for TCollection the same
>for both TV streams and Windows streams?

Anything from the Objects unit will have the same ID, since it's the same 
source code for both TV and OWL (as of version 7).  One omission from OWL is 
the TResourceFile and related types; I've been told Borland was worried 
about confusion with Windows resources.  I think this is too bad, since 
TResourceFiles are much more useful than Windows resources.

>At the same time, when BP 7 came, it had introduced pChar also
>for the Turbo Pascal v. 7, but why hasn't the stream mechanism
>introduced the pchar strRead and strwrite mechanism? The only
>mechanism available is the ReadStr and WriteStr that use pString.
>What about the TStrCollection of Windows, why wasn't this
>introduced in TV? It seems to me like TV for TP7 was released 90%
>ready.

It's a real pain to write a general Asciiz reader.  Unless you know how much 
data to expect, you have to allocate a huge buffer just in case or have more
complicated code to let your buffer grow as necessary.

The TStrCollection *is* included in TV, but seems to have been forgotten in 
the documentation.

Duncan Murdoch
From: system@kalki33.lakes.trenton.sc.us (Kalki Dasa)
Newsgroups: comp.lang.pascal
Subject: Re: Text windows WITHOUT OOP
Date: Sun, 24 Jan 93 03:07:46 EST
Organization: Kalki's Infoline BBS, Aiken, SC, USA

Doug ! <JDG111@psuvm.psu.edu> writes:

> Anyone know of any good text windowing units/packages which do NOT require
> the programmer to use Object Oriented Programming?  Turbo Vision is nice, I
> don't have the time to re-learn everything right now.  I know there's GOT to
> be something written out there to help me out, I just don't know what, or
> where.  If YOU do, drop me a line.

Well, I have a (shareware) set of TP 5.5 utilities from Eagle that
implements windows, menus, status lines, etc., as TPUs. No OOP is
necessary to use them, althought they were probably written using OOP.
The name of the file is EAGLEPAS.ZIP, and it is available on my BBS at
(301) 643-3172

Kalki Dasa


       ---------------------------------------------------------
      |                Don't forget to chant:                   |
      |                                                         |
      |  Hare Krishna Hare Krishna, Krishna Krishna Hare Hare   |
      |       Hare Rama Hare Rama, Rama Rama Hare Hare          |
      |                                                         |
      |    Kalki's Infoline BBS Aiken, South Carolina, USA      |
      |           (kalki@kalki33.lakes.trenton.sc.us)           |
       ---------------------------------------------------------
From: lee@cpu.us.dynix.com (Lee Crites)
Newsgroups: comp.lang.pascal
Subject: Re: TP6 private
Date: 21 Jan 93 22:26:16 GMT


On 18 Jan 1993, michael a vincze wrote:

> I take your reference to "stupid" personally.  You obviously don't understand
> that software projects have requirements.  You are limiting your soloution as
> soon as you limit it to a language.  This is not very creative.  Gee are you
> for hire?  Your limited mind set would go perfect with some b___ job I have for
> you.

My reference to 'stupid' was directed towards the statement made, not the
person who made it.  You're attack, however, was personal in nature, an
totally uncalled for.  The statement was not even made TO YOU, but to
someone else!

So my question is, who do you think you are?

There is no reason for me to apologize for my statement.  Your's, however
all but requires one.  I denigrated the statement, you decided to attack
me personally.

And, yes, I am for hire.  However, I have walked out on more clients than
I have taken.  Why?  Because I am competent and knowledgable enough to
know who you can work with, and who you can't.

With that said, I leave you to yourself.

Lee Crites, President
Computer Mavericks, Inc
171 East 300 North
Spanish Fork, UT 84660-1856

           =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
            lee@us.dynix.com | If it ain't broke yet,
                             |   let me have a shot at it....
           =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
From: ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
Newsgroups: comp.lang.pascal
Subject: Re: STRING AND INTEGER CONVERSION (Mac AND PC) - HELP
Date: Tue, 26 Jan 1993 08:25:59 GMT
Organization: INSA  CENTRE INFORMATIQUE DU 1er CYCLE
NNTP-Posting-Host: pc110-02.insa-lyon.fr

In article <1993Jan25.202522.15666@massey.ac.nz> RPatel@massey.ac.nz (R. Patel) writes:
>From: RPatel@massey.ac.nz (R. Patel)
>Subject: STRING AND INTEGER CONVERSION (Mac AND PC) - HELP
>Date: 25 Jan 93 20:25:22 GMT


>G'day,

>I tried posting this before and it never showed up so please bear with
>me if it did appear.

>Anyway I've got a Pascal prog. on the Mac which uses the SANE library
>functions int2str and str2int (ie converts a string to integer and vice
>versa).

>I'm trying to get the program running on the PC under TPascal but I
>don't know what library to use and which functions to call that have the
>same operations (ie converting strings and integers etc).

[ .....]

  int2str should be changed to str()
  str2int should be changed to val()
  Caution: The parameters are differents and Str() and val() are PROCEDURES
whereas int2str() and str2int() are functions (I think It has been years
since I used Think Pascal)     RTFM. please
ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
--------------------------------------------------------
Dr Patrick L.Pollet
Institut National des Sciences Appliquees
Centre Informatique du 1er Cycle  Bat 110
20 Avenue A.Einstein
69621 Villeurbanne Cedex France
--------------------------------------------------------
Phone: 72 43 83 80 -   la premiere erreur c'est
Fax  : 72 43 85 33 -   de se lever le matin  ... GASTON
-------------------------------------------------------
Newsgroups: comp.lang.pascal
From: S_KRANAWET@rzmain.rz.uni-ulm.de (Kranawetter Marco)
Subject: DMPMI with BP/7
Organization: University of Ulm, Germany
Date: Thu, 28 Jan 1993 13:37:41 GMT
X-News-Reader: VMS NEWS 1.25beta

hello !
i have great troubles with converting a tp6 program to a bp7 dpmi program !
i make use of direct access to adresses in then realmode segment $0000.
in the real mode everything is correct, but in the protected mode i always
get protection faults ( runtime error 216 ).
can anyboby say me, how i can define a correct selector to the real mode
segment $0000 ? or is there another way to write / read at this segment ?
				thanx !
				
Newsgroups: comp.lang.pascal
From: jon@ais.org (Jon Zeeff)
Subject: Free pascal compiler for unix?
Organization: UMCC
Date: Thu, 28 Jan 1993 03:48:00 GMT

Are there any free Pascal compilers that wuld run under unix (BSD)?  It
would be nice to have one for our club.

Newsgroups: comp.lang.pascal
From: samodena@csemail.cropsci.ncsu.edu (S. A. Modena)
Subject: Re: BP 7.0 bug??????
Organization: Crop Science Dept., NCSU, Raleigh, NC 27695-7620
Date: Fri, 22 Jan 1993 10:34:49 GMT

In article <35168@adm.brl.mil> lee@cpu.us.dynix.com (Lee Crites) writes:
>
>On 21 Jan 1993, jindrich liska wrote:
>> whenever I try Options|Open I get a message "... not enough memory..." and system stucks. Actually, there is no reason for this message (still lots of memory avail.).
>
>I am getting this message a LOT with BP7.  Is there a bug here?  I have
>4meg of RAM, and set up my computer so that the only TSR's kicking around
>are the mouse driver and SSTOR (SuperStore disk compression utility).....
>....  I ran the utility that cam with BP7 to test the EMS, and it
>worked fine.  I also have the IDE set up to use EMS (something I had to do
>quite early just to get some of my other programs to compile).

>            lee@us.dynix.com | If it ain't broke yet,

I run BP on a Toshiba 386SX portable with 4 Megs RAM.......so 4 Megs is
not the problem (I compile 50,000 lines in about 20 Units).....so I think
is reasonable to ask you (both) to show us you CONFIG.SYS and
AUTOEXEC.BAT files.

BTW, running EMS memory with BP makes no sense at all *unless* you are
specifically using EMS in the target application.  

I can say that running DOS 5 and EMM386.SYS is *poison* to the TD386
stand along debugger (which already has stability problems).

Additionally, I'd strongly recommend that if you are using DOS 5, you
substitute the WINDOWS versions of MOUSE.sys and HIMEM.SYS, since they
were written with DPMI server function in mind (hell, even MicroSoft
reccommends what I just suggested).

In reality, you are not whole-heartedly debugging this problem until you
start with no-TSRs (does the SSTOR TSR obey the same memory allocation
rules as HIMEM.SYS?  Does it respect the needs of the DPMI server that
gets launched (silently) before BP starts up?). 

To debug rour respective problems requires that you strip AUTOEXEC.BAT
and CONFIG.SYS down to absolute bare minimum and add in things....and not
do it the reverse way.
Hope it helps.  :^)
Steve
From: randyd@csd4.csd.uwm.edu (Randall Elton Ding)
Newsgroups: comp.lang.pascal
Subject: Re: Can't use redirection ">" with EXEC call ???
Date: 24 Jan 1993 08:47:43 GMT
Organization: Computing Services Division, University of Wisconsin - Milwaukee
NNTP-Posting-Host: 129.89.7.4

In article <C1Bo2x.K6s@DMI.USherb.CA> desrg00@DMI.USherb.CA (GUY DESROSIERS) writes:
>	I trying to do something like that (under TP 6.0)
>
>	Exec('c:\dos\xcopy.exe', 'b:*.* > result.txt');
>
>	I want to redirect the output in a file (result.txt).
>	Exec doesn't seem to like redirection. Any idea what I
>	do wrong.
>
>	Thanks in advance.
>
I'm not sure about the Exec command, but I know that redirection doesn't
work if you include the crt unit in your code.  You have to redirect
the standard input/output back to the standard device.

ex.  close (output);
     assign (output,'');  { assign standard device }
     rewrite (output);

Randy.

Newsgroups: comp.lang.pascal
From: s2861785@techst02.technion.ac.il (Alon Ziv)
Subject: Re: TP: Compiling to .obj?
Organization: /u1/023/s2861785/.organization
Date: Mon, 25 Jan 1993 11:15:09 GMT

James N. Potts writes:

   I'd like to make an object file containing functions to be used by another
   program.  How can I turn my pascal file into object code?

You can't.
(Unless, of course, you switch to a different compiler---such as Stony
Brook's Pascal+, which is source-compatible AND produces OBJ files).

You CAN, however, create a DLL (assuming you use BP7.0), and use this
in your other program---but this method requires you use windows, or
(at least) a suitable DOS extender.

   James

Alon Ziv
--
Internet:	s2861785@t2.technion.ac.il			   . __
	I'M A STUDENT: When I'm wrong, it's my teacher's fault	  _|  /
	(when I'm right, the credit is all mine!)		 / | /_
								Alon Ziv
Newsgroups: comp.lang.pascal
From: focke@gmd.de (Stefan Focke)
Subject: TPW: How to get a pointer from a handle
Organization: gmd
Date: Tue, 26 Jan 1993 11:42:35 GMT

Hello!

If I create a brush or a bitmap I get its handle. Is it possible to find the 
address where this brush or bitmap is realy stored. 

Thank you

Stefan  (focke@gmd.de)


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

Stefan Focke                  Tel. 02241-14-3154
GMD-I8                        e-mail: stefan.focke@gmd.de
Postfach 1316
D-W 5205 Sankt Augustin 1
From: berend@contrast.wlink.nl (Berend de Boer)
Newsgroups: comp.lang.pascal
Subject: Interrupt bug(?) in protected mode
Date: Wed, 20 Jan 1993 11:03:56

Hello All!

The following program, compiled under protected mode, does return the
correct result. The int 15h should return a dword on the stack. It
doesn't (it returns nothing) so I get a GP fault. It compiles fine under
real mode.

You have to run under DesqView (I have 2.42). This call returns the
currents window handle as a dword on the stack.

========cut here==========================
program Test;

function  dv_win_me : longint;  assembler;
asm
  mov    bx,0001h
  mov    ah,12h
  int    15h
  pop    ax
  pop    dx
end;

begin
  writeln(dv_win_me);
end.
========cut here==========================

Not all interrupts seem to be supported by the Borland Extender. I tried
to use the DPMI service Simulate Real Interrupt without succes. I
probably did something wrong, else it should have worked. Can anyone
help me?


Greetings,

Berend. (-:
fido: 2:281/527.23
email: berend@contrast.wlink.nl
Newsgroups: comp.lang.pascal
Subject: BBSkit 2.0 updated for BP7
From: sjmadsen@apsvax.aps.muohio.edu (Steve Madsen)
Date: 25 Jan 93 17:17:12 -0500
X-Newsreader: TIN [version 1.1 PL6]

	For anyone that may be interested, BBSkit 2.0 has finally (!)
been updated for Borland/Turbo Pascal 7.0.  If you wish to look at the
new units with your new compiler, BBSkit is ftp'able from:

simtel20:<MSDOS.TURBOPAS> as bbskt20e.zip

	It's also available on the mirror sites.

	Briefly, BBSkit is ideal for anyone wishing to do interactive
communications with a remote user, either over a null modem serial
connection or through a standard modem connection.  It makes life very
easy by using a more intuitive I/O interface than repeatedly calling
"character out" procedures or the like.  It also has standard Xmodem
(and flavors) included in the shareware version.

	Registered users get some additional goodies, but if you want to
see what those are, you'll have to check the "what's new" file in the
archive.

-- Steve
Newsgroups: comp.lang.pascal
From: d92magax@odalix.ida.liu.se (Magnus Axelsson)
Subject: Re: help ??
Organization: CIS Dept, Univ of Linkoping, Sweden
Date: Fri, 22 Jan 1993 18:23:05 GMT

uli@izfm.uni-stuttgart.de (Uli Allgeier) writes:

>Hi!

>In article <8269@kielo.uta.fi> csfraw@vehka.cs.uta.fi (Francis Akoto) writes:
>>Can somebody please explain the code below
>>
>>( i.e can you write it in another way )
>>
>>-----
>>vi: integer ;
>>
>>     if ( vi and 1) = 1 then
>>	vi := vi shr 1;
>>        ...............
>>	...............
>>
>>
>>for example : what happens if vi= 1 or vi = 2 etc will the if statment be true
>>and what is "shr".

>In Turbo-Pacasl 3.0 'and' does a bit-by-bit logical and.
>example:
>0 and 0   is   0
>1 and 0   is   0
>1 and 1   is   1
>1 and 2   is   1
>1 and 3   is   1
>2 and 1   is   0
>3 and 1   is   1
>6 and 3   is   2
>and so on.

>Cheers

>Uli

So Turbo-Pascal does.
The IF-statement in the above code, checks if the least significant bit (LSB)
is set, and if so, it shifts every bit one step to the right.

Example:
vi := 5;                          (* 0000 0101 in binary *)
IF (vi AND 1) = 1 THEN            (* ^       ^           *)
  vi := vi SHR 1;                 (* MSB     LSB

vi now hold the value of 2 which is 0000 0010 in binary notation. If you
run vi through the IF-statement again, it will leave vi unchanged as the
LSB is a 0.

number SHR n - This instructions shifts every bit n steps to the right
               in the variable number. It also "adds" n 0:s at the MSB
               end of the number. There is also an instruction called
               SHL that shifts the bits to the left.

You could replace your code with the following instructions which do exactly
the same thing, but there is hardly any reason to do so as SHL and SHR 
are faster than DIV and MOD.

IF (vi MOD 2) = 1 THEN
  vi := vi DIV 2;


Good luck!

Magnus Axelsson
d92magax@und.ida.liu.se
Student at University of Linkoping, Sweden.
Newsgroups: comp.lang.pascal
From: jkorpela@snakemail.hut.fi (Jukka Korpela)
Subject: Re: help
Organization: Helsinki University of Technology, Finland
Date: 25 Jan 93 12:56:32 GMT

You asked what is the effect of
       i := i or j ;
if i and j are of type integer.

There have been replies which are probably valid for Turbo Pascal.
But please notice that this is a language extension. In standard
Pascal, such a construct is an error which must be detected
by the compiler, since the only allowable operand type for the
"or" operator is Boolean. - If you have code which uses the "or"
operator for integers, in order to perform the bitwise "or"
operation, but your compiler does not support it, you're in trouble.
In standard Pascal, the set union operator (the "+" operator for
sets) provides the same functionality in principle, but it may require
considerable amount of work to modify the code accordingly.

* Jukka "Yucca" Korpela, Manager of User Support
* Helsinki University of Technology (HUT) Computing Centre, Finland
* Internet mail address: Jukka.Korpela@hut.fi
Newsgroups: comp.lang.pascal
From: ts@uwasa.fi (Timo Salmi)
Subject: Re: Replying with well known answers
Organization: University of Vaasa, Finland
Date: Sat, 23 Jan 1993 08:09:18 GMT

In article <35186@adm.brl.mil> me21tg@surrey.ac.uk (Mr Timothy Green) writes:
>Timo Salmi mentioned in one of his postings about people requesting
>replies to be sent direct and not posted to this group. If the senders
>of the replies considered carefully the likely number of people to also
>know the answers then they could choose whether or not to e-mail or post.

It is a good point, but I would say that the likely number of the
people who do *not* know the answers is much more relevant.  One of
the purposes of this newsgroud is giving and exchanging information
to enhance the genral level of know-how about Pascal in its various
renditions (most often Turbo Pascal).  The main idea is not the
"spare" the majority users from seeing things they already know. 

We have also take into account that there are tens of thousands of
readers in the newsgroups, which means that if the question is not
totally trivial there usually is some general interest for any
relevant question.  (The readership tally is published in news.lists
monthly, but I do not recall the figures for comp.lang.pascal).  It
is quite usual that the readers may not come to thing how
extensively the newsgroups are read. 

   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: mike.dickson@almac.co.uk (Mike Dickson)
Newsgroups: comp.lang.pascal
Subject: Re: Avoiding system error
Date: 23 Jan 93 17:04:00 GMT
Reply-To: mike.dickson@almac.co.uk (Mike Dickson)
Organization: Almac BBS Ltd. +44 (0)324 665371

PP..try the following function (must have a USES DOS )
PP..    Function Exist (aFile:String):Boolean;
PP..    var Sr:SearchRec;
PP..    begin
PP..       FindFirst(aFile,ANYFILE-DIRECTORY-VOLUMEID,Sr);
PP..       Exist:=DosError =0
PP..    end;

One small correction, possibly; instead of using FindFirst you could use

FUNCTION FileExists (Filename : String) : Boolean;
var
   Attr : Word;
   f    : file;
begin
   Assign (f, Filename);
   GetFAttr(f, attr);
   FileExists := (DOSError = 0);
end;

The reason for this is that there is a bug in the OS/2 Service Pak that
prevents some instances of FindFirst from working.

/\/\ | |< |.                                     mike.dickson@almac.co.uk
---
 . SLMR 2.1a . Sex is better than logic, but I can't prove it.
From: lfosdal@falcon.no (Lars Fosdal)
Newsgroups: comp.lang.pascal
Subject: Re: Date/time manipulation
Keywords: dat,time
Date: Mon, 25 Jan 93 13:09:44 MET
Organization: Falcon Information Services AS, Oslo, Norway

ts@uwasa.fi (Timo Salmi) writes:

> In article <currin.27.727945571@unpsun1.cc.unp.ac.za>,
> currin@unpsun1.cc.unp.ac.za writes
> >  23/01/93, 00:01:31, 31, NAME OF SOMEONE
> >This represents that time and date that someone exited the program 
> >followed by the minutes that they were using the software.
> >Does anyone have any code that takes a minutes figure away from the 
> >date and time ?
> 
> Huh? If it is in a fixed postition, just have to use the Copy
> keyword to extract pertinent parts from the string, and then
> recombine eg with +.  Look up the Copy keyword.  This is rather
> trivial.  
> 

I believe that he wants to do a julian subtract from the date, not to
copy a section of the string.

f.x. 

 23/01/93, 00:01:31, 31, UserName   ->  23/01/93, 00:01:00
 
which is not as trivial (unless you use TP/BP and got the Turbo/Object 
Professional library from Turbo Power).

Anyone with good shareware/PD date routines out there ?
Please drop currin@unpsun1.cc.unp.ac.za a line !

Lars F.
From: wbdst+@pitt.edu (William B Dwinnell)
Newsgroups: comp.lang.pascal
Subject: Re: Help w/ THINK Pascal!
Date: 28 Jan 93 01:28:28 GMT
Organization: University of Pittsburgh


Well, I don't know anything about Think Pascal, but a typical file
handling syntax works like this:
Your file is namesd 'TEST.DAT', okay?

program LITTLE;

var infile : file;

begin
     Assign(infile,'TEST.DAT');   { Associates the filename with the var }
     Reset(infile);               { opens the file for reading }
     for x := 1 to 4 do           { Oops, I forgot to declare x! }
         read(infile,data[x]);    { Guess I should have declared data[]! }
     Close(infile);               { Always put your toys away, when through. }
end.
Newsgroups: comp.lang.pascal
From: ts@uwasa.fi (Timo Salmi)
Subject: Re: TPU 5.5 -> 6.0 translator needed
Organization: University of Vaasa, Finland
Date: Thu, 28 Jan 1993 18:23:44 GMT

In article <1993Jan27.164726.706@cine88.cineca.it> avl0@cine88.cineca.it writes:
>Is there anyone knowing if there is a TPU translator from version 5.5 to 6.0.
>I need to use a TPU compiled under TurboPASCAL 5.5 

No, there is not.  Please see the Frequently Asked Questions
 107719 Jan 24 13:51 garbo.uwasa.fi:/pc/ts/tsfaq32.zip

"If you do not know how to go about getting this material, users are
welcome to email me for the prerecorded garbo.uwasa.fi instructions
(long, circa 29Kb).  North American users are referred to the Garbo
mirror on wuarchive.wustl.edu.  Australian users are referred to the
archie.au mirror.  For the Asian users there is the NCTUCCCA.edu.tw
mirror.  The mirrors may lag occasionally, or might not have all the
files.  If you do not receive my reply within five days, please ask
your own site's system manager to construct a returnable mail path
for you". 

   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