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

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

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


{$i string.L13} {intestazione delle procedure}

implementation
  {$I \tp\stand\comp1}
  {$i string.L14}

BEGIN
  init_var;
END.