program Lister;

  { Pour imprimer le texte d'un programme Pascal }
  { sur compatible IBM PC.                       }
  
  var T:text; S:string[80];
  
begin {Lister}

  write('Fichier a imprimer?: '); readln(S); assign(T,S);
  {$I-}
  reset(T);
  {$I+}
  if IOresult<>0 then
    writeln('Fichier ',S,' inexistant!')
  else
    while not eof(T) do
      begin readln(T,S); writeln(lst,S); end;
  writeln(lst);
  writeln('Fin de l''impression.');
  
end; {Lister}