(FILECREATED "24-Jan-86 17:46:34" ("compiled on " {QV}LISP>MANAGER.;2) "12-Nov-85 14:59:23" recompiled changes: MANAGER MANAGER.RESET Manager.ADDADV Manager.ADDTOFILES? Manager.ALTERMARKING Manager.CHANGED? Manager.CHECKFILE Manager.COLLECTCOMS Manager.COMPILE Manager.COMS.BEF Manager.COMS.BGF Manager.COMS.WSF Manager.COMSCLOSE Manager.COMSOPEN Manager.COMSSHRINK Manager.COMSUPDATE Manager.CORNER.POSITION Manager.FILECHANGES Manager.FILESUBTYPES Manager.GETFILE Manager.INIT Manager.INTITLE? Manager.MAIN.BEF Manager.MAIN.BGF Manager.MAIN.WHF Manager.MAIN.WSF Manager.MAINCLOSE Manager.MAINMENUITEMS Manager.MAINOPEN Manager.MAINUPDATE Manager.MAKEFILE.ADV Manager.MENUCOLUMNS Manager.NEWMENU Manager.PROMPT Manager.RENAME Manager.REPAINTFN Manager.RESETSUBITEMS Manager.SHOWCHANGED Manager.SORTBYCOLUMN Manager.TTYCOMMAND Manager.VALUE/ERROR ManagerCommand in "INTERLISP-D 24-Jan-86 ..." dated "24-Jan-86 11:29:25") (FILECREATED "24-Jan-86 17:45:34" {QV}LISP>MANAGER.;2 57764 changes to: (FNS Manager.COMS.BEF MANAGER MANAGER.RESET Manager.ADDADV Manager.ADDTOFILES? Manager.ALTERMARKING Manager.CHANGED? Manager.CHECKFILE Manager.COLLECTCOMS Manager.COMPILE Manager.COMS.BGF Manager.COMS.WSF Manager.COMSCLOSE Manager.COMSOPEN Manager.COMSSHRINK Manager.COMSUPDATE Manager.CORNER.POSITION Manager.FILECHANGES Manager.FILESUBTYPES Manager.GETFILE Manager.INIT Manager.INTITLE? Manager.MAIN.BEF Manager.MAIN.BGF Manager.MAIN.WHF Manager.MAIN.WSF Manager.MAINCLOSE Manager.MAINMENUITEMS Manager.MAINOPEN Manager.MAINUPDATE Manager.MAKEFILE.ADV Manager.MENUCOLUMNS Manager.NEWMENU Manager.PROMPT Manager.RENAME Manager.REPAINTFN Manager.RESETSUBITEMS Manager.SHOWCHANGED Manager.SORTBYCOLUMN Manager.TTYCOMMAND Manager.VALUE/ERROR ManagerCommand) (VARS MANAGER.BM MANAGER.BM.MASK) (ADVICE DOSELECTEDITEM ADDFILE ADDTOFILES? MAKEFILE MARKASCHANGED UNMARKASCHANGED ADDTOCOMS DELFROMCOMS \ADDTOFILEBLOCK/ADDNEWCOM LOAD) previous date: "24-Jan-86 14:51:25" {QV}LISP>MANAGER.;1) MANAGER D1 (P 1 OLDMENU P 0 WINDOW I 0 POSITION)  gg`Yg`X`j .i Hg Hg H `M` I jI`"KJi-`LMhKJ@ H h(262Q Manager.MAINUPDATE 256Q Manager.MAINOPEN 250Q POSITIONP 243Q UPDATEFILES 214Q Manager.MAINCLOSE 144Q LENGTH 133Q LENGTH 115Q TOTOPW 106Q EXPANDW 103Q GETWINDOWUSERPROP 72Q OPENWP 67Q GETWINDOWUSERPROP 56Q OPENWP 50Q Manager.MAINCLOSE 42Q EQLENGTH) (207Q Manager.ACTIVEFLG 162Q FILELST 155Q MENU 137Q MENU 130Q FILELST 123Q Manager.ACTIVEFLG 100Q ICONWINDOW 64Q ICONWINDOW 36Q FILELST 26Q Manager.DATASPACE 23Q MAINWINDOW 13Q Manager.DATASPACE 10Q MENUS 5 MAIN) () MANAGER.RESET D1 (P 0 ADVICE) bi g` g` `dHg o g`g`o hod (137Q MANAGER 127Q Manager.NEWMENU 105Q FONTCOPY 61Q COPY 45Q UNMARKASCHANGED 25Q APPLY 14Q APPLY 3 Manager.MAINCLOSE) (115Q Manager.DATASPACE 76Q Manager.MENUFONT 73Q MENUBOLDFONT 67Q Manager.MENUFONT 64Q MENUFONT 42Q ADVICE 30Q MANAGERADVICE 22Q MANAGERADVICE 17Q READVISE 11Q MANAGERADVICE 6 UNADVISE) ( 121Q (MAIN.BACKGROUND FNS VARS RECORDS PROPS MAIN.MIDDLE COMS.MIDDLE COMS.RIGHT NEW.TYPE) 102Q (WEIGHT BOLD) 56Q (MENUS (MAIN))) Manager.ADDADV D1 (P 11Q CASES P 10Q STUFF P 7 WINDOW P 6 ADDTOFILES? P 4 F P 2 ITEMS P 1 SUBITEMS P 0 FILE I 3 COMSTYPE I 2 NAME I 1 FILECOMS I 0 !VALUE) 0@Ah`KNhXg`g`2 Ng`_M9NgO` HC g` AL LiK[_ 3Og `_COHNOdOO_HC M](254Q Manager.COMSOPEN 204Q GETWINDOWUSERPROP 172Q OPENWP 147Q FILECOMS 135Q Manager.MAINUPDATE 121Q Manager.RESETSUBITEMS 112Q PUTASSOC) (210Q Manager.DATASPACE 201Q MENU 130Q Manager.DATASPACE 125Q MAINWINDOW 107Q Manager.DATASPACE 102Q CASES 64Q Manager.DATASPACE 61Q CASES 47Q Manager.DATASPACE 44Q ADDTOFILES? 37Q Manager.DATASPACE 34Q OPEN.WINDOWS 15Q FILELST) () Manager.ADDTOFILES? D1 (P 0 CASE) 2gh` g`dHH gh` (57Q PUTASSOC 40Q Manager.COMSOPEN 14Q MANAGER 11Q PUTASSOC) (54Q Manager.DATASPACE 50Q CASES 22Q Manager.DATASPACE 17Q CASES 6 Manager.DATASPACE 2 ADDTOFILES?) () Manager.ALTERMARKING D1 (P 2 MENU P 1 WINDOW I 2 MARKING? I 1 TYPE I 0 ITEM) @ggg Agg g`!HY KIg Z@AAJ`3@dbJ !IJ@B J`gJ` HX(207Q Manager.CHECKFILE 160Q Manager.SHOWCHANGED 147Q MEMBER 106Q GETWINDOWUSERPROP 75Q OPENWP 67Q Manager.MAINUPDATE 43Q UPDATEFILES 37Q STKPOS 21Q MANAGER 16Q UNMARKASCHANGED) (201Q Manager.DATASPACE 173Q FILEVARS 165Q Manager.DATASPACE 142Q MENU 121Q Manager.DATASPACE 103Q MENU 52Q Manager.DATASPACE 47Q OPEN.WINDOWS 34Q UPDATEFILES 26Q FILES 13Q VARS 10Q FILELST 3 FILELST) () Manager.CHANGED? D1 (P 3 CHANGE P 2 CHANGES P 1 FILE I 0 FILES) @`!HhYgZa`i Ii `i i J2dKi oi l hi l jKhdi i oi i HX(172Q TERPRI 165Q PRIN1 150Q TERPRI 143Q PRINTPARA 126Q TAB 116Q PRIN1 105Q PRIN1 66Q TERPRI 61Q CHANGEFONT 51Q PRIN1 43Q CHANGEFONT 13Q TERPRI) (55Q DEFAULTFONT 37Q LAMBDAFONT 27Q FILE 5 FILELST) ( 161Q "------" 112Q ":") Manager.CHECKFILE D1 (P 2 MENU P 1 WINDOW I 0 FILE) eg`@ bg`!H@ Y 4Ig Z`@!@J` J@J` HX(135Q Manager.COMSOPEN 112Q Manager.COLLECTCOMS 63Q GETWINDOWUSERPROP 52Q OPENWP 44Q Manager.RESETSUBITEMS 15Q ROOTFILENAME) (127Q Manager.DATASPACE 116Q MENU 104Q Manager.DATASPACE 70Q Manager.DATASPACE 60Q MENU 26Q Manager.DATASPACE 23Q OPEN.WINDOWS 5 Manager.DATASPACE 2 ADDTOFILES?) () Manager.COLLECTCOMS D1 (P 6 ITEM P 0 COMSLST I 1 TYPE I 0 FILE) @A XdhAdg5HAIJ]JMd`K Lh[ZIYL&[g.H@g 2IKGdJL Mh\[IYM&\@Hd^dl NNLKh]K&MXd (250Q Manager.SORTBYCOLUMN 245Q INTERSECTION 211Q \TYPEMASK.UFN 125Q FILECOMSLST 7 FILECOMSLST) (122Q FILEVARS 112Q VARS 60Q MACROPROPS 21Q PROPS) () Manager.COMPILE D1 (P 1 FN I 1 FILEFLG I 0 FILE.OR.FN) JhdidhA'@ HhY Idg i HX@dg i (107Q COMPILE1 103Q GETDEF 65Q COMPILE1 61Q GETDEF 50Q CCODEP 32Q FILEFNSLST) (100Q FNS 56Q FNS 23Q LSTFIL 17Q SVFLG 13Q STRF 7 LAPFLG 3 LCFIL) () Manager.COMS.BEF D1 (I 0 WINDOW) :@ "`dk@ dl@ l@ `lj@ @ (67Q MENUBUTTONFN 62Q Manager.COMS.BGF 44Q MOVEW 32Q Manager.COMSCLOSE 20Q Manager.COMSSHRINK 3 Manager.INTITLE?) (50Q LASTMOUSEBUTTONS 10Q LASTMOUSEBUTTONS) () Manager.COMS.BGF D1 (I 0 WINDOW) Lgg` dg@ dg@ dg@ dg@ g@ (111Q Manager.COMSUPDATE 76Q BURYW 62Q Manager.COMSSHRINK 46Q MOVEW 32Q Manager.COMSCLOSE 17Q MENU) (102Q REDISPLAY 67Q BURY 53Q SHRINK 37Q MOVE 23Q CLOSE 10Q Manager.DATASPACE 5 MENUS 2 COMS.RIGHT) () Manager.COMS.WSF D1 (P 7 PROP P 6 COMMAND P 5 FILECOMS P 4 COMSLST P 3 COMSTYPE P 2 FILE P 1 ANSWER P 0 NEWMENU I 2 KEY I 1 MENU I 0 ITEM) p@hA`\dZL[Bdgudg`XOgg` dg>g@ddi3 g@hKddi3 gKhho go ygBgjgg` ^dg@KJA ?g@KhA ,Ndg-oKo@oJo  @KJ g'N Y@KI @KJ @Kg Ndg Y@KI @Kg gNgNgNdg6Kg$@ d@Ohgg e@KN [gRKg!@ d@Ohg +@K "(741Q UNMARKASCHANGED 724Q UNMARKASCHANGED 701Q PROPNAMES 650Q MARKASCHANGED 632Q MARKASCHANGED 604Q PROPNAMES 532Q MARKASCHANGED 521Q ADDTOFILE 504Q Manager.GETFILE 465Q MARKASCHANGED 454Q DELFROMFILES 445Q ADDTOFILE 430Q Manager.GETFILE 412Q DELFROMFILES 376Q MOUSECONFIRM 373Q CONCAT 327Q Manager.RENAME 324Q WFROMMENU 304Q Manager.RENAME 301Q WFROMMENU 262Q MENU 241Q SPAWN.MOUSE 212Q Manager.TTYCOMMAND 172Q MENU 164Q Manager.VALUE/ERROR 72Q MENU) (721Q PROPS 672Q PROPS 657Q UNMARK 627Q CHANGED 624Q PROPS 575Q PROPS 565Q CLISP 556Q DEFINED 550Q DELETED 541Q CHANGED 527Q CHANGED 476Q COPY 462Q CHANGED 421Q MOVE 340Q DELETE 313Q RENAME-ALL 267Q RENAME 253Q Manager.DATASPACE 250Q MENUS 245Q COMS.MIDDLE 227Q RIGHT 221Q MIDDLE 200Q PP 145Q QUOTE 123Q QUOTE 105Q EDITDEF 76Q EDIT 63Q Manager.DATASPACE 60Q MENUS 55Q NEW.TYPE 43Q Manager.DATASPACE 40Q MENUS 30Q LEFT 12Q Manager.DATASPACE) ( 367Q "?" 362Q " from " 355Q " " 350Q "DELETE the " 207Q (BQUOTE (GETDEF , (KWOTE ITEM) , (KWOTE COMSTYPE))) 161Q "Can't Edit!!!") Manager.COMSCLOSE D1 (P 0 MENU I 0 WINDOW) \@g @g @ @g Hi@ H`` @g `` g@g` ` h(130Q PUTASSOC 122Q DREMOVE 103Q DREMOVE 71Q GETWINDOWUSERPROP 62Q DREMOVE 47Q DELETEMENU 40Q EXPANDW 35Q GETWINDOWUSERPROP 25Q OPENWP 21Q PUTWINDOWPROP 6 GETWINDOWUSERPROP) (125Q Manager.DATASPACE 115Q Manager.DATASPACE 112Q OPEN.WINDOWS 106Q OPEN.WINDOWS 100Q Manager.DATASPACE 74Q Manager.DATASPACE 66Q COMSTYPE 57Q Manager.DATASPACE 53Q Manager.DATASPACE 32Q ICONWINDOW 16Q CLOSEFN 3 MENU) () Manager.COMSOPENA0008 D1 (I 2 KEY I 1 MENU I 0 ITEM) -BdgoA`o@ g o@ (52Q PROMPTPRINT 33Q PROMPTPRINT) (37Q MIDDLE 20Q Manager.DATASPACE 4 LEFT) ( 46Q "Menu of file package commands for " 27Q " operations for " 14Q "Menu of ") Manager.COMSOPEN D1 (P 13Q ITEM P 12Q W P 4 POSITION P 3 COMS.WINDOW P 2 COMS.MENU P 1 COMSTYPE P 0 COMSLST I 2 FLASHFLG I 1 TYPE I 0 FILE)  @A @A rHqI`NHI`?I` g` O hB h_g IOiO_`dHH dMd`$@ oAi dNdgdgg`_dOdg jdndh_dO I` ['JhLJ J  @A J K d KJOi IJ` J@A` gKg`` Kgg Kgg KgI Kgg Kgg I` [d (621Q Manager.COMSCLOSE 610Q WFROMMENU 573Q PUTWINDOWPROP 560Q PUTWINDOWPROP 545Q PUTWINDOWPROP 534Q PUTWINDOWPROP 521Q PUTWINDOWPROP 506Q PUTASSOC 462Q PUTASSOC 447Q PUTASSOC 432Q Manager.SHOWCHANGED 412Q Manager.COMSCLOSE 405Q Manager.CORNER.POSITION 377Q Manager.FILECHANGES 371Q ADDMENU 366Q GETBOXPOSITION 356Q CHECK/MENU/IMAGE 345Q CHECK/MENU/IMAGE 331Q WFROMMENU 217Q CONCAT 214Q L-CASE 203Q NAMEFIELD 162Q Manager.MENUCOLUMNS 124Q GETWINDOWUSERPROP 111Q Manager.COMSUPDATE 61Q WFROMMENU 11Q FILECOMS 4 Manager.COLLECTCOMS) (603Q Manager.DATASPACE 570Q DON'T 565Q CLOSEFN 555Q Manager.REPAINTFN 552Q REPAINTFN 541Q COMSTYPE 531Q Manager.COMS.BEF 526Q BUTTONEVENTFN 516Q Manager.COMS.BEF 513Q RIGHTBUTTONFN 503Q Manager.DATASPACE 475Q Manager.DATASPACE 472Q OPEN.WINDOWS 466Q OPEN.WINDOWS 457Q Manager.DATASPACE 444Q Manager.DATASPACE 361Q BITMAP 350Q BITMAP 324Q Manager.DATASPACE 270Q CLRPROMPT 251Q Manager.DATASPACE 246Q MENUFONT 240Q Manager.COMSOPENA0008 231Q Manager.COMS.WSF 174Q Manager.TITLEFONT 150Q MENUTYPE# 121Q COMSTYPE 71Q Manager.DATASPACE 66Q OPEN.WINDOWS 54Q Manager.DATASPACE 43Q MENU 36Q Manager.DATASPACE 25Q Manager.DATASPACE) ( 207Q "'s ") Manager.COMSSHRINKA0001 D1 (NAME ERRORSET F 0 WINDOW F 1 RESETVARSLST F 2 ICONWINDOW F 3 RESETY) Xo`` hQcPdg ` Pgg Pg cgg Rgg ci(122Q PUTWINDOWPROP 107Q PUTWINDOWPROP 74Q GETWINDOWUSERPROP 64Q PUTWINDOWPROP 51Q SHRINKW 34Q GETWINDOWUSERPROP 14Q DSPFONT) (117Q DON'T 114Q CLOSEFN 104Q NILL 101Q RIGHTBUTTONFN 71Q ICONWINDOW 61Q Manager.COMSUPDATE 56Q EXPANDFN 44Q MENU 37Q Manager.DATASPACE 31Q COMSTYPE 11Q WindowTitleDisplayStream 6 Manager.TITLEFONT) ( 3 (PROGN (DSPFONT OLDVALUE WindowTitleDisplayStream))) Manager.COMSSHRINK D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 ICONWINDOW I 0 WINDOW F 4 LISPXHIST F 5 RESETVARSLST) &T!Uog hg[ Kh(42Q ERROR! 33Q RESETRESTORE 21Q Manager.COMSSHRINKA0001) (27Q ERROR 16Q INTERNAL) ( 13Q (Manager.COMSSHRINKA0001)) Manager.COMSUPDATE D1 (P 4 ITEM P 3 TYPE P 2 FILE P 1 CHANGELST P 0 MENU I 1 FLASHFLG I 0 WINDOW) @g 1H`ZH`[JK Y@ @g @g A@l @ HJK 2@g I d@HL Id@HLi JK h(216Q Manager.COMSOPEN 203Q Manager.SHOWCHANGED 160Q Manager.SHOWCHANGED 144Q LDIFFERENCE 140Q GETWINDOWUSERPROP 126Q Manager.COLLECTCOMS 112Q TOTOPW 105Q FLASHWINDOW 74Q EXPANDW 71Q GETWINDOWUSERPROP 60Q OPENWP 55Q GETWINDOWUSERPROP 44Q OPENWP 37Q Manager.FILECHANGES 6 GETWINDOWUSERPROP) (135Q MANAGER.CHANGES 117Q MENU 66Q ICONWINDOW 52Q ICONWINDOW 26Q Manager.DATASPACE 16Q Manager.DATASPACE 3 MENU) () Manager.CORNER.POSITION D1 (P 0 POSITION I 1 MENU I 0 OLDWINDOW) a @ `dgIICdgIIIA ٰ g IIIA lj XH(133Q MAX 116Q CHECK/MENU/IMAGE 61Q CHECK/MENU/IMAGE 6 \INSUREWINDOW) (121Q BITMAP 74Q CENTER 64Q BITMAP 36Q DOWN 20Q UP 14Q Manager.DIRECTION) () Manager.FILECHANGES D1 (P 0 CHANGES I 1 COMSTYPE I 0 FILE) [@gXd:Ag+AH1IJdJK Lh[ZIYL&[HAHgAg @A (130Q INTERSECTION 125Q FILECOMSLST 120Q GETTOPVAL 115Q PACK*) (112Q LST 106Q CHANGED 17Q PROPS 6 FILE) () Manager.FILESUBTYPES D1 (P 5 COMSLST P 4 TYPE I 0 FILE) `qHI\g8@L ]0Ldg1Mh_^h_`OiLJ?KhZHXNgM@g  Oh_OOiO_K&(140Q FILECOMSLST 30Q FILECOMSLST) (135Q FILEVARS 125Q VARS 67Q MACROPROPS 40Q PROPS 20Q EXPRESSIONS 2 FILEPKGTYPES) () Manager.GETFILEA0004 D1 (P 1 FILECOMS P 0 ANSWER I 2 KEY I 1 MENU I 0 ITEM) * @dgo X Yo H H(46Q ADDFILE 41Q SET 36Q COPY 26Q FILECOMS 22Q Manager.PROMPT) (7 *newfile*) ( 33Q ((* File created by Coms Manager.)) 17Q "File Name: ") Manager.GETFILE D1 (P 0 FILEMENU I 0 MOVE.OR.COPY) o0g`Xd`HP`g` dIdodgdg dgjdndhdJ gH` H (154Q MENU 147Q PUTASSOC 47Q COPY) (144Q Manager.DATASPACE 140Q FILELST.MENU 110Q DEFAULTMENUHELDFN 101Q CLRPROMPT 72Q Manager.GETFILEA0004 44Q FILELST 41Q *newfile* 35Q MENUTYPE# 24Q MENU 20Q FILELST 10Q Manager.DATASPACE 5 FILELST.MENU) ( 63Q "Files") Manager.INIT D1 (P 0 ADVICE) Co` 6h`oh od `dHg h(72Q UNMARKASCHANGED 45Q Manager.NEWMENU 33Q \NCONC2 11Q SASSOC) (67Q ADVICE 55Q MANAGERADVICE 22Q BackgroundMenuCommands 17Q BackgroundMenu 6 BackgroundMenuCommands) ( 37Q (MAIN.BACKGROUND FNS VARS RECORDS PROPS MAIN.MIDDLE COMS.MIDDLE COMS.RIGHT NEW.TYPE) 26Q ("Manager" (QUOTE (MANAGER))) 3 "Manager") Manager.INTITLE? D1 (P 2 MENU P 1 REGION P 0 INTERIOR.HEIGHT I 0 WINDOW) G@@g Zd$J X@ [KKkHKH Y`` (104Q INSIDEP 72Q CREATEREGION 41Q \INSUREWINDOW 34Q FONTHEIGHT 11Q GETWINDOWUSERPROP) (101Q LASTMOUSEY 76Q LASTMOUSEX 27Q MENU 17Q MENU 6 MENU) () Manager.MAIN.BEF D1 (P 0 ICONWINDOW I 0 WINDOW) V@ E`dk2@ @gg @g Xgg Hgg l@ @kgh(111Q MOVEW 75Q PUTWINDOWPROP 62Q PUTWINDOWPROP 50Q GETWINDOWUSERPROP 40Q PUTWINDOWPROP 25Q SHRINKW 6 Manager.INTITLE?) (120Q MENUBUTTONFN 72Q DON'T 67Q CLOSEFN 57Q NILL 54Q RIGHTBUTTONFN 45Q ICONWINDOW 35Q Manager.MAINUPDATE 32Q EXPANDFN 13Q LASTMOUSEBUTTONS) () Manager.MAIN.BGF D1 (I 0 WINDOW) tgg` dgo dgo dgo dgo dgo `g gi (161Q Manager.MAINCLOSE 146Q MANAGER 143Q UNMARKASCHANGED 132Q DV 112Q Manager.TTYCOMMAND 73Q Manager.TTYCOMMAND 54Q Manager.TTYCOMMAND 35Q Manager.TTYCOMMAND 17Q MENU) (152Q CLOSE 140Q VARS 135Q FILELST 117Q EDIT 100Q CLEANUP 61Q MAKEFILES 42Q CHANGES 23Q FILES? 10Q Manager.DATASPACE 5 MENUS 2 MAIN.BACKGROUND) ( 127Q (FILELST) 107Q (CLEANUP) 70Q (MAKEFILES) 51Q (Manager.CHANGED?) 32Q (FILES?)) Manager.MAIN.WHF D1 (I 2 KEY I 1 MENU I 0 ITEM F 0 \LASTKEYSTATE) YPl) jNPl< jD@l gb@bBdgo@o@ go@ h(124Q PROMPTPRINT 112Q CLRPROMPT 100Q PROMPTPRINT 61Q CLRPROMPT 31Q EQLENGTH 17Q \GETBASEBIT 5 \GETBASEBIT) (104Q LEFT 52Q MIDDLE 35Q MIDDLE) ( 117Q "Menu of individual operations for file " 73Q " for the file " 65Q "Create a menu of ") Manager.MAIN.WSF D1 (P 3 ITEM P 2 MENU P 1 WINDOW I 2 KEY I 1 MENU I 0 ITEM) @l gb@bBdgd@i gzgg` dgo dgo dgo dgo dgo dgo dgo dgo dgo dgo dgo dgo dgo dgo dgo dg)`k g @` gg dgo gEo@o 3@g@gh g`A@ g`!HhYg Z`@Ig dIJK HX(717Q Manager.SHOWCHANGED 703Q \APPEND2 700Q GETWINDOWUSERPROP 654Q GETWINDOWUSERPROP 622Q Manager.SHOWCHANGED 603Q PUTPROP 560Q MOUSECONFIRM 555Q CONCAT 531Q Manager.TTYCOMMAND 512Q MANAGER 506Q UNMARKASCHANGED 474Q DREMOVE 463Q SETTOPVAL 454Q EQLENGTH 434Q Manager.TTYCOMMAND 415Q Manager.TTYCOMMAND 376Q Manager.TTYCOMMAND 357Q Manager.TTYCOMMAND 340Q Manager.TTYCOMMAND 321Q Manager.TTYCOMMAND 302Q Manager.TTYCOMMAND 263Q Manager.TTYCOMMAND 244Q Manager.TTYCOMMAND 225Q Manager.TTYCOMMAND 206Q Manager.TTYCOMMAND 167Q Manager.TTYCOMMAND 150Q Manager.TTYCOMMAND 131Q Manager.TTYCOMMAND 112Q Manager.TTYCOMMAND 74Q MENU 41Q Manager.COMSOPEN 5 EQLENGTH) (675Q MANAGER.CHANGES 661Q Manager.DATASPACE 651Q MENU 631Q Manager.DATASPACE 626Q OPEN.WINDOWS 612Q Manager.DATASPACE 607Q MAINWINDOW 574Q FILE 567Q FILE 535Q UNMARK 517Q CHANGES 503Q VARS 500Q FILELST 471Q FILELST 460Q FILELST 450Q FILELST 441Q REMOVE 422Q BRECOMPILE 403Q RECOMPILE 364Q BCOMPL 345Q TCOMPL 326Q COMPILE 307Q INCORE 270Q CHECK 251Q ANALYZE 232Q CLEANUP 213Q LIST 174Q FAST 155Q CLISPIFY 136Q NEW 117Q MAKEFILE 100Q LOAD 65Q Manager.DATASPACE 62Q MENUS 57Q MAIN.MIDDLE 45Q LEFT 26Q MIDDLE 11Q MIDDLE) ( 552Q "?" 544Q "Unmark entire contents of " 526Q (BQUOTE (Manager.CHANGED? (QUOTE (, (CAR ITEM))))) 431Q (BQUOTE (BRECOMPILE , (KWOTE (CAR ITEM)))) 412Q (BQUOTE (RECOMPILE , (KWOTE (CAR ITEM)))) 373Q (BQUOTE (BCOMPL , (KWOTE (CAR ITEM)))) 354Q (BQUOTE (TCOMPL , (KWOTE (CAR ITEM)))) 335Q (BQUOTE (COMPILEFILES , (CAR ITEM))) 316Q (BQUOTE (Manager.COMPILE , (KWOTE (CAR ITEM)) T)) 277Q (BQUOTE (MASTERSCOPE (QUOTE (CHECK , (CAR ITEM))))) 260Q (BQUOTE (MASTERSCOPE (QUOTE (ANALYZE FNS ON , (CAR ITEM))))) 241Q (BQUOTE (CLEANUP , (CAR ITEM))) 222Q (BQUOTE (LISTFILES , (KWOTE (CAR ITEM)))) 203Q (BQUOTE (MAKEFILE , (KWOTE (CAR ITEM)) (QUOTE FAST))) 164Q (BQUOTE (MAKEFILE , (KWOTE (CAR ITEM)) (QUOTE CLISPIFY))) 145Q (BQUOTE (MAKEFILE , (KWOTE (CAR ITEM)) (QUOTE NEW))) 126Q (BQUOTE (MAKEFILE , (KWOTE (CAR ITEM)))) 107Q (BQUOTE (LOAD , (KWOTE (CAR ITEM))))) Manager.MAINCLOSE D1 (P 4 WINDOW P 2 MAIN.WINDOW P 1 ICON.WINDOW P 0 MENU I 0 SHUTDOWNFLG) x0@hg` K;g`Zdg X%Jg Hi Jg Y Jg h@Lg ``L K[(160Q Manager.COMSCLOSE 140Q GETWINDOWUSERPROP 122Q CLOSEW 117Q GETWINDOWUSERPROP 105Q GETWINDOWUSERPROP 75Q DELETEMENU 67Q PUTWINDOWPROP 54Q GETWINDOWUSERPROP 24Q \APPEND2) (152Q FILELST 144Q Manager.DATASPACE 135Q MENU 114Q ICON 102Q ICON 64Q CLOSEFN 51Q MENU 42Q Manager.DATASPACE 37Q MAINWINDOW 17Q Manager.DATASPACE 14Q OPEN.WINDOWS 10Q Manager.ACTIVEFLG) () Manager.MAINMENUITEMS D1 (P 14Q TYPE P 10Q FILECOMS P 7 ITEMS P 6 SUBTYPES P 5 OLDITEM P 4 OLDITEMS P 3 MENU P 2 DEFAULT P 1 FILE) `` `gg`[ HOh%YL]I _igO gIg Ig gg0 I ,d OIO o_O Oh_O&_OMIdJ hgN hO$_HXZ(270Q \APPEND2 257Q \APPEND2 202Q \APPEND2 163Q Manager.FILESUBTYPES 143Q LDIFFERENCE 140Q FILECOMSLST 131Q FILECOMSLST 114Q INFILECOMS? 100Q FILECOMS 11Q SORT) (264Q SUBITEMS 153Q FILEVARS 147Q VARS 135Q FILEVARS 126Q VARS 120Q FNS 107Q FNS 54Q MENU 31Q Manager.DATASPACE 26Q MENUS 23Q MAIN 15Q FILELST 6 FILELST 2 Manager.SORTFILELSTFLG) ( 207Q (NIL)) Manager.MAINOPENA0012 D1 (I 1 OICON I 0 WIN) Agg`` `(23Q ICONW) (27Q MANAGER.BM 20Q MANAGER.BM.MASK 15Q MANAGER.BM 10Q FILEDATES 5 ICONW) () Manager.MAINOPEN D1 (P 11Q ITEM P 2 ITEMS P 1 WINDOW P 0 MENU I 0 WIN.OR.POSITION) i Pg` ` l`9` o` ` ` o` ` hZ`dJdgdgd`$dog`dKdkdg jdndhdL XgHg` gHh@ @H @H H  ` Ydgg Igg Igg Igg Igg `1MN4dg_OOh_^M]O&_d IHOi ih(534Q Manager.SHOWCHANGED 436Q PUTWINDOWPROP 424Q PUTWINDOWPROP 412Q PUTWINDOWPROP 400Q PUTWINDOWPROP 366Q PUTWINDOWPROP 353Q PUTASSOC 345Q ADDMENU 342Q GETBOXPOSITION 332Q CHECK/MENU/IMAGE 321Q CHECK/MENU/IMAGE 310Q Manager.CORNER.POSITION 302Q WINDOWP 271Q PUTASSOC 127Q Manager.MAINMENUITEMS 122Q TERPRI 113Q PRIN1 100Q TERPRI 71Q TERPRI 62Q PRIN1 47Q TERPRI 40Q CLRPROMPT 23Q LENGTH 15Q FONTHEIGHT) (545Q Manager.ACTIVEFLG 461Q FILE 441Q FILELST 433Q Manager.MAINOPENA0012 430Q ICONFN 421Q DON'T 416Q CLOSEFN 407Q Manager.REPAINTFN 404Q REPAINTFN 375Q Manager.MAIN.BEF 372Q BUTTONEVENTFN 363Q Manager.MAIN.BGF 360Q RIGHTBUTTONFN 350Q Manager.DATASPACE 335Q BITMAP 324Q BITMAP 274Q MAINWINDOW 264Q Manager.DATASPACE 261Q MENUS 255Q MAIN 225Q CLRPROMPT 204Q Manager.DATASPACE 201Q MENUFONT 163Q Manager.TITLEFONT 154Q Manager.MAIN.WSF 145Q Manager.MAIN.WHF 133Q MENUTYPE# 117Q PROMPTWINDOW 110Q PROMPTWINDOW 75Q PROMPTWINDOW 66Q PROMPTWINDOW 57Q PROMPTWINDOW 44Q PROMPTWINDOW 32Q SCREENHEIGHT 20Q FILELST 10Q Manager.DATASPACE 5 MENUFONT) ( 173Q "Manager" 105Q "Please edit the FILELST and try again." 54Q "The MANAGER menu is too large to fit on the screen...") Manager.MAINUPDATE D1 (P 1 FILE P 0 MENU I 0 WINDOW) Dgg`Xd0@ g`b `d@HIdg h(73Q Manager.SHOWCHANGED 43Q OPENWP) (66Q FILE 50Q FILELST 34Q Manager.DATASPACE 31Q MAINWINDOW 13Q Manager.DATASPACE 10Q MENUS 5 MAIN) () Manager.MAKEFILE.ADV D1 (P 4 ITEM P 3 MENU P 2 WINDOW P 1 FILENAME I 0 FILE) ig`@ "Hg`gg`I hZ 0Jg [`IJg dJKL HX(135Q Manager.SHOWCHANGED 121Q \APPEND2 116Q GETWINDOWUSERPROP 73Q GETWINDOWUSERPROP 62Q OPENWP 53Q Manager.SHOWCHANGED 13Q ROOTFILENAME) (113Q MANAGER.CHANGES 100Q Manager.DATASPACE 70Q MENU 43Q Manager.DATASPACE 40Q MENUS 35Q MAIN 30Q Manager.DATASPACE 25Q MAINWINDOW 5 Manager.DATASPACE 2 OPEN.WINDOWS) () Manager.MENUCOLUMNS D1 (P 3 NAME P 1 MAX.ROW.WIDTH P 0 NUMBER.COLUMNS I 2 BORDER I 1 FONT I 0 ITEMSLST) W BkbAg`bB@1J%LBY@ k`kXddInnI[A LMLMJZ(107Q STRINGWIDTH 50Q FLENGTH) (55Q Manager.MENUROWS 20Q Manager.DATASPACE 15Q MENUFONT) () Manager.NEWMENU D1 (I 0 MENU) @ddgL`dodi g`HdIdg dgjdndhHdI XgK`dodi g`HdIdg dgjdndhHdI  @dgL`dodi g`HdIdg dgjdndhHdI gK`dodi g`HdIdg dgjdndhHdI h@dg:`dodi dg dgjdndhHdI (gK`dodi g`HdIdg dgjdndhHdI @dgL`dodi g`HdIdg dgjdndhHdI gJ`dodi g`HdIdg dgjdndhHdI 8@g1`dodg dgjdndhHdI g` (1262Q PUTASSOC) (1255Q Manager.DATASPACE 1252Q MENUS 1217Q DEFAULTMENUHELDFN 1210Q CLRPROMPT 1173Q MENUTYPE# 1165Q NEW.TYPE 1127Q DEFAULTMENUHELDFN 1120Q CLRPROMPT 1100Q Manager.DATASPACE 1075Q MENUFONT 1054Q MENUTYPE# 1046Q COMS.MIDDLE 1010Q DEFAULTMENUHELDFN 1001Q CLRPROMPT 761Q Manager.DATASPACE 756Q MENUFONT 735Q MENUTYPE# 726Q MAIN.MIDDLE 666Q DEFAULTMENUHELDFN 657Q CLRPROMPT 637Q Manager.DATASPACE 634Q MENUFONT 613Q MENUTYPE# 605Q PROPS 547Q DEFAULTMENUHELDFN 540Q CLRPROMPT 516Q MENUTYPE# 507Q RECORDS 447Q DEFAULTMENUHELDFN 440Q CLRPROMPT 420Q Manager.DATASPACE 415Q MENUFONT 374Q MENUTYPE# 366Q VARS 330Q DEFAULTMENUHELDFN 321Q CLRPROMPT 301Q Manager.DATASPACE 276Q MENUFONT 255Q MENUTYPE# 246Q FNS 206Q DEFAULTMENUHELDFN 177Q CLRPROMPT 157Q Manager.DATASPACE 154Q MENUFONT 133Q MENUTYPE# 125Q MAIN.BACKGROUND 67Q DEFAULTMENUHELDFN 60Q CLRPROMPT 40Q Manager.DATASPACE 35Q MENUFONT 14Q MENUTYPE# 5 COMS.RIGHT) ( 1201Q ((EDIT (QUOTE EDIT) "Edit item") (PP (QUOTE PP) "Display item")) 1062Q ((RENAME (QUOTE RENAME) "Rename this item and update file with new name" (SUBITEMS (RENAME (QUOTE RENAME) "Rename this item locally and update file with new name") (RENAME% ALL (QUOTE RENAME-ALL) "Rename this item in *ALL* loaded files"))) (DELETE (QUOTE DELETE) "Delete this item") (MOVE (QUOTE MOVE) "Move this item to another file") (COPY (QUOTE COPY) "Copy this item to another file") (MARK (QUOTE CHANGED) "Mark this item as being changed" (SUBITEMS (DEFINED (QUOTE DEFINED) "Mark item as being DEFINED") (CHANGED (QUOTE CHANGED) "Mark item as being CHANGED") (DELETED (QUOTE DELETED) "Mark item as being DELETED") (CLISP (QUOTE CLISP) "Mark item as being CLISPIFIED"))) (UNMARK (QUOTE UNMARK) "Unmark this item as being changed")) 743Q ((LOAD (QUOTE LOAD) "Load the source of this file") (MAKEFILE (QUOTE MAKEFILE) "Dump the source of this file" (SUBITEMS (NEW (QUOTE NEW) "Dump the source from core") (FAST (QUOTE FAST) "Dump the source without pretty printing") (CLISPIFY (QUOTE CLISPIFY) "Clispify and then dump source") (MAKEFILE (QUOTE MAKEFILE) "Dump the source of this file"))) (LIST (QUOTE LIST) "List this file") (CLEANUP (QUOTE CLEANUP) "Dump, list and recompile this file") (CHECK (QUOTE CHECK) "Check the file for problems through MasterScope" (SUBITEMS (ANALYZE (QUOTE ANALYZE) "Analyze the FNS on selected file for MasterScope"))) (COMPILE (QUOTE COMPILE) "Compile this file" (SUBITEMS (INCORE (QUOTE INCORE)) (TCOMPL (QUOTE TCOMPL)) (RECOMPILE (QUOTE RECOMPILE)) (BCOMPL (QUOTE BCOMPL)) (BRECOMPILE (QUOTE BRECOMPILE)))) (REMOVE (QUOTE REMOVE) "Remove this file from FILELST") (CHANGES (QUOTE CHANGES) "Print the changes that have been made to this file.") (UNMARK (QUOTE UNMARK) "Unmark this file. No changes will be remembered")) 621Q ((PL (Manager.TTYCOMMAND (BQUOTE (PL , ITEM))) "Print the property list") (EDIT (Manager.VALUE/ERROR (BQUOTE (DP , ITEM)) "Nothing to EDIT!") "Edit the property list")) 524Q ((FIELDS (Manager.VALUE/ERROR (BQUOTE (QUOTE , (LIST ITEM "=" (REVERSE (RECORDFIELDNAMES ITEM)))))) "List the field names") ("EDIT" (Manager.VALUE/ERROR (BQUOTE (EDITDEF , (KWOTE ITEM) (QUOTE RECORDS))) "Nothing to EDIT!") "Edit the property list")) 402Q (("NIL" (SETTOPVAL ITEM NIL) "Set the toplevel value of this variable to NIL") ("PP" (Manager.TTYCOMMAND (BQUOTE (PP , ITEM))) "Pretty Print the variable") ("EDIT" (Manager.VALUE/ERROR (BQUOTE (EDITDEF , (KWOTE ITEM) (QUOTE VARS))) "Nothing to EDIT!") "Edit the value")) 263Q (("BREAK" (Manager.VALUE/ERROR (BQUOTE (BREAK , ITEM))) "Break this function") ("TRACE" (Manager.VALUE/ERROR (BQUOTE (TRACE , ITEM))) "Trace this function") ("UNBREAK" (Manager.VALUE/ERROR (BQUOTE (UNBREAK , ITEM))) "UnBreak this function") ("PP" (Manager.TTYCOMMAND (BQUOTE (PP , ITEM))) "Print the function" (SUBITEMS (PRINTCODE (Manager.TTYCOMMAND (BQUOTE (PRINTCODE , (KWOTE ITEM)))) " Print the compiled code of the function"))) ("COMPILE" (Manager.TTYCOMMAND (BQUOTE (Manager.COMPILE , (KWOTE ITEM)))) "Compile Function") (DESCRIBE (Manager.TTYCOMMAND (BQUOTE (MASTERSCOPE (QUOTE (DESCRIBE , ITEM))))) "Invoke MasterScope to DESCRIBE the function" (SUBITEMS (CALLS (Manager.TTYCOMMAND (BQUOTE (CAR (CALLS , (KWOTE ITEM))))) "Returns a list of functions called by selected function") (USES (Manager.TTYCOMMAND (BQUOTE (CADR (CALLS , (KWOTE ITEM)))) "Returns the list of variables bound by selected function")) (USES% FREELY (Manager.TTYCOMMAND (BQUOTE (CADDR (CALLS , (KWOTE ITEM))))) "Returns the list of variables used freely by selected function") (USES% GLOBALLY (Manager.TTYCOMMAND (BQUOTE (CADDDR (CALLS , (KWOTE ITEM))))) "Returns the list of variables used globally by selected function"))) ("?=" (Manager.VALUE/ERROR (BQUOTE (QUOTE , (CONS ITEM (OR (CADR (GETPROP ITEM (QUOTE ARGNAMES))) (ARGLIST ITEM))))) "Args not availiable!") "The function's argument list" (SUBITEMS ("FNTYP" (Manager.VALUE/ERROR (BQUOTE (LIST , (KWOTE ITEM) "=" (FNTYP , (KWOTE ITEM)))) "Fn's type not found") "Get the FNTYP of the function"))) ("EDIT" (Manager.VALUE/ERROR (BQUOTE (EDITDEF , (KWOTE ITEM) (QUOTE FNS))) "Nothing to EDIT!") "Edit the function")) 141Q ((CLOSE (QUOTE CLOSE) "Close this window") (CHANGES (QUOTE CHANGES) "Prints all the changes that have been made") (MAKEFILES (QUOTE MAKEFILES) "Update the source of all changed files") ("Edit FILELST" (QUOTE EDIT) "Edit the FILELST and remake the main menu") (CLEANUP (QUOTE CLEANUP) "Dump, list and recompile any changed files") (FILES? (QUOTE FILES?) "Ask for updates and display status of files")) 22Q (CLOSE BURY REDISPLAY MOVE SHRINK)) Manager.PROMPTA0001 D1 (NAME ERRORSET F 0 PROMPT F 1 MACROY) Phd` ` ci(21Q TERPRI 13Q MKATOM 10Q PROMPTFORWORD) (16Q PROMPTWINDOW 5 PROMPTWINDOW) () Manager.PROMPT D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 0 PROMPT F 4 RESETVARSLST) @ 1gHhhTcYog gIcgI KJ(73Q ERROR! 66Q APPLY 43Q Manager.PROMPTA0001 10Q TTY.PROCESS 5 THIS.PROCESS 2 CLRPROMPT) (57Q TTY.PROCESS 47Q ERROR 40Q INTERNAL 16Q TTY.PROCESS) ( 35Q (Manager.PROMPTA0001)) Manager.RENAMEA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 ITEM F 2 ANSWER F 3 RESETY F 4 COMSTYPE F 5 FILE) 3o` .hPcg` hhPcQRTU ci(55Q RENAME 34Q TTYDISPLAYSTREAM 11Q \INSUREWINDOW) (31Q PROMPTWINDOW 26Q TTYDISPLAYSTREAM 6 PROMPTWINDOW) ( 3 (PROGN (WINDOWPROP PROMPTWINDOW (QUOTE PROCESS) OLDVALUE))) Manager.RENAME D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 ANSWER I 3 WINDOW I 2 FILE I 1 COMSTYPE I 0 ITEM F 4 LISPXHIST F 5 RESETVARSLST) Po@o X;T!Uog hg[ KC Cg@ CgH h(114Q WINDOWADDPROP 102Q WINDOWDELPROP 71Q Manager.COMSUPDATE 63Q ERROR! 55Q RESETRESTORE 43Q Manager.RENAMEA0001 21Q Manager.PROMPT 16Q CONCAT) (110Q Manager.CHANGES 76Q Manager.CHANGES 51Q ERROR 40Q INTERNAL) ( 35Q (Manager.RENAMEA0001) 13Q " to: " 6 "Rename ") Manager.REPAINTFN D1 (P 1 ITEM P 0 MENU I 0 WIN) -@g Xd@ @g d@HIi h(44Q Manager.SHOWCHANGED 27Q PUTWINDOWPROP 20Q BLTMENUIMAGE 11Q GETWINDOWUSERPROP) (24Q MANAGER.CHANGES 6 MENU) () Manager.RESETSUBITEMS D1 (P 6 TYPE P 2 SUBTYPES P 1 MENU.ITEMS P 0 ITEMS I 1 COMSTYPE I 0 FILE) @0@gg`Ydl X@ ZHrAAHAJhAJ^Hg@Jd^@N oLKh]K&M I@g g@g @g ggh(223Q LDIFFERENCE 220Q FILECOMSLST 211Q FILECOMSLST 174Q FILECOMSLST 157Q \APPEND2 123Q \APPEND2 51Q Manager.FILESUBTYPES 44Q NTH) (233Q FILEVARS 227Q VARS 215Q FILEVARS 206Q VARS 200Q FNS 171Q FNS 105Q SUBITEMS 32Q MENU 23Q Manager.DATASPACE 20Q MENUS 15Q MAIN) ( 130Q (NIL)) Manager.SHOWCHANGED D1 (I 3 MARKED? I 2 ITEM I 1 MENU I 0 WINDOW) @ CBd@g hBd@g AH4hbdA hdd@HkHlHB*gB"l YBIBIBIIiHXlHlggj HkHHkll@ BC@gB gb@gB g`@ B@ (354Q PRIN1 346Q DSPFONT 331Q WINDOWDELPROP 305Q WINDOWADDPROP 266Q MOVETO 237Q BITBLT 110Q MENUITEMREGION 47Q GETWINDOWUSERPROP 27Q GETWINDOWUSERPROP 3 OPENWP) (340Q Manager.DATASPACE 335Q MENUFONT 325Q MANAGER.CHANGES 311Q MENUBOLDFONT 301Q MANAGER.CHANGES 232Q REPLACE 227Q TEXTURE 144Q SUBITEMS 62Q MENU 44Q MANAGER.CHANGES 24Q MANAGER.CHANGES) () Manager.SORTBYCOLUMN D1 (P 4 RESULT P 3 EXTRAITEMCOLUMNS P 2 COLUMNLENGTH P 1 COLUMNCOUNT P 0 LNGTH I 0 ITEMS) @ a@d* @ YHIZHI[IA k_dOO\hL]MKJk؀JAk_ O'@@b_OOh__O k԰O&_O_OOh__Ok԰O&_Mh0 L!d^Nd_O Oh_O&_O m(277Q \NCONC2 274Q DREMOVE 21Q Manager.MENUCOLUMNS 15Q SORT 3 FLENGTH) NIL () Manager.TTYCOMMAND D1 (I 0 COMMAND) )` @ddgdgih@ @ (46Q BKSYSBUF 41Q EVAL 5 GIVE.TTY.PROCESS) (25Q BQUOTE 17Q QUOTE 2 \TopLevelTtyWindow) () Manager.VALUE/ERROR D1 (I 1 $$ERRORMSG I 0 $$FORM) 9g@ddi3 g@hAddi3 gAhhgg (66Q TTY.PROCESS 63Q ADD.PROCESS) (60Q YES 55Q RESTARTABLE 42Q QUOTE 20Q QUOTE 2 ManagerCommand) () ManagerCommandA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 $$FORM F 2 RESETY) g` hhPcQ ci(26Q EVAL 10Q TTYDISPLAYSTREAM) (5 PROMPTWINDOW 2 TTYDISPLAYSTREAM) () ManagerCommand D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 MESSAGE P 0 $$RESULT I 1 $$ERRORMSG I 0 $$FORM F 5 LISPXHIST F 6 RESETVARSLST) S U!Vog hg\ LKXHAY` I` I Ih` H(117Q CENTERPRINTINREGION 106Q PROMPTPRINT 77Q STRINGWIDTH 63Q \INSUREWINDOW 50Q CLRPROMPT 41Q ERROR! 33Q RESETRESTORE 21Q ManagerCommandA0001) (114Q PROMPTWINDOW 74Q PROMPTWINDOW 60Q PROMPTWINDOW 27Q ERROR 16Q INTERNAL) ( 13Q (ManagerCommandA0001)) (PRETTYCOMPRINT MANAGERCOMS) (RPAQQ MANAGERCOMS ((* * The Manager : a graphical interface to the FilePkg. Written By: Jay Ferguson of Ford Aerospace & Communications Corp and Robert Noble of Intellicorp) (* * Variables and Constants) (VARS MANAGER.BM MANAGER.BM.MASK MANAGERADVICE) (INITVARS Manager.ACTIVEFLG (Manager.SORTFILELSTFLG T ) (Manager.MENUROWS 20) (Manager.MENUFONT (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE (MEDIUM REGULAR REGULAR)) 0 (QUOTE DISPLAY))) (Manager.DATASPACE (BQUOTE (, (COPY (QUOTE (MENUS (MAIN)))) , (CONS ( QUOTE MENUFONT) Manager.MENUFONT) , (CONS (QUOTE MENUBOLDFONT) (FONTCOPY Manager.MENUFONT (QUOTE ( WEIGHT BOLD))))))) (Manager.DIRECTION (QUOTE DOWN)) (Manager.TITLEFONT (QUOTE (GACHA 12)))) ( GLOBALVARS Manager.ACTIVEFLG Manager.DATASPACE Manager.MENUFONT BackgroundMenuCommands BackgroundMenu FILEPKGTYPES PROMPTWINDOW \TopLevelTtyWindow WindowTitleDisplayStream MANAGERADVICE Manager.DIRECTION Manager.MENUROWS MANAGER.BM MANAGER.BM.MASK Manager.SORTFILELSTFLG Manager.TITLEFONT SCREENHEIGHT FILELST MACROPROPS LCFIL LAPFLG STRF SVFLG LSTFIL) (* * Advice for interfacing with the FilePkg.) ( ADVISE DOSELECTEDITEM) (ADVISE * (PROGN MANAGERADVICE)) (* * Functions and Macros) (FNS * MANAGERFNS) (MACROS GETDATUM PUTDATUM Manager.GETMENU) (* * Misc) (P (Manager.INIT)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML Manager.TTYCOMMAND) (LAMA))))) (RPAQ MANAGER.BM (READBITMAP)) (72 40 "@@@@@@@@@@@@AOOL@@@@" "@@@@@@@@AO@@ABBD@@@@" "@@@@@@@@AO@@AFKD@@@@" "@@@@@@@@CEH@ALAL@@@@" "@@@@@@@@GKL@AADD@@@@" "@@@@@@@@BDH@A@@D@@@@" "@@@@@@@@AA@@AOOL@@@@" "@@@@@@@@@N@@@@@@@@@@" "@@@@@@@@CC@@@@@@@@@@" "@@@@@@@@D@H@@@@@@@@@" "@@@@@@@@D@H@@@@@@@@@" "@@@@@@@@D@D@@@@@@@@@" "@@@@@@@@EBD@@@@@@@@@" "@@@@@@@@IBB@@@@@@@@@" "@@@@B@@@JCB@@@@@@@@@" "@@@@EOOABAA@@@@@@@@@" "@@@@GHGICKI@@@@@@@@@" "@AOOIOKJAL@H@AOO@@@@" "@B@@E@OIANA@@B@@L@@@" "@D@@IOOHOON@@D@@D@@@" "OOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOO@@" "A@@@@@@@@@@@@@@@@D@@" "A@@@@@@@@@@@@@@@@D@@" "A@@@@@@@@@@@@@@@@D@@" "A@GALBALFA@GLOMO@D@@" "A@GALGANFCHLFLAIHD@@" "A@GKLGANFCHL@LAIHD@@" "A@GKLMIKFFLLNOIIHD@@" "A@FNLMIKFFLLFLAO@D@@" "A@FNLOIINGLLFLAIHD@@" "A@FNMHMINLFLNLAIHD@@" "A@FDMHMHNLFGFOMIHD@@" "A@@@@@@@@@@@@@@@@D@@" "A@@@@@@@@@@@@@@@@D@@" "A@@@@@@@@@@@@@@@@D@@" "A@@@@@@@@@@@@@@@@D@@" "A@@@@@@@@@@@@@@@@D@@" "AOOOOOOOOOOOOOOOOL@@") (RPAQ MANAGER.BM.MASK (READBITMAP)) (72 40 "@@@@@@@@@@@@AOOL@@@@" "@@@@@@@@AO@@AOOL@@@@" "@@@@@@@@AO@@AOOL@@@@" "@@@@@@@@COH@AOOL@@@@" "@@@@@@@@GOL@AOOL@@@@" "@@@@@@@@COH@AOOL@@@@" "@@@@@@@@AO@@AOOL@@@@" "@@@@@@@@@N@@@@@@@@@@" "@@@@@@@@CO@@@@@@@@@@" "@@@@@@@@GOH@@@@@@@@@" "@@@@@@@@GOH@@@@@@@@@" "@@@@@@@@GOL@@@@@@@@@" "@@@@@@@@GOL@@@@@@@@@" "@@@@@@@@OON@@@@@@@@@" "@@@@B@@@OON@@@@@@@@@" "@@@@GOOAOOO@@@@@@@@@" "@@@@GOOIOOO@@@@@@@@@" "@AOOIOOKOOOH@AOO@@@@" "@COOMOOIOOO@@COOL@@@" "@GOOOOOHOON@@GOOL@@@" "OOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOO@@" "OOOOOOOOOOOOOOOOOO@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@" "AOOOOOOOOOOOOOOOOL@@") (RPAQQ MANAGERADVICE (ADDFILE ADDTOFILES? MAKEFILE MARKASCHANGED UNMARKASCHANGED ADDTOCOMS DELFROMCOMS \ADDTOFILEBLOCK/ADDNEWCOM LOAD)) (RPAQ? Manager.ACTIVEFLG NIL) (RPAQ? Manager.SORTFILELSTFLG T) (RPAQ? Manager.MENUROWS 20) (RPAQ? Manager.MENUFONT (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE (MEDIUM REGULAR REGULAR)) 0 (QUOTE DISPLAY))) (RPAQ? Manager.DATASPACE (BQUOTE (, (COPY (QUOTE (MENUS (MAIN)))) , (CONS (QUOTE MENUFONT) Manager.MENUFONT) , (CONS (QUOTE MENUBOLDFONT) (FONTCOPY Manager.MENUFONT (QUOTE (WEIGHT BOLD))))))) (RPAQ? Manager.DIRECTION (QUOTE DOWN)) (RPAQ? Manager.TITLEFONT (QUOTE (GACHA 12))) (PUTPROPS DOSELECTEDITEM READVICE (NIL (AROUND NIL (COND ((AND (NEQ BUTTON (QUOTE RIGHT)) (OR ( KEYDOWNP (QUOTE LSHIFT)) (KEYDOWNP (QUOTE RSHIFT)))) (SELECTQ BUTTON (LEFT (BKSYSBUF (COND ((LISTP ITEM) (CAR ITEM)) (ITEM)))) (MIDDLE (BKSYSBUF (COND ((LISTP ITEM) (CAR ITEM)) (ITEM))) (BKSYSBUF ( CONSTANT (CHARACTER (CHARCODE CR))))) *)) (T *))))) (READVISE DOSELECTEDITEM) (PUTPROPS ADDFILE READVICE (NIL (AFTER NIL (COND (Manager.ACTIVEFLG (MANAGER) (Manager.CHECKFILE FILE) ))))) (PUTPROPS ADDTOFILES? READVICE (NIL (AROUND NIL (COND (Manager.ACTIVEFLG (RESETLST (RESETSAVE ( PUTDATUM (QUOTE ADDTOFILES?) T) (FUNCTION (PROGN (Manager.ADDTOFILES?)))) *)) (T *))))) (PUTPROPS MAKEFILE READVICE (NIL (AROUND NIL (COND (Manager.ACTIVEFLG (PROG1 * (Manager.MAKEFILE.ADV FILE))) (T *))))) (PUTPROPS MARKASCHANGED READVICE (NIL (AFTER NIL (AND Manager.ACTIVEFLG (Manager.ALTERMARKING NAME TYPE T))))) (PUTPROPS UNMARKASCHANGED READVICE (NIL (AFTER NIL (AND Manager.ACTIVEFLG !VALUE (Manager.ALTERMARKING NAME TYPE))))) (PUTPROPS ADDTOCOMS READVICE (NIL (AFTER NIL (AND Manager.ACTIVEFLG (Manager.ADDADV !VALUE COMS NAME TYPE))))) (PUTPROPS DELFROMCOMS READVICE (NIL (AFTER NIL (AND Manager.ACTIVEFLG (Manager.ADDADV !VALUE COMS NAME TYPE))))) (PUTPROPS \ADDTOFILEBLOCK/ADDNEWCOM READVICE (NIL (AFTER NIL (AND Manager.ACTIVEFLG ( Manager.RESETSUBITEMS FILE TYPE))))) (PUTPROPS LOAD READVICE (NIL (AROUND NIL (PROGN (RESETVAR Manager.ACTIVEFLG NIL *) (AND Manager.ACTIVEFLG (MANAGER)))))) (READVISE ADDFILE ADDTOFILES? MAKEFILE MARKASCHANGED UNMARKASCHANGED ADDTOCOMS DELFROMCOMS \ADDTOFILEBLOCK/ADDNEWCOM LOAD) (RPAQQ MANAGERFNS (MANAGER MANAGER.RESET Manager.ADDADV Manager.ADDTOFILES? Manager.ALTERMARKING Manager.CHANGED? Manager.CHECKFILE Manager.COLLECTCOMS Manager.COMPILE Manager.COMS.BEF Manager.COMS.BGF Manager.COMS.WSF Manager.COMSCLOSE Manager.COMSOPEN Manager.COMSSHRINK Manager.COMSUPDATE Manager.CORNER.POSITION Manager.FILECHANGES Manager.FILESUBTYPES Manager.GETFILE Manager.INIT Manager.INTITLE? Manager.MAIN.BEF Manager.MAIN.BGF Manager.MAIN.WHF Manager.MAIN.WSF Manager.MAINCLOSE Manager.MAINMENUITEMS Manager.MAINOPEN Manager.MAINUPDATE Manager.MAKEFILE.ADV Manager.MENUCOLUMNS Manager.NEWMENU Manager.PROMPT Manager.RENAME Manager.REPAINTFN Manager.RESETSUBITEMS Manager.SHOWCHANGED Manager.SORTBYCOLUMN Manager.TTYCOMMAND Manager.VALUE/ERROR ManagerCommand)) (PUTPROPS GETDATUM MACRO ((KEY) (CDR (FASSOC KEY Manager.DATASPACE)))) (PUTPROPS PUTDATUM MACRO ((KEY VALUE) (PUTASSOC KEY VALUE Manager.DATASPACE))) (PUTPROPS Manager.GETMENU MACRO ((MEN) (CDR (FASSOC MEN (GETDATUM (QUOTE MENUS)))))) (Manager.INIT) NIL