Program ex3_20  (input,output);

Const
   %include 'ilap:nmos.consts'

Type
   %include 'ilap:nmos.types'

Var
   Controlx, controly, pushcony, popcony, phi1x, phi2x, phi3x, phi4x : integer;
   pushy, popy : Array [1..2] Of Integer;

%include 'ilap:nmos.specs'

Begin
   Initialise ('stack');

   Stack ('stack', 2, 4, controlx, controly, pushcony, popcony,
          phi1x, phi2x, phi3x, phi4x, pushy, popy);

   Finish
End.