52     if (cScreenWidth < 1000) and (cScreenHeight < 500) then

    52     if (cScreenWidth < 1000) and (cScreenHeight < 500) then

    53     begin

    53     begin

    54         exit(true);

    54         exit(true);

    55     end

    55     end

    56     else exit(false);

    56     else exit(false);

    58     exit(false);

    58     exit(false);

    60 end;

    59 end;

    61 

    60 

    62 // this function should make the device vibrate in some way

    61 // this function should make the device vibrate in some way

    63 procedure performRumble; inline;

    62 procedure performRumble; inline;

    64 const kSystemSoundID_Vibrate = $00000FFF;

    63 const kSystemSoundID_Vibrate = $00000FFF;