[0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) @JE  }~=d-@+ U3}{ c [T3`j w$ '; * 4W}'R@X*V!m.w,~%x Cn 32)2O/C00_B1.c.s322#/!11<&/93.y0s1Sb9+0a111/[0Ju1}H2U=Qb32?\w9y C%AJ9;1&.0.E7F& DIRED& DIRED ..F& DIRED Automatic Delete& DIRED Automatic One File& DIRED Complement Reap-Bit& DIRED Delete File& DIRED Delete Through& DIRED Enter& DIRED Examine File& DIRED Help& DIRED Move File& DIRED Next Hog& DIRED Next Undumped& DIRED Primary File& DIRED Quaternary File& DIRED Refresh& DIRED Reverse Undelete& DIRED Secondary File& DIRED SRCCOM File& DIRED Tertiary File& DIRED Undelete& DIRED View File& DIRED ^R Enter& Reap File ListClean DirectoryCompare DirectoriesList DirectoriesList FilesReap File~DIRECTORY~~DOC~ & DIRED~DOC~ & DIRED ..F~DOC~ & DIRED Automatic Delete~DOC~ & DIRED Automatic One File~DOC~ & DIRED Complement Reap-Bit~DOC~ & DIRED Delete File~DOC~ & DIRED Delete Through~DOC~ & DIRED Enter~DOC~ & DIRED Examine File~DOC~ & DIRED Help~DOC~ & DIRED Move File~DOC~ & DIRED Next Hog~DOC~ & DIRED Next Undumped~DOC~ & DIRED Primary File~DOC~ & DIRED Quaternary File~DOC~ & DIRED Refresh~DOC~ & DIRED Reverse Undelete~DOC~ & DIRED Secondary File~DOC~ & DIRED SRCCOM File~DOC~ & DIRED Tertiary File~DOC~ & DIRED Undelete~DOC~ & DIRED View File~DOC~ & DIRED ^R Enter~DOC~ & Reap File List~DOC~ ~DOC~ Clean Directory~DOC~ Compare Directories~DOC~ List Directories~DOC~ List Files~DOC~ Reap File~DOC~ ~FILENAME~~FILENAME~~INVERT~0l"L.-b'"#.-z'"efg1' <.-z; "lb-.;-l' 1a-32"efD1@v' "gl'> 00l.-z"efg1' 3f= L"nfg1' f[dfilee[fne] [1.+6,.+12x1 [2.+13,.+19x2 et1 2 1:"nfg1' fsifileu2 .,(diT:l! 2).(l)[.5[.6u.6q.6"l-1u.5-q.6u.6'"#1u.5' q.6< >0l1m(m.mdescribe)& DIRED[5[6[7[8.[9 0l6:cw6x5 <0l.u8.-z;6c6x50l -(ff"n'"#2'fo..qFile Versions Kept)u6 q6;> q8-z"Eq9jfg1' 10f[%centerfswindow"l:f' f[^rvpos q7jL1f[reread0@v f]rereadw fs^rvpos-(FSLINESF"EWFSHEIGHT-(FSECHOLINES)-1'"#-(FSTOPLIN)')( f]^rvpos )"Gq8j1:F' q8j0FF"E:m(m.m& DIRED Automatic One File)' BJ<.-z; m(m.m& DIRED Automatic One File)R> BJ0L[02fo..QFile Versions Kept[2 .-z"Efg1' .f[VB.+6,.+12x0 0[3fsz-.f[VZ j7a-_"e <.-z;fDl>jh' <.-z; 13c 6@f0123456789 -6"n0l0;' %3wl> -q2l QTemp File FN2 Listu0 J<.-z;.+13,.+19:FB0"L0lFD'L> JH0l[0 ff"E0,1afDT"L .-b"g -l1afDT:"L-1u0' l''' q0"L.-b'"#.-z'"efg1' q0< q0"lb-.;-l' .-z; 1afDT+1"g f 1f19c ! "n fkc:k0@v' 0l' q0"gl'> 0-:m(m.m& DIRED Undelete)m(M.M& DIRED Move File)DSK:m(M.M& DIRED Move File)SECOND:m(M.M& DIRED Move File)THIRD:m(M.M& DIRED Move File)FOURTH:0l"L.-b'"#.-z'"efg1' [1[2[3f[DFile FsMachine et* * 5,f Move to[4 f[bbindgDIRED Top Lines f]bbind <.-z; "Lb-.;-L' 2c1a-L"N 4c6x17c6x2 et1 2f[DFile :E_4: 17cF  0lf  fsDDev:f6u3f]DFile 2cf0  f=3SECOND"E F6AI-QH"Ef3' "#f13'' f=3THIRD"Ef14' f=3FOURTH"Ef16' ' "GL'> 0l"L.-b'"#.-z'"efg1' 0fo..qSRCCOM switchesf"ew:i*/e/y'[2 [1<.-z; "Lb-.;-L' 6c6x1f61fsDFn1 7c6x1f61fsDFn2 fsDFileu1  :vk:srccom 12 "GL'> 0l"L.-b'"#.-z'"efg1' [1[2[3f[DFile <.-z; "Lb-.;-L' 2c1a-L"N 4c6x17c6x2 et1 2 1,ER FSIFReapU3 1-Q3FSIFReapWEC 17cQ3"EF$'"#F '' 0L"GL'> [1[2f[DFile @fn|0[DIRED Old Refreshm(m.m& DIRED Refresh)| qDIRED Old Refreshf[Refresh qDIRED Old Topf[TopqDIRED Old Linesf[Lines 0l"L.-b'"#.-z'"efg1' <.-z; "Lb-.;-L' 6c6x17c6x2ET1 2 m(m.mView File) "GL'> "G-L'[1[2f[DFile0[..F @fn|0[DIRED Old Refreshm(m.m& DIRED Refresh)| qDIRED Old Refreshf[Refresh qDIRED Old Topf[TopqDIRED Old Linesf[Lines 0l"L.-b'"#.-z'"efg1' <.-z; "Lb-.;-L' 6c6x17c6x2et1 2 1,ER 0Lf[Windowf[BBind fsDFn2f6 J@f0123456789kz"E !f6fsDFn2' @y 1FSReadOnly :I*[DIRED Examine Mode: 1 2 ][..JFR  ]..Jf]BBindf]Window "GL'> "G-L'vFS^RMODE"E' [0[1[20@V <2,M.I@:FI:FCU0 Q0F XQUNT!?DKSECH$MV1234U1 Q0-200.FaaaaaaaaDKF"GU1' Q1+1"GFI FS^RARGP&2"N FS^RARG'"#1'U2 FS^RARGP&4"N-Q2U2' FS^REXPT FS^RARGP"NQ2'@M:DIRED Dispatch(Q1)(0FS^RARGPW0FS^RARGW0FS^REXPTW -1FS^RPREVW 0FSECHOACT"N:I*CFSECHODIS' )@V!' @:FIFS^RINDIRU0 AFS^RINIT-Q0"E FIWFG!' 0;>00F[^RENTER M.M& DIRED ..F[..F 1F[^RMDLYW0F[^RMCNT m.m& DIRED HelpF[HELPMAC M.VDIRED Dispatch [DIRED Dispatch 23*5FSQVECTOR[0 Q0UDIRED Dispatch -1[1 FS^RINITU:0(%1) M.M^R Extended CommandU:0(%1) 27FS^RINITU:0(%1) M.M& DIRED UndeleteU:0(%1) M.M& DIRED Next HogU:0(%1) M.M& DIRED Delete ThroughU:0(%1) M.M& DIRED Next UndumpedU:0(%1) M.M& DIRED HelpU:0(%1) M.M& DIRED Delete FileU:0(%1) Q:0(Q1)U:0(%1) M.M& DIRED Secondary FileU:0(%1) M.M& DIRED Examine FileU:0(%1) M.M& DIRED Reverse UndeleteU:0(%1) M.M& DIRED Primary FileU:0(%1) M.M& DIRED SRCCOM FileU:0(%1) M.M& DIRED Automatic DeleteU:0(%1) M.M& DIRED Complement Reap-BitU:0(%1) M.M& DIRED Move FileU:0(%1) M.M& DIRED View FileU:0(%1) M.M& DIRED Primary FileU:0(%1) M.M& DIRED Secondary FileU:0(%1) M.M& DIRED Tertiary FileU:0(%1) M.M& DIRED Quaternary FileU:0(%1) 0[DIRED Old Refresh m(m.m& DIRED Refresh) ]DIRED Old Refresh ]1]00 sf[BBindwf[DFilewf[SStringw1f[FnamSyntax[0 :fo..qDIRED Top Lines"L m.vDIRED Top Lines m.vDIRED Old Lines m.vDIRED Old Refresh m.vDIRED Old Top @fn|m.mKill Variable mKDIRED Top LinesmKDIRED Old Lines mKDIRED Old RefreshmKDIRED Old Top]K|' '#[DIRED Top Lines [DIRED Old Lines [DIRED Old Refresh [DIRED Old Top' fsLinesuDIRED Old Lines fsRefreshuDIRED Old Refresh fsTopuDIRED Old Top m.m& DIRED ^R Enterf[^Renter QBuffer Filenamesf"Nu0ET0' [1f6 NULLf[DFn1fsDFn1:f6u1 5,f Directory: u0et0 fsDFn1:f6u0f=01f"nwq0'u1 f]DFn1wFF"GfsDFn1:f6u1' 1:"N :i*NAME1 UPu0 q0m.CDIRED use DIR device*0 to not use DIR:, or DIR device file names' Q0"EEZ' "#f[DFilefsDDev:f6[2FQ2-3"G :I*WTD Device name 2 too long for DIR deviceFSERR' ERDIR2:0@y]2f]DFile' j2lb,.fxDIRED Top Lines ETGAZONK .DEL Q1"N :i11 fq1+6u0 <.-Z;.+6,.+q0f=1"nK'"#L'> BJZ-."EI No files with g1ias FN1 '' [..J:I..JDIRED[1[2[3[4 F[WINDOW 10F[%Center 0FSMODIF f -1u3:i1 ji  <.-z; 3a-L"N .+6,.+12f=1"E 13c.(\u4)-."L q4-q2"Gq4u2 0l.(q3jf )j19c\wc.u3!''' "#:i1 13c.(\u2)-."L0l.+6,.+12x120c\wc.u3!''' l> jl<.-z; 1af *"ll'"#k'>!   L; 0lfx1.(q2jg1.u2)+fq1j2r> q2j<.-z;6d14c:i1  .u31:fb!"N1:f1!q3j' !<"N0:f1>q3j' 1:fb$"N2:f1$q3j' :k0lg1l> q2j<.-z;:lfswidth-(fshpos)-18"gi k'"#l'>0a-12."Ni ''' ' jkz"e' f f]bbindw > 0u..h [1[2bj <.-z; 1f=D"e.(6c6x17c6x2)j 1:"N FT Delete of 1 2 failed '' 1f=T"e.(! :x1)j 1:"n FT Delete of 1 failed '' l> qDIRED Old Refreshf"n[1m(q1(]1))' fsQPPtr( 0f[Refreshf[Window qDIRED Old TopfsTopw2fsLinesw qDIRED Top Lines[0:ft00u..H fsTop+2fsTop qDIRED Old Linesf"n-2'"#w0'fsLinesw )fsQPUnwindw[0[1[2[3[4[5[6[7[8[9 F[BBINDF[SSTRING1F[FNAMSYNTAX F[DFILE [..J:I..JDirectory ComparisonFR ET FSDSNAME:F6U0 FSDDEVICE:F6U2 F=2AI"NF=2ML"NF=2DM"NF=2MC"N f=2KL"nf=2MX"nf=2MD"nf=2KS"nf=2DSK"n :I*NSM No Such Machine as 2FSERR''''''''' FSDFN1&7700000000./100000000.+40.:I6 FSDFN1:F6U3 F=3/6"N:I6W' 6U6 Q6FWSDL"LWU6' :I4 @:I7` :L2FWKI0L@FX4 Q6-L"E.('-L .+6,.+12F=5"E13C\-Q9"L0LK' "#LK-L'' "#L'>)J' <.-Z;2DG() 1F=L"NF  18C4,\(-FWK)\ .,(S R.)KI  1F=!"NI '"#C' 1F=$"NI '"#C' 9+.-(S .)F"G,32I' :L-3D' L> ` FTReading local directory.  EZDSK: J2X1 Q1M7 FTReading foreign directory.  ZJ.U3EZ2: Q3JQ2M7 FTSorting and merging them.  6C13CLZJ I Q THISIS A-FAKE 42 CHAR FILE NAME LINE  JG4 ZJ-KJ 0U..H0[..F  [6[7[8[9 -F[FNAMSYNF[BBINDF[SSTRING 0F[CASE U6FF&1"E2FO..QFile Versions KeptU6 Q6:"G@FEAORFSERR'' Q6"L@FEAORFSERR' 0FO..QBuffer FilenamesF"EW'F[DFile' 5,F File to deleteu7 ET7 F[DFILE FSDDEVICE:F6U8FQ8-3"G :I*WTD Device name 8 too long for DIR deviceFSERR' ERDIR8:FIRSTX  YKKEC F]DFILE FSDFN1:F6U8 Z"E:I*No files with first name 8FSERR' "n2,'Q6M(M.M& Reap File List) 30:W 0U..HF[DFILE[1[2[3[5:i2 QTemp File FN2 List[4 FNHK ZJ <0LB-.;-L 13C6@F 0123456789-6"E 0L0;' 0L &2"'n+(31a-$"'n)"n 7a-_"eofoo' .+13,.+19:FB4"L !foo! FTDelete: 0l6cTFT(Y or N): FSFLUSH"NF+L!' FIU5Q5- "E F+L!' FT5  Q5FYy+1"G 13X51: FTDeleted.  0LK!''' > L.,Z@FX2 &1"NJL.-Z"E'' ZJ-L :I3 &2"e ' ZJ-L .(G2G3)J .U2 &1"N.-B"E'' !Redisp! Q2J 0FSFLUSHEDU3Q3"N:FT' FTSaving these files:  <.-Z;6CTL> Q2-B"EFT ...and no other files to delete.  ' FTDelete these files?  Q2J FT(Y or N)? Q3"EFSFLUSHED"NFIWF+ORedisp'' FIU1Q1- "EF+ORedisp' FT1FT  Q2,ZK Q1:FC-Y"N FTNot deleted ' J<.-Z;6C13X11:WL> FTDeleted. 0FO..QBuffer FilenamesF"EW'F[DFILE F[BBINDF[SSTRING 5,F Directory: T0 [1[3[6F[BBIND U3"E2FO..QFile Versions KeptU3' Q3:"G@FEAORFSERR' Q3:\U1 FSDSNAME:F6U6 [..J:I..JChecking 6 directory for files with >1 versions...FR FSDDEVICE:F6U1FQ1-3"G :I*WTD Device name 1 too long for DIR deviceFSERR' F[DFILEERDIR1:NAME1 UP F]DFILE @YJKK <.-Z; 6C6X1 FSZ-.FSVZ "N2+'1,Q3M(M.M& Reap File List) HK0FSVZ> 0U..Hf[BBindf[sstring 1,f Dir: [1 EZ1;JL0U1 0[40[2-1[3 :<:FB#;%4w\-13"Ec\u3' "#c\+q2u2'>w q4"E:ftNon-Directory Device ' J:FT:TFT Free: Q2:= Q3:"LFT+Q3:=' J2K0U20U3 <.-z+2; fswidth/16<.-z+2; 40.U1 1A-*"E*u1' 3A-L"E:u1' .( q1-:"N 2c2F~13"e4+14C\+q3U3' "#4+14C\+q2U2' 2A-!"E q1-40."E!U1''' )j6dq1I 14CKI > -@f KI > ji, Used: g2I+G3I  ht:FV0pf[DFilef[BBind erDSK:M.F.D. (FILE)@Y:LL JD -@f kI .-z;> HT:FVDIREDDirectory Editor SubsystemS Delete current file.S Delete file which link points to.S Move to the next file not dumped on tape.S Type our help msg.S Move to the next file of which there are more than two (or arg) copies.S Put D's next to versions of the current file that need it. With an argument, the entire directory is processed, not just the current file. Obeys the following flags: File Versions Kept Temp File FN2 ListS Put D's next to deletable versions of one file.S Undo the effect of a previous D command.S Move up one line and undo a D.S Move current file onto FIRST:.S Move current file onto SECOND:.S Move current file onto THIRD:.S Move current file onto FOURTH:.S Move current file onto specified deviceS Valret a :SRCCOM of current fileS Complement don't-reap bit of current fileS Enter View File on the current fileS Enter recursive ^R on the current fileS ..F macro to make ^R understand DIRED commands. It reads DIRED commands and executes them. When a control- or meta- character is typed, it is left for ^R to execute.S FS ^R ENTER for DIRED. Puts & DIRED ..F into ..F so that this ^R becomes a DIRED command loop.r C Edit a directory. The string argument may contain device colon, directory semicolon, and a file name. If the string contains a file name, or there is a numeric argument, only files with the specified or defaulted first name appear. Enters ^R mode with the directory in the buffer. D deletes the file which is on the current line. (also K,^D,^K) U undeletes the current line file. Rubout undeletes the previous line file. H puts D's by files that seem to need them. ^UH does whole dir. Space is like ^N - moves down a line. N moves to the next file of which there are more than 2 copies. (n M.VFile Versions Kept to find more than n copies). T deletes Through a link, ie. what the link points to. The file shown in the deletion list, will be the file pointed to. ! finds the next "!" (not backed up) file. 1 moves the file onto a primary pack. 2 moves the file onto SECOND:. 3 moves the file onto THIRD:. 4 moves the file onto FOURTH:. M asks you for a device and/or directory and moves the file there. If you specify a different directory the old copy is left behind. C valrets a :SRCCOM, you must hit yourself. E read-only recursive edit on current file. V View File on current file. $ complements the don't-reap bit ? types this cruft. Q lists files to be deleted and asks for confirmation: Typing YES deletes them; X or Q aborts; N resumes DIRED. The D,U,!,P,S,M,C,E,V commands repeat if given an argument, backwards if negative.S Redisplay the screen in DIREDC Compare directories on different ITS machines. Takes string argument that should contain the name of the directory to compare, the name of the foreign machine (as a device name), and (optionally) a switch: /W, /S, /D or /L. /W (the default) means show Whole dir (all files). /S means show all files that are the Same in the two dirs. /D means show all files that Differ. /L means show only Last file for given FN1-machine pair. Example: MM Compare Directories MC:LISP;/S.oC Delete old versions of a file. Takes filename as string argument (FN2 is ignored). Offers to delete all matching files with numeric FN2 except for the most recent few. Files with the don't-reap bit are exempt unless Reap File is given a nonzero pre-comma argument. The number of versions kept is the numeric argument, or QFile Versions Kept if no argument (usually 2). In addition, if there is a file with FN2 = XGP, @XGP, MEMO, etc. you are given the chance to delete it too.S Delete some of the files listed in the buffer. The buffer should contain a part of a directory listing, containing all the files with a given FN1. The number of versions to keep should be given as a numeric argument. This subroutine figures out which files ought to be deleted, asks the user about them, and then deletes them after confirmation. The buffer contents are all killed. The virtual boundaries are respected. "1," as argument causes these files not to be mentioned at all if there are no files to delete (nothing is typed out). "2," means delete even files with the don't reap bit set.C Try to reap the specified directory. Takes the directory name as a string argument; default is visited one. Does (essentially) MM Reap File on each FN1 in the directory, which finds the excess versions and offers to delete them. A numeric arg specifies the number of versions to keep. We also offer to delete any file whose first name starts with "_". Files with the don't-reap bit are never deleted unless Clean Directory is given a nonzero pre-comma argument.C Brief directory listing. Lists directory N entries to a line, with the following special characters to the left of the filenames: : this is a link ! this file has not been backed up to tape yet * this file has really been deleted but not yet closed, or is otherwise locked. (blank) this is a plain normal file Also the top line contains in order, the device being listed from, the directory, Free: followed by the number of free blocks on the device, Used: followed by the number of blocks this directory is taking up. C List names of all file directories.& DIRED Delete File & DIRED Delete Through & DIRED Next Undumped & DIRED Help & DIRED Next Hog & DIRED Automatic Delete & DIRED Automatic One File & DIRED Undelete & DIRED Reverse Undelete & DIRED Primary File & DIRED Secondary File & DIRED Tertiary File & DIRED Quaternary File & DIRED Move File & DIRED SRCCOM File & DIRED Complement Reap-Bit & DIRED View File & DIRED Examine File & DIRED ..F & DIRED ^R Enter & DIRED & DIRED Enter & DIRED Refresh Compare Directories Reap File & Reap File List Clean Directory List Files List Directories +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2