162     tkbd[i]:= tkbdn[i]

   162     tkbd[i]:= tkbdn[i]

   163     end

   163     end

   164 end;

   164 end;

   165 

   165 

   166 procedure ResetKbd;

   166 procedure ResetKbd;

   169 begin

   172 begin

   170 

   173 

   171 k:= SDL_GetMouseState(nil, nil);

   174 k:= SDL_GetMouseState(nil, nil);

   172 {$IFNDEF IPHONEOS}pkbd:={$ENDIF}SDL_GetKeyState(@j);

   175 {$IFNDEF IPHONEOS}pkbd:={$ENDIF}SDL_GetKeyState(@j);

   173 

   176 

   221         inc(k, 1);

   224         inc(k, 1);

   222         end;

   225         end;

   223     end;

   226     end;

   224 {$ENDIF}

   227 {$ENDIF}

   225 

   228 

   226 for t:= 0 to cKeyMaxIndex do

   230 for t:= 0 to cKeyMaxIndex do

   228 end;

   232 end;

   229 

   233 

   230 procedure InitKbdKeyTable;

   234 procedure InitKbdKeyTable;

   231 var i, j, k, t: LongInt;

   235 var i, j, k, t: LongInt;

   232     s: string[15];

   236     s: string[15];