Berkeley Pascal PXP -- Version 1.1 (28 april 1979 5:30 pm)
{USAT TEST FOR PASCAL}
4 1.---|program test2(output);
5 |const
6 | head1 = 'Pascal test ';
7 | head2 = 'for USAT.';
8 |begin
9 | write(head1);
10 | write('2 ');
11 | writeln(head2)
11 |end. { test2 }