Game Killer/Game_Killer.bin/127.STATUS.INC

Text File | 1992-07-12 | 493b | 18 lines

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 := 'HFS';
     else
                status := 'impossible status!';
  end; {case}
end;