Tank battle game.
uses
crt, dos, globals;
var
name : string;
score : integer;
begin
clrscr;
randomize;
name := 'Sergeant';
assign( f, 'brains.his' );
rewrite( f, 1 );
for counter := 0 to 99 do
begin
score := random( 32768 );
blockwrite( f, name, 10 );
blockwrite( f, score, 10 );
end;
close( f );
end.