(*LANG:<KOHLBRENNER.TST>PAS4A.PAS.2 19-Aug-81 09:15:09, Edit by KOHLBRENNER *)
(* COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *)
program pasrm1(output,ft);
var
ft:text;
int:integer;
begin
open(ft,'pas4.dat',new);
rewrite(ft);
for int := 1 to 200 do
writeln(ft,int);
close(ft);
end.