VMS Help PASCAL, Statements, WITH, Examples  *Conan The Librarian (sorry for the slow response - running on an old VAX)

  Example:

     WITH Cat, Dog DO
        Bills := Bills + Cat_vet + Dog_vet;

  where 'Cat' and 'Dog' are records and 'Cat_vet' is  a  field  of
  'Cat' and 'Dog_vet' is a field of 'Dog'.

  Example:

     VAR
        x : STRING( 10 );
        y : STRING( 15 );

     WITH x, y DO
        WRITELN( CAPACITY );

  Compaq Pascal uses the last schema variable specified,  y.   The
  WRITELN statement prints y.CAPACITY.