(FILECREATED "30-Oct-85 15:55:26" ("compiled on " {ERIS}DIRGRAPHER.;2) "17-Oct-85 18:58:44" recompiled changes: nothing in "INTERLISP-D 17-Oct-85 ..." dated "17-Oct-85 19:19:58") (FILECREATED "30-Oct-85 15:54:10" {ERIS}DIRGRAPHER.;2 61211 changes to: (VARS DIRGRAPHERCOMS DG.ERISTREE DG.ICON DG.MASK DG.FILL-WINDOW-TEXTURE DG.WHITEBM) previous date: "15-Jul-85 13:19:37" {ERIS}DIRGRAPHER.;1) DG.ADD-ITEM-TO-BACKGROUND-MENU D1 (I 3 SUBITEMLIST I 2 MESSAGE I 1 COMMAND I 0 LABEL F 0 BackgroundMenuCommands F 1 BackgroundMenu) @PP cd@ABChh hc(27Q \NCONC2 6 REMOVE) NIL () DG.ADVISE-GENERATE-FILE D1 NIL !ggi o ogo (36Q ADVISE 20Q UNADVISE 11Q MOVD) (27Q AROUND 5 DG.GENERATE-NEXT-FILE 2 \GENERATENEXTFILE) ( 33Q (PROG (NEXT-FILE TEMP-HOST TEMP-SCRATCHLIST) (if (BOUNDP (QUOTE SCRATCHLIST)) then (SETQ TEMP-SCRATCHLIST SCRATCHLIST) else (SETQ TEMP-SCRATCHLIST NIL)) NEXT (SETQ NEXT-FILE (DG.GENERATE-NEXT-FILE GENOBJ NAMEONLY TEMP-SCRATCHLIST)) (if (NULL NEXT-FILE) then (RETURN NIL)) (if (LISTP NEXT-FILE) then (SETQ NEXT-FILE (PACKC NEXT-FILE))) (if (OR (NOT (WINDOWPROP (MAINWINDOW WINDOW) (QUOTE DG.DIRECTORY-ONLY))) (AND (EQ (U-CASE (FILENAMEFIELD NEXT-FILE (QUOTE DIRECTORY))) (U-CASE (FILENAMEFIELD (WINDOWPROP (MAINWINDOW WINDOW) (QUOTE ITEMSPEC)) (QUOTE DIRECTORY)))) (EQ (FILENAMEFIELD NEXT-FILE (QUOTE HOST)) (OR (CANONICAL.HOSTNAME (SETQ TEMP-HOST (FILENAMEFIELD (WINDOWPROP (MAINWINDOW WINDOW) (QUOTE ITEMSPEC)) (QUOTE HOST)))) TEMP-HOST)))) then (RETURN NEXT-FILE) else (GO NEXT))) 24Q (\GENERATENEXTFILE IN FB.UPDATEBROWSERITEMS) 15Q ((\GENERATENEXTFILE IN FB.UPDATEBROWSERITEMS))) DG.APPLY-DIRGRAPHER-COMMAND D1 (P 3 TEMP-STRING P 2 FB-WINDOW P 1 DIR-FILE-LIST P 0 CURRENT-PATH I 0 WINDOW) $@@o Xd@ H @ h(40Q INVERTW 33Q DIRGRAPHER 30Q DG.CREATE-PREFIX-FROM-PATH 23Q INVERTW 12Q DG.WAIT-FOR-DIR-SELECTION) NIL ( 7 "Select directory on which to apply DirGrapher.") DG.APPLY-FB-ON-DIR-AND-SUBDIRS-COMMAND D1 (I 0 WINDOW) @i (4 DG.APPLY-FILEBROWSER-COMMAND) NIL () DG.APPLY-FILEBROWSER-COMMAND D1 (P 3 TEMP-STRING P 2 FB-WINDOW P 1 DIR-FILE-LIST P 0 CURRENT-PATH I 1 SUBDIRS I 0 WINDOW) F@@o Xd6@ H AJgi JgH Jgg @ h(102Q INVERTW 75Q PUTWINDOWPROP 62Q PUTWINDOWPROP 57Q DG.CREATE-ICON-TITLE 46Q PUTWINDOWPROP 33Q FILEBROWSER 30Q DG.CREATE-PREFIX-FROM-PATH 23Q INVERTW 12Q DG.WAIT-FOR-DIR-SELECTION) (72Q DG.FBICONFN 67Q ICONFN 53Q ICONTITLE 42Q DG.DIRECTORY-ONLY) ( 7 "Select directory on which to apply FileBrowser.") DG.ASK-FOR-BACKUP-TYPE D1 (P 0 BACKUP-TYPE I 0 CURRENT-DIRECTORY) Z0@g`oohoohhdId`dg dgjdndhdJ hi (127Q MENU) (76Q DEFAULTMENUHELDFN 67Q CLRPROMPT 60Q BIGFONT 14Q MENUTYPE# 10Q FILES-ONLY) ( 40Q (QUOTE FILES-AND-SUBS) 34Q "Backup files of this directory and subdirectories" 25Q (QUOTE FILES-ONLY) 21Q "Back up files in this directory (but not in subdirectories)") DG.ATTACH-DIRECTORY-FILES-MENU D1 (P 1 FILE-LIST P 0 MENU I 2 MAIN-WINDOW I 1 WINDOW I 0 PATH F 11Q MENU-WINDOW) `0@ d ONh_N&_OY`gIdJdgkB lx dKgl dLdg dgjdndhdM Bd B lnggg c(242Q ATTACHMENU 213Q WINDOWSIZE 205Q WINDOWREGION 133Q FONTCREATE 115Q MAX 106Q WINDOWSIZE 23Q DG.PACK-NAME-VER-EXT 14Q DG.EXCLUSIVE-DIRECTORY 11Q DG.CREATE-PREFIX-FROM-PATH) (237Q JUSTIFY 234Q TOP 230Q BOTTOM 154Q DEFAULTMENUHELDFN 145Q CLRPROMPT 126Q GACHA 76Q DG.FILE-SELECTION-FN 62Q STOP 56Q MENUTYPE#) () DG.BACKUP-COMMAND D1 (P 23Q I P 21Q F2 P 20Q F1 P 15Q F P 11Q SOURCE-WINDOW P 10Q SOURCE-PATH-AND-WINDOW P 7 OLDCOPYRIGHTFLG P 6 BACKUP-HOST P 5 FILES-BACKUP-NAMES P 4 ROUND-OF-FILES P 3 FILES-TO-BACKUP P 2 SOURCE-DIRECTORY P 1 SOURCE-PATH P 0 BACKUP-TYPE I 1 BACKUP-DIR I 0 WINDOW F 24Q COPYRIGHTFLG F 25Q DG.COPY-OVER F 26Q DG.DIRECTORY-SUBTREE F 27Q FILELST F 30Q DG.FILES-BACKUP-NAMES)  @oi _dYO_IO Zd XAg Ag bAg ^@ HgI I [@ K d_IJ _O Oh_O&_O]dc0Jc,g o ggg HgJc,Ng)@ @ @ o@ @ W(_hc(AJgg g Oc(KMK"O_ OWK@ @ @ @ o@ @ l nldO&dO$.i @ _"W*PAO" A@ @ o@ O @ o@ A@ oW*AO" AO" NgO g nO AO" W* +@ @ o@ O @ o>@ @ o@ O @ o@ A@ o@ O K O"M O_O_nh O&l_&gW. c.@ h(1244Q INVERTW 1236Q REMOVE 1213Q PLAYTUNE 1162Q REMOVE 1153Q REMOVE 1144Q PRIN1 1141Q DG.PROMPTWINDOW 1130Q PRIN1 1125Q DG.PROMPTWINDOW 1117Q PRIN1 1114Q DG.PROMPTWINDOW 1103Q PRIN1 1100Q DG.PROMPTWINDOW 1071Q PRIN1 1066Q DG.PROMPTWINDOW 1055Q TERPRI 1052Q DG.PROMPTWINDOW 1045Q DG.PROMPTWINDOW 1032Q PRIN1 1027Q DG.PROMPTWINDOW 1020Q PRIN1 1015Q DG.PROMPTWINDOW 1004Q TERPRI 1001Q DG.PROMPTWINDOW 774Q DG.PROMPTWINDOW 766Q DG.FILECOPY 761Q PACK* 740Q GETFILEINFO 730Q FLOPPY.FREE.PAGES 715Q DELFILE 712Q PACK* 703Q DIRECTORY 700Q PACK* 656Q PRIN1 653Q DG.PROMPTWINDOW 645Q PRIN1 642Q DG.PROMPTWINDOW 631Q PRIN1 626Q DG.PROMPTWINDOW 617Q PRIN1 614Q DG.PROMPTWINDOW 603Q TERPRI 600Q DG.PROMPTWINDOW 573Q DG.PROMPTWINDOW 565Q DIRECTORY 562Q PACK* 541Q INVERTW 534Q FLOPPY.WAIT.FOR.FLOPPY 504Q FLASHWINDOW 477Q DG.PROMPTWINDOW 472Q PRIN1 467Q DG.PROMPTWINDOW 456Q TERPRI 453Q DG.PROMPTWINDOW 446Q DG.PROMPTWINDOW 441Q CLEARW 436Q DG.PROMPTWINDOW 431Q INVERTW 362Q MAKEFILE 354Q PACK* 330Q INVERTW 323Q FLOPPY.WAIT.FOR.FLOPPY 317Q PRIN1 314Q DG.PROMPTWINDOW 303Q TERPRI 300Q DG.PROMPTWINDOW 273Q DG.PROMPTWINDOW 266Q INVERTW 240Q PUTPROP 224Q SET 215Q FILECOMS 145Q DG.CREATE-BACKUP-NAME 125Q DG.EXCLUSIVE-DIRECTORY 122Q DG.CREATE-PREFIX-FROM-PATH 115Q DIRECTORY 112Q DG.CREATE-PREFIX-FROM-PATH 100Q INVERTW 73Q FILENAMEFIELD 61Q PACK* 51Q FILENAMEFIELD 41Q DG.ASK-FOR-BACKUP-TYPE 34Q DG.FIND-DIRECTORY-SUBTREE 13Q DG.WAIT-FOR-DIR-SELECTION) (1231Q BACKUPINFO 735Q SIZE 722Q FLOPPY 357Q NEW 351Q BACKUPINFO 346Q > 257Q FLOPPY 244Q FILES-AND-SUBS 235Q DON'TLIST 232Q FILETYPE 227Q BACKUPINFO 212Q BACKUPINFO 104Q FILES-AND-SUBS 70Q HOST 56Q < 46Q DIRECTORY) ( 1135Q " and was not copied." 1110Q " exists on " 1062Q "File " 1037Q " is backed up." 1011Q "File " 663Q " and was not copied." 636Q " exists on " 610Q "File " 463Q "No more space on this floppy. Insert a new one. " 310Q "Insert floppy ." 221Q ((VARS DG.FILES-BACKUP-NAMES DG.DIRECTORY-SUBTREE)) 7 "Select the directory that you want to back up.") DG.BACKUP-ON-DEFAULT-COMMAND D1 (I 0 WINDOW F 0 DG.DEFAULT-BACKUP-DIRECTORY) &P@ @ @ o@ @P (43Q DG.BACKUP-COMMAND 35Q PRIN1 32Q DG.PROMPTWINDOW 22Q TERPRI 17Q DG.PROMPTWINDOW 12Q DG.PROMPTWINDOW 6 DG.FLASHALLWINDOWS) NIL ( 26Q "NULL default directory.Backup aborted") DG.BACKUP-ON-SELECTED-COMMAND D1 (P 0 BACKUP-DIRECTORY I 0 WINDOW) @oi  X@H h(25Q DG.BACKUP-COMMAND 17Q DG.CREATE-PREFIX-FROM-PATH 13Q DG.WAIT-FOR-DIR-SELECTION) NIL ( 7 "Select the directory that will contain the backup.") DG.CONNECT-DIR-COMMAND D1 (P 3 W P 1 CURRENT-PREFIX P 0 CURRENT-PATH I 0 WINDOW F 4 DG.BOX-ALL) C @o Xd3d Y T"J[g K JZ@ h(77Q DG.SHADE-CURRENT-DIRECTORY 65Q DG.SHADE-CURRENT-DIRECTORY 60Q GETWINDOWUSERPROP 36Q OPENWINDOWS 27Q CNDIR 23Q DG.CREATE-PREFIX-FROM-PATH 12Q DG.WAIT-FOR-DIR-SELECTION) (55Q DG.TREE) ( 7 "Select the directory to which you want to be connected") DG.COPY-DIRECTORY-COMMAND D1 (I 0 WINDOW) @ (3 DG.MOVECOPY-DIR-COMMAND) NIL () DG.COPY-FILE-COMMAND D1 (I 0 WINDOW) @ (3 DG.MOVECOPY-COMMAND) NIL () DG.COPYBUTTONEVENTFN D1 (P 10Q NODE P 3 RELEASED P 2 NODE-REGION P 1 SELECTED-NODE P 0 CURSOR-POS I 0 WINDOW) ph@ X`l\jL0L *`k]jMM `l^j NN [@g O'hY<@ KI@g I h_ ZH OiO_@ (235Q FLIPNODE 212Q INSIDEP 205Q NODEREGION 175Q BKSYSBUF 172Q DG.CREATE-PREFIX-FROM-PATH 167Q \APPEND2 161Q GETWINDOWUSERPROP 143Q GRAPHERCOPYBUTTONEVENTFN 121Q GETWINDOWUSERPROP 111Q \FZEROP 63Q \FZEROP 37Q \FZEROP 13Q GETMOUSESTATE 7 CURSORPOSITION) (156Q DG.PATH-TO-ROOT 116Q GRAPH 70Q LASTMOUSEBUTTONS 44Q LASTMOUSEBUTTONS 17Q LASTMOUSEBUTTONS) () DG.CREATE-BACKUP-NAME D1 (P 1 FILE-BACKUP-NAME P 0 SECOND-HALF I 2 CURRENT-DIRECTORY I 1 CURRENT-PATH I 0 F) a @g A l@g XgHBHh Bg@g g@g g@g Yd  (136Q PACK 132Q UNPACK 125Q PACKFILENAME 121Q FILENAMEFIELD 107Q FILENAMEFIELD 75Q FILENAMEFIELD 60Q DG.CREATE-DIRECTORY-CHAIN 41Q SUBSTRING 36Q NCHARS 33Q FILENAMEFIELD 21Q NCHARS 16Q DG.CREATE-DIRECTORY-CHAIN 11Q FILENAMEFIELD) (116Q VERSION 112Q VERSION 104Q EXTENSION 100Q EXTENSION 72Q NAME 66Q NAME 45Q DIRECTORY 30Q DIRECTORY 6 DIRECTORY) () DG.CREATE-DIRECTORY-CHAIN D1 (I 0 PATH) @o@@g@ (31Q PACK* 26Q DG.CREATE-DIRECTORY-CHAIN) (21Q >) ( 6 "") DG.CREATE-DIRECTORY-SPEC D1 (P 2 SUB P 1 SPEC P 0 CURRENT-DIRECTORY I 1 WINDOW I 0 PATH) 2 @A X@ YHdIg@Jh hYI(44Q DG.CREATE-PREFIX-FROM-PATH 41Q \APPEND2 14Q DG.CREATE-PREFIX-FROM-PATH 7 DG.FIND-DIRECTORY-SUBTREE) (31Q -) () DG.CREATE-DIRECTORY-TREE D1 (P 6 F P 2 TREE P 1 ROOT P 0 TREE-PATHS I 0 PATH) G00@ dN @ LKh]K&MXd Xd Zd@ (104Q LAST 73Q DG.CREATE-TREE-FROM-LISTS 66Q DG.SETIFY 36Q NTH 33Q LENGTH 27Q DG.CREATE-PATH-FROM-FILE-NAME 14Q DIRECTORY 11Q DG.CREATE-PREFIX-FROM-PATH) NIL () DG.CREATE-GRAPH-FROM-TREE D1 (P 0 NODE-LIST I 0 TREE F 1 DG.VERTICAL-HORIZONTAL-OPTION F 2 DG.GRAPH-LABEL-FONT) @ XdHhQhR (24Q LAYOUTGRAPH 6 DG.CREATE-TREE-NODES) NIL () DG.CREATE-ICON-TITLE D1 (P 3 W I 0 L) R@o l@l bg@l @@dl Kl IHhZH&J (117Q APPLY 71Q CONCAT 66Q DG.TRIM 60Q CHARACTER 42Q DG.TRIM 24Q LASTN 12Q LENGTH) (33Q CONCAT) ( 6 " ") DG.CREATE-MENU D1 (P 1 TEMP P 0 MENUITEMS I 0 WINDOW F 4 DG.MENU-EDGE) @oXTdgdgih H XHHl Hl I`dHTdgdgihlkdJdgdg dgjdndhdK (66Q NTH 55Q NTH 37Q COPY) (161Q DEFAULTMENUHELDFN 152Q CLRPROMPT 143Q DG.DOCOMMAND 115Q BOTTOM 107Q TOP 74Q MENUTYPE# 22Q BOTTOM 14Q TOP) ( 6 (("Create Dir" DG.CREATE-SUBDIR-COMMAND "Creates subdirectory. Will wait for parent directory selection, and prompt for subdirectory name") ("Delete Dir" DG.DELETE-DIRECTORY-COMMAND "Will delete entire directory including all files in subdirectories. Will wait for directory selection and if the directory is nonempty it will ask for confirmation") ("Backup Dir" DG.BACKUP-ON-SELECTED-COMMAND "Will ask you to select the directory on which the backup should be stored" (SUBITEMS ("On default" DG.BACKUP-ON-DEFAULT-COMMAND "Will backup the selected directory on the default backup directory (the value of DG.DEFAULT-BACKUP-DIRECTORY ) ") ("On selected" DG.BACKUP-ON-SELECTED-COMMAND "Will ask you to select the directory on which the backup should be stored"))) ("Restore Dir" DG.RESTORE-FROM-SELECTED-COMMAND "Will ask you to select the directory from where the backup should be restored" (SUBITEMS ("From default" DG.RESTORE-FROM-DEFAULT-COMMAND "Will restore the selected directory from the default backup directory (the value of DG.DEFAULT-BACKUP-DIRECTORY ) ") ("From selected" DG.RESTORE-FROM-SELECTED-COMMAND "Will ask you to select the directory from where the backup should be restored"))) ("Move Dir" DG.MOVE-DIR-COMMAND "Will move the selected directory (including subdirectories) to a new parent directory.") ("Copy Dir" DG.COPY-DIRECTORY-COMMAND "Will copy the selected directory (including subdirectories) to a new parent directory.") ("Connect Dir" DG.CONNECT-DIR-COMMAND "Changes the current directory") ("Apply DG" DG.APPLY-DIRGRAPHER-COMMAND "Calls DirGrapher on the selected directory") ("Apply FB" DG.APPLY-FILEBROWSER-COMMAND "Calls FileBrowser on files in the selected directory (but not files in the subdirectories)." (SUBITEMS ("on directory only" DG.APPLY-FILEBROWSER-COMMAND "Calls FileBrowser on files in the selected directory (but not files in the subdirectories).") ("On directory and subdirectories" DG.APPLY-FB-ON-DIR-AND-SUBDIRS-COMMAND "Calls FileBrowser on files in the selected directory and subdirectories."))) ("Move File(s)" DG.MOVE-FILE-COMMAND "Will ask you to select: (1) source directory, (2) files to be moved, and (3) target directory.") ("Copy File(s)" DG.COPY-FILE-COMMAND "Will ask you to select: (1) source directory, (2) files to be copied, and (3) target directory.") ("Update" DG.UPDATE-COMMAND "Will update the tree structure according to the current file system state"))) DG.CREATE-PATH-FROM-FILE-NAME D1 (P 1 HOST P 0 DIR I 0 FNAME) : @g X@g Ydg@g Hd Hd (67Q DG.UNPACK-DIRECTORY-NAME 64Q UNPACK 53Q DG.UNPACK-DIRECTORY-NAME 50Q UNPACK 42Q PACKFILENAME 37Q FILENAMEFIELD 21Q FILENAMEFIELD 11Q FILENAMEFIELD) (34Q HOST 30Q HOST 16Q HOST 6 DIRECTORY) () DG.CREATE-PREFIX-FROM-PATH D1 (I 0 PATH) 9@d3g0@dghXIHZYJ  YH(60Q LAST 54Q PACK* 51Q PACK) (23Q > 10Q <) () DG.CREATE-QUIT-MENU D1 (I 0 WINDOW) B`@go HdIdi dg dgjdndhHdI (16Q SUBST) (50Q DEFAULTMENUHELDFN 41Q CLRPROMPT 7 WINDOW 2 MENUTYPE#) ( 13Q ((" I n t e r r u p t" (DG.KILL-PROCESS WINDOW) "Will kill the current DirGrapher process. "))) DG.CREATE-SUBDIR-COMMAND D1 (P 2 DIRECTORY-SUBTREE P 1 NEW-DIR-NAME P 0 CURRENT-PATH I 0 WINDOW) Q0@o XdAd@ oJo hd@ YJ JIhJ@g @ h(115Q DG.DISPLAY-DIRECTORY-TREE 111Q DG.CREATE-GRAPH-FROM-TREE 106Q GETWINDOWUSERPROP 64Q MEMBER 56Q MKATOM 53Q PROMPTFORWORD 50Q DG.PROMPTWINDOW 42Q CONCAT 24Q DG.FIND-DIRECTORY-SUBTREE 12Q DG.WAIT-FOR-DIR-SELECTION) (103Q DG.TREE) ( 37Q ") :" 31Q "Enter name for new subdirectory (of " 7 "Select parent directory.") DG.CREATE-TREE-FROM-LISTS D1 (P 3 X P 1 L2 P 0 TEMP I 0 LISTS) V @J 0I@[IX KKhIYKHJZdKK MLh^L&N(100Q DG.CREATE-TREE-FROM-LISTS) NIL () DG.CREATE-TREE-NODES D1 (P 10Q N-LIST P 7 SON P 3 SON-LIST P 2 CURRENT-NODE P 1 TO-NODES P 0 CURRENT-ID I 1 FORMER-PATH I 0 TREE F 11Q DEFAULT.GRAPH.NODELABELSHADE F 12Q DEFAULT.GRAPH.NODEFONT) w 0@iA@h XdhddWhddAhW@mhZ0@!dOH _IO\ML^]NJIK ]L(160Q LAST 102Q DG.CREATE-TREE-NODES 15Q \APPEND2) NIL () DG.CREATEICONW D1 (I 1 ICON I 0 WINDOW F 0 DG.ICON F 1 DG.MASK F 2 DG.ICONFONT) APQldlAl< h@g R (35Q TITLEDICONW 31Q GETWINDOWUSERPROP 16Q CREATEREGION) (26Q DG.ICONTITLE) () DG.CURRENT-CONNECTED-DIRECTORY D1 (P 0 CURRENT-DIR) .id Xd dgdgihHg H(51Q PACK* 17Q LAST 14Q UNPACK 7 DIRECTORYNAME) (46Q > 32Q > 24Q }) () DG.DELETE-DIRECTORY-COMMAND D1 (P 5 F P 4 NUMBER-OF-FILES P 3 FILES-TO-BE-DELETED P 2 FATHER-DIRECTORY P 1 CURRENT-DIRECTORY P 0 CURRENT-PATH I 0 WINDOW) P@o Xd@ H @ K \j@ @ o@ L@ o@ o@ @ l \@ K;dM @ @ o@ M@ o@ @ H@g "@ h@ @ o@ hH@ (362Q DG.DELETE-FROM-TREE 353Q PRIN1 350Q DG.PROMPTWINDOW 337Q TERPRI 334Q DG.PROMPTWINDOW 327Q DG.PROMPTWINDOW 321Q CLOSEW 312Q GETWINDOWUSERPROP 301Q INVERTW 270Q PRIN1 265Q DG.PROMPTWINDOW 254Q PRIN1 251Q DG.PROMPTWINDOW 243Q PRIN1 240Q DG.PROMPTWINDOW 227Q TERPRI 224Q DG.PROMPTWINDOW 217Q DG.PROMPTWINDOW 212Q DELFILE 175Q INVERTW 167Q MOUSECONFIRM 163Q FLASHWINDOW 156Q DG.PROMPTWINDOW 151Q PRIN1 146Q DG.PROMPTWINDOW 135Q PRIN1 132Q DG.PROMPTWINDOW 121Q PRIN1 116Q DG.PROMPTWINDOW 110Q PRIN1 105Q DG.PROMPTWINDOW 74Q TERPRI 71Q DG.PROMPTWINDOW 64Q DG.PROMPTWINDOW 51Q LENGTH 44Q INVERTW 37Q DIRECTORY 34Q DG.CREATE-PREFIX-FROM-PATH 27Q INVERTW 12Q DG.WAIT-FOR-DIR-SELECTION) (307Q DG.PATH-TO-ROOT) ( 344Q "Delete directory aborted." 261Q " was deleted." 234Q "File " 142Q "Confirm with left button ." 126Q " files are going to be deleted !!" 101Q "CAUTION !!! " 7 "Select directory to be deleted") DG.DELETE-FROM-TREE D1 (P 1 ATHER-DIRECTORY P 0 PARENT-AND-SON I 1 WINDOW I 0 PATH F 2 FATHER-DIRECTORY) ( @A XdcdHR Ag A h(44Q DG.DISPLAY-DIRECTORY-TREE 40Q DG.CREATE-GRAPH-FROM-TREE 35Q GETWINDOWUSERPROP 25Q REMOVE 7 DG.FIND-PARENT-DIERCTORY) (32Q DG.TREE) () DG.DIRECTORY-MINUS-PREFIX D1 (I 1 PREFIX I 0 DIRECTORY) A@A l@ @(20Q SUBATOM 15Q NCHARS 6 NCHARS) NIL () DG.DIRECTORY-SELECTION-FUNCTION D1 (P 0 CURRENT-NODE I 1 G-WINDOW I 0 SELECTED-OBJ F 1 DG.LAST-DIRECTORY-SELECTED F 2 DG.WINDOW-OF-LAST-DIRECTORY F 3 DG.DIRECTORY-WAS-SELECTED-EVENT) "@Ag @ cAcSi h(36Q NOTIFY.EVENT 22Q \APPEND2 14Q GETWINDOWUSERPROP) (11Q DG.PATH-TO-ROOT) () DG.DISPLAY-DIRECTORY-TREE D1 (I 1 WINDOW I 0 GRAPH) 1@Agd AggA ddh Agg A (56Q DG.SHADE-CURRENT-DIRECTORY 52Q PUTWINDOWPROP 40Q PUTWINDOWPROP 23Q \INSUREWINDOW 10Q SHOWGRAPH) (47Q DG.COPYBUTTONEVENTFN 44Q COPYBUTTONEVENTFN 17Q DG.REDISPLAYFN 14Q REPAINTFN 4 DG.DIRECTORY-SELECTION-FUNCTION) () DG.DOCOMMAND D1 (P 0 WINDOW I 2 KEY I 1 MENU I 0 ITEM F 1 DG.CONCURRENT-ALL F 2 DG.MONITOR-LOCK F 3 DG.CONCURRENT) /A XQRH@A SHg H@A H@A h(53Q DG.DOCOMMAND-WITHOUT-MONITOR 44Q DG.DOCOMMAND-WITH-MONITOR 36Q GETWINDOWUSERPROP 23Q DG.DOCOMMAND-WITH-MONITOR 11Q MAINWINDOW 6 WFROMMENU) (33Q DG.LOCK) () DG.DOCOMMAND-WITH-MONITOR D1 (I 3 MENU I 2 ITEM I 1 WINDOW I 0 MONITOR-LOCK) -Ago@ACBho gA gB  (52Q PUTWINDOWPROP 47Q ADD.PROCESS 36Q DG.PROMPTWINDOW 27Q SUBPAIR) (41Q NAME 32Q WINDOW 3 DG.PROCESS) ( 24Q (PROGN (WITH.MONITOR MONITOR-LOCK (TTYDISPLAYSTREAM (DG.PROMPTWINDOW WINDOW)) (SHADEITEM (QUOTE ITEM) MENU GRAYSHADE) (WINDOWPROP WINDOW (QUOTE DG.SHADED-ITEM) (QUOTE ITEM)) (CLEARW (DG.PROMPTWINDOW WINDOW)) (APPLY* (CADR (QUOTE ITEM)) WINDOW) (PRINTOUT (DG.PROMPTWINDOW WINDOW) T (CAR (QUOTE ITEM)) " Completed. ") (SHADEITEM (QUOTE ITEM) MENU WHITESHADE) (WINDOWPROP WINDOW (QUOTE DG.SHADED-ITEM) NIL) (WINDOWPROP WINDOW (QUOTE DG.PROCESS) NIL))) 7 (MONITOR-LOCK WINDOW MENU ITEM)) DG.DOCOMMAND-WITHOUT-MONITOR D1 (I 2 MENU I 1 ITEM I 0 WINDOW) +@go@BAho g@ gA  (50Q PUTWINDOWPROP 45Q ADD.PROCESS 34Q DG.PROMPTWINDOW 25Q SUBPAIR) (37Q NAME 30Q WINDOW 3 DG.PROCESS) ( 22Q (PROGN (TTYDISPLAYSTREAM (DG.PROMPTWINDOW WINDOW)) (SHADEITEM (QUOTE ITEM) MENU GRAYSHADE) (WINDOWPROP WINDOW (QUOTE DG.SHADED-ITEM) (QUOTE ITEM)) (CLEARW (DG.PROMPTWINDOW WINDOW)) (APPLY* (CADR (QUOTE ITEM)) WINDOW) (PRINTOUT (DG.PROMPTWINDOW WINDOW) T (CAR (QUOTE ITEM)) " Completed. ") (SHADEITEM (QUOTE ITEM) MENU WHITESHADE) (WINDOWPROP WINDOW (QUOTE DG.SHADED-ITEM) NIL) (WINDOWPROP WINDOW (QUOTE DG.PROCESS) NIL)) 7 (WINDOW MENU ITEM)) DG.EXCLUSIVE-DIRECTORY D1 (P 5 F P 0 CURRENT-DIRECTORY I 0 DIRECTORY-PATTERN) 8@g X@ AIJ]g HMK Lh[IYL&(37Q FILENAMEFIELD 16Q DIRECTORY 11Q FILENAMEFIELD) (34Q DIRECTORY 6 DIRECTORY) () DG.FBICONFN D1 (I 1 ICON I 0 WINDOW F 0 FILEDRAWER F 1 FILEDRAWERMASK F 2 DG.ICONFONT) APQldl7d h@g R (34Q TITLEDICONW 30Q GETWINDOWUSERPROP 15Q CREATEREGION) (25Q ICONTITLE) () DG.FILE-SELECTION-FN D1 (P 0 WINDOW I 2 KEY I 1 MENU I 0 ITEM) MA X@dgd g -,@Hg Hg@ @AjHg@ @AnH h(111Q SHADEITEM 77Q WINDOWADDPROP 62Q WINDOWDELPROP 50Q GETWINDOWUSERPROP 34Q NOTIFY.EVENT 31Q GETWINDOWUSERPROP 23Q MAINWINDOW 6 WFROMMENU) (73Q DG.SELECTED-FILES 56Q DG.SELECTED-FILES 45Q DG.SELECTED-FILES 26Q DG.FILE-SELECTION-ENDED-EVENT 14Q STOP) () DG.FILECOPY D1 (I 2 OVER-FLAG I 1 F2 I 0 F1) A B A @A @A i(26Q COPYFILE 20Q COPYFILE 13Q DELFILE 3 DIRECTORY) NIL () DG.FIND-DIRECTORY-SUBTREE D1 (P 1 X P 0 DIRECTORY-SUBTREE I 1 WINDOW I 0 PATH) 0@Ag bAg hX@dIHXH(31Q GETWINDOWUSERPROP 20Q NTH 15Q LENGTH 12Q GETWINDOWUSERPROP) (26Q DG.TREE 7 DG.PATH-TO-ROOT) () DG.FIND-PARENT-DIERCTORY D1 (P 1 CURRENT-DIRECTORY P 0 FATHER-DIRECTORY I 1 WINDOW I 0 PATH) 5 Ag XA@ bdHY@I@bIhHhHIh(17Q DG.RESIDUAL-PATH 11Q GETWINDOWUSERPROP) (6 DG.TREE) () DG.FLASHALLWINDOWS D1 (I 0 WINDOW) @d d h(13Q FLASHWINDOW 4 ATTACHEDWINDOWS) NIL () DG.GET-INITIAL-REGION D1 (P 0 G-REGION I 0 GRAPH F 1 DG.MAX-WIDTH F 2 DG.MIN-WIDTH F 3 DG.MAX-HEIGHT F 4 DG.MIN-HEIGHT) )@ XQHR SHT (46Q GETREGION 43Q MIN 40Q MAX 26Q MIN 23Q MAX 12Q GETMOUSESTATE 6 GRAPHREGION) NIL () DG.KILL-PROCESS D1 (P 1 W I 0 WINDOW) `@g ?@g @ @ @ o@ @ H@ @g Yg I I HX(130Q CLOSEW 123Q DETACHWINDOW 116Q GETWINDOWUSERPROP 105Q PUTWINDOWPROP 76Q REDISPLAYW 62Q ATTACHEDWINDOWS 55Q PRIN1 52Q DG.PROMPTWINDOW 41Q DG.PROMPTWINDOW 35Q CLEARW 32Q DG.PROMPTWINDOW 26Q DG.FLASHALLWINDOWS 22Q DEL.PROCESS 17Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (113Q DG.DETACH 102Q DG.PROCESS 14Q DG.PROCESS 3 DG.PROCESS) ( 46Q "User interupt. Directory Grapher process aborted.") DG.MOVE-DIR-COMMAND D1 (I 0 WINDOW) @i (4 DG.MOVECOPY-DIR-COMMAND) NIL () DG.MOVE-FILE-COMMAND D1 (I 0 WINDOW) @i (4 DG.MOVECOPY-COMMAND) NIL () DG.MOVECOPY-COMMAND D1 (P 10Q FILE P 7 SOURCE-PATH-WINDOW P 6 SOURCE-WINDOW P 5 MENU-WINDOW P 4 SOURCE-PREFIX P 3 TARGET-PREFIX P 2 SELECTED-FILES P 1 SOURCE-PATH P 0 TARGET-PATH I 1 MOVE I 0 WINDOW F 11Q DG.COPY-OVER F 12Q HIGHLIGHTSHADE) 6 @oi _d^OYd@ I IN@ ]gi @ @ @ o@ @g o Mg @oi X@ H JdLO KO W =@ @ O@ o@ L@ o@ K@ @ O@ o@ ALO OMg WM h@ M M h(462Q CLOSEW 455Q DETACHWINDOW 450Q INVERTW 433Q SHADEITEM 424Q GETWINDOWUSERPROP 412Q DELFILE 407Q PACK* 376Q PRIN1 373Q DG.PROMPTWINDOW 362Q PRIN1 357Q DG.PROMPTWINDOW 350Q TERPRI 345Q DG.PROMPTWINDOW 340Q DG.PROMPTWINDOW 330Q PRIN1 325Q DG.PROMPTWINDOW 314Q PRIN1 311Q DG.PROMPTWINDOW 303Q PRIN1 300Q DG.PROMPTWINDOW 267Q PRIN1 264Q DG.PROMPTWINDOW 255Q TERPRI 252Q DG.PROMPTWINDOW 245Q DG.PROMPTWINDOW 237Q DG.FILECOPY 232Q PACK* 224Q PACK* 204Q DG.CREATE-PREFIX-FROM-PATH 177Q INVERTW 163Q DG.WAIT-FOR-DIR-SELECTION 151Q GETWINDOWUSERPROP 141Q AWAIT.EVENT 132Q GETWINDOWUSERPROP 122Q PRIN1 117Q DG.PROMPTWINDOW 106Q DG.PROMPTWINDOW 101Q CLEARW 76Q DG.PROMPTWINDOW 71Q INVERTW 64Q PUTWINDOWPROP 54Q DG.ATTACH-DIRECTORY-FILES-MENU 45Q DG.CREATE-PREFIX-FROM-PATH 40Q INVERTW 13Q DG.WAIT-FOR-DIR-SELECTION) (421Q MENU 146Q DG.SELECTED-FILES 127Q DG.FILE-SELECTION-ENDED-EVENT 60Q DG.DETACH) ( 367Q " already exists and was not copied. " 321Q " --> " 274Q " : " 157Q "Select target directory " 136Q 3641100Q 113Q "Select files from menu. When done select STOP." 7 "Select source directory ") DG.MOVECOPY-DIR-COMMAND D1 (P 22Q FILE P 15Q NEW-PREFIX P 14Q NEW-NAME P 13Q FILE-NAME P 12Q TARGET-WINDOW P 11Q SOURCE-WINDOW P 10Q TARGET-PATH-WINDOW P 7 TARGET-FATHER-SON P 6 SOURCE-FATHER-SON P 5 MENU-WINDOW P 4 SOURCE-PREFIX P 3 TARGET-PREFIX P 2 SELECTED-FILES P 1 SOURCE-PATH P 0 TARGET-PATH I 1 MOVE I 0 WINDOW F 23Q SOURCE-WINDOW-PATH F 24Q DG.COPY-OVER)  @oi c&dYW&_In@ I \ @ @oI  i _A_H I THI"O_ O%i<@ @ @ o@ h_"O O"hO_O_O_H@ H JdO$HO$ I _O$ _ _W( V@ @ O@ o@ gO$g gO$g @ o@ O@ @ O@ o@ AO$ LIO HO _N OANNN Og O OOOg O (710Q DG.DISPLAY-DIRECTORY-TREE 703Q DG.CREATE-GRAPH-FROM-TREE 700Q GETWINDOWUSERPROP 656Q DG.DISPLAY-DIRECTORY-TREE 651Q DG.CREATE-GRAPH-FROM-TREE 646Q GETWINDOWUSERPROP 634Q REMOVE 607Q COPY 575Q DG.FIND-PARENT-DIERCTORY 566Q DG.FIND-PARENT-DIERCTORY 546Q DELFILE 536Q PRIN1 533Q DG.PROMPTWINDOW 522Q PRIN1 517Q DG.PROMPTWINDOW 510Q TERPRI 505Q DG.PROMPTWINDOW 500Q DG.PROMPTWINDOW 467Q PRIN1 464Q DG.PROMPTWINDOW 453Q PRIN1 450Q DG.PROMPTWINDOW 444Q PACKFILENAME 441Q FILENAMEFIELD 426Q FILENAMEFIELD 412Q PRIN1 407Q DG.PROMPTWINDOW 376Q PRIN1 373Q DG.PROMPTWINDOW 364Q TERPRI 361Q DG.PROMPTWINDOW 354Q DG.PROMPTWINDOW 346Q DG.FILECOPY 337Q PACK* 332Q DG.PACK-NAME-VER-EXT 323Q DG.CREATE-PREFIX-FROM-PATH 320Q \APPEND2 315Q NTH 312Q LENGTH 306Q DG.CREATE-PATH-FROM-FILE-NAME 264Q DG.CREATE-PREFIX-FROM-PATH 257Q INVERTW 204Q PRIN1 201Q DG.PROMPTWINDOW 170Q TERPRI 165Q DG.PROMPTWINDOW 160Q DG.PROMPTWINDOW 153Q DG.FLASHALLWINDOWS 114Q LENGTH 110Q LENGTH 75Q DG.WAIT-FOR-DIR-SELECTION 71Q CONCAT 65Q LAST 53Q INVERTW 46Q DIRECTORY 42Q DG.CREATE-PREFIX-FROM-PATH 35Q INVERTW 13Q DG.WAIT-FOR-DIR-SELECTION) (675Q DG.TREE 643Q DG.TREE 436Q HOST 431Q DIRECTORY 423Q HOST 416Q HOST) ( 527Q " already exists and was not copied. " 460Q " --> " 403Q " : " 175Q "Can not move a directory to its descendants" 61Q "Select new parent for directory " 7 "Select the directory that you want to transfer.") DG.PACK-NAME-VER-EXT D1 (I 0 F) $g@g g@g g@g (41Q PACKFILENAME 35Q FILENAMEFIELD 23Q FILENAMEFIELD 11Q FILENAMEFIELD) (32Q EXTENSION 26Q EXTENSION 20Q VERSION 14Q VERSION 6 NAME 2 NAME) () DG.PROMPTWINDOW D1 (I 0 WINDOW) @g (6 GETWINDOWUSERPROP) (3 PROMPTWINDOW) () DG.REDISPLAYFN D1 (P 3 ITEM P 2 MENU P 1 W I 0 WINDOW) =@ @ 1HhYg Z@g [HXJjI @g (70Q PUTWINDOWPROP 60Q SHADEITEM 41Q GETWINDOWUSERPROP 30Q GETWINDOWUSERPROP 7 ATTACHEDWINDOWS 3 DG.SHADE-CURRENT-DIRECTORY) (65Q DG.SHADED-ITEM 36Q DG.SHADED-ITEM 25Q MENU) () DG.RESIDUAL-PATH D1 (I 1 PATH I 0 WINDOW) A@g (15Q NTH 12Q LENGTH 7 GETWINDOWUSERPROP) (4 DG.PATH-TO-ROOT) () DG.RESTORE-COMMAND D1 (P 30Q F-WITH-< P 27Q F P 25Q SUB P 20Q TARGET-WINDOW P 17Q TARGET-PATH-AND-WINDOW P 16Q FILES-BACKUP-NAMES P 15Q BACKUP-HOST P 14Q INFO-NAME P 13Q UNFOUND-FILES P 12Q OVER-FLAG-ASKED P 11Q NEW-NAME P 10Q F-NAME P 7 DIRECTORY-INFO-FILE-NAME P 6 DSK-FILES P 5 FLOPPY-FILES P 4 OVER-WRITE-FLAG P 3 N P 2 FILES-TO-BACKUP P 1 TARGET-DIRECTORY P 0 TARGET-PATH I 1 BACKUP-DIR I 0 WINDOW F 31Q DG.DIRECTORY-SUBTREE F 32Q DG.FILES-BACKUP-NAMES F 33Q DG.COPY-OVER) A @oi _dXO_ HO YAg _dg@ @ o@ Ag Ag b@ AIg _d >@ @ @ @ @ o@ O@ oOg IdW2AO"O$ O g O O @@ W4_@ O!O,@ O-@ @ Og@ O @ o@ O_h_i _*IO*_(O&O(h_&_$O"_"HO(&_&_.AO. _ tHgO. _0  O0 _OOW6 &@ @ O@ o@ 2@ @ O@ o@ O.OO.O_O,_,@ O @ o@ h(1075Q PRIN1 1072Q DG.PROMPTWINDOW 1061Q PRIN1 1056Q DG.PROMPTWINDOW 1052Q LENGTH 1044Q DG.PROMPTWINDOW 1011Q PRIN1 1006Q DG.PROMPTWINDOW 775Q PRIN1 772Q DG.PROMPTWINDOW 763Q TERPRI 760Q DG.PROMPTWINDOW 753Q DG.PROMPTWINDOW 745Q PRIN1 742Q DG.PROMPTWINDOW 731Q PRIN1 726Q DG.PROMPTWINDOW 717Q TERPRI 714Q DG.PROMPTWINDOW 707Q DG.PROMPTWINDOW 701Q DG.FILECOPY 665Q PACK* 662Q DG.PACK-NAME-VER-EXT 655Q DG.CREATE-PREFIX-FROM-PATH 652Q \APPEND2 646Q DG.CREATE-PATH-FROM-FILE-NAME 641Q PACK* 626Q DIRECTORY 621Q PACK* 532Q FLOPPY.WAIT.FOR.FLOPPY 514Q PRIN1 511Q DG.PROMPTWINDOW 500Q PRIN1 475Q DG.PROMPTWINDOW 471Q LENGTH 463Q DG.PROMPTWINDOW 444Q CLEARW 441Q DG.PROMPTWINDOW 434Q DG.FLASHALLWINDOWS 427Q RINGBELLS 413Q INVERTW 367Q INVERTW 355Q INVERTW 343Q DG.DISPLAY-DIRECTORY-TREE 336Q DG.CREATE-GRAPH-FROM-TREE 333Q GETWINDOWUSERPROP 321Q \APPEND2 270Q LOAD 250Q PRIN1 245Q DG.PROMPTWINDOW 236Q PRIN1 233Q DG.PROMPTWINDOW 222Q TERPRI 217Q DG.PROMPTWINDOW 212Q DG.PROMPTWINDOW 205Q DG.FLASHALLWINDOWS 200Q INVERTW 173Q CLEARW 170Q DG.PROMPTWINDOW 162Q DIRECTORY 154Q PACK* 143Q INVERTW 134Q PACK* 124Q FILENAMEFIELD 114Q FLOPPY.WAIT.FOR.FLOPPY 110Q PRIN1 105Q DG.PROMPTWINDOW 74Q TERPRI 71Q DG.PROMPTWINDOW 64Q DG.PROMPTWINDOW 47Q FILENAMEFIELD 37Q DG.FIND-DIRECTORY-SUBTREE 16Q DG.WAIT-FOR-DIR-SELECTION) (634Q < 452Q FLOPPY 330Q DG.TREE 265Q SYSLOAD 151Q >BACKUPINFO 131Q < 121Q DIRECTORY 55Q FLOPPY 44Q HOST) ( 1066Q " Files wre not found on the backup directory and were not restored" 1002Q " exists and wasn't restored. " 736Q " Restored." 505Q " Files were not found on this floppy !! please insert another one. " 255Q " . Resore aborted. " 227Q "Couldn't find the file " 101Q "Insert Floppy" 12Q "Select directory that you want to restore") DG.RESTORE-FROM-DEFAULT-COMMAND D1 (I 0 WINDOW F 0 DG.DEFAULT-BACKUP-DIRECTORY) &P@ @ @ o@ @P (43Q DG.RESTORE-COMMAND 35Q PRIN1 32Q DG.PROMPTWINDOW 22Q TERPRI 17Q DG.PROMPTWINDOW 12Q DG.PROMPTWINDOW 6 DG.FLASHALLWINDOWS) NIL ( 26Q "NULL default directory.Backup aborted") DG.RESTORE-FROM-SELECTED-COMMAND D1 (P 0 BACKUP-DIRECTORY I 0 WINDOW) @oi  X@H h(25Q DG.RESTORE-COMMAND 17Q DG.CREATE-PREFIX-FROM-PATH 13Q DG.WAIT-FOR-DIR-SELECTION) NIL ( 7 "Select the directory that contains the backup.") DG.SETIFY D1 (P 2 ONE-ELEMENT P 0 NEW-SET I 0 L) 0@YHZH JHI(17Q MEMBER) NIL () DG.SHADE-CURRENT-DIRECTORY D1 (P 1 NODE P 0 CURRENT-PATH I 0 WINDOW) P @g X@g +dHIIlIjIm@ h(106Q RESET/NODE/BORDER 35Q GETWINDOWUSERPROP 25Q NTH 22Q LENGTH 17Q GETWINDOWUSERPROP 10Q DG.CREATE-PATH-FROM-FILE-NAME 5 DG.CURRENT-CONNECTED-DIRECTORY) (32Q GRAPH 14Q DG.PATH-TO-ROOT) () DG.TRIM D1 (I 1 N I 0 W) @ A@kA @(14Q SUBATOM 3 NCHARS) NIL () DG.UNADVISE D1 NIL o (6 UNADVISE) NIL ( 3 ((\GENERATENEXTFILE IN FB.UPDATEBROWSERITEMS))) DG.UNADVISE-GENERATE-FILE D1 NIL o (6 UNADVISE) NIL ( 3 ((\GENERATENEXTFILE IN FB.UPDATEBROWSERITEMS))) DG.UNPACK-DIRECTORY-NAME D1 (P 0 PACKED-NAME I 0 NAME) ,@h@@gH @ H@h @b(43Q \NCONC2 31Q DG.UNPACK-DIRECTORY-NAME 24Q PACK) (15Q >) () DG.UPDATE-COMMAND D1 (I 0 WINDOW) @ @ (7 DG.UPDATE-DIRECTORY-TREE 3 INVERTW) NIL () DG.UPDATE-DIRECTORY-TREE D1 (P 0 TREE I 0 WINDOW) !@g X@gH H @ h(35Q DG.DISPLAY-DIRECTORY-TREE 31Q DG.CREATE-GRAPH-FROM-TREE 25Q PUTWINDOWPROP 14Q DG.CREATE-DIRECTORY-TREE 11Q GETWINDOWUSERPROP) (21Q DG.TREE 6 DG.PATH-TO-ROOT) () DG.UPDATE-DIRECTROY-TREE D1 (P 0 TREE I 0 WINDOW F 1 'DG.PATH-TO-ROOT) @Q Xd@ h(20Q DG.DISPLAY-DIRECTORY-TREE 12Q DG.CREATE-DIRECTORY-TREE 7 WINDOWPROP) NIL () DG.WAIT-FOR-DIR-SELECTION D1 (P 0 WAITS I 2 ALLOW-OTHER-WINDOWS I 1 MESSAGE I 0 WINDOW F 2 DG.LAST-DIRECTORY-SELECTED F 3 DG.WINDOW-OF-LAST-DIRECTORY F 4 DG.DIRECTORY-WAS-SELECTED-EVENT)  hcj@ @ A@ HkظTn RBWS@RHdl2hl YjII @ Hl ldn'Hl kldn'Hl ldn'h RSh(202Q PLAYTUNE 127Q FLASHWINDOW 124Q DG.PROMPTWINDOW 116Q \FZEROP 101Q IMOD 51Q AWAIT.EVENT 35Q PRIN1 32Q DG.PROMPTWINDOW 24Q TERPRI 21Q DG.PROMPTWINDOW 14Q DG.PROMPTWINDOW) NIL () DIRGRAPHER D1 (P 2 PATH P 1 DG.WINDOW P 0 TREE I 2 PATH? I 1 WINDOW-REGION I 0 {DEV} F 3 GRAPH F 4 DG.DEFAULT-DIR F 5 DG.MIN-WIDTH F 6 DG.MENU-EDGE F 7 DG.MIN-HEIGHT F 10Q DG.PROMPTWINDOWFONT) 0@Tb@BHh@ Z H cAd @ YgUW IgJ SI IgH Igg Igg Igo IgJ Ig Igo Igo IlW I IVg I Igg I@ Yv(311Q CREATEW 303Q ATTACHMENU 271Q DG.CREATE-QUIT-MENU 265Q ATTACHMENU 255Q DG.CREATE-MENU 251Q GETPROMPTWINDOW 241Q PUTWINDOWPROP 236Q CREATE.MONITORLOCK 223Q PUTWINDOWPROP 220Q CREATE.EVENT 205Q PUTWINDOWPROP 176Q PUTWINDOWPROP 173Q DG.CREATE-ICON-TITLE 163Q PUTWINDOWPROP 150Q PUTWINDOWPROP 136Q WINDOWADDPROP 124Q PUTWINDOWPROP 114Q DG.DISPLAY-DIRECTORY-TREE 107Q PUTWINDOWPROP 76Q PUTWINDOWPROP 63Q CREATEW 57Q DG.GET-INITIAL-REGION 42Q DG.CREATE-GRAPH-FROM-TREE 35Q DG.CREATE-DIRECTORY-TREE 31Q DG.CREATE-PATH-FROM-FILE-NAME) (300Q JUSTIFY 275Q BOTTOM 262Q JUSTIFY 227Q DG.LOCK 211Q DG.FILE-SELECTION-ENDED-EVENT 202Q DG.PROCESS 167Q DG.ICONTITLE 154Q EXPANDFN 145Q DG.CREATEICONW 142Q ICONFN 133Q DG.REDISPLAYFN 130Q REPAINTFN 120Q DG.TREE 103Q DG.PATH-TO-ROOT 67Q MINSIZE) ( 233Q "DG.LOCK" 215Q "DGEVENT" 160Q (DG.SHADE-CURRENT-DIRECTORY REDISPLAYGRAPH)) (PRETTYCOMPRINT DIRGRAPHERCOMS) (RPAQQ DIRGRAPHERCOMS ((INITVARS (* * VARIABLES TO BE SET BY THE USER) (DG.ICONFONT (FONTCREATE (QUOTE (GACHA 8)))) (DG.PROMPTWINDOWFONT (FONTCREATE (QUOTE (GACHA 8)))) (DG.GRAPH-LABEL-FONT (FONTCREATE ( QUOTE (GACHA 8)))) (DG.VERTICAL-HORIZONTAL-OPTION (QUOTE VERTICAL)) (DG.COPY-OVER NIL) (DG.BOX-ALL T) (DG.DEFAULT-DIR (QUOTE {DSK})) (DG.CONCURRENT NIL) (DG.CONCURRENT-ALL T) (DG.MAX-WIDTH 900) (DG.MAX-HEIGHT 700) (DG.MIN-WIDTH 200) (DG.MIN-HEIGHT 100) (DG.MENU-EDGE (QUOTE RIGHT)) ( DG.DEFAULT-BACKUP-DIRECTORY (QUOTE {FLOPPY})) (* * PROGRAM VARIABLES) (DG.DIRECTORY-WAS-SELECTED-EVENT (CREATE.EVENT)) (DG.MONITOR-LOCK (CREATE.MONITORLOCK "DG.MONITOR")) (DG.LAST-DIRECTORY-SELECTED NIL) (DG.WINDOW-OF-LAST-DIRECTORY NIL)) (FNS DG.ADD-ITEM-TO-BACKGROUND-MENU DG.ADVISE-GENERATE-FILE DG.APPLY-DIRGRAPHER-COMMAND DG.APPLY-FB-ON-DIR-AND-SUBDIRS-COMMAND DG.APPLY-FILEBROWSER-COMMAND DG.ASK-FOR-BACKUP-TYPE DG.ATTACH-DIRECTORY-FILES-MENU DG.BACKUP-COMMAND DG.BACKUP-ON-DEFAULT-COMMAND DG.BACKUP-ON-SELECTED-COMMAND DG.CONNECT-DIR-COMMAND DG.COPY-DIRECTORY-COMMAND DG.COPY-FILE-COMMAND DG.COPYBUTTONEVENTFN DG.CREATE-BACKUP-NAME DG.CREATE-DIRECTORY-CHAIN DG.CREATE-DIRECTORY-SPEC DG.CREATE-DIRECTORY-TREE DG.CREATE-GRAPH-FROM-TREE DG.CREATE-ICON-TITLE DG.CREATE-MENU DG.CREATE-PATH-FROM-FILE-NAME DG.CREATE-PREFIX-FROM-PATH DG.CREATE-QUIT-MENU DG.CREATE-SUBDIR-COMMAND DG.CREATE-TREE-FROM-LISTS DG.CREATE-TREE-NODES DG.CREATEICONW DG.CURRENT-CONNECTED-DIRECTORY DG.DELETE-DIRECTORY-COMMAND DG.DELETE-FROM-TREE DG.DIRECTORY-MINUS-PREFIX DG.DIRECTORY-SELECTION-FUNCTION DG.DISPLAY-DIRECTORY-TREE DG.DOCOMMAND DG.DOCOMMAND-WITH-MONITOR DG.DOCOMMAND-WITHOUT-MONITOR DG.EXCLUSIVE-DIRECTORY DG.FBICONFN DG.FILE-SELECTION-FN DG.FILECOPY DG.FIND-DIRECTORY-SUBTREE DG.FIND-PARENT-DIERCTORY DG.FLASHALLWINDOWS DG.GET-INITIAL-REGION DG.KILL-PROCESS DG.MOVE-DIR-COMMAND DG.MOVE-FILE-COMMAND DG.MOVECOPY-COMMAND DG.MOVECOPY-DIR-COMMAND DG.PACK-NAME-VER-EXT DG.PROMPTWINDOW DG.REDISPLAYFN DG.RESIDUAL-PATH DG.RESTORE-COMMAND DG.RESTORE-FROM-DEFAULT-COMMAND DG.RESTORE-FROM-SELECTED-COMMAND DG.SETIFY DG.SHADE-CURRENT-DIRECTORY DG.TRIM DG.UNADVISE DG.UNADVISE-GENERATE-FILE DG.UNPACK-DIRECTORY-NAME DG.UPDATE-COMMAND DG.UPDATE-DIRECTORY-TREE DG.UPDATE-DIRECTROY-TREE DG.WAIT-FOR-DIR-SELECTION DIRGRAPHER) (BITMAPS DG.ICON DG.MASK DG.FILL-WINDOW-TEXTURE DG.WHITEBM) (DECLARE: DONTEVAL@LOAD DOCOPY (FILES GRAPHER ICONW FILEBROWSER) (P (DG.ADVISE-GENERATE-FILE) (DG.ADD-ITEM-TO-BACKGROUND-MENU (QUOTE DirGrapher) (QUOTE ( DIRGRAPHER)) "Will initiate dirgrapher process on the current directory" (QUOTE (SUBITEMS ({FLOPPY} ( DIRGRAPHER (QUOTE {FLOPPY}))) ({DSK} (DIRGRAPHER (QUOTE {DSK})))))))))) (RPAQ? DG.ICONFONT (FONTCREATE (QUOTE (GACHA 8)))) (RPAQ? DG.PROMPTWINDOWFONT (FONTCREATE (QUOTE (GACHA 8)))) (RPAQ? DG.GRAPH-LABEL-FONT (FONTCREATE (QUOTE (GACHA 8)))) (RPAQ? DG.VERTICAL-HORIZONTAL-OPTION (QUOTE VERTICAL)) (RPAQ? DG.COPY-OVER NIL) (RPAQ? DG.BOX-ALL T) (RPAQ? DG.DEFAULT-DIR (QUOTE {DSK})) (RPAQ? DG.CONCURRENT NIL) (RPAQ? DG.CONCURRENT-ALL T) (RPAQ? DG.MAX-WIDTH 900) (RPAQ? DG.MAX-HEIGHT 700) (RPAQ? DG.MIN-WIDTH 200) (RPAQ? DG.MIN-HEIGHT 100) (RPAQ? DG.MENU-EDGE (QUOTE RIGHT)) (RPAQ? DG.DEFAULT-BACKUP-DIRECTORY (QUOTE {FLOPPY})) (RPAQ? DG.DIRECTORY-WAS-SELECTED-EVENT (CREATE.EVENT)) (RPAQ? DG.MONITOR-LOCK (CREATE.MONITORLOCK "DG.MONITOR")) (RPAQ? DG.LAST-DIRECTORY-SELECTED NIL) (RPAQ? DG.WINDOW-OF-LAST-DIRECTORY NIL) (RPAQ DG.ICON (READBITMAP)) (75 75 "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "N@@@@@@@@@@@@@@@@@N@" "N@@@@@@@@@@@@@@@@@N@" "NGOOOOOOOOOOOOOOOLN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@D@@@@@@@DN@" "ND@@@@@@@D@@@@@@@DN@" "ND@@@@@@@D@@@@@@@DN@" "ND@@@COOOOOOOH@@@DN@" "ND@@@B@@@@@@@H@@@DN@" "ND@@@B@@@@@@@H@@@DN@" "ND@@@B@@@@@@@H@@@DN@" "ND@GOOOO@@AOOOOH@DN@" "ND@D@@@A@@A@@@@H@DN@" "ND@D@@@A@@A@@@@H@DN@" "NDGOL@AOOAOO@@OOHDN@" "NDD@D@A@AA@A@@H@HDN@" "NDD@D@A@AA@A@@H@HDN@" "NDD@D@A@AA@A@@H@HDN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "ND@@@@@@@@@@@@@@@DN@" "NGOOOOOOOOOOOOOOOLN@" "N@@@@@@@@@@@@@@@@@N@" "N@@@@@@@@@@@@@@@@@N@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@") (RPAQ DG.MASK (READBITMAP)) (75 75 "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@" "OOOOOOOOOOOOOOOOOON@") (RPAQ DG.FILL-WINDOW-TEXTURE (READBITMAP)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@") (RPAQ DG.WHITEBM (READBITMAP)) (16 16 "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@" "@@@@") (FILESLOAD GRAPHER ICONW FILEBROWSER) (DG.ADVISE-GENERATE-FILE) (DG.ADD-ITEM-TO-BACKGROUND-MENU (QUOTE DirGrapher) (QUOTE (DIRGRAPHER)) "Will initiate dirgrapher process on the current directory" (QUOTE (SUBITEMS ({FLOPPY} (DIRGRAPHER ( QUOTE {FLOPPY}))) ({DSK} (DIRGRAPHER (QUOTE {DSK})))))) (PUTPROPS DIRGRAPHER COPYRIGHT ("Shaul Markovitch" 1985)) NIL