HDTenEightyP/NetNews huggingface dataset:
From: Craig.Lathwood@p0.f1.n7103.z5.fidonet.org (Craig Lathwood)
Newsgroups: comp.lang.pascal
Subject: Comm ports
Date: 14 Oct 92 10:54:00 GMT
Article-I.D.: catpe.2601.2ADDB346
Organization: FidoNet node 5:7103/1.0 - Softel Monster BBS, Durban

Hi there

I had a problem a while back after making a little external device that operated off the serial port. The device, which needs no description here except that I was only sending data not receiving, only operated off com 1 or 2. I had intended on using either com 3 or 4 (I can't remember) but after continual problems of it not working on com 3/4 I decided to use com 1/2 and it worked !

I have a mouse on com 2 and the modem is on com 3. The modem obviously is bidirectional so why did't the home made device work ? I tried with removing the modem and/or the mouse with no success. The device is very much dependent on timing so this might have an effect. Does anybody know what might be the cause of the problem ? The com ports are obviously O.K. otherwise the modem and mouse wouldn't work. Another thing which might be of interest is that the device worked on com 1 while I was using the modem o


n com 3 which isn't anything unusual but I just thought I'd mention it. I gather com 1 is checked first when an IRQ 4 is generated.

Please don't write back unless you've got something intelligent to say. I don't have time to read witty little unhelpfull messages.

Thanks

Craig
===
 * OLX 2.1 TD * The truth is relative!


--  
INTERNET: Craig.Lathwood@p0.f1.n7103.z5.fidonet.org
via:  THE CATALYST BBS in Port Elizabeth, South Africa.
       (catpe.alt.za)   +27-41-34-1122 HST or +27-41-34-2859, V32bis & HST.
From: system@micromed.com (Duane Davis)
Newsgroups: comp.lang.pascal
Subject: Re: Disk in Drive ???
Date: Mon, 12 Oct 92 15:48:03 PDT
Organization: Micro-Medic BBS - +1 408 279 5240 - Public Access

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

> I'm writing a program that loads data from the disc drives A: and B:
> and I'm looking for a Bios-Function that detects wether there's a Disc
> in these drives or not.

I just went through the same thing. Give the following function
a try:

-----------------------------------------------------------
function disk_Status(disk:word):word;
  var
    regs : registers;

  begin
    regs.ah := 0;       {reset drive}
    regs.dl := disk;    {drive number - A: = 0, B: = 1};
    intr($13,regs);

    regs.ah := $04;     {verify diskette sectors}
    regs.al := 1;       {number of sectors}
    regs.ch := 1;       {track number}
    regs.cl := 1;       {sector number}
    regs.dh := 0;       {head number}
    regs.dl := disk;    {drive number - A: = 0, B: = 1};
    intr($13,regs);

    disk_status := regs.ah;
  end;
-----------------------------------------------------------
 Interupt 13, function 00h resets both the diskette controller
 and the specified diskette drive. This function must be called
 first or else function 04h results may not be accurate.

 Interupt 13, function 04h verifies diskette sectors by determining
 if the sectors can be found, read, and pass a CRC.

 Return codes:    0   =  disk present, formatted
                  2   =  disk present, not formatted
                  6   =  diskette change line active
                128   =  no disk present


--
System@micromed.com (Duane Davis)                   voice (408)293-3299
Micro-Medic                          public access usenet (408)279-5240
711 Lincoln Avenue                  public access pcboard (408)280-1610
San Jose, CA 95126                    FileServer - FTPMail@micromed.com
From: bobb@vice.ICO.TEK.COM (Robert Beauchaine)
Newsgroups: comp.lang.pascal
Subject: Re: TP 6.0 or 5.5 Killed my HD
Date: 13 Oct 92 23:53:40 GMT
Organization: Tektronix, Inc., Beaverton,  OR.

In article <1992Oct13.012438.14294@trl.oz.au> jbm@hal.trl.OZ.AU (Jacques Guy) writes:
>runefr@ifi.uio.no (Rune Fr|ysa) writes:
>
>
>>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).
>
>And Duncan Murdoch, who's shown himself to know a lot, doubt
>this is possible. Something similar has happened to me twice.
>      
>No, I assure you I am not making this up. It did happen.
>I was writing plaintext strings and screen attributes 
>to records referenced by pointers, nothing to do
>with DOS calls, and certainly not trying to write a
>virus.


  Well, I was going to stay out of what appeared to be an emerging
  flame war, but I have also corrupted my hard disk via an
  unassigned pointer.  Trashed the FAT it did, forcing me to
  recover my entire hard disk from (outdated) backups.  That's why I
  occassionaly run a virus protection program that watches for
  unauthorized disk writes when I'm practicing unsafe programming.
  Don't know if it works or not, but hell, it might just save my
  hard disk someday.

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ 

Bob Beauchaine bobb@vice.ICO.TEK.COM 

C: The language that combines the power of assembly language with the 
   flexibility of assembly language.

Real friends don't let friends use UNIX.
From: det15wx@osan-emh.af.mil (DETACHMENT 15 WEATHER)
Newsgroups: comp.lang.pascal
Subject: Different Graphic Adapters
Date: 9 Oct 92 03:25:05 GMT


                   I N T E R O F F I C E   M E M O R A N D U M

                                        Date:      9-Oct-1992 12:18pm KST
                                        From:      Maj Ken Waters 
                                                   DET15WX 
                                        Dept:      CC
                                        Tel No:    784-6332

TO:  Remote Addressee                     ( _INFO-PASCAL@BRL.MIL )


Subject: Different Graphic Adapters

Can anyone tell me how to write a program which can be run on all major
graphic adapters without much trouble.  I've written many for CGA, EGA, VGA
but I've always had to make programs monitor-specific.  Now, I'm switching
machines for compiling/debugging and continue to get hungup due to adapter
differences.  In short, I need a unit which will "initgraph" to whatever
the monitor is.  I have already incorporated all the Borland BGIs into BGIDRIV
and like to include them with the .EXE so that .BGI files don't have to
lying all over the place.  Thanks for any help provided.
    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???
---------------------
From: dudley.atkinson@nitelog.com (Dudley Atkinson) 
Newsgroups: comp.lang.pascal
Subject: TP 5.5 bug ?
Date: 11 Oct 92 08:41:00 GMT
Distribution: world
Organization: Nitelog BBS - Monterey, CA - 408-655-1096
Reply-To: dudley.atkinson@nitelog.com (Dudley Atkinson) 

To: frankp@iplmail.orl.mmc.com (Frank Postava)
FP>Subject: TP 5.5 bug ?
FP>Message-ID: <1992Oct9.145448.21150@iplmail.orl.mmc.com>
FP>Keywords: TP 5.5, printer port
FP>Date: Fri, 9 Oct 1992 14:54:48 GMT

FP>I have installed the identical package (from the same install diskette
FP>the install script has no options) on a ZEOS laptop 386sx and a 
FP>386xs clone desktop.  Word Perfect has absolutley no problem printing
FP>from either machine, but the TP 5.5 program (using 'lst' to print) pri
FP>garbage from the desktop and fine from the ZEOS!  


There is a good chance that the package you are trying to use implements 
some sort of optimized printer driver that does not use the system default 
LPT1 routines.  The driver may be running too 
fast for the LPT1 port to get the information out, in which case garbage 
actually gets sent to the printer.  One good check for this is to slow the 
PC to its slowest mode and see if the problem persists.  Taking it out of 
"Turbo" mode may be slow enough, but if not then try adding a bunch of 
wait states to see if the problem is solved.  

Good luck and happy hunting!



---
 . WinQwk 2.0 a#0 . Unregistered Evaluation Copy
From: mike.dickson@almac.co.uk
Newsgroups: comp.lang.pascal
Subject: tp 6.0 or 5.5 killed
Date: 13 Oct 92 21:18:54 GMT
Distribution: comp
Organization: ALMAC BBS Ltd

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

Most strange. C will allow you to do far more damaging things with far
lesser programming effort to your PC than just about anything short of
assembler.

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

The chances of some 'stray code' just happening to nuke your entire hard
disk are astronomical. It wasn't TP that caused your problem, I'll bet.

/\/\ | |< |p                                     mike.dickson@almac.co.uk
---
 ~ SLMR 2.1a ~ Uh....Eh....is this what taglines are all about?
--
ALMAC BBS Ltd. 0324-665371
Dos based USENET access,  call for details!
From: bdixon@cowpas.waffle.atl.ga.us (Brad Dixon)
Newsgroups: comp.lang.pascal
Subject: Storing tcollections
Date: 14 Oct 92 19:04:29 GMT
Organization: COW Pastures

I have a tcollection, and stored in it are objects I made called 
pRefCards. The refcards have no methods, just data. How can I store and 
load this collection and all of it's data to a disk stream? Full source 
would be wonderful to a procedure to load and store collections... 
Thanks..
Newsgroups: comp.lang.pascal
From:  evsikov@lcta5.jinr.dubna.su (Igor Evsikov)
Subject: RMOUSE11.ZIP - TP6.0 Mouse Unit (Graphic cursor in TEXT mode)
Reply-To: evsikov@lcta5.jinr.dubna.su
Organization: Lcta
Date: Wed, 14 Oct 92 05:50:57 +0300 

I have upload to SIMTEL

Now available from WSMR-SIMTEL20.Army.Mil:

pd1:<msdos.turbopas>
RMOUSE11.ZIP    TP6.0 Mouse TPU (Graphic cursor in TEXT mode)

RMOUSE.TPU is a Turbo Pascal 6.0 unit for Mouse Handling in Application
program.  Compared to other analogous units this gives you some
advantages:

- very simple program interface.  Most units (for example Turbo
Professional TPMOUSE) simply gives you Pascal interface to mouse support
driver interrupt INT 33.  This is a very powerful but not simple and
transparent tool.  This one gives you only some functions to obtain
MOUSE and KEYBOARD Events (similar to Microsoft Windows).  The mouse
programming is much more clear.

- for EGA or VGA adapters you may use GRAPHIC mouse cursor (immage
ARROW, HAND, FOOT, SIGHT at all) in TEXT videomode.  You can use various
mouse cursors in different screen regions and mouse states.  When
selected this mouse cursor will be moving through the screen smoothly.
Text modes 132x25, 132x43, 80x43(50) are supported.

Best regards.

Igor.
- -
Igor Evsikov
evsikov@lcta5.jinr.dubna.su
From: cole_d@kosmos.wcc.govt.nz
Newsgroups: comp.lang.pascal
Subject: Breaking programs
Date: 14 Oct 1992 23:55:12 GMT
Organization: Wellington City Council (Public Access), Wgtn, Nz
Reply-To: cole_d@kosmos.wcc.govt.nz
NNTP-Posting-Host: kosmos.wcc.govt.nz

When you're in an infinite loop (yes I do that quite often without realising)
how do I stop the program (I don't have a 101 keyboard and the old keyboards
don't have one) without using ctrl-alt-del?????
From: chard@genghis.borland.com (Richard Nelson)
Newsgroups: comp.lang.pascal
Subject: Re: TCollection problem
Summary: deleting items
Keywords: DeleteAll
Date: 14 Oct 92 22:14:23 GMT
Article-I.D.: genghis.1992Oct14.221423.14630
Organization: Borland International
Originator: chard@genghis.borland.com

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

If you're certain that one collection is a subset of the other, as in
your example, you could simply delete all the items from the smaller
collection before freeing the collection.

>  Dispose(All,Done);
   Some^.DeleteAll;
>  Dispose(Some,Done); { general protection fault here }

If you can't be sure that every item in the other collection is already
being disposed by the big collection, you'll need to iterate through one
of the collections, determine whether its items are in the other collection
(using IndexOf), and then deleting those that overlap so they're only
disposed of once.
-- 
=========================================================================
 Richard Nelson, Borland Int'l | chard@borland.com | Go Bears! Grrr-rah!
  Had this been Borland's opinion, I would have written it in a manual.
"But there're just so many summers...and just so many springs." -D.Henley
From: se07@cs.vu.nl (SE)
Newsgroups: comp.lang.pascal
Subject: "filename"^ in TurboPascal.
Date: 16 Oct 92 09:32:49 GMT
Organization: Fac. Wiskunde & Informatica, VU, Amsterdam

How is this function implemented in Turbo Pascal? (In standard Pascal
"filename"^ means looking ahead one position in the file)

VAR
	data : text;

function nextchar(data : text):char;
begin
	nextchar := data^;
end;

	
	Please E-mail: pfrants@cs.vu.nl
From: roesel@apap4.pap.univie.ac.at
Newsgroups: comp.lang.pascal
Subject: Re: TCollection problem
Date: 15 Oct 92 18:54:45 GMT
Organization: Vienna University Computer Center

In article <hrpdko.13@pnv.palm.cri.nz>, news@massey.ac.nz (USENET News System) writes:
> 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. 

You are right. After the call of Dispose(All,Done) Dispose(Some,Done) tries
again to free the memory associated with A, but this memory was already freed.

In your example it is easy to overcome the problem: When you insert the command
Some^.DeleteAll before Dispose(Some,Done) the pointer to A is removed
from the collection without trying to free the memory associated with this
pointer. Then you can safely call Dispose(Some,Done).

You can also use this approach if you are sure that all pointers in the
collection you want to dispose are already freed. 

If you have a collection with objects which belong only to this collection and
other objects which belong also to other collections you must know which
objects are already freed by Dispose(anothercollection,Done). For all this
objects you can then call Delete. 


I hope, this will help you in some way

		Martin

------------------------------------------------------------------------------
Martin Roesel, Institute of Solid State Physics, University of Vienna, Austria
roesel@apap1.pap.univie.ac.at
Newsgroups: comp.lang.pascal,comp.lang.ada,comp.sys.apple2
From: lharris@wimsey.bc.ca (Lawrence Harris)
Subject: New License for P-System between USUS and UCSD
Organization: BC News and Mail
Date: Mon, 12 Oct 1992 03:42:53 GMT

FOR IMMEDIATE RELEASE

LA JOLLA, CA -- The UCSD p-System received a major boost with the
recent signing of a license agreement between USUS (UCSD p-System Users'
Society) and the University of California, San Diego.

UCSD Pascal (later the UCSD p-System) was an early contender for the
PC desktop along with MSDOS, CPM and Apple DOS. In recent years it has
fallen from view due to commercial failure by the original and succeeding
sole licensees.

"There are still many thousands of users worldwide," said USUS president
Tom Cattrall, "and the renewed availability of the p-System directly from
USUS will encourage developments from this software, and provide a support
channel for those users."

USUS is a not-for-profit corporation whose aims include the promotion of
portable software and programming environments. Current languages in which
members have an interest are Pascal, Modula2, APL, ADA, Oberon and C. These
and other issues concerning software design and portability are discussed in
the CODEPORT section on Compuserve.

Under the arrangement with UCSD, USUS will have the right to distribute to
its membership the source and object code of all versions of the p-System
for non-commercial use. Common versions of the p-System object code will be
uploaded to CODEPORT for the use of members and prospective members of USUS.
Payment of a small one-time license fee in addition to membership of USUS is
required.

USUS would like to acquire for its archive many missing pieces of the
p-System, and has UCSD's assurances that individuals who have written or
modified any versions of the p-System will not be considered to be in
violation of UCSD's copyright if they so contribute.

To capitalize on the inquiries recently received by USUS and UCSD, USUS is
holding a meeting 20th-22nd Nov in Detroit, Michigan(see following story).

For more information please contact:

USUS
Box 1148
La Jolla, CA 92038-1148
USA

Stephen Pickett,
USUS Librarian,
Box 1279,
Pt Roberts WA 98281
USA
Tel: (604) 874-7364
Compuserve: 71016,1203
From: harvey@rhps.UUCP (Timothy Brannan)
Newsgroups: comp.lang.pascal
Subject: Turbo Pascal 7.0
Date: Tue, 06 Oct 92 04:01:01 PDT
Organization: CrissySoft Incorporated

I have one very basic question:
Why is everyone trying to make Turbo Pascal into Turbo C?

That's all, really.

HARVEY
tb.

Newsgroups: comp.lang.pascal
From: egodoy@dcc.uchile.cl (GODOY VEGA EDUARDO SALVADOR)
Subject: Demo ???
Originator: egodoy@tortel
Date: Tue, 13 Oct 1992 15:01:58 GMT
Reply-To: egodoy@dcc.uchile.cl
Organization: Universidad de Chile, Depto. de Ciencias de la Computacion

Hi !... any one knows where can I find a Demo for TPW ver *.* ?

Another question ! : how big (in Kb) is TPW ? 
Is it really good for programing Windows Aplication ???

Thank !

-- 
+---------------------------------------------------------------------------+
|  egodoy@dcc.uchile.cl                 | Ingenieria Civil Computacion      |
|  Eduardo Godoy Vega                   | U. de Chile.                      | 
+---------------------------------------------------------------------------+

Newsgroups: comp.lang.pascal,comp.lang.modula2
From: heb@unlinfo.unl.edu (henry baumgarten)
Subject: UCSD Availability
Keywords: UCSD Pascal USUS
Organization: University of Nebraska - Lincoln
Date: Mon, 12 Oct 1992 01:33:04 GMT

USUS is a not-for-profit corporation that was created over a decade ago
to serve as a user society for UCSD Pascal and other languages based in
whole or part on the UCSD p-System. The UCSD p-System and UCSD Pascal were
created at the University of California, San Diego, and were implemented
on numerous microcomputers, including Amiga, Apple II, Atari, DEC PDP-11,
IBM PC, Sage/Stride, Terak, etc. In recent years USUS has extended its
interest to other portable languages (Pascal, Modula-2, Modula-3, APL,
etc.), while continuing to work toward making the UCSD p-System and
support for the p-System more available to existing and potential users
worldwide of UCSD Pascal (and other p-System languages). This effort was
rewarded recently when a license agreement was signed between USUS and
the University of California, San Diego, which grants USUS the right to
distribute to its membership the source and object code of ALL AVAILABLE
versions of the p-System for non-commercial use. Common versions of the
p-System object code will be uploaded to the CODEPORT forum on CompuServe
for the use of members and prospective members of USUS. Payment of a
small one-time license fee in addition to membership in USUS is required.

USUS would like and needs to acquire for its archives many missing pieces
of the p-System and has UCSD's assurances that individuals who have written
or modified any versions of the p-System will not be considered to be in
violation of UCSD's copyright if they contribute this code to the archives.

Because of the many inquiries recently received by USUS and UCSD and to
facilitate the rapid implementation of the distribution of the code to
USUS members, USUS will be holding its first meeting in some years in 
Detroit, Michigan, from Friday, 20 November 1992, through Sunday, 22
November 1992. All persons interested in the UCSD p-System are welcome.
For details read message in news.announce.conference.

For further information on USUS or the distribution of UCSD p-System code
contact USUS secretary Keith Frederick, 525 West Prospect St., Seattle,
WA 98119, USA, USA Telephone: (206) 285-1576, CompuServe: 73760,3521,
or Henry Baumgarten (hbaumgarten on BIX, 73447,2754 on CompuServe, or
heb@unlinfo.unl.edu). 

Newsgroups: comp.lang.pascal
From: ricki@rwthi3.informatik.rwth-aachen.de (Richard Breuer)
Subject: Re: Testing File Name Validity...
Organization: Rechnerbetrieb Informatik  /  RWTH Aachen
Date: 14 Oct 92 07:51:28 GMT

ahall@nmsu.edu (HALL) writes:

>I don't mean check if it is a file, I mean check if it is a name
>that could be assigned to a file.  I have received several diferent
>replies as to whether these are valid file name characters, !@#$%^&().
>Some say yes, some say no.

You might try sth. like the following (TP):

	program test;

	var
	  f: text;
	  c: char;

	begin
	  for c:=#0 to #255 do begin
	    {$i-} assign(f,c); rewrite(f); {$i+}
	    if (ioresult=0) then close(f)
	  end
	end.

and see which files are created.


	Ricki

--

e-mail: ricki@rwthi3.informatik.rwth-aachen.de            | E.vil N.ever D.ies
mail  : R. Breuer, Brunssumstr. 6, 5100 Aachen, Germany   |     (Overkill)

Newsgroups: comp.lang.pascal
From: mccullou@cae.wisc.edu (Mark McCullough)
Subject: Re: COMPARISION: LISP AND PASCAL
Organization: College of Engineering, Univ. of Wisconsin-Madison
Date: 12 Oct 92 12:20:11 CDT
Originator: mccullou@sun-16.cae.wisc.edu


In article <1992Oct12.140623.5938@cimage.com>, patel@cimage.com (Ritesh Patel) writes:
|> I am looking for info on comparision of LISP and PASCAL.
|> -- 
|> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|> Inet: ae769@yfn.ysu.edu           |                        Ritesh Patel    
|> CI$:  71011,1736                  |           - Equal Oprtunity Replier. 
|> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

LISP = Lots of Incredibly Stupid Parentheses.
PASCAL = Very stiff and formal student language.

LISP is good if you are doing AI, but for most other applications, unless
you are raised on LISP, another language is better.  You can do it, but
that doesn't make it nice.  LISP tends to be interpreted, making it hard
to test some bits of code that might only rarely be executed.  LISP also
uses incredible numbers of parenthesis, and I have yet to hear of a friendly
interpreter for LISP.  You thought that PASCAL is silly in how it uses
the semicolon?  Well, that is nothing in comparison to the number of
parentheses LISP uses.  After about two weeks of trying to learn LISP,
I gave up on it.  I'll take C over LISP.

C = All the flexibility of assembly code, all the readability of assembly
code.
:)M^2
Newsgroups: comp.lang.pascal