(FILECREATED "13-Mar-87 18:21:33" ("compiled on " {QV}1.3K>NEXT>RGPATCH019.;2) "12-Nov-85 14:59:23" recompiled exprs: NC.CreateNoteFile in "LOOPS/KOTO 15-Jan-87 ..." dated "15-Jan-87 19:49:03") (FILECREATED "13-Mar-87 18:21:15" {QV}1.3K>NEXT>RGPATCH019.;2 19739 changes to: (VARS RGPATCH019COMS) (FNS NC.OpenNoteFile) previous date: "13-Mar-87 18:10:04" {QV}1.3K>NEXT>RGPATCH019.;1) NC.OpenNoteFileA0003A0004 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 InterestedWindow F 3 Don'tCheckForTruncationFlg F 4 ReturnValue) Q*QRSlHciNIL (10Q NoteFileDevice 3 NoteFile) () NC.OpenNoteFileA0003A0006 D1 (NAME ERRORSET F 0 NoteFile) hPo h(20Q NC.ReportError 15Q CONCAT) (4 NoteFile) ( 12Q " is already open for exclusive access. Open failed.") NC.OpenNoteFileA0003A0007 D1 (NAME ERRORSET F 0 NoteFile) hoPo h(24Q NC.ReportError 21Q CONCAT) (10Q NoteFile) ( 16Q " failed for unknown reason." 4 "Open of ") NC.OpenNoteFileA0003A0008 D1 (NAME ERRORSET F 0 NoteFile) hoPo h(24Q NC.ReportError 21Q CONCAT) (10Q NoteFile) ( 16Q " is bad. Contact a NoteCards wizard." 4 "Header of NoteFile ") NC.OpenNoteFileA0003A0009 D1 (NAME ERRORSET F 0 ReturnValue F 1 FileName) hoPoQ h(20Q NC.ReportError 15Q CONCAT) NIL ( 11Q ") returned by OpenNoteFileFn for NoteFile " 4 "Unknown error code (") NC.OpenNoteFileA0003A0010 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 QuietFlg F 3 InterestedWindow F 4 ReturnValue) .Q*QRSoQl lHci(42Q CONCAT 37Q CHARACTER) (30Q NoteFile 10Q NoteFileDevice 3 NoteFile) ( 24Q "Opening NoteFile ") NC.OpenNoteFileA0003A0012 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) hoPoQ i(25Q NC.ReportError 22Q CONCAT) (10Q NoteFile) ( 16Q " because " 4 "Build Hash Array failed for NoteFile ") NC.OpenNoteFileA0003 D1 (NAME ERRORSET P 3 NF P 2 Function P 0 OpInProgress F 4 NoteFile F 5 InterestedWindow F 6 ReturnValue F 7 FileName F 10Q QuietFlg F 11Q RESETVARSLST F 12Q Don'tCreateInterfaceFlg F 13Q MenuPosition F 14Q PublicOrPrivate F 15Q CriticalUIDs F 16Q NoteFilesHashArray F 17Q Don'tCacheTypesAndTitlesFlg F 20Q Don'tCreateArrayFlg F 21Q Don'tGetSpecialCardsFlg F 22Q Can'tTruncateFlg F 23Q ReadOnlyFlg F 24Q ConvertNoConfirmFlg F 25Q Don'tCheckForTruncationFlg F 26Q Don'tCreateFlg F 27Q RESETY) ` T HfgTgTg hTgo hWcgTgTg hTg` hWco``hWc` HHgUTT c TW T WTWU hWUioWol `I0hQU XUhoWol Ui h8ZdgWTglJgJiIYoi gc VloVchc W`[GTK6K .` `ioWl oKol o TUi hVdg&TWWW,W(W W$WW"UWWWW&W* dg%TWWW,W(W W$WW"UWWWW&W* ddg%TWWW,W(W W$WW"UWWWW&W* :dgoi )dgoi goi oi Vc d`ɿU UhoWol Ui VTWTW` W =WUioWl ol oi V`oi hKTW W"TWUoTl WTgTh "WTWU Tc `g`IWTglJg+W#UioWl ol Ui TIYU T oH gc.i(1650Q NC.PrintOperationInProgressMsg 1640Q WFROMMENU 1613Q NC.ClearMsg 1605Q NC.PrintMsg 1601Q CHARACTER 1570Q CHARACTER 1471Q NC.SetUpNoteFileInterface 1454Q ADD.PROCESS 1431Q NC.GetSpecialCards 1426Q CONCAT 1423Q CHARACTER 1373Q NC.InstallCriticalUIDsInNoteFile 1361Q NC.OpenNoteFileA0003A0012 1341Q NC.OpenNoteFileA0003A0010 1330Q NC.PrintMsg 1324Q CHARACTER 1313Q CHARACTER 1265Q NC.StoreNoteFileInHashArray 1232Q NC.ClearMsg 1224Q NC.PrintMsg 1220Q CHARACTER 1175Q WINDOWP 1151Q NC.OpenNoteFileA0003A0009 1140Q NC.OpenNoteFileA0003A0008 1121Q NC.OpenNoteFileA0003A0007 1100Q NC.OpenNoteFileA0003A0006 1057Q NC.ProcessNoteFileNeedsTruncationError 1005Q NC.ProcessNoteFileNeedsConversionError 732Q NC.ProcessNoteFileNotFoundError 654Q NC.CloseNoteFile 645Q NC.PrintMsg 635Q CHARACTER 612Q CHARACTER 572Q FLASHW 560Q NC.NoteFileOpenP 466Q NC.OpenNoteFileA0003A0004 404Q NC.ClearMsg 376Q NC.PrintMsg 372Q CHARACTER 343Q WINDOWP 320Q NC.PrintMsg 314Q CHARACTER 262Q NC.SetUpNoteFileInterface 247Q NC.NoteFileOpenP 242Q NC.InstallDeviceVectorInNoteFile 231Q WFROMMENU 172Q RELEASE.MONITORLOCK 124Q NC.NoteFileProp 105Q NC.NoteFileProp 56Q NC.NoteFileProp 36Q NC.NoteFileProp 12Q NC.NoteFileCheckOpInProgress 5 OBTAIN.MONITORLOCK) (1654Q DON'T 1633Q NoteFile 1543Q DON'T 1533Q AFTER 1512Q NC.OpenNoteFileFns 1504Q NoteFileTYPE# 1476Q NC.LastNoteFileOpened 1445Q NC.CacheTypesAndTitles 1442Q NoteFile 1414Q NoteFile 1347Q NoteFileTYPE# 1262Q NC.NoteFilesHashArray 1244Q NoteFile 1163Q NoteFileTYPE# 1126Q NoteFileHeaderBad 1106Q NoteFileOpenFailed 1065Q NoteFileAlreadyOpen 1013Q NoteFileNeedsTruncation 741Q NoteFileNeedsConversion 666Q NoteFileNotFound 622Q NoteFile 576Q PROMPTWINDOW 567Q PROMPTWINDOW 545Q NoteFile 537Q NoteFile 525Q NC.NoteFilesHashArray 472Q NoteFileOpenFailed 441Q DON'T 431Q BEFORE 417Q DON'T 324Q NC.OpenNoteFileFns 224Q NoteFile 215Q NoteFile 201Q US 167Q NC.LockLock 153Q NC.NoteFileBusyList 147Q NC.NoteFileBusyList 144Q \RUNNING.PROCESS 121Q \RUNNING.PROCESS 116Q ProcessInProgress 102Q ProcessInProgress 76Q ProcessInProgress 72Q NC.NoteFileProp 47Q OperationInProgress 33Q OperationInProgress 27Q OperationInProgress 23Q NC.NoteFileProp 2 NC.LockLock) ( 1644Q "Open NoteFile" 1574Q "Done." 1561Q "Opening NoteFile: " 1410Q "Opening NoteFile: " 1355Q (NC.OpenNoteFileA0003A0012) 1335Q (NC.OpenNoteFileA0003A0010) 1317Q "Building index array ..." 1304Q "Opening NoteFile: " 1213Q "." 1205Q "Open canceled for NoteFile " 1145Q (NC.OpenNoteFileA0003A0009) 1134Q (NC.OpenNoteFileA0003A0008) 1115Q (NC.OpenNoteFileA0003A0007) 1074Q (NC.OpenNoteFileA0003A0006) 641Q "and has the same UID." 630Q " is already open " 616Q "because " 603Q "Couldn't open " 462Q (NC.OpenNoteFileA0003A0004) 365Q "." 357Q "Open canceled for NoteFile " 307Q " ..." 301Q "Opening NoteFile: " 141Q (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList)) 53Q "Open NoteFile") NC.OpenNoteFile D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 3 CriticalUIDs P 2 ReturnValue P 1 FileName P 0 NoteFile I 16Q Don'tCheckForTruncationFlg I 15Q ReadOnlyFlg I 14Q QuietFlg I 13Q MenuPosition I 12Q PublicOrPrivate I 11Q InterestedWindow I 10Q Don'tGetSpecialCardsFlg I 7 Don'tCreateInterfaceFlg I 6 Can'tTruncateFlg I 5 Don'tCreateArrayFlg I 4 ConvertNoConfirmFlg I 3 Don'tCreateFlg I 2 Don'tCacheTypesAndTitlesFlg I 1 NoteFilesHashArray I 0 NoteFileOrFileName F 10Q LISPXHIST F 11Q RESETVARSLST) }P@d`ooihdG Yh@`@I ``dL*XdIHG(W!Wog hg_ ON(170Q ERROR! 162Q RESETRESTORE 147Q NC.OpenNoteFileA0003 66Q NC.NoteFileFromFileName 44Q NC.DatabaseFileName) (155Q ERROR 144Q INTERNAL 122Q NoteFile 113Q NoteFile 77Q NoteFileDeviceTYPE# 73Q NoteFileTYPE# 55Q NoteFileTYPE# 15Q NoteFile 10Q NoteFileTYPE#) ( 141Q (NC.OpenNoteFileA0003) 33Q " -- " 27Q "Name of NoteFile to open:") NC.CreateNoteFileA0003 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 SizeInCards F 3 QuietFlg F 4 InterestedWindow F 5 OperationMsg) Q*QRTUSlHhNIL (10Q NoteFileDevice 3 NoteFile) () NC.CreateNoteFileA0005 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 SizeInCards F 3 QuietFlg F 4 InterestedWindow F 5 OperationMsg) Q* QRTUSlHhNIL (10Q NoteFileDevice 3 NoteFile) () NC.CreateNoteFile D1 (P 2 ReturnValue P 1 NoteFileName P 0 NoteFile I 6 PublicOrPrivate I 5 QuietFlg I 4 OperationMsg I 3 InterestedWindow I 2 Don'tCreateSpecialCards I 1 SizeInCards I 0 NoteFileOrFileName) @d`ooidhC Ydg@`@I ``dK*XdHg HIHh(Hl HF ECiDooIo oi Z` BHk H HEiCD oi Z`EChol Ci HddLHdMHdNH*_dO*dh(dh&dh$dh"dh dhdhdhdhdhdhdhdjdj djdj djdhhH` ghgH HooJ JooJo J(702Q NC.ReportError 677Q CONCAT 655Q NC.ReportError 652Q CONCAT 631Q PACKFILENAME 611Q NC.StoreNoteFileInHashArray 353Q NC.ClearMsg 345Q NC.PrintMsg 342Q CHARACTER 311Q NC.CreateNoteFileA0005 301Q NC.CheckpointNoteFile 267Q NC.InitializeSpecialCards 236Q NC.CreateNoteFileA0003 225Q NC.PrintMsg 174Q NC.InstallDeviceVectorInNoteFile 165Q NC.CreateUIDHashArray 134Q CREATE.MONITORLOCK 120Q NC.MakeUID 70Q NC.NoteFileFromFileName 43Q NC.DatabaseFileName) (634Q NC.DatabaseFileNameSuggestion 624Q NoteFile 620Q BODY 614Q VERSION 606Q NC.NoteFilesHashArray 430Q NoteFile 414Q NoteFile 400Q NoteFile 370Q NoteFile 361Q NoteFile 317Q NoteFileTYPE# 257Q NoteFile 244Q NoteFileTYPE# 160Q NoteFile 151Q NoteFile 142Q NoteFile 131Q Creating% NoteFile 126Q NoteFile 115Q NoteFile 101Q NoteFileDeviceTYPE# 75Q NoteFileTYPE# 57Q NoteFileTYPE# 51Q CreateCancelled 15Q NoteFile 10Q NoteFileTYPE#) ( 674Q " error." 667Q "Could not create NoteFile due to " 663Q "NC.CreateNoteFile" 646Q "Could not close nortefile after it was created because: " 642Q "NC.CreateNoteFile" 335Q "Done!" 305Q (NC.CreateNoteFileA0005) 232Q (NC.CreateNoteFileA0003) 221Q ". Please wait... " 214Q "Creating NoteFile " 210Q "" 33Q " -- " 27Q "What is the name of the file to be created?") (PRETTYCOMPRINT RGPATCH019COMS) (RPAQQ RGPATCH019COMS ((* * rg 3/13/87 fixed bug introduced into NC.OpenNoteFile) (* * changes to NCDATABASE) (FNS NC.OpenNoteFile NC.CreateNoteFile))) (PUTPROPS RGPATCH019 COPYRIGHT ("Xerox Corporation" 1987)) NIL