$P ^1$T$P ^+$T$P ^_$T$P ^)$T$P $T$P $T$P $T$P $T$P $T$P $T$P $T

unit UserDefined;{Dont change this!}

interface
uses SysUtils, AS_Functions{Dont delete this!};

//Use the following 2 procedures to react on ET-Events
procedure On_HotKey(AHotKey : Cardinal);
procedure On_LogLine(ALogLine : String);

//Use the procedure ExecETCommand(Command : String) to send a command to ET
implementation

procedure On_HotKey(AHotKey : Cardinal);
begin
 writeln('HotKey:'+IntToStr(AHotKey));
end;

procedure On_LogLine(ALogLine : String);
begin
  writeln('LogLine:'+AlogLine);
end;

end.