Path: utzoo!utgpu!watserv1!watmath!att!bellcore!rutgers!usc!snorkelwacker!bloom-beacon!eru!luth!sunic!tut!funic!uwasa.fi!ts
From: ts@uwasa.fi (Timo Salmi LASK)
Newsgroups: comp.lang.pascal
Subject: Re: register set
Message-ID: <1990Jul2.122701.3254@uwasa.fi>
Date: 2 Jul 90 12:27:01 GMT
References: <16.268E1000@palace.fidonet.org>
Organization: University of Vaasa
Lines: 27

In article <16.268E1000@palace.fidonet.org> Alex.Brown@p0.f7.n391.z8.fidonet.org (Alex Brown) writes:
>	I got the following code from the Turbo Pascal v5.5 help file 
>and I still get an error code (type mismatch) when I try to compile
... deleted ...
>uses dos;
>procedure cursor_off(stype : char);
>  type
>    {Registers record used by Intr and MsDos}
>    Registers = record
>                  case Integer of
>                    0: (AX,BX,CX,DX,BP,SI,DI,
>                        DS,ES,Flags: Word);
>                    1: (AL,AH,BL,BH,CL,CH,DL,
>                        DH: Byte);
>                end;
... deleted ...

I have noticed the same problem myself.  The solution is
straightforward.  Do not define type registers yourself since it is
intrinsic in the Dos unit.  Leave the above type definition out, and
then define, say var regs : registers; in your procedure.  This will
work. 

...................................................................
Prof. Timo Salmi        (Moderating at anon. ftp site 128.214.12.3)
School of Business Studies, University of Vaasa, SF-65101, Finland
Internet: ts@chyde.uwasa.fi Funet: gado::salmi Bitnet: salmi@finfun