.#* , Dired_Buffer+' *dired*°, Dired_Buffer* 7 Dired_Current_Directory+ý , Dired_Bufferþ ( keymap_p.ý , Dired_Bufferþ + make_keymap/bý* dired_find" \r , Dired_Bufferþ ) definekeyý* dired_find! f , Dired_Bufferþ ) definekeyý* dired_view! v
 , Dired_Bufferþ ) definekeyý) dired_tag! d , Dired_Bufferþ ) definekeyý. .1 dired_untag! u , Dired_Bufferþ ) definekeyý* dired_move! m , Dired_Bufferþ ) definekeyý, dired_delete! x , Dired_Bufferþ ) definekeyý. .1 dired_point" ^N
 , Dired_Bufferþ ) definekeyý. .1 dired_point! n , Dired_Bufferþ ) definekeyý. .1 dired_point!   , Dired_Bufferþ ) definekeyý2 .1 chs dired_point" ^P , Dired_Bufferþ ) definekeyý2 .1 chs dired_point! p , Dired_Bufferþ ) definekeyý
1 dired_flag_backup! ~ , Dired_Bufferþ ) definekeyý, dired_rename! r , Dired_Bufferþ ) definekeyý0 dired_reread_dir! g , Dired_Bufferþ ) definekeyý- describe_mode! h , Dired_Bufferþ ) definekeyý0 dired_quick_help! ? , Dired_Bufferþ ) definekeyý
* dired_quit! q , Dired_Bufferþ ) definekey,ý , Dired_Bufferþ & delbufy* dired_quit,* # dir+* $ cdir+ + Null_String°$ cdir* $ last+ + Null_String°$ last* $ this+* ! n $ file " ch+ý # dirþ & strlen°! nýý # dir ! n! 1þ & substrþ # int" 93B. # dirw/c.
¹! n ! n.v/býý # dir ! n! 1þ & substrþ # int°" ch " ch" 46A " ch" 91AD.v/c/e " ch" 91A.ý # dir! 1 ! nþ & substr' 000000]9/.ý # dir! 1 ! n! 1:þ & substr! ]9/d°$ cdirý # dir ! n! 19ý # dirþ & strlenþ & substr°$ fileý $ file! 1ý $ fileþ & strlen
! 1:þ & substr$ .dir9°$ file $ cdir $ file9y- dired_vms_dir,* # dir+* $ file % flags & spaces+"   °& spacesý # dirþ - dired_vms_dir°# dirý # dirþ + file_status! 2A.ýý # dir , Dired_Bufferþ & dircatþ . parse_filenameP°7 Dired_Current_Directory
 7 Dired_Current_Directory°# dir/.ý # dirþ . parse_filename°# dir°7 Dired_Current_Directory/dý 7 Dired_Current_Directoryþ 2 change_default_dir.ý0 Failed to chdir.þ % error/cý , Dired_Bufferþ & sw2buf + getbuf_info°% flagsPP°$ fileý $ file
 7 Dired_Current_Directory , Dired_Buffer % flagsþ + setbuf_infoýQ  DIRED: %b   (%m%n)  (%p)  |  press '?' for help.! 0þ / set_status_lineý! 0þ , set_readonly , erase_bufferý , Dired_Bufferþ * use_keymapý% dired! 0þ ( set_modeý
A directory/size/date/prot/notrail  # dir9þ ) shell_cmd # bob ) push_marký! 3þ ' go_down * del_region.ý & spacesþ & insert/. & down_1/k # bobý# == þ & insertý 7 Dired_Current_Directoryþ & insert ' newlineý! 0þ 8 set_buffer_modified_flagý! 1þ
 , set_readonlyý  þ % flushy. dired_read_dir* 0 Dired_Quick_Help+n d:tag file, u:untag, x:delete tagged files, r:rename, h:more help, ?:this help°0 Dired_Quick_Help,ý 0 Dired_Quick_Helpþ ' messagey0 dired_quick_help,ý 7 Dired_Current_Directoryþ
 . dired_read_diry0 dired_reread_dir,* $ dirn+ $ dirn! 0?. ) go_down_1/. $ dirn! 0=. ' go_up_1/c/d # bolý! 2þ ( go_righty+ dired_point,* $ name $ type # ext ( stat_buf+ # bol $ bobpN°$ type $ type.ý! 2þ ( go_rightý$ .DIRþ % ffind.! 2°$ type/.
 * skip_white + what_column! 3?.! 0°$ type/c/d/c $ type. # bol + Null_String $ typew/bý! 0þ + dired_point ) push_marký" 59þ * ffind_charPý$ ;0-9þ * skip_chars ) bufsubstr°$ nameý! 0þ + dired_point $ name $ typewy- dired_getfile,* $ type+.ý! 1þ
 + dired_point/o - dired_getfile°$ typeP $ type! 1B.w/cý! 0þ , set_readonly # bolý" 68þ + insert_char # delý! 0þ 8 set_buffer_modified_flagý! 1þ , set_readonlyy) dired_tag,* $ dirn+ $ dirn! 0=. $ up_1.ý. Top of Buffer.þ % error/b/c # bolý" 68þ
 / looking_at_char.ý! 0þ , set_readonlyý" 32þ + insert_char # delý! 0þ 8 set_buffer_modified_flagý! 1þ , set_readonly/c $ dirn! 0?.ý! 1þ + dired_point/cy+ dired_untag,* & prompt # msg + op_function+* $ lbuf+,  *Deletions*°$ lbuf* % stack ! n
 % fails+ + Null_String°% fails* $ file+ý , Dired_Bufferþ & setbuf - push_spot_bob ) _stkdepth°% stack.ý ) _stkdepth % stack:þ & _pop_ný , Dired_Bufferþ & sw2bufý! 0þ , set_readonly # bob.ý" 37þ 0 bol_fsearch_char/.ý" 68þ + insert_char # del/f
 ( pop_spotý! 0þ 8 set_buffer_modified_flagý! 1þ , set_readonly/ný! 0þ , set_readonly.ý" 68þ 0 bol_fsearch_char/.ý" 37þ + insert_char # del - dired_getfileP/f ) _stkdepth % stack:°! n ! n.ý( No tags!þ % error/bý $ lbufþ & sw2buf , erase_buffer ! n.
 & insert ' newline/i # bob 8 buffer_format_in_columnsý & promptþ * get_yes_no! 1A.ý , Dired_Bufferþ & sw2buf # bob.ý" 37þ 0 bol_fsearch_char/. - dired_getfileP°$ file # bol ) push_spotý 7 Dired_Current_Directory $ fileþ & dircat°$ fileý $ fileþ
 + op_functionM. ( pop_spotý # msg $ file9þ % flush ) push_mark ) go_down_1 * del_region ) go_left_1/. ( pop_spot!   $ file9±% failsý" 32þ + insert_char # del/d/f/c 3 EXECUTE_ERROR_BLOCKý % failsþ & strlen.ý1 Operation Failed: % fails9þ ' message/c
y6 dired_xop_tagged_files,ý2 Delete these files( Deleted }+ delete_fileþ 6 dired_xop_tagged_filesy, dired_delete* 5 Dired_Move_Target_Dir+,* $ file+* $ name+ - dired_getfileP°$ nameý 5 Dired_Move_Target_Dir $ nameþ & dircat°$ nameý $ file $ nameþ
 + rename_fileNy- dired_do_move,ý+ Move to dirþ 3 read_file_from_mini°5 Dired_Move_Target_Dirý 5 Dired_Move_Target_Dirþ + file_status! 2B.ý8 Expecting directory nameþ % error/c. Move these to  5 Dired_Move_Target_Dir9ý& Moved }- dired_do_moveþ
 6 dired_xop_tagged_filesy* dired_move,* $ oldf $ type # len ! f ! n " nf " nd " od & status+ - dired_getfile°$ type°$ oldf $ type.w/bý, Rename %s to $ oldfþ ' sprintfýþ 3 read_file_from_mini°! ný ! nþ + file_status°& status & status! 1A.ý
9 File exists. Not renamed.þ % error/. & status! 2A.ý ! n $ oldfþ & dircat°! n/c/dý ! nþ . parse_filename°" nf°" ndý 7 Dired_Current_Directory $ oldfþ & dircat°! fý ! fþ . parse_filenameP°" odý ! f ! nþ + rename_file.ý1 Operation Failed!þ % error/cý
! 0þ , set_readonlyýý " odþ % strupý " ndþ % strupþ & strcmp. + delete_line/.ý! 0þ + dired_point ) push_markýý $ oldfþ & strlenþ ( go_right * del_regioný " nfþ & insert/dý! 1þ + dired_pointý! 0þ 8 set_buffer_modified_flagý! 1þ , set_readonly
y, dired_rename,ýý* Directory:þ 3 read_file_from_miniþ . dired_read_dir 0 dired_quick_helpý* dired_hookþ . run_mode_hooksy% dired,* $ name $ type+ - dired_getfile°$ type°$ nameý 7 Dired_Current_Directory $ nameþ & dircat°$ name $ type! 1A.ý $ nameþ
 ) read_file.ý4 Unable to read file.þ % error/bý ' whatbufþ ' pop2buf/. $ type! 2A.ý $ nameþ . dired_read_dir/c/dy* dired_find,* $ name $ type+ - dired_getfile°$ type°$ nameý 7 Dired_Current_Directory $ nameþ & dircat°$ name $ type! 1A.ý $ nameþ
 ) read_file.ý4 Unable to read file.þ % error/bý ' whatbufþ ' pop2buf ) most_mode/cy* dired_view