{Use this program as a 'test' program when changing element types etc.
The user should quickly read this code to see what each letter does in
the case statement below.}
{$I list.typ}
var i,j : integer;
l : list;
op : char;
{$I list.ext}
begin
while 5 < 10 do
begin
writeln ('m,i,d,l,f,e,p');
readln (op);
case op of
'm' : l := listmakenull(l);
'i' : begin
write('number.... ');
readln (i);
listinsert(i,listfirst(l),l);
end;
'd' : listdelete(listend(l),l);
'l' : begin
write('number to locate... ');
readln(i);
if listlocate(i,l) <> listend(l) then writeln('found!')
else writeln('not found!');
end;
'f' : writeln(listretrieve(listfirst(l),l));
'p' : listprint(l,output);
end;
end;
end.
