program listst;

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

.