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

$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