Interlisp.medley/lispusers/ARCHIVEBROWSER.LCOM

(FILECREATED "16-Nov-93 17:15:55" ("compiled on " 
{DSK}<king>export>lispcore>lispusers>ARCHIVEBROWSER.;1) "11-Nov-93 16:58:33" bcompl'd in 
"Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44")
(FILECREATED " 4-Mar-87 17:04:08" {PHYLUM}<LISPUSERS>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}<BRIGGS>LISP>ARCHIVEBROWSER.;4)
ARCHIVEBROWSER D8
(P 8 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 9 AB.browser.font) %	
`do¿di¿do¿dg¿dg ¿dg¿jdnÿdh
HdI
¿
gl


lKÈ
Öi
J		l<>ÔJ		LÔ

N
N
N
J		ÕN
LÕo

hOgggWh
JOggOgg@g
µg
g@g
µ	i	
g@g
µgg@g
µgg@
gAµoh
Olgl

]O	MgjM	É
MgnúM	É
nÿÿM
OggOggigJÉ
Jg(546 AB.Command.Fn 535 SASSOC 517 WINDOWADDPROP 499 PUTWINDOWPROP 482 LINELENGTH 473 PUTWINDOWPROP 461 \INSUREWINDOW 446 PUTWINDOWPROP 434 \INSUREWINDOW 421 AB.Set.Browser.Title 413 GETPROMPTWINDOW 408 FONTCREATE 392 TB.USERDATA 369 PACKFILENAME.STRING 350 FILENAMEFIELD 327 FILENAMEFIELD 310 FULLUSERNAME 302 FILENAMEFIELD 286 FILENAMEFIELD 276 DIRECTORYNAME 269 FILENAMEFIELD 246 ATTACHMENU 225 TB.MAKE.BROWSER 192 CREATEW 182 CREATEREGION 169 BITMAPWIDTH 164 CHECK/MENU/IMAGE 146 GETREGION 139 BITMAPHEIGHT 134 CHECK/MENU/IMAGE 125 BITMAPWIDTH 120 CHECK/MENU/IMAGE 111 HEIGHTIFWINDOW 91 FONTCREATE)
(541 LEFT 528 MENU 522 Recompute 511 AB.Closefn 506 CLOSEFN 494 AB.Iconfn 489 ICONFN 452 MAXSIZE 427 MINSIZE 401 HELVETICA 374 FILTER 362 BODY 357 directory 345 EXTENSION 339 EXTENSION 334 Archive 322 NAME 316 NAME 297 DIRECTORY 291 DIRECTORY 281 HOST 264 HOST 258 HOST 253 ARCHIVE 241 TOP 236 RIGHT 213 FONT 208 AB.Printfn 203 PRINTFN 102 FONTDESCRIPTOR 84 HELVETICA 52 DEFAULTMENUHELDFN 43 CLRPROMPT 34 AB.When.Selected.Fn 4 MENUTYPE#)
( 382 "*.*" 187 "" 25 " Commands " 11 ((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 D8
(P 0 patternandfilter I 0 filespec% filter) 

@	
H
H

h(18 ARCHIVEBROWSER 5 NLAMBDA.ARGS)
NIL
()
AB.When.Selected.Fn D8
(I 2 Key I 1 Menu I 0 Item) e@´a@
´\g@d²dið¬3µg@hAd²dið¬3µgAhBd´dið¬3µgBhhg@


(98 TB.PROCESS 93 PACK*)
(86 AB- 72 QUOTE 51 QUOTE 30 QUOTE 13 AB.Command.Fn)
()
AB.Command.FnA0001 D8
(NAME SI*UNWIND-PROTECT* P 7 extra P 6 promptwindow P 5 function P 4 I P 2 browser P 1 window P 0 realitem I 0 SI*CLEANUP-FORMS* F 8 item F 9 menu F 10 SI*RESETFORMS* F 11 MENUSELECTSHADE) Ð
W
W	g


Ig

WWÉ
³WÉKµahc¿JÉid²kgWWjhWWWhWcH
I	N	–N	¿Mµ!JOlM
¼WL
•Lµ–i°“K[°Š
_¿M
½°ÙJ	(205 TB.BROWSER.BUSY 177 AB.Subitemp 153 CLEARW 146 OPENWP 137 GETPROMPTWINDOW 120 SHADEITEM 92 OBTAIN.MONITORLOCK 54 MEMBER 35 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 11 WFROMMENU)
(99 SHADEITEM 83 TABLEBROWSER 63 MENU 47 MENU 30 TABLEBROWSER 16 MAINWINDOW)
()
AB.Command.Fn D8
(P 2 RESETSTATE P 1 SI*RESETFORMS* P 0 LISPXHIST I 2 key I 1 menu I 0 item F 3 LISPXHIST) 
S!g		¿$
(23 SIRESETUNWIND 18 \MVLIST 13 AB.Command.FnA0001)
(8 SIRESETUNWIND)
()
AB.Delete.CommandA0001 D8
(I 1 item I 0 browser F 0 count) 
@A
PkÔc(6 TB.DELETE.ITEM)
NIL
()
AB.Delete.Command D8
(P 1 browserpromptwindow P 0 count I 0 browser) _
j@		
@g
Hdjðœ¿oI
I
oI
Hkñ•o„oI
oI
(92 PRIN1 81 PRIN1 60 PRIN1 49 PRIN1 42 PRIN1 25 TB.MAP.SELECTED.ITEMS 11 GETPROMPTWINDOW 6 TB.WINDOW)
(20 AB.Delete.CommandA0001)
( 86 " marked for deletion." 75 "" 69 "s" 54 " item" 36 "No items marked for deletion.")
AB.Expunge.Command D8
(P 9 media P 7 item P 1 directorystream I 0 browser) 
<01>

@Èjð²@		
oH
ghg@	g'g
I³7@		ºoJ
@	g'J
oJ
nÿÿI
@	g@	g'AKµ<L@	gI		I	@	@g

_¿@O
³UOÉ
I
¿kI
¿OÉ
I
¿OÉ
	O_³I	O¾Mµ
Nh]¼K[±ÿ_N&½°÷lI
¿O
I
¿kI
¿O
I
¿O°´(376 PRIN1 365 SPACES 357 PRIN1 347 SPACES 316 TERPRI 287 PRIN1 269 SPACES 261 PRIN1 243 TB.ITEM.DELETED? 230 TB.MAP.DELETED.ITEMS 219 AB.Set.Browser.Title 213 CLOSEF 207 LISTPUT 202 L-CASE 197 FULLNAME 186 TB.USERDATA 180 LISTPUT 160 TB.USERDATA 149 TB.USERDATA 143 LINELENGTH 133 PRIN1 122 PRIN1 110 TB.USERDATA 104 PRIN1 92 GETPROMPTWINDOW 87 TB.WINDOW 75 OPENSTREAM 65 PACKFILENAME 54 TB.USERDATA 36 PRIN1 22 GETPROMPTWINDOW 17 TB.WINDOW)
(295 TABLEITEM 277 TABLEITEM 252 TABLEITEM 225 TB.REMOVE.ITEM 191 ARCHIVE 165 ALLITEMS 154 ALLITEMS 115 ARCHIVE 70 OUTPUT 59 ARCHIVE 48 BODY 42 VERSION 5 TABLEBROWSER)
( 127 " ...aborted." 98 "Error opening (new version of) archive directory " 30 "Nothing to expunge!")
AB.Filter.Command D8
(P 0 pattern I 0 browser) B

o@	g'@i
H´$@	gH	@	@	(63 AB.Recompute.Command 57 AB.Set.Browser.Title 51 LISTPUT 46 L-CASE 35 TB.USERDATA 23 AB.Prompt.For.Input 10 TB.USERDATA)
(40 FILTER 15 FILTER)
( 4 "Files matching what? ")
AB.Recompute.Command D8
(P 16 tableitem P 15 item P 10 result P 9 filter P 8 userdata P 7 namewidth P 6 region P 5 windowregion P 0 window I 1 newdirectory? I 0 browser F 17 AB.browser.font) 
Í
@	AH	É
jdM
M
j_¿@	
gOg'
	
@ÈYjð³[I—I	³O`do¿do¿di¿dg ¿dg¿jdnÿdhºdJ
¿	–@	¿A²foh@i_²LOggOg
µggOg
µggO
¿A–A´KO´G@	Og@	QOµ-OOgO@dN
@N

_¿`dO¿_ ¿OgO


²"OO
W"
¼[Ló‘K€L_¿@O 
¿O _¿OµOh__¿O_±ÿrO&_¿°ò(424 TB.INSERT.ITEM 405 STRINGWIDTH 391 DIRECTORY.MATCH 386 PACKFILENAME 351 TB.DISPLAY.LINES 346 TB.LAST.VISIBLE.ITEM# 339 TB.FIRST.VISIBLE.ITEM# 331 LISTPUT 317 LISTPUT 301 AB.Read.Directory 288 TB.REPLACE.ITEMS 272 LISTPUT 267 PACKFILENAME.STRING 247 FILENAMEFIELD 223 FILENAMEFIELD 195 AB.Prompt.For.Input 178 AB.Expunge.Command 171 MENU 100 \FZEROP 74 DIRECTORY.MATCH.SETUP 69 PACKFILENAME 48 TB.USERDATA 35 CREATEREGION 14 \INSUREWINDOW 5 TB.WINDOW)
(378 BODY 361 TABLEITEMTYPE# 324 NAMEWIDTH 295 ALLITEMS 259 BODY 254 directory 242 EXTENSION 235 EXTENSION 230 Archive 218 NAME 211 NAME 206 ARCHIVE 146 DEFAULTMENUHELDFN 137 CLRPROMPT 107 MENUTYPE# 83 TABLEBROWSER 63 FILTER 56 BODY)
( 187 "New archive directory? " 123 "Expunge deleted items?" 114 (("Expunge" (QUOTE Expunge) "Expunge items marked for deletion") ("Don't Expunge" NIL "Don't expunge items marked for deletion")))
AB.Retrieve.CommandA0001 D8
(I 1 item I 0 browser F 0 corestream F 1 count) …oP
¿AÉ
P
¿oP
¿AÉ
P
¿oP
¿AÉ

P
¿oP
¿AÉ

P
¿P	QkÔc(125 TERPRI 118 PRIN1 98 PRIN1 86 PRIN1 67 PRIN1 55 PRIN1 38 PRIN1 26 PRIN1 10 PRIN1)
(105 TABLEITEM 74 TABLEITEM 45 TABLEITEM 17 TABLEITEM)
( 92 " or " 61 " from " 32 " of " 4 "Retrieve: ")
AB.Retrieve.CommandA0002 D8
(P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 2 corestream F 3 SINLSETQ-VALUE) i@
R	hcg(10 LAFITE.SENDMESSAGE)
(19 NORMAL)
()
AB.Retrieve.Command D8
(P 10 SI*NLSETQFLAG* P 9 *PROCEED-CASES* P 8 SINLSETQ-VALUE P 2 corestream P 1 registry P 0 count I 0 browser F 11 *PROCEED-CASES*) 
³

jqµdgð–¿oŽg𢱱oYgg
ZnÿÿJ
oJ
¿J	¿oJ
¿`J
¿IJ
¿J	¿oJ
¿J
¿J	¿J	@g
Hjð²:@		¼oL
¿J	h@		»oK
J	Z@		½oM
¿`M
¿IM
¿oM
¿HM
¿oM
¿Hkð¥o„oM
¿`W
O	gð´O
²@		¾oN
¿°@		_¿oO
h(431 PRIN1 416 GETPROMPTWINDOW 411 TB.WINDOW 402 PRIN1 390 GETPROMPTWINDOW 385 TB.WINDOW 364 AB.Retrieve.CommandA0002 342 PRIN1 320 PRIN1 308 PRIN1 300 PRIN1 288 PRIN1 280 PRIN1 268 PRIN1 256 GETPROMPTWINDOW 251 TB.WINDOW 244 OPENTEXTSTREAM 237 PRIN1 225 GETPROMPTWINDOW 220 TB.WINDOW 212 CLOSEF 205 PRIN1 193 GETPROMPTWINDOW 188 TB.WINDOW 177 TB.MAP.SELECTED.ITEMS 166 TERPRI 159 TERPRI 152 PRIN1 146 FULLUSERNAME 140 PRIN1 128 TERPRI 121 PRIN1 113 PRIN1 101 PRIN1 89 TERPRI 82 PRIN1 71 LINELENGTH 61 OPENSTREAM 15 \LAFITE.INFER.MODE 8 LAFITEMODE)
(370 NORMAL 351 SINLSETQ-PROCEED-CASE 274 AB.archivist 172 AB.Retrieve.CommandA0001 107 AB.archivist 56 BOTH 51 {NODIRCORE} 35 NS 21 GV)
( 424 " failed." 396 " done." 336 ":  " 330 "s:  " 314 " file" 294 " requesting " 262 "Sending mail to "
 231 "Can't retrieve -- Lafite mode must be set to GV or NS" 199 "Nothing to retrieve." 134 "cc: " 95 "To: "
 76 "Subject: Retrieve request" 45 ":PA" 29 ".pa")
AB.Retrieve.Directory.CommandA0001 D8
(I 1 item I 0 browser F 0 corestream F 1 count F 2 newdirectory) ½oP
¿AÉ
P
¿oP
¿AÉ
P
¿oP
¿AÉ

P
¿oP
¿AÉ

P
¿oP
¿gRghgAÉ

	P
¿P	QkÔc(181 TERPRI 174 PRIN1 168 AB.Make.Cedar.Filename 163 PACKFILENAME.STRING 130 PRIN1 118 PRIN1 98 PRIN1 86 PRIN1 67 PRIN1 55 PRIN1 38 PRIN1 26 PRIN1 10 PRIN1)
(154 TABLEITEM 148 BODY 142 VERSION 136 DIRECTORY 105 TABLEITEM 74 TABLEITEM 45 TABLEITEM 17 TABLEITEM)
( 124 " as " 92 " or " 61 " from " 32 " of " 4 "Retrieve: ")
AB.Retrieve.Directory.CommandA0002 D8
(P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 2 corestream F 3 SINLSETQ-VALUE) i@
R	hcg(10 LAFITE.SENDMESSAGE)
(19 NORMAL)
()
AB.Retrieve.Directory.Command D8
(P 11 SI*NLSETQFLAG* P 10 *PROCEED-CASES* P 9 SINLSETQ-VALUE P 3 newdirectory P 2 corestream P 1 registry P 0 count I 0 browser F 12 *PROCEED-CASES*) 
Æ

j<11>µdgð–¿oŒgð²oYoh@i[³h@		¼oL
gg
ZnÿÿJ
oJ
¿J	¿oJ
¿`J
¿IJ
¿J	¿oJ
¿J
¿J	¿J	@g
Hjð²"@		½oM
¿J	hJ	Z@		¾oN
¿`N
¿IN
¿oN
¿HN
¿oN
¿Hkð¥o„oN
¿	`WO	gð´O
²@		_¿oO
¿°@		_¿oO
h(450 PRIN1 435 GETPROMPTWINDOW 430 TB.WINDOW 421 PRIN1 406 GETPROMPTWINDOW 401 TB.WINDOW 380 AB.Retrieve.Directory.CommandA0002 358 PRIN1 336 PRIN1 324 PRIN1 316 PRIN1 304 PRIN1 296 PRIN1 284 PRIN1 272 GETPROMPTWINDOW 267 TB.WINDOW 260 OPENTEXTSTREAM 252 CLOSEF 245 PRIN1 233 GETPROMPTWINDOW 228 TB.WINDOW 217 TB.MAP.SELECTED.ITEMS 206 TERPRI 199 TERPRI 192 PRIN1 186 FULLUSERNAME 180 PRIN1 168 TERPRI 161 PRIN1 153 PRIN1 141 PRIN1 129 TERPRI 122 PRIN1 111 LINELENGTH 101 OPENSTREAM 85 PRIN1 73 GETPROMPTWINDOW 68 TB.WINDOW 57 AB.Prompt.For.Input 15 \LAFITE.INFER.MODE 8 LAFITEMODE)
(386 NORMAL 367 SINLSETQ-PROCEED-CASE 290 AB.archivist 212 AB.Retrieve.Directory.CommandA0001 147 AB.archivist 96 BOTH 91 {NODIRCORE} 35 NS 21 GV)
( 443 " failed." 414 " done." 352 ":  " 346 "s:  " 330 " file" 310 " requesting " 278 "Sending mail to "
 239 "Nothing to retrieve." 174 "cc: " 135 "To: " 116 "Subject: Retrieve request" 79 "Can't retrieve -- Lafite mode must be set to GV or NS"
 49 "Directory to retrieve into? " 43 ":PA" 29 ".pa")
AB.Retrieve.Renamed.CommandA0001 D8
(P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 2 corestream F 3 SINLSETQ-VALUE) i@
R	hcg(10 LAFITE.SENDMESSAGE)
(19 NORMAL)
()
AB.Retrieve.Renamed.Command D8
(P 10 SI*NLSETQFLAG* P 9 *PROCEED-CASES* P 8 SINLSETQ-VALUE P 2 corestream P 1 registry P 0 count I 0 browser F 11 *PROCEED-CASES*) 
³

jqµdgð–¿oŽg𢱱oYgg
ZnÿÿJ
oJ
¿J	¿oJ
¿`J
¿IJ
¿J	¿oJ
¿J
¿J	¿J	@g
Hjð²:@		¼oL
¿J	h@		»oK
J	Z@		½oM
¿`M
¿IM
¿oM
¿HM
¿oM
¿Hkð¥o„oM
¿`W
O	gð´O
²@		¾oN
¿°@		_¿oO
h(431 PRIN1 416 GETPROMPTWINDOW 411 TB.WINDOW 402 PRIN1 390 GETPROMPTWINDOW 385 TB.WINDOW 364 AB.Retrieve.Renamed.CommandA0001 342 PRIN1 320 PRIN1 308 PRIN1 300 PRIN1 288 PRIN1 280 PRIN1 268 PRIN1 256 GETPROMPTWINDOW 251 TB.WINDOW 244 OPENTEXTSTREAM 237 PRIN1 225 GETPROMPTWINDOW 220 TB.WINDOW 212 CLOSEF 205 PRIN1 193 GETPROMPTWINDOW 188 TB.WINDOW 177 TB.MAP.SELECTED.ITEMS 166 TERPRI 159 TERPRI 152 PRIN1 146 FULLUSERNAME 140 PRIN1 128 TERPRI 121 PRIN1 113 PRIN1 101 PRIN1 89 TERPRI 82 PRIN1 71 LINELENGTH 61 OPENSTREAM 15 \LAFITE.INFER.MODE 8 LAFITEMODE)
(370 NORMAL 351 SINLSETQ-PROCEED-CASE 274 AB.archivist 172 AB.Retrieve.Renamed.Aux 107 AB.archivist 56 BOTH 51 {NODIRCORE} 35 NS 21 GV)
( 424 " failed." 396 " done." 336 ":  " 330 "s:  " 314 " file" 294 " requesting " 262 "Sending mail to "
 231 "Can't retrieve -- Lafite mode must be set to GV or NS" 199 "Nothing to retrieve." 134 "cc: " 95 "To: "
 76 "Subject: Retrieve request" 45 ":PA" 29 ".pa")
AB.Retrieve.Renamed.Aux D8
(P 0 newname I 1 item I 0 browser F 1 corestream F 2 count) ä
oAÉ
oAÉ
@o
H´‚±¯oQ
¿AÉ
Q
¿oQ
¿AÉ
Q
¿oQ
¿AÉ

Q
¿oQ
¿AÉ

Q
¿oQ
¿ghgH	Q
¿Q	RkÔc(220 TERPRI 213 PRIN1 207 AB.Make.Cedar.Filename 202 PACKFILENAME.STRING 184 PRIN1 172 PRIN1 152 PRIN1 140 PRIN1 121 PRIN1 109 PRIN1 92 PRIN1 80 PRIN1 64 PRIN1 43 AB.Prompt.For.Input 23 CONCAT)
(196 BODY 190 VERSION 159 TABLEITEM 128 TABLEITEM 99 TABLEITEM 71 TABLEITEM 29 TABLEITEM 10 TABLEITEM)
( 178 " as " 146 " or " 115 " from " 86 " of " 58 "Retrieve: " 38 "... skipped" 18 " as ?" 4 "Retrieve ")
AB.Sort.CommandA0001 D8
(I 1 y I 0 x) !@É
	AÉ
	ñ(29 IDATE 14 IDATE)
(20 TABLEITEM 5 TABLEITEM)
()
AB.Sort.CommandA0002 D8
(I 1 y I 0 x) @É
AÉ
ýñNIL
(17 TABLEITEM 5 TABLEITEM)
()
AB.Sort.CommandA0003 D8
(I 1 y I 0 x) @É
AÉ
(27 ALPHORDER 22 UPPERCASEARRAY)
(14 TABLEITEM 5 TABLEITEM)
()
AB.Sort.Command D8
(P 3 item P 2 i P 0 items I 1 sorttype I 0 browser) s@É
Agð˜H	X°-HAdgð—¿g°gð•g„g
¿HkIµ@H
@	
[JÍ
¿I¹JkÔº°Û(92 TB.REDISPLAY.ITEMS 86 TB.REPLACE.ITEMS 68 SORT 24 DREVERSE)
(100 TABLEITEM 63 AB.Sort.CommandA0003 57 AB.Sort.CommandA0002 50 Archive 43 AB.Sort.CommandA0001 35 CreationDate 16 Reverse 5 TABLEBROWSER)
()
AB.Undelete.CommandA0001 D8
(I 1 item I 0 browser F 0 count) 
@A
PkÔc(6 TB.UNDELETE.ITEM)
NIL
()
AB.Undelete.CommandA0002 D8
(I 1 item I 0 browser F 0 count) 
@A
PkÔc(6 TB.UNDELETE.ITEM)
NIL
()
AB.Undelete.Command D8
(P 1 browserpromptwindow P 0 count I 1 all? I 0 browser) nj@		
A›@g
Š@g
¿Hdjðœ¿oI
I
oI
Hkð¥o„oI
oI
(107 PRIN1 96 PRIN1 75 PRIN1 64 PRIN1 57 PRIN1 39 TB.MAP.SELECTED.ITEMS 27 TB.MAP.DELETED.ITEMS 11 GETPROMPTWINDOW 6 TB.WINDOW)
(34 AB.Undelete.CommandA0002 22 AB.Undelete.CommandA0001)
( 101 " undeleted." 90 "" 84 "s" 69 " item" 51 "No items were undeleted.")
AB.Set.Browser.Title D8
(P 1 filter P 0 archive I 0 browser) d
@	g'@	g'
@		goHœoH
µoIœoI
µo(97 PUTWINDOWPROP 92 CONCAT 80 CONCAT 60 CONCAT 37 GETPROMPTWINDOW 32 TB.WINDOW 17 TB.USERDATA 5 TB.USERDATA)
(42 TITLE 22 FILTER 10 ARCHIVE)
( 87 "" 74 " - files " 67 "" 54 " " 47 "Archive Browser")
AB.Iconfn D8
(P 4 title P 3 host P 2 directory P 1 archive P 0 browser I 1 icon I 0 window) ‹@g

H	g'

Ig

Ig

gKgJkJo

Aµ#`Lgl
hddo
L
A(135 ICONW.TITLE 128 TITLEDICONW 114 FONTCREATE 90 PACKFILENAME.STRING 85 SUBSTRING 80 STRPOS 53 UNPACKFILENAME.STRING 39 UNPACKFILENAME.STRING 19 TB.USERDATA 10 GETWINDOWUSERPROP)
(107 MODERN 101 AB.titled.icon 67 DIRECTORY 61 HOST 48 HOST 34 DIRECTORY 24 ARCHIVE 5 TABLEBROWSER)
( 122 (125) 75 ">")
AB.Closefn D8
(P 0 browser I 0 window) w
@g
!HÈYjð³[I—I	³O`do¿do¿di¿dg ¿dg¿jdnÿdhºdJ
¿	´	H	h(115 AB.Expunge.Command 107 MENU 36 \FZEROP 10 GETWINDOWUSERPROP)
(82 DEFAULTMENUHELDFN 73 CLRPROMPT 43 MENUTYPE# 19 TABLEBROWSER 5 TABLEBROWSER)
( 59 "Expunge deleted items?" 50 (("Expunge" (QUOTE Expunge) "Expunge items marked for deletion") ("Don't Expunge" NIL "Don't expunge items marked for deletion")))
AB.Printfn D8
(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'µj

hB

JIØl
Ø
H
B
Ijð³aIµUjBhB
hB
UÈ	ÙKhB
ÙUÈ

¿KB
¿H
B
oB
H
°0	²¨oB
°Ód

LB
¿oB
µåh(192 PRIN1 180 PRIN1 166 PRIN1 153 \FZEROP 142 PRIN1 131 PRIN1 121 DSPXPOSITION 113 BLTSHADE 98 DSPXPOSITION 81 DSPYPOSITION 74 DSPXPOSITION 55 PRIN1 35 DSPXPOSITION 16 TB.USERDATA)
(105 FONTDESCRIPTOR 87 FONTDESCRIPTOR 21 NAMEWIDTH 5 TABLEITEM)
( 186 " " 160 " " 136 "   ")
AB.Prompt.For.InputA0001 D8
(P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 2 prompt F 3 default F 4 promptwindow F 5 SINLSETQ-VALUE) %i@
RShThgo
hc
g(25 PROMPTFORWORD)
(34 NORMAL 14 TTY)
( 19 (13 27))
AB.Prompt.For.Input D8
(P 10 *CONDITION-HANDLER-BINDINGS* P 9 SI*NLSETQFLAG* P 8 *PROCEED-CASES* P 7 SINLSETQ-VALUE 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 F 11 *PROCEED-CASES* F 12 *CONDITION-HANDLER-BINDINGS*) ìB		
@H


Hg
H	IAµoH
ØJñ²Yl
@	lÙIJÙLMó³B@M
l 𢱂@M
H
Nñ²p@kMmÿØo@MkØ
b¿`WioW
O	gð´O
[d¢Cµ
H	Kdið•¿oH
¿°çMmÿÔ½±ÿi(223 PRIN1 205 TERPRI 180 AB.Prompt.For.InputA0001 146 CONCAT 141 SUBSTRING 127 SUBSTRING 112 STRINGWIDTH 106 SUBSTRING 92 NTHCHARCODE 71 NCHARS 58 STRINGWIDTH 43 CLEARW 34 GETWINDOWPROP 20 STRINGWIDTH 10 GETPROMPTWINDOW 5 TB.WINDOW)
(186 NORMAL 158 SINLSETQ-PROCEED-CASE 29 WIDTH)
( 217 "... aborted" 167 (CLERROR . SINLSETQHANDLER) 132 "
" 52 "XXX")
AB.Read.DirectoryA0001 D8
(P 1 SI*CATCH-RETURN-FROM* P 0 SI*DUMMY-FOR-CATCH* F 2 browser F 3 SINLSETQ-VALUE) &i@
R	g'g
hcg(26 OPENSTREAM 10 TB.USERDATA)
(35 NORMAL 21 INPUT 15 ARCHIVE)
()
AB.Read.Directory D8
(P 14 inputline P 13 end P 12 start P 8 i P 7 items P 6 promptwindow P 5 linerdtable P 4 directorystream P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SINLSETQ-VALUE I 0 browser F 18 *PROCEED-CASES* F 19 *CONDITION-HANDLER-BINDINGS*) 
«
@	g'´+`W$ioW&I	gð´H
g	@		L³9oN
¿@	g'N
@	gh@	h@	gL		@	l
hhMhdMkaLM
_¿L	¿OkoO
_kÙ	OOkØoOOkØ_kÙ0OkØ_kØ_¿OOdoô“O°èoOO_¿OOOd‘kÙ_"¿O µBO"h_ _¿Oµ´OOh_¿OµOh__¿L	²L	OO&_¿°éO"&_ ¿°ÃOkÔ_¿±ÿ(396 CLOSEF 388 EOFP 336 SUBSTRING 318 STRPOS 293 SUBSTRING 269 SUBSTRING 260 STRPOS 238 L-CASE 233 SUBSTRING 224 STRPOS 208 READC 199 RSTRING 188 SETBRK 180 SETSEPR 169 AB.Set.Browser.Title 163 LISTPUT 158 L-CASE 153 FULLNAME 142 TB.USERDATA 134 AB.Set.Browser.Title 128 LISTPUT 117 TB.USERDATA 111 PRIN1 99 TB.USERDATA 92 PRIN1 75 GETPROMPTWINDOW 70 TB.WINDOW 64 COPYREADTABLE 42 AB.Read.DirectoryA0001 5 TB.USERDATA)
(147 ARCHIVE 122 ARCHIVE 104 ARCHIVE 59 ORIG 48 NORMAL 21 SINLSETQ-PROCEED-CASE 10 ARCHIVE)
( 309 " " 298 " " 249 "  " 217 " " 86 "Can't find archive directory " 30 (CLERROR . SINLSETQHANDLER))
AB.Subitemp D8
(P 2 i P 0 sub I 1 item I 0 subitem) ?A

Hd²
gð´@H
µHIµh
º@J
”JµiIY°é(50 AB.Subitemp 28 MEMBER)
(18 SUBITEMS)
()
AB.Make.Cedar.Filename D8
(P 0 unpackedfilename I 0 filename) 

@	
oH
	(24 PACK 19 SUBLIS 5 UNPACK)
NIL
( 13 (({ . %[) (} . %]) (; . !)))
(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