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

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

global function ulong uf_bitshl (unsignedlong al_val, integer ai_bitcount);return al_val * 2 ^ ai_bitcount
end function