program stackt;

{This is a 'test' program to be run to check compatability when the element
 type has been changed. Read the following simple code to understand what each
 letter does in the case statement below}

{$I stack.typ}

var i,j : integer;
    s : list;
    op : char;

{$I stack.ext}

begin
while 5 < 10 do
   begin
   write ('n,t,p,o,e,w....');
   readln (op);
   case op of
	'n' : stackmakenull(s);
        'p' : begin
                 write('number.... ');
                 readln (i);
                 stackpush(i,s);
              end;
        't' : writeln(stacktop(s));
        'o' : stackpop(s);
       'e': if stackempty(s) then writeln('empty') else writeln('not empty');
       'w': stackprint(s,output);
        end;
   end;
end.

.