Q5/ws_objects/Ew_import.pbl.src/uf_bitshr.srf

$PBExportHeader$uf_bitshr.srf
global type uf_bitshr from function_object
end type

forward prototypes
global function ulong uf_bitshr (unsignedlong al_val, integer ai_bitcount)
end prototypes

global function ulong uf_bitshr (unsignedlong al_val, integer ai_bitcount);return al_val / 2 ^ ai_bitcount
end function