Ultrix-3.1/src/cmd/usat/pascal/test4.sout

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 }