home *** CD-ROM | disk | FTP | other *** search
-
- 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;
-