{ Declaring function RdKey using the assembly coded form
  in LISTING 2 as a Turbo Pascal external. RdKey.asm is
  assembled in TASM 1.0 or MASM 5.0 and RdKey.obj is made
  available to the TP5.x compiler.
}

interface

type
   KeyRec = record
              ch : char;
              sc : byte;
            end;

function RdKey(var Grabber : KeyRec)  : Char;

implementation

{$L RDKEY.OBJ}

function RdKey{(var Grabber : KeyRec)  : Char}; external;

