     procedure (help_disfp) display_file_permit, display_file_permits, disfp (
      file, files, f : any of key all, ..
                              keyend, ..
                              list of file, ..
                       anyend = $working_catalog
     status)
    var
      disfp_file          : file
      disfp_file_list     : list of file = $file_list(file)
      disfp_message       : string
    varend
     " display each file's permissions

    for each disfp_file in disfp_file_list do
     if $file(disfp_file,assigned) then
       display_value v='file permissions for '//$string(disfp_file)
       display_catalog_entry f=disfp_file do=p

    "this file does not exist

     else
       disfp_message=$string(disfp_file)//' does not exist.'
       display_message m=disfp_message
       display_value   v=disfp_message
     ifend
    forend

    procend display_file_permit
