unit BoardUtils;

{$IFDEF FPC}
  {$MODE Delphi}
{$ENDIF}

interface

function BoardTypeName(BoardType: Integer): string;

implementation

uses SysUtils;

function BoardTypeName(BoardType: Integer): string;
begin
  case BoardType of
    1:  Result := 'HERMES (ANAN-10/100)';
    2:  Result := 'HERMES-E (ANAN-10E/100B)';
    3:  Result := 'ANGELIA (ANAN-100D)';
    4:  Result := 'ORION (ANAN-200D)';
    5:  Result := 'ORION MkII (ANAN-7000/8000)';
    6:  Result := 'HERMES-LITE 2';
    10: Result := 'SATURN (G2)';
    else Result := Format('Unknown Board #%d', [BoardType]);
  end;
end;

end.