(FILECREATED " 8-Aug-86 16:22:45" ("compiled on " {ROSEBOWL}LISP>NCSERVER>NCMULTIREMOTE.;10) "12-Nov-85 14:59:23" recompiled changes: NCMultiRemote.DeleteNoteFile in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 8-Aug-86 16:21:12" {ROSEBOWL}LISP>NCSERVER>NCMULTIREMOTE.;10 18718 changes to: (FNS NCMultiRemote.DeleteNoteFile) previous date: " 6-Aug-86 13:45:54" {ROSEBOWL}LISP>NCSERVER>NCMULTIREMOTE.;9) NCMultiRemote.BuildHashArray D1 (P 5 UID P 4 CardCount P 1 CardTotal P 0 UIDS I 1 PromptWindow I 0 NoteFile) Í@É !H Y@H oÖjØ HkKµ@½A²/Lld kð²%Aiol oLoIol ¿`Zd@¿JM¿Jg@ÉMg ¿JmÿÌ¿JmÿÌ ¿JmÿÌ ¿JmÿÌ¿JmÿÌ¿@ ¿K»LkÔ¼±ÿa(300Q NC.InstallCardInNoteFile 212Q NCCLIENT.GETCARDINFO 140Q NC.PrintMsg 134Q CHARACTER 111Q CHARACTER 72Q IMOD 42Q NC.CreateUIDHashArray 30Q LENGTH 17Q LENGTH 10Q NCCLIENT.LISTUIDS) (267Q CardObject 256Q CardObject 245Q CardObject 234Q CardObject 223Q CardObject 207Q STATUS 201Q NoteFile 175Q STATUS 172Q CardObject 162Q CardObject 152Q CardObject 144Q CardObjectTYPE# 24Q NoteFile 3 NoteFile) ( 127Q "." 122Q " of " 115Q "Processing number " 104Q "Building hash array." 34Q 1.5) NCMultiRemote.COLLECTLINKS D1 (P 3 CollectionStream P 2 LinkSpecies P 0 \NF I 1 Stream I 0 Card) ™@ÉHd`ð®´@H Y¿IÉ@ÉgA o1IµAºgg »@ÉHd`ð®´@H \¿LÉ@ÉJK ¿Kj ¿@`K ¿KA ¿IY°¥(221Q COPYBYTES 213Q NC.ReadCardPartHeader 202Q SETFILEPTR 174Q NCCLIENT.GETCARDPART 146Q NC.NoteFileFromNoteFileUID 112Q OPENSTREAM 62Q NCCLIENT.GETCARDPART 32Q NC.NoteFileFromNoteFileUID) (207Q NC.LinksIdentifier 165Q CardObject 157Q NoteFile 142Q CardObject 132Q NoteFileTYPE# 117Q CardObject 107Q BOTH 104Q {NODIRCORE} 56Q TOLINKS 51Q CardObject 43Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 66Q (FROMLINKS GLOBALTOLINKS)) NCMultiRemote.CancelCacheSubscription D1 (P 0 \NF I 1 CardPartName I 0 Card) 2@ÉHd`ð®´@H Y¿IÉ@ÉA (57Q NCCLIENT.CANCELCARDPARTSUBSCRIPTION 32Q NC.NoteFileFromNoteFileUID) (51Q CardObject 43Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NCMultiRemote.CheckpointNoteFile D1 (L (0 NoteFile)) @NIL NIL () NCMultiRemote.CloseNoteFileA0001 D1 (NAME ERRORSET F 0 NoteFile) P h(3 NCCLIENT.CANCELNOTEFILESUBSCRIPTION) NIL () NCMultiRemote.CloseNoteFile D1 (I 0 NoteFile) oi ‘@g(7 NCMultiRemote.CloseNoteFileA0001) (16Q NotClosed) ( 3 (NCMultiRemote.CloseNoteFileA0001)) NCMultiRemote.CompactNoteFile D1 (I 2 ARG3 I 1 ARG2 I 0 ARG1) og (11Q ERROR) (6 NCMultiRemote.CompactNoteFile) ( 3 "Not implemented yet: ") NCMultiRemote.ConvertNoteFileFormat D1 (I 2 ARG3 I 1 ARG2 I 0 ARG1) og (11Q ERROR) (6 NCMultiRemote.ConvertNoteFileFormat) ( 3 "Not implemented yet: ") NCMultiRemote.CreateNoteFile D1 (I 2 ARG3 I 1 ARG2 I 0 ARG1) og (11Q ERROR) (6 NCMultiRemote.CreateNoteFile) ( 3 "Not implemented yet: ") NCMultiRemote.DeleteNoteFile D1 (I 0 NOTEFILENAME) @ (3 NCCLIENT.DELETENOTEFILE) NIL () NCMultiRemote.GetCardInfo D1 (P 0 \NF I 1 Aspects I 0 Card) 2@ÉHd`ð®´@H Y¿IÉ@ÉA (57Q NCCLIENT.GETCARDINFO 32Q NC.NoteFileFromNoteFileUID) (51Q CardObject 43Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NCMultiRemote.GetCardPart D1 (P 4 \NF P 0 STREAM I 2 WhenFlg I 1 CardPartName I 0 Card) áBgð´‚±×gg 1Agð®Agð¨Adgð²6¿@ÉLd`ð®´@L Y¿IÉ@ÉAH °Tgð²7@ÉLd`ð®´@L Z¿JÉ@ÉgH °Agð•@H ŠoA ¿Hj @ÉLd`ð®´@L [¿KHH(321Q NC.NoteFileFromNoteFileUID 266Q SETFILEPTR 260Q SHOULDNT 255Q CONCAT 244Q NCMultiRemote.COLLECTLINKS 227Q NCCLIENT.GETCARDPART 177Q NC.NoteFileFromNoteFileUID 134Q NCCLIENT.GETCARDPART 106Q NC.NoteFileFromNoteFileUID 23Q OPENSTREAM) (332Q NoteFile 315Q CardObject 305Q NoteFileTYPE# 272Q CardObject 235Q LINKS 223Q SUBSTANCE 216Q CardObject 210Q NoteFile 173Q CardObject 163Q NoteFileTYPE# 150Q CardObject 141Q TYPE 125Q CardObject 117Q NoteFile 102Q CardObject 72Q NoteFileTYPE# 57Q CardObject 47Q PROPLIST 40Q SUBSTANCE 32Q TITLE 20Q BOTH 15Q {NODIRCORE} 3 BEFORE) ( 251Q "Unrecognized card part: ") NCMultiRemote.ListNoteFiles D1 (I 2 ARG3 I 1 ARG2 I 0 ARG1) og (11Q ERROR) (6 NCMultiRemote.ListNoteFiles) ( 3 "Not implemented yet: ") NCMultiRemote.MarkCardDeleted D1 (P 0 \NF I 0 Card) 8@ÉHd`ð®´@H Y¿IÉ@É @g (65Q NC.SetStatus 56Q NCCLIENT.DELETECARD 32Q NC.NoteFileFromNoteFileUID) (62Q DELETED 51Q CardObject 43Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NCMultiRemote.NewCardUID D1 (P 3 CardPart P 2 UID P 0 \NF I 1 Type I 0 Card) r@ÉHd`ð®´@H Y¿IÉA Jd`ð²<¿@J¿@mÿ ¿@mÿ ¿@mÿ ¿@mÿ ¿o‹d@K µó@(151Q NC.SetWriteLock 131Q NC.SetPropListLoc 122Q NC.SetMainLoc 113Q NC.SetTitleLoc 104Q NC.SetLinksLoc 51Q NCCLIENT.CREATECARD 32Q NC.NoteFileFromNoteFileUID) (72Q CardObject 62Q UIDTYPE# 43Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) ( 136Q (SUBSTANCE TOLINKS FROMLINKS TITLE PROPLIST GLOBALTOLINKS)) NCMultiRemote.NoteFileOpenP D1 (P 1 Address I 0 NoteFile) 2o @É Hµh´@Y` •Iµñi°îHX°å(44Q NCCLIENT.NSEQUAL 17Q NCCLIENT.LISTCLIENTS 6 DECLARE:) (41Q \MY.NSADDRESS 12Q NoteFile) ( 3 ((GLOBALVARS \MY.NSADDRESS))) NCMultiRemote.ObtainWritePermission D1 (P 0 \NF I 1 CardPartName I 0 Card) F@A –@A i@ÉHd`ð®´@H Y¿IÉ@ÉA ´@A (103Q NC.SetWriteLock 74Q NCCLIENT.OBTAINWRITELOCK 47Q NC.NoteFileFromNoteFileUID 12Q NC.SetWriteLock 4 NC.OwnWriteLockP) (66Q CardObject 60Q NoteFile 43Q CardObject 33Q NoteFileTYPE# 20Q CardObject) () NCMultiRemote.OpenNoteFile D1 (P 2 FileName I 0 NoteFile F 5 Don'tGetSpecialCardsFlg) B@@É AHµI@dÉ ic @É Zg ¼K“LKó“L»J¹HX°Ï(60Q FILENAMEFIELD 47Q NCCLIENT.SUBSCRIBETONOTEFILE 36Q NC.SetMonitor 33Q CREATE.MONITORLOCK 11Q NCCLIENT.LISTNOTEFILES) (55Q VERSION 3 NoteFile) () NCMultiRemote.PUTLINKS D1 (P 5 \NF P 4 LinksStream P 3 LinkSpecies P 0 CardPartHeaderStream I 1 SOURCESTREAM I 0 Card) }gg AH o!Jµh»gg ¼Hj ¿HL ¿LA ¿Lj ¿@ÉMd`ð®´@M Y¿IÉ@ÉKL ¿JZ°Ÿ(165Q NCCLIENT.PUTCARDPART 137Q NC.NoteFileFromNoteFileUID 103Q SETFILEPTR 75Q NC.WriteListOfLinks 72Q NC.ReadListOfLinks 64Q COPYBYTES 56Q SETFILEPTR 50Q OPENSTREAM 20Q NCCLIENT.COPYCARDPARTHEADER 10Q OPENSTREAM) (156Q CardObject 150Q NoteFile 133Q CardObject 123Q NoteFileTYPE# 110Q CardObject 45Q BOTH 42Q {NODIRCORE} 5 BOTH 2 {NODIRCORE}) ( 24Q (TOLINKS FROMLINKS GLOBALTOLINKS)) NCMultiRemote.PutCardPart D1 (P 0 \NF I 2 WhenFlg I 1 CardPartName I 0 Card F 3 PutSuccessfulLoc) BBdgð²9¿@ÉHd`ð®´@H Y¿Igg IJJgð¢±ñS´‚±Ý@ÉHd`ð®´@H Y¿IÉj ´‚±­Agð³Agð³Agð®Agð¨Adgð²Z¿@ÉHd`ð®´@H Y¿IÉ@ÉA@ÉHd`ð®´@H Y¿IÉ gð²-@dÉHd`ð®´@H Y¿IÉ oA oB (477Q SHOULDNT 474Q CONCAT 463Q SHOULDNT 460Q CONCAT 447Q NCMultiRemote.PUTLINKS 431Q NC.NoteFileFromNoteFileUID 366Q NCCLIENT.PUTCARDPART 350Q NC.NoteFileFromNoteFileUID 273Q NC.NoteFileFromNoteFileUID 167Q SETFILEPTR 150Q NC.NoteFileFromNoteFileUID 65Q OPENSTREAM 43Q NC.NoteFileFromNoteFileUID) (442Q NoteFile 425Q CardObject 415Q NoteFileTYPE# 402Q CardObject 372Q LINKS 361Q NoteFile 344Q CardObject 334Q NoteFileTYPE# 321Q CardObject 312Q CardObject 304Q NoteFile 267Q CardObject 257Q NoteFileTYPE# 244Q CardObject 234Q REGION 225Q FROMLINKS 217Q PROPLIST 210Q SUBSTANCE 201Q TITLE 161Q NoteFile 144Q CardObject 134Q NoteFileTYPE# 121Q CardObject 101Q AFTER 62Q BOTH 57Q {NODIRCORE} 54Q NoteFile 37Q CardObject 27Q NoteFileTYPE# 14Q CardObject 4 BEFORE) ( 470Q "Don't understand WhenFlg argument: " 454Q "Bad card part name: ") NCMultiRemote.ReleaseWritePermission D1 (P 0 \NF I 1 CardPartName I 0 Card) >@A @A µ2@ÉHd`ð®´@H Y¿IÉ@ÉA (73Q NCCLIENT.RELEASEWRITELOCK 46Q NC.NoteFileFromNoteFileUID 11Q NC.OwnWriteLockP 4 NC.UnSetWriteLock) (65Q CardObject 57Q NoteFile 42Q CardObject 32Q NoteFileTYPE# 17Q CardObject) () NCMultiRemote.RepairNoteFile D1 (I 2 ARG3 I 1 ARG2 I 0 ARG1) og (11Q ERROR) (6 NCMultiRemote.RepairNoteFile) ( 3 "Not implemented yet: ") NCMultiRemote.TruncateNoteFile D1 (I 2 ARG3 I 1 ARG2 I 0 ARG1) og (11Q ERROR) (6 NCMultiRemote.TruncateNoteFile) ( 3 "Not implemented yet: ") (PRETTYCOMPRINT NCMULTIREMOTECOMS) (RPAQQ NCMULTIREMOTECOMS ((FNS NCMultiRemote.BuildHashArray NCMultiRemote.COLLECTLINKS NCMultiRemote.CancelCacheSubscription NCMultiRemote.CheckpointNoteFile NCMultiRemote.CloseNoteFile NCMultiRemote.CompactNoteFile NCMultiRemote.ConvertNoteFileFormat NCMultiRemote.CreateNoteFile NCMultiRemote.DeleteNoteFile NCMultiRemote.GetCardInfo NCMultiRemote.GetCardPart NCMultiRemote.ListNoteFiles NCMultiRemote.MarkCardDeleted NCMultiRemote.NewCardUID NCMultiRemote.NoteFileOpenP NCMultiRemote.ObtainWritePermission NCMultiRemote.OpenNoteFile NCMultiRemote.PUTLINKS NCMultiRemote.PutCardPart NCMultiRemote.ReleaseWritePermission NCMultiRemote.RepairNoteFile NCMultiRemote.TruncateNoteFile) (INITVARS (NC.DeviceVectorsHashArray ( HASHARRAY 10))) (P (PUTHASH (QUOTE REMOTEMULTIUSER) (create NoteFileDevice ListNoteFilesFn _ (FUNCTION NCMultiRemote.ListNoteFiles) CreateNoteFileFn _ (FUNCTION NCMultiRemote.CreateNoteFile) DeleteNoteFileFn _ (FUNCTION NCMultiRemote.DeleteNoteFile) OpenNoteFileFn _ (FUNCTION NCMultiRemote.OpenNoteFile) BuildHashArrayFn _ (FUNCTION NCMultiRemote.BuildHashArray) CloseNoteFileFn _ (FUNCTION NCMultiRemote.CloseNoteFile) NoteFileOpenPFn _ (FUNCTION NCMultiRemote.NoteFileOpenP) CheckpointNoteFileFn _ (FUNCTION NCMultiRemote.CheckpointNoteFile) NewCardUIDFn _ (FUNCTION NCMultiRemote.NewCardUID) MarkCardDeletedFn _ (FUNCTION NCMultiRemote.MarkCardDeleted) GetCardInfoFn _ (FUNCTION NCMultiRemote.GetCardInfo) PutCardPartFn _ (FUNCTION NCMultiRemote.PutCardPart) GetCardPartFn _ (FUNCTION NCMultiRemote.GetCardPart) ObtainWritePermissionFn _ (FUNCTION NCMultiRemote.ObtainWritePermission) ReleaseWritePermissionFn _ (FUNCTION NCMultiRemote.ReleaseWritePermission) CancelCacheSubscriptionFn _ (FUNCTION NCMultiRemote.CancelCacheSubscription) RepairNoteFileFn _ (FUNCTION NCMultiRemote.RepairNoteFile) CompactNoteFileFn _ (FUNCTION NCMultiRemote.CompactNoteFile) TruncateNoteFileFn _ (FUNCTION NCMultiRemote.TruncateNoteFile) ConvertNoteFileFormatFn _ (FUNCTION NCMultiRemote.ConvertNoteFileFormat)) NC.DeviceVectorsHashArray)))) (RPAQ? NC.DeviceVectorsHashArray (HASHARRAY 10)) (PUTHASH (QUOTE REMOTEMULTIUSER) (create NoteFileDevice ListNoteFilesFn _ (FUNCTION NCMultiRemote.ListNoteFiles) CreateNoteFileFn _ (FUNCTION NCMultiRemote.CreateNoteFile) DeleteNoteFileFn _ (FUNCTION NCMultiRemote.DeleteNoteFile) OpenNoteFileFn _ (FUNCTION NCMultiRemote.OpenNoteFile) BuildHashArrayFn _ (FUNCTION NCMultiRemote.BuildHashArray) CloseNoteFileFn _ (FUNCTION NCMultiRemote.CloseNoteFile) NoteFileOpenPFn _ (FUNCTION NCMultiRemote.NoteFileOpenP) CheckpointNoteFileFn _ (FUNCTION NCMultiRemote.CheckpointNoteFile) NewCardUIDFn _ (FUNCTION NCMultiRemote.NewCardUID) MarkCardDeletedFn _ (FUNCTION NCMultiRemote.MarkCardDeleted) GetCardInfoFn _ (FUNCTION NCMultiRemote.GetCardInfo) PutCardPartFn _ (FUNCTION NCMultiRemote.PutCardPart) GetCardPartFn _ (FUNCTION NCMultiRemote.GetCardPart) ObtainWritePermissionFn _ (FUNCTION NCMultiRemote.ObtainWritePermission) ReleaseWritePermissionFn _ (FUNCTION NCMultiRemote.ReleaseWritePermission) CancelCacheSubscriptionFn _ (FUNCTION NCMultiRemote.CancelCacheSubscription) RepairNoteFileFn _ (FUNCTION NCMultiRemote.RepairNoteFile) CompactNoteFileFn _ (FUNCTION NCMultiRemote.CompactNoteFile) TruncateNoteFileFn _ (FUNCTION NCMultiRemote.TruncateNoteFile) ConvertNoteFileFormatFn _ (FUNCTION NCMultiRemote.ConvertNoteFileFormat)) NC.DeviceVectorsHashArray) NIL