(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "19-Jul-2023 09:30:47" ("compiled on " |{WMEDLEY}FILEBROWSER.;25|) "18-Jul-2023 23:56:35" |brecompiled| |exprs:| |nothing| |in| "FULL 18-Jul-2023 ..." |dated| "18-Jul-2023 23:56:41") (FILECREATED "19-Jul-2023 09:30:47" |{WMEDLEY}FILEBROWSER.;25| 265978 :EDIT-BY |rmk| :CHANGES-TO (VARS FILEBROWSERCOMS) :PREVIOUS-DATE "18-Jul-2023 22:19:30" |{WMEDLEY}FILEBROWSER.;24|) FB :D8 (L (0 PATTERN)) n@ AHH[Y?ggLghgKhgJhhgg hd IdKIZ (102 LDIFF 86 CL:KEYWORDP 77 ADD.PROCESS 5 NLAMBDA.ARGS) (72 FB 67 NAME 53 QUOTE 44 QUOTE 36 * 28 QUOTE 23 FILEBROWSER) () FB.COPYBINARYCOMMAND :D8 (L (0 BROWSER)) @ggo (21 FB.COPY/RENAME.COMMAND) (10 COPYFILE 5 |Copy|) ( 15 ((TYPE BINARY))) FB.COPYTEXTCOMMAND :D8 (L (0 BROWSER)) @ggo (21 FB.COPY/RENAME.COMMAND) (10 COPYFILE 5 |Copy|) ( 15 ((TYPE TEXT))) FILEBROWSER :D8 (L (2 OPTIONS 1 ATTRIBUTES 0 FILESPEC)) +h` ` `opBdddl Bd3ihB_hbBd_$O$_"_ dgO"_lgO"_^O gO dgO"EgO dgO".gO"_ O O ` _ sAx`b`d`dJdi dkdgdKdg dgjdndh_*dO* _ _`` H i ^O5ho@ O`lMNlI _@`OOOO_ONMIO _`O Og`dOd`lla` _,dO,dgdOk`u` aAO4O6_<` 2`#`h_(_&;hOOL>LL h!O4LhOgggggLgggggOh Ogg Ogg @XLOg bDL@ ggLhgOhogggg O _6g _8O6goO8 O4_4(1312 PUTWINDOWPROP 1307 UNION 1283 GETWINDOWUSERPROP 1268 DIRECTORY.FILL.PATTERN 1260 ADD.PROCESS 1201 FB.SETNEWPATTERN 1190 FB.STARTUP 1174 PUTWINDOWPROP 1157 PUTWINDOWPROP 1138 TB.MAKE.BROWSER 1008 MENUWINDOW 947 FONTCOPY 895 TOTOPW 886 FB.MAKERIGIDWINDOW 881 GETPROMPTWINDOW 858 ATTACHWINDOW 839 MENUWINDOW 832 FB.MAKECOUNTERWINDOW 814 FB.MAKEHEADINGWINDOW 793 PUTWINDOWPROP 772 CREATE.MONITORLOCK 746 CL::SIMPLE-STRING-EQUAL 700 \\ILLEGAL.ARG 691 MISSPELLED? 648 FB.INFO.ITEM.NAMED 617 ALLOW.BUTTON.EVENTS 611 TTY.PROCESS 561 CHARWIDTH 518 DSPFONT 503 CREATEW 445 CLRPROMPT 437 GETREGION 412 PROMPTPRINT 407 CL:FORMAT 390 HEIGHTIFWINDOW 375 HEIGHTIFWINDOW 349 BITMAPWIDTH 344 CHECK/MENU/IMAGE 228 CL:FIND-SYMBOL 218 STRING 209 CL:KEYWORDP 61 EQLENGTH 10 DSPFONT) (1295 PASSTOMAINCOMS 1278 PASSTOMAINCOMS 1254 DON\'T 1249 BEFOREEXIT 1244 |FB-Update| 1239 NAME 1221 QUOTE 1212 QUOTE 1207 FB.STARTUP 1185 FB.GET.NEWPATTERN 1169 FB.ICONFN 1164 ICONFN 1152 FB.HARDCOPY.DIRECTORY 1147 HARDCOPYFN 1118 HEADINGWINDOW 1113 FB.AFTERCLOSEFN 1108 AFTERCLOSEFN 1103 FB.CLOSEFN 1098 CLOSEFN 1092 USERDATA 1087 FB.COPYFN 1082 COPYFN 1077 FB.PRINTFN 1072 PRINTFN 1064 FILEBROWSER 1038 FILEBROWSER 1030 FILEBROWSER 1021 FILEBROWSER 980 DEFAULTMENUHELDFN 971 CLRPROMPT 962 FB.HANDLE.ABORT.BUTTON 942 BOLD 937 WEIGHT 932 FB.MENUFONT 906 |MENUTYPE#| 901 FILEBROWSER 876 FB.PROMPTFONT 871 FB.PROMPTLINES 864 FILEBROWSER 853 TOP 848 RIGHT 809 FB.BROWSERFONT 799 FILEBROWSER 686 DIRCOMMANDS 665 DIRCOMMANDS 657 DIRCOMMANDS 643 FB.INFO.MENU.ITEMS 606 \\RUNNING.PROCESS 596 \\TTY.PROCESS 577 FB.NAMES.DECREASING.VERSION 556 FB.BROWSERFONT 544 FB.BROWSERFONT 531 |FILEBROWSERTYPE#| 526 FILEBROWSER 511 FB.BROWSERFONT 453 \\RUNNING.PROCESS 420 FB.DEFAULT.NAME.WIDTH 382 FONTDESCRIPTOR 367 FONTDESCRIPTOR 362 FB.PROMPTFONT 357 FB.PROMPTLINES 314 DEFAULTMENUHELDFN 305 CLRPROMPT 291 FB.MENU.WHENSELECTEDFN 267 FB.MENUFONT 260 |MENUTYPE#| 253 FB.DEFAULT.INFO 223 *KEYWORD-PACKAGE* 193 :DEPTH 180 MENU.ITEMS 170 :MENU-ITEMS 157 MENU.TITLE 147 :MENU-TITLE 131 :TITLE 116 :REGION 27 FB.MENU.ITEMS 20 FONTDESCRIPTOR 15 FB.BROWSERFONT 5 |WindowTitleDisplayStream|) ( 1300 (HARDCOPYIMAGEW) 1231 ((QUOTE FB.UPDATEBROWSERITEMS)) 913 (("--Abort--" NIL "Abort the current FileBrowser operation")) 401 "Specify region for FileBrowser~@[ on ~A~]" 32 "FB Commands") FB.TABLEBROWSER :D8 (L (0 BROWSER)) @NIL (5 FILEBROWSER) () FB.SELECTEDFILES :D8 (L (1 NOERRORFLG 0 BROWSER)) %@g A@io h(33 FB.PROMPTWPRINT 17 TB.COLLECT.ITEMS) (12 SELECTED 5 FILEBROWSER) ( 28 "No files are selected") FB.FETCHFILENAME :D8 (L (0 ITEM)) @NIL (12 FBFILEDATA 5 TABLEITEM) () FB.DIRECTORYP :D8 (L (0 FILE)) @d@ jhNIL (21 FBFILEDATA 14 TABLEITEM 6 TABLEITEM) () FB.PROMPTWPRINT :D8 (L (0 U)) ielHo ka 1HlLdKhaZdiI (gI JdgI I Lk\(96 PRIN1 89 FRESHLINE 71 CLEARW 56 TERPRI 18 ERROR) (80 FRESH 63 CLEAR 26 FILEBROWSER) ( 13 "not enough args to PROMPTWPRINT") FB.PROMPTW.FORMAT :D8 (L (0 |-args-|) P 12 *PRINT-BASE* P 11 *PRINT-CASE*) ~ekaAlaHl2 ON'Ogl I  glOJK;Oa_OOh__Ok_O&_dnMk]hl4 ML(117 \\LISPERROR) (51 CL:FORMAT 41 FILEBROWSER 33 :UPCASE) () FB.PROMPTFORINPUTA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 PROMPT F 3 DEFAULT F 4 PWINDOW F 5 SI::NLSETQ-VALUE) %i@RShThgo hc g(25 TTYINPROMPTFORWORD) (34 :NORMAL 14 TTY) ( 19 (13)) FB.PROMPTFORINPUT :D8 (L (4 DONTCLEAR 3 ABORTFLG 2 BROWSER) P 10 *CONDITION-HANDLER-BINDINGS* P 9 SI::*NLSETQFLAG* P 8 *PROCEED-CASES* P 7 SI::NLSETQ-VALUE P 0 PWINDOW I 1 DEFAULT I 0 PROMPT F 11 *PROCEED-CASES* F 12 *CONDITION-HANDLER-BINDINGS*) B 1@H Hg hDH H IAoH JXl @ lIJLMA@M l @M H Ns@kMk g@Mk b`WioW O gO[Hgh KCoH H KMmԽf(232 TERPRI 225 PRIN1 210 PUTWINDOWPROP 184 FB.PROMPTFORINPUTA0001 150 CONCAT 145 SUBSTRING 131 SUBSTRING 117 STRINGWIDTH 111 SUBSTRING 97 NTHCHARCODE 76 NCHARS 63 STRINGWIDTH 47 CLEARW 40 FRESHLINE 29 GETWINDOWPROP 17 STRINGWIDTH) (204 PROCESS 190 :NORMAL 162 SI::NLSETQ-PROCEED-CASE 136 \ 24 WIDTH 5 FILEBROWSER) ( 219 "... aborted" 171 (CL:ERROR . SI::NLSETQHANDLER) 57 "XXX") FB.YES-OR-NO-P :D8 (L (2 DEFAULT 1 FBROWSER 0 PROMPT)) w@BdgogoAid Hdo Hdo go Ho gAo h(115 FB.PROMPTWPRINT 97 CL::SIMPLE-STRING-EQUAL 85 CL::SIMPLE-STRING-EQUAL 68 CL::SIMPLE-STRING-EQUAL 55 CL::SIMPLE-STRING-EQUAL 38 FB.PROMPTFORINPUT) (103 N 74 Y 21 N 7 Y) ( 110 "?? ...Aborted." 92 "N" 80 "NO" 63 "Y" 50 "YES" 29 "No" 15 "Yes") FB.ALLOW.ABORT :D8 (L (0 BROWSER)) 5@`0@>H HHg H h(48 REDISPLAYW 41 ATTACHWINDOW 25 OPENWP) (36 BOTTOM 10 \\RUNNING.PROCESS 5 FILEBROWSER) () \\FB.HARDCOPY.TOFILE.EXTENSION :D8 NIL 0HdggdgggH(4 PRINTERTYPE) (41 DEFAULT 35 PS 28 POSTSCRIPT 21 IP 14 INTERPRESS) () FB.STARTUPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 BROWSER F 1 COMMANDMENU F 2 FN) PgQQ PkR(20 FB.MAKE.BROWSER.BUSY) (11 MENU 5 |Recompute|) () FB.STARTUP :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FN I 1 COMMANDMENU I 0 BROWSER F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \\MVLIST 13 FB.STARTUPA0001) (8 SI::RESETUNWIND) () FB.MAKERIGIDWINDOW :D8 (L (0 WINDOW)) 2@ @gjH @g`H @(46 PUTWINDOWPROP 28 PUTWINDOWPROP 5 \\INSUREWINDOW) (39 SCREENWIDTH 34 MAXSIZE 20 MINSIZE) () FB.PRINTFN :D8 (L (2 WINDOW 1 ITEM 0 TBROWSER)) @ AB  Idj"oJ ``J I_dj _Odj _Odj lD_OOl ԾhOI l_Ok_N$OOOOO½JMdl l H[IHHSO_O@AhJ LdJ _oJ hJ _$O_ !O3 KO OO dO$O$K_"O$MO1O g'O l O"l9O l O _"@AO$O"O$ O"J OKOԻO_O_(J (479 PRIN3 445 DSPXPOSITION 436 TB.CLEAR.LINE 417 CHARWIDTH 408 CHARWIDTH 392 CHCON1 353 STRINGWIDTH 318 DSPXPOSITION 310 PRIN3 293 DSPFONT 284 TB.CLEAR.LINE 279 DSPXPOSITION 216 \\OUTCHAR 152 \\GETBASEFIXP 131 %ARRAY-TYPE-NUMBER 111 %ARRAY-BASE 91 %ARRAY-OFFSET 68 DSPFONT 50 PRIN3 19 \\INSUREWINDOW 5 TB.USERDATA) (382 DATE 249 FILEBROWSER 241 FILEBROWSER 233 FBFILEDATA 224 FILEBROWSER 164 FBFILEDATA 75 FBFILEDATA 62 FB.BROWSER.DIRECTORY.FONT 56 FB.BROWSER.DIRECTORY.FONT 31 FBFILEDATA 11 TABLEITEM) ( 304 " " 44 " ") FB.COPYFN :D8 (L (1 ITEM 0 TBROWSER)) A (19 COPYINSERT) (12 FBFILEDATA 5 TABLEITEM) () FB.MENU.WHENSELECTEDFN :D8 (L (2 KEY 1 MENU 0 ITEM)) Hgg@hgAhgBhhgg@ gg (69 ADD.PROCESS 53 PACK*) (63 DON\'T 58 BEFOREEXIT 46 FB- 41 NAME 27 QUOTE 18 QUOTE 9 QUOTE 4 FB.COMMANDSELECTEDFN) () FB.COMMANDSELECTEDFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 8 ITEM F 9 MENU F 10 KEY) WAW g Yg WW Wh[?hcJWW NHJ N N M$JWHWOlMWL LiK_MI (164 FLASHWINDOW 137 FB.SUBITEMP 109 CLEARW 102 OPENWP 80 FB.MAKE.BROWSER.BUSY 49 MEMBER 32 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 11 WFROMMENU) (91 FILEBROWSER 58 MENU 42 MENU 27 FILEBROWSER 16 MAINWINDOW) () FB.COMMANDSELECTEDFN :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 SI::RESETUNWIND 18 \\MVLIST 13 FB.COMMANDSELECTEDFNA0001) (8 SI::RESETUNWIND) () FB.SUBITEMP :D8 (L (1 ITEM 0 SUBITEM)) :A!Hdg@H HYh@J JiI(47 FB.SUBITEMP 28 MEMBER) (18 SUBITEMS) () FB.MAKE.BROWSER.BUSY :D8 (L (3 DONTWAIT 2 MENU 1 ITEM 0 BROWSER) F 0 SI::*RESETFORMS*) K@8Ci :g@ABhhdPcA!AB` BgA` i(71 PUTMENUPROP 52 SHADEITEM 14 OBTAIN.MONITORLOCK) (65 FB.ITEMSELECTEDSHADE 59 ITEMSHADE 47 FB.ITEMSELECTEDSHADE 21 FB.FINISH.COMMAND 5 FILEBROWSER) () FB.FINISH.COMMAND :D8 (L (2 MENU 1 ITEM 0 BROWSER) F 2 RESETSTATE) @h0@j`jdh@>H 1H Hg YI` H AR @o Bg `Bg AB` Bgh (170 PUTMENUPROP 157 SHADEITEM 141 GETMENUPROP 121 GETMENUPROP 109 FB.PROMPTWPRINT 90 CLOSEW 83 SHADEITEM 62 GETWINDOWUSERPROP 50 DETACHWINDOW 42 OPENWP) (164 FB.ITEMUNSELECTEDSHADE 152 FB.ITEMUNSELECTEDSHADE 136 ITEMSHADE 130 FB.ITEMUNSELECTEDSHADE 116 ITEMSHADE 78 FB.ITEMUNSELECTEDSHADE 69 MENU 57 MENU 30 FILEBROWSER 14 FILEBROWSER 5 FILEBROWSER) ( 104 "...command aborted.") FB.HANDLE.ABORT.BUTTON :D8 (L (1 MENU 0 ITEM)) XA i g Hd;0Y1H`j$@A` Hk`kjhI (85 DEL.PROCESS 63 SHADEITEM 21 GETWINDOWUSERPROP 11 MAINWINDOW 5 WFROMMENU) (69 FILEBROWSER 58 FB.ITEMSELECTEDSHADE 44 FILEBROWSER 33 FILEBROWSER 16 FILEBROWSER) () FB.DELETECOMMAND :D8 (L (0 BROWSER)) @g @ (23 FB.UPDATE.COUNTERS 17 TB.MAP.SELECTED.ITEMS) (12 FB.DELETE.FILE 5 FILEBROWSER) () FB.DELVERCOMMANDA0008 :D8 (L (1 ITEM 0 BROWSER)) &A0jhhA jhNIL (29 FBFILEDATA 22 TABLEITEM 5 TABLEITEM) () FB.DELVERCOMMAND :D8 (L (0 FBROWSER) F 5 FB.VERSION.MENU.ITEMS) P`dodUdi dg dgjdndhdL Xdg@ ohddihi XhH X3 @oH j@Yg [I@dgK gKg Kg H Z@g @oJ (235 FB.PROMPTW.FORMAT 223 FB.UPDATE.COUNTERS 211 FB.DELVER.FILES 205 SORT 193 FB.SORT.VERSIONS 153 TB.COLLECT.ITEMS 129 FB.PROMPTW.FORMAT 112 MKATOM 102 RNUMBER 84 FB.ALLOW.ABORT 67 MENU) (218 DELETED 200 FB.NAMES.DECREASING.VERSION 188 FB.DECREASING.VERSION 180 FB.NAMES.INCREASING.VERSION 169 FB.NAMES.DECREASING.VERSION 161 FILEBROWSER 148 FB.DELVERCOMMANDA0008 140 FILEBROWSER 74 :NUMBER 42 DEFAULTMENUHELDFN 33 CLRPROMPT 7 |MENUTYPE#|) ( 229 "~%Done, ~D files marked for deletion." 123 "~%?? ~A not an integer." 90 "Number of versions to keep ?" 14 "Versions to keep ?") FB.IS.NOT.SUBDIRECTORY.ITEM :D8 (L (1 ITEM 0 BROWSER)) A0jhhNIL (5 TABLEITEM) () FB.DELVER.FILES :D8 (L (2 NVERSIONS 1 FILES 0 TBROWSER)) CAjd#HI[dL JkZB@K IkԹkHX(51 FB.DELETE.FILE 34 CL::SIMPLE-STRING-EQUAL) (25 FBFILEDATA 18 TABLEITEM) () FB.DELETE.FILE :D8 (L (1 ITEM 0 TBROWSER)) VAjI@ @A HH!k!AYHH$I$i(28 TB.DELETE.ITEM 18 TB.USERDATA) (76 FILEBROWSER 70 FILEBROWSER 59 FBFILEDATA 52 TABLEITEM 40 FILEBROWSER 34 FILEBROWSER 5 TABLEITEM) () FB.UNDELETECOMMAND :D8 (L (0 BROWSER)) @g @ (23 FB.UPDATE.COUNTERS 17 TB.MAP.SELECTED.ITEMS) (12 FB.UNDELETE.FILE 5 FILEBROWSER) () FB.UNDELETEALLCOMMAND :D8 (L (0 BROWSER)) @g @ (23 FB.UPDATE.COUNTERS 17 TB.MAP.ITEMS) (12 FB.UNDELETE.FILE 5 FILEBROWSER) () FB.UNDELETE.FILE :D8 (L (1 ITEM 0 TBROWSER)) \AjN@ !@A HH!m!AYHH$jIZ$Jh(28 TB.UNDELETE.ITEM 18 TB.USERDATA) (77 FILEBROWSER 71 FILEBROWSER 60 FBFILEDATA 53 TABLEITEM 40 FILEBROWSER 34 FILEBROWSER 5 TABLEITEM) () FB.COPYCOMMAND :D8 (L (0 BROWSER)) @ggh (17 FB.COPY/RENAME.COMMAND) (10 COPYFILE 5 |Copy|) () FB.RENAMECOMMAND :D8 (L (0 BROWSER)) @ggh (17 FB.COPY/RENAME.COMMAND) (10 RENAMEFILE 5 |Rename|) () FB.COPY/RENAME.COMMAND :D8 (L (2 MOVEFN 1 CMD 0 FBROWSER) P 1 *UPPER-CASE-FILE-NAMES*) A@ 1H5@ Hd@HAB  Z@A [@HJKAB (62 FB.COPY/RENAME.ONE 46 FB.GET.NEW.FILE.SPEC 38 FB.FETCHFILENAME 31 FB.COPY/RENAME.MANY 17 FB.ALLOW.ABORT 5 FB.SELECTEDFILES) NIL () FB.COPY/RENAME.ONEA0001 :D8 (P 3 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 MOVEFN F 5 SI::CONDITION-CASE-LITERALS F 6 *CONDITION-HANDLER-BINDINGS* F 7 A0123 F 8 OLDNAME F 9 NEWNAME) 'i@UVTWWTlJ cg(29 \\MVLIST) (36 :NORMAL) () FB.COPY/RENAME.ONE :D8 (L (4 CMD 1 ITEM 0 FBROWSER) P 3 A0123 P 0 SI::CONDITION-CASE-LITERALS I 5 MOVEFN I 3 NEWNAME I 2 OLDNAME) o1H ZdgK$dJhI$H  1LLM@oBDdgogoM Dg)@@A Ajgg_@MAD Og_O*@O @oDBNooNC (240 FB.PROMPTW.FORMAT 208 FB.UPDATE.COUNTERS 184 FB.MAYBE.INSERT.FILE 148 FB.REMOVE.FILE 124 FB.PROMPTW.FORMAT 117 SHOULDNT 60 \\MVLIST 54 SI::CONDITION-CASE-ERROR 14 FB.COPY/RENAME.ONEA0001) (193 TOTAL 172 TOTAL 166 BOTH 155 TABLEITEM 139 FILEBROWSER 130 |Rename| 104 |Rename| 89 |Copy| 36 CL:ERROR 21 :NORMAL) ( 230 "to" 224 "because" 215 "~%Could not ~(~A~) ~A ~A ~A" 111 "renam" 97 "copi" 81 "~%~A ~Aed to ~A" 4 #.(SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR))) FB.COPY/RENAME.MANY :D8 (L (3 MOVEFN 2 CMD 1 FILELIST 0 FBROWSER)) BoA o @2i @i X_oH @o CH Zdg'Jdg'Jg')Jg'Jg'Jg'@o H @B Xd Zg'Jg' Jg'_Jg'_@H2AAh__shLkL @o oAh__K@k@k [o @g d~_LO__OgO gO OKiCO7_KO [\OJg K kػi@dg!gAg tAg Aed_@Od YgNgOgMO"OIKOk ghgI BC h(655 FB.COPY/RENAME.ONE 647 PACKFILENAME.STRING 629 FB.MERGE.DIRECTORIES 624 SUBSTRING 572 FB.FETCHFILENAME 554 SORT 541 FB.SORT.VERSIONS 501 NCHARS 476 FB.GREATEST.PREFIX 433 STRING-EQUAL 360 FB.YES-OR-NO-P 349 CONCAT 338 SUBSTRING 290 FB.PROMPTWPRINT 278 SUBSTRING 183 UNPACKFILENAME.STRING 172 FB.CANONICAL.DIRECTORY 165 \\ADD.CONNECTED.DIR 155 FB.PROMPTWPRINT 90 UNPACKFILENAME.STRING 80 FB.PROMPTWPRINT 68 STRPOS 50 FB.PROMPTFORINPUT 43 DIRECTORYNAME 27 CONCAT 17 LENGTH) (640 BODY 634 VERSION 615 FBFILEDATA 608 TABLEITEM 591 DIRECTORY 584 DEVICE 578 HOST 549 FB.NAMES.INCREASING.VERSION 536 FB.INCREASING.VERSION 528 FB.NAMES.DECREASING.VERSION 520 FB.NAMES.INCREASING.VERSION 512 FILEBROWSER 492 Y 469 FBFILEDATA 462 TABLEITEM 425 FBFILEDATA 418 :END2 411 FBFILEDATA 404 :END1 397 FBFILEDATA 388 FBFILEDATA 376 TABLEITEM 355 Y 329 FILEBROWSER 320 FILEBROWSER 271 FBFILEDATA 262 FBFILEDATA 237 TABLEITEM 226 FILEBROWSER 216 DEVICE 206 RELATIVEDIRECTORY 197 DIRECTORY 189 HOST 142 VERSION 134 EXTENSION 126 NAME 117 DEVICE 108 DIRECTORY 97 HOST 33 FILEBROWSER) ( 344 "?" 296 "Retain subdirectory names below level of " 285 "Selected files are in multiple subdirectories" 150 "Not a well-formed directory specification." 75 "Sorry, patterns not supported" 62 "*" 22 " files to which directory? " 11 " ") FB.MERGE.DIRECTORIES :D8 (L (1 RETAIN 0 PREFIX) F 0 \\FILENAME.SYNTAX) @A@PA @A(13 CONCAT) NIL () FB.GREATEST.PREFIX :D8 (L (1 FILENAME 0 DIR)) Q@;A8@Akhih` @k!@H ZJAH I @kI Jl/Jl>HYHkԸ(59 SUBSTRING 46 NTHCHARCODE 36 NTHCHARCODE 22 STRPOS) (16 UPPERCASEARRAY) () FB.MAYBE.INSERT.FILE :D8 (L (3 CMD 2 OLDITEM 1 NEWNAME 0 FBROWSER) P 0 *UPPER-CASE-FILE-NAMES*)  @A A @kZA@gJgJ @AB0 @;h +d_AO _O Oh_O&_OY ^d jA [i_yghg ]fg@ \+LI \!L \Kg i_,L@gAgogM bI `dN_B:@I" O_O.CgBjOk@O i_OOdgCg1dg#dgdgdgdgihOOh AO O_O_dh(492 GETFILEINFO 394 FB.INSERT.FILE 313 FB.CREATE.FILEBUCKET 305 PACKFILENAME.STRING 264 GETFILEINFO 251 IDATE 242 CL:NTH 232 CL:POSITION 211 UNPACKFILENAME.STRING 186 INFILEP 165 FB.CREATE.FILEBUCKET 132 GETFILEINFO 116 \\APPEND2 72 STRING-EQUAL 28 NCHARS 16 DIRECTORY.MATCH) (466 BYTESIZE 458 TYPE 450 LENGTH 441 SIZE 432 CREATIONDATE 423 |Rename| 414 AUTHOR 381 TABLEITEM 368 TABLEITEM 359 |Rename| 336 FILEBROWSER 319 |TABLEITEMTYPE#| 298 VERSION 288 EXTENSION 282 BODY 259 ICREATIONDATE 225 FILEBROWSER 219 CREATIONDATE 206 TENEX 200 VERSION 172 FBFILEDATA 108 FBFILEDATA 101 TABLEITEM 92 FILEBROWSER 65 :END2 59 :END1 52 FILEBROWSER 34 FILEBROWSER 8 FILEBROWSER) ( 293 "") FB.GET.NEW.FILE.SPEC :D8 (L (2 CMD 1 BROWSER 0 OLDNAME)) <@Bo@Bdgogo gA2i ghg@ Ai Xd Zg'Y+H XAH2gHghg@  j!Jg'YI jAo hJ!L]/dgdgdgM^ܿMJhZNhJi [AK2H  JgK KAB (312 FB.CANONICAL.DIRECTORY 303 \\ADD.CONNECTED.DIR 287 PACKFILENAME.STRING 281 \\ADD.CONNECTED.DIR 263 DIRECTORYNAME 195 FB.PROMPTWPRINT 181 NCHARS 162 NCHARS 156 PACKFILENAME.STRING 122 \\ADD.CONNECTED.DIR 106 UNPACKFILENAME.STRING 95 FB.PROMPTFORINPUT 88 PACKFILENAME.STRING 70 DIRECTORYNAME 49 CONCAT 44 SHOULDNT) (295 HOST 272 FILEBROWSER 231 DEVICE 223 DIRECTORY 215 HOST 172 EXTENSION 149 BODY 143 VERSION 137 DIRECTORY 129 FILEBROWSER 112 NAME 81 BODY 75 VERSION 60 FILEBROWSER 54 DIRECTORY 31 |Copy| 16 |Rename|) ( 190 "Failed, malformed name" 38 " to new file name: " 24 " to be: " 8 " file ") FB.CANONICAL.DIRECTORYA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 DIRNAME F 1 CMD F 2 FBROWSER) ,Phg doPQ R gP(32 FB.YES-OR-NO-P 26 CL:FORMAT 11 DIRECTORYNAME) (37 Y 6 ASK) ( 19 "Directory ~A does not exist yet; ~A anyway?") FB.CANONICAL.DIRECTORYA0002 :D8 (F 0 OLDTTYPROC F 1 OLDTTYSTREAM F 2 PWINDOW) P Q Rgh (23 PUTWINDOWPROP 11 TTYDISPLAYSTREAM 5 TTY.PROCESS) (17 PROCESS) () FB.CANONICAL.DIRECTORY :D8 (P 2 OLDTTYPROC P 1 OLDTTYSTREAM P 0 PWINDOW I 2 CMD I 1 FBROWSER I 0 DIRNAME) PA H ` g J I Hgh $(73 PUTWINDOWPROP 60 TTYDISPLAYSTREAM 53 TTY.PROCESS 47 \\MVLIST 42 FB.CANONICAL.DIRECTORYA0001 29 TTY.PROCESS 16 TTYDISPLAYSTREAM) (67 PROCESS 37 FB.CANONICAL.DIRECTORYA0002 24 \\RUNNING.PROCESS 5 FILEBROWSER) () FB.HARDCOPYCOMMAND :D8 (L (4 OPTION 3 MENU 2 ITEM 1 KEY 0 BROWSER)) c@ HWDdg@ @H hgY*gIhi@ Hd I h(90 LISTFILES1 84 FB.FETCHFILENAME 75 FB.ALLOW.ABORT 53 |GetPrinterName| 36 FB.HARDCOPY.TOFILE 28 FB.ALLOW.ABORT 5 FB.SELECTEDFILES) (61 SERVER 45 PRINTER 18 FILE) () FB.HARDCOPY.TOFILE :D8 (L (1 FILES 0 BROWSER)) gAooAggg $ghggA @i  HTAH YAO_gO _FOdgo[OkOk oOOk oOOdgo[TdgO _dgi_gO_OROOghIh#@oK hHg _`h__hZ3o Z!h_OgOOOAJg ROh _ g_OO'_|@oA>Ohdg _ LMO g'N gghIO H_ OOlO_@o @O _@oOOJ O_J(604 FB.PROMPTW.FORMAT 578 FB.MAYBE.INSERT.FILE 569 FB.PROMPTWPRINT 543 FB.PROMPTW.FORMAT 534 CL:APPLY 529 \\APPEND2 508 CONCAT 489 UNPACKFILENAME.STRING 446 PRINTFILETYPE 439 FB.FETCHFILENAME 423 PRINTFILEPROP 377 MENU 372 |MakeMenuOfImageTypes| 341 U-CASE 336 FILENAMEFIELD 323 FB.PROMPTWPRINT 250 MKATOM 245 U-CASE 196 SUBSTRING 175 SUBSTRING 134 STRPOS 107 UNPACKFILENAME.STRING 85 FB.PROMPTFORINPUT 78 PACKFILENAME.STRING 72 FB.FETCHFILENAME 60 \\FB.HARDCOPY.TOFILE.EXTENSION 42 PACKFILENAME.STRING 37 \\FB.HARDCOPY.TOFILE.EXTENSION) (520 VERSION 515 PACKFILENAME.STRING 501 NAME 484 TENEX 453 TEXT 418 CONVERSION 393 EXTENSION 349 PRINTFILETYPES 331 EXTENSION 302 DIRECTORY 274 HOST 261 DIRECTORY 232 EXTENSION 215 NAME 147 NAME 125 * 65 BODY 55 EXTENSION 49 VERSION 32 EXTENSION 27 * 22 NAME) ( 593 "~%Failed to hardcopy ~A -- Can't convert a ~A file to format ~A" 564 "done." 471 "~%Writing ~A..." 367 "File type?" 317 "Bad pattern -- " 223 "Name must have * for multiple hardcopy files" 203 "" 182 "" 155 "Only name portion can contain *" 13 "Hardcopy file name: " 7 "Hardcopy file name pattern: ") FB.EDITCOMMAND :D8 (L (4 OPTION 3 MENU 2 ITEM 1 KEY 0 BROWSER) P 2 *UPPER-CASE-FILE-NAMES*) Q@ @ !Hh Y @ "g @IDBC @ABC HX(73 FB.FASTSEECOMMAND 63 FB.EDITCOMMAND.ONEFILE 51 \\DEFINEDP 39 FB.BROWSECOMMAND 32 DIRECTORYNAMEP 26 FB.FETCHFILENAME 11 FB.SELECTEDFILES 5 FB.ALLOW.ABORT) (46 OPENTEXTSTREAM) () FB.EDITCOMMAND.ONEFILEA0001 :D8 (P 3 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 4 FILE F 5 OPTION F 6 BROWSER F 7 SI::CONDITION-CASE-LITERALS F 8 *CONDITION-HANDLER-BINDINGS* F 9 A0050) ]i@WWUdgT 1gT TV Vo UT kJ cg(83 \\MVLIST 75 MKATOM 66 FB.PROMPTW.FORMAT 53 FB.EDITLISPFILE 45 LISPSOURCEFILEP 29 TEDIT-SEE) (90 :NORMAL 36 LISP 20 READONLY) ( 61 "Failed because not a Lisp source file") FB.EDITCOMMAND.ONEFILE :D8 (L (4 MENU 3 ITEM) P 5 A0050 P 2 SI::CONDITION-CASE-LITERALS I 2 OPTION I 1 FILE I 0 BROWSER) B`bCD` DgC` CD DH#o1J \dgDM$TCgI  "ID` DgI` HXLhK$LJ  H@oH (210 FB.PROMPTW.FORMAT 190 \\MVLIST 184 SI::CONDITION-CASE-ERROR 155 PUTMENUPROP 136 SHADEITEM 122 MEMBER 116 SASSOC 85 FB.EDITCOMMAND.ONEFILEA0001 53 MEMBER 39 PUTMENUPROP 21 SHADEITEM) (166 CL:ERROR 149 FB.ITEMUNSELECTEDSHADE 143 ITEMSHADE 131 FB.ITEMUNSELECTEDSHADE 110 SUBITEMS 92 :NORMAL 60 MENU 46 MENU 33 FB.ITEMUNSELECTEDSHADE 27 ITEMSHADE 16 FB.ITEMUNSELECTEDSHADE 6 FB.DEFAULT.EDITOR) ( 204 "Failed because ~A" 75 #.(SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR))) FB.EDITLISPFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 ROOT) Po (10 ED) NIL ( 5 (FILES :DONTWAIT)) FB.EDITLISPFILE :D8 (L (1 BROWSER 0 FILE) P 1 SI::*RESETFORMS* P 0 ROOT F 2 PROMPTWINDOW) @ Xg @ Hg'H JAo@ o@o hA Kgg@ho gR hhhg $h(172 SI::RESETUNWIND 167 \\MVLIST 162 FB.EDITLISPFILEA0001 142 TTYDISPLAYSTREAM 130 EXEC-EVAL 102 MOUSECONFIRM 88 CONCAT 71 FB.PROMPTW.FORMAT 57 BOUNDP 52 FILECOMS 32 CL::SIMPLE-STRING-EQUAL 24 GETPROP 13 U-CASE 8 ROOTFILENAME) (157 SI::RESETUNWIND 136 TTYDISPLAYSTREAM 114 QUOTE 109 LOAD 95 FILEBROWSER 44 FILE 19 FILEDATES) ( 123 ((QUOTE PROP)) 83 " 'PROP)? " 77 "(LOAD '" 65 "The file ~A is not loaded or is not current.") FB.BROWSECOMMAND :D8 (L (4 OPTION 3 MENU 2 ITEM 1 KEY 0 BROWSER))  @ @ @< HhZJ j@djbKhdg _gO _h_^O\8OO _OOg'gO OgM9N jLgLd khxLhi_LoM o9oM o&Og'g gooN gO [ bggKhg0 @d_O Oh_O&_OhIggIhhh @oK HX](438 FB.PROMPTW.FORMAT 425 ADD.PROCESS 328 DIRECTORYNAMEP 322 CL:APPLY 309 LISTPUT 304 CONCAT 280 GETHOSTINFO 254 STRPOS 235 STRPOS 203 MKATOM 180 NCHARS 158 CL:APPLY 128 LDIFF 105 MEMB 90 UNPACKFILENAME.STRING 11 FB.SELECTEDFILES 5 FB.ALLOW.ABORT) (408 :DEPTH 403 QUOTE 358 FILEBROWSER 349 QUOTE 340 QUOTE 335 FILEBROWSER 315 PACKFILENAME.STRING 285 UNIX 275 OSTYPE 269 HOST 191 VERSION 166 DIRECTORY 151 PACKFILENAME.STRING 144 DIRECTORY 98 NAME 85 TENEX 67 FILEBROWSER 51 FBFILEDATA 42 FBFILEDATA 34 TABLEITEM 17 FILEBROWSER) ( 432 "~A is not a directory" 298 ">" 292 "/" 260 ">" 248 ">" 241 "/" 229 "/") FB.FASTSEECOMMANDA0001 :D8 (L (0 W)) @gh @ . (24 DEL.PROCESS 17 \\INSUREWINDOW 11 PUTWINDOWPROP) (5 INUSE) () FB.FASTSEECOMMANDA0002 :D8 (L (0 WINDOW)) 9@gh @dg Hd H H (54 CLOSEW 48 DETACHWINDOW 40 OPENWP 28 WINDOWPROP 23 GETWINDOWUSERPROP 11 PUTWINDOWPROP) (18 MORETYPE 5 PROCESS) () FB.FASTSEECOMMANDA0003 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TAIL F 3 BROWSER F 4 SEEWINDOW F 5 UNFORMATTED) i@SR TUR (22 FB.FASTSEE.ONEFILE 12 FB.FETCHFILENAME) NIL () FB.FASTSEECOMMAND :D8 (L (3 MENU 2 ITEM 1 KEY) P 5 TAIL P 2 SEEWINDOW P 0 *UPPER-CASE-FILE-NAMES* I 4 UNFORMATTED I 0 BROWSER F 6 SI::*RESETFORMS*) P@ Y@ @Z LIh[_hBho iJ @JJgg Jgg gJhhdVc J IF\d g L g L~ixKndg h(203 FB.FASTSEECOMMANDA0003 174 UNPACKFILENAME 164 FB.FETCHFILENAME 155 UNPACKFILENAME 145 FB.FETCHFILENAME 134 TTYDISPLAYSTREAM 110 WINDOWADDPROP 93 PUTWINDOWPROP 66 DSPSCROLL 58 CREATEW 35 WINDOWP 21 FB.ALLOW.ABORT 8 FB.SELECTEDFILES) (198 :NEXT 169 EXTENSION 150 NAME 116 FB.FASTSEECOMMANDA0002 105 FB.FASTSEECOMMANDA0001 100 CLOSEFN 88 FB.SEEFULLFN 83 PAGEFULLFN 73 FILEBROWSER 27 FILEBROWSER) ( 53 "SEE window") FB.FASTSEE.ONEFILEA0001 :D8 (P 2 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 SI::CONDITION-CASE-LITERALS F 4 *CONDITION-HANDLER-BINDINGS* F 5 FILE F 6 A0125) +i@STUgho c g(33 \\MVLIST 28 OPENSTREAM) (40 :NORMAL 17 INPUT) ( 23 ((TYPE TEXT) (SEQUENTIAL T))) FB.FASTSEE.ONEFILEA0002A0003 :D8 (L (1 WINDOW 0 STREAM) F 0 RESETSTATE) 6P-A %AgA (oo @ (51 CLOSEF 44 PUTWINDOWPROP 39 CONCAT 22 \\INSUREWINDOW 8 OPENWP) (16 TITLE) ( 34 "Aborted" 29 " -- ") FB.FASTSEE.ONEFILEA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 WINDOW F 1 STREAM F 2 SI::*RESETFORMS* F 3 MORE F 4 UNFORMATTED) vgQPhhdRcPgSgg TQP QP PgP (oo SP g (115 FB.SEEFULLFN 103 \\INSUREWINDOW 94 PUTWINDOWPROP 89 CONCAT 72 \\INSUREWINDOW 59 PFCOPYBYTES 51 COPYCHARS 42 PUTWINDOWPROP) (110 FINISHEDMOREBUTTONS 66 TITLE 37 LASTMOREBUTTONS 31 YETMOREBUTTONS 24 MORETYPE 4 FB.FASTSEE.ONEFILEA0002A0003) ( 84 "Finished" 79 " -- ") FB.FASTSEE.ONEFILE :D8 (L (0 BROWSER) P 9 RESETSTATE P 8 SI::*RESETFORMS* P 7 LISPXHIST P 5 STREAM P 3 A0125 P 0 SI::CONDITION-CASE-LITERALS I 4 MORE I 3 UNFORMATTED I 2 WINDOW I 1 FILE F 10 LISPXHIST) A @ B BgoA o1H ZdgK$JhI$JH  !LL^@oDAN W! g $(155 SI::RESETUNWIND 150 \\MVLIST 145 FB.FASTSEE.ONEFILEA0002 129 FB.PROMPTW.FORMAT 101 \\MVLIST 95 SI::CONDITION-CASE-ERROR 56 FB.FASTSEE.ONEFILEA0001 41 PUTWINDOWPROP 36 CONCAT 19 CLEARW 12 FB.BROWSECOMMAND 5 DIRECTORYNAMEP) (140 SI::RESETUNWIND 77 CL:ERROR 63 :NORMAL 25 TITLE) ( 119 "~:[Failed~;~:*Couldn't see ~A~] because ~A" 46 #.(SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR)) 30 "Viewing ") FB.SEEFULLFN :D8 (L (1 PROP 0 DSP)) H@ AHAdg b Hg I`AdgogoodKdkdgdi dg dgjdndhdL YjdI l I hl hli hi HAI JHgH ( Z IHI H ggg I J Hgh h(322 PUTWINDOWPROP 309 AWAIT.EVENT 302 TOTOPW 296 ATTACHWINDOW 269 \\INSUREWINDOW 257 \\INSUREWINDOW 248 PUTWINDOWPROP 242 CREATE.EVENT 235 \\INSUREWINDOW 219 WINDOWPROP 210 ADDMENU 203 CREATEW 194 CREATEREGION 189 HEIGHTIFWINDOW 181 BITMAPHEIGHT 176 CHECK/MENU/IMAGE 170 WIDTHIFWINDOW 163 BITMAPWIDTH 158 CHECK/MENU/IMAGE 42 GETWINDOWUSERPROP 30 WINDOWPROP 23 GETWINDOWUSERPROP 5 WFROMDS) (316 MOREOK 291 LEFT 286 BOTTOM 280 TOP 229 MOREEVENT 129 DEFAULTMENUHELDFN 120 CLRPROMPT 106 FB.SEEBUTTONFN 76 FINISHEDMOREBUTTONS 61 YETMOREBUTTONS 53 |MENUTYPE#| 37 MOREEVENT 18 MORETYPE) ( 89 ((" More " MORE "View another screenfull of the file") (" Abort " ABORT "Abort view; allow this window to be re-used")) 83 ((" Next File " NEXT "Go on to view the next file") ("Abort" ABORT "Abort the SEE command -- see no more files")) 69 (("More" MORE "View another screenfull of the file") (" Next File " NEXT "Abort view of this file, go on to next one") ("Abort" ABORT "Abort viewing of this and any further files"))) FB.SEEBUTTONFN :D8 (L (1 MENU 0 ITEM)) }A H H H @dgIgi Ig dgI .o gI . (122 SHOULDNT 116 DEL.PROCESS 109 \\INSUREWINDOW 95 PROCESS.EVAL 83 \\INSUREWINDOW 67 NOTIFY.EVENT 62 GETWINDOWUSERPROP 51 PUTWINDOWPROP 27 CLOSEW 21 DETACHWINDOW 14 MAINWINDOW 5 WFROMMENU) (101 ABORT 74 NEXT 57 MOREEVENT 45 MOREOK 36 MORE) ( 90 (CL:THROW :NEXT)) FB.LOADCOMMAND :D8 (L (4 LOADOP 3 MENU 2 ITEM 1 KEY 0 BROWSER)) c@ HWgDgYddi3 gIhHddi3 gHhhgggg (96 ADD.PROCESS 5 FB.SELECTEDFILES) (90 DON\'T 85 BEFOREEXIT 80 LOAD 75 NAME 62 QUOTE 41 QUOTE 24 LOAD 16 FB.OPERATE.ON.FILES) () FB.COMPILECOMMAND :D8 (L (4 COMPILEOP 3 MENU 2 ITEM 1 KEY 0 BROWSER) F 2 *DEFAULT-CLEANUP-COMPILER*) _@ HSgDRYddi3 gIhHddi3 gHhhgggg (92 ADD.PROCESS 5 FB.SELECTEDFILES) (86 DON\'T 81 BEFOREEXIT 76 COMPILE 71 NAME 58 QUOTE 37 QUOTE 16 FB.OPERATE.ON.FILES) () FB.OPERATE.ON.FILES :D8 (L (1 FILELIST 0 FN) F 6 \\TERM.OFD) s0@dgg@gb0A1d@gJ hH gHhhLKh]K&MYddgI V (112 CLOSEW 106 EXEC-EVAL 49 FB.FETCHFILENAME) (97 PROGN 60 QUOTE 43 QUOTE 25 LOAD 16 SYSLOAD 9 PROP) () FB.UPDATECOMMAND :D8 (L (0 BROWSER)) @g @ (18 FB.UPDATEBROWSERITEMS 10 FB.MAYBE.EXPUNGE) (5 |Recompute|) () FB.FIX-DIRECTORY-DATES :D8 (L (0 BROWSER)) ]@ 1H K @ hYi I Z'J ZIg jiIgJ HX(85 SETFILEINFO 67 GETFILEINFO 55 IDATE 46 FILEDATE 38 FILEDATE 28 FB.UPDATECOMMAND 12 FILDIR) (79 ICREATIONDATE 62 ICREATIONDATE 5 FILEBROWSER) () FB.MAYBE.EXPUNGE :D8 (L (1 COMMAND 0 BROWSER)) @@!j3@o  dg@hddA gi(51 FB.EXPUNGECOMMAND 32 MENU 27 FB.EXPUNGE?.MENU 22 FB.PROMPTWPRINT) (57 NOEXPUNGE 38 EXPUNGE 5 FILEBROWSER) ( 17 "Some files are marked for deletion. Do you want to expunge them first?") FB.UPDATEBROWSERITEMSA0001A0013 :D8 (P 10 FILING.ENUMERATION.DEPTH P 6 *CONDITION-HANDLER-BINDINGS* P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 11 BROWSER F 12 PATTERN F 13 FILING.ENUMERATION.DEPTH F 14 SI::CONDITION-CASE-LITERALS F 15 *CONDITION-HANDLER-BINDINGS* F 16 INFOWANTED F 17 A0131) i@BWW0 W d_O Oh_O&_OWjhW<LW[W WoWK3 L$W&KWg gMWWK3 jZJWMo  c"g(194 \\MVLIST 188 \\GENERATEFILES 136 UNPACKFILENAME.STRING 107 FB.PROMPTW.FORMAT) (201 :NORMAL 159 FILEBROWSER 152 FILEBROWSER 142 SUBTREE.SIZE 131 DIRECTORY 118 FILEBROWSER 73 FILEBROWSER 58 FILEBROWSER) ( 183 (SORT RESETLST) 97 "~%Enumerating ~A ~@[to depth ~D ~]...") FB.UPDATEBROWSERITEMSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 22 A0131 P 21 SI::CONDITION-CASE-LITERALS P 4 INFOWANTED P 3 PATTERN I 0 SI::*CLEANUP-FORMS* F 23 BROWSER) W.W.` W. W.[W. [cW.K W.`W..RO=O \W. W. W. Ih W.jPIJ W.JW. W.W.W.W.j j"j$j!W.W.j0jdh6gLgg gLgg _W.O;W.OdL &W.jW.h4W.goO* _dgxO,$dO ! _&O&_$O"EO$h_"_ O_J _(O&O(llXJ O&dO(O$&_"O_hO$OO*  _O_W.oO h_W.d @M ^7OIW.OO"O I jW.goK N W.NW.ML O _OdhOOO"_"OdG j%OOkhih` IW.OO"O O_ h_"O_0W.g W. _W.L O!W.d W. W.O W.kPkjhW. h(921 FB.DISPLAY.COUNTERS 897 FB.SET.BROWSER.TITLE 887 TB.REDISPLAY.ITEMS 872 FB.HEADINGW.DISPLAY 852 FB.ADJUST.DATE.WIDTH 841 FB.MAYBE.WIDEN.NAMES 833 FB.PROMPTWPRINT 803 FB.ADD.FILEGROUP 786 STRPOS 700 FB.CREATE.FILEBUCKET 693 FB.GETALLFILEINFO 680 CONCATCODES 669 FB.PROMPTWPRINT 645 TB.NUMBER.OF.ITEMS 637 FB.ADD.FILEGROUP 616 \\GENERATENEXTFILE 607 FB.HEADINGW.DISPLAY 590 FB.DATE 583 FB.PROMPTW.FORMAT 558 \\MVLIST 552 SI::CONDITION-CASE-ERROR 491 CHARWIDTH 472 STRINGWIDTH 431 COPY 424 MEMB 394 FB.UPDATEBROWSERITEMSA0001A0013 338 CL:NTH 306 CL:POSITION 283 CL:POSITION 191 FB.SET.DEFAULT.NAME.WIDTH 172 TB.SET.FONT 152 TB.REPLACE.ITEMS 144 CLEARW 129 CLEARW 114 FB.SET.BROWSER.TITLE 66 FB.SETNEWPATTERN 51 FB.GET.NEWPATTERN 32 FB.ALLOW.ABORT) (904 FILEBROWSER 880 FILEBROWSER 865 FILEBROWSER 828 |done| 780 UPPERCASEARRAY 769 FBFILEDATA 760 FBFILEDATA 746 FBFILEDATA 722 FBFILEDATA 713 FBFILEDATA 658 CLEAR 600 FILEBROWSER 528 CL:ERROR 402 :NORMAL 376 FB.NAMES.DECREASING.VERSION 371 FILEBROWSER 360 FILEBROWSER 348 FILEBROWSER 328 FILEBROWSER 316 FILEBROWSER 301 CAR 296 :KEY 290 LENGTH 278 CAR 273 :KEY 267 SIZE 250 FILEBROWSER 243 FILEBROWSER 220 FILEBROWSER 213 FILEBROWSER 206 FILEBROWSER 199 FILEBROWSER 180 FILEBROWSER 160 FILEBROWSER 137 FILEBROWSER 122 FILEBROWSER 86 FILEBROWSER 79 FB.INFO.FIELDS 74 FILEBROWSER 39 FILEBROWSER 22 FB.BROWSERFONT 15 FILEBROWSER 6 FILEBROWSER) ( 663 "No files in group " 576 "Failed because ~A" 383 #.(SI::CREATE-CONDITION-CASE-LITERALS (QUOTE CL:ERROR))) FB.UPDATEBROWSERITEMS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 BROWSER F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \\MVLIST 13 FB.UPDATEBROWSERITEMSA0001) (8 SI::RESETUNWIND) () FB.DATE :D8 NIL o (9 DATE) NIL ( 4 (DATEFORMAT NO.LEADING.SPACES NO.SECONDS)) FB.ADJUST.DATE.WIDTHA0001 :D8 (L (1 ITEM 0 TBROWSER) F 0 FONT F 1 INDEX F 2 SPEC) FQA b-RoP A lAl P ji(62 STRINGWIDTH 56 SUBSTRING 44 NCHARS 38 STRINGWIDTH 20 CL:NTH) (13 FBFILEDATA 6 TABLEITEM) ( 32 "XX99-MAY-88 99:99:99") FB.ADJUST.DATE.WIDTH :D8 (L (1 INFOWANTED 0 BROWSER) P 4 SPEC P 2 FONT P 1 INDEX) EAj@3HKKdM\g@g iKIkԹ(55 TB.FIND.ITEM) (50 FB.ADJUST.DATE.WIDTHA0001 43 FILEBROWSER 34 DATE 7 FILEBROWSER) () FB.SET.BROWSER.TITLE :D8 (L (1 TIME 0 BROWSER)) K@pj>@gA@oA @o (72 PUTWINDOWPROP 67 CONCAT 47 CONCAT) (55 FILEBROWSER 34 FILEBROWSER 25 TITLE 18 FILEBROWSER 5 FILEBROWSER) ( 62 " browser" 41 " at ") FB.MAYBE.WIDEN.NAMES :D8 (L (0 BROWSER)) f@,@2H0@ ` dkkd``ZH[h\IjJLZ@LiK(40 FIXR) (90 FILEBROWSER 60 FB.OVERFLOW.MAXABSOLUTE 52 FB.OVERFLOW.MAXABSOLUTE 34 FB.OVERFLOW.MAXFRAC 27 FILEBROWSER 13 FILEBROWSER 5 FILEBROWSER) () FB.SET.DEFAULT.NAME.WIDTH :D8 (L (0 BROWSER)) `@@@h@ l H l;H YI`@l8H @h,h(81 CHARWIDTH 53 CHARWIDTH 44 CHARWIDTH 36 DSPLEFTMARGIN) (89 FILEBROWSER 73 FILEBROWSER 64 FB.DEFAULT.NAME.WIDTH 29 FILEBROWSER 22 FILEBROWSER 16 FILEBROWSER 5 FILEBROWSER) () FB.CREATE.FILEBUCKET :D8 (L (3 LASTFILEDATA 2 FILEINFO 1 FILENAME 0 BROWSER)) A A b@d0j@A @A jdI_k_AO __l0O%Ol9JOl0OԺl O_Ok_Ol;Okقjh_C)H_ AO k_ dl>dl/5MO KkԻAgOI `C dl'O k԰MdINi_KmԻMi_Mkؼ@jLH`dH OAkO A_"dO"Mj_$dO$ dLdOkjdOkj dK_dAOJ OBO@&_(@;B _OgOnO@O @45@:B _@@jO _OO O(500 IDATE 477 CL:NTH 453 FB.CHECK.NAME.LENGTH 419 CL:NTH 298 SUBSTRING 213 NCREATE2 200 STRING-EQUAL 154 NTHCHARCODE 71 NTHCHARCODE 51 NCHARS 36 FB.ANALYZE.PATTERN 12 STRING 5 STRINGP) (510 FBFILEDATA 487 FILEBROWSER 469 FILEBROWSER 459 FILEBROWSER 430 LENGTH 411 FILEBROWSER 399 FILEBROWSER 393 FBFILEDATA 383 FBFILEDATA 373 FBFILEDATA 363 FBFILEDATA 280 |FBFILEDATATYPE#| 264 FILEBROWSER 207 |FBFILEDATATYPE#| 190 :END2 182 FBFILEDATA 43 FILEBROWSER 22 FILEBROWSER) () FB.CHECK.NAME.LENGTH :D8 (L (1 FILEDATA 0 BROWSER)) AA @ @QH@\@,@YHI@HkhI[,KI\L]\HdLHMJMHkhLMMkh(33 STRINGWIDTH 20 SUBSTRING) (90 FILEBROWSER 72 FILEBROWSER 64 FILEBROWSER 52 FILEBROWSER 39 FILEBROWSER 26 FILEBROWSER 13 FBFILEDATA 5 FBFILEDATA) () FB.ADD.FILEGROUP :D8 (L (4 PREVDATA 3 OTHERDATA 2 FIRSTDATA 1 FBROWSER 0 TBROWSER)) AjD!B j@AB Cz@BCNBgD gB d`dKIHhZH&Jg d@AH h@A`dB (176 FB.ADD.FILE 151 FB.ADD.FILE 137 SORT 93 STRING-EQUAL 34 FB.INSERT.DIRECTORY) (165 |TABLEITEMTYPE#| 132 FB.DECREASING.VERSION 103 |TABLEITEMTYPE#| 85 FBFILEDATA 79 :END2 72 FBFILEDATA 66 :END1 59 FBFILEDATA 51 FBFILEDATA 21 FBFILEDATA 5 FILEBROWSER) () FB.INSERT.DIRECTORY :D8 (L (3 BEFOREITEM 2 DATAWITHSUBDIR 1 FBROWSER 0 TBROWSER)) @AB C (13 TB.INSERT.ITEM 7 FB.MAKE.SUBDIRECTORY.ITEM) NIL () FB.MAKE.SUBDIRECTORY.ITEM :D8 (L (1 DATAWITHSUBDIR 0 FBROWSER)) xAkA @k@k 1@`dk0`dHIH IkdJ dHdkdK(89 NCHARS 47 SUBSTRING 21 SUBSTRING) (76 |FBFILEDATATYPE#| 64 |TABLEITEMTYPE#| 56 FILEBROWSER 38 FILEBROWSER 29 FILEBROWSER 14 FBFILEDATA 5 FBFILEDATA) () FB.ADD.FILE :D8 (L (3 BEFOREITEM 2 ITEM 1 FBROWSER 0 TBROWSER)) DBHAA"H"AA k @BC (65 TB.INSERT.ITEM) (51 FILEBROWSER 45 FILEBROWSER 32 FILEBROWSER 26 FILEBROWSER 12 FBFILEDATA 5 TABLEITEM) () FB.INSERT.FILEA0001 :D8 (L (1 ITEM 0 BROWSER) F 0 FILE F 1 FBSORTFN) A0jhhPAlQNIL (5 TABLEITEM) () FB.INSERT.FILE :D8 (L (0 BROWSER) P 1 FBSORTFN I 1 FILE)  @@A@jh Hg ]dmKjd_k\HOk ^0jEJM__OgO gO NHAM KMjMd0jDJM_LgO gL MM0jH@LM A_kJ jKJHOk __OgO gO H@JA @Ag (402 FB.COUNT.FILE.CHANGE 389 FB.INSERT.DIRECTORY 379 STRING-EQUAL 317 TB.NTH.ITEM 280 FB.INSERT.DIRECTORY 252 STRING-EQUAL 169 TB.INSERT.ITEM 158 STRING-EQUAL 81 TB.NTH.ITEM 50 TB.FIND.ITEM) (397 ADD 371 FBFILEDATA 364 :END2 357 FBFILEDATA 350 :END1 343 FBFILEDATA 334 FBFILEDATA 322 TABLEITEM 300 FBFILEDATA 287 TABLEITEM 265 TABLEITEM 244 FBFILEDATA 238 :END2 231 FBFILEDATA 224 :END1 217 FBFILEDATA 209 FBFILEDATA 199 TABLEITEM 184 TABLEITEM 150 FBFILEDATA 143 :END2 136 FBFILEDATA 129 :END1 122 FBFILEDATA 113 FBFILEDATA 101 TABLEITEM 87 TABLEITEM 63 TABLEITEM 45 FB.INSERT.FILEA0001 29 FILEBROWSER 21 TABLEITEM 13 FILEBROWSER 5 FILEBROWSER) () FB.ANALYZE.PATTERN :D8 (L (1 SAMPLE 0 BROWSER)) <@jBAIkY dl'IkԹdl}jYjHJkZ dl'Jk԰dl}BJ]HMk] dl'Mk԰dl:dl
dl/M[ddl*dl#ƃjZK.HJkK AIkhdi` \AkLk HKBHdAJIK X \IkؼJIHkJ AkJ AkI HJk @H @ @k0@Ik@Lh(279 FB.SET.BROWSER.TITLE 272 FB.SETNEWPATTERN 264 CONCAT 259 SUBSTRING 250 SUBSTRING 240 STREQUAL 235 SUBSTRING 227 SUBSTRING 206 STREQUAL 200 FB.CANONICALIZE.PATTERN 184 SUBSTRING 172 STRPOS 154 SUBSTRING 86 NTHCHARCODE 55 NTHCHARCODE 21 NTHCHARCODE) (309 FILEBROWSER 297 FILEBROWSER 286 FILEBROWSER 166 UPPERCASEARRAY 5 FILEBROWSER) () FB.CANONICALIZE.PATTERN :D8 (L (4 LASTPATDIR 3 SAMPLEHOSTEND 2 PATHOSTEND 1 SAMPLE 0 PATTERN)) @ACk dl
]=IILM @ __OOO\II`I`JHI L HjdL (217 SCROLLW 204 RESHAPEALLWINDOWS 148 \\INSUREWINDOW 129 \\INSUREWINDOW 89 GETWINDOWPROP 51 GETWINDOWPROP 27 \\INSUREWINDOW 16 WINDOWREGION) (193 SCREENWIDTH 185 SCREENWIDTH 141 FILEBROWSER 106 FILEBROWSER 84 HEIGHT 63 SCROLLBARWIDTH 58 SCREENWIDTH 46 WIDTH 5 FILEBROWSER) () FB.REMOVE.FILE :D8 (L (2 ITEM 1 FBROWSER 0 TBROWSER)) BQHk@Hk Y0j@Hk ZJ0j@I J|@Hk [pHmXkK jKK@Hk \MgL gM @J @B ABg (219 FB.COUNT.FILE.CHANGE 207 TB.REMOVE.ITEM 199 TB.REMOVE.ITEM 191 STRING-EQUAL 135 TB.NTH.ITEM 87 TB.NTH.ITEM 74 TB.REMOVE.ITEM 50 TB.NTH.ITEM 26 TB.NTH.ITEM) (214 REMOVE 183 FBFILEDATA 177 :END2 170 FBFILEDATA 164 :END1 157 FBFILEDATA 149 FBFILEDATA 140 TABLEITEM 124 TABLEITEM 112 FBFILEDATA 105 TABLEITEM 58 TABLEITEM 32 TABLEITEM 5 TABLEITEM) () FB.COUNT.FILE.CHANGE :D8 (L (2 FLG 1 ITEM 0 FBROWSER)) BdgkgmAAjh3@@@ H[ K J @@@!H\!L!I.@@"IHY"J@@$I]$M(26 SHOULDNT) (158 FILEBROWSER 152 FILEBROWSER 134 FILEBROWSER 128 FILEBROWSER 107 FILEBROWSER 101 FILEBROWSER 95 FILEBROWSER 75 FILEBROWSER 69 FILEBROWSER 63 FILEBROWSER 47 TABLEITEM 39 FBFILEDATA 32 TABLEITEM 16 REMOVE 6 ADD) () FB.SETNEWPATTERN :D8 (L (1 PATTERN 0 FBROWSER)) u@A@A @j0jdh@oAg kjHIIjh@g AA (112 ICONW.TITLE 102 GETWINDOWUSERPROP 65 STRPOS 60 UNPACKFILENAME.STRING 20 DIRECTORY.MATCH.SETUP) (97 ICONWINDOW 90 FILEBROWSER 55 HOST 44 FILEBROWSER 28 FILEBROWSER 14 FILEBROWSER 5 FILEBROWSER) ( 49 ":") FB.GET.NEWPATTERN :D8 (L (0 BROWSER)) /@ @HooH@i d (44 DIRECTORY.FILL.PATTERN 37 FB.PROMPTFORINPUT 5 FB.ALLOW.ABORT) (11 FILEBROWSER) ( 29 "File group description: " 23 "New file group description: ") FB.OPTIONSCOMMAND :D8 (L (0 BROWSER)) @o (10 FB.PROMPTWPRINT) NIL ( 5 "Please use the Options roll-out submenu to select the option you desire.") FB.GETWINDOW :D8 (L (1 WHICH 0 WINDOW)) @ 1Hg Y[AdgIdgIgHAdgI gHg Zh[ gKiJ(119 \\INSUREWINDOW 106 GETWINDOWUSERPROP 19 GETWINDOWUSERPROP 5 CENTRALWINDOW) (126 MENUBUTTONFN 101 ATTACHEDWINDOWS 92 COMMAND 84 FILEBROWSER 75 PROMPT 64 BROWSER 56 FILEBROWSER 47 COUNTER 38 FILEBROWSER 29 HEADING 14 FILEBROWSER) () FB.INFOMENU.SHADEINITIALSELECTIONS :D8 (L (1 INITIALSELECTIONS 0 MENUWINDOW)) 7@g HAdI H`@ h(46 SHADEITEM 34 FB.INFO.ITEM.NAMED 10 GETWINDOWUSERPROP) (40 FB.INFOSHADE 20 MENU 5 MENU) () FB.INFO.ITEM.NAMED :D8 (L (1 ITEMS 0 TAG)) AHhd@ HX(19 CL::SIMPLE-STRING-EQUAL) NIL () FB.MAKECOUNTERWINDOW :D8 (L (4 TITLE 3 HEIGHT 2 WIDTH 1 FONT 0 BROWSERWINDOW)) jdBChDohi H AH H@g @g HHgg Hgg Hgg Hgg @gj H(146 PUTWINDOWPROP 134 PUTWINDOWPROP 118 PUTWINDOWPROP 102 PUTWINDOWPROP 86 PUTWINDOWPROP 62 GETWINDOWUSERPROP 51 ATTACHWINDOW 39 DSPFONT 32 FB.MAKERIGIDWINDOW 23 CREATEW) (140 TOPMARGIN 129 TOTOPW.MODERNIZE 124 BUTTONEVENTFN 113 NILL 108 PAGEFULLFN 97 FB.COUNTERW.REDISPLAYFN 92 RESHAPEFN 81 FB.COUNTERW.REDISPLAYFN 76 REPAINTFN 67 FILEBROWSER 57 FILEBROWSER 46 TOP) ( 16 "File Browser Window") FB.COUNTERW.REDISPLAYFN :D8 (L (0 COUNTERWINDOW)) 0@i g HPj@ H h(43 FB.DISPLAY.COUNTERS 37 CLEARW 16 GETWINDOWUSERPROP 6 MAINWINDOW) (25 FILEBROWSER 11 FILEBROWSER) () FB.UPDATE.COUNTERS :D8 (L (1 TYPE 0 FBROWSER)) @ @(@ @"@!@$@*Hg _h_@ j@JLKM Ag@JK hAgh @LM h_jH IO" O_Oh_O>OH OH NH jHhH _jOOOg O_O_(247 BLTSHADE 224 DSPXPOSITION 214 PRIN3 206 PRIN3 197 DSPXPOSITION 157 DSPXPOSITION 145 FB.COUNTER.STRING 124 FB.COUNTER.STRING 106 FB.COUNTER.STRING 75 GETWINDOWPROP) (241 REPLACE 132 TOTAL 114 DELETED 88 FILEBROWSER 70 HEIGHT 61 FILEBROWSER 52 FILEBROWSER 43 FILEBROWSER 34 FILEBROWSER 25 FILEBROWSER 16 FILEBROWSER 5 FILEBROWSER) () FB.DISPLAY.COUNTERS :D8 (L (0 FBROWSER)) @@ @"@!@$Hg hH Ml_llaN _Hg _h__@ jo@IKJLهo@IJ ho@KL hh_jH nH nH j_O,d_OON ON _dOO_@&oOo_N Oo_OON O"Oddkl o @OOBO O$(@O*O_*H hH O*H OH jHhH _jO"OOg O"H O"h_(O&O(h_&_$O _ O"O_"xO(&_&(451 DSPXPOSITION 442 BLTSHADE 421 DSPXPOSITION 411 PRIN3 402 PRIN3 392 DSPXPOSITION 384 PRIN3 332 CONCAT 322 SUBSTRING 300 STRINGWIDTH 277 STRINGWIDTH 227 STRINGWIDTH 217 STRINGWIDTH 194 LINELENGTH 185 DSPRIGHTMARGIN 176 DSPXPOSITION 161 FB.COUNTER.STRING 145 FB.COUNTER.STRING 98 GETWINDOWPROP 82 CHARWIDTH 65 DSPFONT 57 GETWINDOWPROP) (436 REPLACE 367 FILEBROWSER 344 FILEBROWSER 252 FILEBROWSER 113 FILEBROWSER 93 HEIGHT 52 WIDTH 43 FILEBROWSER 34 FILEBROWSER 25 FILEBROWSER 16 FILEBROWSER 5 FILEBROWSER) ( 327 ": " 287 " pgs" 269 " pages" 260 "" 153 "Deleted: " 137 "Total: " 124 "Undeleted: ") FB.COUNTER.STRING :D8 (L (2 NPAGES 1 NFILES 0 FBROWSER)) @&AoB A (27 MKSTRING 20 CONCAT) (5 FILEBROWSER) ( 14 " / ") FB.MAKEHEADINGWINDOW :D8 (L (3 FONT 2 HEIGHT 1 WIDTH 0 BROWSERWINDOW)) jdABhhji CH H H@g Hgi nH Hgg Hgg gH hngH Hgg @gj H(151 PUTWINDOWPROP 139 PUTWINDOWPROP 123 DSPFILL 108 DSPOPERATION 97 PUTWINDOWPROP 81 PUTWINDOWPROP 65 DSPTEXTURE 56 PUTWINDOWPROP 44 ATTACHWINDOW 32 FB.MAKERIGIDWINDOW 26 DSPFONT 16 CREATEW) (145 TOPMARGIN 134 TOTOPW.MODERNIZE 129 BUTTONEVENTFN 117 REPLACE 102 INVERT 92 FB.HEADINGW.RESHAPEFN 87 RESHAPEFN 76 FB.HEADINGW.REDISPLAYFN 71 REPAINTFN 50 PASSTOMAINCOMS 39 TOP) () FB.HEADINGW.REDISPLAYFN :D8 (L (0 WINDOW)) @g g @ (26 FB.HEADINGW.DISPLAY 20 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (15 FILEBROWSER 5 MAINWINDOW) () FB.HEADINGW.RESHAPEFN :D8 (L (0 WINDOW)) '@g g @ H@ (36 FB.HEADINGW.DISPLAY 29 CLEARW 20 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (15 FILEBROWSER 5 MAINWINDOW) () FB.HEADINGW.DISPLAY :D8 (L (1 WINDOW 0 FBROWSER)) A hA YImغA ,[@Լ@hIngH n}H IL*lKH oH MjHoM @_h_LJO^LNOH ՀLH OH LOԼO(204 PRIN3 193 DSPXPOSITION 184 STRINGWIDTH 134 CL:FORMAT 117 PRIN3 105 DSPXPOSITION 88 DSPRIGHTMARGIN 79 DSPFILL 39 \\INSUREWINDOW 34 MAINWINDOW 17 DSPCLIPPINGREGION 5 \\INSUREWINDOW) (141 FILEBROWSER 73 REPLACE 58 FILEBROWSER 48 FILEBROWSER) ( 128 " (depth ~D)" 111 "Name") FB.ICONFN :D8 (L (2 POSITION 1 OLDICON 0 WINDOW)) /A,`@g `Bhdg (44 TITLEDICONW 18 GETWINDOWUSERPROP) (38 FILE 30 FB.ICONFONT 23 FILEBROWSER 13 FILEBROWSER 7 FB.ICONSPEC) () FB.INFOMENU.WHENSELECTEDFN :D8 (L (2 KEY 1 MENU 0 ITEM)) \@!A g g Y.HJ@Aj HJ @A` HJIJ.J(74 SHADEITEM 61 REMOVE 53 SHADEITEM 31 GETWINDOWUSERPROP 21 GETWINDOWUSERPROP 11 WFROMMENU) (85 FILEBROWSER 69 FB.INFOSHADE 37 FILEBROWSER 26 FILEBROWSER 16 MAINWINDOW) () FB.CLOSEFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 TBROWSER F 1 FLG) hP 8id "oQ o gPg j" dgggh(78 MENU 73 FB.EXPUNGE?.MENU 64 TB.NUMBER.OF.ITEMS 47 PROMPTPRINT 42 CONCAT 32 L-CASE 19 OBTAIN.MONITORLOCK 5 TB.USERDATA) (97 NOEXPUNGE 91 FB.CLOSE&EXPUNGE 84 EXPUNGE 59 DELETED 52 DON\'T 10 FILEBROWSER) ( 37 " window while browser is busy" 26 "Can't ") FB.CLOSEFN :D8 (L (1 WINDOW) P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 FLG I 0 TBROWSER F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \\MVLIST 13 FB.CLOSEFNA0001) (8 SI::RESETUNWIND) () FB.EXPUNGE?.MENU :D8 NIL a`Z`d`dldi dod`dg dgjdndhHdI NIL (94 FB.EXPUNGE?MENU 65 DEFAULTMENUHELDFN 56 CLRPROMPT 47 FB.BROWSERFONT 18 FB.CLOSE.MENU.ITEMS 11 |MENUTYPE#| 4 FB.EXPUNGE?MENU) ( 38 "Do what with deleted files?") FB.AFTERCLOSEFN :D8 (L (1 WINDOW 0 TBROWSER)) Agh h@h (26 TB.USERDATA 11 PUTWINDOWPROP) (16 FILEBROWSER 5 FILEBROWSER) () FB.CLOSE&EXPUNGEA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 BROWSER F 1 ITEM F 2 MENU F 3 FLG F 4 TBROWSER) .PQR PhddS PQR TPS (43 TB.FINISH.CLOSE 28 FB.FINISH.COMMAND 18 FB.EXPUNGECOMMAND 7 FB.MAKE.BROWSER.BUSY) (35 FILEBROWSER) () FB.CLOSE&EXPUNGE :D8 (L (1 WINDOW) P 6 RESETSTATE P 5 SI::*RESETFORMS* P 4 LISPXHIST P 2 ITEM P 1 MENU P 0 BROWSER I 2 FLG I 0 TBROWSER F 7 LISPXHIST) a@ 1A [ g YKkgIZW!g $(90 SI::RESETUNWIND 85 \\MVLIST 80 FB.CLOSE&EXPUNGEA0001 31 GETWINDOWUSERPROP 14 ATTACHEDWINDOWS 5 TB.USERDATA) (75 SI::RESETUNWIND 61 MENU 55 |Expunge| 44 MENU 26 MENU) () FB.HARDCOPY.DIRECTORYA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 30 IMAGESTREAM F 31 WINDOW) W>g W>g hW< nW< hW< j```H H Hio NdW< hW< ^oH _W