program	forver;

include	 'dskc:sym6c.def[103,307]';
include	  'dskc:lexi.def[103,307]';
include	  'dskc:syni.def[103,307]';

var
    keys   : name_type;
    bombed : boolean;
    keytab : hash_table;

    dfa	   : automaton;
    bnf	   : grammar;

procedure lfortran; extern;
procedure sfortran; extern;

procedure semini (procedure bnf; procedure dfa); extern;

begin

    symini;
    st6name (keys, 'KeyWds');
    keytab := tcreate (keys, 200);

    dfa	:= lexini (lfortran, 1000, 100,	keytab);
    bnf	:= synini (sfortran, 1000, 1000);

    semini (sfortran, lfortran);

    syni (bnf, bombed);

end.