unit Erotaind;

interface

type Erota_tyyppi = record
  lp:PChar;
  i,alku,loppu,yla:integer;
end;

function erota_kaksi(var jp:PChar; var alku,loppu:integer; yla:integer):integer;
   stdcall; far; external;
function erota_seuraava(var e:Erota_tyyppi):integer; stdcall; far; external;
function erota_eka(var e:Erota_tyyppi; const lp:PChar; alku,yla:integer):integer;
   stdcall; far; external;

//procedure _strchr; external 'cw3220.dll';
//procedure _sscanf; external 'cw3220.dll';
//procedure _cout; external 'cw3220.dll';
//procedure @ostream@$blsh$ql; external 'cw3220.dll';

implementation
{$l erotaind.obj}
//{$l koe.obj}
//{$l o:\cw32x.obj}
   
//{$l o:\sscanf.obj}
end.