(FILECREATED " 4-Mar-87 17:06:11" ("compiled on " {PHYLUM}KOTO>ARCHIVEBROWSER.;3) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 4-Mar-87 17:04:08" {PHYLUM}KOTO>ARCHIVEBROWSER.;3 28150 changes to: (VARS ARCHIVEBROWSERCOMS) (FNS AB.Delete.Command AB.Retrieve.Command AB.Retrieve.Directory.Command AB.Retrieve.Renamed.Aux AB.Undelete.Command AB ARCHIVEBROWSER AB.Make.Cedar.Filename AB.Retrieve.Renamed.Command) previous date: "22-Sep-86 13:12:01" {QV}LISP>ARCHIVEBROWSER.;4) ARCHIVEBROWSER D1 (P 10Q browser P 7 window P 6 windowregion P 5 promptwindow P 4 promptheight P 3 promptfont P 2 menu I 1 filter I 0 archivefilespec F 11Q AB.browser.font)  `dodi dodgdg dgjdndhHdI gl Kli J lJ L NNNJ NL o hOgggWh JOgg Ogg@g g g@g i g@g gg@g gg@ gAoh Olgl ]O MgjM  MgnM  nM Ogg Oggi gJ Jg (632Q AB.Command.Fn 623Q SASSOC 607Q WINDOWADDPROP 573Q PUTWINDOWPROP 560Q LINELENGTH 551Q PUTWINDOWPROP 537Q \INSUREWINDOW 524Q PUTWINDOWPROP 512Q \INSUREWINDOW 501Q AB.Set.Browser.Title 473Q GETPROMPTWINDOW 470Q FONTCREATE 454Q TB.USERDATA 432Q PACKFILENAME.STRING 415Q FILENAMEFIELD 376Q FILENAMEFIELD 363Q FULLUSERNAME 355Q FILENAMEFIELD 343Q FILENAMEFIELD 335Q DIRECTORYNAME 330Q FILENAMEFIELD 311Q ATTACHMENU 272Q TB.MAKE.BROWSER 241Q CREATEW 232Q CREATEREGION 212Q CHECK/MENU/IMAGE 172Q GETREGION 160Q CHECK/MENU/IMAGE 144Q CHECK/MENU/IMAGE 135Q HEIGHTIFWINDOW 115Q FONTCREATE) (627Q LEFT 616Q MENU 612Q Recompute 603Q AB.Closefn 600Q CLOSEFN 570Q AB.Iconfn 565Q ICONFN 530Q MAXSIZE 505Q MINSIZE 463Q HELVETICA 435Q FILTER 425Q BODY 422Q directory 412Q EXTENSION 406Q EXTENSION 403Q Archive 373Q NAME 367Q NAME 352Q DIRECTORY 346Q DIRECTORY 340Q HOST 325Q HOST 321Q HOST 316Q ARCHIVE 306Q TOP 303Q RIGHT 260Q FONT 255Q AB.Printfn 252Q PRINTFN 215Q BITMAP 163Q BITMAP 147Q BITMAP 124Q FONTDESCRIPTOR 110Q HELVETICA 52Q DEFAULTMENUHELDFN 43Q CLRPROMPT 34Q AB.When.Selected.Fn 2 MENUTYPE#) ( 444Q "*.*" 236Q "" 25Q " Commands " 10Q ((Retrieve AB.Retrieve.Command "Retrieve selected files" (SUBITEMS ("Retrieve selected files" AB.Retrieve.Command "Retrieve selected files") ("Retrieve to directory" AB.Retrieve.Directory.Command "Retrieve selected files to a different directory") ("Retrieve renamed" AB.Retrieve.Renamed.Command "Retrieve selected files specifying new name for each file"))) (Filter AB.Filter.Command "Set filter for displayed file names") (Sort AB.Sort.Command "Sort entries by file name" (SUBITEMS ("Sort by file name" AB.Sort.Command "Sort entries by file name") ("Sort by creation date" (AB.Sort.Command CreationDate) "Sort entries by creation date of the file") ("Sort by archive date" (AB.Sort.Command Archive) "Sort entries by date that the file was archived") (Reverse (AB.Sort.Command Reverse) "Reverse the order of the entries"))) (Recompute AB.Recompute.Command "Redisplay browser items after re-reading archive directory" (SUBITEMS ("Same directory" AB.Recompute.Command "Redisplay browser items after re-reading archive directory") ("New directory" (AB.Recompute.Command T) "Browse a different archive directory"))) ("" NIL "do nothing - a separator") (Delete AB.Delete.Command "Delete selected items") (Undelete AB.Undelete.Command "Undelete selected items" (SUBITEMS ("Undelete selected items" AB.Undelete.Command "Undelete selected items") ("Undelete ALL items" (AB.Undelete.Command T) "Undelete all deleted items"))) ("" NIL "do nothing - a separator so you don't accidentally Expunge") (Expunge AB.Expunge.Command "Expunge deleted items and rewrite the archive directory"))) AB D1 (P 0 patternandfilter I 0 filespec% filter) @ HH h(16Q ARCHIVEBROWSER 3 NLAMBDA.ARGS) NIL () AB.When.Selected.Fn D1 (I 2 Key I 1 Menu I 0 Item) T@P@Kg@ddi3 g@hAddi3 gAhBddi3 gBhhg@ (121Q TB.PROCESS 116Q PACK*) (111Q AB- 75Q QUOTE 53Q QUOTE 31Q QUOTE 13Q AB.Command.Fn) () AB.Command.FnA0001 D1 (NAME ERRORSET P 7 extra P 6 promptwindow P 5 function P 4 I P 2 browser P 1 window P 0 realitem F 10Q item F 11Q menu F 12Q RESETVARSLST F 13Q MENUSELECTSHADE F 14Q RESETY) WW g Ig WW WKVhcJid bgWWjhWWW hWcHI N N M!JOlM$WL LiK[_MJ ci(256Q TB.BROWSER.BUSY 224Q AB.Subitemp 174Q CLEARW 167Q OPENWP 160Q GETPROMPTWINDOW 140Q SHADEITEM 110Q OBTAIN.MONITORLOCK 50Q MEMBER 31Q GETWINDOWUSERPROP 17Q GETWINDOWUSERPROP 11Q WFROMMENU) (115Q SHADEITEM 101Q TABLEBROWSER 57Q MENU 43Q MENU 26Q TABLEBROWSER 14Q MAINWINDOW) () AB.Command.Fn D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 key I 1 menu I 0 item F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q AB.Command.FnA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (AB.Command.FnA0001)) AB.Delete.CommandA0001 D1 (I 1 item I 0 browser F 0 count) @A Pkc(4 TB.DELETE.ITEM) NIL () AB.Delete.Command D1 (P 1 browserpromptwindow P 0 count I 0 browser) Hj@ @g HdjoI I oI HkooI oI (105Q PRIN1 75Q PRIN1 54Q PRIN1 44Q PRIN1 37Q PRIN1 21Q TB.MAP.SELECTED.ITEMS 7 GETPROMPTWINDOW 4 TB.WINDOW) (16Q AB.Delete.CommandA0001) ( 101Q " marked for deletion." 71Q "" 64Q "s" 50Q " item" 33Q "No items marked for deletion.") AB.Expunge.Command D1 (P 7 media P 5 item P 0 directorystream I 0 browser) 1@j@ o@ ghg@ g' g H9@ o@ @ g'@ o@ nH @ g@ g'AI(J @ gH H @ @g @M BMH kH MH MN_H MK Lh[IYL&lH OH kH OH O(450Q PRIN1 437Q SPACES 431Q PRIN1 421Q SPACES 366Q TERPRI 337Q PRIN1 322Q SPACES 314Q PRIN1 277Q TB.ITEM.DELETED? 267Q TB.MAP.DELETED.ITEMS 260Q AB.Set.Browser.Title 254Q CLOSEF 250Q LISTPUT 245Q L-CASE 242Q FULLNAME 233Q TB.USERDATA 227Q LISTPUT 207Q TB.USERDATA 200Q TB.USERDATA 174Q LINELENGTH 164Q PRIN1 161Q GETPROMPTWINDOW 156Q TB.WINDOW 146Q PRIN1 143Q GETPROMPTWINDOW 140Q TB.WINDOW 130Q TB.USERDATA 124Q PRIN1 121Q GETPROMPTWINDOW 116Q TB.WINDOW 105Q GETPROMPTWINDOW 102Q TB.WINDOW 70Q OPENSTREAM 62Q PACKFILENAME 53Q TB.USERDATA 37Q PRIN1 34Q GETPROMPTWINDOW 31Q TB.WINDOW 20Q GETPROMPTWINDOW 15Q TB.WINDOW) (344Q TABLEITEM 327Q TABLEITEM 305Q TABLEITEM 264Q TB.REMOVE.ITEM 236Q ARCHIVE 212Q ALLITEMS 203Q ALLITEMS 133Q ARCHIVE 65Q OUTPUT 56Q ARCHIVE 47Q BODY 43Q VERSION 3 TABLEBROWSER) ( 152Q " ...aborted." 112Q "Error opening (new version of) archive directory " 25Q "Nothing to expunge!") AB.Filter.Command D1 (P 0 pattern I 0 browser) /o@ g'@i H@ gH @ @ (54Q AB.Recompute.Command 50Q AB.Set.Browser.Title 44Q LISTPUT 41Q L-CASE 32Q TB.USERDATA 20Q AB.Prompt.For.Input 7 TB.USERDATA) (35Q FILTER 12Q FILTER) ( 3 "Files matching what? ") AB.Recompute.Command D1 (P 16Q tableitem P 15Q item P 10Q result P 7 filter P 6 userdata P 5 namewidth P 4 region P 3 windowregion P 0 window I 1 newdirectory? I 0 browser F 17Q AB.browser.font) d@ !H jdKK j@ gNg' @YjMII C`dododi dg dgjdndhdJ @ AJoh@i _3NggOg ggOg ggO  AA6O2@ Ng@ QOO NgM @dL @L _`dO_OgO MOW @O O_OOh__O_O&_(500Q TB.INSERT.ITEM 471Q MAX 466Q STRINGWIDTH 453Q DIRECTORY.MATCH 450Q PACKFILENAME 413Q TB.DISPLAY.LINES 410Q TB.LAST.VISIBLE.ITEM# 403Q TB.FIRST.VISIBLE.ITEM# 375Q LISTPUT 365Q LISTPUT 347Q AB.Read.Directory 337Q TB.REPLACE.ITEMS 321Q LISTPUT 316Q PACKFILENAME.STRING 300Q FILENAMEFIELD 260Q FILENAMEFIELD 235Q AB.Prompt.For.Input 217Q AB.Expunge.Command 212Q MENU 115Q \FZEROP 67Q DIRECTORY.MATCH.SETUP 64Q PACKFILENAME 46Q TB.USERDATA 35Q CREATEREGION 12Q \INSUREWINDOW 3 TB.WINDOW) (442Q BODY 423Q TABLEITEMTYPE# 371Q NAMEWIDTH 343Q ALLITEMS 310Q BODY 305Q directory 275Q EXTENSION 270Q EXTENSION 265Q Archive 255Q NAME 250Q NAME 245Q ARCHIVE 163Q DEFAULTMENUHELDFN 154Q CLRPROMPT 122Q MENUTYPE# 76Q TABLEBROWSER 60Q FILTER 54Q BODY) ( 227Q "New archive directory? " 140Q "Expunge deleted items?" 130Q (("Expunge" (QUOTE Expunge) "Expunge items marked for deletion") ("Don't Expunge" NIL "Don't expunge items marked for deletion"))) AB.Retrieve.CommandA0001 D1 (I 1 item I 0 browser F 0 corestream F 1 count) goP AP oP AP oP AP oP AP P Qkc(137Q TERPRI 132Q PRIN1 112Q PRIN1 101Q PRIN1 62Q PRIN1 51Q PRIN1 34Q PRIN1 23Q PRIN1 7 PRIN1) (117Q TABLEITEM 67Q TABLEITEM 41Q TABLEITEM 14Q TABLEITEM) ( 106Q " or " 56Q " from " 30Q " of " 3 "Retrieve: ") AB.Retrieve.CommandA0002 D1 (NAME ERRORSET F 0 corestream) P h(3 LAFITE.SENDMESSAGE) NIL () AB.Retrieve.Command D1 (P 2 corestream P 1 registry P 0 count I 0 browser) bj!dgogoYgg ZnJ oJ J oJ `J IJ J oJ J J J @g Hj6@ o@ J h@ o@ J Z@ o@ `@ I@ o@ H@ o@ Hkoo@ oi @ o@ o@ h(536Q PRIN1 533Q GETPROMPTWINDOW 530Q TB.WINDOW 517Q GETPROMPTWINDOW 514Q TB.WINDOW 502Q GETPROMPTWINDOW 477Q TB.WINDOW 471Q AB.Retrieve.CommandA0002 460Q PRIN1 455Q GETPROMPTWINDOW 452Q TB.WINDOW 430Q PRIN1 425Q GETPROMPTWINDOW 422Q TB.WINDOW 411Q PRIN1 406Q GETPROMPTWINDOW 403Q TB.WINDOW 375Q PRIN1 372Q GETPROMPTWINDOW 367Q TB.WINDOW 356Q PRIN1 353Q GETPROMPTWINDOW 350Q TB.WINDOW 342Q PRIN1 337Q GETPROMPTWINDOW 334Q TB.WINDOW 324Q PRIN1 321Q GETPROMPTWINDOW 316Q TB.WINDOW 305Q GETPROMPTWINDOW 302Q TB.WINDOW 275Q OPENTEXTSTREAM 270Q PRIN1 265Q GETPROMPTWINDOW 262Q TB.WINDOW 251Q GETPROMPTWINDOW 246Q TB.WINDOW 240Q CLOSEF 233Q PRIN1 230Q GETPROMPTWINDOW 225Q TB.WINDOW 214Q GETPROMPTWINDOW 211Q TB.WINDOW 200Q TB.MAP.SELECTED.ITEMS 171Q TERPRI 164Q TERPRI 157Q PRIN1 153Q FULLUSERNAME 147Q PRIN1 136Q TERPRI 131Q PRIN1 123Q PRIN1 113Q PRIN1 102Q TERPRI 75Q PRIN1 65Q LINELENGTH 55Q OPENSTREAM 13Q \LAFITE.INFER.MODE 6 LAFITEMODE) (330Q AB.archivist 175Q AB.Retrieve.CommandA0001 117Q AB.archivist 52Q BOTH 47Q {NODIRCORE} 32Q NS 17Q GV) ( 524Q " failed." 507Q " done." 465Q (AB.Retrieve.CommandA0002) 446Q ": " 441Q "s: " 416Q " file" 363Q " requesting " 312Q "Sending mail to " 256Q "Can't retrieve -- Lafite mode must be set to GV or NS" 221Q "Nothing to retrieve." 143Q "cc: " 107Q "To: " 71Q "Subject: Retrieve request" 43Q ":PA" 26Q ".pa") AB.Retrieve.Directory.CommandA0001 D1 (I 1 item I 0 browser F 0 corestream F 1 count F 2 newdirectory) oP AP oP AP oP AP oP AP oP gRghgA  P P Qkc(206Q TERPRI 201Q PRIN1 175Q AB.Make.Cedar.Filename 172Q PACKFILENAME.STRING 143Q PRIN1 132Q PRIN1 112Q PRIN1 101Q PRIN1 62Q PRIN1 51Q PRIN1 34Q PRIN1 23Q PRIN1 7 PRIN1) (163Q TABLEITEM 157Q BODY 153Q VERSION 147Q DIRECTORY 117Q TABLEITEM 67Q TABLEITEM 41Q TABLEITEM 14Q TABLEITEM) ( 137Q " as " 106Q " or " 56Q " from " 30Q " of " 3 "Retrieve: ") AB.Retrieve.Directory.CommandA0002 D1 (NAME ERRORSET F 0 corestream) P h(3 LAFITE.SENDMESSAGE) NIL () AB.Retrieve.Directory.Command D1 (P 3 newdirectory P 2 corestream P 1 registry P 0 count I 0 browser) oj1dgogoYoh@i [h@ o@ gg ZnJ oJ J oJ `J IJ J oJ J J J @g Hj@ o@ J hJ Z@ o@ `@ I@ o@ H@ o@ Hkoo@ oi @ o@ o@ h(553Q PRIN1 550Q GETPROMPTWINDOW 545Q TB.WINDOW 534Q GETPROMPTWINDOW 531Q TB.WINDOW 517Q GETPROMPTWINDOW 514Q TB.WINDOW 506Q AB.Retrieve.Directory.CommandA0002 475Q PRIN1 472Q GETPROMPTWINDOW 467Q TB.WINDOW 445Q PRIN1 442Q GETPROMPTWINDOW 437Q TB.WINDOW 426Q PRIN1 423Q GETPROMPTWINDOW 420Q TB.WINDOW 412Q PRIN1 407Q GETPROMPTWINDOW 404Q TB.WINDOW 373Q PRIN1 370Q GETPROMPTWINDOW 365Q TB.WINDOW 357Q PRIN1 354Q GETPROMPTWINDOW 351Q TB.WINDOW 341Q PRIN1 336Q GETPROMPTWINDOW 333Q TB.WINDOW 322Q GETPROMPTWINDOW 317Q TB.WINDOW 312Q OPENTEXTSTREAM 304Q CLOSEF 277Q PRIN1 274Q GETPROMPTWINDOW 271Q TB.WINDOW 260Q GETPROMPTWINDOW 255Q TB.WINDOW 244Q TB.MAP.SELECTED.ITEMS 235Q TERPRI 230Q TERPRI 223Q PRIN1 217Q FULLUSERNAME 213Q PRIN1 202Q TERPRI 175Q PRIN1 167Q PRIN1 157Q PRIN1 146Q TERPRI 141Q PRIN1 131Q LINELENGTH 121Q OPENSTREAM 107Q PRIN1 104Q GETPROMPTWINDOW 101Q TB.WINDOW 70Q GETPROMPTWINDOW 65Q TB.WINDOW 54Q AB.Prompt.For.Input 13Q \LAFITE.INFER.MODE 6 LAFITEMODE) (345Q AB.archivist 241Q AB.Retrieve.Directory.CommandA0001 163Q AB.archivist 116Q BOTH 113Q {NODIRCORE} 32Q NS 17Q GV) ( 541Q " failed." 524Q " done." 502Q (AB.Retrieve.Directory.CommandA0002) 463Q ": " 456Q "s: " 433Q " file" 400Q " requesting " 327Q "Sending mail to " 265Q "Nothing to retrieve." 207Q "cc: " 153Q "To: " 135Q "Subject: Retrieve request" 75Q "Can't retrieve -- Lafite mode must be set to GV or NS" 46Q "Directory to retrieve into? " 41Q ":PA" 26Q ".pa") AB.Retrieve.Renamed.CommandA0001 D1 (NAME ERRORSET F 0 corestream) P h(3 LAFITE.SENDMESSAGE) NIL () AB.Retrieve.Renamed.Command D1 (P 2 corestream P 1 registry P 0 count I 0 browser) bj!dgogoYgg ZnJ oJ J oJ `J IJ J oJ J J J @g Hj6@ o@ J h@ o@ J Z@ o@ `@ I@ o@ H@ o@ Hkoo@ oi @ o@ o@ h(536Q PRIN1 533Q GETPROMPTWINDOW 530Q TB.WINDOW 517Q GETPROMPTWINDOW 514Q TB.WINDOW 502Q GETPROMPTWINDOW 477Q TB.WINDOW 471Q AB.Retrieve.Renamed.CommandA0001 460Q PRIN1 455Q GETPROMPTWINDOW 452Q TB.WINDOW 430Q PRIN1 425Q GETPROMPTWINDOW 422Q TB.WINDOW 411Q PRIN1 406Q GETPROMPTWINDOW 403Q TB.WINDOW 375Q PRIN1 372Q GETPROMPTWINDOW 367Q TB.WINDOW 356Q PRIN1 353Q GETPROMPTWINDOW 350Q TB.WINDOW 342Q PRIN1 337Q GETPROMPTWINDOW 334Q TB.WINDOW 324Q PRIN1 321Q GETPROMPTWINDOW 316Q TB.WINDOW 305Q GETPROMPTWINDOW 302Q TB.WINDOW 275Q OPENTEXTSTREAM 270Q PRIN1 265Q GETPROMPTWINDOW 262Q TB.WINDOW 251Q GETPROMPTWINDOW 246Q TB.WINDOW 240Q CLOSEF 233Q PRIN1 230Q GETPROMPTWINDOW 225Q TB.WINDOW 214Q GETPROMPTWINDOW 211Q TB.WINDOW 200Q TB.MAP.SELECTED.ITEMS 171Q TERPRI 164Q TERPRI 157Q PRIN1 153Q FULLUSERNAME 147Q PRIN1 136Q TERPRI 131Q PRIN1 123Q PRIN1 113Q PRIN1 102Q TERPRI 75Q PRIN1 65Q LINELENGTH 55Q OPENSTREAM 13Q \LAFITE.INFER.MODE 6 LAFITEMODE) (330Q AB.archivist 175Q AB.Retrieve.Renamed.Aux 117Q AB.archivist 52Q BOTH 47Q {NODIRCORE} 32Q NS 17Q GV) ( 524Q " failed." 507Q " done." 465Q (AB.Retrieve.Renamed.CommandA0001) 446Q ": " 441Q "s: " 416Q " file" 363Q " requesting " 312Q "Sending mail to " 256Q "Can't retrieve -- Lafite mode must be set to GV or NS" 221Q "Nothing to retrieve." 143Q "cc: " 107Q "To: " 71Q "Subject: Retrieve request" 43Q ":PA" 26Q ".pa") AB.Retrieve.Renamed.Aux D1 (P 0 newname I 1 item I 0 browser F 1 corestream F 2 count) oAo A@o HoQ AQ oQ AQ oQ AQ oQ AQ oQ ghgH Q Q Rkc(246Q TERPRI 241Q PRIN1 235Q AB.Make.Cedar.Filename 232Q PACKFILENAME.STRING 216Q PRIN1 205Q PRIN1 165Q PRIN1 154Q PRIN1 135Q PRIN1 124Q PRIN1 107Q PRIN1 76Q PRIN1 62Q PRIN1 40Q AB.Prompt.For.Input 21Q CONCAT) (226Q BODY 222Q VERSION 172Q TABLEITEM 142Q TABLEITEM 114Q TABLEITEM 67Q TABLEITEM 25Q TABLEITEM 7 TABLEITEM) ( 212Q " as " 161Q " or " 131Q " from " 103Q " of " 56Q "Retrieve: " 35Q "... skipped" 16Q " as ?" 3 "Retrieve ") AB.Sort.CommandA0001 D1 (I 1 y I 0 x) @ A (25Q IDATE 12Q IDATE) (16Q TABLEITEM 3 TABLEITEM) () AB.Sort.CommandA0002 D1 (L (1 y 0 x)) @ANIL (15Q TABLEITEM 3 TABLEITEM) () AB.Sort.CommandA0003 D1 (I 1 y I 0 x) @A (23Q ALPHORDER 20Q UPPERCASEARRAY) (12Q TABLEITEM 3 TABLEITEM) () AB.Sort.Command D1 (P 0 items I 1 sorttype I 0 browser) W@!AgH X HAdggggg HkI @H @ JIJkԺ(103Q TB.REDISPLAY.ITEMS 77Q TB.REPLACE.ITEMS 61Q SORT 22Q DREVERSE) (110Q TABLEITEM 56Q AB.Sort.CommandA0003 52Q AB.Sort.CommandA0002 45Q Archive 41Q AB.Sort.CommandA0001 33Q CreationDate 14Q Reverse 3 TABLEBROWSER) () AB.Undelete.CommandA0001 D1 (I 1 item I 0 browser F 0 count) @A Pkc(4 TB.UNDELETE.ITEM) NIL () AB.Undelete.CommandA0002 D1 (I 1 item I 0 browser F 0 count) @A Pkc(4 TB.UNDELETE.ITEM) NIL () AB.Undelete.Command D1 (P 1 browserpromptwindow P 0 count I 1 all? I 0 browser) Sj@ A@g @g HdjoI I oI HkooI oI (120Q PRIN1 110Q PRIN1 67Q PRIN1 57Q PRIN1 52Q PRIN1 33Q TB.MAP.SELECTED.ITEMS 23Q TB.MAP.DELETED.ITEMS 7 GETPROMPTWINDOW 4 TB.WINDOW) (30Q AB.Undelete.CommandA0002 20Q AB.Undelete.CommandA0001) ( 114Q " undeleted." 104Q "" 77Q "s" 63Q " item" 46Q "No items were undeleted.") AB.Set.Browser.Title D1 (P 1 filter P 0 archive I 0 browser) I@ g'@ g'@ goHoH oIoI o (106Q PUTWINDOWPROP 103Q CONCAT 72Q CONCAT 52Q CONCAT 31Q GETPROMPTWINDOW 26Q TB.WINDOW 13Q TB.USERDATA 3 TB.USERDATA) (34Q TITLE 16Q FILTER 6 ARCHIVE) ( 100Q "" 66Q " - files " 60Q "" 46Q " " 40Q "Archive Browser") AB.Iconfn D1 (P 4 title P 3 host P 2 directory P 1 archive P 0 browser I 1 icon I 0 window) e@g H g'Ig Ig gKgJkJo A`Lgl hddo L A(141Q ICONW.TITLE 134Q TITLEDICONW 121Q FONTCREATE 77Q PACKFILENAME.STRING 74Q SUBSTRING 71Q STRPOS 45Q UNPACKFILENAME.STRING 33Q UNPACKFILENAME.STRING 15Q TB.USERDATA 6 GETWINDOWUSERPROP) (114Q MODERN 110Q AB.titled.icon 57Q DIRECTORY 53Q HOST 42Q HOST 30Q DIRECTORY 20Q ARCHIVE 3 TABLEBROWSER) ( 130Q (175Q) 66Q ">") AB.Closefn D1 (P 0 browser I 0 window) c@g !HYjMII C`dododi dg dgjdndhdJ H h(137Q AB.Expunge.Command 131Q MENU 34Q \FZEROP 6 GETWINDOWUSERPROP) (102Q DEFAULTMENUHELDFN 73Q CLRPROMPT 41Q MENUTYPE# 15Q TABLEBROWSER 3 TABLEBROWSER) ( 57Q "Expunge deleted items?" 47Q (("Expunge" (QUOTE Expunge) "Expunge items marked for deletion") ("Don't Expunge" NIL "Don't expunge items marked for deletion"))) AB.Printfn D1 (P 4 media P 3 datestart P 2 offset P 1 namewidth P 0 entry I 2 window I 1 item I 0 browser F 5 AB.browser.font) A@ g'jhB JIl ػHB IjLIBjBhB hB UKhB U KB HB oB H& oB dLB oB h(227Q PRIN1 216Q PRIN1 202Q PRIN1 170Q \FZEROP 157Q PRIN1 147Q PRIN1 137Q DSPXPOSITION 131Q BLTSHADE 116Q DSPXPOSITION 101Q DSPYPOSITION 74Q DSPXPOSITION 53Q PRIN1 33Q DSPXPOSITION 14Q TB.USERDATA) (123Q FONTDESCRIPTOR 105Q FONTDESCRIPTOR 17Q NAMEWIDTH 3 TABLEITEM) ( 223Q " " 176Q " " 153Q " ") AB.Prompt.For.InputA0001 D1 (NAME ERRORSET F 0 prompt F 1 default F 2 promptwindow) PQhRhgo h(17Q PROMPTFORWORD) (7 TTY) ( 13Q (15Q 33Q)) AB.Prompt.For.Input D1 (P 6 excesswidth P 5 i P 3 result P 2 windowwidth P 1 promptwidth P 0 promptwindow I 3 abortflag I 2 browser I 1 default I 0 prompt) B @H Hg H IAoH JEl @ lIJLM0@M)l M@M H N@@kMk o@Mk bo [dCH KdioH MmԽ(224Q PRIN1 205Q TERPRI 172Q AB.Prompt.For.InputA0001 157Q CONCAT 154Q SUBSTRING 141Q SUBSTRING 125Q STRINGWIDTH 121Q SUBSTRING 66Q NCHARS 53Q STRINGWIDTH 37Q CLEARW 30Q GETWINDOWPROP 16Q STRINGWIDTH 6 GETPROMPTWINDOW 3 TB.WINDOW) (25Q WIDTH) ( 220Q "... aborted" 167Q (AB.Prompt.For.InputA0001) 145Q " " 47Q "XXX") AB.Read.DirectoryA0001 D1 (NAME ERRORSET F 0 browser) P g'g h(15Q OPENSTREAM 3 TB.USERDATA) (12Q INPUT 6 ARCHIVE) () AB.Read.Directory D1 (P 12Q inputline P 11Q end P 10Q start P 4 i P 3 items P 2 promptwindow P 1 linerdtable P 0 directorystream I 0 browser) 5@ g' o g @ H'oJ @ g'J @ g @ h@ gH @ l hhI hdI ka HI _H OkoO _k OOkoOOk _k 0 Ok_k_OOd oOoOO _OOOdk _O6Oh__OOLh_NOh^H H MO&O&_LkԼA(434Q CLOSEF 426Q EOFP 351Q SUBSTRING 331Q STRPOS 304Q SUBSTRING 256Q SUBSTRING 247Q STRPOS 224Q L-CASE 221Q SUBSTRING 212Q STRPOS 175Q READC 166Q RSTRING 155Q SETBRK 147Q SETSEPR 136Q AB.Set.Browser.Title 132Q LISTPUT 127Q L-CASE 124Q FULLNAME 115Q TB.USERDATA 107Q AB.Set.Browser.Title 103Q LISTPUT 75Q TB.USERDATA 71Q PRIN1 61Q TB.USERDATA 54Q PRIN1 36Q GETPROMPTWINDOW 33Q TB.WINDOW 27Q COPYREADTABLE 20Q AB.Read.DirectoryA0001 3 TB.USERDATA) (120Q ARCHIVE 100Q ARCHIVE 64Q ARCHIVE 24Q ORIG 6 ARCHIVE) ( 322Q " " 310Q " " 236Q " " 205Q " " 50Q "Can't find archive directory " 15Q (AB.Read.DirectoryA0001)) AB.Subitemp D1 (P 2 i P 0 sub I 1 item I 0 subitem) 9AHdg@H HIh@J JiIY(54Q AB.Subitemp 30Q MEMBER) (20Q SUBITEMS) () AB.Make.Cedar.Filename D1 (P 0 unpackedfilename I 0 filename) @ oH (21Q PACK 16Q SUBLIS 3 UNPACK) NIL ( 12Q (({ . %[) (} . %]) (; . !))) (PRETTYCOMPRINT ARCHIVEBROWSERCOMS) (RPAQQ ARCHIVEBROWSERCOMS ((* * the user's interface to the archive browser) (FNS ARCHIVEBROWSER AB) ( * * command processing functions) (FNS AB.When.Selected.Fn AB.Command.Fn AB.Delete.Command AB.Expunge.Command AB.Filter.Command AB.Recompute.Command AB.Retrieve.Command AB.Retrieve.Directory.Command AB.Retrieve.Renamed.Command AB.Retrieve.Renamed.Aux AB.Sort.Command AB.Undelete.Command) (* * miscellaneous functions) (FNS AB.Set.Browser.Title AB.Iconfn AB.Closefn AB.Printfn AB.Prompt.For.Input AB.Read.Directory AB.Subitemp AB.Make.Cedar.Filename) (* * the user that gets retrieval requests) (INITVARS (AB.archivist "Archivist")) (* * the structure for an archive entry) (RECORDS AB.item) (* * the icon) (BITMAPS AB.icon AB.icon.mask) (INITVARS (AB.titled.icon ( create TITLEDICON ICON _ AB.icon MASK _ AB.icon.mask TITLEREG _ (CREATEREGION 7 8 60 24)))) (* * the font for the browser, which must be a fixed pitch font for now) (VARS (AB.browser.font (FONTCREATE ( QUOTE TERMINAL) 10))) (* * based on the TableBrowser package) (FILES TABLEBROWSER) (DECLARE: EVAL@COMPILE DONTCOPY (FILES TABLEBROWSERDECLS)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA AB) (NLAML) (LAMA))))) (RPAQ? AB.archivist "Archivist") (RECORD AB.item (AB.Filename AB.Creation.Date AB.Media AB.Sequence.Number)) (RPAQ AB.icon (READBITMAP)) (73 73 "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "O@@@@@@AN@@@@@@@@AH@" "ML@@@@@CK@@@@@@@@AH@" "LOOOOOOOOOOOOOOOOIH@" "LJ@@@@@DHG@@@@@@AIH@" "LK@@@@AHHAL@@@@@FIH@" "LIH@@@A@H@GH@@@@LIH@" "LHF@@@G@H@@OL@@GHIH@" "LHC@@COOOOOOGOOO@IH@" "LHAH@C@CN@@A@@@F@IH@" "LH@LON@FK@@A@@AL@IH@" "LH@FNBAOOOOA@@CL@IH@" "LH@CLBCHHL@A@@FH@IH@" "LH@AKOOOOOOI@@MH@IH@" "LH@ADB@@L@LA@AI@@IH@" "LH@ANB@@L@CA@FA@@IH@" "LH@@KCOOOOOOMOC@@IH@" "LH@@IH@CL@@@CJB@@IH@" "LH@@HH@FF@@@GBB@@IH@" "LH@@HDALG@@@LFC@@IH@" "LH@@HCOOOOOOHDA@@IH@" "LH@@HCL@F@@G@DA@@IH@" "LH@@HAOOOOOO@DAH@IH@" "OH@AHAOOOOOO@D@H@IH@" "LO@C@AOOOOOO@D@L@IH@" "LION@CAHC@FA@D@GHIH@" "LH@N@F@HA@LA@D@AOIH@" "LH@GNL@DAAHAHBAO@IH@" "LH@BGO@CAB@@LCOB@IH@" "LH@B@MNAIFAOOO@F@IH@" "LH@B@DCLOMNCHB@D@IH@" "LH@B@D@COO@F@B@D@IH@" "LH@B@D@@FGLB@B@D@IH@" "LH@B@L@GL@CO@C@F@IH@" "LH@B@HCL@@@GNAHC@IH@" "LH@FAKL@@@@@AOLAHIH@" "LH@DAL@@@@@@@AN@LIH@" "LH@OO@@@@@@@@@CNFIH@" "LHCL@@@@@@@@@@@CNIH@" "OOO@@@@@@@@@@@@@AIH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LH@@@@@@@@@@@@@@@IH@" "LOOOOOOOOOOOOOOOOIH@" "L@@@@@@@@@@@@@@@@AH@" "L@@@@@@@@@@@@@@@@AH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@") (RPAQ AB.icon.mask (READBITMAP)) (73 73 "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@" "OOOOOOOOOOOOOOOOOOH@") (RPAQ? AB.titled.icon (create TITLEDICON ICON _ AB.icon MASK _ AB.icon.mask TITLEREG _ (CREATEREGION 7 8 60 24))) (RPAQ AB.browser.font (FONTCREATE (QUOTE TERMINAL) 10)) (FILESLOAD TABLEBROWSER) (PUTPROPS ARCHIVEBROWSER COPYRIGHT ("Xerox Corporation" 1986 1987)) NIL