Type HexType = String[2];
Function Hex(b:Byte):HexType;
 Const HexChars :Array[0..15] Of Char = ( '0','1','2','3','4','5','6','7',
                                          '8','9','a','b','c','d','e','f'
                                        );
 Begin
   Hex := HexChars[b Div 16] + HexChars[b Mod 16];
 End; {Hex}

Type HexWordType = String[5];
Function HexWord(i :Integer):HexWordType;
 Begin
    HexWord := '$' + Hex(Hi(i)) + Hex(Lo(i));
 End;