home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 256.STATUS.INC < prev    next >
Text File  |  1991-07-08  |  500b  |  19 lines
  1.  
  2. function status( i : integer ) : string;
  3. begin
  4.   case i of
  5.      NotAPort : status := 'is not a port';
  6.      0        : status := 'BBB';
  7.      1        : status := 'SBB';
  8.      2        : status := 'BSB';
  9.      3        : status := 'SSB';
  10.      4        : status := 'BBS';
  11.      5        : status := 'SBS';
  12.      6        : status := 'BSS';
  13.      7        : status := 'SSS';
  14.      Class0   : status := 'Class 0';
  15.      else
  16.                 status := 'impossible status!';
  17.   end; {case}
  18. end;
  19.