(FILECREATED "12-Aug-87 16:33:49" ("compiled on " {QV}1.3KNEXT>RGPATCH057.;2) "12-Nov-85 14:59:23" recompiled changes: NC.AskUser NC.AskUserResetWindow NC.ZapAskUserProcess NC.SelectNoteCards NC.ZapBinLoopProcess in "LOOPS/KOTO 20-Jul-87 ..." dated "20-Jul-87 19:10:39") (FILECREATED "12-Aug-87 16:33:29" {QV}1.3KNEXT>RGPATCH057.;2 24305 changes to: (VARS RGPATCH057COMS) (FNS NC.ZapBinLoopProcess NC.AskUserResetWindow NC.AskUser NC.ZapAskUserProcess NC.SelectNoteCards) previous date: "12-Aug-87 16:24:22" {QV}1.3KNEXT>RGPATCH057.;1) NC.AskUserA0001A0004 D1 (NAME ERRORSET F 0 Prompt F 1 FirstTry F 2 AskWindow F 3 MACROY) PQoRhdo ci(20Q PROMPTFORWORD) NIL ( 14Q (15Q) 5 "To type a ?, type CTRL-V followed by a ?.") NC.AskUserA0001A0005A0006 D1 (NAME ERRORSET F 0 Prompt F 1 FirstTry) $PoddhhdohdQdh h(37Q TTYIN) NIL ( 24Q (STRING NORAISE) 6 "") NC.AskUserA0001A0005 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 AskWindow F 2 RESETY) 7gQ hhPcgi hhPco ci(60Q ERROR! 53Q NC.AskUserA0001A0005A0006 32Q RESET.INTERRUPTS 26Q LISPINTERRUPTS 6 TTYDISPLAYSTREAM) (23Q RESET.INTERRUPTS 2 TTYDISPLAYSTREAM) ( 50Q (NC.AskUserA0001A0005A0006)) NC.AskUserA0001 D1 (NAME ERRORSET L (0 NIL) P 10Q RESETZ P 7 RESETY P 6 LISPXHIST P 5 RESETSTATE P 4 MACROY P 2 OLDVALUE F 11Q RESETVARSLST F 12Q TextObj F 13Q AskWindow F 14Q MainWindow F 15Q ClearFirstFlg F 16Q Msg F 17Q LISPXHIST F 20Q DontClearAtEndFlg F 21Q DontCloseAtEndFlg F 22Q RESETY F 23Q PROMPTFORWORDFlg) > gWWW cWW W"hhhWcg hhWcWg c^gWgW Fg'hW FW Fgi W gihHIFIhWcWg Wggi W&K i 1gJhhWcog gKcgK ML)W!Wog hg_ OOWgg c$i(467Q WINDOWDELPROP 450Q ERROR! 441Q RESETRESTORE 426Q NC.AskUserA0001A0005 400Q ERROR! 372Q APPLY 346Q NC.AskUserA0001A0004 312Q RESET.INTERRUPTS 306Q LISPINTERRUPTS 302Q TTY.PROCESS 277Q THIS.PROCESS 267Q WINDOWADDPROP 252Q PUTWINDOWPROP 247Q THIS.PROCESS 202Q TEXTOBJ 173Q LISTPUT 157Q TEXTOBJ 143Q TEXTOBJ 120Q TEXTOBJ 77Q GETWINDOWUSERPROP 54Q TTY.PROCESS 51Q THIS.PROCESS 13Q NC.PrintMsg) (464Q NC.ZapAskUserProcess 461Q CLOSEFN 434Q ERROR 423Q INTERNAL 363Q RESET.INTERRUPTS 352Q ERROR 343Q INTERNAL 320Q RESET.INTERRUPTS 263Q NC.ZapAskUserProcess 260Q CLOSEFN 244Q AskUserProcess 210Q COPYBYBKSYSBUF 205Q TEXTOBJ 167Q COPYBYBKSYSBUF 162Q TEXTOBJ 146Q TEXTOBJ 130Q COPYBYBKSYSBUF 123Q TEXTOBJ 113Q COPYBYBKSYSBUF 106Q TEXTPROP 74Q TEXTOBJ 46Q TTY.PROCESS 2 NC.AskUserResetWindow) ( 420Q (NC.AskUserA0001A0005) 340Q (NC.AskUserA0001A0004)) NC.AskUser D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 TextObj P 0 AskWindow I 7 PROMPTFORWORDFlg I 6 DontClearAtEndFlg I 5 DontCloseAtEndFlg I 4 MainWindow I 3 ClearFirstFlg I 2 FirstTry I 1 Prompt I 0 Msg F 5 LISPXHIST F 6 RESETVARSLST) % U!Vog hg\ LK(40Q ERROR! 33Q RESETRESTORE 21Q NC.AskUserA0001) (27Q ERROR 16Q INTERNAL) ( 13Q (NC.AskUserA0001)) NC.AskUserResetWindow D1 (I 3 DontCloseAtEndFlg I 2 DontClearAtEndFlg I 1 MainWindow I 0 AskWindow F 0 RESETSTATE) 0@@g @@gg PgAi B ACh (55Q NC.ClearMsg 42Q NC.ClearMsg 26Q WINDOWDELPROP 11Q PUTWINDOWPROP) (33Q ERROR 23Q NC.ZapAskUserProcess 20Q CLOSEFN 6 PROCESS) () NC.ZapAskUserProcess D1 (P 0 AskUserProcess I 0 Window F 1 WINDOW) &Qg @gg H Ho g(40Q PROCESS.EVAL 27Q PROCESSP 23Q WINDOWDELPROP 6 GETWINDOWUSERPROP) (43Q DON'T 20Q NC.ZapAskUserProcess 15Q CLOSEFN 3 AskUserProcess) ( 35Q (ERROR!)) NC.SelectNoteCardsA0001A0004 D1 (I 0 Process F 0 CROSSHAIRS) @gP (15Q ECHOMODE 12Q PROCESSPROP 7 CARET) (3 OldCaret) () NC.SelectNoteCardsA0001A0005 D1 (I 0 Process) @g i (15Q ECHOMODE 11Q CARET 6 PROCESSPROP) (3 OldCaret) () NC.SelectNoteCardsA0001A0006A0007A0008 D1 (NAME ERRORSET P 10Q ThisCard P 4 RESETITEM P 2 \NF P 1 ITEM P 0 ITEMLIST F 11Q Card F 12Q CardListResetVar F 13Q SelectedCards F 14Q InstigatingWindow F 15Q PromptWindow F 16Q FileLevelLockFlg F 17Q OpInProgress F 20Q NC.NoteFileBusyList F 21Q NC.CardBusyList F 22Q ResetItems F 23Q InternalResetVar F 24Q NC.LockLock F 25Q RESETHANDLE F 26Q OLDVALUE F 27Q SelectionPredicate F 30Q RESETY F 31Q Msg)  W(hi WgWgWgW $W WW cWgWWc WdgrWcWgWc W W g H2dW*IW Iddc,II I hWg WkW.#Wiol WgWc W)WJd`WJ [K W c)W W%0gWJd`4BgWoW n WgWc W WJ ]MoWJd`WJ ^Ngo h\WcL0gWJd`WJ ]MoWJd`WJ ^Ng h\WcLoW c h\WcLhoW"c"h\WcL@gWJd`WJ ]MhWJd`WJ ^NgWJd`WJ _Og  h\WcLgWoWgo h\WcLgWoWg h\WcLhc$gWoWgW$ hW&c&WhW2oo W Hl dWhO o W#hW Wg oWhl hc0i(1724Q NC.PrintMsg 1721Q CHARACTER 1702Q GETWINDOWPROP 1672Q DSPXPOSITION 1657Q NC.PrintMsg 1650Q NC.RetrieveTitle 1631Q CONCAT 1626Q CHARACTER 1617Q REVERSE 1611Q NC.PrintMsg 1556Q NC.SetUserDataProp 1502Q NC.SetUserDataProp 1477Q THIS.PROCESS 1435Q NC.SetUserDataProp 1367Q NC.NoteFileProp 1363Q NC.NoteFileProp 1345Q NC.NoteFileFromNoteFileUID 1307Q THIS.PROCESS 1273Q NC.NoteFileFromNoteFileUID 1225Q NC.NoteFileFromNoteFileUID 1141Q THIS.PROCESS 1101Q THIS.PROCESS 1053Q NC.NoteFileProp 1050Q THIS.PROCESS 1034Q NC.NoteFileFromNoteFileUID 763Q NC.NoteFileFromNoteFileUID 704Q NC.NoteFileProp 664Q NC.NoteFileFromNoteFileUID 613Q NC.NoteFileFromNoteFileUID 574Q NC.ClearMsg 566Q PUTWINDOWPROP 550Q DISMISS 541Q NC.PrintOperationInProgressMsg 456Q NC.ClearMsg 445Q NC.CardCheckOpInProgress 437Q NC.NoteFileCheckOpInProgress 426Q NC.NoteFileFromNoteFileUID 361Q PUTWINDOWPROP 343Q NC.PrintMsg 340Q CHARACTER 312Q NC.ValidCardP 304Q NC.SetUserDataProp 265Q SET 256Q APPLY 225Q SET 222Q DREMOVE 201Q NC.FetchUserDataProp 167Q NC.ClearMsg 155Q PUTWINDOWPROP 115Q PUTWINDOWPROP 72Q NC.GetCrossFileLinkDestCard 61Q NC.CrossFileLinkCardP 52Q NC.ValidCardP 6 OBTAIN.MONITORLOCK) (1677Q WIDTH 1551Q ResetItems 1534Q NC.SetUserDataProp 1474Q ProcessInProgress 1457Q NC.SetUserDataProp 1426Q OperationInProgress 1411Q NC.SetUserDataProp 1360Q CardProcessInProgressList 1341Q CardObject 1327Q NoteFileTYPE# 1314Q CardObject 1304Q CardProcessInProgressList 1267Q CardObject 1256Q NoteFileTYPE# 1243Q CardObject 1221Q CardObject 1210Q NoteFileTYPE# 1175Q CardObject 1170Q NC.ResetCardProcessInProgress 1045Q ProcessInProgress 1030Q CardObject 1017Q NoteFileTYPE# 1004Q CardObject 757Q CardObject 746Q NoteFileTYPE# 733Q CardObject 726Q NC.NoteFileProp 675Q OperationInProgress 660Q CardObject 647Q NoteFileTYPE# 634Q CardObject 607Q CardObject 556Q SelectedCards 523Q US 513Q NoteFileTYPE# 500Q CardObject 473Q NC.NoteFileProp 422Q CardObject 411Q NoteFileTYPE# 376Q CardObject 351Q SelectedCards 301Q ResetItems 176Q ResetItems 144Q SelectedCards 124Q *Undo% Selection* 102Q SelectedCards 40Q *New% Card* 26Q DON'T 14Q DONE) ( 1706Q 1.25 1654Q ", " 1606Q "Items selected: " 1602Q "" 1542Q (ResetItems NIL) 1465Q (ProcessInProgress NIL) 1432Q "Select Card" 1417Q (OperationInProgress NIL) 1136Q (SETQ NC.CardBusyList (DREMOVE (THIS.PROCESS) NC.CardBusyList)) 1076Q (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList)) 775Q (ProcessInProgress NIL) 701Q "Select Card" 625Q (OperationInProgress NIL) 534Q "Select Card" 333Q "*** Invalid selection. ***") NC.SelectNoteCardsA0001A0006A0007 D1 (NAME ERRORSET P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 RESETITEM F 4 TTYResetVar F 5 SelectedCards F 6 Card F 7 RESETY F 10Q LISPXHIST F 11Q RESETVARSLST) Dg hhTcUc W!Wog hg[ KJci(73Q ERROR! 65Q RESETRESTORE 53Q NC.SelectNoteCardsA0001A0006A0007A0008 13Q TTY.PROCESS 10Q THIS.PROCESS) (61Q ERROR 50Q INTERNAL 5 TTY.PROCESS) ( 45Q (NC.SelectNoteCardsA0001A0006A0007A0008)) NC.SelectNoteCardsA0001A0006 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 SelectedCards F 4 PromptWindow F 5 BinLoopProcess F 6 LISPXHIST F 7 SingleCardFlg F 10Q RESETY F 11Q CopyInsertEvent F 12Q CardProcessedEvent) Tg hi SgWSSghciTg Wn U STg Tg cTgi Wi U gcV!gog hgZ J(212Q ERROR! 204Q NAMED-RESETRESTORE 172Q NC.SelectNoteCardsA0001A0006A0007 142Q PROCESSP 135Q NOTIFY.EVENT 126Q PUTWINDOWPROP 113Q GETWINDOWUSERPROP 101Q GETWINDOWUSERPROP 70Q PROCESSP 63Q MONITOR.AWAIT.EVENT 53Q GETWINDOWUSERPROP 13Q OBTAIN.MONITORLOCK 6 GETWINDOWUSERPROP) (200Q ERROR 167Q INTERNAL 160Q TTYResetVar 146Q DON'T 122Q NewCardsProcessed 110Q SelectedCards 76Q SelectedCards 50Q SelectCardsMonitor 34Q DONE 20Q DON'T 3 SelectCardsMonitor) ( 164Q (NC.SelectNoteCardsA0001A0006A0007)) NC.SelectNoteCardsA0001 D1 (NAME ERRORSET P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 RESETITEM P 0 \NF F 6 PromptWindow F 7 InternalResetVar F 10Q InstigatingWindow F 11Q OldTTYProcess F 12Q Menu F 13Q BinLoopProcess F 14Q SelectedCards F 15Q SelectionPredicate F 16Q InstigatingCardOrWindow F 17Q InstigatingCard F 20Q InstigatingNoteFile F 21Q Msg F 22Q RESETY F 23Q CheckForCancelFlg F 24Q CopyInsertEvent F 25Q CardProcessedEvent F 26Q SingleCardFlg F 27Q LISPXHIST F 30Q RESETVARSLST) WgcW c `c W cd#Hd`WH YIc WiW"oo cgVoVgg hWcVgd c( Vgi Vgd c* Vg Vgg gVoVg hWcgVoVgi hWcgi hhWcVgogVgggggg c gWhhhWcgggWhggggWhgWhhgWohhgWohhhWcVgg WogggWhhhWW`Wgl igW V Vg g W gV hWcW V . W.!W0og h g] MWgW&%g W,WdghWdg Vg c$i(1220Q PUTWINDOWPROP 1211Q DREVERSE 1131Q ERROR! 1123Q RESETRESTORE 1111Q NC.MoveWindowOntoScreen 1103Q NC.SelectNoteCardsA0001A0006 1061Q TTY.PROCESS 1054Q \INSUREWINDOW 1033Q PUTWINDOWPROP 1024Q WFROMMENU 1016Q ATTACHMENU 1006Q GETWINDOWUSERPROP 776Q WINDOWP 771Q WINDOWP 756Q CONCAT 753Q CHARACTER 662Q WINDOWADDPROP 475Q PUTWINDOWPROP 470Q ADD.PROCESS 413Q RESET.INTERRUPTS 407Q LISPINTERRUPTS 365Q PUTWINDOWPROP 327Q PUTWINDOWPROP 302Q PUTWINDOWPROP 267Q PUTWINDOWPROP 264Q THIS.PROCESS 254Q PUTWINDOWPROP 247Q CREATE.EVENT 236Q PUTWINDOWPROP 225Q PUTWINDOWPROP 220Q CREATE.EVENT 177Q PUTWINDOWPROP 174Q CREATE.MONITORLOCK 142Q TTY.PROCESS 136Q NC.PrintMsg 77Q NC.NoteFileFromNoteFileUID 37Q NC.CoerceToCard 22Q NC.AttachPromptWindow 15Q NC.CoerceToInterestedWindow) (1215Q SelectedCards 1203Q DONE 1165Q DONE 1151Q DON'T 1140Q DON'T 1117Q ERROR 1100Q INTERNAL 1027Q SelectionPromptWindow 1013Q LEFT 1003Q WHEREATTACHED 764Q BOTTOM 745Q TOP 737Q PROMPTWINDOW 713Q WFROMMENU 710Q REMOVEWINDOW 705Q PROGN 670Q MENU 657Q NC.ZapBinLoopProcess 654Q CLOSEFN 622Q NC.ClearMsg 576Q then 562Q HASTTYWINDOWP 552Q PROCESSP 547Q AND 544Q if 541Q TTY.PROCESS 531Q HASTTYWINDOWP 526Q AND 523Q PROGN 501Q DEL.PROCESS 464Q NC.SelectNoteCardsA0001A0005 461Q TTYEXITFN 456Q NC.SelectNoteCardsA0001A0004 453Q TTYENTRYFN 450Q BinLoopProcess 445Q NAME 441Q WINDOW 432Q PROCESS 404Q RESET.INTERRUPTS 361Q SelectingCards 346Q WINDOWPROP 324Q SelectedCards 311Q WINDOWPROP 277Q NC.SelectNoteCardsCopyInsertFn 274Q COPYINSERTFN 261Q SelectNoteCardsProcess 243Q CardProcessedEvent 232Q NewCardsProcessed 214Q CopyInsertEvent 171Q SelectCards 166Q SelectCardsMonitor 153Q WINDOWPROP 73Q CardObject 62Q NoteFileTYPE# 47Q CardObject 27Q PROMPTWINDOW 5 TRUE) ( 1075Q (NC.SelectNoteCardsA0001A0006) 674Q (0 . 0) 630Q (T) 604Q (else T) 436Q (PROG NIL (BLOCK) (TTYDISPLAYSTREAM (PROCESSPROP (THIS.PROCESS) (QUOTE WINDOW))) XXXX (BIN) (BLOCK) (GO XXXX)) 353Q (SelectingCards NIL) 316Q ((QUOTE SelectedCards) NIL) 160Q (SelectCardsMonitor NIL) 133Q "Items shift-selected: " 127Q "") NC.SelectNoteCards D1 (P 23Q RESETZ P 22Q RESETY P 21Q LISPXHIST P 20Q InternalResetVar P 17Q TTYResetVar P 16Q ResetItems P 15Q OpInProgress P 14Q OldTTYProcess P 13Q BinLoopProcess P 12Q SelectedCards P 11Q CardProcessedEvent P 10Q CopyInsertEvent P 7 PromptWindow P 6 MenuWindow P 5 InstigatingNoteFile P 4 InstigatingCard P 3 InstigatingWindow P 2 ButtonEventFn P 1 Card P 0 Window I 6 FileLevelLockFlg I 5 CheckForCancelFlg I 4 Msg I 3 InstigatingCardOrWindow I 2 Menu I 1 SelectionPredicate I 0 SingleCardFlg F 24Q LISPXHIST) 1 W(!gog hg_& O&O$(53Q ERROR! 45Q NAMED-RESETRESTORE 32Q NC.SelectNoteCardsA0001 2 ALLOW.BUTTON.EVENTS) (40Q ERROR 27Q INTERNAL 20Q InternalResetVar) ( 24Q (NC.SelectNoteCardsA0001)) NC.ZapBinLoopProcess D1 (P 0 BinLoopProcess I 0 Window) @ .@gg H H (34Q DEL.PROCESS 26Q PROCESSP 22Q WINDOWDELPROP 3 \INSUREWINDOW) (17Q NC.ZapBinLoopProcess 14Q CLOSEFN) () (PRETTYCOMPRINT RGPATCH057COMS) (RPAQQ RGPATCH057COMS ((* * rg 8/11/87 now always makes sure interrupts are standard before calling PROMPTFORWORD or TTYIN, always closes window if exited because of error. Closing a prompt window aborts the process behind it.) (* * changes to NCUTLITIES) (FNS NC.AskUser NC.AskUserResetWindow) (* * new for NCUTLITIES) (FNS NC.ZapAskUserProcess) (* * changes to NCINTERFACE) (FNS NC.SelectNoteCards) (* * new for NCINTERFACE) (FNS NC.ZapBinLoopProcess))) (PUTPROPS RGPATCH057 COPYRIGHT ("Xerox Corporation" 1987)) NIL