{$A-}
{$O+} {overlay allowed}
{$f+}
{$d+}
unit RECun;

interface
uses prgidu,dos,crt,strdef,too5b,too5mh,too5g2;
CONST
  {$I agerec.L1}
  lps=0;
  keylen=15; {definisce la lunghezza della chiave per la ricerca}
TYPE
  {$I agerec.}

var
  {$I agerec.L2}
  {$I \tp\stand\var}
  _g,_m,_a:integer;


{$I agerec.L13} {intestazione delle procedure}

implementation
  {$I \tp\stand\comp1}
  {$I agerec.L14}

BEGIN
  init_var;
END.