5 

     5 

     6 procedure initModule;

     6 procedure initModule;

     7 procedure freeModule;

     7 procedure freeModule;

     8 

     8 

     9 implementation

     9 implementation

    11 

    11 

    12 const endCmd: string = #10 + #10;

    12 const endCmd: string = #10 + #10;

    13 

    13 

    14 function getNextChar: char; forward;

    14 function getNextChar: char; forward;

    15 function getCurrChar: char; forward;

    15 function getCurrChar: char; forward;

    55 begin

    55 begin

    56 end;

    56 end;

    57 

    57 

    58 procedure handler_CONNECTED;

    58 procedure handler_CONNECTED;

    59 begin

    59 begin

    60 end;

    61 end;

    61 

    62 

    62 procedure handler_EM;

    63 procedure handler_EM;

    63 begin

    64 begin

    64 end;

    65 end;