$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