Turbo Toolbox/Turbo_Toolbox.iso/tasm/chapxmpl.arc/HEXTEST.PAS

Pascal/Delphi Source File | 1988-10-09 | 296 b | 18 lines

program HexTest ;

var
  NUM : WORD ;

{$F+}

function HexStr ( VAR Num ; AnzahlBytes : BYTE ) : STRING ; EXTERNAL ;

{$L HEXSTR.OBJ}

{$F-}
begin
  Num := $face ;
  WriteLn ( 'Der umgewandelte Hexadezimal-String ist "',
            HexStr ( Num, sizeof ( Num ) ), '"' ) ;
end.