(FILECREATED "22-Dec-86 12:40:12" ("compiled on " {QV}1.3K>NEXT>PMIPATCH014.;3) "12-Nov-85 14:59:23" recompiled changes: NC.MakeMainMenu NC.CompactNoteFile NC.DeleteDatabaseFile NC.CheckpointNoteFile NC.CloseNoteFile NC.AbortSession in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "22-Dec-86 12:38:41" {QV}1.3K>NEXT>PMIPATCH014.;3 52489 changes to: (FNS NC.DeleteDatabaseFile NC.CompactNoteFile NC.CheckpointNoteFile NC.CloseNoteFile NC.AbortSession NC.MakeMainMenu) (VARS PMIPATCH014COMS) previous date: "19-Dec-86 19:14:31" {QV}1.3K>NEXT>PMIPATCH014.;1) NC.MakeMainMenu D1 (P 34Q Item P 3 X P 2 Position P 1 TitleFont P 0 Font I 0 DatabaseTitle) \gl g gl g ` n^n`dodgdodi dkdkdldHH l ؽdJdI$dg dgjdndhdL d M[d`dodgdodi dkdkdldHH l _dJdI$dg dgjdndhdN d O[d`dodgdodi dkdkdldHH l _dJdI$dg dgjdndh_dO d O[d`dodgdodi dkdkdkdHH l _dJdI$dg dgjdndh_dO d O[d`dodgdodi dkdkdldHH l _dJdI$dg dgjdndh_dO d O[d`dodgdodi dkdkdldHH l _dJdI$dg dgjdndh_dO d O[d`dodgdodi dkdkdldHH l _"dJdI$dg dgjdndh_ dO  d O"[d`dodgdodi dkdkdldHH l _&dJdI$dg dgjdndh_$dO$ d O&[d`dodgdodi dkdkdldHH l _*dJdI$dg dgjdndh_(dO( d O*[d`dodgdodi dkdkdldHH l _.dJdI$dg dgjdndh_,dO, d O.[d`dodgmj_0dO0dh dod`$d`dgdg dgjdndh_2dO2 d ` k[ddO8KO8o j` KhK`dodgmj_4dO4dh dod`$d`dgdg dgjdndh_6dO6 d ` k[ddO8KO8o j` KhKh(3110Q SHADEITEM 3077Q MEMB 3040Q FONTHEIGHT 2635Q SHADEITEM 2624Q MEMB 2565Q FONTHEIGHT 2276Q FONTHEIGHT 2101Q FONTHEIGHT 1704Q FONTHEIGHT 1507Q FONTHEIGHT 1312Q FONTHEIGHT 1115Q FONTHEIGHT 720Q FONTHEIGHT 524Q FONTHEIGHT 332Q FONTHEIGHT 143Q FONTHEIGHT 33Q POSITIONP 25Q FONTCREATE 12Q FONTCREATE) (3130Q NC.ClosedNoteFileMenu 3121Q MENU 3105Q GRAYSHADE 3051Q MENU 3035Q NC.MenuFont 3025Q MENU 2772Q DEFAULTMENUHELDFN 2763Q CLRPROMPT 2754Q NC.NoteFileTitleLeftWhenSelectedFn 2745Q NC.MenuFont 2736Q NC.MenuFont 2675Q Y 2660Q MENUTYPE# 2655Q NC.OpenedNoteFileMenu 2646Q MENU 2632Q GRAYSHADE 2576Q MENU 2562Q NC.MenuFont 2552Q MENU 2517Q DEFAULTMENUHELDFN 2510Q CLRPROMPT 2501Q NC.NoteFileTitleLeftWhenSelectedFn 2472Q NC.MenuFont 2463Q NC.MenuFont 2422Q Y 2405Q MENUTYPE# 2402Q NC.SelectingCardsMenu 2364Q MENU 2331Q DEFAULTMENUHELDFN 2322Q CLRPROMPT 2225Q NC.SelectionMenusWhenSelectedFn 2210Q MENUTYPE# 2205Q NC.SelectingFileBoxChildrenMenu 2167Q MENU 2134Q DEFAULTMENUHELDFN 2125Q CLRPROMPT 2030Q NC.SelectionMenusWhenSelectedFn 2013Q MENUTYPE# 2010Q NC.SelectingBrowserSourceMenu 1772Q MENU 1737Q DEFAULTMENUHELDFN 1730Q CLRPROMPT 1633Q NC.SelectionMenusWhenSelectedFn 1616Q MENUTYPE# 1613Q NC.SelectingParentsMenu 1575Q MENU 1542Q DEFAULTMENUHELDFN 1533Q CLRPROMPT 1436Q NC.SelectionMenusWhenSelectedFn 1421Q MENUTYPE# 1416Q NC.DeleteSelectingMenu 1400Q MENU 1345Q DEFAULTMENUHELDFN 1336Q CLRPROMPT 1241Q NC.SelectionMenusWhenSelectedFn 1224Q MENUTYPE# 1221Q NC.SelectingMultipleCardsMenu 1203Q MENU 1150Q DEFAULTMENUHELDFN 1141Q CLRPROMPT 1044Q NC.SelectionMenusWhenSelectedFn 1027Q MENUTYPE# 1024Q NC.SelectingCardMenu 1006Q MENU 753Q DEFAULTMENUHELDFN 744Q CLRPROMPT 650Q NC.SelectionMenusWhenSelectedFn 633Q MENUTYPE# 630Q NC.SelectingSingleCardMenu 612Q MENU 557Q DEFAULTMENUHELDFN 550Q CLRPROMPT 453Q NC.SelectionMenusWhenSelectedFn 436Q MENUTYPE# 433Q NC.SelectingContentsMenu 415Q MENU 365Q DEFAULTMENUHELDFN 356Q CLRPROMPT 261Q NC.SelectionMenusWhenSelectedFn 244Q MENUTYPE# 241Q NC.SelectingSourcesMenu 224Q MENU 174Q DEFAULTMENUHELDFN 165Q CLRPROMPT 72Q NC.SelectionMenusWhenSelectedFn 55Q MENUTYPE# 30Q NC.MainMenuPosition 22Q BOLD 15Q HELVETICA 7 BOLD 2 HELVETICA) ( 3074Q (Open Compact Inspect&Repair Copy Rename Delete Create) 2727Q "NoteFile Ops" 2666Q ((Open NIL "Opens this NoteFile." (SUBITEMS (Read-only% Open NIL "Opens this NoteFile for read-only."))) (Checkpoint NIL "Checkpoint this NoteFile, saving changed cards.") (Close NIL "Closes this NoteFile.") (Abort NIL "Close NF, deleting changes since last checkpoint.") (Compact NIL "Compacts a NoteFile to a target file." (SUBITEMS (Compact% To% Target% File NIL "Compacts this NoteFile to a target file.") (Compact% In% Place NIL "Compacts this NoteFile in place."))) (Inspect&Repair NIL "Inspects and optionally repairs this NoteFile." (SUBITEMS (Read% Substances NIL "Inspects and optionally repairs a Notefile, but reads every substance. This slows it WAY down."))) (Copy NIL "Copies this notefile to a target file.") (Rename NIL "Rename this NoteFile") (Delete NIL "Deletes this NoteFile.")) 2621Q (Open Checkpoint Close Abort Create) 2454Q "NoteFile Ops" 2413Q ((Open NIL "Opens this NoteFile." (SUBITEMS (Read-only% Open NIL "Opens this NoteFile for read-only."))) (Checkpoint NIL "Checkpoint this NoteFile, saving changed cards.") (Close NIL "Closes this NoteFile.") (Abort NIL "Close NF, deleting changes since last checkpoint.") (Compact NIL "Compacts a NoteFile to a target file." (SUBITEMS (Compact% To% Target% File NIL "Compacts this NoteFile to a target file.") (Compact% In% Place NIL "Compacts this NoteFile in place."))) (Inspect&Repair NIL "Inspects and optionally repairs this NoteFile." (SUBITEMS (Read% Substances NIL "Inspects and optionally repairs a Notefile, but reads every substance. This slows it WAY down."))) (Copy NIL "Copies this notefile to a target file.") (Rename NIL "Rename this NoteFile") (Delete NIL "Deletes this NoteFile.")) 2235Q "Selecting Cards" 2216Q ((Cancel NIL "Cancel this operation.") (Undo NIL "Backup over last selection.") (Done NIL "Indicates that this operation is completed.")) 2040Q "Selecting cards to file" 2021Q ((Cancel NIL "Cancel this operation.") (Undo NIL "Backup over last selection.") (Done NIL "Indicates that this operation is completed.")) 1643Q "Selecting Starting Card(s)/Box(s)" 1624Q ((Cancel NIL "Cancel this selection.") (Undo NIL "Backup over last selection.") (Done NIL "Indicates that this operation is completed.")) 1446Q "Selecting FileBox(s)" 1427Q ((Cancel NIL "Cancel this selection.") (Undo NIL "Backup over last selection.") (Done NIL "Indicates that selection is completed.")) 1251Q "Selecting cards to close or delete" 1232Q ((Cancel NIL "Cancel this selection.") (Undo NIL "Backup over last selection.") (Done NIL "Indicates that selection is completed.")) 1054Q "Selecting Note Cards" 1035Q ((Cancel NIL "Cancel this selection.") (Undo NIL "Backup over last selection.") (Done NIL "Indicates that selection is completed.")) 660Q "Selecting Single Card" 641Q ((Cancel NIL "Cancel this selection.")) 463Q "Selecting Note Card" 444Q ((New% Card NIL "Make a new note card.") (Cancel NIL "Cancel this selection.")) 271Q "Selecting File Box(es)" 252Q ((Cancel NIL "Cancel card closing.") (Undo NIL "Backup over last selection.") (Done NIL "Indicates that selection is completed.")) 102Q "Selecting Source(s)" 63Q ((NoSource NIL "Indicates that this note card has no source.") (Undo NIL "Backup over last selection.") (Done NIL "Indicates that selection is completed."))) NC.CompactNoteFile D1 (P 2 FullFromFileName P 1 FromNoteFile P 0 MsgWindow I 3 InterestedWindow I 2 InPlaceFlg I 1 ToFileName I 0 FromNoteFileOrName) C1@d`YC3@(ooihdH bd@ Z YC I I Hiol ` Hi hJg g "JABHlK(167Q NC.DeviceVectorForHost 161Q FILENAMEFIELD 150Q NC.ClearMsg 142Q DISMISS 133Q NC.PrintMsg 130Q CHARACTER 113Q NC.NoteFileOpenP 106Q WFROMMENU 67Q NC.NoteFileFromFileName 63Q FULLNAME 52Q NC.DatabaseFileName) (172Q NoteFileDevice 164Q PRIVATE 156Q HOST 137Q NC.MsgDelay 101Q NoteFile 17Q NoteFile 11Q NoteFileTYPE#) ( 123Q "Can't compact an open notefile." 42Q " -- " 36Q "Name of NoteFile to be compacted:") NC.CopyNoteFile D1 (P 3 NoteFile P 2 FullFromFileName P 1 Result P 0 MsgWindow I 2 InterestedWindow I 1 ToFileName I 0 FromNoteFileOrName) B1@d`[B4@)ooihdH bh@ Z [B K K Hiol ` Hi hAooihdH bJ\ATHioJoAo JA YHiJoIol ghgI ` Hi WJRHio@l ` Hi 1(374Q NC.ClearMsg 366Q DISMISS 357Q NC.PrintMsg 353Q CHARACTER 326Q NC.ClearMsg 320Q DISMISS 306Q PACKFILENAME 272Q NC.PrintMsg 266Q CHARACTER 242Q COPYFILE 234Q NC.PrintMsg 176Q NC.DatabaseFileName 151Q NC.ClearMsg 143Q DISMISS 134Q NC.PrintMsg 131Q CHARACTER 114Q NC.NoteFileOpenP 107Q WFROMMENU 70Q NC.NoteFileFromFileName 64Q FULLNAME 52Q NC.DatabaseFileName) (363Q NC.MsgDelay 315Q NC.MsgDelay 311Q NC.DatabaseFileNameSuggestion 302Q BODY 276Q VERSION 140Q NC.MsgDelay 102Q NoteFile 17Q NoteFile 11Q NoteFileTYPE#) ( 345Q "Can't open file for copy: " 261Q "." 254Q " copied to " 230Q " ..." 223Q " to " 216Q "Copying " 166Q " -- " 162Q "Name of target of copy:" 124Q "Can't copy an open notefile." 42Q " -- " 36Q "Name of NoteFile to be copied:") NC.InspectAndRepairNoteFile D1 (P 2 NoteFileName P 1 NoteFile P 0 MsgWindow I 2 InterestedWindow I 1 ReadSubstancesFlg I 0 NoteFileOrFileName) B1@d`YB3@(ooihdH bd@ Z YB I I Hiol ` Hi hJg g  IABlK(167Q NC.DeviceVectorForHost 161Q FILENAMEFIELD 150Q NC.ClearMsg 142Q DISMISS 133Q NC.PrintMsg 130Q CHARACTER 113Q NC.NoteFileOpenP 106Q WFROMMENU 67Q NC.NoteFileFromFileName 63Q FULLNAME 52Q NC.DatabaseFileName) (172Q NoteFileDevice 164Q PRIVATE 156Q HOST 137Q NC.MsgDelay 101Q NoteFile 17Q NoteFile 11Q NoteFileTYPE#) ( 123Q "Can't inspect and repair an open notefile." 42Q " -- " 36Q "Name of NoteFile to be copied:") NC.RenameNoteFile D1 (P 3 NoteFile P 2 FullFromFileName P 1 Result P 0 MsgWindow I 2 InterestedWindow I 1 ToFileName I 0 FromNoteFileOrName) (B1@d`[B4@)ooihdH bh@ Z [B K K Hiol ` Hi hAooihdH bJAxHioJoAo JA YHiJoIol K#KIIKK K ghgI ` Hi 1J,Hio@l ` Hi (442Q NC.ClearMsg 434Q DISMISS 425Q NC.PrintMsg 421Q CHARACTER 374Q NC.ClearMsg 366Q DISMISS 354Q PACKFILENAME 340Q NC.SetUpNoteFileInterface 333Q WFROMMENU 274Q NC.PrintMsg 270Q CHARACTER 244Q RENAMEFILE 236Q NC.PrintMsg 176Q NC.DatabaseFileName 151Q NC.ClearMsg 143Q DISMISS 134Q NC.PrintMsg 131Q CHARACTER 114Q NC.NoteFileOpenP 107Q WFROMMENU 70Q NC.NoteFileFromFileName 64Q FULLNAME 52Q NC.DatabaseFileName) (431Q NC.MsgDelay 363Q NC.MsgDelay 357Q NC.DatabaseFileNameSuggestion 350Q BODY 344Q VERSION 326Q NoteFile 317Q NoteFile 304Q NoteFile 140Q NC.MsgDelay 102Q NoteFile 17Q NoteFile 11Q NoteFileTYPE#) ( 413Q "Can't open file for rename: " 263Q "." 256Q " renamed to " 232Q " ..." 225Q " to " 220Q "Renaming " 166Q " -- " 162Q "New name for the NoteFile:" 124Q "Can't rename an open notefile." 42Q " -- " 36Q "Name of NoteFile to be renamed:") NC.DeleteDatabaseFile D1 (P 1 FullFileName P 0 FileName I 3 QuietFlg I 2 Don'tConfirmFlg I 1 InterestedWindow I 0 FileNameOrNoteFile) i@d`!HooihdA XdAg gHg H H HYd Aiol ` Ai hI A iHol ol hBGol Iol ooiA Ah CA iIol hCA ioIl n BGol Iol ooiA Ah CA iIol hI gg`IkJYdd hAi I(545Q NC.ClearMsg 534Q NC.RemoveAccessToNoteFile 476Q NC.RemoteHostP 470Q NC.PrintMsg 464Q CHARACTER 451Q NC.AttachPromptWindow 440Q NC.AskYesOrNo 431Q NC.AttachPromptWindow 414Q CONCAT 410Q CHARACTER 376Q CHARACTER 362Q DISMISS 353Q NC.PrintMsg 347Q CHARACTER 334Q NC.AttachPromptWindow 323Q NC.PrintMsg 317Q CHARACTER 304Q NC.AttachPromptWindow 273Q NC.AskYesOrNo 264Q NC.AttachPromptWindow 247Q CONCAT 243Q CHARACTER 231Q CHARACTER 213Q NC.PrintMsg 207Q CHARACTER 176Q CHARACTER 163Q NC.AttachPromptWindow 152Q NC.ClearMsg 144Q DISMISS 135Q NC.PrintMsg 132Q CHARACTER 115Q NC.NoteFileOpenP 105Q FILDIR-EARLIEST 100Q FULLNAME 73Q FILENAMEFIELD 56Q FILENAMEFIELD 42Q NC.DatabaseFileName) (540Q NC.DatabaseFileNameSuggestion 515Q NoteFileDevice 511Q NC.DeviceVectorsHashArray 506Q LOCALSINGLEUSER 502Q REMOTEMULTIUSER 141Q NC.MsgDelay 70Q VERSION 61Q DSK 53Q HOST 12Q NoteFile 5 NoteFileTYPE#) ( 457Q " not deleted." 424Q "No" 420Q " -- " 403Q "?" 371Q "Are you still sure you want to delete " 341Q "Deleting" 312Q " not deleted." 257Q "No" 253Q " -- " 236Q "?" 224Q "Are you sure you want to delete " 202Q "Delete cancelled." 171Q " does not exist." 125Q "Can't delete an open notefile." 32Q " -- " 26Q "Name of Notefile to be deleted:") NC.CheckpointNoteFileA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) P ci(3 NC.NoteFileOpenP) NIL () NC.CheckpointNoteFileA0002 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) hoPoQl o  i(32Q NC.ReportError 27Q CONCAT 17Q CHARACTER) NIL ( 23Q "OK to continue Checkpoint. ^ to abort Checkpoint." 11Q "failed because " 4 "OpenP test on ") NC.CheckpointNoteFileA0003A0004 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 InterestedWindow F 3 ReturnValue F 4 OperationMsg F 5 QuietFlg) Q*QRTUlHciNIL (10Q NoteFileDevice 3 NoteFile) () NC.CheckpointNoteFileA0003A0006 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) hoPoQo  i(25Q NC.ReportError 22Q CONCAT) NIL ( 16Q "." 11Q " because " 4 "Checkpoint failed for ") NC.CheckpointNoteFileA0003 D1 (NAME ERRORSET F 0 NoteFile F 1 RESETVARSLST F 2 InterestedWindow F 3 QuietFlg F 4 OperationMsg F 5 ReturnValue F 6 Don'tSaveDirtyCardsFlg F 7 Don'tCheckCardOperationsInProgressFlg F 10Q RESETY F 11Q OpsInProgress F 12Q FullFileName)  gPgPg hPgg hQcgPgPg hPg hQcSgRohhQcWBSRiTol P c&ol ol ogiR dSRioWol VPiRTS oi gc U`SRiTool Poi Uci(403Q NC.CheckpointNoteFileA0003A0006 370Q NC.PrintMsg 364Q CHARACTER 320Q NC.CheckpointNoteFileA0003A0004 307Q NC.SaveDirtyCards 273Q NC.PrintMsg 267Q CHARACTER 241Q NC.AskYesOrNo 224Q CONCAT 221Q CHARACTER 210Q CHARACTER 173Q NC.CardOperationsInProgress 166Q NC.PrintMsg 162Q CHARACTER 101Q NC.NoteFileProp 76Q THIS.PROCESS 62Q NC.NoteFileProp 34Q NC.NoteFileProp 15Q NC.NoteFileProp) (334Q NoteFileTYPE# 324Q CheckpointFailed 233Q Yes 117Q NC.ClearMsg 73Q ProcessInProgress 57Q ProcessInProgress 53Q ProcessInProgress 47Q NC.NoteFileProp 31Q Checkpoint% NoteFile 26Q OperationInProgress 12Q OperationInProgress 6 OperationInProgress 2 NC.NoteFileProp) ( 377Q (NC.CheckpointNoteFileA0003A0006) 357Q " Checkpoint done." 353Q "" 314Q (NC.CheckpointNoteFileA0003A0004) 262Q " ..." 254Q "Checkpointing notefile " 230Q "-->" 214Q "Do you want to terminate them?" 203Q "There are card operations in progress." 155Q "Checking for card operations in progress." 124Q (T)) NC.CheckpointNoteFile D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 ReturnValue P 0 FullFileName I 6 OperationMsg I 5 InterestedWindow I 4 Don'tCheckCardOperationsInProgressFlg I 3 Don'tCheckOperationInProgressFlg I 2 Don'tSaveDirtyCardsFlg I 1 QuietFlg I 0 NoteFile F 5 LISPXHIST F 6 RESETVARSLST) @E@ b oi gYIEiol ` Ei hI`oi IFooHl b @Eo C@g Eg@g U!Vog hg\ LK(265Q ERROR! 260Q RESETRESTORE 246Q NC.CheckpointNoteFileA0003 224Q NC.PrintOperationInProgressMsg 221Q NC.NoteFileProp 204Q PROCESSP 201Q NC.NoteFileProp 165Q NC.CheckForNotReadOnly 152Q CONCAT 147Q CHARACTER 123Q NC.CheckpointNoteFileA0002 102Q NC.ClearMsg 74Q DISMISS 65Q NC.PrintMsg 62Q CHARACTER 36Q NC.CheckpointNoteFileA0001 23Q WFROMMENU) (254Q ERROR 243Q INTERNAL 216Q OperationInProgress 212Q Checkpoint% NoteFile 176Q ProcessInProgress 111Q NoteFileTYPE# 71Q NC.MsgDelay 42Q OpenPFailed 16Q NoteFile 3 NoteFile) ( 240Q (NC.CheckpointNoteFileA0003) 162Q "Can't checkpoint " 141Q "Checkpointing " 135Q "" 117Q (NC.CheckpointNoteFileA0002) 55Q "Can't checkpoint a closed notefile." 32Q (NC.CheckpointNoteFileA0001)) NC.CloseNoteFileA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) P ci(3 NC.NoteFileOpenP) NIL () NC.CloseNoteFileA0002 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) hoPoQl o  i(32Q NC.ReportError 27Q CONCAT 17Q CHARACTER) NIL ( 23Q "OK to continue Close. ^ to abort Close." 11Q "failed because " 4 "OpenP test on ") NC.CloseNoteFileA0003A0006 D1 (P 0 PredicateResult I 1 Key I 0 Value F 1 CollectionList) @kg@Qc@(5 BLOCK) (12Q NC.ActiveCardP) () NC.CloseNoteFileA0003A0007 D1 (NAME ERRORSET L (0 NIL) P 4 Card F 5 RESETVARSLST F 6 InterestedWindow F 7 QuietFlg F 10Q ActiveCards F 11Q RESETY F 12Q NoteFile) xgd g Uc gd g Uc gd g Uc WVW W AHIVW ci\ LJ KhZHXK&(141Q NC.ActiveCardP 130Q NC.CloseListOfActiveCards 111Q NC.FetchSpecialCards 103Q NC.CloseListOfActiveCards 65Q SETTOPVAL 56Q GETTOPVAL 41Q SETTOPVAL 32Q GETTOPVAL 15Q SETTOPVAL 6 GETTOPVAL) (62Q NC.ForceTitlesFlg 52Q NC.ForceTitlesFlg 36Q NC.ForceFilingFlg 26Q NC.ForceFilingFlg 12Q NC.ForceSourcesFlg 2 NC.ForceSourcesFlg) () NC.CloseNoteFileA0003A0008 D1 (NAME ERRORSET F 0 NoteFile F 1 QuietFlg F 2 ReturnValue F 3 InterestedWindow F 4 OperationMsg) PQiddST ch(12Q NC.CheckpointNoteFile) NIL () NC.CloseNoteFileA0003A0009 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) "hoPoQol o  i(36Q NC.ReportError 33Q CONCAT 23Q CHARACTER) NIL ( 27Q "OK to continue Close. ^ to abort Close." 16Q "." 11Q " failed because " 4 "Checkpoint of NoteFile ") NC.CloseNoteFileA0003A0010 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 InterestedWindow F 3 ReturnValue) Q* QRlHchNIL (10Q NoteFileDevice 3 NoteFile) () NC.CloseNoteFileA0003A0012 D1 (NAME ERRORSET F 0 FullFileName) hoPol o  i(31Q NC.ReportError 26Q CONCAT 16Q CHARACTER) NIL ( 22Q "OK to continue Close. ^ to abort Close." 11Q " is not open." 4 "NoteFile") NC.CloseNoteFileA0003A0013 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) hoPoQol  i(32Q NC.ReportError 27Q CONCAT 23Q CHARACTER) NIL ( 16Q "." 11Q " failed because " 4 "Close of NoteFile ") NC.CloseNoteFileA0003 D1 (NAME ERRORSET L (0 NIL) P 12Q RESETZ P 11Q RESETY P 10Q LISPXHIST P 7 CollectionList P 6 Function P 4 \NF P 3 Card P 1 Window F 15Q NoteFile F 16Q InterestedWindow F 17Q ReturnValue F 20Q RESETVARSLST F 21Q QuietFlg F 22Q FullFileName F 23Q OperationMsg F 24Q RESETY F 25Q ActiveCards F 26Q LISPXHIST) Z gWgWg hWgg hW c gWgWg hWg hW c gWohhW c W" W"WiW&ool Wi ghW W"1H3hoW$ol o oghW \hmhI Ig Ig [/WKLd`KL ZJ IiHXy`M h*h^dgWglNgNiM]W"WiW&ool Wg Oc*IW"Wio W,! W og hg_ OW"%Whol W"Wiol oi gcW`oi W,oi gcW`&Wgoi Woi W`MWglNgW W"WiW$o gWh Wd OdOdW$W OdOW* OdO*dh(dh&dh$dh"dh dhdhdhdhdhdhdhdjdj djdj djdhhWc(iM](1251Q ADD.PROCESS 1230Q NC.PrintMsg 1210Q NC.ResetNoteFileInterface 1134Q NC.CloseNoteFileA0003A0013 1115Q NC.CloseNoteFileA0003A0012 1055Q NC.CloseNoteFileA0003A0010 1037Q NC.CloseNoteFileA0003A0009 1007Q NC.CloseNoteFileA0003A0008 776Q NC.PrintMsg 773Q CHARACTER 753Q NC.PrintMsg 750Q CHARACTER 726Q ERROR! 717Q RESETRESTORE 704Q NC.CloseNoteFileA0003A0007 662Q NC.PrintMsg 635Q MAPHASH 614Q NC.PrintMsg 610Q CHARACTER 455Q NC.SameNoteFileP 444Q NC.NoteFileFromNoteFileUID 404Q NC.CardFromWindow 401Q GETWINDOWUSERPROP 370Q WINDOWP 365Q GETWINDOWUSERPROP 354Q NC.CardFromWindow 336Q NC.AskYesOrNo 320Q CONCAT 310Q CHARACTER 254Q OPENWINDOWS 242Q NC.ClearMsg 224Q NC.CardOperationsInProgress 215Q NC.PrintMsg 211Q CHARACTER 160Q DEL.PROCESS 110Q NC.NoteFileProp 105Q THIS.PROCESS 70Q NC.NoteFileProp 37Q NC.NoteFileProp 17Q NC.NoteFileProp) (1337Q NoteFile 1314Q NoteFile 1273Q NoteFile 1260Q NoteFile 1241Q NoteFile 1234Q NC.CleanupCardObjects 1175Q DON'T 1165Q AFTER 1145Q NC.CloseNoteFileFns 1103Q NoteFileNotOpen 1073Q NoteFileTYPE# 1062Q CloseFailed 1025Q NoteFileTYPE# 1014Q CheckpointFailed 712Q ERROR 701Q INTERNAL 632Q NC.CloseNoteFileA0003A0006 625Q NoteFile 543Q DON'T 533Q BEFORE 522Q DON'T 475Q NC.CloseNoteFileFns 440Q CardObject 430Q NoteFileTYPE# 415Q CardObject 376Q ICONFOR 362Q ICONFOR 327Q Yes 227Q ABORT 153Q NoteFile 124Q NC.ClearMsg 102Q ProcessInProgress 65Q ProcessInProgress 60Q ProcessInProgress 53Q NC.NoteFileProp 34Q Close% NoteFile 31Q OperationInProgress 14Q OperationInProgress 7 OperationInProgress 2 NC.NoteFileProp) ( 1225Q " closed." 1130Q (NC.CloseNoteFileA0003A0013) 1111Q (NC.CloseNoteFileA0003A0012) 1051Q (NC.CloseNoteFileA0003A0010) 1033Q (NC.CloseNoteFileA0003A0009) 1003Q (NC.CloseNoteFileA0003A0008) 766Q "Closing Notefile ... " 743Q "Done." 676Q (NC.CloseNoteFileA0003A0007) 657Q "Closing and saving active cards ... " 603Q "Checking for active cards ..." 577Q "" 324Q " -- " 314Q "Want to close and save them? " 303Q "." 275Q "There are still cards on the screen from this NoteFile " 204Q "Checking for card operations in progress ..." 200Q "" 132Q (T)) NC.CloseNoteFile D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 ReturnValue P 3 ActiveCards P 2 CardTotal P 1 OperationMsg P 0 FullFileName I 3 QuietFlg I 2 Don'tCheckOperationInProgressFlg I 1 InterestedWindow I 0 NoteFile F 10Q LISPXHIST F 11Q RESETVARSLST) @ @A @o2A@`@ boi g\LAiol ` Ai hL`oi LB@g Ag@g hW!Wog hg_ ON(265Q ERROR! 257Q RESETRESTORE 244Q NC.CloseNoteFileA0003 221Q NC.PrintOperationInProgressMsg 216Q NC.NoteFileProp 202Q PROCESSP 177Q NC.NoteFileProp 162Q NC.CloseNoteFileA0002 141Q NC.ClearMsg 133Q DISMISS 124Q NC.PrintMsg 121Q CHARACTER 75Q NC.CloseNoteFileA0001 62Q WFROMMENU 15Q ALLOW.BUTTON.EVENTS 11Q NC.AbortSession 3 NC.ReadOnlyNoteFileP) (252Q ERROR 241Q INTERNAL 213Q OperationInProgress 207Q Close% NoteFile 174Q ProcessInProgress 150Q NoteFileTYPE# 130Q NC.MsgDelay 101Q OpenPFailed 55Q NoteFile 47Q MENUTYPE# 41Q NoteFile 21Q NoteFile) ( 236Q (NC.CloseNoteFileA0003) 156Q (NC.CloseNoteFileA0002) 114Q "Can't close a closed notefile." 71Q (NC.CloseNoteFileA0001) 27Q "") NC.AbortSessionA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) P ci(3 NC.NoteFileOpenP) NIL () NC.AbortSessionA0002 D1 (NAME ERRORSET F 0 FullFileName F 1 ReturnValue) hoPoQl o  i(32Q NC.ReportError 27Q CONCAT 17Q CHARACTER) NIL ( 23Q "OK to continue Abort. ^ to abort Abort." 11Q "failed because " 4 "OpenP test on ") NC.AbortSessionA0003 D1 (P 3 Process P 1 Win P 0 Card I 1 Key I 0 Value F 4 CardNumber F 5 QuietFlg F 6 InterestedWindow F 7 CardTotal) v@!TkcU9dldZjJ,J &Viol oToWol H H YHU Id .KI  (161Q BLOCK 154Q PROCESS.FINISHEDP 150Q CLOSEW 133Q \INSUREWINDOW 125Q NC.AbortCard 117Q NC.FetchWindow 111Q NC.ActiveCardP 104Q NC.PrintMsg 100Q CHARACTER 54Q CHARACTER 37Q \FZEROP 2 BLOCK) NIL ( 73Q "." 65Q " out of " 60Q "Processing item number " 47Q "Quitting from active cards ... ") NC.AbortSession D1 (P 10Q CardTotal P 7 CardNumber P 6 ReturnValue P 5 NewBytes P 4 CardTotal P 3 EndPtr P 2 LastChkptPtr P 1 FullFileName P 0 Stream I 3 QuietFlg I 2 Don'tConfirmFlg I 1 InterestedWindow I 0 NoteFile)  @@@CA@ boi g^NAiol ` Ai hN`oi NH [dJ]dj8dd .B+ol oMoI ooiAhi Yj@@g KJ3CAioIo HgJ AhoIol @ @ Ai h(402Q NC.ClearMsg 374Q NC.ForceDatabaseClose 367Q NC.ResetNoteFileInterface 362Q NC.PrintMsg 356Q CHARACTER 334Q SETFILEINFO 323Q NC.PrintMsg 274Q MAPHASH 244Q NC.AskYesOrNo 224Q CONCAT 206Q CHARACTER 170Q \FZEROP 146Q GETEOFPTR 137Q NC.AbortSessionA0002 116Q NC.ClearMsg 110Q DISMISS 101Q NC.PrintMsg 76Q CHARACTER 52Q NC.AbortSessionA0001 37Q WFROMMENU) (330Q LENGTH 271Q NC.AbortSessionA0003 264Q NoteFile 253Q NoteFile 125Q NoteFileTYPE# 105Q NC.MsgDelay 56Q OpenPFailed 32Q NoteFile 17Q NoteFile 11Q NoteFile 3 NoteFile) ( 351Q "." 344Q "Couldn't truncate " 317Q " ..." 312Q "Truncating file " 234Q "Yes" 230Q "--" 217Q " bytes) of " 212Q "the last checkpoint (" 201Q "Do you wish to lose all changes since" 133Q (NC.AbortSessionA0002) 71Q "Can't abort a closed notefile." 46Q (NC.AbortSessionA0001)) (PRETTYCOMPRINT PMIPATCH014COMS) (RPAQQ PMIPATCH014COMS ((* * pmi 12/19/86 Fixes bug #329: Inspect & Repair and Compact should not be accessible for open notefiles. Also cleaned up prompts when attempting to do functions that shouldn't be done on open (closed) notefiles.) (* * Changes to NCINTERFACE) (FNS NC.MakeMainMenu) (* * Changes to NCDATABASE) (FNS NC.CompactNoteFile NC.CopyNoteFile NC.InspectAndRepairNoteFile NC.RenameNoteFile NC.DeleteDatabaseFile NC.CheckpointNoteFile NC.CloseNoteFile NC.AbortSession))) (PUTPROPS PMIPATCH014 COPYRIGHT ("Xerox Corporation" 1986)) NIL