home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Game Killer
/
Game_Killer.bin
/
256.STATUS.INC
< prev
next >
Wrap
Text File
|
1991-07-08
|
500b
|
19 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 := 'Class 0';
else
status := 'impossible status!';
end; {case}
end;