(FILECREATED "15-Jan-88 11:09:48" ("compiled on " {QV}<NOTECARDS>1.3KNEXT>PMIPATCH077.;1) 
"12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D  8-Sep-87 ..." dated " 8-Sep-87 19:13:09")
(FILECREATED "15-Jan-88 11:09:33" {QV}<NOTECARDS>1.3KNEXT>PMIPATCH077.;1 1593 changes to: (VARS 
PMIPATCH077COMS))
NCP.CoerceToInterestedWindow D1
(I 0 WinOrCardOrNoteFile) @	(3 NC.CoerceToInterestedWindow)
NIL
()
NCP.NewCardP D1
(I 0 Card) @	(3 NC.FetchNewCardFlg)
NIL
()
NCP.NoteFileAddProp D1
(I 2 NEWVALUE I 1 PROP I 0 NoteFile) @AB(5 NC.NoteFileAddProp)
NIL
()
(PRETTYCOMPRINT PMIPATCH077COMS)
(RPAQQ PMIPATCH077COMS ((* * pmi 1/15/88: A few programmer's interface functions that I needed for 
History card hacking, and thought would be of general interest:) (* * New for NCPROGINT) (FNS 
NCP.CoerceToInterestedWindow NCP.NewCardP NCP.NoteFileAddProp)))
(PUTPROPS PMIPATCH077 COPYRIGHT ("Xerox Corporation" 1988))
NIL