Examples

 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 );  


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