Category : BBS Programs+Doors
Archive   : NEWRANK.ZIP
Filename : MAKERANK.PAS

PROGRAM MakeRankReport;
VAR
junk : INTEGER;
f,StdOut : TEXT;
wins : WORD;
name : STRING;
BEGIN
junk := IOresult; {clear IOresult flag}
Assign(StdOut, '');
Rewrite(StdOut); {use DOS for output to allow redirection}
Assign(f, 'WINNERS.WAR');
{$I-} Reset(f); {$I+}
IF IOResult=0 THEN BEGIN
Writeln(StdOut, ' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
Writeln(StdOut, ' º Player Name ³ Points ³ Rank º');
Writeln(StdOut, ' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
WHILE NOT EOF(f) DO BEGIN
Readln(f, wins);
Readln(f, name);
Write(StdOut, ' ');
Write(StdOut, name:21);
Write(StdOut, ' ³');
Write(StdOut, wins:6);
Write(StdOut, ' ³');
Write(StdOut, ' ');
{
If you have your points required to advance a rank set to something
other than 1, put that value in place of PointsToAdvance in the next
line.
}
wins := wins DIV 4;


CASE wins OF
0 : Writeln(StdOut, 'Civilian');
1 : Writeln(StdOut, 'Private');
2 : Writeln(StdOut, 'Private First Class');
3 : Writeln(StdOut, 'Lance Corporal');
4 : Writeln(StdOut, 'Corporal');
5 : Writeln(StdOut, 'Sergeant');
6 : Writeln(StdOut, 'Staff Sergeant');
7 : Writeln(StdOut, 'Sergeant First Class');
8 : Writeln(StdOut, 'Master Sergeant');
9 : Writeln(StdOut, 'Sergeant Major');
10 : Writeln(StdOut, 'Second Lieutenant');
11 : Writeln(StdOut, 'First Lieutenant');
12 : Writeln(StdOut, 'Captain');
13 : Writeln(StdOut, 'Major');
14 : Writeln(StdOut, 'Lieutenant Colonel');
15 : Writeln(StdOut, 'Colonel');
16 : Writeln(StdOut, 'Brigadier General');
17 : Writeln(StdOut, 'Major General');
18 : Writeln(StdOut, 'Lieutenant General');
19 : Writeln(StdOut, 'General');
ELSE BEGIN
Write(StdOut, wins-15, ' Star General');
FOR junk:=1 TO wins-15 DO
Write(StdOut, '');
Writeln(StdOut);
END;
END; {case}
END; {while not end of file}
Writeln(StdOut, ' ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ');
Close(f);
END ELSE Writeln('WINNERS.WAR not found');
Close(StdOut);
END.