Ultrix-3.1/src/cmd/usat/pascal/test2.p

{USAT TEST FOR PASCAL}
 
program test2(output);
const
   head1 = 'Pascal test ';
   head2 = 'for USAT.';
begin
   write(head1);
   write('2 ');
   writeln(head2);
end.