(FILECREATED "28-Sep-85 22:56:17" ("compiled on " {DSK2}FILEBROWSER.;29) "23-Sep-85 15:35:09" recompiled exprs: FB.COPY/RENAME.MANY in "INTERLISP-D 23-Sep-85 ..." dated "23-Sep-85 16:13:30") (FILECREATED "28-Sep-85 22:55:55" {DSK2}FILEBROWSER.;29 105478 changes to: (FNS FB.COPY/RENAME.MANY FB.UPDATEBROWSERITEMS FB.ABORT.UPDATE FB.CLEANUP.UPDATE FB.EXPUNGECOMMAND FB.CLOSE&EXPUNGE FB.GET.NEW.FILE.SPEC FB.DELVER.FILES FB.MAYBE.EXPUNGE FB.UPDATECOMMAND FB.NEWPATTERNCOMMAND FB.COPY/RENAME.COMMAND FB.COPY/RENAME.ONE FB.EXPUNGE?.MENU) (RECORDS FILEBROWSER) (VARS FILEBROWSERCOMS) previous date: "19-Sep-85 16:49:38" {DSK2}FILEBROWSER.;24) FB D1 (P 0 PAT&PROPS I 0 PATTERN) @ HH h(15Q FILEBROWSER 3 NLAMBDA.ARGS) NIL () FILEBROWSER D1 (P 16Q X P 13Q COUNTERW P 12Q HEADINGW P 11Q COMMANDMENU P 10Q BROWSERWINDOW P 7 BROWSERWIDTH P 6 COMMANDMENUWIDTH P 5 COMMANDMENUWINDOW P 4 COUNTERHEIGHT P 3 PROMPTWHEIGHT P 2 BROWSER P 1 BROWSERFONTHEIGHT P 0 TITLEFONT I 2 REGION I 1 DESIREDPROPS I 0 FILESPEC) h` ` `d`d`di dkdgdodg dgjdndh_dO _ `` Hi \BN`lKLIl bBBN_BLKIB _`O Og`dOd`la` l_dOdgZ JhOgggggJggggh OOI` OHOL O ]Ogg JO``  O Ogg Am`bJA,Ogg gJO@ddi3 g@hhgggg OdO` `Olc`hO ٰ(742Q MISSPELLED? 714Q FB.\ItemWithTag 674Q ADD.PROCESS 617Q PUTWINDOWPROP 567Q PUTWINDOWPROP 554Q TOTOPW 545Q FB.MAKERIGIDWINDOW 542Q GETPROMPTWINDOW 526Q ATTACHWINDOW 512Q MENUWINDOW 505Q FB.MAKECOUNTERWINDOW 474Q FB.MAKEHEADINGWINDOW 457Q TB.MAKE.BROWSER 400Q PUTWINDOWPROP 351Q CHARWIDTH 312Q DSPFONT 277Q CREATEW 232Q GETREGION 203Q HEIGHTIFWINDOW 170Q HEIGHTIFWINDOW 143Q CHECK/MENU/IMAGE 6 DSPFONT) (733Q DIRCOMMANDS 721Q DIRCOMMANDS 711Q FB.INFOMENUITEMS 670Q DON'T 665Q BEFOREEXIT 662Q FB-Update 657Q NAME 643Q QUOTE 622Q FB.STARTUP 614Q FB.ICONFN 611Q ICONFN 575Q FB.DEFAULT.INFO 564Q FB.SCROLLFN 561Q SCROLLFN 537Q FB.PROMPTFONT 534Q FB.PROMPTLINES 523Q TOP 520Q RIGHT 471Q FB.BROWSERFONT 441Q FB.AFTERCLOSEFN 436Q AFTERCLOSEFN 433Q FB.CLOSEFN 430Q CLOSEFN 424Q USERDATA 421Q FB.COPYFN 416Q COPYFN 413Q FB.PRINTFN 410Q PRINTFN 371Q FB.NAMES.DECREASING.VERSION 346Q FB.BROWSERFONT 336Q FB.BROWSERFONT 323Q FILEBROWSERTYPE# 320Q FILEBROWSER 305Q FB.BROWSERFONT 213Q FB.DEFAULT.NAME.WIDTH 175Q FONTDESCRIPTOR 162Q FONTDESCRIPTOR 157Q FB.PROMPTFONT 154Q FB.PROMPTLINES 146Q BITMAP 107Q DEFAULTMENUHELDFN 100Q CLRPROMPT 61Q FB.MENU.WHENSELECTEDFN 40Q FB.MENU.ITEMS 31Q FB.MENUFONT 24Q MENUTYPE# 14Q FONTDESCRIPTOR 11Q FB.BROWSERFONT 3 WindowTitleDisplayStream) ( 71Q "FB Commands") FB.PRINTFN D1 (P 17Q SPEC P 15Q CHAR0 P 14Q ACTUALNEXT P 13Q CHEAT P 12Q TEMP P 11Q FORMAT P 10Q VERSION P 7 INFO P 6 HEADING P 5 NEXTPOS P 4 FILEINFO P 3 INFOWANTED P 2 XPOS P 1 FDATA P 0 FBROWSER I 2 WINDOW I 1 ITEM I 0 TBROWSER) )@ A IdoB IB I_gB oOB H]H [I\`Oh_^KO_LN'_hB ZM_SOaOd3 \OJMl0H _k__k9Ol Ok *gOh_MOO_@AJOJ OB OoB OOOd3 OOB OB MOԽO_:(426Q PRIN1 417Q PRINTNUM 370Q PRIN1 354Q DSPXPOSITION 345Q TB.CLEAR.LINE 301Q EXPT 250Q CHARWIDTH 202Q DSPXPOSITION 101Q PRINTNUM 66Q PRIN1 46Q PRIN1 35Q PRIN1 3 TB.USERDATA) (310Q FIX 243Q FILEBROWSER 131Q FB.INFOFIELDS 115Q FILEBROWSER 106Q FILEBROWSER 62Q ;) ( 364Q " " 73Q (FIX 1) 31Q " ") FB.COPYFN D1 (I 1 ITEM I 0 TBROWSER) A (6 BKSYSBUF) NIL () FB.STARTUPA0001 D1 (NAME ERRORSET F 0 BROWSER F 1 FILESPEC F 2 COMMANDMENU F 3 RESETY) *PgRR QPQ cP P ci(44Q FB.NEWPATTERNCOMMAND 37Q FB.UPDATEBROWSERITEMS 26Q DIRECTORY.FILL.PATTERN 16Q FB.MAKE.BROWSER.BUSY) (7 MENU 3 Recompute) () FB.STARTUP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 FILESPEC I 1 COMMANDMENU I 0 BROWSER F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FB.STARTUPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (FB.STARTUPA0001)) FB.MAKERIGIDWINDOW D1 (P 0 HEIGHT I 0 WINDOW) &@ @gjH @g`H @(42Q PUTWINDOWPROP 26Q PUTWINDOWPROP 3 \INSUREWINDOW) (35Q SCREENWIDTH 32Q MAXSIZE 20Q MINSIZE) () FB.MENU.WHENSELECTEDFN D1 (I 2 Key I 1 Menu I 0 Item) Ug@ddi3 g@hAddi3 gAhBddi3 gBhhgg@ gg (122Q ADD.PROCESS 110Q PACK*) (116Q DON'T 113Q BEFOREEXIT 103Q FB- 100Q NAME 64Q QUOTE 42Q QUOTE 20Q QUOTE 2 FB.COMMANDSELECTEDFN) () FB.COMMANDSELECTEDFNA0001 D1 (NAME ERRORSET P 7 EXTRA P 6 PWINDOW P 5 FN P 4 I P 2 FBROWSER P 1 WINDOW P 0 REALITEM F 10Q ITEM F 11Q MENU F 12Q KEY F 13Q RESETY) WW g Ig WW WK;hcJWW JHJ N N M&JWHWOlM$WL LiK[_MI ci(223Q FLASHWINDOW 171Q FB.SUBITEMP 134Q CLEARW 127Q OPENWP 105Q FB.MAKE.BROWSER.BUSY 50Q MEMBER 31Q GETWINDOWUSERPROP 17Q GETWINDOWUSERPROP 11Q WFROMMENU) (116Q FILEBROWSER 57Q MENU 43Q MENU 26Q FILEBROWSER 14Q MAINWINDOW) () FB.COMMANDSELECTEDFN 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 FB.COMMANDSELECTEDFNA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (FB.COMMANDSELECTEDFNA0001)) FB.SUBITEMP D1 (P 2 I P 0 SUB I 1 ITEM I 0 SUBITEM) 9AHdg@H HIh@J JiIY(54Q FB.SUBITEMP 30Q MEMBER) (20Q SUBITEMS) () FB.MAKE.BROWSER.BUSYA0001 D1 (I 1 MENU I 0 ITEM) @A` (7 SHADEITEM) (4 FB.ITEMUNSELECTEDSHADE) () FB.MAKE.BROWSER.BUSY D1 (I 3 DONTWAIT I 2 MENU I 1 ITEM I 0 BROWSER F 0 RESETVARSLST) .@Ci gABhhhPcAB` i(52Q SHADEITEM 17Q OBTAIN.MONITORLOCK) (47Q FB.ITEMSELECTEDSHADE 24Q FB.MAKE.BROWSER.BUSYA0001 10Q TABLEBROWSER 3 FILEBROWSER) () FB.SELECTEDFILES D1 (I 1 NOERRORFLG I 0 BROWSER) @g A@io h(25Q FB.PROMPTWPRINT 10Q TB.COLLECT.ITEMS) (5 SELECTED) ( 22Q "No files are selected") FB.TABLEBROWSER D1 (L (0 FILEBROWSER)) @NIL (3 FILEBROWSER) () FB.FETCHFILENAME D1 (L (0 ITEM)) @NIL NIL () FB.DELETECOMMAND D1 (I 0 BROWSER) @g @ (17Q FB.UPDATE.COUNTERS 13Q TB.MAP.SELECTED.ITEMS) (10Q FB.DELETE.FILE 3 FILEBROWSER) () FB.DELVERCOMMANDA0001 D1 (L (1 ITEM 0 BROWSER)) A0jhhNIL (3 TABLEITEM) () FB.DELVERCOMMAND D1 (P 3 FILES P 2 NDELETED P 1 TBROWSER P 0 NVERSIONS I 0 FBROWSER) {oo@i 1Hdg X3 @ioHo @Yg [I@dgKgKg Kg H Z@g @ioJo (170Q FB.PROMPTWPRINT 151Q FB.UPDATE.COUNTERS 141Q FB.DELVER.FILES 135Q SORT 125Q FB.SORT.VERSIONS 67Q TB.COLLECT.ITEMS 51Q FB.PROMPTWPRINT 26Q MKATOM 14Q FB.PROMPTFORINPUT) (146Q DELETED 132Q FB.NAMES.DECREASING.VERSION 122Q FB.DECREASING.VERSION 114Q FB.NAMES.INCREASING.VERSION 103Q FB.NAMES.DECREASING.VERSION 75Q FILEBROWSER 64Q FB.DELVERCOMMANDA0001 56Q FILEBROWSER) ( 164Q " files marked for deletion." 157Q "Done, " 45Q " not an integer." 40Q "?? " 7 "1" 3 "Number of versions to keep: ") FB.DELVER.FILES D1 (P 6 LASTSUBDIR P 5 LASTNAME P 4 THISNAME P 3 FILE P 2 #SEENSOFAR P 1 #DELETED I 2 NVERSIONS I 1 FILES I 0 TBROWSER) XAjdCHI[\M )KN JkZB @K IkԹLKkHX(70Q FB.DELETE.FILE 51Q STRING-EQUAL 27Q STRING-EQUAL) NIL () FB.DELETE.FILE D1 (P 1 SIZE P 0 FBROWSER I 1 ITEM I 0 TBROWSER) 8Aj0@ @A HdkAYHd"I"i(23Q TB.DELETE.ITEM 13Q TB.USERDATA) (56Q FILEBROWSER 30Q FILEBROWSER) () FB.UNDELETE.FILE D1 (P 1 SIZE P 0 FBROWSER I 1 ITEM I 0 TBROWSER) ?Aj6@ !@A HdmAYHd"jIZ"Jh(23Q TB.UNDELETE.ITEM 13Q TB.USERDATA) (60Q FILEBROWSER 30Q FILEBROWSER) () FB.UNDELETECOMMAND D1 (I 0 BROWSER) @g @ (17Q FB.UPDATE.COUNTERS 13Q TB.MAP.SELECTED.ITEMS) (10Q FB.UNDELETE.FILE 3 FILEBROWSER) () FB.UNDELETEALLCOMMAND D1 (I 0 BROWSER) @g @ (17Q FB.UPDATE.COUNTERS 13Q TB.MAP.ITEMS) (10Q FB.UNDELETE.FILE 3 FILEBROWSER) () FB.HARDCOPYCOMMAND D1 (I 1 KEY I 0 BROWSER) (g0@ d IHhZH&J (45Q APPLY 20Q FB.FETCHFILENAME 11Q FB.SELECTEDFILES) (2 LISTFILES) () FB.LOADCOMMAND D1 (P 0 FILES I 4 LOADOP I 3 MENU I 2 ITEM I 1 KEY I 0 BROWSER) M@ HCgDgYddi3 gIhHddi3 gHhhgggg (112Q ADD.PROCESS 3 FB.SELECTEDFILES) (106Q DON'T 103Q BEFOREEXIT 100Q LOAD 75Q NAME 62Q QUOTE 40Q QUOTE 22Q LOAD 14Q FB.OPERATE.ON.FILES) () FB.EDITCOMMANDA0001 D1 (NAME ERRORSET P 3 NSTR P 2 SRC P 1 STR P 0 WINDOW F 4 RESETVARSLST F 5 FILE F 6 RESETY) hU Ug I #gIhhhTcIK KYCI OIkٹJJAH @ @^d@{@*@__NO&@NkhO*Skظ@jAkJ O_O__NdONOOONkhOOOk`ABAHI LIAkI A@$dgBg'gBg'd nhdKh_dO(431Q SUBSTRING 420Q SUBSTRING 306Q SUBSTRING 170Q STRINGWIDTH 157Q SUBSTRING 102Q SUBATOM 31Q NCHARS 16Q FB.ANALYZE.PATTERN) (471Q LENGTH 462Q LENGTH 454Q SIZE 445Q SIZE 437Q FILEBROWSER 407Q TABLEITEMTYPE# 271Q FILEBROWSER 225Q FILEBROWSER 217Q FILEBROWSER 205Q FILEBROWSER 174Q FILEBROWSER 163Q FILEBROWSER 23Q FILEBROWSER 3 FILEBROWSER) () FB.ADD.FILEGROUP D1 (P 1 ITEM P 0 THISSUBDIR I 4 LASTSUBDIR I 3 OTHERFILES I 2 LASTFILE I 1 FBROWSER I 0 TBROWSER) RAjBXDHD @AH CBCg d@AI h@AB (117Q FB.ADD.FILE 102Q FB.ADD.FILE 66Q SORT 51Q FB.INSERT.DIRECTORY 42Q STRING-EQUAL) (63Q FB.DECREASING.VERSION 6 FILEBROWSER) () FB.INSERT.DIRECTORY D1 (I 3 BEFOREITEM I 2 SUBDIRECTORY I 1 FBROWSER I 0 TBROWSER) M@`dk0BAkAk bhBA hBhdihhHdIC (112Q TB.INSERT.ITEM 54Q SUBSTRING 37Q SUBSTRING) (47Q FILEBROWSER 30Q FILEBROWSER 21Q FILEBROWSER 3 TABLEITEMTYPE#) () FB.ADD.FILE D1 (P 0 SIZE I 3 BEFOREITEM I 2 ITEM I 1 FBROWSER I 0 TBROWSER) -BHAd H Adk@BC (52Q TB.INSERT.ITEM) (36Q FILEBROWSER 22Q FILEBROWSER) () FB.INSERT.FILEA0001 D1 (I 1 ITEM I 0 BROWSER F 0 FILE F 1 FBSORTFN) A0jhh PAlQNIL (3 TABLEITEM) () FB.INSERT.FILE D1 (P 7 N P 6 PREVITEM P 5 NEXTITEM P 4 OTHERDIR P 3 NOSUBDIRS P 2 MYSUBDIR P 1 FBSORTFN P 0 TBROWSER I 1 FILE I 0 BROWSER) @@A@jhDHg ]d:K7d_k+HOk ^0jMJ NHAM KoM8M0jM\J KMM0jH@LM A_kJhHOk ^J H@JA @Ag (351Q FB.COUNT.FILE.CHANGE 340Q FB.INSERT.DIRECTORY 330Q STRING-EQUAL 305Q TB.NTH.ITEM 254Q FB.INSERT.DIRECTORY 226Q STRING-EQUAL 161Q TB.INSERT.ITEM 150Q STRING-EQUAL 112Q TB.NTH.ITEM 57Q TB.FIND.ITEM) (346Q ADD 311Q TABLEITEM 261Q TABLEITEM 237Q TABLEITEM 206Q TABLEITEM 173Q TABLEITEM 131Q TABLEITEM 116Q TABLEITEM 72Q TABLEITEM 54Q FB.INSERT.FILEA0001 36Q FILEBROWSER 17Q TABLEITEM 11Q FILEBROWSER 3 FILEBROWSER) () FB.ANALYZE.PATTERN D1 (P 5 N P 4 STARTOFNAME P 3 LASTPATDIR P 2 SAMPLEHOSTEND P 1 PATHOSTEND P 0 PATTERN I 1 SAMPLE I 0 BROWSER) @jd#HIkY)dl'IkԹdl}9IHMk])dl'MkԽdl:dl>Mddl*dl#гjAJkZ)dl'JkԺdl}jZK&HIkK AJkhdi` \AkLk HK$JkؼIJHkI AkI AkJ HIk @H @gHo @k0kjh@Jk@LL(344Q PUTWINDOWPROP 341Q CONCAT 320Q FB.SETNEWPATTERN 312Q CONCAT 307Q SUBSTRING 300Q SUBSTRING 270Q STREQUAL 265Q SUBSTRING 257Q SUBSTRING 234Q SUBSTRING 222Q STRPOS 204Q SUBSTRING) (331Q TITLE 324Q FILEBROWSER 216Q UPPERCASEARRAY 3 FILEBROWSER) ( 336Q " browser") FB.GETALLFILEINFO D1 (P 3 RESULT P 2 INFO P 1 ATTR I 2 ATTRIBUTES I 1 GENERATOR I 0 FILE) B1HKAI ZIJKHX(20Q \GENERATEFILEINFO) NIL () FB.SORT.VERSIONS D1 (P 4 THISNAME P 3 NEWTAIL P 2 NEXTTAIL P 1 PREVTAIL P 0 TAIL I 1 SORTFN I 0 ITEMS) @AHd@\H \HZLJ J0HdJ#MA IKbJXK YJKH_N Oh^O&HYX(133Q LAST 113Q SORT 67Q STRING-EQUAL 41Q STRING-EQUAL) (57Q TABLEITEM 31Q TABLEITEM 15Q TABLEITEM) () FB.DECREASING.VERSION D1 (L (1 Y 0 X)) #Ab@bh@ANIL (21Q TABLEITEM 3 TABLEITEM) () FB.INCREASING.VERSION D1 (L (1 Y 0 X)) #Abh@bA@NIL (23Q TABLEITEM 3 TABLEITEM) () FB.NAMES.DECREASING.VERSION D1 (I 1 Y I 0 X) G@bAb` dgigAb@bh@A(37Q ALPHORDER) (52Q EQUAL 43Q LESSP 34Q UPPERCASEARRAY 20Q TABLEITEM 3 TABLEITEM) () FB.NAMES.INCREASING.VERSION D1 (I 1 Y I 0 X) G@bAb` dgigAbh@bA@(37Q ALPHORDER) (52Q EQUAL 43Q LESSP 34Q UPPERCASEARRAY 20Q TABLEITEM 3 TABLEITEM) () FB.EXPUNGECOMMAND D1 (P 6 ITEM P 5 FILE P 4 FAILED P 3 FILENAME P 2 FILES P 1 NDELETED P 0 TBROWSER I 4 CMD I 3 MENU I 2 ITEM I 1 KEY I 0 FBROWSER) @jBHg Zy@io J3dN [ IkԹH@N @g @ioK i\@IjoLooI o LD@oDo h@io i(220Q FB.PROMPTWPRINT 205Q FB.PROMPTWPRINT 161Q FB.PROMPTWPRINT 152Q CONCAT 111Q FB.PROMPTWPRINT 76Q FB.UPDATE.COUNTERS 66Q FB.REMOVE.FILE 52Q DELFILE 46Q FB.FETCHFILENAME 31Q FB.PROMPTWPRINT 15Q TB.COLLECT.ITEMS) (73Q BOTH 12Q DELETED) ( 215Q "No files were marked for deletion" 202Q " aborted." 175Q " " 156Q " files expunged." 146Q "done, " 141Q " Done, but only " 132Q " No" 105Q "Couldn't expunge " 26Q "Expunging deleted files...") FB.REMOVE.FILE D1 (P 3 NEXTNEXTITEM P 2 NEXTITEM P 1 PREVITEM P 0 N I 2 ITEM I 1 FBROWSER I 0 TBROWSER) B1Hk@Hk Y0js@Hk ZJ0j_@I JV@Hk [LHmXkKh)K@Hk  @J @B ABg (237Q FB.COUNT.FILE.CHANGE 227Q TB.REMOVE.ITEM 221Q TB.REMOVE.ITEM 213Q STRING-EQUAL 172Q TB.NTH.ITEM 105Q TB.NTH.ITEM 72Q TB.REMOVE.ITEM 50Q TB.NTH.ITEM 26Q TB.NTH.ITEM) (234Q REMOVE 175Q TABLEITEM 150Q TABLEITEM 125Q TABLEITEM 56Q TABLEITEM 32Q TABLEITEM 3 TABLEITEM) () FB.COUNT.FILE.CHANGE D1 (I 2 FLG I 1 ITEM I 0 FBROWSER) rBdgkgmAg'Ajh3@ddH[KJ@ddH\LI @d IHY J@d"I]"M(24Q SHOULDNT) (147Q FILEBROWSER 126Q FILEBROWSER 102Q FILEBROWSER 56Q FILEBROWSER 34Q SIZE 14Q REMOVE 4 ADD) () FB.NEWPATTERNCOMMAND D1 (P 0 PATTERN I 0 BROWSER) @o @ X @H @ (34Q FB.UPDATEBROWSERITEMS 30Q FB.SETNEWPATTERN 20Q FB.GET.NEWPATTERN 12Q FB.MAYBE.EXPUNGE) NIL ( 7 "New Pattern") FB.SETNEWPATTERN D1 (P 0 ICON I 1 PATTERN I 0 FBROWSER) 2@A@A @j0jdh@g XAA (55Q ICONW.TITLE 44Q GETWINDOWUSERPROP 13Q DIRECTORY.MATCH.SETUP) (41Q ICONWINDOW 34Q FILEBROWSER) () FB.NEWINFOCOMMANDA0011 D1 (I 0 W) @i g dhh(12Q GETWINDOWUSERPROP 4 MAINWINDOW) (7 FILEBROWSER) () FB.NEWINFOCOMMAND D1 (P 2 REG P 1 INFOMENUW P 0 WINDOW I 0 BROWSER) @@"I `d`dldodi d`dgdg dgjdndhdK YHggg jI ZHJJ I@, @IIggi @go (264Q FB.PROMPTWPRINT 250Q WINDOWADDPROP 227Q FB.INFOMENU.SHADEINITIALSELECTIONS 214Q MOVEW 171Q \INSUREWINDOW 163Q ATTACHWINDOW 144Q MENUWINDOW 22Q OPENWP) (255Q CLEAR 244Q FB.NEWINFOCOMMANDA0011 241Q CLOSEFN 222Q FILEBROWSER 157Q LOCALCLOSE 154Q JUSTIFY 151Q BOTTOM 115Q DEFAULTMENUHELDFN 106Q CLRPROMPT 77Q FB.INFOMENU.WHENSELECTEDFN 70Q FB.MENUFONT 36Q FB.INFOMENUITEMS 31Q MENUTYPE# 11Q FILEBROWSER 3 FILEBROWSER) ( 261Q "Select from the lower menu which attributes are to be displayed, then click Recompute" 54Q "Info Options") FB.GET.NEWPATTERN D1 (P 1 PATTERN P 0 OLDPATTERN I 0 BROWSER) %@HooH@i Id (42Q DIRECTORY.FILL.PATTERN 31Q FB.PROMPTFORINPUT) (3 FILEBROWSER) ( 23Q "File group description: " 16Q "New file group description: ") FB.OPTIONSCOMMAND D1 (I 0 BROWSER) @o (7 FB.PROMPTWPRINT) NIL ( 4 "Please use the Options roll-out submenu to select the option you desire.") FB.PROMPTWPRINT D1 (P 4 ITEM P 2 THING P 1 WINDOW P 0 U) WelHo @ 1HlLdKhaZdiI gI JdgI I Lk\(116Q PRIN1 111Q FRESHLINE 73Q CLEARW 60Q TERPRI 17Q ERROR) (102Q FRESH 65Q CLEAR 24Q FILEBROWSER) ( 14Q "not enough args to PROMPTWPRINT") FB.PROMPTFORINPUTA0001 D1 (NAME ERRORSET F 0 PROMPT F 1 DEFAULT F 2 PWINDOW) PQhRhgo h(17Q PROMPTFORWORD) (7 TTY) ( 13Q (15Q 33Q)) FB.PROMPTFORINPUT D1 (P 6 EXCESSWIDTH P 5 I P 3 RESULT P 2 WINDOWWIDTH P 1 PROMPTWIDTH P 0 PWINDOW I 3 ABORTFLG I 2 BROWSER I 1 DEFAULT I 0 PROMPT) B @H Hg H IAoH JEl @ lIJLM0@M)l E@M H N8@kMk o@Mk bo [dCoH H KMmԽ(214Q TERPRI 207Q PRIN1 171Q FB.PROMPTFORINPUTA0001 156Q CONCAT 153Q SUBSTRING 140Q SUBSTRING 124Q STRINGWIDTH 120Q SUBSTRING 65Q NCHARS 52Q STRINGWIDTH 36Q CLEARW 27Q GETWINDOWPROP 15Q STRINGWIDTH) (24Q WIDTH 3 FILEBROWSER) ( 203Q "... aborted" 166Q (FB.PROMPTFORINPUTA0001) 144Q " " 46Q "XXX") FB.INFOMENU.SHADEINITIALSELECTIONS D1 (P 2 SELECTION P 1 MENUITEMS P 0 MENU I 1 INITIALSELECTIONS I 0 MENUWINDOW) ,@g !HAdZI H`@ h(43Q SHADEITEM 33Q FB.\ItemWithTag 6 GETWINDOWUSERPROP) (37Q FB.INFOSHADE 16Q MENU 3 MENU) () FB.\ItemWithTag D1 (L (1 ITEMS 0 TAG)) AHhY@IHXNIL NIL () FB.MAKECOUNTERWINDOW D1 (P 0 COUNTERW I 3 HEIGHT I 2 WIDTH I 1 FONT I 0 BROWSERWINDOW) QjdBChohi H AH H@g @g HHgg Hgg Hgg H(115Q PUTWINDOWPROP 103Q PUTWINDOWPROP 71Q PUTWINDOWPROP 54Q GETWINDOWUSERPROP 45Q ATTACHWINDOW 35Q DSPFONT 30Q FB.MAKERIGIDWINDOW 21Q CREATEW) (112Q NILL 107Q PAGEFULLFN 100Q FB.COUNTERW.REDISPLAYFN 75Q RESHAPEFN 66Q FB.COUNTERW.REDISPLAYFN 63Q REPAINTFN 51Q FILEBROWSER 42Q TOP) ( 14Q "File Browser Window") FB.COUNTERW.REDISPLAYFN D1 (I 0 COUNTERWINDOW) @ @i g (21Q FB.DISPLAY.COUNTERS 16Q GETWINDOWUSERPROP 10Q MAINWINDOW 3 CLEARW) (13Q FILEBROWSER) () FB.UPDATE.COUNTERS D1 (P 15Q PAIR P 14Q LAB P 11Q LABELS P 10Q HERE P 7 HEIGHT P 6 PAGESTRING P 5 DELPAGES P 4 DEL P 3 TOTALPAGES P 2 TOTAL P 1 XPOSPAIRS P 0 COUNTERW I 1 TYPE I 0 FBROWSER) @a@&@@ @@"@(Hg ! @ j@JLKM Ag@JK hAgh@LM h_jH IO" O_Oh_O2OH OH NH jHhH _jOOOg O_O_(256Q BLTSHADE 233Q DSPXPOSITION 223Q PRIN3 215Q PRIN3 206Q DSPXPOSITION 140Q DSPXPOSITION 126Q FB.COUNTER.STRING 105Q FB.COUNTER.STRING 70Q FB.COUNTER.STRING 44Q GETWINDOWPROP) (252Q REPLACE 113Q TOTAL 75Q DELETED 41Q HEIGHT) () FB.DISPLAY.COUNTERS D1 (P 26Q LAB P 22Q NEXTPOS P 20Q LAB P 17Q LAB P 16Q LABELS P 15Q HERE P 14Q MAXWIDTH P 13Q PAGESTRING P 12Q HEIGHT P 11Q THRESHOLDWIDTH P 10Q SECTIONWIDTH P 7 COUNTERFONT P 6 COUNTERWIDTH P 4 DELPAGES P 3 DEL P 2 TOTALPAGES P 1 TOTAL P 0 COUNTERW I 0 FBROWSER) @Q@@ @@"Hg hH Nl_laO l Hg A@ jo@IKJLنo@IJ ho@KL hh_jH nH nH j_O&dOOO OO ؽdMM_@$oOo_O Oo_OOO O"OdO dkl o @OOBO"O&&@O(O_,H hH O,H OH jHhH _jO$OOg O$H O$h_*O(O*h_(_&O"_"O$O_$O*&_((566Q DSPXPOSITION 557Q BLTSHADE 536Q DSPXPOSITION 526Q PRIN3 517Q PRIN3 507Q DSPXPOSITION 501Q PRIN3 431Q CONCAT 422Q SUBSTRING 371Q STRINGWIDTH 344Q STRINGWIDTH 273Q STRINGWIDTH 262Q STRINGWIDTH 234Q LINELENGTH 225Q DSPRIGHTMARGIN 216Q DSPXPOSITION 201Q FB.COUNTER.STRING 164Q FB.COUNTER.STRING 121Q GETWINDOWPROP 103Q CHARWIDTH 63Q DSPFONT 53Q GETWINDOWPROP) (553Q REPLACE 316Q FILEBROWSER 130Q FILEBROWSER 116Q HEIGHT 50Q WIDTH 41Q FILEBROWSER 32Q FILEBROWSER 23Q FILEBROWSER 14Q FILEBROWSER 3 FILEBROWSER) ( 426Q ": " 355Q " pgs" 335Q " pages" 325Q "" 173Q "Deleted: " 156Q "Total: " 142Q "Undeleted: ") FB.COUNTER.STRING D1 (I 2 NPAGES I 1 NFILES I 0 FBROWSER) @$AoB A (24Q MKSTRING 17Q CONCAT) (3 FILEBROWSER) ( 13Q " / ") FB.MAKEHEADINGWINDOW D1 (P 0 HEADINGW I 3 FONT I 2 HEIGHT I 1 WIDTH I 0 BROWSERWINDOW) ]jdABhhji CH Hgg Hgg H H@g nH gH hngH @g HH(126Q GETWINDOWUSERPROP 117Q DSPFILL 104Q DSPOPERATION 75Q DSPTEXTURE 66Q ATTACHWINDOW 56Q FB.MAKERIGIDWINDOW 52Q PUTWINDOWPROP 40Q PUTWINDOWPROP 26Q DSPFONT 16Q CREATEW) (123Q FILEBROWSER 113Q REPLACE 100Q INVERT 63Q TOP 47Q FB.HEADINGW.RESHAPEFN 44Q RESHAPEFN 35Q FB.HEADINGW.REDISPLAYFN 32Q REPAINTFN) () FB.HEADINGW.REDISPLAYFN D1 (I 0 WINDOW) @g g @ (20Q FB.HEADINGW.DISPLAY 14Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (11Q FILEBROWSER 3 MAINWINDOW) () FB.HEADINGW.RESHAPEFN D1 (P 0 FBROWSER I 0 WINDOW) @g g @ H@ H@ (35Q FB.UPDATE.HEADING.EXTENT 30Q FB.HEADINGW.DISPLAY 23Q CLEARW 14Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (11Q FILEBROWSER 3 MAINWINDOW) () FB.HEADINGW.DISPLAY D1 (P 3 SPEC P 1 HEADINGS P 0 NEXTPOS I 1 WINDOW I 0 FBROWSER) a@@ n}A hngA `lA oA `Jh[IHA KA HKԸJZ(122Q PRIN3 112Q DSPXPOSITION 62Q PRIN3 52Q DSPXPOSITION 40Q DSPFILL 25Q DSPRIGHTMARGIN) (65Q FB.INFOFIELDS 43Q WBorder 34Q REPLACE 11Q FILEBROWSER 3 FILEBROWSER) ( 56Q "Name") FB.ICONFN D1 (I 1 OLDICON I 0 WINDOW) )A&`h`h@g `hddg (46Q TITLEDICONW 24Q GETWINDOWUSERPROP) (42Q FILE 34Q FB.ICONFONT 27Q FILEBROWSER 21Q FILEBROWSER 11Q FILEDRAWERREGION 5 FILEDRAWER) () FB.SCROLLFNA0001 D1 (NAME ERRORSET P 0 FBROWSER F 1 WINDOW F 2 HORIZ F 3 VERT F 4 CONTINUOUS? F 5 RESETY) aQg Hid 8RjHjHQ HRST SjHkkQRST H c i(132Q TB.BROWSER.BUSY 120Q SCROLLBYREPAINTFN 74Q SCROLLW 57Q FB.UPDATE.HEADING.EXTENT 31Q OBTAIN.MONITORLOCK 6 GETWINDOWUSERPROP) (125Q FILEBROWSER 64Q FILEBROWSER 44Q FILEBROWSER 22Q TABLEBROWSER 15Q FILEBROWSER 3 FILEBROWSER) () FB.SCROLLFN D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 CONTINUOUS? I 2 VERT I 1 HORIZ I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FB.SCROLLFNA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (FB.SCROLLFNA0001)) FB.UPDATE.HEADING.EXTENT D1 (P 0 EXT I 1 WINDOW I 0 FBROWSER) 3A H@gjdHmh @jjdh(44Q PUTWINDOWPROP 3 \INSUREWINDOW) (24Q EXTENT 17Q FILEBROWSER) () FB.INFOMENU.WHENSELECTEDFN D1 (P 3 CHOSEN P 2 BROWSER P 1 WINDOW P 0 INFO I 2 KEY I 1 MENU I 0 ITEM) I@A g Ig J,HK@Aj HK @A` HKJK,K(74Q SHADEITEM 63Q REMOVE 55Q SHADEITEM 31Q GETWINDOWUSERPROP 17Q GETWINDOWUSERPROP 11Q WFROMMENU) (71Q FB.INFOSHADE 40Q FILEBROWSER 26Q FILEBROWSER 14Q MAINWINDOW) () FB.CLOSEFN D1 (I 2 FLG I 1 WINDOW I 0 TBROWSER) '@g j dggghg(20Q MENU 15Q FB.EXPUNGE?.MENU 6 TB.NUMBER.OF.ITEMS) (44Q DON'T 35Q NOEXPUNGE 31Q FB.CLOSE&EXPUNGE 24Q EXPUNGE 3 DELETED) () FB.EXPUNGE?.MENU D1 NIL R`M`d`dldi dod`dg dgjdndhHdI NIL (117Q FB.EXPUNGE?MENU 64Q DEFAULTMENUHELDFN 55Q CLRPROMPT 46Q FB.BROWSERFONT 14Q FB.CLOSEMENUITEMS 7 MENUTYPE# 2 FB.EXPUNGE?MENU) ( 37Q "Do what with deleted files?") FB.AFTERCLOSEFN D1 (P 0 FBROWSER I 1 WINDOW I 0 TBROWSER) Ag Hh@h (22Q TB.USERDATA 6 PUTWINDOWPROP) (3 FILEBROWSER) () FB.CLOSE&EXPUNGEA0001 D1 (NAME ERRORSET F 0 BROWSER F 1 ITEM F 2 MENU F 3 FLG F 4 RESETY F 5 TBROWSER) (PQR PhddS QR` UPS ci(42Q TB.FINISH.CLOSE 31Q SHADEITEM 17Q FB.EXPUNGECOMMAND 5 FB.MAKE.BROWSER.BUSY) (26Q FB.ITEMUNSELECTEDSHADE) () FB.CLOSE&EXPUNGE D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 W P 2 ITEM P 1 MENU P 0 BROWSER I 2 FLG I 1 WINDOW I 0 TBROWSER F 10Q LISPXHIST F 11Q RESETVARSLST) Z@ !A K\g YK[kgIZW!Wog hg_ ON(125Q ERROR! 117Q RESETRESTORE 104Q FB.CLOSE&EXPUNGEA0001 33Q GETWINDOWUSERPROP 12Q ATTACHEDWINDOWS 3 TB.USERDATA) (112Q ERROR 101Q INTERNAL 56Q Expunge 30Q MENU) ( 76Q (FB.CLOSE&EXPUNGEA0001)) FB.FASTSEECOMMANDA0001 D1 (I 0 W) @g @ . (17Q DEL.PROCESS 12Q \INSUREWINDOW 6 PUTWINDOWPROP) (3 INUSE) () FB.FASTSEECOMMANDA0002 D1 (NAME ERRORSET F 0 TAIL F 1 SEEWINDOW F 2 UNFORMATTED) P QRP i(13Q FB.FASTSEE.ONEFILE 4 FB.FETCHFILENAME) NIL () FB.FASTSEECOMMAND D1 (P 2 TAIL P 1 SEEWINDOW P 0 FILELIST I 4 UNFORMATTED I 3 MENU I 2 ITEM I 1 KEY I 0 BROWSER F 3 RESETVARSLST)  @ X@Y Ig ,ho iI @IIgg Igg gIghhIgi hScgIghhIg` hScI Hdoi h(230Q FB.FASTSEECOMMANDA0002 212Q TTYDISPLAYSTREAM 177Q PUTWINDOWPROP 141Q PUTWINDOWPROP 113Q WINDOWADDPROP 100Q PUTWINDOWPROP 60Q DSPSCROLL 52Q CREATEW 40Q GETWINDOWUSERPROP 27Q WINDOWP 6 FB.SELECTEDFILES) (174Q \RUNNING.PROCESS 171Q PROCESS 157Q PROCESS 153Q WINDOWPROP 135Q INUSE 123Q INUSE 117Q WINDOWPROP 110Q FB.FASTSEECOMMANDA0001 105Q CLOSEFN 75Q FB.SEEFULLFN 72Q PAGEFULLFN 35Q INUSE 21Q FILEBROWSER) ( 224Q (FB.FASTSEECOMMANDA0002) 47Q "SEE window") FB.FASTSEE.ONEFILEA0001A0002 D1 (I 0 WINDOW F 0 RESETSTATE) #P @ @g@ (oo (40Q PUTWINDOWPROP 35Q CONCAT 20Q \INSUREWINDOW 6 OPENWP) (14Q TITLE) ( 32Q "Aborted" 26Q " -- ") FB.FASTSEE.ONEFILEA0001 D1 (NAME ERRORSET F 0 WINDOW F 1 FILE F 2 RESETVARSLST F 3 MORE F 4 RESETY F 5 UNFORMATTED) PgoQ P PgSgg gQgho chhhRcgPhhhRcUQP QP PgP (oo SP g ci(210Q FB.SEEFULLFN 200Q \INSUREWINDOW 170Q PUTWINDOWPROP 165Q CONCAT 150Q \INSUREWINDOW 137Q PFCOPYBYTES 131Q COPYBYTES 64Q OPENSTREAM 44Q PUTWINDOWPROP 23Q CLEARW 16Q PUTWINDOWPROP 13Q CONCAT) (205Q FINISHEDMOREBUTTONS 144Q TITLE 105Q FB.FASTSEE.ONEFILEA0001A0002 54Q INPUT 50Q CLOSEF 41Q LASTMOREBUTTONS 35Q YETMOREBUTTONS 30Q MORETYPE 3 TITLE) ( 162Q "Finished" 156Q " -- " 61Q ((SEQUENTIAL T)) 7 "Viewing ") FB.FASTSEE.ONEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 MORE I 2 UNFORMATTED I 1 WINDOW I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FB.FASTSEE.ONEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (FB.FASTSEE.ONEFILEA0001)) FB.SEEFULLFN D1 (P 4 EVENT P 3 BUTTONS P 0 WINDOW I 1 PROP I 0 DSP) @ !HA dg b Hg K`AdgogoodIdkdgdi dg dgjdndhdJ [jdK l K hl hli hi HAK LHgH ( \ KHK H ggg K L Hg h(375Q PUTWINDOWPROP 365Q AWAIT.EVENT 360Q TOTOPW 354Q ATTACHWINDOW 331Q \INSUREWINDOW 317Q \INSUREWINDOW 310Q PUTWINDOWPROP 304Q CREATE.EVENT 277Q \INSUREWINDOW 263Q WINDOWPROP 254Q ADDMENU 247Q CREATEW 240Q CREATEREGION 235Q HEIGHTIFWINDOW 222Q CHECK/MENU/IMAGE 216Q WIDTHIFWINDOW 204Q CHECK/MENU/IMAGE 40Q GETWINDOWUSERPROP 26Q WINDOWPROP 21Q GETWINDOWUSERPROP 3 WFROMDS) (372Q MOREOK 351Q LEFT 346Q BOTTOM 342Q TOP 273Q MOREEVENT 225Q BITMAP 207Q BITMAP 151Q DEFAULTMENUHELDFN 142Q CLRPROMPT 126Q FB.SEEBUTTONFN 74Q FINISHEDMOREBUTTONS 61Q YETMOREBUTTONS 53Q MENUTYPE# 35Q MOREEVENT 16Q MORETYPE) ( 107Q ((" More " MORE "View another screenfull of the file") (" Abort " ABORT "Abort view; allow this window to be re-used")) 102Q ((" Next File " NEXT "Go on to view the next file") ("Abort" ABORT "Abort the SEE command -- see no more files")) 70Q (("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 D1 (P 1 WINDOW P 0 MENUW I 1 MENU I 0 ITEM) aA H H H @dgIgi Ig dgI .o gI .o (136Q SHOULDNT 132Q PROCESS.EVAL 121Q \INSUREWINDOW 107Q PROCESS.EVAL 76Q \INSUREWINDOW 62Q NOTIFY.EVENT 57Q GETWINDOWUSERPROP 50Q PUTWINDOWPROP 25Q CLOSEW 21Q DETACHWINDOW 12Q MAINWINDOW 3 WFROMMENU) (113Q ABORT 67Q NEXT 54Q MOREEVENT 44Q MOREOK 34Q MORE) ( 127Q (RESET) 104Q (ERROR!)) (PRETTYCOMPRINT FILEBROWSERCOMS) (RPAQQ FILEBROWSERCOMS ((COMS (FILES ATTACHEDWINDOW ICONW TABLEBROWSER) (INITVARS (FB.EXPUNGE?MENU) ( FB.ICONFONT (FONTCREATE (QUOTE HELVETICA) 8 (QUOTE MRR))) (FB.BROWSERFONT (FONTCREATE (QUOTE GACHA) 10 (QUOTE MRR))) (FB.PROMPTFONT (FONTCREATE (QUOTE GACHA) 8 (QUOTE MRR))) (FB.PROMPTLINES 3) ( FB.MENUFONT (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE MRR))) (FB.OVERFLOW.MAXABSOLUTE 30) ( FB.OVERFLOW.MAXFRAC .06)) (VARS FB.CLOSEMENUITEMS FB.MENU.ITEMS FB.DEFAULT.INFO FB.DEFAULT.NAME.WIDTH FB.INFOFIELDS FB.INFOSHADE FB.INFOMENUITEMS FB.ITEMUNSELECTEDSHADE FB.ITEMSELECTEDSHADE) (COMS ( BITMAPS FILEDRAWER) (VARS FILEDRAWERREGION))) (COMS (* Entries) (FNS FB FILEBROWSER FB.PRINTFN FB.COPYFN) (* Setup) (FNS FB.STARTUP FB.MAKERIGIDWINDOW)) (COMS (* commands and major subfunctions) ( FNS FB.MENU.WHENSELECTEDFN FB.COMMANDSELECTEDFN FB.SUBITEMP FB.MAKE.BROWSER.BUSY) (FNS FB.SELECTEDFILES FB.TABLEBROWSER FB.FETCHFILENAME) (FNS FB.DELETECOMMAND FB.DELVERCOMMAND FB.DELVER.FILES FB.DELETE.FILE FB.UNDELETE.FILE FB.UNDELETECOMMAND FB.UNDELETEALLCOMMAND FB.HARDCOPYCOMMAND FB.LOADCOMMAND FB.EDITCOMMAND FB.EDITLISPFILE FB.COMPILECOMMAND FB.OPERATE.ON.FILES FB.COPYCOMMAND FB.RENAMECOMMAND FB.COPY/RENAME.COMMAND FB.COPY/RENAME.ONE FB.COPY/RENAME.MANY FB.MAYBE.INSERT.FILE FB.GET.NEW.FILE.SPEC) (FNS FB.UPDATECOMMAND FB.MAYBE.EXPUNGE FB.UPDATEBROWSERITEMS FB.CLEANUP.UPDATE FB.ABORT.UPDATE FB.MAYBE.WIDEN.NAMES FB.CREATE.FILEBUCKET FB.ADD.FILEGROUP FB.INSERT.DIRECTORY FB.ADD.FILE FB.INSERT.FILE FB.ANALYZE.PATTERN FB.GETALLFILEINFO) (FNS FB.SORT.VERSIONS FB.DECREASING.VERSION FB.INCREASING.VERSION FB.NAMES.DECREASING.VERSION FB.NAMES.INCREASING.VERSION) (FNS FB.EXPUNGECOMMAND FB.REMOVE.FILE FB.COUNT.FILE.CHANGE FB.NEWPATTERNCOMMAND FB.SETNEWPATTERN FB.NEWINFOCOMMAND FB.GET.NEWPATTERN FB.OPTIONSCOMMAND)) (COMS (* window functions) (FNS FB.PROMPTWPRINT FB.PROMPTFORINPUT FB.INFOMENU.SHADEINITIALSELECTIONS FB.\ItemWithTag) (FNS FB.MAKECOUNTERWINDOW FB.COUNTERW.REDISPLAYFN FB.UPDATE.COUNTERS FB.DISPLAY.COUNTERS FB.COUNTER.STRING) (FNS FB.MAKEHEADINGWINDOW FB.HEADINGW.REDISPLAYFN FB.HEADINGW.RESHAPEFN FB.HEADINGW.DISPLAY) (FNS FB.ICONFN FB.SCROLLFN FB.UPDATE.HEADING.EXTENT FB.INFOMENU.WHENSELECTEDFN FB.CLOSEFN FB.EXPUNGE?.MENU FB.AFTERCLOSEFN FB.CLOSE&EXPUNGE) (FNS FB.FASTSEECOMMAND FB.FASTSEE.ONEFILE FB.SEEFULLFN FB.SEEBUTTONFN)) (DECLARE: EVAL@COMPILE DONTCOPY ( FILES (SOURCE) TABLEBROWSERDECLS) (RECORDS INFOFIELD FILEBUCKET FILEBROWSER) (CONSTANTS FB.MORE.BORDER ) (GLOBALVARS FB.ICONFONT FB.BROWSERFONT FB.PROMPTFONT FB.MENUFONT FB.EXPUNGE?MENU FILEDRAWER FB.CLOSEMENUITEMS FB.MENU.ITEMS FB.DEFAULT.INFO INFOLISTINGWIDTHS FB.INFOSHADE FB.INFOMENUITEMS FB.ITEMUNSELECTEDSHADE FB.ITEMSELECTEDSHADE DIRCOMMANDS FB.PROMPTLINES FB.INFOFIELDS WindowTitleDisplayStream FILEDRAWERREGION FB.DEFAULT.NAME.WIDTH FB.OVERFLOW.MAXABSOLUTE FB.OVERFLOW.MAXFRAC WBorder)) (INITRECORDS FILEBROWSER) (SYSRECORDS FILEBROWSER) (DECLARE: DONTEVAL@LOAD DOCOPY (ADDVARS (BackgroundMenuCommands ("FileBrowser" (QUOTE (FILEBROWSER)) "Opens a filebrowser window; prompts for pattern"))) (VARS (BackgroundMenu))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA FB) (NLAML) (LAMA FB.PROMPTWPRINT))))) (FILESLOAD ATTACHEDWINDOW ICONW TABLEBROWSER) (RPAQ? FB.EXPUNGE?MENU) (RPAQ? FB.ICONFONT (FONTCREATE (QUOTE HELVETICA) 8 (QUOTE MRR))) (RPAQ? FB.BROWSERFONT (FONTCREATE (QUOTE GACHA) 10 (QUOTE MRR))) (RPAQ? FB.PROMPTFONT (FONTCREATE (QUOTE GACHA) 8 (QUOTE MRR))) (RPAQ? FB.PROMPTLINES 3) (RPAQ? FB.MENUFONT (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE MRR))) (RPAQ? FB.OVERFLOW.MAXABSOLUTE 30) (RPAQ? FB.OVERFLOW.MAXFRAC .06) (RPAQQ FB.CLOSEMENUITEMS (("Expunge deleted files" (QUOTE EXPUNGE) "Erases all files still marked 'deleted'") ("Don't expunge" (QUOTE NOEXPUNGE) "Proceeds (closes or updates browser) without expunging deleted files. Your deletions are thus ignored."))) (RPAQQ FB.MENU.ITEMS ((Delete FB.DELETECOMMAND "Marks selected files for deletion. (Use EXPUNGE to remove files from system)" (SUBITEMS ("Delete Selected Files" FB.DELETECOMMAND "Marks the selected files for deletion.") ("Delete Old Versions" FB.DELVERCOMMAND "Marks for deletion old versions of all files in the browser. You specify how many versions to keep."))) (Undelete FB.UNDELETECOMMAND "Removes deletion mark for selected files" (SUBITEMS ("Undelete ALL Files" FB.UNDELETEALLCOMMAND "Removes deletion mark from all files in the browser"))) (Copy FB.COPYCOMMAND "Copies selected files (prompts for new file name/directory)") (Rename FB.RENAMECOMMAND "Renames (moves) selected files (prompts for new name/directory)") (Hardcopy FB.HARDCOPYCOMMAND "Produces hardcopy of selected files") (See FB.FASTSEECOMMAND "Displays selected files one at a time in a separate window" (SUBITEMS ("Fast SEE Pretty" FB.FASTSEECOMMAND "Views file quickly, uses font information, no scrolling backwards") ( "Fast SEE Unformatted" (FB.FASTSEECOMMAND T) "Views file quickly, shows raw characters, no scrolling backwards") ("Scrollable & Pretty" ( FB.EDITCOMMAND READONLY) "Views file with font information in a fully scrollable window"))) (Edit FB.EDITCOMMAND "Calls an editor on the selected files: DEDIT for LISP source & TEDIT for other files" (SUBITEMS (TEDIT (FB.EDITCOMMAND TEDIT) "Calls TEdit (text editor) on selected files") (DEDIT (FB.EDITCOMMAND DEDIT) "Calls DEdit (Lisp editor) on selected files"))) (Load FB.LOADCOMMAND "LOADs selected files" (SUBITEMS (LOAD FB.LOADCOMMAND "Performs LOAD on selected files") ("Load PROP" (FB.LOADCOMMAND PROP) "Loads the selected files with LDFLG = PROP") ("Load SYSLOAD" (FB.LOADCOMMAND SYSLOAD) "System-loads the files (fast but not undoable)") (LOADFROM (FB.LOADCOMMAND LOADFROM) "Performs LOADFROM on selected files") (LOADCOMP (FB.LOADCOMMAND LOADCOMP) "Performs LOADCOMP on selected files"))) (Compile FB.COMPILECOMMAND "Compiles selected LISP source files" (SUBITEMS (TCOMPL (FB.COMPILECOMMAND TCOMPL) "Does TCOMPL on selected files") (BCOMPL FB.COMPILECOMMAND "Does BCOMPL on selected files"))) (Expunge FB.EXPUNGECOMMAND "Permanently removes from the file system all files marked for deletion") ( Recompute FB.UPDATECOMMAND "Recomputes set of files satisfying selection pattern" (SUBITEMS ( "Same Pattern" FB.UPDATECOMMAND "Recomputes set of files satisfying current pattern") ("New Pattern" FB.NEWPATTERNCOMMAND "Prompts for a new selection pattern and updates browser") ("New Info" FB.NEWINFOCOMMAND "Change the set of file attributes that are displayed"))))) (RPAQQ FB.DEFAULT.INFO (SIZE CREATIONDATE AUTHOR)) (RPAQQ FB.DEFAULT.NAME.WIDTH 140) (RPAQQ FB.INFOFIELDS ((LENGTH " Length" 70 (FIX 8)) (SIZE "Pages" 50 (FIX 5)) (BYTESIZE "Bits" 40 ( FIX 3)) (TYPE "Type" 55) (CREATIONDATE "Created" 170) (READDATE "Read" 170) (WRITEDATE "Written" 180) (AUTHOR "Author" 120))) (RPAQQ FB.INFOSHADE 32800) (RPAQQ FB.INFOMENUITEMS ((Length LENGTH "Toggles Length display") (ByteSize BYTESIZE "Toggles ByteSize display") (Pages SIZE "Toggles Pages display") (Type TYPE "Toggles Type display") ( Created CREATIONDATE "Toggles Created display") (Written WRITEDATE "Toggles Written display") (Read READDATE "Toggles Read display") (Author AUTHOR "Toggles Author display"))) (RPAQQ FB.ITEMUNSELECTEDSHADE 0) (RPAQQ FB.ITEMSELECTEDSHADE 4672) (RPAQ FILEDRAWER (READBITMAP)) (83 70 "OOOOOOOOOOOOOOOOOOOON@@@" "OOOOOOOOOOOOOOOOOOOON@@@" "L@@@@@@@@@@@@@@@@@@@F@@@" "L@@@@@@@@@@@@@@@@@@@F@@@" "LOOOOOOOOOOOOOOOOOONF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@GOOOOOL@@@@@BF@@@" "LH@@@@@D@@@@@D@@@@@BF@@@" "LH@@@@@D@@@@@D@@@@@BF@@@" "LH@@@@@DCOOOHD@@@@@BF@@@" "LH@@@@@D@@@@@D@@@@@BF@@@" "LH@@@@@DOOOOND@@@@@BF@@@" "LH@@@@@D@@@@@D@@@@@BF@@@" "LH@@@@@D@@@@@D@@@@@BF@@@" "LH@@@@@GOOOOOL@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@COOOOOH@@@@@BF@@@" "LH@@@@@COOOOOH@@@@@BF@@@" "LH@@@@@B@@@@@H@@@@@BF@@@" "LH@@@@@A@@@@A@@@@@@BF@@@" "LH@@@@@@OOOON@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LH@@@@@@@@@@@@@@@@@BF@@@" "LOOOOOOOOOOOOOOOOOONF@@@" "L@@@@@@@@@@@@@@@@@@@F@@@" "L@@@@@@@@@@@@@@@@@@@F@@@" "OOOOOOOOOOOOOOOOOOOON@@@" "OOOOOOOOOOOOOOOOOOOON@@@") (RPAQQ FILEDRAWERREGION (5 5 73 40)) (/DECLAREDATATYPE (QUOTE FILEBROWSER) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE (( FILEBROWSER 0 (FLAGBITS . 0)) (FILEBROWSER 0 (FLAGBITS . 16)) (FILEBROWSER 0 (FLAGBITS . 32)) ( FILEBROWSER 0 (FLAGBITS . 48)) (FILEBROWSER 0 (FLAGBITS . 64)) (FILEBROWSER 0 (FLAGBITS . 80)) ( FILEBROWSER 0 (FLAGBITS . 96)) (FILEBROWSER 0 (FLAGBITS . 112)) (FILEBROWSER 0 POINTER) (FILEBROWSER 2 POINTER) (FILEBROWSER 4 POINTER) (FILEBROWSER 6 POINTER) (FILEBROWSER 8 POINTER) (FILEBROWSER 10 POINTER) (FILEBROWSER 12 POINTER) (FILEBROWSER 14 POINTER) (FILEBROWSER 16 POINTER) (FILEBROWSER 18 POINTER) (FILEBROWSER 20 POINTER) (FILEBROWSER 22 POINTER) (FILEBROWSER 24 (BITS . 15)) (FILEBROWSER 25 (BITS . 15)) (FILEBROWSER 26 (BITS . 15)) (FILEBROWSER 27 (BITS . 15)) (FILEBROWSER 28 (BITS . 15)) (FILEBROWSER 29 (BITS . 15)) (FILEBROWSER 30 (BITS . 15)) (FILEBROWSER 31 (BITS . 15)) (FILEBROWSER 32 POINTER) (FILEBROWSER 34 POINTER) (FILEBROWSER 36 POINTER) (FILEBROWSER 38 POINTER) (FILEBROWSER 40 POINTER) (FILEBROWSER 42 POINTER) (FILEBROWSER 44 POINTER) (FILEBROWSER 46 POINTER))) (QUOTE 48)) (ADDTOVAR SYSTEMRECLST (DATATYPE FILEBROWSER ((NOSUBDIRECTORIES FLAG) (EXTENTCHANGED FLAG) ( SHOWUNDELETED? FLAG) (PATTERNPARSED? FLAG) (NIL 4 FLAG) (TABLEBROWSER POINTER) (BROWSERWINDOW POINTER) (COUNTERWINDOW POINTER) (HEADINGWINDOW POINTER) (INFOMENUW POINTER) (PROMPTWINDOW POINTER) ( INFODISPLAYED POINTER) (PATTERN POINTER) (PREPAREDPATTERN POINTER) (SEEWINDOW POINTER) (BROWSERFONT POINTER) (SORTBY POINTER) (NAMESTART WORD) (DIRECTORYSTART WORD) (INFOSTART WORD) (NAMEOVERHEAD WORD) (OVERFLOWSPACING WORD) (NIL WORD) (TOTALFILES WORD) (DELETEDFILES WORD) (TOTALPAGES POINTER) ( DELETEDPAGES POINTER) (PAGECOUNT? POINTER) (COUNTERPOSITIONS POINTER) (COUNTERPAGESTRING POINTER) ( OVERFLOWWIDTHS POINTER) (INFOMENUCHOICES POINTER) (UPDATEPROC POINTER)))) (ADDTOVAR BackgroundMenuCommands ("FileBrowser" (QUOTE (FILEBROWSER)) "Opens a filebrowser window; prompts for pattern")) (RPAQQ BackgroundMenu NIL) (PUTPROPS FILEBROWSER COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL