(FILECREATED " 1-Jul-87 10:26:53" ("compiled on " {QV}1.3K>NEXT>RHTPATCH282.;1) "12-Nov-85 14:59:23" tcompl'd in "LOOPS/KOTO 21-May-87 ..." dated "21-May-87 18:50:08") (FILECREATED " 1-Jul-87 10:26:35" {QV}1.3K>NEXT>RHTPATCH282.;1 11107 changes to: (VARS RHTPATCH282COMS) (FNS NC.PutLinks NC.PutPropList NC.PutTitle)) NC.PutLinksA0001A0004 D1 (NAME ERRORSET P 4 EndLoc P 3 StartLoc P 2 Stream P 0 \NF F 5 Card F 6 OverrideStream F 7 RESETVARSLST F 10Q RESETY F 11Q UseOldDateFlg F 12Q PutSuccessfulLoc)  gUÉHd`ð®´UH Y¿IÉ*ÉUoUÉHd`ð®´UH Y¿IÉ*ÉUgglIhWc¿V µU !J »U`W”U †U J ¿JU ¿JU ¿JU ¿J ¼JK ¿JLKÕl lÿå!¿JLKÕl lÿå!¿JLKÕlÿå!¿JL ¿V¦U ¿V‘h€Kc¿Uci(372Q NC.SetLinksDirtyFlg 363Q SETFILEPTR 340Q RSH 322Q RSH 310Q SETFILEPTR 302Q GETFILEPTR 275Q NC.WriteListOfLinks 272Q NC.FetchGlobalLinks 264Q NC.WriteListOfLinks 261Q NC.FetchFromLinks 253Q NC.WriteListOfLinks 250Q NC.FetchToLinks 242Q NC.WriteCardPartHeader 236Q NC.SetLinksDate 233Q DATE 226Q NC.FetchLinksDate 212Q GETFILEPTR 203Q NC.CoerceToNoteFileStream 175Q STREAMP 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (217Q NC.LinksIdentifier 152Q BEFORE 147Q LINKS 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 62Q (LINKS AFTER)) NC.PutLinksA0001 D1 (NAME ERRORSET P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 0 \NF F 5 Card F 6 LISPXHIST F 7 RESETVARSLST F 10Q RESETY) RUÉHd`ð®´UH Y¿I hi ¿V!Wog ‘h‚g\ ¿L“€Kci(111Q ERROR! 103Q RESETRESTORE 71Q NC.PutLinksA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.PutLinksA0001A0004)) NC.PutLinks D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 PutSuccessfulLoc I 2 OverrideStream I 1 UseOldDateFlg I 0 Card F 4 LISPXHIST F 5 RESETVARSLST) D@Égð³o@ o ¿T!Uog ‘h‚g[ K“J(77Q ERROR! 72Q RESETRESTORE 60Q NC.PutLinksA0001 35Q NC.ReportError 32Q CONCAT 23Q NC.FetchTitle) (66Q ERROR 55Q INTERNAL 10Q ACTIVE 3 CardObject) ( 52Q (NC.PutLinksA0001) 27Q " is not an active note card." 17Q "NC.PutLinks") NC.PutPropListA0001A0004 D1 (NAME ERRORSET P 4 EndLoc P 3 StartLoc P 2 Stream P 0 \NF F 5 Card F 6 OverrideStream F 7 RESETVARSLST F 10Q RESETY F 11Q UseOldDateFlg F 12Q PutSuccessfulLoc) ùgUÉHd`ð®´UH Y¿IÉ*ÉUoUÉHd`ð®´UH Y¿IÉ*ÉUgglIhWc¿V µU !J »U`W”U †U J ¿JU ¿J ¼JK ¿JLKÕl lÿå!¿JLKÕl lÿå!¿JLKÕlÿå!¿JL ¿V¦U ¿V‘h€Kc¿Uci(350Q NC.SetPropListDirtyFlg 341Q SETFILEPTR 316Q RSH 300Q RSH 266Q SETFILEPTR 260Q GETFILEPTR 253Q NC.WritePropList 250Q NC.FetchPropList 242Q NC.WriteCardPartHeader 236Q NC.SetPropListDate 233Q DATE 226Q NC.FetchPropListDate 212Q GETFILEPTR 203Q NC.CoerceToNoteFileStream 175Q STREAMP 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (217Q NC.PropsIdentifier 152Q BEFORE 147Q PROPLIST 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 62Q (PROPLIST AFTER)) NC.PutPropListA0001 D1 (NAME ERRORSET P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 0 \NF F 5 Card F 6 LISPXHIST F 7 RESETVARSLST F 10Q RESETY) RUÉHd`ð®´UH Y¿I hi ¿V!Wog ‘h‚g\ ¿L“€Kci(111Q ERROR! 103Q RESETRESTORE 71Q NC.PutPropListA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.PutPropListA0001A0004)) NC.PutPropList D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 PutSuccessfulLoc I 2 OverrideStream I 1 UseOldDateFlg I 0 Card F 4 LISPXHIST F 5 RESETVARSLST) D@Égð³o@ o ¿T!Uog ‘h‚g[ K“J(77Q ERROR! 72Q RESETRESTORE 60Q NC.PutPropListA0001 35Q NC.ReportError 32Q CONCAT 23Q NC.FetchTitle) (66Q ERROR 55Q INTERNAL 10Q ACTIVE 3 CardObject) ( 52Q (NC.PutPropListA0001) 27Q " is not an active note card." 17Q "NC.PutPropList") NC.PutTitleA0001A0004 D1 (NAME ERRORSET P 4 EndLoc P 3 StartLoc P 2 Stream P 0 \NF F 5 Card F 6 OverrideStream F 7 RESETVARSLST F 10Q RESETY F 11Q UseOldDateFlg F 12Q PutSuccessfulLoc) ùgUÉHd`ð®´UH Y¿IÉ*ÉUoUÉHd`ð®´UH Y¿IÉ*ÉUgglIhWc¿V µU !J »U`W”U †U J ¿JU ¿J ¼JK ¿JLKÕl lÿå!¿JLKÕl lÿå!¿JLKÕlÿå!¿JL ¿V¦U ¿V‘h€Kc¿Uci(350Q NC.SetTitleDirtyFlg 341Q SETFILEPTR 316Q RSH 300Q RSH 266Q SETFILEPTR 260Q GETFILEPTR 253Q NC.WriteTitle 250Q NC.FetchTitle 242Q NC.WriteCardPartHeader 236Q NC.SetTitleDate 233Q DATE 226Q NC.FetchTitleDate 212Q GETFILEPTR 203Q NC.CoerceToNoteFileStream 175Q STREAMP 120Q NC.NoteFileFromNoteFileUID 35Q NC.NoteFileFromNoteFileUID) (217Q NC.TitlesIdentifier 152Q BEFORE 147Q TITLE 136Q NoteFileDevice 131Q NoteFile 114Q CardObject 104Q NoteFileTYPE# 71Q CardObject 53Q NoteFileDevice 46Q NoteFile 31Q CardObject 21Q NoteFileTYPE# 6 CardObject 2 APPLY*) ( 62Q (TITLE AFTER)) NC.PutTitleA0001 D1 (NAME ERRORSET P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 0 \NF F 5 Card F 6 LISPXHIST F 7 RESETVARSLST F 10Q RESETY) RUÉHd`ð®´UH Y¿I hi ¿V!Wog ‘h‚g\ ¿L“€Kci(111Q ERROR! 103Q RESETRESTORE 71Q NC.PutTitleA0001A0004 50Q OBTAIN.MONITORLOCK 43Q NC.FetchMonitor 32Q NC.NoteFileFromNoteFileUID) (77Q ERROR 66Q INTERNAL 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 63Q (NC.PutTitleA0001A0004)) NC.PutTitle D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 PutSuccessfulLoc I 2 OverrideStream I 1 UseOldDateFlg I 0 Card F 4 LISPXHIST F 5 RESETVARSLST) D@Égð³o@ o ¿T!Uog ‘h‚g[ K“J(77Q ERROR! 72Q RESETRESTORE 60Q NC.PutTitleA0001 35Q NC.ReportError 32Q CONCAT 23Q NC.FetchTitle) (66Q ERROR 55Q INTERNAL 10Q ACTIVE 3 CardObject) ( 52Q (NC.PutTitleA0001) 27Q " is not an active note card." 17Q "NC.PutTitle") (PRETTYCOMPRINT RHTPATCH282COMS) (RPAQQ RHTPATCH282COMS ((* * Fixes bug reported by Peggy whereby copying a new card caused it to be trashed.) (* * Changes to NCDATABASE) (FNS NC.PutLinks NC.PutPropList NC.PutTitle))) (PUTPROPS RHTPATCH282 COPYRIGHT ("Xerox Corporation" 1987)) NIL