384 end;

   384 end;

   385 {$ENDIF}

   385 {$ENDIF}

   386 

   386 

   387 procedure FreezeEnterKey;

   387 procedure FreezeEnterKey;

   388 begin

   388 begin

   389     tkbd[13]:= 1;

   390     tkbd[13]:= 1;

   390     tkbd[271]:= 1;

   392     tkbd[271]:= 1;

   391 end;

   393 end;

   392 

   394 

   393 var Controller: array [0..5] of PSDL_Joystick;

   395 var Controller: array [0..5] of PSDL_Joystick;

   394 

   396