function status( i : integer ) : string;
begin
  case i of
     NotAPort : status := 'is not a port';
     0        : status := 'BBB';
     1        : status := 'SBB';
     2        : status := 'BSB';
     3        : status := 'SSB';
     4        : status := 'BBS';
     5        : status := 'SBS';
     6        : status := 'BSS';
     7        : status := 'SSS';
     Class0   : status := 'Class 0';
   else
                status := 'impossible status!';
  end; {case}
end;