HDTenEightyP/NetNews huggingface dataset:
Newsgroups: comp.lang.pascal
Subject: Help : Encryption Algorithms
From: ebolog@elaine.ee.und.ac.za (EDWIN BOLOGNA : THIRD)
Date: 20 Aug 92 13:17:30 +0200
Organization: Electronic Eng., Univ. Natal, Durban, South Africa


Does anyone out there happen to have PAS, C, or ASM source code to decode
and code good encryption algorithms.

Any information at all on any of these algorithms 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 !
From: greg.vigneault@bville.gts.org (Greg Vigneault) 
Newsgroups: comp.lang.pascal
Subject: TURBO PASCAL -> BORLAND C
Date: 15 Aug 92 19:52:00 GMT
Distribution: world
Organization: Baudeville BBS - Toronto, Canada 416-283-0114/6059* *v32bis/HST
Reply-To: greg.vigneault@bville.gts.org (Greg Vigneault) 

 In message-ID <1992Aug10.113545.58016@cc.usu.edu>
 Subj: Turbo Pascal -> Borland C
 slb1b@cc.usu.edu (Holographic Banana) writes...

HB>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.
  >I've got about 20,000 lines of source that I DON'T want to retype.

 No.

 Too bad you've already invested in TP6.  I have TP55, but won't
 be going with Borland for _any_ further compiler purchases.  The
 compiler you should have is Stony Brook Pascal+ ... it's TPv6.0
 compatible, more optimizing, and produces standard .OBJ files.

 Greg_

 Aug.15.1992.Toronto.Canada.
 greg.vigneault@bville.gts.org
 gregsv@eastern.com
From: backes@cadsun.uni-sb.de (Rainer Backes)
Newsgroups: comp.lang.pascal
Subject: Turbo Pascal API for NetWare
Date: 18 Aug 92 11:02:25 GMT

Hi Netfolks !
(original newsgroup was comp.sys.novell)

Sorry for wasting some bandwidth, but Novell (and others)
are using this medium for their informations too.

Some times ago I posted some questions about the encrypted
password calls (do you remember ?).

Now the product is shipping: the 'bond' tools for Novell
NetWare and Turbo Pascal. 

The product includes nearly all API-functions available in
the Novell C-API for DOS. There are two disadvantages:
  - you can't write VAPs with it (Turbo Pascal isn`t able to
     produce VAPs)
  - the encrypted password calls are not supported yet, because
    Novell wasn't able (or willing) to support us with the
    necessary .obj files. ( the source is top secret)
But there are some advantages:
  - I builded an object-oriented layer on the IPX/SPX 
    communication functions. Doing IPX/SPX communication is
    now as easy as doing file or screen I/O.
    Did you ever try to establish a SPX connection without
    polling (using Event Service Routines) ?
    Now you don't have to worry about ESR, ECB, stacks and 
    so on, just call ObjectName.EstablishConnection.
  - For all german-speaking poeple there is one great advantage:
    we wrote a 870 page documentation in GERMAN.
    English speaking folks: sorry, but you can use the Docs
    of Novell (NetWare technical Reference, Doc of C-API)
    because the Names of the procedures and functions and
    the calling parameters are similar to the C-API.
    (exept the object oriented Comm. Layer).
  - the 'bond' tools support windows (3.0 and 3.1). A simple
    {$define}  lets the units compile for Turbo Pascal
    for Windows. The IPX/SPX functions are not yet supported
    for Windows, but we are working on it. We will ship this
    upgrade to all registered customers, when it is available.  
  - the 'bond' tools are shipped with full source code.

And now there is the great drawback: we want money for that stuff !

Yes, I am a student of Computer Sciences, but that's only the one
side. On the other side I am CNE/CNI and I have with 3 other poeple
a small company called 'bond' Software-Entwicklung GmbH. We spend
very much time in writing the software and very more time in writing
the documentation. Noone did pay us for that time yet. So we have 
to sell our product.

The price is 749,- DM plus Taxes and Shipping.

The order address is:
'bond' Software-Entwicklung GmbH
Illinger Str. 76
W-6682 Ottweiler
GERMANY

phone: +49 6824 2031
telefax: +49 6824 2034

Please don't order via E-Mail. If you have any questions, feel free
to contact us. (preferably via FAX. Email may take longer, because
my email-Address is at the university and I am not ervery day there)

I hope I didn't waste your time in giving you this information.


Rainer Backes
now for 'bond' Software-Entwicklung GmbH
From: ehrlich@bimacs.BITNET (Gideon Ehrlich)
Newsgroups: comp.lang.pascal
Subject: Re: Set question
Date: 12 Aug 92 12:01:03 GMT
Organization: Math department, Bar-Ilan University, Ramat-Gan, ISRAEL

In article <19621@plains.NoDak.edu> jorgense@plains.NoDak.edu (Lee A.
Jorgensen) writes:

>Ok, I might be missing something here, but how do I remove a member of a
>set?
>
>I tried two ways:
>
>TYPE ValidChar = set of '0' .. 'z';
>VAR ValidC : ValidChar;
>    a : Char;
>Begin
>  ValidC:=['0','1','2' .... 'x','y','z'];
>                       ^^^^^ --------------This does have ALL
> characters in here
>  a:=chr(49);
>  ValidC:=ValidC-a;

ILLEGAL !!!    you should write :    ValidC:=ValidC- [a];
                                                     ^ ^
>--- and ---
>  NewSetC:=ValidC-a;
                   ^
                   ^

>where NewSetC is of type ValidChar.
>
>What's am I doing wrong?  The manual isn't too explicit on sets.
>
>Thanks ... Lee.

You mixed  types.    a     is an element,    [ a ]    is a set.
The    -     is defined among sets.
>

SHALOM        Gideon Ehrlich      ERETZ YISRAEL
Newsgroups: comp.lang.pascal
Subject: Help : Extended and Expanded Memory
From: ebolog@elaine.ee.und.ac.za (EDWIN BOLOGNA : THIRD)
Date: 20 Aug 92 13:13:10 +0200
Organization: Electronic Eng., Univ. Natal, Durban, South Africa


Does anyone out there happen to have PAS, C, or ASM source code that is
able to access Extended or Expanded memory. This computer has got Three Mbytes

Extended memory and I am unable to use any of it in my programs.

Any information at all on this 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: samodena@csemail.cropsci.ncsu.edu (S. A. Modena)
Subject: Appending a ResourceFile to a .EXE
Organization: Crop Science Dept., NCSU, Raleigh, NC 27695-7620
Date: Fri, 21 Aug 1992 23:55:03 GMT

Under TurboVision, one is allowed to append a ResourceFile to an .EXE
file. Supposedly, opening the .EXE file as a ResourceFile will cause
the stream to recognise the .EXE image and the file pointer will
keep moving until the SIGNATURE for a ResourceFile is found.

Well, once upon a time, I did this successfully.  But now, the
trick does not seem to work.

If someone has this down pat, I'd appreciate a step-by-step of
the create-and-append that really works (unlike my current efforts).

Thanks,

Steve
---
+------------------------------------------------------------------+
|     In person:  Steve Modena     AB4EL                           |
|     On phone:   (919) 515-5328                                   |
|     At e-mail:  nmodena@unity.ncsu.edu                           | 
|                 samodena@csemail.cropsci.ncsu.edu                |
|                 [ either email address is read each day ]        |
|     By snail:   Crop Sci Dept, Box 7620, NCSU, Raleigh, NC 27695 |
+------------------------------------------------------------------+
         Lighten UP!  It's just a computer doing that to you.
OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
From: g_harrison@vger.nsu.edu (George C. Harrison, Norfolk State University)
Newsgroups: comp.lang.pascal
Subject: PERFECT HASH and eggs
Date: 14 Aug 92 00:08:06 EDT

This may NOT be an FAQ, but I'm sure it is something a lot of people on here
know about:
 
    Does anyone know or know of a pointer to a PERFECT HASH function
    for the 36 reserved words in ANSI standard Pascal? 
 
I know that I've seen the source to the answer somewhere in my distant past,
but I can't recall where.  Ideally, I need a simple one-to-one function to 
map a reserved word in a string to the integers 0..35 or a variation thereof.

Thanks ahead of time.
 
George

******************
George C. Harrison, Professor of Computer Science, Norfolk State University
g_harrison@vger.nsu.edu
From: wilson@mailhost.aa.cad.slb.com (David Wilson)
Newsgroups: comp.lang.pascal
Subject: Re: Graphics from TP6 to Printers: Help
Date: 21 Aug 92 15:45:03 GMT
Article-I.D.: aa.1992Aug21.154503.18706
Organization: Schlumberger CAD/CAM; Ann Arbor, Michigan (USA)

In article <66454@hydra.gatech.EDU> jm59@prism.gatech.EDU (MILLS,JOHN M.) writes:
>I have seen references to *.BGI files for printers, and am curious how
>these are used.  I have the Borland Graphix Toolbox, and was considering
>patching it's Hardcopy to print on my Oki 182, but it would be much nicer
>to be able to put TP graphic screens out on alternative printers, starting
>with the HP IIIP staring at me as I type.

Contact Ryle Design at (517)773-0587.  They sell a set of .bgi drivers for
dot matrix and laser printers.  There is at least one other vendor of the
same kind of stuff, but Ryle Design was the cheapest when I looked into it,
and I couldn't see any shortcomings in their software, support, upgrade
practices and plans, etc., compared to the more expensive company.

You draw an image for the printer using exactly the same routine calls
you do to draw an image on the screen.  (It is NOT a stupid screen dump.)
If you structure your code properly, you can make one run through your
drawing code to create a screen image, and then repeat the process to
produce the equivalent image (but with MUCH higher resolution) for your
printer.  I recall that you cannot keep the screen image up while producing
the printer image.  The process of initializing the driver for the printer
blanks the screen (it's been 18 months since I messed with this stuff).
This is an artifact of the way Borland did things, not a screwup on the
part of Ryle Design.

All in all, Ryle Design's package was inexpensive, works great, and they
were very nice and competent people to talk to.

Dave Wilson
Newsgroups: comp.lang.pascal
Subject: Segment aligned GetMem
From: sjmadsen@miavx1.acs.muohio.edu (Steve Madsen)
Date: 15 Aug 92 15:32:38 -0500
Organization: Miami of Ohio

        Is there any way to be assured that memory I allocate using GetMem is
segment aligned?  In other words, I need all memory I allocate to be in the
form ????:0000.  Or, I need a way to make it so.

-- 
Steve Madsen
Miami University  Oxford, OH
Internet: sjmadsen@miavx1.acs.muohio.edu
Newsgroups: comp.lang.pascal
From: dave@cs.uwa.oz.au (David Bailey - Prez)
Subject: Graphics ToolBox
Keywords: Turbo Pascal
Organization: Dept. Computer Science, University of Western Australia.
Date: Thu, 20 Aug 1992 09:49:34 GMT

 I am currwntly writing a toolbox of 'useful'
graphics routines for Turbo Pascal. If anyone 
has attempted this before, or has any ideas or code 
to exchange, I would be interested to hear from you!

David Bailey.

-- 
Dave
	U.W.A.	Western Australia.
From: zlsiida@fs1.mcc.ac.uk (dave budd)
Newsgroups: comp.lang.pascal
Subject: VGA256.BGI on Opus
Date: 12 Aug 92 15:55:09 GMT
Organization: Manchester Computing Centre
Originator: netnews@uts.mcc.ac.uk

Our Optics dept have a program they're developing to display HVC (=HLS) 
colour maps, and they find:

Colours OK on non-Opus machines
Colours OK on Opus machines with RIXAI8 driver (8514A emulator)
Colours wrong on Opus machines with VGA256.BGI

The colours that go wrong are every 16th, starting at the 6th

Must be some kind of problem with Opus hardware/firmware?

They're setting the palette with a ruotine that looks like:

var regs:registers; begin with regs do begin
AX:=$1012; BX:=0; CX:=256; ES:=Seg(P); DX:=Ofs(P); 
end; Intr($10,regs); end;

P is an array[0..255] of a record type which holds 3 single byte values (r,
g,b).  Should these be 16 bit values?
P MUST (hah!) be filled OK or it wouldn't work on non-Opus machines, or 
Opus machines with other than VGA256.BGI

More detail available if reqwuired!

 
+---------------------------------------------------------------------+
|  The trouble with having an open mind is that people come along and |
|  put things in it.   {attribution? I nicked it from Readers Digest} |
|  Dave Budd, MCC, Oxford Rd, Manchester, England   (44)061-275-6033  |
+---------------------------------------------------------------------+
From: S105728@umrvma.umr.edu ( Steve Poulsen)
Newsgroups: comp.lang.pascal
Subject: Help with TSR Programs
Date: 21 Aug 92 17:16:25 GMT

As far as writing a TSR in pascal, no problem.  Getting to release itself
and check for installation, that I do not know.  BUT . . .  I can do it in
assembly.  Maybe if someone wanted to, they could borrow one of my short
assembly TSR sources to try to use as inline assembler.  With this, a guy
could probably write a much needed unit that has release and check built in.
I just might do this and then I would not need Assembly for my TSR's.  As far
as the software MARK and RELEASE, they work fine.  I, however, prefer to have
the TSR do the work so that if you distribute it, a user need not have a copy
of MARK and RELEASE.  MARK and RELEASE work great for you to use someone else's
TSR's that won't remove.  Well, if anyone wants to see how it is done in
assembly, let me know.  Also, there was mail on how to write a TSR in TP6.0 so
if anyone wants source on a TP6.0 TSR that won't remove itself, also let me
know.  Sorry for long winded mail.

========================================      ,--,
  Steven P. Poulsen <S105728@UMRVMA>       ,'  '--,
  Student of Electrical Engineering        ---, ,'
  University of Missouri - Rolla            ,','
=======================================    , '
From: gysin1@urz.unibas.ch
Newsgroups: comp.lang.pascal
Subject: Problems with tResourceFile
Date: 12 Aug 92 16:40:22 GMT
Organization: University of Basel, Switzerland


I'm writing a more extended application than usual, so I would appreciate
saving memory to get more heap space. For this purpose I want to load some
dialogs from a tResourceFile instead of having them defined in the program
code.

The problem I have is that once a pointer on a tResourceFile is allocated,
I can load my objects [ pResourceFile^.Get(IndexStr) ] but not dispose the
resource file nor the stream associated with it.

Do I have to allocate memory for a resource file at the beginning of run-time
an keep it active unless the user will quit ? It seems that a
Dispose(pResourceFile, Done) not only frees the associated stream, but even the
pointers it has returned with Get.

Does somebody know what's matter ?

Any hint would be appreciated.

Many thanks

Philipp Gysin
University of Basel, Switzerland


"Life is too short to spend it on debugging...."
From: holland@matt.ksu.ksu.edu (Rich Holland)
Newsgroups: comp.lang.pascal
Subject: Re: Updating
Date: 20 Aug 92 22:22:17 GMT
Organization: Kansas State University
NNTP-Posting-Host: matt.ksu.ksu.edu

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}...

-- 
Rich Holland              | INTERNET: holland@matt.ksu.ksu.edu
100 Jardine Terr, Apt A7  | BITNET  : holland@ksuvm
Manhattan, KS  66502-3357 | UUCP    : ...!rutgers!matt.ksu.ksu.edu!holland
"Jesus saves...but Gretzky gets the rebound!  He shoots!  He scores!!"
From: S105728@umrvma.umr.edu ( Steve Poulsen)
Newsgroups: comp.lang.pascal
Subject: OOP procedure variable
Date: 21 Aug 92 05:11:18 GMT

I have had the same problem with passing an objects procedure as a variable.  I
think the problem is in trying to force the methods to use far calls.  Let me
know if you resolve this problem.
From: S105728@umrvma.umr.edu ( Steve Poulsen)
Newsgroups: comp.lang.pascal
Subject: Command string
Date: 22 Aug 92 16:34:11 GMT

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            ,','
=======================================    , '
Newsgroups: comp.lang.pascal,comp.binaries.ibm.pc.wanted
From: ferincz@methan.chemie.fu-berlin.de (Jozsef Ferincz)
Subject: RCS for DOS?
Date: Sun, 16 Aug 1992 17:45:32 GMT
Reply-To: ferincz@methan.chemie.fu-berlin.de
Organization: Free University of Berlin, Organic Chemistry
Keywords: RCS, DOS, multiple revisions of text 

Does anyone knows of an program that make multiple revisions of text
(source code) possible on DOS, like RCS on UNIX?

Thanks in advance, Jozsef
-- 
Jozsef Ferincz               INTERNET : ferincz@methan.chemie.fu-berlin.de    
Freie Universitaet Berlin           : ferincz@kristall.chemie.fu-berlin.dbp.de
Takustr.3, D-1000 Berlin 33  UUCP : ferincz@fub.uucp                          
Fax : +(49 30) 838 51 63     Tel.: +(49 30) 838 26 77, 838 53 63              
From: jcrowley@leotech.mv.com (Jon Crowley)
Sender: uucp@leotech.mv.com
Newsgroups: comp.lang.pascal
Subject: Help : Compression Algori
Date: Fri, 21 Aug 1992 20:21:00

To:  ebolog@elaine.ee.und.ac.za

EB:T>Does anyone out there happen to have PAS, C, or ASM source code
to decode
EB:T>and code LZH, or other good compression formats.

I think I have one for Zip.  Do you have XX3401?  If you do, holler,
and
I'll xx you a copy.
  SLMR 2.1a  Why do people put in taglines? They are a waste of
time.


 * Origin: Leo Technology (603)432-2517/432-0922 (HST/V32)
(1:132/189)
From: handbook@orion.oac.uci.edu (Handbook)
Subject: "Exec" in Sun Pascal?
Newsgroups: comp.lang.pascal
Organization: University of California, Irvine
Date: 21 Aug 92 19:01:19 GMT


Hi,

I'm used to using TP, but now I want to try something on this UNIX machine,
running SunOs 4.1.2 and Sun Pascal.

Is there an equivalent to "exec" in Sun Pascal?  How would you do something
like the following:

Procedure ExecuteChild;

begin
  SetMemTop(HeapPtr);               { only works in TP 6.0  }
  SwapVectors;
  Exec('ProgramName, 'CmdLineArgs');
  SwapVectors;
  SetMemTop(HeapEnd);
end;


Anything will be extremely helpful,

Tony

Anthony Toyofuku
University of California,
From: S105728@umrvma.umr.edu ( Steve Poulsen)
Newsgroups: comp.lang.pascal
Subject: Re: Windows and printscreen
Date: 22 Aug 92 16:34:08 GMT

I have written TSR's using int 09h and have the same problem.  Windows wipes
them out.  I believe that windows either uses its own int 09h or automatically
skips your int 09h and jumps to the original vector when done.  These are just
guesses.

========================================      ,--,
  Steven P. Poulsen <S105728@UMRVMA>       ,'  '--,
  Student of Electrical Engineering        ---, ,'
  University of Missouri - Rolla            ,','
=======================================    , '
From: jnicholson@bowker.com (Jim Nicholson)
Newsgroups: comp.lang.pascal
Subject: Re: Help : Compression Algorithms
Date: Fri, 21 Aug 92 01:14:34 EDT
Organization: Bowker Electronic Publishing, New Providence NJ

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
> and code LZH, or other good compression formats.
>

A recent series of posts on Fidonet's Pascal echomail conference gave a
compress/decompress suite using LZW.  If it's appropriate, I can post them
here.

- Jim
From: wilson@mailhost.aa.cad.slb.com (David Wilson)
Newsgroups: comp.lang.pascal
Subject: Re: Whither The Next ANSI Pascal Standard? (Breath of Life)
Date: 21 Aug 92 15:50:14 GMT
Article-I.D.: aa.1992Aug21.155014.18794
Organization: Schlumberger CAD/CAM; Ann Arbor, Michigan (USA)

In article <1992Aug18.084321.25762@reed.edu>, orpheus@reed.edu (P. Hawthorne) writes...
>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...

A recent issue of ACM's SIPGLAN Notices had a letter from someone (I've
misplaced it) offering copies of the proposed new standard for object
extensions to Pascal, for comment or review.  I conclude, therefore, that
a standard for an extended version of Pascal is wending its way through
the system.

Dave Wilson
Newsgroups: comp.lang.pascal
From: gabriel@netcom.com (Gabriel Beccar-Varela)
Subject: Problems with IOResult (TP.6)
Date: Sun, 16 Aug 92 00:26:41 GMT
Organization: Netcom - Online Communication Services  (408 241-9760 guest) 
Followup-To:   This Group.  

I have problems with the IOResult function. It gives me a non-zero result
when I know positively that there is no I/O problem (I confirmed this by
running the same code with IOResult commented out). I suspect that my disk
cache is causing the problem. The IOResult function works if I do a dummy
call to it before calling it for real. Like this:
 
         error := IOResult;
         {$I-}
         rewrite(f);
         {$I+}
         if IOResult <> 0 then ...
 
Any suggestions?
 
Thank you.
From: muellerm@aix520.informatik.uni-leipzig.de (Michael Mueller)
Newsgroups: comp.lang.pascal
Subject: RE: Help with TSR programs
Date: 21 Aug 92 13:29:25 GMT
From: 89612048s@csghsg5a.bitnet
Newsgroups: comp.lang.pascal
Subject: Changing the colorpalette in Textmode?
Date: 20 Aug 92 13:08:34 GMT
Organization: University of St.Gallen, Switzerland

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. And is it possible to change the 16
defaultcolors to any other colors of the VGA-Palette.

Thank's a lot
Markus
From: ATURNER@rcnvms.rcn.mass.edu (Alan Turner)
Newsgroups: comp.lang.pascal
Subject: Date stamping inside source code
Date: 14 Aug 92 00:24:18 GMT

Date sent: 13-AUG-1992 

Just in case what I want to do sounds a bit too ridiculous to answer....
let me explain a bit more.

I would like to stamp the date and time on my source code when I save it from
within the TP IDE. The only way I can think of is either an asm patch to the
editor (yuh, right...) or a tsr which will do it. I know I could rename the
source out on disk with a newname, then stamp the date into a newly created
file and append the old file to the date stamp when the program is run. When
the final program is finished run a maintenance program to remove the date
stamping procedure from the source and create the .exe file. 

I also realize that I can read the date and time by using the file-open box
in TP 6.0 .

I am not blowing smoke here but really would like to know if there is a way to
do this.

I want to be able to read the date/time of creation with multiple windows open.

  +++AT

-=Alan Turner=-                
-=Email: aturner@ecn.mass.edu=-
Newsgroups: comp.lang.pascal