HDTenEightyP/NetNews huggingface dataset:
From: jeffbyrn@mp.cs.niu.edu (Jeff Byrne)
Subject: 8x16 Bitmapped font in Graphics?
Organization: Northern Illinois University
Date: Sun, 13 Dec 1992 03:21:55 GMT

Hi,
    Is there any way to use an 8x16 bitmapped font in graphics mode.  I am
using 800x600x16 resolution and the 8x8 font in the BGI interface is too
small.  The stroked fonts don't look quite right.  The font looks great when
I use a writeln in graphics mode.  However, I can't access the entire screen
using this method.  Any information would be a big help.
Thank you,

- Jeff
jeffbyrn@mp.cs.niu.edu
jeff@art.niu.edu

Newsgroups: comp.lang.pascal
From:  Andrew Kovalenko <Andrew.Kovalenko@p5.f81.n5020.z2.fidonet.org>
Subject: Protected mode and EXTEND
Date: Mon, 14 Dec 1992 10:24:28 GMT
Reply-To: Andrew.Kovalenko@p5.f81.n5020.z2.fidonet.org
Organization: InfoSoft (Gid:infos.msk.su)

Hi, Jan!

10 Dec 92 16:41, barendregt@mgz.fgg.eur.nl wrote to All:

 bfen>  fillchar(NewHandleTable,sizeof(NewHandleTable),$FF);
 bfen>                        { Initialize new handles as unused }
 bfen>  OldNumHandles := mem[prefixseg:$0032];
 bfen>                         { Get old table length }
 bfen>  OldHandleTable := pointer(ptr(prefixseg,$0034)^);
 bfen>                          { Save address of old table }
 bfen>  mem[prefixseg:$0032] := sizeof(NewHandleTable);
 bfen>                              { Set new table length }
 bfen>  pointer(meml[prefixseg:$0034]) := @NewHandleTable;
 bfen>                         { Point to new handle table }
 bfen>  move(OldHandleTable^,NewHandleTable,OldNumHandles)
 bfen>                    { Copy the current handle table to the new handle
 bfen> table }

 bfen> This move statement generates the error.

Yes, because you perform memory access here. You use REAL-MODE pointers in 
VIRTUAL mode. So, you should transform real-mode segment parts of pointers to 
virtual-mode selectors. You can do it, using standard DPMI function call, but i 
don't remember, whitch function.

 bfen> Now how can we get around this. The way I was thinking is to force
 bfen> the compiler to put this code in the real mode stub, where it is
 bfen> executed before the system is switched to protected mode. The problem
 bfen> is I have no idea how to do this, and I can't find any function calls,
 bfen> compiler directives, or whatever to acomplish it.

The real-mode stub usually is a little standard .EXE file, and the DPMI program 
is appended to it's tail. To extract it, cut any protected mode application & 
disassemble it. Correct the stub source & assemble it again.

 bfen> Is there any Protected Mode Virtuoso out there that might enlighten
 bfen> me how to do this, or explain to me that I'm way off track, or do
 bfen> anything else that may shed some light. All help will be appreciated.

I am not a Protected Mode Virtuoso, but if you needed in the DPMI function 
description, i can white it. Or read DPMI specification yourself, if you have 
it.

P.S. I'm sorry for my bad English...

Andrew Kovalenko

--- GoldED 2.40.P0621+
 * Origin: *********** AGAMA online *********** :-) (FidoNet 2:5020/81.5)
From: pigeons@JSP.UMontreal.CA (Pigeon Steven)
Newsgroups: comp.lang.pascal
Subject: Re: Faking millions of colors out of 16, and so on
Date: 13 Dec 92 14:56:04 GMT
Organization: Universite de Montreal

In article <1992Dec12.234840.199@athena.mit.edu> acgoldis@athena.mit.edu (Andrew C Goldish) writes:
>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."


Well, to find your colors, you can still ftp the little (but usefull) program
from nic.funet.fi that is called 'cvd' (color variance demo? or something like)
which permits you to look at constrasts, hues, combinations, and gives you the
R,G,B compounds of the colors you're playing with. It only require (sp?) a EGA
card, and ten minutes or less download at 2400 bps. :-) (or about 1 minute 
with more bauds :-) :-) )

Another thing: If you're planning to use SetRGBPalette to change the palette,
it is not fast enough. What you could do (as Duncan Murdoch already has sugg.)
is to hook yourself on interrupt level 9 (which is 15, I think, in the inter-
rupt table of a 80x86) and change the palette for a line. The bug is: if you
use a, say, 640x480x16 color mode, you'll need 640 different palettes... But,
since your palettes are small (16 colors), it can hold in a couple of K...


Or, you can use nearest-tones dithering... which you will find in "graphic
gems" that is also ftp-able from garbo.uwasa.fi or nic.funet.fi.

	S.


-- 
------------------------------------------------------------
 STEVEN PIGEON, a.k.a pigeons@jsp.umontral.ca, planet Earth.
==Departement d'informatique et de Recherche Operationnelle=
              == Universite de Montreal==
From: st1fx@rosie.uh.edu (Perplexed Prophet)
Newsgroups: comp.lang.pascal
Subject: Re: Week numbers
Date: 11 Dec 1992 15:29 CST
Organization: University of Houston
Distribution: world
NNTP-Posting-Host: rosie.uh.edu
News-Software: VAX/VMS VNEWS 1.41    

In article <Bz3nBs.3E3@cs.vu.nl>, sbakker@cs.vu.nl (Bakker S) writes...
>Can anyone tell me how to number weeks, i.e. does Jan. 1 fall into week #1 or
>week #52? For example, in 1992 Jan. 1 fell into week #1, but in 1993 it will
>fall into week #52 of '92.
> 
>Am I right in assuming that it's week #1 if Jan. 1 is either Monday, Tuesday,
>or Wednesday, and #52 otherwise?
> 

Seeing how January 1st is the starting of the New Year according the Roman
Catholic Calender, then naturally it is Week #1.

P.P.
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: BP 7.0
Organization: Queen's University
Date: Tue, 15 Dec 1992 14:30:55 GMT

In article <1992Dec15.132615.29226@welchgate.welch.jhu.edu> francois@welchgate.welch.jhu.edu (Francois Schiettecatte) writes:
>I have a couple of questions about BP 7.0, I understand that 
>it will compile programs so that they can run in protected
>mode ( thus accessing memory above the 1Mb line ). If this 
>is the case, then do they do away with the 64K segment limit,
>I need to be able to extend my data segment beyond the 64K limit
>and I dont want to do a lot of rewritting of code. Currently
>I use TP 6.0 and I am limited to 64K segments, but I can only
>run in real mode.

No, BP 7 protected mode is the 16 bit protected mode introduced with the 286 
processor.  That means 64K segments.  There are lots of ways to get around 
this limit, but none of them are painless.


Duncan Murdoch
dmurdoch@mast.queensu.ca
From: cs108069@pandora.sdsu.edu (John DeRose)
Newsgroups: comp.lang.pascal
Subject: Need serial port unit.
Date: 16 Dec 1992 21:33:38 GMT
Organization: San Diego State University, College of Sciences
NNTP-Posting-Host: pandora.sdsu.edu
X-Newsreader: TIN [version 1.1 PL8]

Anyone got a decent unit for changing/setting the COM port parameters?

Thanks in advance!
--
John DeRose				cs108069@pandora.sdsu.edu
Computer Science Undergrad
Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: Re: Overlays and device drivers
Organization: Queen's University
Date: Sat, 12 Dec 1992 13:46:52 GMT

In article <724116564.AA00693@contrast.wlink.nl> berend@contrast.wlink.nl (Berend de Boer) writes:
>
>I wrote a device driver unit with OpenFunc, InOutFunc etc. I use this
>unit in the following way:

I haven't gone through the RTL, but a quick trace through a call to Writeln 
seems to tell me that you can't overlay a text file device driver.  Some of 
the RTL routines don't set up a proper stack frame, so the overlay manager 
won't be able to trace back properly.

You could probably fix this if you have the RTL; figure out which routines 
are involved in text file I/O, and make sure they all have

  push bp
  mov  bp,sp    

at the start, and 

  mov sp,bp
  pop bp

(or just LEAVE) at the end.  If they use BP for some other purposes, restore 
it to the stack frame value before calling your device driver routines.

Duncan Murdoch
From: del@babel.DIALix.oz.au (D Elson)
Newsgroups: comp.lang.pascal
Subject: Nice curve fitting code... 
Distribution: world
Date: Sun, 13 Dec 92 08:44:11 GMT
Organization: 


Timo writes:

  > ...  But before you do any of this do take a
  > look at what has happened to others who have in good faith made here
  > such a public offer.  As
  >  115799 Sep 20 08:35 garbo.uwasa.fi:/pc/ts/tsfaq30.zip 
  > will tell you the users have been totally inundated and then come to
  > me for help (to which you are welcome) more or less shocked. 
  > Happened once again just one or two days ago.  The choice is yours,
  > but be aware what might happen.  The alternative is to upload To
  > Garbo.  See
  >   11380 Sep 20 08:35 garbo.uwasa.fi:/pc/UPLOAD.INF
  >    4690 Oct 19 09:49 garbo.uwasa.fi:/pc/UPTEXT.INF
  > for that option.

As a person who has indeed been inundated with requests for a piece of
code that I offered to upload, I would suggest posting or uploading
to garbo.  However, since I don't actually have ftp access myself, I
ended up posting my code.  Fortunately some nice soul uploaded it to
garbo for me after I posted it (as deltsr.zip, a week or so ago).

Timo, is there any way we can upload to garbo my e-mail?  I use a
ftp-by-mail server which allows me to download by sending it
commands in a mail message, but I can't use it to upload code.

Del
-----------------------------------+-------------------------------------
D Elson                            |  del@DIALix.oz.au del@adied.oz.au
-----------------------------------+-------------------------------------
From: lasgout@solaris.inria.fr (Jean-Marc Lasgouttes)
Newsgroups: comp.lang.pascal
Subject: Re: Turbo Pascal 7.0
Date: 14 Dec 92 09:47:33 GMT
Organization: INRIA * Rocquencourt BP 105 * F-78153 LE CHESNAY CEDEX* France


 mvdl@et.tudelft.nl wrote about TP7.0:
|> 
|> It will run onder DOS, but has a WINDOS-unit included for windows support...
|> Although it's just the dos-version.

Could you tell us more about this WinDos unit ? what can you do with it exactly ?

Thanks

Jean-Marc


-------------------------------------------------
Jean-Marc Lasgouttes, Projet MEVAL, INRIA, France
e-mail : jean-marc.lasgouttes@inria.fr
Newsgroups: comp.lang.pascal
From: gabriel@netcom.com (Gabriel Beccar-Varela)
Subject: Bug in TFileDialog (TP 2.0)
Organization: Netcom - Online Communication Services  (408 241-9760 guest) 
Date: Mon, 14 Dec 1992 00:53:16 GMT

   Maybe someone already reported this bug, but I'll report it
anyway. The TFileDialog does not work properly with TP 2.0 (it
worked OK with TP 1.0). This is what happens: assuming that the
current directory is C:\UTILS and DATA is a subdirectory under it,
you can have the following situation:
 
   1. Initial list of files:
 
      ANYTHING.EXE
      ANYTHING.OVR
      DATA\
      ..\
 
   2. You select DATA\ and you get the following list:
 
      BIG.DOC
      SMALL.DOC
      MEDIUM.DOC
      ..\
 
   3. You select BIG.DOC and the box closes. If you grab the selected
      file name using GetFileName(Filename) you will see that the full
      name is C:\UTILS\BIG.DOC (rather than C:\UTILS\DATA\BIG.DOC).
 
   After snooping around for a while, I discovered that the function
RelativePath has a logical error in it. The code for that function in
TP 1.0 is
 
begin
  S := LTrim(RTrim(S));
  if (S <> '') and ((S[1] = '\') or (S[2] = ':')) then
     RelativePath := False
  else RelativePath := True;
end;
 
whereas in TP 2.0 is
 
begin
  S := LTrim(RTrim(S));
  RelativePath := not (S <> '') and ((S[1] = '\') or (S[2] = ':'));
end;
 
   The TP 2.0 will always return FALSE because "not S <> '' " is the
same as "S = '' " and an empty string cannot have '\' as its first
character. What is missing is a set of parentesis enclosing the entire
statement after the "not". I simply copied the TP 1.0 code and
TFileDialog worked fine.
From: p2112899@csdvax.csd.unsw.edu.au
Newsgroups: comp.lang.pascal
Subject: help with die rolls...
Date: 16 Dec 92 17:09:58 +1000
Organization: University of New South Wales

Could someone please show me how to get random die rolls going.

I am writing an attribute program for a roll playing game and need to roll die
for it.

The code I have done is:

for i := 0 to 3 do  pe := pe + random(6);

to roll a 6 sided die 3 times, but it doesn't work as it should. Some values
produced are actually lower than possible.

The minimum roll from 3 six sided die is 3, sometimes I get 2???

Any help will be appreciated.

Richard.
P2112899@csdvax.csd.unsw.edu.au
Newsgroups: comp.lang.pascal
From: somerist@klaava.Helsinki.FI (Jussi T Someristo)
Subject: Re: text mode scrolling text down?
Organization: University of Helsinki
X-Newsreader: TIN [version 1.1 PL6]
Date: Sat, 12 Dec 1992 19:48:02 GMT

Edward Henigin (gilligan@cs1.bradley.edu) wrote:
> Okay, I know there's a built in way to scroll text off the screen
> going up (just to a writeln on line 25) but is there a built in way
> to scroll text down?

	Check out (crt.tpu) procedures InsLine and DelLine.

> 
> Also, what is the function (I assume it's in crt.tpu) that returns
> the cursor position?
> 
	Use functions WhereX and WhereY.

--
somerist@cc.helsinki.fi
Jussi Someristo
From: berend@contrast.wlink.nl (Berend de Boer)
Newsgroups: comp.lang.pascal
Subject: my PD editor fights back / TP prot scheme
Date: Tue, 15 Dec 1992 08:31:42

Alan Turner wrote in a message to All:

 AT> I have my favorite PD editor which I use for small - quick
 AT> little progs. I decided that I would go in with Dos debug
 AT> and just change the color attr byte - so I can see my screen
 AT> better - guess what?
 AT> The program knew that I modified one byte! and gave me an
 AT> error message accordingly! "Program has been altered" and
 AT> blew up!

 AT> This is my question because now I am curious - does anyone
 AT> know of TP prot schemes along these lines or is this a
 AT> strictly assembly thing? How can a program do this!!!????


Simply: calculating crc for the program and store it at the end of the
.exe or .com. When loading, calc crc again, compare with the crc at the
end of the program. If they are not the same, the program has been
altered (by a virus for example).


Groetjes,

Berend. (-:
fido: 2:281/527.23
email: berend@contrast.wlink.nl
From: ballerup@diku.dk (Per Goetterup)
Newsgroups: comp.lang.pascal
Subject: Re: TP's reset on read-only files
Date: 15 Dec 92 13:05:11 GMT
Organization: Department of Computer Science, U of Copenhagen

ts@uwasa.fi (Timo Salmi) writes:

>In article <1992Dec12.214246.50@newton.hartwick.edu> wisanr@newton.hartwick.edu writes:
>>I've been astonished to discover that TP's reset procedure can't open a
>>read-only file ex@|cept as a text file.  This appears to be true of

>Sorry.  This claim just is not true.

>>The only work-around I've found is to change the attribute, open and
>>read the file, close it, and put it back to read-only.  I don't like it because

>Not necessary.

>>Now, what?

>Simple:
>FileMode := 0;

This only allows read access to the file. If you want to modify it (write into
it), then you'll have to go the long way - changing the attributes and so on.

Now somebody might argue that a file that's to be modified shouldn't be read-
only, but what if you're updating something in a file, maintained by your
program but not to be modified (or erased) by the user. It would be natural to
keep that file readonly, but you still have to modify it, thus the work-around.

     Code on...

	  Per.
--
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
| Per Goetterup, Student, DIKU                 InterNet: ballerup@ask.diku.dk |
|                                                      pgoetter@nyx.cs.du.edu |
| FidoNet: 2:231/91.10    -or-      Per.Goetterup@p10.f91.n231.z2.fidonet.org |
|                                                                             |
| DIKU is the department of Computer Science at the University of Copenhagen. |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| The most merciful thing in the world I think, is the inability of the human |
| mind to corrolate all its contents...              - H.P. Lovecraft, 1926 - |
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
"...Gothic horror shades the dreams, kaleidoscope of what a nightmare means..."
                                  ('Crash Course in Seduction', A Split-Second)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: st1fx@rosie.uh.edu (Perplexed Prophet)
Newsgroups: comp.lang.pascal
Subject: Re: text mode scrolling text down?
Date: 16 Dec 1992 13:27 CST
Organization: University of Houston
Distribution: world
NNTP-Posting-Host: rosie.uh.edu
Keywords: scroll
News-Software: VAX/VMS VNEWS 1.41    

In article <gilligan.724186673@cs1.bradley.edu>, gilligan@cs1.bradley.edu (Edward Henigin) writes...
>Also, what is the function (I assume it's in crt.tpu) that returns
>the cursor position?
> 

WhereX and WhereY return an integer value that represents the location of the
cursor.  

P.P.
From: exuptr@exu.ericsson.se (Patrick Taylor)
Newsgroups: comp.lang.pascal
Subject: Re: BP7 - inclusion of debug information ??
Date: 18 Dec 92 21:26:30 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 <KEISU.92Dec18084901@lludd.sics.se> keisu@sics.se (Torbj|rn Keisu) writes:
>The following results were obtained regarding the size of the resulting .exe

>compile flags in pgm/unit    /v flag    size
>D+, L+                        off       1664
>D+, L+                        on        3657
>D-, L-                        off       1664
>D-, L-                        on        3569   ?????

>In the last line the resulting file is almost as big as the one with full debug 
>info, why is this ? The difference in size compared to the /v case corresponds 
>roughly to the amount of declarations and linenumbers in the program.

The L flag is only turning on/off *local* symbol information.  Apparantly 
your pgm did not have many things coming under this category.

Also, if I recall correctly, with /v on, you are creating "external" 
debugger info even if you are not providing the specific IDE info used
by Borland.

>The connection to the real world is that I have a fairly large  application 
that 
>cannot be compiled with /v flag (using bpc) even though all files have 
D-,L- set.
>bpc fails with error 110, which incidentally isn't in the written 
documentation.
>The cause is debug symbol table overflow. All is fine when compiling in the 
IDE
>for the internal debugger, compiling in the IDE for standalone debugging 
fails as
>well.

That is about right.  Standalone debugging doesn't seem to be affected so 
much by the D and L flags.  And the /v is basically doing the same thing.

>Suggestions anyone ??

Don't know.  What version are you using?  I'd try to break the program up
to find the faults.  I basically have done this with some of my more 
commerical apps.  Debug each unit one at a time, creating dummy units to 
mimic supporting functions.  Pain in the ass at first, but it is easier in 
the long run cause you write your main pgm on some very stable units.

>/tk

 ----------------------!!! H A P P Y   H O L I D A Y S !!!-------------------
 ObQuotes:
 "Ignorance and prejudice, confident their ways are best..."
 "Quick to judge, quick to anger, slow to understand..."

  - Patrick Taylor, Ericsson Network Systems
    exuptr@exu.ericsson.se                    "Don't let the .se fool you"
    Visit the SOUNDING BOARD BBS 214-596-2915, a Wildcat! BBS
Newsgroups: comp.lang.pascal
From: vohaul@spock.uucp (Razvan Surdulescu)
Subject: Turbo Pascal 7.0
Followup-To: none
Summary: TP 7.0
Keywords: none 
Organization: Choate Rosemary Hall
Date: Sun, 13 Dec 1992 03:18:05 GMT

Hi.
I would be interested in buying the 7.0 version of Turbo Pascal.
Unfortunately , I don't know very much about this software product and
I was wondering if somebody could help me with some information , through
e-mail or post in on the news.
I would like to know the price , size , if it can be run as Dos application
or is it just under Windows etc...
It would really help me if somebody could provide me with this piece of 
information.
Thank you.
My adress is   vohaul@choate.edu


--
From: leonard@qiclab.scn.rain.com (Leonard Erickson)
Newsgroups: comp.lang.pascal
Subject: Re: Copyright question from Russia
Date: 14 Dec 92 23:55:18 GMT
Article-I.D.: qiclab.1992Dec14.235518.14994
Reply-To: Leonard.Erickson@f51.n105.z1.fidonet.org
Organization: SCN Research/Qic Laboratories of Tigard, Oregon.

evsikov@lcta5.jinr.dubna.su (Igor Evsikov) writes:

>I and my friends wrote changes to Turbo Vision. We changed
>DRIVERS, VIEW, MENU and DIALOG TPU's in original Borlang codes.

>I can send DEMO.  Can I distribute it as SAREWARE?  In Russian we
>don't this problems. Excuse me for bad English.

It depends. What mattters is if your stuff is a "derivative work"
under the laws. 

A quick test would be "did you modify Borland's code?" Or did you
just write replacements. If "derived from" the Borland code, you'll
be violating copyright. If it's your own code you won't. And if you 
are like most programmers, it's a little of both.

So there *isn't* a clear cut answer.


-- 
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: ts@uwasa.fi (Timo Salmi)
Subject: Re: Date -> Day of week conversion
Organization: University of Vaasa, Finland
Date: Fri, 11 Dec 1992 20:38:50 GMT

In article <Bz3I8K.LDJ@ccu.umanitoba.ca> ummalik@ccu.umanitoba.ca (Ijaz Rashid Malik) writes:
>Could someone please forward me algorithm to convert the date (in dd.mm.yy
>or yy.mm.dd format, but assume individual fields can be obtained as integers)
>to corresponding day of the week.

You might also wish to look at the ever present Frequently Asked
Questions file 
 115799 Sep 20 08:35 garbo.uwasa.fi:/pc/ts/tsfaq30.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". 

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