(FILECREATED " 8-May-86 14:21:13" ("compiled on " {ERIS}LISP>AREDIT.;8) "12-Nov-85 14:59:23" recompiled changes: AR.GET.AR AR.GET.NEXT AR.GATHER.NEW.AR.DATA AR.INDEX.PRINT AR.QFORM.FN.QUERY in "INTERLISP-D 22-Mar-86 ..." dated "22-Mar-86 17:07:07") (FILECREATED " 8-May-86 14:18:28" {ERIS}LISP>AREDIT.;8 148221 changes to: (FNS AR.GET.AR AR.GET.NEXT AR.GATHER.NEW.AR.DATA AR.INDEX.PRINT AR.QFORM.FN.QUERY) previous date: " 5-May-86 14:30:44" {ERIS}LISP>AREDIT.;7) AR.BUTTON.GET.MENU D1 (I 0 OBJ) @g @g`@g hHddidd gHhhh HdI@g HdIdg dgjdndhHdI  @g (217Q IMAGEOBJPROP 210Q IMAGEOBJPROP 130Q IMAGEOBJPROP 107Q \APPEND2 37Q PACKC 33Q IMAGEOBJPROP 6 IMAGEOBJPROP) (214Q AR.MENU 155Q DEFAULTMENUHELDFN 146Q CLRPROMPT 125Q MBTEXT 72Q QUOTE 30Q AR.MENU.LIST 23Q MENUTYPE# 20Q AR.MENU 3 AR.MENU) () AR.BUTTON.GET.SUBMENU D1 (P 1 CORRESPONDING.SUBMENU P 0 CORRESPONDING.SUBMENU.LIST I 1 ASSOCIATED.MENU.VAL I 0 OBJ) @g A @g A Q`HhZddidd gJhhh dK@g dLdg dgjdndhdM Y@g @g AI @gAIh I(237Q IMAGEOBJPROP 222Q LISTPUT 215Q IMAGEOBJPROP 205Q IMAGEOBJPROP 130Q IMAGEOBJPROP 113Q \APPEND2 47Q PACKC 33Q LISTGET 27Q IMAGEOBJPROP 12Q LISTGET 6 IMAGEOBJPROP) (227Q AR.SUBMENUS 212Q AR.SUBMENUS 202Q AR.SUBMENUS 151Q DEFAULTMENUHELDFN 142Q CLRPROMPT 125Q MBTEXT 77Q QUOTE 41Q MENUTYPE# 24Q AR.SUBMENU.LIST 3 AR.SUBMENUS) () AR.BUTTON.OBJ.CREATE D1 (P 3 OBJ P 2 OBJ P 1 BUTTON.FN P 0 BUTTON.TYPE I 2 BUTTON.FONT I 1 BUTTON.NAME I 0 AR.SPECS) A@ g !HgA@ g gA@ g QHdgA@ g ;gg1HgHdggggHggoH YA@ g BbAIB ZdKgHdgogHgoo KgHgHgoo KgHgHgHdgg*gg HdggggoH KgHgHgHgHgi HdgJgA@ g hg0JKgA@ g KgA@ g 4Hg-JKgA@ g KgA@ g J(730Q IMAGEOBJPROP 725Q LISTGET 716Q ASSOC 704Q IMAGEOBJPROP 701Q LISTGET 672Q ASSOC 643Q IMAGEOBJPROP 640Q LISTGET 631Q ASSOC 617Q IMAGEOBJPROP 614Q LISTGET 605Q ASSOC 557Q IMAGEOBJPROP 554Q LISTGET 545Q ASSOC 522Q IMAGEOBJPROP 457Q IMAGEOBJPROP 454Q ERROR 346Q IMAGEOBJPROP 311Q IMAGEOBJPROP 233Q MBUTTON.CREATE 220Q LISTGET 211Q ASSOC 203Q ERROR 110Q LISTGET 101Q ASSOC 62Q LISTGET 53Q ASSOC 41Q LISTGET 32Q ASSOC 13Q LISTGET 4 ASSOC) (722Q SUBMENULIST 711Q AR.SUBMENU.LIST 676Q ASSOCMENU 665Q AR.ASSOCIATED.MENU 652Q SUBMENU 635Q MENULIST 624Q AR.MENU.LIST 611Q ASSOCSUBMENU 600Q AR.ASSOCIATED.SUBMENU 565Q MENU 551Q MAXCHARS 540Q AR.MAX.LEN 530Q SHORTSTRING 513Q SUBMENU 505Q MENU 477Q PROTECTEDSTRING 470Q BUTTON 464Q AR.PROTECTED.FLG 443Q AR.CHECK.SUBMENU 436Q SUBMENU 431Q AR.CHECK.MENU 423Q MENU 414Q AR.CHECK.SHORTSTRING 407Q SHORTSTRING 402Q NILL 374Q STRING 365Q PROTECTEDSTRING 357Q BUTTON 353Q AR.CHECK.FN 330Q SUBMENU 322Q MENU 316Q AR.POST.FIELD 273Q SUBMENU 265Q MENU 251Q BUTTON 244Q AR.PRE.FIELD 215Q FONT 172Q AR.BUTTONFN.DOSUBMENU 165Q SUBMENU 157Q AR.BUTTONFN.DOMENU 152Q MENU 145Q AR.BUTTONFN.SELFIELD 137Q SHORTSTRING 130Q STRING 122Q AR.PROTECT.WARNING 115Q PROTECTEDSTRING 105Q FN 71Q BUTTON 57Q FN 45Q SHORTSTRING 36Q MAXCHARS 22Q STRING 10Q FIELDTYPE) ( 450Q "Bad Button Type" 343Q "" 336Q "}" 306Q " " 301Q " {" 260Q "" 177Q "Bad Button Type") AR.BUTTONFN.DOMENU D1 (P 3 BUTTON P 2 ASSOC.SUBMENU P 1 NEWVAL P 0 STREAM I 2 WINDOW I 1 SEL I 0 OBJ) hBg @ @g IB h@g @AHI JHJ K oJ KKH KgI (143Q IMAGEOBJPROP 131Q AR.REPLACE.FIELD.VAL 126Q PACKC 115Q ERROR 77Q AR.FIND.BUTTON 66Q AR.REPLACE.FIELD.VAL 47Q IMAGEOBJPROP 36Q AR.RESET.SEL 24Q IMAGEOBJPROP 15Q MENU 12Q AR.BUTTON.GET.MENU 6 GETWINDOWUSERPROP) (137Q AR.ASSOCIATED.MENU.VAL 57Q SELECTION 44Q AR.FIELD.VALUE 21Q AR.ASSOCIATED.SUBMENU 3 TEXTSTREAM) ( 111Q "Can't find associated submenu button") AR.BUTTONFN.DOSUBMENU D1 (P 2 NEWVAL P 1 ASSOCIATED.MENU.VAL P 0 STREAM I 2 WINDOW I 1 SEL I 0 OBJ) 9Bg @B @I Zdd@g @AHJ B h(65Q AR.RESET.SEL 60Q AR.REPLACE.FIELD.VAL 42Q IMAGEOBJPROP 26Q MENU 23Q AR.BUTTON.GET.SUBMENU 13Q AR.GET.ASSOCIATED.MENU.VAL 6 GETWINDOWUSERPROP) (51Q SELECTION 37Q AR.FIELD.VALUE 3 TEXTSTREAM) () AR.BUTTONFN.SELFIELD D1 (P 3 FIELD.LEN P 2 FIELD.CH# P 1 FIELD.SEL P 0 TOBJ I 2 WINDOW I 1 SEL I 0 OBJ) 6A1HA HYdZI [HJKgi h(62Q TEDIT.SETSEL 22Q MBUTTON.FIND.NEXT.FIELD) (55Q LEFT 44Q SELECTION 35Q SELECTION 26Q TEXTOBJ 15Q SELECTION 3 SELECTION) () AR.CHECK.FIELDS D1 (P 7 FIELD.LEN P 6 FIELD.CH# P 5 SEL P 4 BUTTON P 3 OBJ P 2 CHECK.VALUE P 1 CH# P 0 TOBJ I 0 FORMWINDOW) @g jrIkԹHI \VLLKg Kg IؾKg HI ]M _Kg _@KINOlOZJoKg ohJ (207Q \APPEND2 173Q IMAGEOBJPROP 133Q IMAGEOBJPROP 104Q MBUTTON.FIND.NEXT.FIELD 75Q IMAGEOBJPROP 63Q IMAGEOBJPROP 52Q IMAGEOBJPROP 34Q BLOCK 26Q MBUTTON.FIND.NEXT.BUTTON 11Q TEXTOBJ 6 GETWINDOWUSERPROP) (170Q MBTEXT 130Q AR.CHECK.FN 117Q SELECTION 110Q SELECTION 72Q AR.FIELD.LEN 60Q AR.FIELD.START 47Q AR.PROTECTED.FLG 3 TEXTSTREAM) ( 177Q "] --- " 164Q "Bad value for field [") AR.CHECK.MENU D1 (P 4 X P 2 VAL P 1 CLIST P 0 TSTREAM I 4 FIELD.LEN I 3 FIELD.CH# I 2 CH# I 1 OBJ I 0 FORMWINDOW) v@ !HCk Dk2LK"H H _NOh^Lk\O&MYH o Ih ZdAg Agh oJoh(145Q IMAGEOBJPROP 133Q MEMB 130Q IMAGEOBJPROP 117Q PACKC 106Q SHOULDNT 76Q EOFP 33Q EOFP 15Q SETFILEPTR 3 TEXTSTREAM) (141Q AR.MENU 125Q AR.MENU.LIST) ( 157Q " --- please reset" 152Q "bad menu value: " 103Q "Reached end of textstream while retrieving menu value") AR.CHECK.SHORTSTRING D1 (I 4 FIELD.LEN I 3 FIELD.CH# I 2 CH# I 1 OBJ I 0 FORMWINDOW) #DAg hoAg oDh(26Q IMAGEOBJPROP 7 IMAGEOBJPROP) (23Q AR.MAX.LEN 4 AR.MAX.LEN) ( 32Q "; current length= " 17Q "max length= ") AR.CHECK.SUBMENU D1 (P 4 X P 2 VAL P 1 CLIST P 0 TSTREAM I 4 FIELD.LEN I 3 FIELD.CH# I 2 CH# I 1 OBJ I 0 FORMWINDOW) @ !HCk Dk2LK"H H _NOh^Lk\O&MYH o Agh Ih ZdAg A@ Agh Agh oJoh(176Q IMAGEOBJPROP 165Q IMAGEOBJPROP 153Q MEMB 150Q LISTGET 145Q AR.GET.ASSOCIATED.MENU.VAL 140Q IMAGEOBJPROP 127Q PACKC 117Q IMAGEOBJPROP 106Q SHOULDNT 76Q EOFP 33Q EOFP 15Q SETFILEPTR 3 TEXTSTREAM) (172Q AR.ASSOCIATED.MENU.VAL 161Q AR.SUBMENUS 135Q AR.SUBMENU.LIST 113Q AR.ASSOCIATED.MENU.VAL) ( 210Q " --- please reset" 203Q "bad menu value: " 103Q "Reached end of textstream while retrieving submenu value") AR.CONFIRM D1 (I 1 FORMWINDOW I 0 WORDS) @A hdAl (17Q MOUSECONFIRM 14Q GETPROMPTWINDOW 4 AR.PROMPT) NIL () AR.COPY.AND.INDEX.AR D1 (P 6 PTR P 5 FIELD.NAME P 4 CHAR P 0 INDEX I 2 INDEX.FIELDS I 1 SCRATCH.STREAM I 0 ARSTREAM) @ @@ \J;KhZLl:I A @ BMB DA@ \dl'@ )K&l @ l MNA NhH.L @ \dl'@ l @ l ^H(241Q ERROR! 215Q BLOCK 173Q BOUT 154Q GETFILEPTR 144Q ERROR! 114Q BLOCK 72Q MEMB 54Q GETFILEPTR 50Q PACKC 15Q BLOCK 6 EOFP) NIL () AR.DELETE.FIELD.VAL D1 (P 1 SEL P 0 STREAM I 2 WINDOW I 1 CH# I 0 OBJ) bBg @g ,H@g A@g @gj @g $H A Yo HII h(136Q TEDIT.DELETE 115Q SHOULDNT 104Q MBUTTON.FIND.NEXT.FIELD 100Q TEXTOBJ 72Q IMAGEOBJPROP 67Q PACKC 57Q IMAGEOBJPROP 46Q TEDIT.DELETE 43Q IMAGEOBJPROP 32Q IMAGEOBJPROP 20Q IMAGEOBJPROP 6 GETWINDOWUSERPROP) (131Q SELECTION 123Q SELECTION 64Q AR.FIELD.VALUE 53Q AR.FIELD.LEN 40Q AR.FIELD.LEN 27Q AR.FIELD.START 15Q AR.PROTECTED.FLG 3 TEXTSTREAM) ( 112Q "Can't find field for button") AR.DISCONNECT.WINDOW D1 (I 0 FORMWINDOW) @g hh(11Q TEXTOBJ 6 GETWINDOWUSERPROP) (14Q TEXTOBJ 3 TEXTSTREAM) () AR.FIND.BUTTON D1 (P 3 BUTTON P 2 OBJ P 1 CH# P 0 TOBJ I 1 NAME I 0 WINDOW) (@ j"IkԹHI [KAJg K(41Q IMAGEOBJPROP 20Q MBUTTON.FIND.NEXT.BUTTON 3 TEXTOBJ) (36Q MBTEXT) () AR.FIND.EDIT.CHANGES D1 (P 21Q X P 17Q SEL P 16Q EDIT.CHANGES P 15Q SCRATCH.FIELD.LEN P 14Q SCRATCH.PTR P 13Q SCRATCH.MAP.SPEC P 12Q TOBJ P 11Q FIELD.LEN P 10Q FIELD.CH# P 7 PROTECT.FIELD.FLG P 6 BUTTON.NAME P 5 BUTTON P 4 OBJ P 3 CH# P 2 FORMSTREAM P 1 SCRATCH.MAP P 0 SCRATCH.STREAM I 0 FORMWINDOW F 25Q AR.FORM.SPECS) @g @g @g jIhJ _KkԻOK ]mMMLg Lg _Lg K_Lg _+OK O o O_O _JOk NI _j_Oj_OO 4OkJOk HO O"O J H hO"k_"i8NO_NW* g o Ok2HO O"O $H _(O&O(h_&_$O"k_"O(&_&O$o Ok2JOk O"O $J _(O&O(h_&_$O"k_"O(&_&O$ hO_O (640Q DREVERSE 620Q PACKC 615Q \NCONC2 612Q \NCONC2 532Q SETFILEPTR 514Q \APPEND2 430Q SETFILEPTR 410Q MEMB 401Q LISTGET 372Q ASSOC 320Q SETFILEPTR 311Q SETFILEPTR 271Q EQP 235Q ASSOC 227Q SETFILEPTR 172Q SHOULDNT 154Q MBUTTON.FIND.NEXT.FIELD 141Q IMAGEOBJPROP 125Q IMAGEOBJPROP 112Q IMAGEOBJPROP 102Q IMAGEOBJPROP 64Q BLOCK 54Q MBUTTON.FIND.NEXT.BUTTON 40Q TEXTOBJ 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (376Q FIELDTYPE 212Q SELECTION 200Q SELECTION 136Q AR.FIELD.LEN 122Q AR.FIELD.START 107Q AR.PROTECTED.FLG 77Q MBTEXT 21Q TEXTSTREAM 12Q AR.FORM.SCRATCH.MAP 3 AR.FORM.SCRATCH.STREAM) ( 511Q (55Q 76Q) 405Q (MENU SUBMENU) 167Q "Can't find field for button") AR.FIND.UNPROTECTED.CH# D1 (P 4 SEL P 3 BUTTON P 2 OBJ P 1 CH# P 0 TOBJ I 0 STREAM) :@ j2IkԹHI [KJg Ko HI d(61Q MBUTTON.FIND.NEXT.FIELD 53Q SHOULDNT 40Q IMAGEOBJPROP 20Q MBUTTON.FIND.NEXT.BUTTON 3 TEXTOBJ) (65Q SELECTION 35Q AR.PROTECTED.FLG) ( 50Q "Can't find unprotected button field") AR.FORM D1 (I 0 NUM) -g@ddidd g@hhgg (52Q ADD.PROCESS) (47Q AR.FORM.TEMP 44Q NAME 32Q QUOTE 2 AR.FORM.GROUP.CREATE) () AR.FORM.CLEAR D1 (P 3 BUTTON P 2 OBJ P 1 CH# P 0 TOBJ I 1 FILL.INS I 0 FORMWINDOW) @@g j"IkԹHI [KKJI@ @A @g i h(74Q TEDIT.STREAMCHANGEDP 70Q GETWINDOWUSERPROP 61Q AR.REPLACE.FILL.INS 51Q AR.DELETE.FIELD.VAL 34Q BLOCK 26Q MBUTTON.FIND.NEXT.BUTTON 11Q TEXTOBJ 6 GETWINDOWUSERPROP) (65Q TEXTSTREAM 3 TEXTSTREAM) () AR.FORM.CREATE D1 (P 31Q TEDIT.PROCS P 30Q NEWPROC P 27Q SAFE.CH# P 26Q FORMWINDOW.PROC.NAME P 25Q FORMWINDOW.PROC P 24Q LEN P 23Q CH# P 22Q LOOKS P 21Q FIELD.LEN P 20Q POST.FIELD.NCHARS P 17Q PRE.FIELD.NCHARS P 16Q CH# P 15Q BUTTON.OBJ P 6 FIELD.OR.SPACE P 5 AR.CHARLOOKS P 4 AR.PARALOOKS P 3 TAB.CH# P 2 FORMWINDOW.WIDTH P 1 TABS P 0 FORMSTREAM I 3 FORM.FORMAT I 2 FORM.SPECS I 1 BUTTONFONT I 0 FORMWINDOW) ohddg`ghh j@g 3@g @g C,dNdgH kػHl IkԹg_Ij'ghIkJIk3 OdOOhKkLjHl Og_OOh__Ok_O&_NNH BNA H k2OHO oOkMOk_HOk Og H H kO_OgOk Ogj Og oOOkkMOg H HglhkH HokH 0M+MM_$MM_&MM_(HO$O&O( 0L+LL_$LL_&LL_(HO$O&O( Hi H k8kjh@ .@g H #O*pgO.gig`ghh_2@g g@g O2_2@g g@g O2_2H@hO2 _0O, O0gO, h @ (1211Q TEDIT.KILL 1203Q PROCESSP 1176Q PROCESSPROP 1155Q TEDIT 1136Q GETWINDOWUSERPROP 1122Q GETWINDOWUSERPROP 1104Q GETWINDOWUSERPROP 1070Q GETWINDOWUSERPROP 1013Q AR.FIND.UNPROTECTED.CH# 1007Q GETWINDOWUSERPROP 776Q \INSUREWINDOW 755Q TEXTOBJ 751Q TEDIT.STREAMCHANGEDP 740Q TEDIT.PARALOOKS 675Q BLOCK 660Q TEDIT.LOOKS 615Q BLOCK 604Q TEDIT.LOOKS 601Q GETEOFPTR 567Q TEDIT.PARALOOKS 564Q GETEOFPTR 534Q PRIN1 530Q IMAGEOBJPROP 475Q IMAGEOBJPROP 464Q IMAGEOBJPROP 452Q IMAGEOBJPROP 426Q GETFILEPTR 421Q PRIN1 415Q IMAGEOBJPROP 404Q SETFILEPTR 350Q TEDIT.INSERT.OBJECT 337Q BLOCK 327Q GETFILEPTR 323Q AR.BUTTON.OBJ.CREATE 311Q PRIN1 225Q BOUT 125Q BOUT 114Q GETFILEPTR 76Q BLOCK 62Q PUTWINDOWPROP 53Q PUTWINDOWPROP 41Q GETWINDOWPROP 31Q OPENTEXTSTREAM) (1171Q NAME 1133Q AR.TEDIT.TITLEMENUFN 1127Q TITLEMENUFN 1117Q AR.TEDIT.TITLEMENUFN 1101Q AR.TEDIT.READTABLE 1075Q READTABLE 1065Q AR.TEDIT.READTABLE 1044Q TEDIT.TENTATIVE 1041Q ARFONT 1036Q FONT 1032Q LEAVETTY 1025Q SEL 1004Q AR.WINDOW.PROC.NAME 760Q TEXTOBJ 552Q PARALEADING 525Q AR.POST.FIELD 472Q AR.PROTECTED.FLG 460Q AR.FIELD.LEN 443Q AR.FIELD.START 412Q AR.PRE.FIELD 237Q LEFT 153Q TABS 140Q CR 104Q TAB 57Q AR.FORM.SCRATCH.STREAM 50Q AR.FORM.NUMBER 36Q WIDTH 17Q TEDIT.TENTATIVE 14Q ARFONT 11Q FONT) ( 574Q (PROTECTED ON) 503Q (PROTECTED ON SELECTPOINT ON) 355Q (PROTECTED OFF) 3 "") AR.FORM.FILL.INS D1 (P 0 CURRENT.USER F 1 MAKESYSDATE) sogHhgHhghgdgnT%dgnLdgnlgnhgQhghh(145Q REALMEMORYSIZE 125Q PACKC 46Q MACHINETYPE 35Q MICROCODEVERSION 2 AR.USERNAME) (142Q Memory% Size: 133Q Lisp% Version: 114Q DOVE 102Q DORADO 66Q DOLPHIN 52Q DANDELION 43Q Machine: 32Q Microcode% Version: 23Q Submitter: 14Q Source:) ( 11Q (Status: New)) AR.FORM.GROUP.CREATE D1 (P 2 WREG P 1 MENUW P 0 FORMWINDOW I 0 INITIAL.NUM F 3 AR.MENU.READTABLE F 4 AR.FORM.ICON F 5 ARBUTTONFONT F 6 AR.FORM.SPECS F 7 AR.FORM.FORMAT) nl< o !Hgg Hgnl< Hgg HgT H ZdJJkJl(ho YdHgg Igjl( Igjl( IgT Igg g S ` cl gS IgS Igg Hl H`VW IUoo Hg Ig n @Ig@ Ig h(416Q AR.FORM.MENU.ACTIONFN 406Q AR.FORM.MENU.ACTIONFN 371Q BLOCK 362Q GETWINDOWUSERPROP 352Q GETWINDOWUSERPROP 343Q AR.FORM.CREATE 326Q AR.FORM.CREATE 314Q GETPROMPTWINDOW 306Q PUTWINDOWPROP 274Q PUTWINDOWPROP 263Q TEDIT.SETFUNCTION 247Q COPYREADTABLE 237Q READTABLEP 232Q BOUNDP 224Q PUTWINDOWPROP 212Q PUTWINDOWPROP 202Q PUTWINDOWPROP 167Q PUTWINDOWPROP 154Q ATTACHWINDOW 140Q CREATEW 76Q \INSUREWINDOW 72Q PUTWINDOWPROP 62Q PUTWINDOWPROP 50Q PUTWINDOWPROP 33Q WINDOWADDPROP 16Q CREATEW 7 GETREGION) (413Q New 402Q Get 357Q LINES 347Q LINES 320Q ARBOLDFONT 303Q AR.FORM.MENU.TITLEMENUFN 300Q AR.TEDIT.TITLEMENUFN 270Q AR.TEDIT.READTABLE 257Q AR.MENU.CR.FN 244Q TEDIT.READTABLE 227Q AR.MENU.READTABLE 221Q AR.FORM.MENU 216Q AR.WINDOW.PROC.NAME 206Q ICON 173Q MINSIZE 160Q MAXSIZE 151Q JUSTIFY 146Q TOP 66Q ICON 57Q AR.FORM 54Q AR.WINDOW.PROC.NAME 37Q MINSIZE 30Q AR.KILL.ATTACHED.TEDIT.CLOSEFN 25Q CLOSEFN) ( 340Q (New TAB Get TAB Put TAB Number: TAB CR) 334Q ((New FIELDTYPE BUTTON FN AR.FORM.MENU.BUTTONFN) (Get FIELDTYPE BUTTON FN AR.FORM.MENU.BUTTONFN) (Put FIELDTYPE BUTTON FN AR.FORM.MENU.BUTTONFN) (Number: FIELDTYPE STRING)) 135Q "AR Bug Report Editor" 13Q "New Bug Report") AR.FORM.MENU.TITLEMENUFN D1 (P 0 OP I 0 TEXTSTREAM F 2 AR.FORM.MENU.TITLEMENU) Z g R7`dododg dgjdndhdI c Xd@ H h(126Q AR.FORM.MENU.ACTIONFN 114Q TEXTOBJ 104Q MENU 10Q BOUNDP) (117Q TEXTOBJ 53Q DEFAULTMENUHELDFN 44Q CLRPROMPT 17Q MENUTYPE# 5 AR.FORM.MENU.TITLEMENU) ( 35Q "AR Ops" 25Q ((Clear (QUOTE Clear) "Clears all the fields of the AR") (New (QUOTE New) "Clears all fields of the AR, and substitutes default values for some fields") (Get (QUOTE Get) "Retrieves the AR whose number is given in the %"Number:%" field") (Put (QUOTE Put) "Saves an edited of an AR, or submits a new AR") (Put&GetNext (QUOTE Put&GetNext) "Stores the current AR, and Gets the next existing AR") (Put&Get (QUOTE Put&Get) "Stores the current AR, and Gets another") (Get% From% File (QUOTE Get% From% File) "Retrieves AR from named file") (Put% To% File (QUOTE Put% To% File) "Stores AR into named file"))) AR.JUST.GET.SUBMIT.NUMA0001 D1 (NAME ERRORSET F 0 AR.SUBMIT.NUM.FILE.NAME) Pggo h(15Q OPENSTREAM) (6 OLD 3 BOTH) ( 12Q ((DON'T.CACHE T) (DON'TCACHE T))) AR.JUST.GET.SUBMIT.NUMA0002 D1 (NAME ERRORSET F 0 SUBMIT.NUM.FILE F 1 CURR.NEXT.NUM) Pj P c3 hh(21Q ERROR! 11Q READ 4 SETFILEPTR) NIL () AR.JUST.GET.SUBMIT.NUM D1 (P 4 X P 2 CURR.NEXT.NUM P 1 VAL P 0 SUBMIT.NUM.FILE I 0 FORMWINDOW F 5 AR.SUBMIT.NUM.FILE.NAME) Z0U hl kLK1U o X!oUoh@ n Lk\Ho YH IJ(123Q CLOSEF 116Q AR.JUST.GET.SUBMIT.NUMA0002 74Q DISMISS 65Q AR.PROMPT 40Q AR.JUST.GET.SUBMIT.NUMA0001 30Q OPENP 6 INFILEP) NIL ( 113Q (AR.JUST.GET.SUBMIT.NUMA0002) 55Q "- - - please wait" 50Q "submit number file busy: " 35Q (AR.JUST.GET.SUBMIT.NUMA0001)) AR.JUST.PRINT.AR.NUM D1 (P 5 SEL P 4 BUTTON P 3 OBJ P 2 BUTTON.NAME P 1 CH# P 0 TOBJ I 1 CURR.NUM I 0 WINDOW) C@g jg3IkԹHI \LJKg LHgA oJ (100Q ERROR 67Q MBUTTON.SET.FIELD 52Q IMAGEOBJPROP 31Q MBUTTON.FIND.NEXT.BUTTON 11Q TEXTOBJ 6 GETWINDOWUSERPROP) (63Q Number: 47Q MBTEXT 15Q Number: 3 TEXTSTREAM) ( 74Q "Can't find named button") AR.KILL.ATTACHED.TEDIT.CLOSEFN D1 (P 2 TSTREAM P 1 AW I 0 WINDOW) @@ !H@g Zd hYg ZI J I HX(70Q CLOSEW 63Q TEDIT.KILL 60Q TEXTOBJ 53Q DETACHWINDOW 44Q GETWINDOWUSERPROP 32Q TEDIT.KILL 27Q TEXTOBJ 21Q GETWINDOWUSERPROP 3 ATTACHEDWINDOWS) (41Q TEXTSTREAM 16Q TEXTSTREAM) () AR.FORM.MENU.ACTIONFNA0001 D1 (NAME ERRORSET P 1 FILE P 0 NUM F 2 FORMWINDOW F 3 OPERATION F 4 NUM.FOR.GET F 5 MENUWINDOW) SdgR dgR dgRT Ug dgR dgR R dgR RH fdgdgPoR SgooRg hR IRgI SgRI RI oR i(333Q AR.PROMPT 317Q AR.FORM.SAVE 311Q AR.GET.AR 275Q PUTWINDOWPROP 257Q MKATOM 254Q PROMPTFORWORD 251Q GETPROMPTWINDOW 244Q GETWINDOWUSERPROP 215Q AR.PROMPT 164Q AR.MENU.FN.GET 156Q AR.MENU.FN.PUT 147Q RNUMBER 131Q AR.GET.NEXT 124Q AR.MENU.FN.PUT 106Q AR.MENU.FN.PUT 70Q AR.MENU.FN.GET 65Q MKATOM 62Q AR.GET.BUTTON.FIELD.AS.TEXT 34Q AR.MENU.FN.CLEAR 31Q AR.FORM.FILL.INS 13Q AR.MENU.FN.CLEAR) (302Q Get% From% File 271Q AR.GET/PUT.FILE.NAME 241Q AR.GET/PUT.FILE.NAME 222Q Get% From% File 201Q Put% To% File 173Q Get% From% File 140Q Put&Get 115Q Put&GetNext 77Q Put 57Q Number: 43Q Get 22Q New 4 Clear) ( 327Q "Unknown AR.FORM button name!" 235Q "Put File: " 230Q "Get File: " 211Q "") AR.FORM.MENU.ACTIONFN D1 (P 2 FORMWINDOW.TEXTOBJ P 1 FORMWINDOW P 0 MENUWINDOW.TEXTOBJ I 2 NUM.FOR.GET I 1 OPERATION I 0 MENUWINDOW) @g @g Ig ZIg HJoI hH J oI hHA JA hlHg@ I I AohI o H J @ I Ioo h(220Q SCROLLW 204Q AR.RECONNECT.WINDOW 200Q REDISPLAYW 174Q AR.MARK.ACTIVE 170Q AR.MARK.ACTIVE 164Q AR.FORM.MENU.ACTIONFNA0001 155Q AR.PROMPT 141Q AR.DISCONNECT.WINDOW 135Q CLEARW 131Q DSPFILL 117Q AR.MARK.ACTIVE 112Q AR.MARK.ACTIVE 103Q AR.PROMPT 72Q AR.TOBJ.ACTIVEP 65Q AR.TOBJ.ACTIVEP 57Q AR.PROMPT 42Q GETWINDOWUSERPROP 32Q GETWINDOWUSERPROP 20Q GETWINDOWUSERPROP 11Q GETWINDOWUSERPROP 2 ALLOW.BUTTON.EVENTS) (125Q PAINT 37Q TEXTSTREAM 27Q TEXTOBJ 15Q MAINWINDOW 6 TEXTOBJ) ( 215Q 0.0 211Q 0.0 161Q (AR.FORM.MENU.ACTIONFNA0001) 146Q " initiated..." 77Q "Edit or AR operation in progress -- please wait" 53Q "AR form munged!! --- Close this AR window and create another") AR.FORM.MENU.BUTTONFN D1 (I 2 WINDOW I 1 SEL I 0 OBJ) A @g (22Q AR.FORM.MENU.ACTIONFN 17Q IMAGEOBJPROP 10Q \TEDIT.PRIMARYW) (14Q MBTEXT 3 SELECTION) () AR.FORM.SAVEA0001A0002 D1 (F 0 OUTSTREAM F 1 RESETSTATE F 2 FORMWINDOW F 3 OUTSTREAMNAME) -Q*P P P oP ohR hc(47Q AR.PROMPT 33Q FULLNAME 23Q DELFILE 20Q FULLNAME 13Q CLOSEF 6 OPENP) NIL ( 37Q " deleted" 27Q "SAVE ERROR - bad bug report file ") AR.FORM.SAVEA0001 D1 (NAME ERRORSET P 12Q C P 11Q X P 7 TOBJ P 6 SEL P 5 FIELD.LEN P 4 FIELD.START P 3 BUTTON.OBJ P 2 CH# P 1 TOBJ P 0 FORMSTREAM F 13Q OUTSTREAM F 14Q RESETVARSLST F 15Q FORMWINDOW F 16Q RESETY)  gl hhWcghhhWcW W kSnW IJ ZW hciHJk H [g W Wl !Kg Kg JؼKg IJ ^N HLk Mk OOLH _3 oKg ohW !l Ol:Ol'Wl'!WO!Ok_W W JkZ-(405Q TERPRI 377Q TERPRI 344Q BLOCK 317Q AR.PROMPT 302Q IMAGEOBJPROP 242Q SETFILEPTR 215Q MBUTTON.FIND.NEXT.FIELD 206Q IMAGEOBJPROP 174Q IMAGEOBJPROP 163Q IMAGEOBJPROP 145Q PRIN1 140Q IMAGEOBJPROP 126Q SETFILEPTR 111Q CLOSEF 101Q MBUTTON.FIND.NEXT.BUTTON 73Q BLOCK 67Q LINELENGTH 53Q TEXTOBJ 46Q TEXTSTREAM 7 RADIX) (277Q MBTEXT 230Q SELECTION 221Q SELECTION 203Q AR.FIELD.LEN 171Q AR.FIELD.START 160Q AR.PROTECTED.FLG 135Q MBTEXT 25Q AR.FORM.SAVEA0001A0002 2 RADIX) ( 306Q " field -- ignored" 273Q "non-char found in ") AR.FORM.SAVE D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 OUTSTREAMNAME P 0 OUTSTREAM I 1 FILENAME I 0 FORMWINDOW F 5 LISPXHIST F 6 RESETVARSLST) 4Agg H YU!Vog hg\ LI(60Q ERROR! 52Q RESETRESTORE 40Q AR.FORM.SAVEA0001 20Q FULLNAME 11Q OPENSTREAM) (46Q ERROR 35Q INTERNAL 6 NEW 3 OUTPUT) ( 32Q (AR.FORM.SAVEA0001)) AR.GET.ARA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 NUM/OR/FILE F 2 RESETY) $gl hhPcoQohci(7 RADIX) (2 RADIX) ( 32Q " is already open --- Get aborted" 25Q "The file for AR ") AR.GET.ARA0002 D1 (NAME ERRORSET F 0 FILE F 1 ARSTREAM) Pgg ci(11Q OPENSTREAM) (6 OLD 3 INPUT) () AR.GET.ARA0003 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 NUM/OR/FILE F 2 RESETY) $gl hhPcoQohci(7 RADIX) (2 RADIX) ( 32Q " doesn't exist -- Get aborted" 25Q "AR ") AR.GET.ARA0004 D1 (NAME ERRORSET F 0 FORMWINDOW F 1 ARSTREAM) PQ i(4 AR.SCRATCH.LOAD) NIL () AR.GET.ARA0005 D1 (NAME ERRORSET F 0 FORMWINDOW) P i(3 AR.FORM.CLEAR) NIL () AR.GET.ARA0006 D1 (NAME ERRORSET F 0 FORMWINDOW) P i(3 AR.TEXTSTREAM.LOAD) NIL () AR.GET.ARA0007 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 FORMWINDOW F 2 RESETY) gl hhPcQg ci(30Q PUTWINDOWPROP 7 RADIX) (25Q AR.FORM.NUMBER 2 RADIX) () AR.GET.ARA0008 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 NUM/OR/FILE F 2 FORMWINDOW F 3 RESETY) $gl hhPcRgQ3Q ci(36Q PUTWINDOWPROP 7 RADIX) (25Q AR.FORM.NUMBER 2 RADIX) () AR.GET.ARA0009 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 FORMWINDOW F 2 NUM/OR/FILE F 3 RESETY) &gl hhPcQgoR ci(40Q PUTWINDOWPROP 35Q CONCAT 7 RADIX) (25Q TITLE 2 RADIX) ( 31Q "Editing AR ") AR.GET.AR D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 ARSTREAM P 1 FILE P 0 LOAD.ERROR I 1 NUM/OR/FILE I 0 FORMWINDOW F 6 LISPXHIST F 7 RESETVARSLST) :0Ad3 YdoAoh@ g 'V!Wog hg] ML?o &V!Wog hg] MLo ohhXJ:H1o o Oo@ V!Wog h@ H J g] M@go EV!Wog hg] MV!Wog hg] Mh(466Q ERROR! 457Q RESETRESTORE 445Q AR.GET.ARA0009 423Q ERROR! 415Q RESETRESTORE 403Q AR.GET.ARA0008 360Q PUTWINDOWPROP 343Q ERROR! 335Q RESETRESTORE 323Q CLOSEF 315Q OPENP 310Q AR.PROMPT 277Q AR.GET.ARA0007 256Q AR.PROMPT 244Q AR.GET.ARA0006 234Q AR.GET.ARA0005 205Q AR.GET.ARA0004 172Q ERROR! 164Q RESETRESTORE 152Q AR.GET.ARA0003 130Q AR.GET.ARA0002 114Q ERROR! 106Q RESETRESTORE 74Q AR.GET.ARA0001 52Q OPENP 43Q AR.PROMPT 16Q FULLNAME 12Q AR.GET.FILENAME) (453Q ERROR 442Q INTERNAL 411Q ERROR 400Q INTERNAL 351Q TITLE 331Q ERROR 274Q INTERNAL 160Q ERROR 147Q INTERNAL 102Q ERROR 71Q INTERNAL 46Q NO.FILE) ( 437Q (AR.GET.ARA0009) 375Q (AR.GET.ARA0008) 355Q "--- form inconsistant --- Please GET or NEW" 271Q (AR.GET.ARA0007) 252Q "UNKNOWN SCRATCH COPY ERROR --- form in inconsistant state --- Get aborted" 241Q (AR.GET.ARA0006) 231Q (AR.GET.ARA0005) 212Q "UNKNOWN LOAD ERROR --- Get aborted" 202Q (AR.GET.ARA0004) 144Q (AR.GET.ARA0003) 125Q (AR.GET.ARA0002) 66Q (AR.GET.ARA0001) 33Q " --- Get aborted" 26Q "Bad file number: ") AR.GET.ASSOCIATED.MENU.VAL D1 (P 0 BUTTON I 1 WINDOW I 0 OBJ) 0Ag @g Ho@g Hg (55Q IMAGEOBJPROP 44Q ERROR 41Q IMAGEOBJPROP 20Q AR.FIND.BUTTON 15Q IMAGEOBJPROP 6 GETWINDOWUSERPROP) (52Q AR.FIELD.VALUE 36Q AR.ASSOCIATED.MENU 12Q AR.ASSOCIATED.MENU 3 TEXTSTREAM) ( 32Q "Can't find associated menu value") AR.GET.BUTTON.FIELD.AS.TEXT D1 (P 4 SEL P 3 BUTTON P 2 OBJ P 1 CH# P 0 TOBJ I 1 BUTTON.NAME I 0 WINDOW) =@g j2IkԹHI [KAJg KHI oA (72Q ERROR 61Q MBUTTON.NEXT.FIELD.AS.TEXT 47Q IMAGEOBJPROP 26Q MBUTTON.FIND.NEXT.BUTTON 11Q TEXTOBJ 6 GETWINDOWUSERPROP) (44Q MBTEXT 3 TEXTSTREAM) ( 66Q "Can't find named button") AR.GET.MENU.FROM.MAIN.WINDOW D1 (P 0 ATTACHEDWINDOWS I 0 FORMWINDOW) @ H lHH(12Q LENGTH 3 ALLATTACHEDWINDOWS) NIL () AR.GET.NEXTA0001 D1 (NAME ERRORSET F 0 AR.NEXT.NUM F 1 ARSTREAM) P gg ci(14Q OPENSTREAM 3 AR.FILENAME) (11Q OLD 6 INPUT) () AR.GET.NEXTA0002 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 AR.NEXT.NUM F 2 FORMWINDOW F 3 RESETY) Bgl hhPcoQohR o Q o h ci(74Q TERPRI 67Q PRIN1 57Q PRIN1 52Q PRIN1 42Q AR.PROMPT 7 RADIX) (2 RADIX) ( 64Q " doesn't exist, checking next ar" 47Q "ar #" 32Q " doesn't exist, checking next ar" 25Q "ar #") AR.GET.NEXT D1 (P 6 RESETZ P 5 RESETY P 4 LISPXHIST P 3 ARSTREAM P 2 ARDONEFLG P 1 AR.NEXT.NUM P 0 AR.LIMIT I 0 FORMWINDOW F 7 LISPXHIST F 10Q RESETVARSLST) b@ @g "J(IkYH o@ io K @I hJW!Wog hg^ N(134Q ERROR! 126Q RESETRESTORE 114Q AR.GET.NEXTA0002 66Q AR.MENU.FN.GET 60Q CLOSEF 53Q AR.GET.NEXTA0001 41Q AR.PROMPT 30Q EQP 12Q GETWINDOWUSERPROP 3 AR.JUST.GET.SUBMIT.NUM) (122Q ERROR 111Q INTERNAL 7 AR.FORM.NUMBER) ( 106Q (AR.GET.NEXTA0002) 50Q (AR.GET.NEXTA0001) 35Q "Next AR hasn't been submitted yet") AR.GET.SUBMIT.NUMA0001 D1 (NAME ERRORSET F 0 AR.SUBMIT.NUM.FILE.NAME) Pggo h(15Q OPENSTREAM) (6 OLD 3 BOTH) ( 12Q ((DON'T.CACHE T) (DON'TCACHE T))) AR.GET.SUBMIT.NUMA0002 D1 (NAME ERRORSET F 0 SUBMIT.NUM.FILE F 1 CURR.NEXT.NUM) $Pj P c3 Pj QkP h(37Q PRINT 27Q SETFILEPTR 21Q ERROR! 11Q READ 4 SETFILEPTR) NIL () AR.GET.SUBMIT.NUM D1 (P 4 X P 2 CURR.NEXT.NUM P 1 VAL P 0 SUBMIT.NUM.FILE I 0 FORMWINDOW F 5 AR.SUBMIT.NUM.FILE.NAME) Z0U hl kLK1U o X!oUoh@ n Lk\Ho YH IJ(123Q CLOSEF 116Q AR.GET.SUBMIT.NUMA0002 74Q DISMISS 65Q AR.PROMPT 40Q AR.GET.SUBMIT.NUMA0001 30Q OPENP 6 INFILEP) NIL ( 113Q (AR.GET.SUBMIT.NUMA0002) 55Q " --- please wait" 50Q "submit number file busy: " 35Q (AR.GET.SUBMIT.NUMA0001)) AR.GET.BUTTON.FIELD.AS.LISTA0001 D1 (NAME ERRORSET F 0 STR) P h(3 READ) NIL () AR.GET.BUTTON.FIELD.AS.LIST D1 (P 4 READ.VAL P 0 STR I 1 FIELD.NAME I 0 FORMWINDOW) )@A Ao \IJ KhZK&(21Q AR.GET.BUTTON.FIELD.AS.LISTA0001 7 OPENSTRINGSTREAM 4 AR.GET.BUTTON.FIELD.AS.TEXT) NIL ( 16Q (AR.GET.BUTTON.FIELD.AS.LISTA0001)) AR.GET.FILENAME D1 (I 1 PUTFLG I 0 NUM) @d@ (14Q AR.FILENAME) NIL () AR.MARK.ACTIVE D1 (L (1 OP 0 TOBJ)) @dA>ANIL (5 TEXTOBJ) () AR.MENU.CR.FN D1 (I 1 TOBJ I 0 TSTREAM) A A g (15Q AR.FORM.MENU.ACTIONFN 7 \TEDIT.PRIMARYW 3 AR.MARK.ACTIVE) (12Q Get) () AR.MENU.FN.CLEAR D1 (I 1 FILL.INS I 0 FORMWINDOW) 6@ o@ h@ @g @A @go o@ h(62Q AR.PROMPT 52Q PUTWINDOWPROP 37Q AR.FORM.CLEAR 32Q PUTWINDOWPROP 23Q CLEARW 14Q AR.CONFIRM 3 TEDIT.STREAMCHANGEDP) (43Q TITLE 27Q AR.FORM.NUMBER) ( 56Q "New form cleared" 47Q "New Bug Report" 10Q "Form has been changed --- confirm CLEAR") AR.MENU.FN.GETA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 CURR.NUM F 2 FORMWINDOW F 3 RESETY) (gl hhPcoQohR ci(42Q AR.PROMPT 7 RADIX) (2 RADIX) ( 32Q " ..." 25Q "Retrieving AR ") AR.MENU.FN.GETA0002 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 CURR.NUM F 2 FORMWINDOW F 3 RESETY) (gl hhPcoQohR ci(42Q AR.PROMPT 7 RADIX) (2 RADIX) ( 32Q "%" --- Get aborted" 25Q "Bad number %"") AR.MENU.FN.GETA0003 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 CURR.NUM F 2 FORMWINDOW F 3 RESETY) (gl hhPcoQohR ci(42Q AR.PROMPT 7 RADIX) (2 RADIX) ( 32Q " retrieved" 25Q "AR ") AR.MENU.FN.GET D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 BAD.GET I 1 CURR.NUM I 0 FORMWINDOW F 4 LISPXHIST F 5 RESETVARSLST) A3 G@ o@ o@ hT!Uog hg[ K@A )iX&T!Uog hg[ KiH+T!Uog hg[ K@ A h(233Q AR.JUST.PRINT.AR.NUM 227Q AR.GET.MENU.FROM.MAIN.WINDOW 221Q ERROR! 213Q RESETRESTORE 201Q AR.MENU.FN.GETA0003 153Q ERROR! 145Q RESETRESTORE 133Q AR.MENU.FN.GETA0002 106Q AR.GET.AR 77Q ERROR! 71Q RESETRESTORE 57Q AR.MENU.FN.GETA0001 36Q AR.PROMPT 25Q AR.CONFIRM 13Q TEDIT.STREAMCHANGEDP) (207Q ERROR 176Q INTERNAL 141Q ERROR 130Q INTERNAL 65Q ERROR 54Q INTERNAL) ( 173Q (AR.MENU.FN.GETA0003) 125Q (AR.MENU.FN.GETA0002) 51Q (AR.MENU.FN.GETA0001) 32Q "Get aborted" 21Q "Form has been changed --- confirm GET") AR.MENU.FN.PUTA0001 D1 (NAME ERRORSET F 0 CURR.NUM F 1 FORMWINDOW F 2 EDIT.CHANGES.LIST F 3 SUBMIT.NUM) PQgPRQgSh i(31Q AR.UPDATE.AR.INFO 23Q DATE 20Q AR.USERNAME) (14Q SUBMIT 5 EDIT) () AR.MENU.FN.PUTA0002 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 CURR.NUM F 2 FORMWINDOW F 3 RESETY) (gl hhPcoQohR ci(42Q AR.PROMPT 7 RADIX) (2 RADIX) ( 32Q " ..." 25Q "Saving AR ") AR.MENU.FN.PUTA0003 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 CURR.NUM F 2 FORMWINDOW F 3 RESETY) 7gl hhPcoQhR RgoQo ci(61Q PUTWINDOWPROP 56Q CONCAT 35Q AR.PROMPT 7 RADIX) (42Q TITLE 2 RADIX) ( 53Q " --- saved" 46Q "Editing AR " 25Q "Saved AR ") AR.MENU.FN.PUTA0004 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 SUBMIT.NUM F 2 FORMWINDOW F 3 RESETY) #gl hhPcoQhR ci(35Q AR.PROMPT 7 RADIX) (2 RADIX) ( 25Q "Bug Report Submitted -- AR # ") AR.MENU.FN.PUT D1 (P 20Q RESETZ P 17Q RESETY P 16Q LISPXHIST P 15Q X P 11Q SEL P 10Q BUTTON P 7 TSTREAM P 6 SUBMIT.NUM P 5 EDIT.CHANGES.STRING P 4 EDIT.CHANGES.LIST P 3 SAVE.VALUE P 2 CHECK.VALUE P 1 FILE P 0 CURR.NUM I 0 FORMWINDOW F 21Q LISPXHIST F 22Q RESETVARSLST) K@g a@ o@ o@ hH@ @ ! @g _Og o O O _0 LOd OLl ohOi Odohohh _OEO__O OMOO hi @ghghh6 _Oo@ @ ^9@gNhh @ghh @ ZoJo @ ho@ ho@ o o@ h@ H*W"!W$og hg_ O @Ho@ @Ni @i KH2W"!W$og hg_ O @gHM ]W"!W$og hg_ O @g @gN @goNo @gN o@ @ h(1107Q REDISPLAYW 1102Q AR.PUT.FAILED 1071Q AR.SEND.MESSAGE 1060Q PUTWINDOWPROP 1055Q CONCAT 1034Q PUTWINDOWPROP 1023Q PUTWINDOWPROP 1012Q ERROR! 1003Q RESETRESTORE 770Q AR.MENU.FN.PUTA0004 745Q AR.SEND.MESSAGE 732Q ERROR! 723Q RESETRESTORE 710Q AR.MENU.FN.PUTA0003 657Q TEDIT.STREAMCHANGEDP 651Q AR.FORM.SAVE 646Q AR.GET.FILENAME 637Q AR.PROMPT 622Q ERROR! 613Q RESETRESTORE 600Q AR.MENU.FN.PUTA0002 554Q CLEARW 546Q AR.PUT.FAILED 535Q AR.MENU.FN.PUTA0001 526Q AR.PROMPT 514Q AR.PUT.FAILED 502Q AR.PUT.FAILED 476Q CONCAT 457Q AR.CHECK.FIELDS 452Q AR.REPLACE.FILL.INS 442Q DATE 432Q AR.REPLACE.FILL.INS 412Q AR.GET.SUBMIT.NUM 405Q AR.PROMPT 366Q LAST 353Q DATE 342Q AR.USERNAME 332Q TEDIT.INSERT 301Q CONCATLIST 247Q \APPEND2 244Q \APPEND2 210Q UNPACK 172Q CHARACTER 142Q MBUTTON.FIND.NEXT.FIELD 134Q TEXTOBJ 126Q SHOULDNT 116Q IMAGEOBJPROP 102Q AR.FIND.BUTTON 70Q TEXTSTREAM 61Q AR.FIND.EDIT.CHANGES 55Q DATE 52Q AR.USERNAME 40Q AR.PROMPT 27Q AR.CONFIRM 15Q TEDIT.STREAMCHANGEDP 6 GETWINDOWUSERPROP) (1065Q SUBMIT 1041Q TITLE 1030Q AR.FORM.NUMBER 1020Q AR.FORM.SCRATCH.MAP 776Q ERROR 765Q INTERNAL 740Q EDIT 716Q ERROR 705Q INTERNAL 606Q ERROR 575Q INTERNAL 437Q Date: 421Q Number: 350Q Edit-Date: 337Q Edit-By: 321Q SELECTION 312Q SELECTION 113Q AR.PROTECTED.FLG 77Q Disposition: 3 AR.FORM.NUMBER) ( 1076Q "Unknown bug -- AR not saved -- try again" 1052Q " --- saved" 1045Q "Editing AR " 762Q (AR.MENU.FN.PUTA0004) 702Q (AR.MENU.FN.PUTA0003) 633Q "Submitting AR ..." 572Q (AR.MENU.FN.PUTA0002) 542Q "Cannot update TDS file --- Put aborted -- try again" 532Q (AR.MENU.FN.PUTA0001) 522Q "Updating TDS file..." 510Q "Can't get AR submit number --- Put Aborted --- Try again" 473Q " --- Put Aborted" 466Q "Bad bug report form: " 401Q "Getting Submit number..." 235Q " " 222Q "]" 176Q "[" 123Q "Bad Disposition field -- can't insert edit marks" 34Q "Put aborted" 23Q "Form has NOT been changed --- confirm PUT") AR.PROMPT D1 (P 1 X P 0 PWINDOW I 1 FORMWINDOW I 0 WORDS) *Al H @ddIH H h(46Q PRIN1 34Q PRIN1 14Q CLEARW 5 GETPROMPTWINDOW) NIL () AR.PROTECT.WARNING D1 (I 2 WINDOW I 1 SEL I 0 OBJ) o@g ohB (26Q AR.PROMPT 12Q IMAGEOBJPROP) (7 MBTEXT) ( 16Q "%" is protected from editing" 3 "The field %"") AR.PUT.FAILED D1 (P 1 X I 1 FORMWINDOW I 0 MSG) 4lkIHAk IkY@ddhA Ag@ (61Q PUTWINDOWPROP 56Q MKSTRING 46Q AR.PROMPT 22Q FLASHWINDOW 14Q RINGBELLS) (52Q TITLE) () AR.RECONNECT.WINDOW D1 (P 0 TOBJ I 0 FORMWINDOW) .@g H@hHk@g k H h(52Q TEDIT.UPDATE.SCREEN 46Q \TEDIT.MARK.LINES.DIRTY 41Q GETEOFPTR 36Q GETWINDOWUSERPROP 11Q TEXTOBJ 6 GETWINDOWUSERPROP) (33Q TEXTSTREAM 20Q TEXTOBJ 3 TEXTSTREAM) () AR.REPLACE.FIELD.VALA0001 D1 (NAME ERRORSET P 3 SEL P 2 INSERT.CH# P 1 NEWVAL.NCHARS P 0 STREAM F 4 OBJ F 5 NEWVAL F 6 CH# F 7 WINDOW F 10Q MACROY) W U "Tg RTg VغHJTg Ij#HUddd J HoJI TgI TgU MH V [ o KHJK Ij$HUddd J HoJI hci(257Q TEDIT.LOOKS 244Q TEDIT.INSERT 240Q MKSTRING 211Q TEDIT.DELETE 166Q SHOULDNT 154Q MBUTTON.FIND.NEXT.FIELD 150Q TEXTOBJ 142Q IMAGEOBJPROP 131Q IMAGEOBJPROP 120Q TEDIT.LOOKS 105Q TEDIT.INSERT 101Q MKSTRING 52Q TEDIT.DELETE 47Q IMAGEOBJPROP 33Q IMAGEOBJPROP 22Q IMAGEOBJPROP 10Q NCHARS 4 TEXTSTREAM) (204Q SELECTION 173Q SELECTION 136Q AR.FIELD.VALUE 125Q AR.FIELD.LEN 44Q AR.FIELD.LEN 30Q AR.FIELD.START 17Q AR.PROTECTED.FLG) ( 252Q (PROTECTED OFF) 163Q "Can't find button field" 113Q (PROTECTED ON)) AR.REPLACE.FIELD.VAL D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 3 NEWVAL I 2 WINDOW I 1 CH# I 0 OBJ F 4 RESETVARSLST) <l 1gHhhTcYog gIcgI KJ(67Q ERROR! 62Q APPLY 37Q AR.REPLACE.FIELD.VALA0001 4 RADIX) (53Q RADIX 43Q ERROR 34Q INTERNAL 12Q RADIX) ( 31Q (AR.REPLACE.FIELD.VALA0001)) AR.REPLACE.FILL.INS D1 (P 3 BUTTON P 2 X P 1 FORMSTREAM I 1 FILL.INS I 0 FORMWINDOW) 0A@ "HhIJ [HXKIJ (53Q AR.REPLACE.FIELD.VAL 31Q AR.FIND.BUTTON 22Q BLOCK 4 TEXTSTREAM) NIL () AR.RESET.SEL D1 (I 0 WINDOW) @g @g jg (27Q TEDIT.SETSEL 20Q AR.FIND.UNPROTECTED.CH# 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (24Q LEFT 12Q TEXTSTREAM 3 TEXTSTREAM) () AR.SCRATCH.LOAD D1 (P 0 SCRATCH.STREAM I 1 ARSTREAM I 0 FORMWINDOW) @@g HH @gggg X Hj Aj @gAH h(74Q PUTWINDOWPROP 71Q AR.COPY.AND.INDEX.AR 60Q SETFILEPTR 53Q SETFILEPTR 45Q PUTWINDOWPROP 41Q OPENSTREAM 17Q OPENP 6 GETWINDOWUSERPROP) (64Q AR.FORM.SCRATCH.MAP 36Q NEW 33Q BOTH 30Q {NODIRCORE} 25Q AR.FORM.SCRATCH.STREAM 3 AR.FORM.SCRATCH.STREAM) () AR.SEND.MESSAGEA0001 D1 (NAME ERRORSET F 0 TXT F 1 RESETVARSLST F 2 RESETY F 3 OPERATION F 4 NUM) ?gl hhQcoP SgooP ToP ci(71Q PRIN1 55Q PRIN1 31Q PRIN1 7 RADIX) (36Q SUBMIT 2 RADIX) ( 65Q "" 51Q "Edited AR " 44Q "Submitted AR " 25Q "Subject: ") AR.SEND.MESSAGE D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 SUBM P 1 TXT P 0 RECIPIENTS I 3 EDIT.CHANGES.STRING I 2 NUM I 1 OPERATION I 0 FORMWINDOW F 6 AR.NO.MESSAGE.FLG F 7 LAFITEEDITORFONT F 10Q LISPXHIST F 11Q RESETVARSLST) 0Vg o h@g X@g ZAg!doHdoooJ XHooohddgWh YnI W!Wog hg] MoI @g I I oI HI I I Ag@g CI I I gIddi3 gIhhgg h(414Q ADD.PROCESS 353Q TERPRI 346Q TERPRI 341Q PRIN1 333Q AR.GET.BUTTON.FIELD.AS.TEXT 315Q TERPRI 310Q TERPRI 303Q PRIN1 275Q PRIN1 264Q TERPRI 257Q PRIN1 253Q AR.GET.BUTTON.FIELD.AS.TEXT 243Q PRIN1 231Q ERROR! 223Q RESETRESTORE 211Q AR.SEND.MESSAGEA0001 170Q LINELENGTH 160Q OPENTEXTSTREAM 117Q CONCAT 52Q AR.GET.BUTTON.FIELD.AS.TEXT 42Q AR.GET.BUTTON.FIELD.AS.TEXT 31Q PROMPTPRINT 21Q LAFITEMODE 15Q \DEFINEDP) (411Q MESSAGESENDER 406Q NAME 374Q QUOTE 356Q \SENDMESSAGE 330Q Description: 322Q SUBMIT 250Q Subject: 217Q ERROR 206Q INTERNAL 147Q FONT 57Q EDIT 47Q Submitter: 37Q Attn: 12Q LAFITEMODE) ( 271Q "To: " 237Q ": " 203Q (AR.SEND.MESSAGEA0001) 141Q "" 134Q ">>Recipients<<" 126Q "" 113Q ", " 106Q "" 100Q "" 67Q "" 26Q "Can't send AR message -- LAFITE not turned on") AR.TEXTSTREAM.LOAD D1 (P 16Q X P 14Q SCRATCH.PTR P 13Q SCRATCH.MAP.SPEC P 12Q SEL P 11Q TOBJ P 10Q FIELD.CH# P 7 PROTECT.FIELD.FLG P 6 BUTTON P 5 OBJ P 4 FIELD.LEN P 3 CH# P 2 FORMSTREAM P 1 SCRATCH.MAP P 0 SCRATCH.STREAM I 1 FILL.INS I 0 FORMWINDOW) @@g @g @g jd J _KkԻOK ^NNMg _Mg KذOK _ o O_JOk Mg I _o Mgh _OJOjghi LjJHOdL ONMgL MgHO Lk2OO$H _"O O"h_ _Ok_O"&_ O Lj JOooOL @A @g i h(474Q TEDIT.STREAMCHANGEDP 470Q GETWINDOWUSERPROP 461Q AR.REPLACE.FILL.INS 450Q TEDIT.LOOKS 421Q EQP 413Q IMAGEOBJPROP 410Q PACKC 323Q SETFILEPTR 310Q IMAGEOBJPROP 273Q TEDIT.INCLUDE 254Q TEDIT.SETSEL 221Q IMAGEOBJPROP 210Q HELP 175Q ASSOC 171Q IMAGEOBJPROP 161Q SETFILEPTR 136Q HELP 123Q MBUTTON.FIND.NEXT.FIELD 111Q IMAGEOBJPROP 77Q IMAGEOBJPROP 61Q BLOCK 51Q MBUTTON.FIND.NEXT.BUTTON 35Q TEXTOBJ 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (465Q TEXTSTREAM 315Q AR.FIELD.VALUE 304Q AR.FIELD.LEN 246Q LEFT 215Q AR.FIELD.VALUE 166Q MBTEXT 144Q SELECTION 106Q AR.FIELD.START 74Q AR.PROTECTED.FLG 21Q TEXTSTREAM 12Q AR.FORM.SCRATCH.MAP 3 AR.FORM.SCRATCH.STREAM) ( 442Q (PROTECTED OFF) 435Q (PROTECTED ON) 205Q "Null scatch map spec" 133Q "Can't find field for button") AR.TOBJ.ACTIVEP D1 (L (0 TOBJ)) @d>NIL (6 TEXTOBJ) () AR.UPDATE.AR.INFOA0001 D1 (NAME ERRORSET F 0 AR.INFO.FILE.NAME) Pggo h(15Q OPENSTREAM) (6 OLD 3 APPEND) ( 12Q ((DON'T.CACHE T) (DON'TCACHE T))) AR.UPDATE.AR.INFOA0002 D1 (NAME ERRORSET F 0 INFO.FILE F 1 RESETVARSLST F 2 OP F 3 RESETY F 4 AR.INFO F 5 USER.INFO) Ygl hhQcgPhhhQcnP oP RTUhP P Rdg𑿅ghci(102Q TERPRI 75Q PRIN1 61Q PRIN1 50Q LINELENGTH 7 RADIX) (117Q EDIT 110Q SUBMIT 24Q CLOSEF 2 RADIX) ( 55Q " -- ") AR.UPDATE.AR.INFO D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 X P 0 INFO.FILE I 3 USER.INFO I 2 AR.INFO I 1 OP I 0 FORMWINDOW F 6 AR.INFO.FILE.NAME F 7 LISPXHIST F 10Q RESETVARSLST) V Vggo X>l kJI1V o X!oVoh@ n JkZHW!Wog hg] Mh(174Q ERROR! 165Q RESETRESTORE 153Q AR.UPDATE.AR.INFOA0002 131Q ERROR 114Q DISMISS 105Q AR.PROMPT 60Q AR.UPDATE.AR.INFOA0001 50Q OPENP 26Q OPENSTREAM 6 INFILEP) (161Q ERROR 150Q INTERNAL 17Q NEW 14Q OUTPUT) ( 145Q (AR.UPDATE.AR.INFOA0002) 75Q " --- please wait" 70Q "info file busy: " 55Q (AR.UPDATE.AR.INFOA0001) 23Q ((DON'T.CACHE T) (DON'TCACHE T))) AR.USERNAME D1 (P 0 NAM) H Hi H(17Q L-CASE 11Q U-CASEP 2 FULLUSERNAME) NIL () IMAGEOBJPROPS.MACRO D1 (I 0 X) Bgg@hh@@ [ggKKhIHhZH&Jo (75Q \APPEND2) (31Q OBJ 26Q IMAGEOBJPROP 5 OBJ 2 PROG) ( 72Q ((RETURN OBJ))) AR.ENTRY.LIST.AND D1 (P 4 X I 1 B I 0 A) 2@iAAi@@AHI\A LJ KhZHXK&(33Q MEMBER) NIL () AR.ENTRY.LIST.OR D1 (P 2 X P 0 VAL I 1 B I 0 A) 0@iAii@ AIH Z@ JHIY(44Q MEMBER 35Q SORT 15Q \APPEND2) NIL () AR.ENTRY.LIST.WINDOW.REPAINTFNA0001 D1 (NAME ERRORSET P 26Q X P 24Q FIELD.VAL P 23Q FIELD.WIDTH P 22Q FIELD.NAME P 21Q FIELD.SPEC P 17Q ENTRY P 16Q ENTRY.DATA P 15Q CNT P 12Q #LINES P 11Q LINENUM P 10Q ENTRIES.TO.PRINT P 7 LINE.HEIGHT P 6 ENTRY.ALIST P 5 AR.INDEX.FIELD.LIST P 4 AR.INDEX.FIELD.SPECS P 3 AR.INDEX.ENTRY.SIZE P 2 AR.INDEX.ENTRY.END.PTR P 1 AR.INDEX.ENTRY.BEGIN.PTR P 0 AR.INDEX.FILE F 27Q WINDOW F 30Q REGION F 31Q AR.INDEX.MONITORLOCK F 32Q AR.ENTRY.LIST.WINDOW.FIELDS F 33Q RESETY) zW2hi `W.g g W.g W.g g jhW. 2 jW0W0kOk_W0Ol_OjhNO _W0jhW. jW. jOOW. OOk#O hc6i_OOO_OOgOg hW4AO W. O_Ok__"_$O"_&OO$ _(OO$ _(OO$O( O( O&O(W. O&O( W. %O&kO,O*O(O, W. O,k_,oW. O _ d(557Q PRIN1 534Q PRIN1 527Q NTHCHAR 500Q SPACES 472Q NCHARS 462Q PRIN1 446Q NCHARS 440Q LISTPUT 423Q AR.GET.FIELD.VAL 410Q LISTGET 342Q TERPRI 315Q AR.GET.FIELD.VAL 224Q DSPYPOSITION 207Q DSPXPOSITION 200Q DSPFILL 164Q NTH 75Q DSPLINEFEED 66Q GETWINDOWUSERPROP 60Q GETWINDOWUSERPROP 47Q AR.INDEX.FILE.REOPEN 44Q GETWINDOWUSERPROP 33Q AR.INDEX.DATA.UNPACK 30Q GETWINDOWUSERPROP 22Q GETWINDOWUSERPROP 6 OBTAIN.MONITORLOCK) (312Q Number: 305Q Number: 63Q AR.ENTRY.ALIST 55Q MAINWINDOW 41Q MAINWINDOW 25Q AR.INDEX.DATA 17Q MAINWINDOW) ( 552Q " ") AR.ENTRY.LIST.WINDOW.REPAINTFN D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 REGION I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q AR.ENTRY.LIST.WINDOW.REPAINTFNA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (AR.ENTRY.LIST.WINDOW.REPAINTFNA0001)) AR.ENTRY.LIST.WINDOW.BUTTONEVENTFNA0001 D1 (NAME ERRORSET P 5 AR.INDEX.FIELD.LIST P 4 AR.INDEX.FIELD.SPECS P 3 AR.INDEX.ENTRY.SIZE P 2 AR.INDEX.ENTRY.END.PTR P 1 AR.INDEX.ENTRY.BEGIN.PTR P 0 AR.INDEX.FILE F 6 WINDOW F 7 AR.INDEX.MONITORLOCK F 10Q SELECTED.ENTRY.DATA F 11Q RESETY) 6Whi `Vg g Vg Wg ci(57Q AR.GET.FIELD.VAL 45Q AR.INDEX.FILE.REOPEN 42Q GETWINDOWUSERPROP 32Q AR.INDEX.DATA.UNPACK 27Q GETWINDOWUSERPROP 21Q GETWINDOWUSERPROP 6 OBTAIN.MONITORLOCK) (54Q Number: 37Q MAINWINDOW 24Q AR.INDEX.DATA 16Q MAINWINDOW) () AR.ENTRY.LIST.WINDOW.BUTTONEVENTFN D1 (P 16Q RESETZ P 15Q RESETY P 14Q LISPXHIST P 13Q NEWLINENUM P 12Q CREG.WIDTH P 11Q CREG.LEFT P 10Q SELECTED.ENTRY.NUMBER P 7 SELECTED.ENTRY.DATA P 6 SELECTED.LINENUM P 5 LINENUM P 4 SELECTED.WITH.MIDDLE.BUTTON.FLG P 3 POS P 2 LINE.HEIGHT P 1 ENTRY.ALIST P 0 CREG I 0 WINDOW F 17Q LISPXHIST F 20Q RESETVARSLST) ^`ljNh@ @g g jh@ hh`kjhe Loo@g H_H_ `ljMhHh@K [ hjKJk_M SMddOjMJOJ ng@ OdddOjOJOJ ng@ OOxo@g NgNjgMhIN _gg )W!W og hg_ OO_L@O O h(532Q AR.SHOW 524Q AR.EDIT.USING.CORRESPONDING.FORM 506Q ERROR! 477Q RESETRESTORE 464Q AR.ENTRY.LIST.WINDOW.BUTTONEVENTFNA0001 441Q LISTGET 421Q NTH 400Q ALLOW.BUTTON.EVENTS 367Q AR.PROMPT 364Q GETWINDOWUSERPROP 336Q DSPFILL 324Q CREATEREGION 265Q DSPFILL 253Q CREATEREGION 217Q EQP 176Q INSIDEP 172Q CURSORPOSITION 144Q GETMOUSESTATE 140Q BLOCK 120Q AR.PROMPT 115Q GETWINDOWUSERPROP 56Q GETMOUSESTATE 47Q DSPLINEFEED 41Q GETWINDOWUSERPROP 33Q GETWINDOWUSERPROP 24Q DSPCLIPPINGREGION 2 GETMOUSESTATE) (472Q ERROR 461Q INTERNAL 436Q Number: 431Q NoNumOnLine 407Q BadLineNum 374Q NotInsideWindow 361Q MAINWINDOW 332Q INVERT 261Q INVERT 150Q LASTMOUSEBUTTONS 112Q MAINWINDOW 62Q LASTMOUSEBUTTONS 36Q AR.ENTRY.ALIST 30Q MAINWINDOW 6 LASTMOUSEBUTTONS) ( 456Q (AR.ENTRY.LIST.WINDOW.BUTTONEVENTFNA0001) 355Q "" 106Q "Select AR to be displayed with AR.SHOW" 101Q "Select AR to be edited with AREDIT") AR.EDIT.USING.CORRESPONDING.FORM D1 (P 2 POSSIBLE.WINDOW P 0 MENU.WINDOW I 1 NUM I 0 WINDOW) @g HH H Hg go@g  o@g Hhdg H IhX0o@g hZ Jg gJiIY@gH HdgA (256Q AR.FORM.MENU.ACTIONFN 242Q PUTWINDOWPROP 212Q GETWINDOWUSERPROP 201Q OPENWP 172Q AR.PROMPT 167Q GETWINDOWUSERPROP 140Q \APPEND2 135Q ALLATTACHEDWINDOWS 127Q GETWINDOWUSERPROP 112Q AR.PROMPT 107Q GETWINDOWUSERPROP 73Q WHICHW 70Q GETPOSITION 64Q AR.PROMPT 61Q GETWINDOWUSERPROP 36Q GETWINDOWUSERPROP 26Q OPENWP 20Q WINDOWP 6 GETWINDOWUSERPROP) (252Q Get 236Q AR.ASSOCIATED.AREDIT.MENU.WINDOW 215Q AR.FORM.MENU 207Q AR.WINDOW.PROC.NAME 164Q MAINWINDOW 124Q MAINWINDOW 104Q MAINWINDOW 56Q MAINWINDOW 41Q AR.FORM.MENU 33Q AR.WINDOW.PROC.NAME 3 AR.ASSOCIATED.AREDIT.MENU.WINDOW) ( 160Q "Bad AR edit window selected" 100Q "" 52Q "Please button the AR Edit window you wish to use") AR.GATHER.NEW.AR.DATAA0001 D1 (NAME ERRORSET F 0 AR.FILE.NAME F 1 ARSTREAM) Pgg ci(11Q OPENSTREAM) (6 OLD 3 INPUT) () AR.GATHER.NEW.AR.DATAA0002A0003A0004 D1 (I 1 PTR I 0 FILE F 0 RESETSTATE) P@A (7 SETFILEPTR) NIL () AR.GATHER.NEW.AR.DATAA0002A0003 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 ARSTREAM F 2 AR.SCRATCH.FILE F 3 RESETY F 4 AR.INDEX.FIELD.LIST F 5 INDEX.INFO) 2gQhhhPcgRd hhhPcQRT c ci(52Q AR.COPY.AND.INDEX.AR 27Q GETFILEPTR) (22Q AR.GATHER.NEW.AR.DATAA0002A0003A0004 2 CLOSEF) () AR.GATHER.NEW.AR.DATAA0002 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ Ji(36Q ERROR! 30Q RESETRESTORE 16Q AR.GATHER.NEW.AR.DATAA0002A0003) (24Q ERROR 13Q INTERNAL) ( 10Q (AR.GATHER.NEW.AR.DATAA0002A0003)) AR.GATHER.NEW.AR.DATAA0005 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 AR.NUM F 2 FORMWINDOW F 3 RESETY) #gl hhPcoQhR ci(35Q AR.PROMPT 7 RADIX) (2 RADIX) ( 25Q "analyzed AR # ") AR.GATHER.NEW.AR.DATAA0006 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 AR.NUM F 2 FORMWINDOW F 3 RESETY) #gl hhPcoQhR ci(35Q AR.PROMPT 7 RADIX) (2 RADIX) ( 25Q "Can't get AR info for AR # ") AR.GATHER.NEW.AR.DATA D1 (P 14Q X P 13Q RESETZ P 12Q RESETY P 11Q LISPXHIST P 10Q RESETZ P 7 RESETY P 6 LISPXHIST P 5 INDEX.INFO P 4 AR.FILE.NAME P 3 ARSTREAM P 2 AR.NUM P 0 AR.NUM.DATA I 2 AR.SCRATCH.FILE I 1 AR.NUM.LIST I 0 FORMWINDOW F 15Q LISPXHIST F 16Q RESETVARSLST) AAI H XHJ \W!Wog FhF o o W! Wog hg_ OJhMg_ OJhgHIYqd OO H(247Q AR.INDEX.FIND.ENTRY.PTR 207Q ERROR! 200Q RESETRESTORE 161Q ERROR! 152Q RESETRESTORE 137Q AR.GATHER.NEW.AR.DATAA0005 114Q AR.GATHER.NEW.AR.DATAA0002 103Q AR.GATHER.NEW.AR.DATAA0001 72Q OPENP 62Q AR.GATHER.NEW.AR.DATAA0006 36Q AR.GET.FILENAME 31Q BLOCK 16Q REVERSE) (216Q DELETE 173Q ERROR 145Q ERROR 134Q INTERNAL 57Q INTERNAL) ( 131Q (AR.GATHER.NEW.AR.DATAA0005) 111Q (AR.GATHER.NEW.AR.DATAA0002) 100Q (AR.GATHER.NEW.AR.DATAA0001) 54Q (AR.GATHER.NEW.AR.DATAA0006)) AR.GET.ENTRY.NUM D1 (I 0 PTR F 0 AR.INDEX.FILE F 1 AR.INDEX.ENTRY.END.PTR) Q@oP@ P (21Q \DWIN 15Q SETFILEPTR) NIL ( 7 17777777777Q) AR.GET.FIELD.VAL.DATA D1 (I 4 FIELD.VAL.END.PTR I 3 FIELD.VAL.BEGIN.PTR I 2 FIELD.OFFSET I 1 FIELD.NAME I 0 ENTRY.PTR F 0 AR.INDEX.FIELD.SPECS) 7BAP g bCAP g b@ABCD @ABCD (63Q AR.GET.FIELD.VAL.LENGTH 52Q AR.GET.FIELD.VAL.PTR 36Q LISTGET 27Q ASSOC 15Q LISTGET 6 ASSOC) (33Q FIELD.BEGIN.PTR 12Q FIELD.OFFSET) () AR.GET.FIELD.VAL.LENGTH D1 (P 2 NEXT.RELPTR P 1 CURRENT.RELPTR P 0 NEXT.ENTRY.PTR I 4 FIELD.VAL.END.PTR I 3 FIELD.VAL.BEGIN.PTR I 2 FIELD.OFFSET I 1 FIELD.NAME I 0 ENTRY.PTR F 3 AR.INDEX.FILE F 4 AR.INDEX.FIELD.SPECS F 5 AR.INDEX.ENTRY.END.PTR F 6 AR.INDEX.ENTRY.SIZE) `U@Z@V!BAT g bS@B S YUHSHB S !DAT g CAT g dIj(127Q LISTGET 120Q ASSOC 110Q LISTGET 101Q ASSOC 67Q \DWIN 62Q SETFILEPTR 46Q \DWIN 42Q SETFILEPTR 30Q LISTGET 21Q ASSOC) (124Q FIELD.BEGIN.PTR 105Q FIELD.END.PTR 25Q FIELD.OFFSET) () AR.GET.FIELD.VAL.PTR D1 (I 4 FIELD.VAL.END.PTR I 3 FIELD.VAL.BEGIN.PTR I 2 FIELD.OFFSET I 1 FIELD.NAME I 0 ENTRY.PTR F 0 AR.INDEX.FIELD.SPECS F 1 AR.INDEX.FILE F 2 AR.INDEX.ENTRY.END.PTR) @R@,Q@BAP g CAP g Q DAP g (75Q LISTGET 66Q ASSOC 54Q \DWIN 50Q LISTGET 41Q ASSOC 31Q SETFILEPTR 25Q LISTGET 16Q ASSOC) (72Q FIELD.END.PTR 45Q FIELD.BEGIN.PTR 22Q FIELD.OFFSET) () AR.GET.FIELD.VAL D1 (P 4 KEY.VAL P 3 KEY.VAL.PTR P 2 FIELD.KEYLIST P 1 VAL.STRING P 0 VAL.DATA I 1 FIELD.NAME I 0 ENTRY.PTR F 12Q AR.INDEX.FILE F 13Q AR.INDEX.FIELD.SPECS F 14Q AR.INDEX.ENTRY.BEGIN.PTR F 15Q AR.INDEX.ENTRY.SIZE) AdgW@ W W g "@A H YWH IkHW IAW g AW g @WWWK W \dj :JA M_+LO O_OOh_OO&_N(262Q PACK 211Q EQP 165Q EQP 154Q SETFILEPTR 133Q LISTGET 124Q ASSOC 116Q LISTGET 107Q ASSOC 77Q AIN 66Q SETFILEPTR 56Q ALLOCSTRING 46Q AR.GET.FIELD.VAL.DATA 37Q LISTGET 30Q ASSOC 22Q \DWIN 15Q SETFILEPTR) (130Q FIELD.BEGIN.PTR 113Q ENUMERATED.FIELD.KEYLIST 34Q FIELD.OFFSET 4 Number:) () AR.INDEX.CREATE D1 (P 15Q FIELD.KEY P 13Q NUM P 11Q ENUMERATED.FIELD.KEYS P 10Q FIELD P 6 FIELD.PTR.OFFSET P 5 FIELD.SPECS P 4 INDEX.DATA P 3 FILE I 2 FORM.SPECS I 1 FIELD.LIST I 0 FILENAME F 16Q AR.INDEX.DEFAULT.FIELDS F 17Q AR.FORM.SPECS) AWbBWb@gg ghjdhdAh0AdgjgjhIHhZH&JlA! O'LMLNKj LK Kj K h_BO _AOM gOk" O O 8_OOOh _O_Ok_OM gN Nl^O_q(336Q LISTPUT 326Q ASSOC 276Q \NCONC2 254Q LISTPUT 227Q ASSOC 215Q AR.GET.ENUMERATED.FIELD.KEYS 201Q CLOSEF 175Q \DWOUT 170Q PRINT 163Q SETFILEPTR 27Q OPENSTREAM) (332Q FIELD.OFFSET 233Q ENUMERATED.FIELD.KEYLIST 67Q FIELD.END.PTR 63Q FIELD.BEGIN.PTR 32Q AR.INDEX.DATA 24Q NEW 21Q OUTPUT) () AR.GET.ENUMERATED.FIELD.KEYS D1 (I 1 FIELD I 0 FORM.SPECS) A@ g dgA@ g .g(0A@ g d XIHZYJHIdH YHI IdIJKLIY(151Q MEMB 136Q LAST 77Q \APPEND2 71Q LISTGET 62Q ASSOC 42Q \APPEND2 37Q LISTGET 30Q ASSOC 13Q LISTGET 4 ASSOC) (66Q SUBMENULIST 47Q SUBMENU 34Q MENULIST 17Q MENU 10Q FIELDTYPE) () AR.INDEX.DATA.UNPACK D1 (P 2 FIELD P 1 DEC I 0 INDEX.DATA) ;@g+g g HhZd@Ig HXo (70Q SHOULDNT 53Q SET 50Q RECORDACCESS 24Q RECLOOK 16Q RECORDFIELDNAMES) (45Q FETCH 21Q AR.INDEX.DATA 13Q AR.INDEX.DATA 5 AR.INDEX.DATA) ( 65Q "Bad AR.INDEX.DATA Record") AR.INDEX.FIND.ENTRY.PTR D1 (P 5 TEST.NUM P 4 TEST P 3 HIGH.NUM P 2 LOW.NUM P 1 HIGH P 0 LOW I 2 HIGH.HINT I 1 LOW.HINT I 0 NUM F 6 AR.INDEX.ENTRY.SIZE F 7 AR.INDEX.ENTRY.BEGIN.PTR F 10Q AR.INDEX.ENTRY.END.PTR) dAWBWBH I @dKo @J Hi@K IiHIHlVV\H IhL ]@LMZLM[(122Q AR.GET.ENTRY.NUM 111Q EQP 63Q EQP 51Q EQP 43Q SHOULDNT 25Q AR.GET.ENTRY.NUM 20Q AR.GET.ENTRY.NUM) NIL ( 40Q "Entry pointer higher than higher bound") AR.INDEX.OPENA0001 D1 (NAME ERRORSET F 0 FILENAME F 1 AR.INDEX.FILE) Pgg ci(11Q OPENSTREAM) (6 OLD 3 INPUT) () AR.INDEX.OPEN D1 (P 0 INDEX.DATA I 1 FILENAME I 0 FORMWINDOW F 1 AR.INDEX.FILE) Lo o@ hQd l Qd Q Xddgo@ Q hQH(103Q CLOSEF 76Q AR.PROMPT 53Q READ 47Q SETFILEPTR 44Q \DWIN 37Q SETFILEPTR 31Q GETEOFPTR 22Q AR.PROMPT 11Q AR.INDEX.OPENA0001) (63Q AR.INDEX.DATA) ( 72Q "Bad AR index file format" 16Q "Can't open AR index file" 6 (AR.INDEX.OPENA0001)) AR.INDEX.FILE.REOPEN D1 (I 0 QFORMWINDOW F 0 AR.INDEX.FILE) ,P %o@ P gg c@g Ph(43Q GETWINDOWUSERPROP 32Q OPENSTREAM 21Q FULLNAME 15Q AR.PROMPT 3 OPENP) (40Q AR.INDEX.DATA 27Q OLD 24Q INPUT) ( 11Q "Re-opening index file") AR.INDEX.PRINTA0001 D1 (NAME ERRORSET F 0 FILE F 1 RESETVARSLST F 2 AR.INDEX.FILE F 3 RESETY) ;gl hhQcoP R P oP P P ci(65Q TERPRI 60Q TERPRI 53Q PRIN1 42Q PRIN1 36Q GETEOFPTR 31Q PRIN1 7 RADIX) (2 RADIX) ( 47Q " bytes" 25Q "Total file size: ") AR.INDEX.PRINTA0002 D1 (NAME ERRORSET F 0 FILE F 1 RESETVARSLST F 2 AR.INDEX.ENTRY.BEGIN.PTR F 3 RESETY) ;gl hhQcoP lhP RP oP P ci(65Q TERPRI 60Q PRIN1 47Q PRIN1 41Q TAB 31Q PRIN1 7 RADIX) (2 RADIX) ( 54Q " bytes" 25Q "Total Field Space: ") AR.INDEX.PRINTA0003 D1 (NAME ERRORSET F 0 FILE F 1 RESETVARSLST F 2 FIELD.NAME F 3 RESETY F 4 FIELD.BYTES) /gl hhQcRP lhP TP P ci(51Q TERPRI 44Q PRIN1 36Q TAB 26Q PRIN1 7 RADIX) (2 RADIX) () AR.INDEX.PRINTA0004 D1 (NAME ERRORSET F 0 FILE F 1 RESETVARSLST F 2 RESETY F 3 AR.INDEX.ENTRY.END.PTR F 4 AR.INDEX.ENTRY.BEGIN.PTR) :gl hhQcP oP STP oP P ci(64Q TERPRI 57Q PRIN1 46Q PRIN1 36Q PRIN1 25Q TERPRI 7 RADIX) (2 RADIX) ( 53Q " bytes" 32Q "Total Entry Space: ") AR.INDEX.PRINTA0005 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 AR.INDEX.ENTRY.SIZE F 2 AR.INDEX.ENTRY.END.PTR F 3 AR.INDEX.ENTRY.BEGIN.PTR F 4 RESETY) =gl hhPcRSQi oi Qi oi i ci(67Q TERPRI 62Q PRIN1 51Q PRIN1 43Q PRIN1 32Q PRIN1 7 RADIX) (2 RADIX) ( 56Q " bytes" 37Q " entries of ") AR.INDEX.PRINTA0006 D1 (NAME ERRORSET F 0 FILE F 1 RESETVARSLST F 2 AR.INDEX.FILE F 3 RESETY F 4 ENTRY.PTR) 3gl hhQcoP RT R P P ci(55Q TERPRI 50Q PRIN1 44Q \DWIN 37Q SETFILEPTR 31Q PRIN1 7 RADIX) (2 RADIX) ( 25Q "Entry # ") AR.INDEX.PRINT D1 (P 15Q VAL.NUM P 14Q FIELD.BEGIN.PTR P 13Q FIELD.KEYLIST P 12Q FIELD.OFFSET P 11Q VAL.DATA P 10Q FIELD.NAME P 6 ENTRY.PTR P 5 FIELD.BYTES P 4 FIELD.NAME P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 PRINT.ENTRY.DATA.FLG I 0 FILE F 23Q LISPXHIST F 24Q RESETVARSLST F 25Q AR.INDEX.FILE F 26Q AR.INDEX.FIELD.SPECS F 27Q AR.INDEX.ENTRY.BEGIN.PTR F 30Q AR.INDEX.ENTRY.SIZE F 31Q AR.INDEX.FIELD.LIST F 32Q AR.INDEX.ENTRY.END.PTR) IW&!W(og hgZ JW&!W(og hgZ JW2!KW&!W(og BhB\W,g'LW,g'ٽW&!W(og hgZ JK[gZ JW&!W(og hgZ JAdg3W.W4NhW&!W(og hgZ JW2a O NW0Ծ_W,g'_OW,g'_9NOOO _O@ o@ W*O W*@O oOW,g'_W*ONW.W0 W* _j O@ oWO@ o@ OAO_$.OO$ O$_"O O"h_ _O$O"&_ O@ o@ @ O_ 8o@ W.W4N W*N W* @ k@ NW0Ծ@ (1106Q TERPRI 1071Q SPACES 1063Q PRIN1 1057Q \DWIN 1051Q SETFILEPTR 1030Q PRIN1 1005Q TERPRI 1000Q PRIN1 767Q PRIN1 714Q EQP 666Q PRIN1 655Q PRIN1 640Q PRIN1 631Q EQP 617Q SETFILEPTR 553Q COPYBYTES 541Q SETFILEPTR 530Q PRIN1 517Q PRIN1 506Q AR.GET.FIELD.VAL.DATA 414Q ERROR! 406Q RESETRESTORE 374Q AR.INDEX.PRINTA0006 322Q ERROR! 314Q RESETRESTORE 302Q AR.INDEX.PRINTA0005 257Q ERROR! 251Q RESETRESTORE 233Q ERROR! 225Q RESETRESTORE 213Q AR.INDEX.PRINTA0003 140Q AR.INDEX.PRINTA0004 103Q ERROR! 75Q RESETRESTORE 63Q AR.INDEX.PRINTA0002 40Q ERROR! 32Q RESETRESTORE 20Q AR.INDEX.PRINTA0001) (574Q ENUMERATED.FIELD.KEYLIST 467Q FIELD.OFFSET 452Q FIELD.BEGIN.PTR 402Q ERROR 371Q INTERNAL 331Q ALL 310Q ERROR 277Q INTERNAL 245Q ERROR 221Q ERROR 210Q INTERNAL 167Q FIELD.BEGIN.PTR 156Q FIELD.END.PTR 135Q INTERNAL 71Q ERROR 60Q INTERNAL 26Q ERROR 15Q INTERNAL) ( 1024Q "Contains entries: " 774Q "%"" 662Q " %"" 645Q " %"%"" 560Q "%"" 524Q " %"" 366Q (AR.INDEX.PRINTA0006) 274Q (AR.INDEX.PRINTA0005) 205Q (AR.INDEX.PRINTA0003) 132Q (AR.INDEX.PRINTA0004) 55Q (AR.INDEX.PRINTA0002) 12Q (AR.INDEX.PRINTA0001)) AR.INDEX.REWRITE.ENTRY.DATA D1 (P 26Q AR.FIELD.DATA P 25Q INC.LIST P 24Q FIELD.NAME P 21Q FIELD.BEGIN.PTR P 20Q X P 17Q FIELD.NAME P 16Q FIELD.OFFSET P 13Q X P 12Q REPLACE.FLG P 11Q NEXT.HIGHER.ENTRY.PTR P 10Q NUM.DATA P 7 FIELD.INCREMENT.LIST P 6 FIELDS.WITH.OFFSETS P 5 ENTRY.PTR P 4 FIELD.NAME I 1 NUM.DATA.LIST I 0 NEW.FILE F 27Q AR.INDEX.FILE F 30Q AR.INDEX.FIELD.SPECS F 31Q AR.INDEX.ENTRY.BEGIN.PTR F 32Q AR.INDEX.FIELD.LIST F 33Q AR.INDEX.ENTRY.END.PTR F 34Q AR.INDEX.ENTRY.SIZE) W2W4AH I0N3\W0 g LJ KhZHXK&jIHhZH&J_0 A W6MhA__O_AOM5W.M @W. Od @OW. W. Og3@O ONl3O_O!ON2O$_*O&QO0N_ OW0 g _"@O OOOO" O" O_O_Ol__(O*O(O _,O*dO,O&_&O*dOL IHhZH&JO"IHJMW8ؽAbdKJHX(550Q AR.GET.FIELD.VAL.LENGTH 502Q ASSOC 431Q \DWOUT 422Q AR.GET.FIELD.VAL.PTR 401Q LISTGET 372Q ASSOC 270Q \DWOUT 244Q GETFILEPTR 232Q \DWOUT 226Q \DWIN 204Q \DWOUT 201Q \DWIN 172Q SETFILEPTR 43Q LISTGET 34Q ASSOC) (376Q FIELD.BEGIN.PTR 256Q DELETE 40Q FIELD.OFFSET) () AR.INDEX.REWRITE.FIELD.DATA D1 (P 16Q X P 14Q SCRATCH.FIELD.LEN P 13Q SCRATCH.FIELD.PTR P 12Q NUM.DATA.FOR.FIELD P 11Q NEXT.HIGHER.FIELD.VAL.PTR P 10Q REPLACE.FLG P 7 NEXT.HIGHER.ENTRY.PTR P 6 NUM.DATA P 4 DATA.PTR P 3 FIELD.DATA.END.PTR P 2 FIELD.DATA.BEGIN.PTR P 1 FIELD.OFFSET P 0 FIELD.KEYLIST I 3 NUM.DATA.LIST I 2 FIELD.NAME I 1 SCRATCHFILE I 0 NEWFILE F 22Q AR.INDEX.FIELD.SPECS F 23Q AR.INDEX.FILE F 24Q AR.INDEX.ENTRY.SIZE F 25Q AR.INDEX.ENTRY.BEGIN.PTR) 6BW$ g BW$ g BW$ g BW$ g HIoB J\Cq MKL W&@LK h^_N_IOBIJK JOW*W(_LW&@LO NgyBN __O_OWAO IOjPA@O F@HOk2OO$A _"O O"h_ _Ok_O"&_ O I@j OIOW(BIJK Ok؁OM](445Q AR.GET.FIELD.VAL.PTR 421Q BOUT 407Q LISTGET 404Q PACKC 313Q COPYBYTES 273Q SETFILEPTR 242Q ASSOC 221Q COPYBYTES 170Q AR.GET.FIELD.VAL.PTR 133Q COPYBYTES 102Q ERROR 63Q LISTGET 54Q ASSOC 46Q LISTGET 37Q ASSOC 31Q LISTGET 22Q ASSOC 14Q LISTGET 5 ASSOC) (230Q DELETE 60Q FIELD.END.PTR 43Q FIELD.BEGIN.PTR 26Q FIELD.OFFSET 11Q ENUMERATED.FIELD.KEYLIST) ( 76Q "Field doesn't have keylist or offset") AR.INDEX.SEARCH.HAS D1 (P 13Q PTR P 7 LAST.POS P 6 HAS.HARRAY.INDEX P 5 HAS.HARRAY P 4 FOUND.ENTRY.PTRS P 3 FOUND.PTRS P 2 FIELD.VAL.END.PTR P 1 FIELD.VAL.BEGIN.PTR P 0 FIELD.OFFSET I 2 SEARCH.STRING I 1 FIELD.NAME I 0 QFORMWINDOW F 14Q AR.INDEX.FIELD.SPECS F 15Q AR.INDEX.FILE F 16Q AR.INDEX.FIELD.LIST F 17Q AR.INDEX.ENTRY.END.PTR F 20Q AR.INDEX.ENTRY.BEGIN.PTR) AW g AW g AW g CAW oAhHoAoh@ B bd j h@g ]AgB ^MP@gl h] WI JkA BWhOhi` _6O[dW WAHIJ \NLgM L NM\dg𳌲L_O Oh__O&_(314Q HARRAYP 306Q PUTHASH 272Q AR.GET.ENTRY.PTRS.FROM.FIELD.PTRS 245Q FFILEPOS 220Q SETFILEPTR 211Q PUTWINDOWPROP 203Q HARRAY 165Q PACK* 154Q GETWINDOWUSERPROP 142Q EQP 136Q NCHARS 130Q U-CASE 125Q MKSTRING 120Q ERROR! 114Q AR.PROMPT 57Q MEMB 46Q LISTGET 37Q ASSOC 31Q LISTGET 22Q ASSOC 14Q LISTGET 5 ASSOC) (326Q NONE 302Q NONE 241Q UPPERCASEARRAY 176Q AR.SEARCH.HAS.HARRAY 161Q /HAS/ 151Q AR.SEARCH.HAS.HARRAY 43Q FIELD.END.PTR 26Q FIELD.BEGIN.PTR 11Q FIELD.OFFSET) ( 104Q " -- use IS" 77Q "Non-variable field: " 64Q "Unknown field name: ") AR.INDEX.SEARCH.IS D1 (P 20Q PTR P 14Q LAST.POS P 7 FIELD.OFFSET P 6 X P 4 FOUND.ENTRY.PTRS P 3 SEARCH.KEY.NUM P 2 FIELD.VAL.END.PTR P 1 FIELD.VAL.BEGIN.PTR P 0 FIELD.KEYLIST I 2 SEARCH.STRING I 1 FIELD.NAME I 0 QFORMWINDOW F 21Q AR.INDEX.FIELD.SPECS F 22Q AR.INDEX.ENTRY.END.PTR F 23Q AR.INDEX.FILE F 24Q AR.INDEX.ENTRY.BEGIN.PTR F 25Q AR.INDEX.ENTRY.SIZE F 26Q AR.INDEX.FIELD.LIST) LAW" g AW" g AW" g #AW, oAh@ HBvW$W(AW" g C O#OjUOO IjOW$NNW$:W$N#NAOIJ j N_OOh__NW*_ԾO&_OoAoh@ BjHB [doBoAh@ W&I K bJkABW&hOhi _ (W*O kIW(_O Oh__O&_O(435Q FILEPOS 411Q MKSTRING 406Q CHARACTER 402Q SETFILEPTR 373Q ERROR! 367Q AR.PROMPT 340Q LISTGET 335Q MKATOM 323Q ERROR! 317Q AR.PROMPT 227Q EQP 223Q AR.GET.FIELD.VAL.LENGTH 162Q \FZEROP 133Q LISTGET 124Q ASSOC 101Q ERROR! 75Q AR.PROMPT 57Q MEMB 46Q LISTGET 37Q ASSOC 31Q LISTGET 22Q ASSOC 14Q LISTGET 5 ASSOC) (130Q FIELD.OFFSET 43Q FIELD.END.PTR 26Q FIELD.BEGIN.PTR 11Q ENUMERATED.FIELD.KEYLIST) ( 355Q " for field: " 350Q "Unknown key: " 307Q " -- use HAS" 302Q "Non-enumerated field: " 65Q "Unknown field name: ") AR.GET.ENTRY.PTRS.FROM.FIELD.PTRS D1 (P 6 BEFORE.LIST P 5 AFTER.LIST.MINUS.FOUND.PTRS P 4 AFTER.LIST P 3 LAST.CHAR.PLUS.1 P 2 FIRST.CHAR P 1 TEST.DATA P 0 TEST I 6 FIELD.VAL.END.PTR I 5 FIELD.VAL.BEGIN.PTR I 4 FIELD.OFFSET I 3 FIELD.NAME I 2 HIGH.ENTRY.PTR I 1 LOW.ENTRY.PTR I 0 FIELD.PTRS F 11Q AR.INDEX.ENTRY.SIZE) @hABAlWWXdCDEF YdZdI[@_'h\@L ^L_)h]N5HA/NAHCDEF #JOiOKOiOhLMHhhMdHBCDEF  (217Q \NCONC2 214Q \NCONC2 211Q AR.GET.ENTRY.PTRS.FROM.FIELD.PTRS 120Q AR.GET.ENTRY.PTRS.FROM.FIELD.PTRS 64Q LDIFF 36Q AR.GET.FIELD.VAL.DATA) NIL () AR.INDEX.UPDATEA0001 D1 (NAME ERRORSET P 22Q FIELD.NAME P 16Q NEW.AR.INDEX.DATA.PTR P 15Q NEW.FIELD.SPECS P 14Q NEW.AR.INDEX.DATA P 13Q NEW.AR.INDEX.FILE P 12Q AR.SCRATCH.FILE P 11Q AR.NUM.DATA P 5 AR.INDEX.FIELD.LIST P 4 AR.INDEX.FIELD.SPECS P 3 AR.INDEX.ENTRY.SIZE P 2 AR.INDEX.ENTRY.END.PTR P 1 AR.INDEX.ENTRY.BEGIN.PTR P 0 AR.INDEX.FILE F 23Q AR.NUM.LIST F 24Q FORMWINDOW F 25Q AR.INDEX.MONITORLOCK F 26Q RESETY) W*hi W(g W( `W&W&h_^h%oW( hi_dOiNW& W&_OdoghgggH gg _W(W&O _ghgggH gg _ghddKhMh_L _MeO OdOOO O"oO_idO$O gO OOO$O O$O gO OOO O OO OO OO O _OO OO O O ghgH c,i(644Q RENAMEFILE 641Q PACKFILENAME 636Q FULLNAME 623Q FULLNAME 615Q CLOSEF 607Q \DWOUT 577Q PRINT 565Q GETFILEPTR 556Q GETFILEPTR 543Q AR.INDEX.REWRITE.ENTRY.DATA 532Q GETFILEPTR 520Q DELFILE 515Q FULLNAME 507Q CLOSEF 462Q LISTPUT 457Q GETFILEPTR 446Q ASSOC 436Q AR.INDEX.REWRITE.FIELD.DATA 422Q LISTPUT 417Q GETFILEPTR 406Q ASSOC 330Q MEMB 313Q COPYALL 260Q OPENSTREAM 247Q PACKFILENAME 243Q FULLNAME 217Q AR.GATHER.NEW.AR.DATA 203Q OPENSTREAM 172Q PACKFILENAME 166Q FULLNAME 130Q SORT 71Q AR.PROMPT 33Q AR.INDEX.FILE.REOPEN 25Q AR.INDEX.DATA.UNPACK 22Q GETWINDOWUSERPROP 6 OBTAIN.MONITORLOCK) (632Q BODY 626Q VERSION 452Q FIELD.END.PTR 412Q FIELD.BEGIN.PTR 266Q AR.INDEX.DATA 255Q NEW 252Q OUTPUT 237Q BODY 234Q ARINDEX.NEW 231Q BODY 225Q VERSION 200Q NEW 175Q BOTH 162Q BODY 157Q AR.TEMP 154Q BODY 150Q VERSION 17Q AR.INDEX.DATA) ( 64Q "Bad AR number list") AR.INDEX.UPDATE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 AR.NUM.LIST I 0 FORMWINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q AR.INDEX.UPDATEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (AR.INDEX.UPDATEA0001)) AR.QFORM.ACTIONFNA0001A0002 D1 (NAME ERRORSET P 5 AR.INDEX.FIELD.LIST P 4 AR.INDEX.FIELD.SPECS P 3 AR.INDEX.ENTRY.SIZE P 2 AR.INDEX.ENTRY.END.PTR P 1 AR.INDEX.ENTRY.BEGIN.PTR P 0 AR.INDEX.FILE F 6 QFORMWINDOW F 7 AR.INDEX.MONITORLOCK F 10Q OPERATION F 11Q RESETY) SWhi `Vg V Wdg` i ogo oV ci(114Q AR.PROMPT 103Q HELP 57Q AR.INDEX.PRINT 52Q TTY.PROCESS 31Q AR.INDEX.FILE.REOPEN 24Q AR.INDEX.DATA.UNPACK 21Q GETWINDOWUSERPROP 6 OBTAIN.MONITORLOCK) (71Q Debug 47Q \RUNNING.PROCESS 40Q Print% Index% Stats 16Q AR.INDEX.DATA) ( 110Q "done" 100Q "Debug from within AR Query Form env --- type (RETURN) to return" 64Q "done") AR.QFORM.ACTIONFNA0001 D1 (NAME ERRORSET P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 QFORMWINDOW F 4 OPERATION F 5 LISPXHIST F 6 RESETVARSLST) qTohS TdgS UdgS HdgS ;dgdg%U!Vog hgZ JoS i(155Q AR.PROMPT 141Q ERROR! 133Q RESETRESTORE 121Q AR.QFORM.ACTIONFNA0001A0002 62Q AR.QFORM.FN.PRINT 45Q AR.QFORM.FN.UPDATE 30Q AR.QFORM.FN.QUERY 13Q AR.PROMPT) (127Q ERROR 116Q INTERNAL 76Q Debug 70Q Print% Index% Stats 53Q Print 36Q Update 21Q Query) ( 151Q "Unknown AR Query Form button name!" 113Q (AR.QFORM.ACTIONFNA0001A0002) 4 " initiated...") AR.QFORM.ACTIONFN D1 (P 0 TOBJ I 1 OPERATION I 0 QFORMWINDOW) :`gg @g HA hlHg@ o H @ h(66Q REDISPLAYW 62Q AR.MARK.ACTIVE 56Q AR.QFORM.ACTIONFNA0001 47Q DSPFILL 35Q AR.MARK.ACTIVE 25Q GETWINDOWUSERPROP 16Q PROCESSPROP 2 ALLOW.BUTTON.EVENTS) (43Q PAINT 22Q TEXTOBJ 13Q AR.QFORM.TEMP 10Q NAME 5 \RUNNING.PROCESS) ( 53Q (AR.QFORM.ACTIONFNA0001)) AR.QFORM.PROMPT.LIST.FN D1 (P 5 FIELD.END.CH# P 4 FIELD.SEL P 3 STRING.TO.ADD P 2 BUTTON P 1 WINDOW P 0 TOBJ I 2 WINDOW I 1 SEL I 0 OBJ) wAA@g 3JdgI gI [d=HA H\L ؽI KM I oMK h(163Q TEDIT.INSERT 157Q NCHARS 146Q TEXTSTREAM 141Q TEDIT.INSERT 134Q TEXTSTREAM 103Q MBUTTON.FIND.NEXT.FIELD 65Q MENU 62Q AR.GET.SLIST.PROMPT.MENU 47Q AR.GET.QLIST.PROMPT.MENU 30Q IMAGEOBJPROP) (124Q SELECTION 116Q SELECTION 110Q TEXTOBJ 76Q SELECTION 53Q Sort% List: 40Q Query% List: 25Q MBTEXT 16Q TEXTOBJ 11Q SELECTION 3 SELECTION) ( 152Q " ") AR.GET.QLIST.PROMPT.MENUA0001 D1 (NAME ERRORSET P 22Q KEY.VAL P 16Q FIELD.PROMPT.STRING P 15Q FIELD.KEYLIST P 14Q FIELD.NAME P 5 AR.INDEX.FIELD.LIST P 4 AR.INDEX.FIELD.SPECS P 3 AR.INDEX.ENTRY.SIZE P 2 AR.INDEX.ENTRY.END.PTR P 1 AR.INDEX.ENTRY.BEGIN.PTR P 0 AR.INDEX.FILE F 23Q QFORMWINDOW F 24Q AR.INDEX.MONITORLOCK F 25Q RESETY) cW(hi W&g W& `dooMaOHOMA OO dNdg dgjdndh_dO c*i_L g _Ogghi _dddiddd gOhhg@O,d_$OgO$hi _O Oh_"O&_ O"h_OOh__O_O&__L g "Ogghi _OOh__O_O&_(501Q MKSTRING 457Q LISTGET 450Q ASSOC 337Q MKSTRING 237Q MKSTRING 211Q LISTGET 202Q ASSOC 116Q \APPEND2 113Q \APPEND2 33Q AR.INDEX.FILE.REOPEN 25Q AR.INDEX.DATA.UNPACK 22Q GETWINDOWUSERPROP 6 OBTAIN.MONITORLOCK) (471Q xxxx 466Q HAS 454Q ENUMERATED.FIELD.KEYLIST 325Q IS 304Q SUBITEMS 273Q QUOTE 227Q ... 224Q IS 206Q ENUMERATED.FIELD.KEYLIST 137Q DEFAULTMENUHELDFN 130Q CLRPROMPT 37Q MENUTYPE# 17Q AR.INDEX.DATA) ( 54Q ("(OR" "(AND") 45Q "Query Options") AR.GET.QLIST.PROMPT.MENU D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 VAL I 0 QFORMWINDOW F 4 LISPXHIST F 5 RESETVARSLST) :@g H-@gT!Uog hg[ KJX H(66Q PUTWINDOWPROP 57Q ERROR! 51Q RESETRESTORE 37Q AR.GET.QLIST.PROMPT.MENUA0001 6 GETWINDOWUSERPROP) (45Q ERROR 34Q INTERNAL 20Q AR.QLIST.PROMPT.MENU 3 AR.QLIST.PROMPT.MENU) ( 31Q (AR.GET.QLIST.PROMPT.MENUA0001)) AR.GET.SLIST.PROMPT.MENUA0001 D1 (NAME ERRORSET P 14Q FIELD.NAME P 5 AR.INDEX.FIELD.LIST P 4 AR.INDEX.FIELD.SPECS P 3 AR.INDEX.ENTRY.SIZE P 2 AR.INDEX.ENTRY.END.PTR P 1 AR.INDEX.ENTRY.BEGIN.PTR P 0 AR.INDEX.FILE F 15Q QFORMWINDOW F 16Q AR.INDEX.MONITORLOCK F 17Q RESETY) Whi Wg W `doMA O2OdNdg dgjdndh_dO ci_L g Oi _OOh__O_O&_(167Q MKSTRING 157Q LISTGET 150Q ASSOC 33Q AR.INDEX.FILE.REOPEN 25Q AR.INDEX.DATA.UNPACK 22Q GETWINDOWUSERPROP 6 OBTAIN.MONITORLOCK) (154Q ENUMERATED.FIELD.KEYLIST 105Q DEFAULTMENUHELDFN 76Q CLRPROMPT 37Q MENUTYPE# 17Q AR.INDEX.DATA) ( 45Q "Sort Options") AR.GET.SLIST.PROMPT.MENU D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 VAL I 0 QFORMWINDOW F 4 LISPXHIST F 5 RESETVARSLST) :@g H-@gT!Uog hg[ KJX H(66Q PUTWINDOWPROP 57Q ERROR! 51Q RESETRESTORE 37Q AR.GET.SLIST.PROMPT.MENUA0001 6 GETWINDOWUSERPROP) (45Q ERROR 34Q INTERNAL 20Q AR.SLIST.PROMPT.MENU 3 AR.SLIST.PROMPT.MENU) ( 31Q (AR.GET.SLIST.PROMPT.MENUA0001)) AR.QFORM.BUTTONFN D1 (I 2 WINDOW I 1 SEL I 0 OBJ) A@g (25Q AR.QFORM.ACTIONFN 22Q IMAGEOBJPROP) (17Q MBTEXT 10Q TEXTOBJ 3 SELECTION) () AR.QFORM.CREATE D1 (I 1 WINDOW I 0 AR.INDEX.FILE.NAME) Jg@ddidd g@hAddidd gAhhgg (107Q ADD.PROCESS) (104Q AR.QUERY.FORM.TEMP 101Q NAME 66Q QUOTE 32Q QUOTE 2 AR.QFORM.GROUP.CREATE) () AR.QFORM.FN.PRINTA0001 D1 (NAME ERRORSET F 0 PRINT.FILE.NAME F 1 FILE) Pgg ci(11Q OPENSTREAM) (6 NEW 3 OUTPUT) () AR.QFORM.FN.PRINTA0002 D1 (NAME ERRORSET F 0 FILE) P i(3 CLOSEF) NIL () AR.QFORM.FN.PRINT D1 (P 1 FILE P 0 PRINT.FILE.NAME I 0 QFORMWINDOW) A@g HHi` H@I o ho oHh@ h(75Q AR.PROMPT 57Q AR.QFORM.FN.PRINTA0001 46Q AR.QFORM.FN.PRINTA0002 37Q AR.PRINT 27Q TTY.PROCESS 6 AR.GET.BUTTON.FIELD.AS.LIST) (24Q \RUNNING.PROCESS 3 Print% File:) ( 65Q "Bad Print file: " 54Q (AR.QFORM.FN.PRINTA0001) 43Q (AR.QFORM.FN.PRINTA0002)) AR.QFORM.FN.QUERYA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 QFORMWINDOW F 2 RESETY) -gl hhPcoQg ohci(37Q LENGTH 34Q GETWINDOWUSERPROP 7 RADIX) (31Q AR.ENTRY.ALIST 2 RADIX) ( 43Q " entries found" 25Q "Total: ") AR.QFORM.FN.QUERY D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 SLIST P 0 QLIST I 0 QFORMWINDOW F 5 LISPXHIST F 6 RESETVARSLST) Pg@g @g @ @H U!Vog hg\ LK@ @I @ h(114Q AR.QFORM.DISPLAY.CONNECT 110Q AR.SORT 103Q AR.PROMPT 74Q ERROR! 66Q RESETRESTORE 54Q AR.QFORM.FN.QUERYA0001 35Q AR.QUERY 30Q AR.QFORM.DISPLAY.DISCONNECT 21Q AR.GET.BUTTON.FIELD.AS.LIST 11Q AR.GET.BUTTON.FIELD.AS.LIST) (62Q ERROR 51Q INTERNAL 16Q Sort% List: 6 Query% List: 2 AND) ( 46Q (AR.QFORM.FN.QUERYA0001)) AR.QFORM.FN.UPDATE D1 (P 1 VAL P 0 ULIST I 0 QFORMWINDOW) @g @H YoIh@ h(33Q AR.PROMPT 16Q AR.INDEX.UPDATE 6 AR.GET.BUTTON.FIELD.AS.LIST) (3 Update% List:) ( 23Q "Update done --- new file: ") AR.QFORM.GROUP.CREATEA0001 D1 (P 0 INDEX.FILE I 0 WINDOW) @g H H h(25Q CLOSEF 17Q OPENP 6 GETWINDOWUSERPROP) (3 AR.INDEX.DATA) () AR.QFORM.GROUP.CREATE D1 (P 2 QFORM.ENTRY.WINDOW P 1 QFORMWINDOW.REGION P 0 QFORMWINDOW I 1 WINDOW I 0 AR.INDEX.FILE.NAME F 3 ARBUTTONFONT F 4 AR.QFORM.ICON F 5 AR.INDEX.DEFAULT.FILE.NAME) oAnld o !Hgg Hglld Hgold HgT Hgg Hgg Hgg H YdIIkIldho ZdHgg HgJ Jgl ld @UbHgH@ d Hl H`ooggggggShoggggggShoggggggShggggggShggggggShho h(553Q AR.FORM.CREATE 277Q GETPROMPTWINDOW 271Q PUTWINDOWPROP 263Q AR.INDEX.OPEN 244Q PUTWINDOWPROP 230Q PUTWINDOWPROP 220Q ATTACHWINDOW 204Q CREATEW 142Q \INSUREWINDOW 136Q PUTWINDOWPROP 124Q WINDOWADDPROP 112Q WINDOWADDPROP 100Q PUTWINDOWPROP 70Q PUTWINDOWPROP 52Q PUTWINDOWPROP 36Q PUTWINDOWPROP 21Q CREATEW 12Q GETREGION) (521Q FONT 516Q AR.QFORM.BUTTONFN 513Q FN 510Q BUTTON 505Q FIELDTYPE 502Q Debug 466Q FONT 463Q AR.QFORM.BUTTONFN 460Q FN 455Q BUTTON 452Q FIELDTYPE 447Q Print% Index% Stats 433Q FONT 430Q AR.QFORM.BUTTONFN 425Q FN 422Q BUTTON 417Q FIELDTYPE 414Q Update 374Q FONT 371Q AR.QFORM.BUTTONFN 366Q FN 363Q BUTTON 360Q FIELDTYPE 355Q Print 335Q FONT 332Q AR.QFORM.BUTTONFN 327Q FN 324Q BUTTON 321Q FIELDTYPE 316Q Query 303Q ARBOLDFONT 256Q AR.INDEX.DATA 234Q MINSIZE 224Q QFORM.ENTRY.WINDOW 215Q JUSTIFY 212Q TOP 133Q NILL 130Q AR.TEDIT.TITLEMENUFN 121Q AR.QFORM.GROUP.CREATEA0001 116Q CLOSEFN 107Q AR.KILL.ATTACHED.TEDIT.CLOSEFN 104Q CLOSEFN 74Q ICON 56Q MAXSIZE 42Q MINSIZE 33Q AR.QUERY.FORM 30Q AR.WINDOW.PROC.NAME) ( 550Q (Query% List: CR Sort% List: CR Query CR CR Print% File: CR Print CR) 411Q (Update% List: FIELDTYPE STRING) 352Q (Print% File: FIELDTYPE STRING) 313Q (Sort% List: FIELDTYPE STRING FN AR.QFORM.PROMPT.LIST.FN) 307Q (Query% List: FIELDTYPE STRING FN AR.QFORM.PROMPT.LIST.FN) 201Q "AR Query Browser" 62Q 303237Q 16Q "AR Query Window") AR.QUERYA0001 D1 (NAME ERRORSET P 5 AR.INDEX.FIELD.LIST P 4 AR.INDEX.FIELD.SPECS P 3 AR.INDEX.ENTRY.SIZE P 2 AR.INDEX.ENTRY.END.PTR P 1 AR.INDEX.ENTRY.BEGIN.PTR P 0 AR.INDEX.FILE F 11Q QFORMWINDOW F 12Q QLIST F 13Q AR.INDEX.MONITORLOCK F 14Q RESETY) l Whi `Wg W W Wg0WW dhONh_N&_O WgW Wg ci(145Q PUTWINDOWPROP 134Q PUTWINDOWPROP 121Q PUTWINDOWPROP 61Q AR.QUERY.EVAL.QLIST 41Q AR.QFORM.DISPLAY.DISCONNECT 33Q AR.INDEX.FILE.REOPEN 25Q AR.INDEX.DATA.UNPACK 22Q GETWINDOWUSERPROP 6 OBTAIN.MONITORLOCK) (142Q AR.ENTRY.ALIST.SLIST 127Q AR.ENTRY.ALIST.QLIST 47Q AR.ENTRY.ALIST 17Q AR.INDEX.DATA) () AR.QUERY D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 QLIST I 0 QFORMWINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q AR.QUERYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (AR.QUERYA0001)) AR.QUERY.EVAL.QLIST D1 (P 7 VALS P 6 X P 1 X I 1 QLIST I 0 QFORMWINDOW F 14Q AR.INDEX.ENTRY.END.PTR F 15Q AR.INDEX.ENTRY.BEGIN.PTR F 16Q AR.INDEX.ENTRY.SIZE) g Ad^iGWWBJJj6JJ ,jJWIIWWIILMh\IWZԹM&KAoAh@ ghWW@A C O#OjMOO AjOWNNW2WNNO N_OOh__NW_ԾO&_OAdg(dAb@A @gA g-AdUAb@A @gA Adg@AA g@AA oAh@ (544Q ERROR! 541Q AR.PROMPT 524Q AR.INDEX.SEARCH.IS 502Q AR.INDEX.SEARCH.HAS 455Q AR.ENTRY.LIST.OR 452Q AR.QUERY.EVAL.QLIST 437Q AR.QUERY.EVAL.QLIST 373Q AR.ENTRY.LIST.AND 370Q AR.QUERY.EVAL.QLIST 355Q AR.QUERY.EVAL.QLIST 246Q MEMBER 211Q \FZEROP 162Q AR.QUERY.EVAL.QLIST 137Q ERROR! 134Q AR.PROMPT 36Q \FZEROP) (510Q IS 465Q HAS 443Q OR 400Q OR 361Q AND 323Q AND 144Q NOT) ( 531Q "Bad Query Spec: " 124Q "Bad Query Spec: ") AR.PRINTA0001 D1 (NAME ERRORSET P 41Q X P 37Q VAL.NCHARS P 36Q FIELD.END.CHAR P 35Q FIELD.START.CHAR P 34Q FIELD.VAL P 33Q FIELD.WIDTH P 32Q FIELD.NAME P 31Q FIELD.SPEC P 27Q OVERFLOW.FIELD.FLG P 26Q OVERFLOW.LINE.NUM P 25Q FIELD.NAME P 24Q FIELD.SPEC P 21Q NAME.NCHARS P 20Q X P 16Q PRINT.DATA.ALIST P 15Q ENTRY P 14Q ENTRY.DATA P 12Q VAL.NCHARS P 11Q FIELD.WIDTH P 10Q FIELD.NAME P 7 FIELD.SPEC P 5 AR.INDEX.FIELD.LIST P 4 AR.INDEX.FIELD.SPECS P 3 AR.INDEX.ENTRY.SIZE P 2 AR.INDEX.ENTRY.END.PTR P 1 AR.INDEX.ENTRY.BEGIN.PTR P 0 AR.INDEX.FILE F 42Q FILE F 43Q QFORMWINDOW F 44Q AR.ENTRY.LIST.PRINT.FIELDS F 45Q AR.INDEX.MONITORLOCK F 46Q AR.ENTRY.LIST.PRINT.MULTILINE.FLAG F 47Q RESETY) "WJhi `WFg WF nWD oWD WD WD oWD WFg WD WD oWD WFg WD WD WD WHA N&WD WD WFg 1OThcNi__O_kO O dOoWD N^O"OO oWD O k_ __WH1O$3O&_jh_.WHqO0EWD WLO.O_l_(O&O(_*OO*' OO* h _&O$_$_2_4O2_6OO4'_8O6O,k_:O6k_O:O>O6WD OOO8OB oWD OBk_BO,k_, (743Q PRIN1 731Q NTHCHAR 705Q PRIN1 640Q SPACES 620Q NCHARS 532Q \NCONC2 524Q AR.GET.FIELD.VAL 447Q TERPRI 357Q PRIN1 345Q NTHCHAR 324Q PRIN1 300Q NCHARS 236Q GETWINDOWUSERPROP 225Q TERPRI 217Q TERPRI 177Q TERPRI 171Q TERPRI 163Q PRIN1 156Q GETWINDOWUSERPROP 145Q PRIN1 133Q TERPRI 125Q PRIN1 120Q GETWINDOWUSERPROP 107Q PRIN1 75Q TERPRI 67Q PRIN1 62Q DATE 56Q PRIN1 44Q LINELENGTH 33Q AR.INDEX.FILE.REOPEN 25Q AR.INDEX.DATA.UNPACK 22Q GETWINDOWUSERPROP 6 OBTAIN.MONITORLOCK) (233Q AR.ENTRY.ALIST 153Q AR.ENTRY.ALIST.SLIST 115Q AR.ENTRY.ALIST.QLIST 17Q AR.INDEX.DATA) ( 736Q " " 700Q " " 352Q " " 317Q " " 140Q "Sorted with Sort Spec: " 102Q "Generated with Query Spec: " 51Q "AR Summary generated on ") AR.PRINT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 FILE I 0 QFORMWINDOW F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q AR.PRINTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (AR.PRINTA0001)) AR.SORTA0001A0002 D1 (I 1 B I 0 A) %@g Ag HI @AIH(27Q EQP 17Q LISTGET 7 LISTGET) (14Q AR.SORT.NUM 4 AR.SORT.NUM) () AR.SORTA0001 D1 (NAME ERRORSET P 32Q FIELD.VAL P 31Q ENTRY P 27Q FIELD.BEGIN.PTR P 26Q MULT P 25Q FIELD.NAME P 22Q ENTRY P 21Q KEYLIST P 20Q NUM P 17Q FIELD.NAME P 13Q CUMUL P 11Q MULTIPLIERS P 10Q ENTRY.ALIST P 5 AR.INDEX.FIELD.LIST P 4 AR.INDEX.FIELD.SPECS P 3 AR.INDEX.ENTRY.SIZE P 2 AR.INDEX.ENTRY.END.PTR P 1 AR.INDEX.ENTRY.BEGIN.PTR P 0 AR.INDEX.FILE F 33Q QFORMWINDOW F 34Q SLIST F 35Q AR.INDEX.MONITORLOCK F 36Q RESETY) W:hi W6g W6 W6 W6g  W8 kbO.O _Oh_^ahsoW8ohW6 _L g _"d l_ OdO k__OOh__O_O&__dOiNOdO$dgjhgj OW82O(_*O&Og W6gW8 hcl D[j1@l KkٰJ Dmbj@B Zdl'ҿB l hJ (152Q BOUT 106Q BOUT 74Q BOUT 31Q SETFILEPTR 21Q ERROR 4 ASSOC) NIL ( 15Q "Field does not have spec") AR.SUMMARYA0001 D1 (NAME ERRORSET P 4 ME P 3 PARSE P 1 ARSTREAM P 0 I F 5 STR F 6 MAP) FkH gg VI JU I HkXULIKL JZ(76Q AR.SHOWFIELD 51Q CLOSEF 44Q TERPRI 30Q AR.PARSE 20Q OPENSTREAM 7 AR.FILENAME) (15Q OLD 12Q INPUT) () AR.SUMMARY D1 (P 0 STR I 1 MAP I 0 TOFILE) A`b@g oi H (35Q CLOSEF 31Q AR.SUMMARYA0001 16Q OPENSTREAM) (13Q OUTPUT 4 AR.SUMMARY.MAP) ( 25Q (AR.SUMMARYA0001)) AR.LAYOUT.WINDOW D1 (I 0 TITLE) (`d @`g@ `@o (42Q CREATEW 24Q PUTWINDOWPROP 10Q CLEARW) (45Q AR.LAYOUT.WINDOW 27Q AR.LAYOUT.WINDOW 20Q TITLE 15Q AR.LAYOUT.WINDOW 2 AR.LAYOUT.WINDOW) ( 37Q "AR Layout") AR.FILENAME D1 (I 0 ARN F 0 AR.DIRECTORY) P@omm o (24Q PACK* 15Q SUBSTRING) NIL ( 21Q ".AR" 5 46113200Q) (PRETTYCOMPRINT AREDITCOMS) (RPAQQ AREDITCOMS ((* * AR.FORM functions and variables) (FNS AR.BUTTON.GET.MENU AR.BUTTON.GET.SUBMENU AR.BUTTON.OBJ.CREATE AR.BUTTONFN.DOMENU AR.BUTTONFN.DOSUBMENU AR.BUTTONFN.SELFIELD AR.CHECK.FIELDS AR.CHECK.MENU AR.CHECK.SHORTSTRING AR.CHECK.SUBMENU AR.CONFIRM AR.COPY.AND.INDEX.AR AR.DELETE.FIELD.VAL AR.DISCONNECT.WINDOW AR.FIND.BUTTON AR.FIND.EDIT.CHANGES AR.FIND.UNPROTECTED.CH# AR.FORM AR.FORM.CLEAR AR.FORM.CREATE AR.FORM.FILL.INS AR.FORM.GROUP.CREATE AR.FORM.MENU.TITLEMENUFN AR.JUST.GET.SUBMIT.NUM AR.JUST.PRINT.AR.NUM AR.KILL.ATTACHED.TEDIT.CLOSEFN AR.FORM.MENU.ACTIONFN AR.FORM.MENU.BUTTONFN AR.FORM.SAVE AR.GET.AR AR.GET.ASSOCIATED.MENU.VAL AR.GET.BUTTON.FIELD.AS.TEXT AR.GET.MENU.FROM.MAIN.WINDOW AR.GET.NEXT AR.GET.SUBMIT.NUM AR.GET.BUTTON.FIELD.AS.LIST AR.GET.FILENAME AR.MARK.ACTIVE AR.MENU.CR.FN AR.MENU.FN.CLEAR AR.MENU.FN.GET AR.MENU.FN.PUT AR.PROMPT AR.PROTECT.WARNING AR.PUT.FAILED AR.RECONNECT.WINDOW AR.REPLACE.FIELD.VAL AR.REPLACE.FILL.INS AR.RESET.SEL AR.SCRATCH.LOAD AR.SEND.MESSAGE AR.TEXTSTREAM.LOAD AR.TOBJ.ACTIVEP AR.UPDATE.AR.INFO AR.USERNAME IMAGEOBJPROPS.MACRO) (* * AR INDEX functions) (FNS AR.ENTRY.LIST.AND AR.ENTRY.LIST.OR AR.ENTRY.LIST.WINDOW.REPAINTFN AR.ENTRY.LIST.WINDOW.BUTTONEVENTFN AR.EDIT.USING.CORRESPONDING.FORM AR.GATHER.NEW.AR.DATA AR.GET.ENTRY.NUM AR.GET.FIELD.VAL.DATA AR.GET.FIELD.VAL.LENGTH AR.GET.FIELD.VAL.PTR AR.GET.FIELD.VAL AR.INDEX.CREATE AR.GET.ENUMERATED.FIELD.KEYS AR.INDEX.DATA.UNPACK AR.INDEX.FIND.ENTRY.PTR AR.INDEX.OPEN AR.INDEX.FILE.REOPEN AR.INDEX.PRINT AR.INDEX.REWRITE.ENTRY.DATA AR.INDEX.REWRITE.FIELD.DATA AR.INDEX.SEARCH.HAS AR.INDEX.SEARCH.IS AR.GET.ENTRY.PTRS.FROM.FIELD.PTRS AR.INDEX.UPDATE AR.QFORM.ACTIONFN AR.QFORM.PROMPT.LIST.FN AR.GET.QLIST.PROMPT.MENU AR.GET.SLIST.PROMPT.MENU AR.QFORM.BUTTONFN AR.QFORM.CREATE AR.QFORM.FN.PRINT AR.QFORM.FN.QUERY AR.QFORM.FN.UPDATE AR.QFORM.GROUP.CREATE AR.QUERY AR.QUERY.EVAL.QLIST AR.PRINT AR.SORT AR.QFORM.DISPLAY.DISCONNECT AR.QFORM.DISPLAY.CONNECT) (VARS AR.FORM.FORMAT AR.FORM.SPECS) ( INITVARS (AR.ENTRY.LIST.WINDOW.FIELDS (QUOTE ((Number: 5) (Status: 5) (Subject: 45) (Attn: 15) ( System: 15) (Subsystem: 15) (Source: 15)))) (AR.ENTRY.LIST.PRINT.FIELDS (QUOTE ((Number: 5) (Date: 9) (System: 14) (Subsystem: 14) (Status: 10) (Attn: 11) (Subject: 50) (Priority: 10) (Difficulty: 10) ( Impact: 9) (Problem% Type: 13)))) (AR.ENTRY.LIST.PRINT.MULTILINE.FLAG T) (AR.INDEX.DEFAULT.FIELDS ( QUOTE (Subject: Source: Date: Submitter: Assigned% To: Attn: Status: In/By: Problem% Type: Impact: Difficulty: Frequency: Priority: System: Subsystem: Machine: Disk: Lisp% Version: Source% Files: Microcode% Version: Memory% Size: File% Server: Server% Software% Version: Edit-By: Edit-Date:))) ( AR.NO.MESSAGE.FLG NIL)) (VARS (AR.INDEX.DEFAULT.FILE.NAME (QUOTE {ERIS}AR.INDEX)) ( AR.INFO.FILE.NAME (QUOTE {ERIS}LISPARS.TDS)) (AR.SUBMIT.NUM.FILE.NAME (QUOTE {ERIS}LISPARS.NUM)) (AR.SUBMIT.FILE.NAME (QUOTE {ERIS}LISPARS.SUBMIT)) (AR.DIRECTORY (QUOTE {PHYLEX:PARC:XEROX}))) (INITVARS (ARBUTTONFONT (FONTCREATE (QUOTE HELVETICA) 12 ( QUOTE BOLD))) (ARFONT (FONTCREATE (QUOTE TIMESROMAN) 10)) (ARBOLDFONT (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE BOLD)))) (* * old vars and fns for AR.SHOW) (FNS AR.SHOW AR.SHOW3 AR.SHOW2 AR.PARSE AR.SHOWFIELD AR.SUMMARY AR.LAYOUT.WINDOW AR.FILENAME) (VARS AR.MAP AR.SUMMARY.MAP AR.THIN.SUMMARY.MAP) (INITVARS (AR.LAYOUT.WINDOW) (ARPARALEADING 2) (AR.READ.WITH.RNUMBERFLG T)) (GLOBALVARS AR.LAYOUT.WINDOW ARFONT ARBOLDFONT ARPARALEADING AR.MAP AR.SUMMARY.MAP AR.THIN.SUMMARY.MAP) (FILES READNUMBER) (ADDVARS (BackgroundMenuCommands ("AR Edit" (QUOTE (AR.FORM)) "Create an AR.FORM editor for the Lisp AR database" (SUBITEMS ("New AR form" (QUOTE (AR.FORM)) "Creates new AR.FORM editor, initially cleared") ("Load AR form" (QUOTE (AR.FORM (RNUMBER))) "Creates new AR.FORM editor, initally loaded with a specified AR") ("AR.SHOW" (QUOTE (AR.SHOW (RNUMBER ))) "Calls the old AR.SHOW bug-report displayer to quickly display a specified AR") ("AR Query Form" ( QUOTE (AR.QFORM.CREATE)) "Creates an AR Query Form"))))) (VARS (BackgroundMenu)) (VARS ( AR.INDEX.MONITORLOCK (CREATE.MONITORLOCK (QUOTE AR.INDEX.LOCK)))) (MACROS AR.ENTRY.PTR.TO.KEY.VAL.PTR AR.ENTRY.TO.NUM AR.INDEX.DATA.CONTEXT AR.KEY.VAL.PTR.TO.ENTRY.PTR ARSPECGET ARSPECPUT IMAGEOBJPROPS) ( RECORDS AR.INDEX.DATA) (UGLYVARS AR.FORM.ICON AR.QFORM.ICON) (RESOURCES SCRATCHSTRING))) (RPAQQ AR.FORM.FORMAT (Number: TAB Date: CR Submitter: TAB Source: CR CR Subject: CR CR Assigned% To: TAB Attn: CR CR Status: TAB In/By: CR Problem% Type: TAB Impact: CR Difficulty: TAB Frequency: CR TAB Priority: CR CR System: TAB Subsystem: CR CR Machine: TAB Disk: CR Lisp% Version: TAB Source% Files: CR Microcode% Version: TAB Memory% Size: CR File% Server: TAB Server% Software% Version: CR CR Disposition: CR CR Description: CR CR Workaround: CR Test% Case: CR CR Edit-By: TAB Edit-Date: CR)) (RPAQQ AR.FORM.SPECS ((Number: FIELDTYPE PROTECTEDSTRING) (Date: FIELDTYPE PROTECTEDSTRING) ( Submitter: FIELDTYPE STRING) (Source: FIELDTYPE STRING) (Subject: FIELDTYPE STRING) (Assigned% To: FIELDTYPE STRING) (Attn: FIELDTYPE STRING) (Status: FIELDTYPE MENU MENULIST (New Open Fixed Closed Declined Superseded Obsolete Incomplete Wish)) (In/By: FIELDTYPE STRING) (Problem% Type: FIELDTYPE MENU MENULIST (Bug Design% -% Impl Feature Design% -% UI Documentation Performance)) (Impact: FIELDTYPE MENU MENULIST (Fatal Serious Moderate Annoying Minor)) (Difficulty: FIELDTYPE MENU MENULIST (Easy Moderate Hard Very% Hard Impossible)) (Frequency: FIELDTYPE MENU MENULIST (Everytime Intermittent Once)) (Priority: FIELDTYPE MENU MENULIST (Absolutely Hopefully Perhaps Unlikely)) ( System: FIELDTYPE MENU ASSOCSUBMENU Subsystem: MENULIST (Communications Windows% and% Graphics Operating% System Language% Support Programming% Environment Text Common% Lisp LOOPS PCE PROLOG BusMaster Documentation Other% Software)) (Subsystem: FIELDTYPE SUBMENU ASSOCMENU System: SUBMENULIST (Communications (NS% Protocols NS% Filing NS% Printing PUP% Protocols PUP% FTP Grapevine Leaf RS232 VAX% Server DEI EVMS/RPC Lisp% Servers Clearinghouse TCP/IP Chat Other) Windows% and% Graphics ( Window% System Library Fonts Printing Color Bitmaps Demos Other) Operating% System (Virtual% Memory Generic% File% Operations DLion% Disk Daybreak% Disk DLion% Floppy Daybreak% Floppy Dolphin/Dorado% Disk Processes Streams Keyboard Mouse Other) Language% Support (Arithmetic Compiler,% Code% Format For/If Microcode Storage% Formats/Mgt Garbage% Collection Read% and% Print Stack% and% Interpreter Bootstrapping% and% Teleraid Diagnostics Other) Programming% Environment ( Break% Package Code% Editor DWIM Inspector File% Package History Masterscope PSW Record% Package Performance% Tools Other) Text (TEdit TTYIN Lafite Other) Common% Lisp (Type% System Declarations Macros Control% Structure Evaluator Symbols/Packages Arithmetic Characters/Strings Sequences Lists Arrays Structures Hash% Tables Streams% and% I/O File% System% Interface Error% System Compiler Tamarin% Support Microcoded% Operations Common% Loops Other) LOOPS (Active% Values Composite% Objects Objects Browsers User% Interface Virtual% Copy Other) PCE (Monochrome% Display Color% Display Keyboard Emulated% Rigid% Disk Floppy% Disk Printer% Port User% Interface Programmatic% Interface File% System% Interface Memory Ethernet Configuration% Tools) PROLOG (Arithmetic Dinfo Microcode Editor% Interface Compiler Interpreter I/O Debugging Prolog-Lisp% Interface Other) BusMaster (Speech Color Other) Documentation (Tools 1108% Users% Guide 1186% Users% Guide Primer Product% Descr/Tech% Summary Hardware% Installation% Guide Programmers% Introduction Interlisp% Reference% Manual Library% Package% Manual Internal% System% Documentation Other) Other% Software (Installation% Utility Release% Procedure Other))) (Machine: FIELDTYPE MENU ASSOCSUBMENU Disk: MENULIST (1100 1108 1132 1186)) (Disk: FIELDTYPE SUBMENU ASSOCMENU Machine: SUBMENULIST (1100 NIL 1108 (SA1000% %(10MB%) SA4000% %(29MB%) Q2040% %(43MB%) Q2080% %(80MB%) T80% %(80MB%) T300% %(300MB%) Other) 1132 (T80% %(80MB%) Century315 Other) 1186 (ST212% %(10MB%) TM703% %(20MB%) TM702% %(20MB%) ST4026% %(20MB%) Q530% %(20MB%) Q540% %(40MB%) Micropolis% 1303% %(40MB%) Micropolis% 1325% %(80MB%)))) (Lisp% Version: FIELDTYPE STRING) ( Source% Files: FIELDTYPE STRING) (Microcode% Version: FIELDTYPE STRING) (Memory% Size: FIELDTYPE STRING) (File% Server: FIELDTYPE MENU MENULIST (8037 IFS NS VAX/VMS% -% 3Mb VAX/VMS% -% 10Mb VAX/UNIX Micro% VAX/VMS Other)) (Server% Software% Version: FIELDTYPE STRING) (Disposition: FIELDTYPE STRING) ( Description: FIELDTYPE STRING) (Workaround: FIELDTYPE STRING) (Test% Case: FIELDTYPE STRING) (Edit-By: FIELDTYPE STRING) (Edit-Date: FIELDTYPE PROTECTEDSTRING))) (RPAQ? AR.ENTRY.LIST.WINDOW.FIELDS (QUOTE ((Number: 5) (Status: 5) (Subject: 45) (Attn: 15) (System: 15) (Subsystem: 15) (Source: 15)))) (RPAQ? AR.ENTRY.LIST.PRINT.FIELDS (QUOTE ((Number: 5) (Date: 9) (System: 14) (Subsystem: 14) (Status: 10) (Attn: 11) (Subject: 50) (Priority: 10) (Difficulty: 10) (Impact: 9) (Problem% Type: 13)))) (RPAQ? AR.ENTRY.LIST.PRINT.MULTILINE.FLAG T) (RPAQ? AR.INDEX.DEFAULT.FIELDS (QUOTE (Subject: Source: Date: Submitter: Assigned% To: Attn: Status: In/By: Problem% Type: Impact: Difficulty: Frequency: Priority: System: Subsystem: Machine: Disk: Lisp% Version: Source% Files: Microcode% Version: Memory% Size: File% Server: Server% Software% Version: Edit-By: Edit-Date:))) (RPAQ? AR.NO.MESSAGE.FLG NIL) (RPAQQ AR.INDEX.DEFAULT.FILE.NAME {ERIS}AR.INDEX) (RPAQQ AR.INFO.FILE.NAME {ERIS}LISPARS.TDS) (RPAQQ AR.SUBMIT.NUM.FILE.NAME {ERIS}LISPARS.NUM) (RPAQQ AR.SUBMIT.FILE.NAME {ERIS}LISPARS.SUBMIT) (RPAQQ AR.DIRECTORY {PHYLEX:PARC:XEROX}) (RPAQ? ARBUTTONFONT (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD))) (RPAQ? ARFONT (FONTCREATE (QUOTE TIMESROMAN) 10)) (RPAQ? ARBOLDFONT (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE BOLD))) (RPAQQ AR.MAP ((Number: T) (Date: T) (Submitter:) (Source:) (System: T) (Machine:) (Subsystem: T) ( Disk:) (Problem% Type: T) (Memory% Size:) (Subject:) (Source% Files:) (Impact: T) (Frequency:) ( Status: T) (In/By: T) (Attn:) (Assigned% To: T) (Priority: T) (Difficulty:) (Disposition:) ( Lisp% Version: T) (Microcode% Version:) (File% Server: T) (Server% Software% Version:) (Description:) (Workaround:) (Test% Case:) (Edit-By: T) (Edit-Date:))) (RPAQQ AR.SUMMARY.MAP ((Number: 4) (System: 15) (Subsystem: 10) (Status: 8) (Problem% Type: 5) ( Impact: 10) (Frequency: 10) (Subject: 30) (Priority: 10) (Difficulty: 10) (Attn: 10))) (RPAQQ AR.THIN.SUMMARY.MAP ((Number: 5) (Status: 5) (Attn: 10) (Problem% Type: 5) (Priority: 5) ( Subject: 40))) (RPAQ? AR.LAYOUT.WINDOW) (RPAQ? ARPARALEADING 2) (RPAQ? AR.READ.WITH.RNUMBERFLG T) (FILESLOAD READNUMBER) (ADDTOVAR BackgroundMenuCommands ("AR Edit" (QUOTE (AR.FORM)) "Create an AR.FORM editor for the Lisp AR database" (SUBITEMS ("New AR form" (QUOTE (AR.FORM)) "Creates new AR.FORM editor, initially cleared") ("Load AR form" (QUOTE (AR.FORM (RNUMBER))) "Creates new AR.FORM editor, initally loaded with a specified AR") ("AR.SHOW" (QUOTE (AR.SHOW (RNUMBER ))) "Calls the old AR.SHOW bug-report displayer to quickly display a specified AR") ("AR Query Form" ( QUOTE (AR.QFORM.CREATE)) "Creates an AR Query Form")))) (RPAQQ BackgroundMenu NIL) (RPAQ AR.INDEX.MONITORLOCK (CREATE.MONITORLOCK (QUOTE AR.INDEX.LOCK))) (PUTPROPS AR.ENTRY.PTR.TO.KEY.VAL.PTR MACRO (X (BQUOTE (IPLUS , (CADR X) (IQUOTIENT (IDIFFERENCE , ( CAR X) AR.INDEX.ENTRY.BEGIN.PTR) AR.INDEX.ENTRY.SIZE))))) (PUTPROPS AR.ENTRY.TO.NUM MACRO (X (BQUOTE (PROGN (SETFILEPTR AR.INDEX.FILE , (CAR X)) (\DWIN AR.INDEX.FILE))))) (PUTPROPS AR.INDEX.DATA.CONTEXT MACRO (X (BQUOTE (WITH.MONITOR AR.INDEX.MONITORLOCK (PROG ( AR.INDEX.FILE AR.INDEX.ENTRY.BEGIN.PTR AR.INDEX.ENTRY.END.PTR AR.INDEX.ENTRY.SIZE AR.INDEX.FIELD.SPECS AR.INDEX.FIELD.LIST) (DECLARE (SPECVARS AR.INDEX.FILE AR.INDEX.ENTRY.BEGIN.PTR AR.INDEX.ENTRY.END.PTR AR.INDEX.ENTRY.SIZE AR.INDEX.FIELD.SPECS AR.INDEX.FIELD.LIST)) (AR.INDEX.DATA.UNPACK (WINDOWPROP , ( CAR X) (QUOTE AR.INDEX.DATA))) (AR.INDEX.FILE.REOPEN , (CAR X)) (RETURN (PROGN ,@ (CDR X)))))))) (PUTPROPS AR.KEY.VAL.PTR.TO.ENTRY.PTR MACRO (X (BQUOTE (IPLUS (ITIMES AR.INDEX.ENTRY.SIZE (IDIFFERENCE , (CAR X) , (CADR X))) AR.INDEX.ENTRY.BEGIN.PTR)))) (PUTPROPS ARSPECGET MACRO (X (BQUOTE (LISTGET (CDR (ASSOC , (CADR X) , (CAR X))) , (CADDR X))))) (PUTPROPS ARSPECPUT MACRO (X (BQUOTE (LISTPUT (CDR (ASSOC , (CADR X) , (CAR X))) , (CADDR X) , (CADDDR X))))) (PUTPROPS IMAGEOBJPROPS MACRO (X (IMAGEOBJPROPS.MACRO X))) (TYPERECORD AR.INDEX.DATA (AR.INDEX.FILE AR.INDEX.ENTRY.BEGIN.PTR AR.INDEX.ENTRY.END.PTR AR.INDEX.ENTRY.SIZE AR.INDEX.FIELD.SPECS AR.INDEX.FIELD.LIST)) (READVARS AR.FORM.ICON AR.QFORM.ICON) ({ (READBITMAP) (60 60 "OOOOOOOOOOOOOOO@" "OOOOOOOOOOOOOOO@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@CO@@@@@@C@" "L@@@@@GOH@@@@@C@" "L@@@@@NAL@@@@@C@" "L@@CH@L@L@@@@@C@" "L@@OL@L@L@CN@@C@" "L@ALL@L@L@CO@@C@" "L@GHN@L@L@GCH@C@" "L@N@F@L@L@FAL@C@" "LGH@F@NAL@F@G@C@" "LG@@BCOOO@L@CHC@" "LD@@CGOOOIL@ALC@" "L@@@CO@@CMH@@NC@" "L@@@CL@@@O@@@FC@" "L@@@CH@@@G@@@@C@" "L@@@O@@@@CH@@@C@" "L@@@LCOCO@L@@@C@" "L@@@LGOCOHN@@@C@" "L@GAHNCCALF@@@C@" "L@GMHLCC@LF@@@C@" "L@MOHLCC@LGOL@C@" "LAHC@LCC@LCON@C@" "LAHC@LCC@LC@N@C@" "LC@C@OOCOLC@C@C@" "LC@C@OOCOLC@C@C@" "LF@C@LCCG@C@AHC@" "LF@C@LCCCHC@AHC@" "LF@C@LCCALC@@LC@" "LF@CHLCC@LF@@NC@" "L@@AHLCC@LF@@FC@" "L@@AHLCC@LF@@FC@" "L@@@LLCC@LL@@@C@" "L@AOLLCC@LON@@C@" "L@AOLLCC@LON@@C@" "L@AHN@CC@ALF@@C@" "L@AHF@CC@AHC@@C@" "L@CHF@CC@AHC@@C@" "L@C@C@CC@C@AH@C@" "L@C@CHCC@G@AH@C@" "L@C@AHCC@F@AH@C@" "L@C@@N@@AN@AL@C@" "L@F@@G@@CL@@L@C@" "L@F@@CNCOH@@N@C@" "L@N@@AOON@@@F@C@" "L@L@@@CN@@@@C@C@" "LAH@@@@@@@@@CHC@" "LAH@@@@@@@@@ALC@" "LC@@@@@@@@@@ALC@" "LF@@@@@@@@@@@NC@" "LF@@@@@@@@@@@FC@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "OOOOOOOOOOOOOOO@" "OOOOOOOOOOOOOOO@") } { (READBITMAP) (60 110 "OOOOOOOOOOOOOOO@" "OOOOOOOOOOOOOOO@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@EMML@@@@@C@" "L@@@@GGGF@@@@@C@" "L@@@AMMMML@@@@C@" "L@@@CGGGGF@@@@C@" "L@@@MMMMMM@@@@C@" "L@@AGGGGGG@@@@C@" "L@@AMMMMMMH@@@C@" "L@@CGGGGGG@@@@C@" "L@@AMMMMMML@@@C@" "L@@CGGGGGGF@@@C@" "L@@AMMHAMML@@@C@" "L@@CGF@AGGF@@@C@" "L@@AML@@MML@@@C@" "L@@CGD@@GGF@@@C@" "L@@AML@@EML@@@C@" "L@@CGF@@GGF@@@C@" "L@@AML@@EML@@@C@" "L@@CGF@@GGD@@@C@" "L@@AML@@MML@@@C@" "L@@@GD@AGGD@@@C@" "L@@@EH@AMMH@@@C@" "L@@@@@@GGG@@@@C@" "L@@@@@AMMM@@@@C@" "L@@@@@CGGF@@@@C@" "L@@@@@EMML@@@@C@" "L@@@@@GGG@@@@@C@" "L@@@@@EMM@@@@@C@" "L@@@@@GGD@@@@@C@" "L@@@@@EML@@@@@C@" "L@@@@@GGD@@@@@C@" "L@@@@@EML@@@@@C@" "L@@@@@GGD@@@@@C@" "L@@@@@EML@@@@@C@" "L@@@@@GGD@@@@@C@" "L@@@@@EML@@@@@C@" "L@@@@@GGD@@@@@C@" "L@@@@@EML@@@@@C@" "L@@@@@GGD@@@@@C@" "L@@@@@EML@@@@@C@" "L@@@@@GGD@@@@@C@" "L@@@@@EML@@@@@C@" "L@@@@@GGD@@@@@C@" "L@@@@@AMH@@@@@C@" "L@@@@@AG@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@GO@@@@@@C@" "L@@@@@OGH@@@@@C@" "L@@@@@MML@@@@@C@" "L@@CH@OGF@@@@@C@" "L@@OL@MMN@CN@@C@" "L@ALL@OGF@CO@@C@" "L@GHN@MMN@GCH@C@" "L@N@F@OGF@FAL@C@" "LCH@F@MMN@F@G@C@" "LC@@BCOOO@L@CHC@" "L@@@CGOOOIL@ALC@" "L@@@CO@@CMH@@NC@" "L@@@CL@@@O@@@FC@" "L@@@CH@@@G@@@@C@" "L@@@O@@@@CH@@@C@" "L@@@LCOCO@L@@@C@" "L@@@LGOCOHN@@@C@" "L@GAHNCCALF@@@C@" "L@GMHLCC@LF@@@C@" "L@MOHLCC@LGOL@C@" "LAHC@LCC@LCON@C@" "LAHC@LCC@LC@N@C@" "LC@C@OOCOLC@C@C@" "LC@C@OOCOLC@C@C@" "LF@C@LCCG@C@AHC@" "LF@C@LCCCHC@AHC@" "LF@C@LCCALC@@LC@" "LF@CHLCC@LF@@NC@" "L@@AHLCC@LF@@FC@" "L@@AHLCC@LF@@FC@" "L@@@LLCC@LL@@@C@" "L@AOLLCC@LON@@C@" "L@AOLLCC@LON@@C@" "L@AHN@CC@ALF@@C@" "L@AHF@CC@AHC@@C@" "L@CHF@CC@AHC@@C@" "L@C@C@CC@C@AH@C@" "L@C@CHCC@G@AH@C@" "L@C@AHCC@F@AH@C@" "L@B@@N@@AN@AL@C@" "L@F@@G@@CL@@L@C@" "L@F@@CNCOH@@N@C@" "L@N@@AOON@@@F@C@" "L@L@@@CN@@@@C@C@" "LAH@@@@@@@@@CHC@" "LAH@@@@@@@@@ALC@" "LC@@@@@@@@@@ALC@" "LF@@@@@@@@@@@NC@" "LF@@@@@@@@@@@FC@" "L@@@@@@@@@@@@BC@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "L@@@@@@@@@@@@@C@" "OOOOOOOOOOOOOOO@" "OOOOOOOOOOOOOOO@") }) (PUTDEF (QUOTE SCRATCHSTRING) (QUOTE RESOURCES) (QUOTE (NEW (ALLOCSTRING 100)))) (PUTPROPS AREDIT COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL