HDTenEightyP/NetNews huggingface dataset:
From: spoulsen@mcs213k.cs.umr.edu (Steven P Poulsen)
Newsgroups: comp.lang.pascal
Subject: Re: How to map/store character grid
Date: 13 Oct 92 05:26:25 GMT

In an earlier message, 'Alan Turner' had written:
>
>Date sent: 12-OCT-1992 
>
>Is it possible to read a character and substitute chars for pixels?
>I want to write a banner program (for fun) and need a way of converting chars
>to their larger size.
>Hope this pascal question is not too blaise'.
>
>
>-=Alan Turner                   | Oh well, another day in the big city...=-
>-=Email: aturner@ecn.mass.edu   | meep! meep!=-
>

Alan,

I have done this before but only on a commodore.  While I can't give memory  
locations, I'm sure this applies.  On the commodore, there was a certain memory
location which had the characters stored.  If you wanted to change a few 
characters, you had to copy this ROM to RAM and change what you wanted while
changing a pointer to tell where to get the characters from.  The characters 
were stored as 8 bytes for each.  Each byte was a row of the character.  So
all you need to do [most likely] is find the memory location and use a math
routine to get the character you want.  Read 8 bytes and with some and/or or
whatever, you can check each bit.  Someone correct me if this is not how a PC
does this.

-- 
===========================================      ,--,
  Steven P. Poulsen <spoulsen@cs.umr.edu>      ,'  '--,
  Student of Electrical Engineering            ---, ,'
  University of Missouri - Rolla                ,','
===========================================    , '
From: grendel@cis.ksu.edu (Stephen Spencer)
Newsgroups: comp.lang.pascal
Subject: help with dynamic class implementation
Date: 16 Oct 1992 16:54:40 GMT
Organization: Kansas State University, Dept. of Computing and Information Sciences
Distribution: world
NNTP-Posting-Host: cygnus.cis.ksu.edu

I have a question for class/methods gurus.
 
1) I'm using Turbo Pascal 6.0.
2) I have a working implementation of a dynamically linked list ADT
3) I want to encapsulate the ADT in a class/object/(whatever)
 
What is the best way to deallocate the heap space after I'm through with the
variable?  I would imagine that the destructor would be the way to go, but
I'm having difficulties with the whole system crashing after I exit my
program (I assume) due to garbled memory.  Oh well.  If anyone has any
answers for me, I would greatly appreciate it.
 
Thanks in advance...
 
-Stephen
 
-- 
Today in the news--the new RU486 RISC processor was sent to production
                   this week.  It has one instruction: abort.
              
Stephen Spencer		grendel@cis.ksu.edu		sdstpk@matt.ksu.ksu.edu
Newsgroups: comp.lang.pascal
From: news@massey.ac.nz (USENET News System)
Subject: TCollection problem
Organization: DSIR, Palmerston North, New Zealand
Date: Wed, 14 Oct 92 04:11:48 GMT

Greetings!

The TPW code below illustrates my problem, if I want to have an object 
present in two (or more) collections, how do I go about disposing of my 
collections? I think the cause of the problem is that the line Dispose(All,
Done) frees the memory associated with object A, thus invalidating the 
pointer to it in the Some collection. So... any suggestions for handling 
collections which intersect? Please post replies to newsgroup as my mail is 
temporarily stuffed.  

Thanks, Dale Ogilvie

Program test;
Uses Wincrt,WObjects,Strings;
Type PMyObject = ^TMyObject;
     TMyObject=
     object(TObject)
       name:Array[0..1] of char;
       constructor init(AName:PChar);
     end;
constructor TMyObject.Init(Aname:PChar);
begin
  TObject.init;
  StrCopy(Name,Aname);
end;
Var  All,some:PCollection;
     A,B,C:PMyObject;
begin
  A:=new(PMyObject,init('A'));
  B:=new(PMyObject,init('B'));
  C:=new(PMyObject,init('C'));
  All:=new(PCollection,init(10,10));
  Some:=new(PCollection,init(10,10));
  All^.insert(A);
  All^.insert(B);
  All^.insert(C);
  Some^.insert(A);
  Dispose(All,Done);
  Dispose(Some,Done); { general protection fault here }
end.
Xref: sparky comp.lang.pascal:6023 alt.msdos.programmer:2556 comp.os.msdos.programmer:9923
From: holland@matt.ksu.ksu.edu (Rich Holland)
Newsgroups: comp.lang.pascal,alt.msdos.programmer,comp.os.msdos.programmer
Subject: Re: Hi() and Lo() functions?
Date: 15 Oct 1992 21:05:53 -0500
Organization: Kansas State University
NNTP-Posting-Host: matt.ksu.ksu.edu

pigeons@JSP.UMontreal.CA (Pigeon Steven) writes:

>The point was to get version independant. If it was not the goal
>of the thing, we'd AND $ff and the thing would be done. The first
>guy wanted to know an PASCAL INDEPENDANT way. Sorry. Read care-
>fully before answering.

[I'm the first guy...]

Actually, I was looking for a FORTRAN way, but since there aren't any
newsgroups, I wanted a "language independant" way -- shifting is great...
I just don't recall how to do it in FORTRAN.  AND $ff may work too -- if
I can do it...again, I'm not sure -- my manuals for my compiler are rather
sparse...time to trial 'n error it I guess.  :-)

-- 
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
char*p="char*p=%c%s%c;main(){printf(p,34,p,34);}";main(){printf(p,34,p,34);}
From: 11SSTEINBRIN@gallua.gallaudet.edu (Scotty*Tissue)
Newsgroups: comp.lang.pascal
Subject: VT240/320/420
Date: 8 Oct 92 11:58:03 GMT


 Is it possible to program VT240/320/420 graphics in PASCAL?

 I know you can program it in DCL, but is there programming code for the
 VT240/320/420 graphic capability? 

 If so, I'd like to know where I can pick up some pointers.

- Scott

*****************************************************************************
Scott A. Steinbrink            VAX/VMS/BITNET: 11SSTEIN@GALLUA
837 N. Van Dorn St                 CompuServe: 76106,2055
Alexandria, VA 22304                   NetCom: derich@netcom.com
(703) 823-3579                       InterCon: tissue@intercon.com
(800) 828-1140 VRC Relay       America Online: derichman@aol.com

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  =====> "Deaf people can do anything except hear!" - I. King Jordan <=====
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

              G O  C L E V E L A N D  B R O W N S ! ! ! ! !
From: det15wx@osan-emh.af.mil (DETACHMENT 15 WEATHER)
Newsgroups: comp.lang.pascal
Subject: (none)
Date: 14 Oct 92 08:21:26 GMT

>From:      Alan Mead <amead@psych.uiuc.ed
>Subject: Re: Different Graphic Adapters
Alan Mead writes,
...
>You should do everything "relatively" instead of "absolutely".  So never
>write to, say, 100,56.  Instead, figure coordinates as percentages of the
>X and Y axes and compute them at run time using GetMaxX and GetMaxY.
Excellent point!
...
>good luck.  if i misunderstood your question, feel free to ask it again.
>-alan
    I think you partially understand my question.  The kicker for me is that
I can't have BGI files floating around and therefore presumably need to
register two or more of them.  In the past I've always only registered one
at a time.  I think the real solution to this is to not even use the BGI
and use assembler but....that's a lot of work!  I've had EGA procedures
for drawing lines and dots but that's about it.  Thanks for the help.
     Ken
---------------------
Ken Waters    USAF, Maj, Staff Weather Officer, Yokota AB, Japan (Fussa-shi)
Internet:  DET15WX@osan-emh.af.mil     or  374OSSDOW@yokota-emh.af.mil
Compuserve: 73307,131 (checked once a yr!)       N4PBY/HL9PIT/J71???
---------------------

Newsgroups: comp.lang.pascal
From: dmurdoch@mast.queensu.ca (Duncan Murdoch)
Subject: STREAMS unit update
Organization: Queen's University
Date: Thu, 15 Oct 1992 14:52:44 GMT

I've recommended my STREAM13.ZIP unit to several people for various problems 
in binary files.  I've recently found out about several bugs in it in the 
TXMSStream code and the TTextFilter code, so I'm planning an update very 
soon.  If anybody knows about other bugs, or has other specialized streams 
or filters that they'd like me to put in the unit, please let me know.

Duncan Murdoch

Duncan Murdoch
dmurdoch@mast.queensu.ca
Newsgroups: comp.lang.pascal
From: curzon@trooa.enet.dec.com (Richard Curzon)
Subject: books for TPW
Organization: Digital Equipment Corporation
Date: Wed, 14 Oct 1992 14:52:24 GMT


	The C language wallahs have Petzold and Richter... what's the poop 
in books for Turbo Pascal for Windows? 

	I know there is a book by Swan and another book by Rubenking.  Do
these works compare with Petzold in Richter in being both readable and 
MEATY?


                                Richard Curzon, Digital Equipment of Canada
				Toronto
   (from INTERNET)     curzon@trooa.ENET.dec.com 
   (from COMPUSERVE)   71371,2521  OR  >INTERNET:curzon@trooa.ENET.dec.com

Newsgroups: comp.lang.pascal
From: coconut@crash.cts.com (Brian Dear)
Subject: accessing bytes within a dynam. alloc. buffer
Reply-To: brian@coconut.com
Organization: Coconut Computing, Inc., La Jolla, CA
Date: 11 Oct 92 21:48:34 PDT

This may seem like a silly question, but I would appreciate 
serious answers -- thanks!

In C, this kind of thing is trivial: using malloc() or calloc().
In Pascal, specifically TP6.0, I have not found an obvious
solution:

Suppose I have a pointer,

    VAR
        bigBuffer : POINTER;

and I allocate 32000 bytes....

   GETMEM( bigBuffer, 32000 );

and now I want to access individual bytes within that bigBuffer,
either reading them or writing them.

I can use MOVE() to copy something into bigBuffer starting at the
1st element of the buffer, but how about if I want to treat the
buffer essentially as an array of 32000 bytes, each of which could
be accessed for reading or writing by addressing them as
something as simple as bigBuffer[0] through bigBuffer[31999]?

Is there _ANY_ way to do this in Turbo Pascal, no matter how
convoluted, no matter if I need to somehow use the MEM[] array,
or whatever?  I need to somehow do this -- I would greatly
appreciate suggestions, thanks!

-- brian 

Newsgroups: comp.lang.pascal
From: raford@neumann.uwaterloo.ca (Robert Ford)
Subject: Re: run time errors
Organization: University of Waterloo
Date: Wed, 7 Oct 1992 16:12:32 GMT

In article <92281.111215LOPEZJ@EVALUN11.BITNET>, <LOPEZJ@EVALUN11.BITNET> writes:
> Hello
>    Which is the best method to capture run time errors in a program without
> halt to DOS?
>           Thanks


In Turbo Pascal?  If so, read on, if not, just ignore me...most people do.


To catch a disk I/O error in Turbo Pascal just before a call to say
Rewrite(f), include a {$I-} compiler directive to turn off I/O error
code generation, then turn it back on after with {$I+}.  

For example:

begin
  Assign(f, 'test.dat');
  {$I-}
  Reset(f);
  {$I+}
  .
  .
  .

end.


After the call in question, in this case the Reset, have an integer variable
err (or whatever you like) and do this

  err := IOResult;

If err is zero, there is no error.  If it isn't zero, then there are a list
of error codes both in the Reference manual and somewhere in Integrated help.

You do not have to turn the I/O code back on after the call, but, I have found
you'll only endup confused later when some error isn't caught that should have
been caught.

About other kinds of run-time error.   I believe things like divide by zero are
included in this as well.  A divide by zero is easy to handle, just don't do it!

If you are not using Turbo Pascal, you'll have to set up an interrupt 24h
(I think thats the number, appologies if I made a mistake) to trap the
error---that can be ugly.

Robert Ford
Xref: sparky comp.lang.pascal:5889 comp.os.msdos.misc:5553
From: unixlan+@pitt.edu (Wei-ming William Lin)
Newsgroups: comp.lang.pascal,comp.os.msdos.misc
Subject: Wanted: MSC 6.0a (Yes, !! 6.0a !!) (Please read if you have
Date: 8 Oct 92 13:28:36 GMT
Followup-To: comp.lang.pascal
Organization: University of Pittsburgh

***************************************************************************
 Due to the system problem, the machine I posted this messages last
time won't accept your reply.  So please, if you got trouble, try to
reply to this account again: unixlan@unix.cis.pitt.edu.  Sorry for the trouble.
			     ^^^^^^^^^^^^^^^^^^^^^^^^^
***************************************************************************

Hi Folks,

I know this is not the best place to do so, but I need your help!!

Don't say I am crazy.  Yes, I need your olde version of MSC!!  My old libraries
can support nothing but MSC 6.0, so.....  If you have a copy of MSC 6.0a
gathering dust in your shelf, now is the best time to send it out.  It does not
have to be in the mint condition, but at least descent.  Manuals must be 
complete.  And if you still have your registration card, that will be perfect 
(although not necessary).  Just remember, IT MUST BE 6.0a, NOT 6.0.  Please 
reply by e-mail.  Thanx in advance. (One more: 3.5" is preferred,
although 5.25" is OK.)

Willie

"UNIX(tm), X & LAN --- The Promise of the Future!!"
"And OS/2 V2.0!!"

+=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=+
| Internet e-mail:                       Mom Bell:                        |
| unixlan@unix.cis.pitt.edu                 H: (614)267-2674  (after 9pm) |
| wmlin@speedy.cs.pitt.edu                  O: (614)888-3833              |
| Compu$erve: 71650,1444                                                  |
+=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=!=+
From: focke@gmdzi.gmd.de (Stefan Focke)
Newsgroups: comp.lang.pascal
Subject: Help: Detection end of execution
Date: 13 Oct 92 16:50:08 GMT
Organization: gmd

Hello!

I want to start a Windows-program from my TPW-program with WinExec.

My TPW-program should not continue execution until the other progam is 
finished. Is there a easy way to detect if an other program is still running?


Thanks 
Stefan

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

Stefan Focke                  Tel. 02241-14-3154
GMD-I8                        e-mail: stefan.focke@gmd.de
Postfach 1316
D-W 5205 Sankt Augustin 1
From: cscsd02@abcom.ATT.COM (3402 )
Newsgroups: comp.lang.pascal
Subject: Does anybody have the Turbo Pascal Graphix ToolKit !
Date: 8 Oct 92 20:00:19 GMT
Distribution: na
Organization: AT&T(IMS-DPO), Aurora, Colorado

Does anybody have the Turbo Pascal Graphix ToolKit !

If you do, please send me e-mail.          

Thank You,
A. Castelo
Newsgroups: comp.lang.pascal
From: runefr@ifi.uio.no (Rune Fr|ysa)
Subject: TP 6.0 or 5.5 Killed my HD
Organization: Dept. of Informatics, University of Oslo, Norway
Date: Sat, 10 Oct 1992 00:37:53 GMT
Originator: runefr@kolsaas.ifi.uio.no


Just wanted to post a warning against careless use of memory
in TP. (I have traded TP in for C now).

Some years ago, I wrote a program using the mark command
on the memory, followed by some getmem and freemem commands
(TP warns you against this). Then at program termination,
and when clean-up was need, I used release to free the 
memory occupied.

Running this program worked just fine, but when I breaked the 
program from the IDE for debugging purposes, and didn't let
the program terminate normally, I got wierd results. The most
fatal was when I pressed F2. The PC kept writing for about 2
minutes before I rebooted. Then, my HD was gone! The fat and
other parts of the HD had been wiped out! 1.8 MB of source code
was lost!!! (I had thankfully a 2 weeks old backup).

This error was 100% sure not caused by a virus. (I seem to remeber
getting some messages about contacting Borland, some debugging 
days earlier)

So, to all of those newcomers out there, just learning the basics
of pointers: Unless you're 110% sure what you're doing, backup 
frequently!

---------===============================================--------------
Rune Froysa,                 |"Science is the attempt to make the 
Dept. of Informatics         | chaotic diversity of our sense experience
University of Oslo, Norway   | correspond to a logically uniform system 
E-mail:runefr@ifi.uio.no     | of thought" - Albert Einstein.
From: ioi@stipple.seas.upenn.edu (Ioi Kim Lam)
Newsgroups: comp.lang.pascal
Subject: Alternative Graphics Library Wanted
Date: 15 Oct 92 00:23:53 GMT
Organization: University of Pennsylvania


Are there any alternative graphics library other that the standard BGI 
libraries? I am in a desperate need.

Thankx.
Ioi ( footnote : the Magic Dragon ).
From: s924683@minyos.xx.rmit.oz.au ( Chandi )
Newsgroups: comp.lang.pascal
Subject: Re: BGI-Drivers for SVGA
Date: 13 Oct 92 02:48:26 GMT
Organization: RMIT Computer Centre
NNTP-Posting-Host: minyos.xx.rmit.oz.au

WRANA@rzmain.rz.uni-ulm.de (Wrana Claus) writes:

>Could anybody in this group give me some hints, wether there exist
>PD-Drivers for the ET4000, Trident8900 or VESA-Graphiccards in the
>800*600 256 Colourmode. 

 I have a SVGA driver that works with most of the above cards, Written by
 digital crime....  I will send you a copy of the driver  as soon as I can
 find it

>Thanks
>  Claus Wrana, University of Ulm 

-chandi



:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::            <<CHANDI>>  Chandana H. Perera      [[DUAL DEGREE]]        ::
::<<RMIT>> Royal Melbourne Institute Of Technology, Melbourne, Australia ::
::     Computer Science \ Electronics and Communications Engineering     ::
::s924683@minyos.xx.rmit.OZ.AU | chandi@maria.wustl.edu                  ::
::"IF GOD WANTED US TO MAIL AND CHATT ALL THE TIME WE WOULD HAVE ETHERNET::
::         CONNECTIONS "						 ::
:: Cootmundra Street, Doveton, VIC 3177, Australia     +(03) 792-3415    ::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
From: achristo@pons.uio.no (Alf Christophersen)
Newsgroups: comp.lang.pascal
Subject: Two bugs in TPW 1.5????
Date: 16 Oct 92 20:34:46 GMT
Organization: University of Oslo


Some days ago I asked here about transfer records in tDialog for
pListBoxes. I found later that if I did an Insert(a), where a is
a pChar, to the pStrCollection in the Init of the dialog, the
listbox showed the pChar-string. But if I sent a message directly
to the listbox, that string was not added to the pStrCOllection.
What did work was then to manually add the new string to the
pStrCollection and then do a TransferData(sf_setdata) to make the
string visible in the Listbox.

Could anyone check this, also in TP 6. Is it a bug, or is there
some switches enabling doing either SendDlgItemMsg(id,
lb_addstring, 0, Longint(a)) or Listbox.AddString(a), or is this
simply impossible, either because this is not how the use of this
is designed for, or just a simple bug.




The other possible bug I may have seen is the following scene:

VAR
  d: Boolean;

Procedure a;
Var
  b: Boolean;
Procedure ab; far;
Var
  c : Boolean;
  BEGIN
    c:= b;
    {Here follows some code to be executed, dependent on b (c)}
END;
BEGIN
  b := False;
  MyCollection.ForEach(@aB);
  b:=True;
  MyCollection.ForEach(@aB);
END;

When I first tried to execute, I used only B in the procedure b.
(I would present data in two way, dependent on b.) It turned out
that the program made only one of the presentations, but which of
them was unpredictable.

Debugging the program, B was either False or True, but the
procedure ab did the same with each Foreach.

I then changed the definition of b and c to char and introduced a

Case c of
'A':
'B':
and checked the value of b and c. I then found to my astonishment
that b was alternatively 'A' and 'B', but c, after setting it
equal to B was #6, independent of c! Why?????

I found then that if I made the variable b global, it was seen by
the inner procedure.

I also tried to force the compilation into a far model, but no
help. {$F+}

In Simula, the variables defined in outer procedure is always
visible to the variables in the inner block/procedure, but not
the opposite. Here it seems to be visible in only the same block,
not in inner block defined procedures.

Bug??? Feature????

Alf Christophersen
Dep. of Nutrition Research
PO Box 1046, Blindern
N-0316 Oslo 3
Norway
From: bostater@rsal.gatech.edu (Scott Bostater)
Newsgroups: comp.lang.pascal
Subject: Re: Borland Pascal 7.0 preview
Date: 14 Oct 92 18:58:49 GMT
Organization: Georgia Tech Res. Inst., Radar Systems Applications Lab

In <1992Oct14.152636.18560@rulway.LeidenUniv.nl> jeroenp@rulfc1.LeidenUniv.nl (Jeroen W. Pluimers) writes:
> 
>I just read a preview of Borland Pascal in the German magazine c't.
> 

Did they mention a shipping date? 

>Here is an extract in telegram style:

[stuff deleted]

>- New non-OOP language features
>   + pass arrays without bound information to procedures and functions
>   + `high' and `low' functions that get bound information of the
>     arrays mentioned below
>   + new type `OpenString' that uses the above features

Does this imply that we'll have Strings (or OpenStrings) of length
greater than 255? I'd upgrade right away just to have a TInputLine
that was bigger than 255 characters.

[stuff deleted]

>- Still leaving (sic!)
>   + 64k array barrier

Anybody know when TP 8.0 is due out? :-)

-- 
Scott Bostater      Georgia Tech Res. Inst., Radar Systems Applications Lab
"My soul finds rest in God alone; my salvation comes from Him"  -Ps 62.1
uucp:     ...!{allegra,amd,hplabs,ut-ngp}!gatech!mal-s2!bostater
Internet: bostater@rsal.gatech.edu
Newsgroups: comp.lang.pascal,comp.sys.ibm.pc.programmer
From: jdz1@Ra.MsState.Edu (John D. Zitterkopf)
Subject: Re: Caches for either CDROM or Floppy disks only...
Organization: Mississippi State University
Distribution: usa
Date: Mon, 12 Oct 1992 19:26:05 GMT

Hi,
	I'm looking for a Cache that would:

	1) Allow me to specify the ONLY DISKs I want to Cache
	2) Work only for a CDROM.
      or
	3) The source on a Cache. 

I'm attempting to Cache a CDROM at speeds >600mS. I tried HyperDisk, but I 
didn't like it because:
	A) Either HD disks or ALL disks which included: FD & HDs.
     &
	B) I prefer PC-Cache...

I would like to be able to ONLY select the Drive(s) I wish to cache. Does anyone
have some source code to get me started?

Thank you for your time...
John

--
 ____________   _------_  |||IBM & |      EE majors Do it Best 8-)
  --------\\ ] ~-______-~ |||Atari |~~~~~~~~~John D. Zitterkopf~~~~~~~~~~~~~
     (~~~~~\\|_(__ ~~    / | \Rules!jdz1@ra.MsState.edu  jdz1@MsState.bitnet
      \______| (        /  |  \    |AOL: zitt@aol.com  jdz1@isis.MsState.edu