Array of Events: procedure GEN_ARRAY(E : ADDRESS;LEN:INTEGER);
procedure GEN_ARRAY(E : ADDRESS;LEN:INTEGER);