(FILECREATED "28-Jun-85 14:47:15" ("compiled on " {PHYLUM}RELEASE1.1>NOTECARDS.;13) "20-Dec-84 12:07:22" tcompl'd in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "28-Jun-85 14:44:50" {PHYLUM}RELEASE1.1>NOTECARDS.;13 10102 changes to: (VARS NOTECARDSCOMS) previous date: "18-Dec-84 20:28:50" {PHYLUM}RELEASE1.1>NOTECARDS.;12) NC.Setup D1 (P 5 ImageObj I 0 DatabaseFileName F 7 NC.GCGAGFlg F 10Q WindowMenuCommands F 11Q NC.BrowserCardDefaultWidth F 12Q NC.WindowRightButtonMenu F 13Q UseMapWithPoliticalBoundaries F 14Q TEDIT.INPUT.FORMATS F 15Q PSA.NoteCards F 16Q NC.BrowserCardDefaultHeight F 17Q PSA.MenuOfNoteCards F 20Q PSA.NoteCardDefaultWidth F 21Q PSA.SketchCardDefaultWidth F 22Q PSA.MapSketchType F 23Q PSA.NoteCardDefaultHeight F 24Q PSA.ContentsCardDefaultWidth F 25Q PSA.ContentsCardDefaultHeight F 26Q PSA.SketchCardDefaultHeight F 27Q PSA.TimesRoman10 F 30Q PSA.GraphCardDefaultWidth F 31Q PSA.GraphCardDefaultHeight F 32Q PSA.TEditCardDefaultWidth F 33Q SKETCH.ELEMENT.TYPES F 34Q PSA.TEditCardDefaultHeight) W `WAHIHdIdkdi dodg dgjdndhHdI co ggo ichcochcnc lc&nOc(lc*n,c0lc2n,c4lc8nc"n^c,ncn^cW6Hhc$gl c.gl ` n` ggggggggggggd h MM`N Mgg Mg ogggggdddddddd gggggdddddddd o` \dgdgdgihLJ KhZHXBK&YgIiHX(643Q NC.AdjustCloseF 635Q IMAGEOBJCREATE 620Q IMAGEFNSCREATE 562Q IMAGEOBJCREATE 557Q IMAGEFNSCREATE 517Q INITIALIZEINTERCALC 513Q \DEFINEDP 472Q IMAGEOBJPROP 455Q NCREATE2 430Q NC.MakeLinkIcon 421Q IMAGEFNSCREATE 350Q NC.MakeMainMenu 345Q LINELENGTH 334Q DSPFONT 326Q FONTCREATE 314Q FONTCREATE 154Q ADVISE 137Q UNADVISE 4 GCGAG) (736Q Map 731Q SKETCHTYPE 667Q Clear 661Q Paint 653Q Snap 640Q NC.InvisibleLinkImageObject 632Q NC.InvisibleLinkImageFns 623Q NC.InvisibleLinkImageFns 604Q NILL 601Q NC.InvisibleLinkGetFn 576Q NC.InvisibleLinkPutFn 573Q NC.InvisibleLinkImageBoxFn 570Q NILL 565Q NC.DeletedLinkImageObject 543Q NILL 540Q NC.DeletedLinkGetFn 535Q NC.DeletedLinkPutFn 532Q NC.DeletedLinkImageBoxFn 527Q NC.DeletedLinkDisplayFn 510Q INITIALIZEINTERCALC 505Q NC.NoDeleteImageFns 500Q IMAGEOBJ 467Q NILL 464Q WHENDELETEDFN 451Q IMAGEFNSTYPE# 443Q IMAGEOBJ 437Q IMAGEOBJ 424Q NC.LinkIconImageFns 414Q NILL 411Q NC.LinkIconWhenCopiedFn 406Q NC.LinkIconWhenDeletedFn 403Q NC.LinkIconWhenInsertedFn 400Q NC.LinkIconWhenMovedFn 375Q NILL 372Q NC.LinkIconButtonEventInFn 367Q NC.LinkIconCopyFn 364Q NC.LinkIconGetFn 361Q NC.LinkIconPutFn 356Q NC.LinkIconImageBoxFn 353Q NC.LinkIconDisplayFn 342Q PROMPTWINDOW 331Q PROMPTWINDOW 321Q HELVETICA 307Q HELVETICA 145Q AROUND 142Q DOWINDOWCOM 76Q DEFAULTMENUHELDFN 67Q CLRPROMPT 7 MENUTYPE#) ( 627Q "InvisibleLink" 524Q "DeletedLink" 166Q (NC00002 NC00001) 151Q (AND (OR (NEQ WINDOW NC.MainMenuWindow) (NOT NC.FixedMenuFlg)) (COND ((AND NC.ShortWindowMenuFlg (NC.IDP (NC.IDFromWindow WINDOW))) (RESETLST (RESETSAVE WindowMenu NC.WindowRightButtonMenu) *)) (T *))) 134Q (DOWINDOWCOM) 60Q (HELVETICA 12Q)) NC.MakeLafiteForm D1 (F 0 NC.SystemDate) ooP (13Q MAKEXXXSUPPORTFORM) NIL ( 7 "NoteCardsSupport.pa" 3 "NoteCards 1.1") JSBDUMPNOTECARDS D1 (P 15Q File P 14Q DemoFile P 13Q DemoDir P 12Q QuadFnsFile P 11Q MapFile P 10Q MapDir P 7 GrapherFile P 6 SketchFiles P 5 SketchDir P 4 GraphZoomFile P 3 GraphZoomDir P 2 FloppyDir P 1 NCDir P 0 Files) ogggggogggggg IOg JOg KLg JLg Nd MOg JOg OOg JOg OOg JOg Hd IOg JOg OO JO h(323Q COPYFILE 320Q PACK* 312Q PACK* 276Q COPYFILE 273Q PACK* 262Q PACK* 241Q COPYFILE 236Q PACK* 225Q PACK* 213Q COPYFILE 210Q PACK* 177Q PACK* 160Q COPYFILE 155Q PACK* 144Q PACK* 123Q COPYFILE 120Q PACK* 110Q PACK* 100Q COPYFILE 75Q PACK* 64Q PACK*) (270Q .DCOM 257Q .DCOM 233Q .DCOM 222Q .DCOM 205Q .DCOM 174Q .DCOM 152Q .DCOM 141Q .DCOM 115Q .DCOM 105Q .DCOM 72Q .DCOM 61Q .DCOM 50Q FAST-FMEA.NOTEFILE 45Q {PHYLUM}RELEASE1.1>DEMO> 42Q QUADFUNS 37Q NEWMAP 34Q {PHYLUM}MAPS> 31Q GRAPHER 22Q {ERIS} 17Q GRAPHZOOM 14Q {ERIS}LIBRARY> 11Q {FLOPPY} 6 {PHYLUM}RELEASE1.1>) ( 26Q (SKETCHEDIT SKETCHOBJ SKETCH) 3 (JSBNOTECARDSLOADER JSBNOTECARDS NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS NCUTILITIES NCBASICTYPES NCANNO NCPROGINT NCGESTURES NCLOGO)) (PRETTYCOMPRINT NOTECARDSCOMS) (RPAQQ NOTECARDSCOMS ((* * Load the supporting files for Notecards) (P (LOAD (QUOTE {PHYLUM}RELEASE1.1>GRAPHER.DCOM) (QUOTE SYSLOAD))) (FILES (FROM LISPUSERS SYSLOAD) TEDIT ( FROM LISPUSERS SYSLOAD) CROCK (FROM LISPUSERS SYSLOAD) SKETCH SKETCHOBJ (FROM {PHYLUM}MAPS> SYSLOAD) NEWMAP) (* * Load the NoteCards files) (GLOBALVARS NC.Files) (VARS (NC.Files (QUOTE ( NOTECARDS NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS NCUTILITIES NCBASICTYPES NCANNO NCPROGINT NCGESTURES NCLOGO)))) (FILES (FROM {PHYLUM}RELEASE1.1>) NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS NCUTILITIES NCBASICTYPES NCANNO NCPROGINT NCGESTURES NCLOGO) (* * Initialization functions) (GLOBALVARS NC.DeletedLinkImageObject NC.InvisibleLinkImageObject NC.InvisibleLinkImageFns NC.LinkIconImageFns NC.NoDeleteImageFns) (FNS NC.Setup) (* * Set up Lafite Bug Report Forms) (E (SETQ NC.SystemDate (DATE))) (VARS NC.SystemDate) ( FNS NC.MakeLafiteForm) (ADDVARS (LAFITESPECIALFORMS ("NoteCards Report" (FUNCTION NC.MakeLafiteForm) "Report bug or request new feature for NoteCards."))) (P (SETQ LAFITEFORMSMENU NIL)) (* * INITIALIZE NoteCards) (P (NC.Setup)) (ADDVARS (BackgroundMenuCommands (NoteCards (NC.MakeMainMenu) "Brings up the NoteCards main menu."))) (P (SETQ BackgroundMenu)) (* This will dump the notecards files as well as sketch and grapher to floppy for John Brown.) (FNS JSBDUMPNOTECARDS))) (LOAD (QUOTE {PHYLUM}RELEASE1.1>GRAPHER.DCOM) (QUOTE SYSLOAD)) (FILESLOAD (FROM LISPUSERS SYSLOAD) TEDIT (FROM LISPUSERS SYSLOAD) CROCK (FROM LISPUSERS SYSLOAD) SKETCH SKETCHOBJ (FROM {PHYLUM}MAPS> SYSLOAD) NEWMAP) (RPAQQ NC.Files (NOTECARDS NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS NCUTILITIES NCBASICTYPES NCANNO NCPROGINT NCGESTURES NCLOGO)) (FILESLOAD (FROM {PHYLUM}RELEASE1.1>) NCPARAMETERS NCINTERFACE NCDATABASE NCCARDS NCTYPESMECH NCLINKS NCUTILITIES NCBASICTYPES NCANNO NCPROGINT NCGESTURES NCLOGO) (RPAQQ NC.SystemDate "28-Jun-85 14:44:58") (ADDTOVAR LAFITESPECIALFORMS ("NoteCards Report" (FUNCTION NC.MakeLafiteForm) "Report bug or request new feature for NoteCards.")) (SETQ LAFITEFORMSMENU NIL) (NC.Setup) (ADDTOVAR BackgroundMenuCommands (NoteCards (NC.MakeMainMenu) "Brings up the NoteCards main menu.")) (SETQ BackgroundMenu) (PUTPROPS NOTECARDS COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL