HDTenEightyP/NetNews huggingface dataset:
From: ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
Newsgroups: comp.lang.pascal
Subject: Re: RS-232 Codes?
Date: Wed, 16 Dec 1992 10:14:45 GMT
Organization: INSA  CENTRE INFORMATIQUE DU 1er CYCLE
NNTP-Posting-Host: 134.214.232.25

In article <1992Dec15.181440.4317@news.nd.edu> fdeck@vyasa.helios.nd.edu (francis deck) writes:
>From: fdeck@vyasa.helios.nd.edu (francis deck)
>Subject: RS-232 Codes?
>Date: Tue, 15 Dec 1992 18:14:40 GMT

>If this isn't a FAQ, I don't know what is!  Does anybody have
>a good Turbo Pascal 5.0 (or earlier) code for RS-232 i/o on
>MS-DOS machines?  I'm using one such code, and it sometimes
>misses received characters from a homemade data acquisition
>system which spits out a 148-byte data packet at 9600 baud.
>My needs are _very_ simple... just send single characters,
>and receive single characters with some buffering, and a
>flag to tell me when the buffer has characters in it!

>I'd be forever in your debt.

>f.deck

go ftp anonymous to garbo.uwasa.fi or mirros sites in U.S. 
in dir /pc/turbopas then are some units (with or without sources) that 
doe all the job... I remind of osio.zip, tpv24.zip comm_tp5.zip ,xmodem.zip
... and some others. check also in /pc/comm dir ....
Hope it helps...
ppollet@cismibm.univ-lyon1.fr (Patrick POLLET)
--------------------------------------------------------
Dr Patrick L.Pollet
Institut National des Sciences Appliques
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
-------------------------------------------------------
From: bbehrmann@desire.wright.edu
Newsgroups: comp.lang.pascal
Subject: Video Game Graphics Help
Date: 16 Dec 92 17:38:14 EST
Organization:  Wright State University 

	I am attempting to write a bit of code in Turbo Pascal that displays
a moving graphical image(or multiple images) on top of a background picture.
(Exactly like an video game where you have the action figures moving over
whatever background is displayed)  Is there a way that you can call up a 
background picture and then have graphics overtop of it with out having to
replace the background when the graphics moves around...  (Clear as mud, huh..)
If this is far off of the direction that I should be heading in trying to
create graphics, could you please let me know the best way to do this...  If
you can assist in any way, please post here or send me email at the internet
address below...  Thanks in advance!!

                                          -Barry-
                                BBEHRMANN@DESIRE.WRIGHT.EDU


Newsgroups: comp.lang.pascal
From: Hendrik.Klompmaker@beheer.zod.wau.nl (Hendrik Klompmaker)
Subject: Re: Creating a TSR
Organization: Wageningen Agricultural University
Date: Tue, 15 Dec 1992 22:39:10 GMT

In article <ByyHw1.2vx@pcuf.fi> hammer@pcuf.fi (Mikko Uromo) writes:
>From: hammer@pcuf.fi (Mikko Uromo)
>Subject: Creating a TSR
>Date: Tue, 8 Dec 1992 19:52:49 GMT
>Hello again. I wonder when someone goes crazy because of my ongoing
>questions? Well, I'll ask anyway.
> 
>I'm trying to figure out how to create a TSR? I think it can't be hard and
>I think all I have to do is just to put a few interrupts in the code, but
>that's where it tilts. Due to a major misunderstanding my interruptlist
>was erased, accidentaly ofcourse, and with my lousy v.22bis modem it'll
>take years to download it. And then I'd have to go through hundreds of lines
>of text. Doesn't fit for me. So, can someone give me a hint that what I
>should do? At first, I thought that I'd just make the routines needed to
>get a program into memory and then getting it out of there. So, can anyone
>give me a hint? (which INT to use etc.)

I tried some of the PD stuff around to make a TSR but find that nothing 
beats the Turbo Power Object professional library. I only use parts of it 
but it's sure worth the money.
Only my 2 cents of opinion.
Hope I don't start a "INT 19...." again :-)



Hendrik.

===============================================================================
|******** Wageningen Agricultural University. Animal Production Group ********|
-------------------------------------------------------------------------------
Hendrik Klompmaker		Internet : Hendrik.Klompmaker@Beheer.Zod.Wau.Nl
System Manager			Bitnet	 : KLOMPMAKER@HWALHW50.BITNET
Phone : +31 (0)8370-83934	Fax	 : +31 (0)8370-83962
Snail : Marijkeweg 40, 6709 PG	WAGENINGEN, The Netherlands
===============================================================================
Newsgroups: comp.lang.pascal
From: ts@uwasa.fi (Timo Salmi)
Subject: Re: Update on clever curve-fit program
Organization: University of Vaasa, Finland
Date: Sat, 12 Dec 1992 21:00:53 GMT

In article <1992Dec12.173113.9552@news.nd.edu> fdeck@vyasa.helios.nd.edu (francis deck) writes:
>I was so overwhelmed by responses to my posting on the
>automatic curve-fitting program (with symbolic interpreter)
>that I can't respond to them all!  However, I am in the

I just can't help saying it aloud.  I told you gentle users so.  It
happens every time. 

   All the best, Timo

..................................................................
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
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: BP 7 bug:  File's time/date has changed
Organization: Queen's University
Date: Fri, 11 Dec 1992 18:44:43 GMT

Here's a copy of a bug report I've just sent to bugs@borland.com:

In the BP 7 IDE, if you load a file and it gets changed by some other agent
before you exit, you get a warning dialog coming up.  It asks whether
you'd like to reload from disk or not.

The bug is the following.  Even though you're presented with 3 choices,
Reload Yes, Reload No, or Cancel, they all do exactly the same thing.
They all lose whatever you've got in the editor, and keep what's on
disk.

For example:  
  1.  Load any program, turn on the map file linker option, compile 
  2.  Load the map file into an edit window.  Make some changes that
      you can identify later.  Use F2 to save the file.
  3.  Compile again, and you get a new copy of the map on disk.  
  4.  Type Alt-X and you get the warning dialog.  No matter what you
      type, the changes you entered in step 2 will be lost.

At the very least, Cancel should stop the shutdown.  The dialog should
say something a little more informative than "File TEST.MAP's time/date has
changed. Reload from disk?".  It should give you a choice between
keeping the version you can see and the one that's been created on the
disk.

Duncan Murdoch
dmurdoch@mast.queensu.ca
From: evsikov@lcta5.jinr.dubna.su (Igor Evsikov)
Newsgroups: comp.lang.pascal
Subject: Re: How to make own characterset for DOS
Date: 13 Dec 92 23:28:33 GMT
Reply-To: evsikov@lcta5.jinr.dubna.su
Organization: Lcta


{ Procedures set and get current image for characters EGA VGA}
{ Sourse and Dest Array [1..16] of byte                      }
const
 images : array [1..16] of byte =

{NormalArrow}         ($00,$40,$60,$70,$78,$7C,$7E,$78,$6c,$46,$07,$06,$00,$00,$00,$00);
(*
{DragArrow  }         ($18,$3C,$7E,$FF,$18,$18,$18,$18,$18,$18,$FF,$7E,$3C,$18,$00,$00);
{ClockArrow }         ($FE,$82,$82,$82,$82,$7C,$38,$10,$38,$54,$92,$BA,$FE,$FE,$00,$00);
{HandArrow  }         ($00,$C0,$C0,$C0,$D5,$D5,$D5,$FF,$FF,$FF,$FF,$7F,$1F,$1F,$00,$00);
{Clock2Arrow}         ($00,$1C,$3E,$08,$1C,$22,$49,$49,$4D,$41,$22,$1C,$1C,$22,$00,$00);
{Hand2Arrow }         ($40,$40,$40,$55,$55,$55,$7F,$7F,$7F,$3F,$3E,$3E,$3E,$3E,$00,$00);
{BigArrow   }         ($40,$60,$70,$78,$7C,$7E,$7F,$7F,$0C,$0C,$0E,$06,$07,$07,$07,$00);
{SU29Arrow  }         ($10,$10,$38,$38,$38,$7C,$7C,$FE,$FE,$FE,$10,$38,$7C,$00,$00,$00);
{Hand3Arrow }         ($C0,$A0,$50,$2B,$15,$2E,$5F,$BF,$7F,$3F,$1F,$1F,$1F,$1F,$00,$00);
{FootArrow  }         ($60,$9E,$95,$81,$81,$81,$82,$42,$42,$42,$42,$42,$42,$3C,$00,$00);
{PlusArrow  }         ($00,$00,$00,$18,$18,$18,$FF,$FF,$18,$18,$18,$00,$00,$00,$00,$00);
*)
Procedure SetImageChar(Ch:char;var sourse);
   { Write Character matrix to map 2}

var ofset : word;
begin
  ofset :=ord(Ch)*32;
  inline($fa);          { CLI                                                }
  portw[$3c4]:=$0402;   { See PROGRAMMER'S GUIDE TO PC    AND PS/2           }
  portw[$3c4]:=$0704;   {     VIDEO SYSTEMS                                  }
  portw[$3ce]:=$0204;   {     RICHARD WILTON                                 }
  portw[$3ce]:=$0005;   { And THIS TEXT                                      }
  portw[$3ce]:=$0006;
  move(sourse,ptr($a000,ofset)^,16);
  portw[$3c4]:=$0302;
  portw[$3c4]:=$0304;
  portw[$3ce]:=$0004;
  portw[$3ce]:=$1005;
  portw[$3ce]:=$0E06;
  inline($fb);          { STI }
end;

Procedure GetImageChar( ChIn: char; var dest);
   { Read Character matrix from map 2}

var ofset : word;
begin
  ofset :=ord(ChIn)*32;
  inline($fa);          { CLI                                                }
  portw[$3c4]:=$0402;   { See PROGRAMMER'S GUIDE TO PC AND PS/2              }
  portw[$3c4]:=$0704;   {     VIDEO SYSTEMS                                  }
  portw[$3ce]:=$0204;   {     RICHARD WILTON                                 }
  portw[$3ce]:=$0005;   { And THIS TEXT                                      }
  portw[$3ce]:=$0006;
  move(ptr($a000,ofset)^,dest,16);
  portw[$3c4]:=$0302;
  portw[$3c4]:=$0304;
  portw[$3ce]:=$0004;
  portw[$3ce]:=$1005;
  portw[$3ce]:=$0E06;
  inline($fb);          { STI }
end;

var
  tmpImage : array[1..16] of byte;
begin
 GetImageChar('a',tmpImage);
 SetImageChar('a',Images);
 writeln('a a a a a a a a a a a a a a a a');
 readln;
 SetImageChar('a',tmpImage);
end.
Newsgroups: comp.lang.pascal
From: pf@bilbo.bio.purdue.edu (Paul Furbacher)
Subject: Re: TP7 Tvision sources needed
Organization: Purdue University
Distribution: comp.lang.pascal
Date: Sat, 12 Dec 1992 04:39:28 GMT

In article <1992Dec11.145447.61953@cc.usu.edu>, 
  sl9dm@cc.usu.edu writes:
> 
> Anyone know where I can FTP some Tvision Sources as a Demo? I recently aquired
> TP 7 and have been programing in TP for a little while. I'm daring to venture
> into the dangerous world of TVision Programing, but do not know where to begin.

It's unclear to me that you can do TV programming if you only bought 
TP7.  I thought TV and OWL only came with BP7?  Either way, if you 
have the facility to do TV programming with what you have, then
with the TV which came with you package, you have more than enough
source code to start wading through.

The documentation and the wealth of examples provided in this 
upgrade to TV are quite pleasing.  You come to TV at the right 
time in terms of a much better tutorial and so much source.  It 
wasn't as easy with TV1.  

So, if you didn't install the complete BP package, do so.
Turn on your printer, put lots of paper into it, and start 
printing out the major demos.  Then take that code with you 
everywhere you go, and study it feverishly.  There's a lot to 
learn and your head is going to swim.  But the swimming lessons
are free!

> If someone knows a place to FTP some sources (Especially the source for the
> IDE! 
  ^^^^  Don't we wish, especially for the Help system which is 
NOT the one provided in the source.  There are some other cool 
tricks not available, such as growing menus which list recently 
opened files!  Nice.

PF 

.  Paul Furbacher
.  Dept. of Biological Sciences
.  Purdue University
.  West Lafayette, IN  47907-1392
.  pf@bilbo.bio.purdue.edu



Newsgroups: comp.lang.pascal
From: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
Newsgroups: comp.lang.pascal
Subject: A COUPLE QUESTIONS
Date: 18 Dec 92 01:21:00 GMT
Reply-To: vanney.raphael@lill.frmug.fr.mugnet.org (Vanney Raphael)
Organization: Li'LL BBS - Paris, France

DSR}From: dementia@cheshire.oxy.edu (Daniel Steven Reinker)
DSR}Newsgroups: comp.lang.pascal
DSR}Subject: A couple questions
DSR}Date: 2 Dec 92 06:40:10 GMT
DSR}Organization: Occidental College, Los Angeles, CA 90041 USA.

Hi "rookie" :-)))) !

DSR}I have a few questions about turbo pascal 6.0...obviously I am a
newbie
DSR}programmer, so please bear with me.

DSR}1) Is there any way to allow the program to read one string (one
word),
DSR}then 'sense' a space, and then start reading the next string?

If it is definitely a 'space' character you have to puut there, I'm
afraid
you're going to have to parse the input string -which is quite easy with
the "Pos" function.

DSR}2) Is there a way to have an 'if' have an 'or' in it? For instance,
say
DSR}I want it to do the same procedure 'proc' if a string 'word' = hello
DSR}or = 'bye'. How do I program this in? (I am writing an adventure
program,
DSR}and I want it to accept 'get' and 'take' as synonyms.)

Just try

     { 'better uppercase your Word before }
     If (Word='HELLO') Or (Word='BYE') Then Proc ;

DSR}3) Is it possible to make a program with turbo pascal, and make it
DSR}self-running, that is, you don't have to enter the program through
TP,
DSR}you can enter it straight from the program?

TPC /m progname

     certainly works fine from the command line ; if you a an IDE user,
     select Compile/Destination/File (Or Disk, I can't remember, but not
     "memory").

DSR}Thanks.
DSR}Hiz Lord Dementia
DSR}--
DSR}"You can't help that. We're all mad here."-The cheshire cat, Alice
in WL

DSR}"A mass hysteria/a megalomania/reveal Dementia/reveal"-Metallica


DSR}--- GEcho 1.00
DSR} * Origin: Li'LL BBS - Paris France - (33-1) 43.07.40.97 (2:320/7)
 * OLX 2.1 TD * Ain't got anything serious to write here ?
--- FMail 0.92
 * Origin: ICEBERG - La Garenne * FRANCE * Tel:(33)-1-47699261 (2:320/1)
From: exuptr@exu.ericsson.se (Patrick Taylor)
Newsgroups: comp.lang.pascal
Subject: Re: Runtime Error 1 in TP6 ?
Date: 11 Dec 92 22:32:40 GMT
Organization: Ericsson Network Systems, Inc.
X-Disclaimer: This article was posted by a user at Ericsson.
              Any opinions expressed are strictly those of the
              user and not necessarily those of Ericsson.

In article <dmurdoch.355.724088195@mast.queensu.ca> dmurdoch@mast.queensu.ca (Duncan Murdoch) writes:
>From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
>Subject: Re: Runtime Error 1 in TP6 ?
>Date: 11 Dec 92 15:36:35 GMT

>In article <4715@seti.inria.fr> lasgout@solaris.inria.fr (Jean-Marc Lasgouttes) writes:
>>
>>So perhaps it is just yet another uninitialised pointer problem... But there
>>could be another explanation : As there things to change to TPRO5.07 to make it
>>work with the memory allocation scheme of TP6 beside of commenting out ExecDOS(sp?
>> I don't know the english name...) to let everything compile ? I know I could
>>call support, but here in France the company that sells the product is not as
>>friendly as Turbo Power seems to be...

>There are a large number of small changes necessary to make the 5.x versions 
>of the TurboPower units reliable in TP 6.  I think the only reasonable thing 
>to do is to upgrade.

>Off the top of my head:

>There are a few places where they dereference pointers after disposing of 
>them; this is almost always a safe error in TP 4/5, almost always a 
>disaster in TP 6.

>There may be some places where they rely on a standard stack frame being set 
>up; TP 6 does this if it needs it.

>The heap manager is very different; anything that works at that level needs 
>to be rewritten.

>Duncan Murdoch
>dmurdoch@mast.queensu.ca

I have successfully converted.  It wasn't that hard really, but they
sent me a few new .asm files.
 ----------------------------------------------------------------------------
                    !!! H A P P Y   H O L I D A Y S !!!

  - Patrick Taylor, Ericsson Network Systems
    exuptr@exu.ericsson.se                    "Don't let the .se fool you"
    exuptr@ZGNews.Lonestar.Org  <SLOW!>
Newsgroups: comp.lang.pascal
From: lwang@mariner.amc.edu.au (Luo Wang)
Subject: Help Needed in Pascal Programming
Organization: Australian Maritime College
Date: Wed, 16 Dec 92 05:07:16 GMT

Hi, I am currntly working on a reseach project which concerns 
the non-linear shortest route problem. We have programmed the 
algorithm with Fortran 77. The program was done by one of the 
team mate. But he left the college last month, and I 
am not very good at FORTRAN, I like to re-write the program with 
Pascal which I have learned in the last semester.

From what I learned from the text book of operations research, 
the best way to solve the shortest route problem is Dijkstra's
algorithm, which, by and large, is a kind of lable technique. 

Can any one tell me that how to implement the Dijkstra's algorithm
with Pascal? Or, which tool in Pascal can be used to perform the 
task of marking or labeling?

You can e-mail me at lwang@mariner.amc.edu.au

Thanks in Advance

Luo Wang
From: berend@contrast.wlink.nl (Berend de Boer)
Newsgroups: comp.lang.pascal
Subject: Turbo Vision Keys?
Date: Fri, 11 Dec 1992 08:30:12

Richard Madison wrote in a message to All:


 RM> 	My problem is that I have a screen which has 40 field to
 RM> enter. I don't like that the <ENTER> key accepts all data. 
 RM> I would like to be able to use the <ENTER> key to move to
 RM> the next field.  I would also like to arrange the keys below
 RM> to do what it says.

 RM> KEYS                WHAT IT DOES            WHAT I'D LIKE

 RM> enter              accepts data as ok       move to the next field
 RM> down arrow                                  move to the next field
 RM> up arrow                                    move to previous field
 RM> left arrow         move left in field
 RM> right arrow        move right in field
 RM> esc                cancel                   accepts data


Not so difficult, but you do, in this way, not conform to the CUA
standard which is a serious drawback I think. More and more people are
using CUA compliant UIs. But let's show the code:

What do you have to do?

When the enter key is pressed, it is grabbed by the default button if no
view did handled it. So the first step
1) Do not use the bfDefault flag
2) Override the HandleEvent of your dialog.

procedure TMyDialog.HandleEvent(var Event : TEvent);
begin
  TDialog.HandleEvent(Event);          {* kbEnter key not handled *}
  if (Event.What and evKeyBoard <> 0) and (Event.KeyCode = kbEnter) then
    SelectNext(FALSE);
end;

That's the first one.

The up, down, left and right arrow keys are not so easy. For example the
left arrow key, you have to check for views at the left, and then
choosing from that views the first selectable view at the left.


The esc key is handled by the default TDialog.HandleEvent. So check for
the Esc key before TDialog.HandleEvent get it:

procedure TMyDialog.HandleEvent(var Event : TEvent);
begin
  if (Event.What and evKeyBoard <> 0) and (Event.KeyCode = kbEsc) then  begin
    Event.What := evCommand;
    Event.Command := cmOK;
  end;
  TDialog.HandleEvent(Event);
end;


Groetjes,

Berend. (-:
fido: 2:281/527.23
email: berend@contrast.wlink.nl

Newsgroups: comp.lang.pascal
From: wilsonm@vaxb.acs.unt.edu
Subject: Novell/PAscal
Organization: University of North Texas
Date: Thu, 17 Dec 1992 21:17:45 GMT


	Got a friend of mine that was wondering where/how to grab the users
name from while a user is logged on to a novell 3.11 network.  Is there an
interrupt that can be used or is it a file.  Is there some sample code he
could use to figure this out?  Any info would be great.

Email is fine
wilsonm@vaxb.asc.unt.edu
From: murphy1@husc10.harvard.edu (Gerard J. Murphy)
Newsgroups: comp.lang.pascal
Subject: NOT operator in Regular Expressions
Date: 14 Dec 92 22:56:41 GMT
Organization: Harvard University Science Center

Hi,

   I'm implementing a text pattern search engine based upon the examples
given in Sedgewick's 'Algorithms', Chapters 20 and 21.  This model is
based upon non-deterministic finite automata and is relatively straight-
forward.  My question is how to implement a NOT function in the most
general way as an addition to the underlying NFA scheme.  Sedgewick makes 
several references to this but doesn't really provide many clues as to how 
to carry it out.

   I'd appreciate hearing from anybody out there who's done something like
this or who has some ideas based on NFA theory.  I'm not interested in
kludges or ugly, brute-force workarounds.

   This work is being done in Borland Pascal and, for those who might ask,
is for a commercial task, not any sort of school assignment.

   Thanks in advance to any who can help.


                                       Gerry Murphy
                                       murphy1@husc.harvard.edu
Newsgroups: comp.lang.pascal
From: u910826@bruny.cc.utas.edu.au (Louis        siuoL)
Subject: Re: interrupts and neat things of these sorts
Organization: University of Tasmania, Australia.
Date: Mon, 21 Dec 1992 03:19:33 GMT

beuker@hercules.cs.uregina.ca (Craig Beuker) writes:


>    Season's Greetings all. I have a question about interrupts.  quite simple
>    actually.. How do I implement one?  Is there any documentation out there
>    on how these little suckers work?  I am using T.Pascal 5.5  and the example
>    they give in the help file is not very enlightening..
>    Any, or all help will be much appreciated.
>    (I want to implement an interrupt that will monitor the comm port for 
>    characters, if one is encountered, add it to w QUE(circular) for later
>    processing.)  Thanx for your help.

>       Craig..

ok, here is a possible way (off the top of my head, so there may be errors).

USES
	Dos;
VAR
	OldInt:PROCEDURE;

	PROCEDURE MyInt; Interrupt;
	BEGIN

		Do stuff here

	    ASM PUSHF;END;OldInt; { This line is chains to the old int handler, and may not be necessary for all ints }
	END;

BEGIN
	GetIntVec(IntNum,@OldInt);
	SetIntVec(IntNum,@MyInt);
	
	Do main stuff here

	SetIntVec(IntNum,@OldInt);
END.
--
Louis Solomon - a student at The University of Tasmania
      e-mail: u910826@bruny.cc.utas.edu.au

"If wishes were fishes, we'd all cast nets" - Dune
From: roth@oasys.dt.navy.mil (Pete Roth)
Newsgroups: comp.lang.pascal
Subject: Re: Funny (?) DOS IDE editor window chars
Date: 16 Dec 92 15:37:04 GMT
Reply-To: roth@oasys.dt.navy.mil (Pete Roth)
Organization: The David Taylor Model Basin

In comp.lang.pascal, chard@borland.com (Richard Nelson) writes:
[...]

>Hmmm.  This seems to have snuck by the doc team.  :-)

BTW: good job on the new docs!

regards, pete
- - - - - - - - - - - - - - - - - - - - - - - - - -
Peter N Roth      roth@oasys.dt.navy.mil
Do what you can with what you have where you are. - D L Moody.
From: acgoldis@athena.mit.edu (Andrew C Goldish)
Subject: Faking millions of colors out of 16, and so on
Organization: Massachusetts Institute of Technology
Date: Sat, 12 Dec 1992 23:48:40 GMT

Two things.

According to the Borland 6 graphics package and the rules for my monitor, one can
set the sixteen colors in the palette to be different things with the
SetRGBPalette command.  Is there any way one can print sixteen colors, change one
of the values, and print a 17th color on the screen without having the pixel
originally in the color that was changed change to the new color?

Also, how exactly do you get certain colors using Red, Green, and Blue values
(i.e. purple, pink salmon, Celtic green, etc.)


							A. Goldish

"A man may be weak, but if he is noble, he may still become king."
Xref: sparky comp.lang.pascal:7584 comp.lang.misc:4067