{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.
