71     exit( ZoomValue / cDefaultZoomLevel );

    71     exit( ZoomValue / cDefaultZoomLevel );

    72 end;

    72 end;

    73 

    73 

    74 function HW_zoomLevel: LongInt; cdecl; export;

    74 function HW_zoomLevel: LongInt; cdecl; export;

    75 begin

    75 begin

    77     exit( trunc((ZoomValue - cDefaultZoomLevel) / cZoomDelta) );

    76     exit( trunc((ZoomValue - cDefaultZoomLevel) / cZoomDelta) );

    78 end;

    77 end;

    79 

    78 

    80 procedure HW_walkingKeysUp; cdecl; export;

    79 procedure HW_walkingKeysUp; cdecl; export;

    81 begin

    80 begin