Path: utzoo!attcan!uunet!maverick.ksu.ksu.edu!uafhp!palace!p0.f7.n391.z8.fidonet.org!Alex.Brown
From: Alex.Brown@p0.f7.n391.z8.fidonet.org (Alex Brown)
Newsgroups: comp.lang.pascal
Subject: register set
Message-ID: <16.268E1000@palace.fidonet.org>
Date: 1 Jul 90 10:03:00 GMT
Sender: ufgate@palace.fidonet.org (newsout1.26)
Organization: FidoNet node 8:391/7.0 - The Ozark Con, Fayetteville AR
Lines: 40


	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

Can anyone help me? I've tried everything I can think of!


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;
var
  regs : registers;

begin
with regs do
  begin
  AH :=$01;
  CH :=20;
  CL :=20;
  end;
intr($10, regs);
end;

begin
cursor_off(c);
end.
--  
-------------------------------------------------------------------------------
N.W. Arkansas' UUCP to FidoNet Connection. If you are interested in connecting
up Contact Kenneth Whelan.   Addresses  postmaster@palace or at 1:391/9(Fido)
-------------------------------------------------------------------------------