{	Talfunktioner rev 900929 Erik Hjelme

	funktionskald :

	bit	returnerer ( word , stringl‘ngde ) udskrevet i bits

	fndec	funktionsresultatet udskrevet hex(i,2) laeses som i

	tal / hex ( word , stringlaengde );

	resultatet kan vaere 1 - 8 karakterer :

	tal	betydende tegn udover specificeret antal slettes aldrig

	hex	max 8 tegn
		tegn til venstre for specificeret antal bortkastes
}
{ ====================================================================== }
function bit(x:longword;t:byte):shortstring;
var
  talstr:shortstring;
begin
talstr:='';
for t:=1 to t do
	begin
	talstr:=char($30 or (x and 1))+talstr;
	x:=x shr 1;
	end;
bit:=talstr;
end;

{ ====================================================================== }
function fndec(const b:byte):byte;
begin
fndec:=(b div 1000)*$1000+((b mod 1000) div 100)*$100+((b mod 100) div 10)*$10+b mod 10;
end;
{ =================================================================== }
function tal(const i:longword;const t:byte):shortstring;
var
   talstr:shortstring;
begin
str(i,talstr);
while length(talstr)<t do talstr:='0'+talstr;
tal:=talstr;
end;
{ =================================================================== }
const
	hexstr	: array [0..$F] of char = '0123456789ABCDEF';
var
  talstr:shortstring;

function hex(i:longword;t:byte):shortstring;
begin
talstr:='';
for t:=1 to t do
	begin
	talstr:=hexstr[i and $f]+talstr;
	i:=i shr 4;
	end;
hex:=talstr;
end;