( [0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0))  Id  ))Y -O ?: w  Vk w  > q & Default Get File Property& Get File Property& SCHEME Get File Property& Setup HISTORY LibraryDefine SystemEdit System History~DIRECTORY~~DOC~ & Default Get File Property~DOC~ & Get File Property~DOC~ & SCHEME Get File Property~DOC~ & Setup HISTORY Library~DOC~ Define System~DOC~ Edit System History~DOC~ ~Filename~~Filename~~INVERT~m.mEdit System Historyu...~ m(m.m& Get File Property)Systemf"n[7' "#w:i*NAS File has no associated systemfserr' qMode[4 f[dfile [5 qBuffer Filenamesf"nu5et5w fsdfileu5' "#0u5' 1:"efsifileu5' 0fo..QSystem 7 History Filef"n[8' "#w fsosteco"e!"e :i*Cfsechodisplay @ftHistory file reverted. ' "#@ft (failed)' 0fsechoactive'' "#!"!:i*Cfsechodisplay @ftDon't forget to save history file 8!  0fsechoactive' zjfsmodified"nm(m.m^R Save File)' 0,0a- "ni ' i ### fsdatefsfdconvi by g(fsxuname:f6) i, re:  q5"nq5fsdfile fsosteco"eg(fsdsname:f6)i;g(fsdfn1:f6)i g(fsdfn2:f6)' "#fsosteco-1"ei<g(fsdsname)i>g(fsdfn1) i.g(fsdfn2)i.g(fsdversion)' "#g(fsdfile)'' :lq9"ni (in module g9i)'' "#q9"nimodule g9'"#i ?? '' i ###  0fsmodified :i*(Editing System 7 History) 8 [..J 1fsmodech  q2-q..O"e fsmodified"nm(m.m^R Save File)'' qmode[0 1,m.m& 0 Get File Propertyu0 q0"n:m(q0(]0))' "#]0w:m(m.m& Default Get File Property)'v:i*[2[1 .:\u1fn1j f[vbf[vz0,(fsz)fsbound j:s (:"loPunt' 6f~HERALD"noPunt' 6c0,1a:"boPunt' 1:<.,(0lfllr.)fsbound >"noPunt' j: f~2MODULE"e j1:<:@fll 0,1a-("n0,1a-;"n0,1a"n @flx*'''>' 0 !Punt! m(m.m& Default Get File Property)2 !Win! 1:<2:@fll@flx*>"n0':i*[2[1 .:\u1fn1j f[vbf[vz0,(fsz)fsbound j1:fb-*-:"l0' .,(1:fb-*-:"l0'fkc.)fsboundwj :s2::"l0' .,(:s;:"lzj'"#r'-s c.)x*1,f System: ( 5,f Filename[2)[1 q2m.vSystem 1 History File 0HISTORYLibrary to keep track of file edit histories& Set up for using history editorS Edit a system's history& Get property from file property list & Scheme Hook for file properties & Default way to get value of file property String arg is the property name. The return value is a string if such a property was found, or 0 if no such property found. S Define a system for the Edit System History macro String args are system name and system history file& Setup HISTORY Library Edit System History & Get File Property & SCHEME Get File Property & Default Get File Property Define System +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2