PACKET local manager part 2 DEFINES            (* Autor: J.Liedtke *)
                                               (* Stand: 25.02.85  *)
  list :
 
 
TEXT VAR file name, status text;


PROC list :
 
  disable stop ;
  DATASPACE VAR ds := nilspace ;
  FILE VAR list file := sequential file (output, ds) ;
  headline (list file, "list") ;
  list (list file) ;
  show (list file) ;
  forget (ds) .
 
ENDPROC list ;
 
PROC list (FILE VAR f) :
 
  enable stop ;
  begin list ;
  putline (f, "") ;
  REP
    get list entry (file name, status text) ;
    IF file name = ""
      THEN LEAVE list
    FI ;
    write (f, status text + "  """ ) ;
    write (f, file name) ;
    write (f, """") ;
    line (f)
  PER .
 
ENDPROC list ;
 
ENDPACKET local manager part 2 ;