61 

    61 

    62 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring;

    62 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring;

    63     trevt_n: array[TEventId] of integer;

    63     trevt_n: array[TEventId] of integer;

    64 

    64 

    65 procedure LoadLocale(FileName: shortstring);

    65 procedure LoadLocale(FileName: shortstring);

    67     f: textfile;

    67     f: textfile;

    68     a, b, c: LongInt;

    68     a, b, c: LongInt;

    69     first: array[TEventId] of boolean;

    69     first: array[TEventId] of boolean;

    70     e: TEventId;

    70     e: TEventId;

    71     loaded: boolean;

    71     loaded: boolean;