HEAD Tool Sourcecode#
PROGRAM Head; (* by Erik C. Warren, 14 January, 1987 for UPDATE...KYAN's Jan./Feb. issue *) TYPE PathString = ARRAY~[1..15] OF Char; VAR fn : PathString; nl,lr : Integer; inf : Text; BEGIN Write('head file : '); ReadLn(fn); Write('# of lines: '); ReadLn(nl); Reset(inf,fn); Write(inf^); FOR lr := 2 TO nl DO BEGIN Get(inf); Write(inf^); WHILE NOT EOLn(inf) DO BEGIN Get(inf); Write(inf^) END; (* WHILE inf *) WriteLn END; (* FOR lr *) WriteLn; WriteLn(nl,' lines typed from ',fn) END. (* PROGRAM *)
Add new attachment
Only authorized users are allowed to upload new attachments.