(FILECREATED "30-Aug-84 11:37:00" ("compiled on " {ERIS}LISP>AREDIT.;39) "29-Aug-84 20:44:39" tcompl'd in "INTERLISP-D 29-Aug-84 ..." dated "29-Aug-84 20:58:02") (FILECREATED "30-Aug-84 11:35:40" {ERIS}LISP>AREDIT.;39 131007 changes to: (MACROS AR.INDEX.DATA.CONTEXT) (FNS AR.FORM.GROUP.CREATE AR.ENTRY.LIST.WINDOW.REPAINTFN AR.ENTRY.LIST.WINDOW.BUTTONEVENTFN AR.INDEX.FILE.REOPEN AR.INDEX.UPDATE AR.QFORM.ACTIONFN AR.GET.QLIST.PROMPT.MENU AR.GET.SLIST.PROMPT.MENU AR.QUERY AR.PRINT AR.SORT AR.BUTTONFN.DOMENU AR.BUTTONFN.DOSUBMENU AR.BUTTONFN.SELFIELD AR.DELETE.FIELD.VAL AR.FIND.BUTTON AR.KILL.ATTACHED.TEDIT.CLOSEFN AR.FORM.MENU.BUTTONFN AR.GET.ASSOCIATED.MENU.VAL AR.PROTECT.WARNING AR.REPLACE.FIELD.VAL AR.RESET.SEL AR.EDIT.USING.CORRESPONDING.FORM AR.QFORM.PROMPT.LIST.FN AR.QFORM.BUTTONFN AR.QFORM.GROUP.CREATE AR.FIND.EDIT.CHANGES) previous date: "29-Aug-84 16:43:52" {ERIS}LISP>AREDIT.;36) AR.BUTTON.GET.MENU D1 (I 0 OBJ) ’@g µ‚±†@g`@g hHd²dið³d¥d¡µ gHhhh HdI¿@g HdI¿dg ¿dg¿jdnÿdhHdI ¿@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`HhZd²dið³d¥d¡µ gJhhh »dK¿@g ¼dL¿dg ¿dg¿jdnÿdh½dM ¿Y@g œ@g AI‹@gAIhI(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 !Hgð²A@ g “g¸A@ g µQHdgðž¿A@ g °;gð”g°1Hgð§Hdgð•¿g°gð”g°Hgð“g‡oH YA@ g µBbAIBZdKgHdgð–¿o°gð¥Hgð”oƒo¿KgHgð¥Hgð”oƒo¿KgHgðHgð§Hdgð•¿g°*gð”g° Hdgð•¿g°gð“g‡oH ¿KgHgð³Hgð¬Hgð¦Hgð´iHdgð²¿JgA@ g ¿°hgð²0JKgA@ 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) jBg @ @g IµB h@g ³ð@AÉHI¿J²àHJ KµoJ ¿KKH¿KgI°´(145Q IMAGEOBJPROP 133Q AR.REPLACE.FIELD.VAL 130Q PACKC 117Q ERROR 101Q AR.FIND.BUTTON 70Q AR.REPLACE.FIELD.VAL 52Q EQUAL 47Q IMAGEOBJPROP 36Q AR.RESET.SEL 24Q IMAGEOBJPROP 15Q MENU 12Q AR.BUTTON.GET.MENU 6 GETWINDOWUSERPROP) (141Q AR.ASSOCIATED.MENU.VAL 61Q SELECTION 44Q AR.FIELD.VALUE 21Q AR.ASSOCIATED.SUBMENU 3 TEXTSTREAM) ( 113Q "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) ;Bg @B @I Zd²d@g ¬@AÉHJ¿B h(67Q AR.RESET.SEL 62Q AR.REPLACE.FIELD.VAL 45Q EQUAL 42Q IMAGEOBJPROP 26Q MENU 23Q AR.BUTTON.GET.SUBMENU 13Q AR.GET.ASSOCIATED.MENU.VAL 6 GETWINDOWUSERPROP) (53Q 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) 6AÉ1HAÉ HÉYdÉZIÉ[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 \²V¿L»L¹Kg ²Kg IØ¾Kg °HI ]É¾MÉ_¿Kg _¿@KINOlOZ²¢J´oKg 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 _¿NµOh^½LkØ\°äO&¾°öMYH —o ¿Iµh 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 _¿NµOh^½LkØ\°äO&¾°öMYH —o ¿AghIµh 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µ;KhZ¹Ll:ð²ðI A @ ¿B–MB ²DA@ \dl'ð¿¿@ °)K&º°Él ð²@ l ð£¿MNA NÙhH¸°.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 Y§o ¿HIÉIÉ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 [µºK¹AJg ð²å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 j´I¡hJ _KkØ»OK ]¢±m¿M¼M»Lg ¾Lg _²Lg KØ_¿Lg _¿°+OK Oµo ¿OÉ_¿OÉ_JOkÙ ¿NI _µj_¿Oµj_¿OO ²4OkJOkÙ ¿HO ¿O"O ñ¯J H ð¡hˆO"kØ_"°îi’±ÿ8NO_¿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 [µºK¹Jg ³çK§o ¿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@d²dið³d¥d¡µ 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 [²¿KºK¹JI@¿°ã@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±,d¿Ndgð²¿H kØ»Hl ¿IkØ¹±gð²_Ijñ²'ghIkJIkØÛ3OdOñ²¿OhKkL¼j¹Hl ¿±ÇOÚg_¿OµOh__¿OkØ_°ÂO&_¿°òN˜NH ¿±“BNAH kØ2¿OHO¿oOkM½OkØ_¿HOkÙ ¿Og H ¿H kØOÙ_¿OgOkØ¿Ogj¿Og ³oOOkÙØkM½Og H µ‚±þÓHglhkH HokH 0M²+¿MM½_$¿MM½_&¿MM½_(¿HO$O&O(¿°Ö0L²+¿LL¼_$¿LL¼_&¿LL¼_(¿HO$O&O(¿°ÖHi H i<@ É.@g H #O*µpgO.gig`ghh_2¿@g ²g@g O2_2¿@g ²g@g O2_2¿H@hO2_0¿O,´ O0gO,h ²@ ¿°ˆ(1202Q TEDIT.KILL 1174Q PROCESSP 1167Q PROCESSPROP 1146Q TEDIT 1127Q GETWINDOWUSERPROP 1113Q GETWINDOWUSERPROP 1075Q GETWINDOWUSERPROP 1061Q GETWINDOWUSERPROP 1004Q AR.FIND.UNPROTECTED.CH# 1000Q GETWINDOWUSERPROP 767Q \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) (1162Q NAME 1124Q AR.TEDIT.TITLEMENUFN 1120Q TITLEMENUFN 1110Q AR.TEDIT.TITLEMENUFN 1072Q AR.TEDIT.READTABLE 1066Q READTABLE 1056Q AR.TEDIT.READTABLE 1035Q TEDIT.TENTATIVE 1032Q ARFONT 1027Q FONT 1023Q LEAVETTY 1016Q SEL 775Q 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) gogHhgHhghgdgð•¿nT°dgð”¿nL‹gð“nl‚hgQhghh(131Q REALMEMORYSIZE 111Q PACKC 46Q MACHINETYPE 35Q MICROCODEVERSION 2 AR.USERNAME) (126Q Memory% Size: 117Q Lisp% Version: 100Q 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 TEDIT.READTABLE F 6 ARBUTTONFONT F 7 AR.FORM.SPECS F 10Q AR.FORM.FORMAT) nÂl< o !HggHgnÂl<HggHgTH ÉZdJJkÙØJl(ho YdHggIgjl(Igjl(IgTIggg •S ³U c¿l gS¿IgSIggHl H`WWIVooHg —Ig ¨nè ¿°é@˜Ig@†Ig h(415Q AR.FORM.MENU.ACTIONFN 405Q AR.FORM.MENU.ACTIONFN 370Q BLOCK 361Q GETWINDOWUSERPROP 351Q GETWINDOWUSERPROP 342Q AR.FORM.CREATE 325Q AR.FORM.CREATE 312Q GETPROMPTWINDOW 304Q PUTWINDOWPROP 272Q PUTWINDOWPROP 261Q TEDIT.SETFUNCTION 245Q 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) (412Q New 401Q Get 356Q LINES 346Q LINES 316Q ARBOLDFONT 301Q AR.FORM.MENU.TITLEMENUFN 276Q AR.TEDIT.TITLEMENUFN 266Q AR.TEDIT.READTABLE 255Q AR.MENU.CR.FN 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) ( 337Q (New TAB Get TAB Put TAB Number: TAB CR) 333Q ((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) Y g ’Rµ7`do¿do¿dg ¿dg¿jdnÿdh¹dI ¿c Xd´@ ÉH h(125Q 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&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.KILL.ATTACHED.TEDIT.CLOSEFN D1 (P 2 TSTREAM P 1 AW I 0 WINDOW) @@ !Hµ@g Zd– hYg Z²I ¿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 L (2 W 1 V 0 U) P 1 FILE P 0 NUM F 2 FORMWINDOW F 3 OPERATION F 4 NUM.FOR.GET F 5 MENUWINDOW) ÌSdgð—¿R ±½dgðš¿R ±¬dgð²¿RTµUg ±dgð—¿R ±‚dgð²¿R ¿RH °fdgð¦dgð²P¿oR ¿Sgð”oƒoRg hR I²RgI¿Sgð•RI „RI ¿ˆ¿oR i(310Q AR.PROMPT 274Q AR.FORM.SAVE 266Q AR.GET.AR 252Q PUTWINDOWPROP 234Q MKATOM 231Q PROMPTFORWORD 226Q GETPROMPTWINDOW 221Q GETWINDOWUSERPROP 172Q AR.PROMPT 141Q AR.MENU.FN.GET 133Q AR.MENU.FN.PUT 124Q RNUMBER 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) (257Q Get% From% File 246Q AR.GET/PUT.FILE.NAME 216Q AR.GET/PUT.FILE.NAME 177Q Get% From% File 156Q Put% To% File 150Q Get% From% File 115Q Put&Get 77Q Put 57Q Number: 43Q Get 22Q New 4 Clear) ( 304Q "Unknown AR.FORM button name!" 212Q "Put File: " 205Q "Get File: " 166Q "") 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 “H‘J©oI hH ¤J ™oI hHA JA hlHg@I I AohI o H J @ I Iooh(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 (24Q AR.FORM.MENU.ACTIONFN 21Q IMAGEOBJPROP) (16Q MBTEXT 10Q TEXTOBJ 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 L (2 W 1 V 0 U) 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 hhWc¿ghhhWc¿W W kSnÿÿW ¿¿IJ ZªW hciHJkÙ ¿H [g W ¿Wl ¿Kg ²Kg JØ¼Kg °IJ ^É¼NÉ½HLkÙ ¿Mk OOñ³TH _d¡µoKg ohW °%l ð«Ol:ð¥Ol'ð›¿Wl' ¿WO ¿OkØ_°«W ¿W ¿JkØZ±ÿ#(417Q TERPRI 411Q TERPRI 372Q BOUT 362Q BOUT 352Q BLOCK 325Q AR.PROMPT 310Q IMAGEOBJPROP 244Q SETFILEPTR 217Q MBUTTON.FIND.NEXT.FIELD 210Q IMAGEOBJPROP 176Q IMAGEOBJPROP 165Q IMAGEOBJPROP 155Q BOUT 145Q PRIN1 140Q IMAGEOBJPROP 126Q SETFILEPTR 111Q CLOSEF 101Q MBUTTON.FIND.NEXT.BUTTON 73Q BLOCK 67Q LINELENGTH 53Q TEXTOBJ 46Q TEXTSTREAM 7 RADIX) (305Q MBTEXT 232Q SELECTION 223Q SELECTION 205Q AR.FIELD.LEN 173Q AR.FIELD.START 162Q AR.PROTECTED.FLG 135Q MBTEXT 25Q AR.FORM.SAVEA0001A0002 2 RADIX) ( 314Q " field -- ignored" 301Q "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) 4AggH YU!Vog ‘h‚g\ ¿L’I(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 L (2 W 1 V 0 U) F 0 FILE F 1 ARSTREAM) Pggci(11Q OPENSTREAM) (6 OLD 3 INPUT) () AR.GET.ARA0002 D1 (NAME ERRORSET L (2 W 1 V 0 U) F 0 FORMWINDOW F 1 ARSTREAM) PQ i(4 AR.SCRATCH.LOAD) NIL () AR.GET.ARA0003 D1 (NAME ERRORSET L (2 W 1 V 0 U) F 0 FORMWINDOW) P i(3 AR.FORM.CLEAR) NIL () AR.GET.ARA0004 D1 (NAME ERRORSET L (2 W 1 V 0 U) F 0 FORMWINDOW) P i(3 AR.TEXTSTREAM.LOAD) NIL () AR.GET.AR D1 (P 2 ARSTREAM P 1 FILE P 0 LOAD.ERROR I 1 NUM/OR/FILE I 0 FORMWINDOW) Ö0Add¥d¡“ ‚ YdµoAoh@ g žoAoh°(o oAoho ¦oh€hXJµ7Hµ.o ˜o ³/o@ ¿@g ¿@go°6@ H ²ÈJ ¿°Á@gAd¥d¡´A¿@goA h(322Q PUTWINDOWPROP 317Q CONCAT 302Q PUTWINDOWPROP 252Q CLOSEF 244Q OPENP 237Q AR.PROMPT 220Q PUTWINDOWPROP 210Q AR.PROMPT 176Q AR.GET.ARA0004 166Q AR.GET.ARA0003 137Q AR.GET.ARA0002 111Q AR.GET.ARA0001 62Q OPENP 53Q AR.PROMPT 26Q FULLNAME 22Q AR.GET.FILENAME) (307Q TITLE 261Q AR.FORM.NUMBER 225Q TITLE 215Q AR.FORM.NUMBER 56Q NO.FILE) ( 313Q "Editing AR " 231Q "--- form inconsistant --- Please GET or NEW" 204Q "UNKNOWN SCRATCH COPY ERROR --- form in inconsistant state --- Get aborted" 173Q (AR.GET.ARA0004) 163Q (AR.GET.ARA0003) 144Q "UNKNOWN LOAD ERROR --- Get aborted" 134Q (AR.GET.ARA0002) 123Q " doesn't exist -- Get aborted" 116Q "AR " 106Q (AR.GET.ARA0001) 74Q " is already open --- Get aborted" 67Q "The file for AR " 43Q " --- Get aborted" 36Q "Bad file number: ") AR.GET.ASSOCIATED.MENU.VAL D1 (P 0 BUTTON I 1 WINDOW I 0 OBJ) 0Ag @g Hµo@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 [µºK¹AJg ð²åK•HI 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.SUBMIT.NUMA0001 D1 (NAME ERRORSET L (2 W 1 V 0 U) F 0 AR.SUBMIT.NUM.FILE.NAME) Pggh(11Q OPENSTREAM) (6 OLD 3 BOTH) () AR.GET.SUBMIT.NUMA0002 D1 (NAME ERRORSET L (2 W 1 V 0 U) F 0 SUBMIT.NUM.FILE F 1 CURR.NEXT.NUM) (Pj ¿P cd¡£¿Pj ¿QkØP h(43Q PRINT 33Q SETFILEPTR 25Q ERROR! 11Q READ 4 SETFILEPTR) NIL () AR.GET.SUBMIT.NUM D1 (P 2 CURR.NEXT.NUM P 1 VAL P 0 SUBMIT.NUM.FILE I 0 FORMWINDOW F 3 AR.SUBMIT.NUM.FILE.NAME) G0S ³hoSoh@ ¿nˆ ¿S ³ão X²Øo YH I´J(100Q CLOSEF 73Q AR.GET.SUBMIT.NUMA0002 60Q AR.GET.SUBMIT.NUMA0001 47Q OPENP 42Q DISMISS 33Q AR.PROMPT 6 INFILEP) NIL ( 70Q (AR.GET.SUBMIT.NUMA0002) 55Q (AR.GET.SUBMIT.NUMA0001) 23Q " --- please wait" 16Q "submit number file busy: ") AR.GET.BUTTON.FIELD.AS.LISTA0001 D1 (NAME ERRORSET L (2 W 1 V 0 U) 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 \µI»Jµ KhZ¹°êK&º°å(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)) @d–AFANIL (5 TEXTOBJ) () AR.MENU.CR.FN D1 (I 1 TOBJ I 0 TSTREAM) A AÉg (17Q AR.FORM.MENU.ACTIONFN 3 AR.MARK.ACTIVE) (14Q Get 7 TEXTOBJ) () AR.MENU.FN.CLEAR D1 (I 1 FILL.INS I 0 FORMWINDOW) 6@ šo@ ¡h@ @g @A @goo@ 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.GET D1 (P 0 BAD.GET I 1 CURR.NUM I 0 FORMWINDOW) mAd¡²8@ ²o@ ©o@ hoAoh@ ¿@A ²iX°oAoh@ ¿i¸H³oAoh@ h(151Q AR.PROMPT 122Q AR.PROMPT 73Q AR.GET.AR 65Q AR.PROMPT 42Q AR.PROMPT 31Q AR.CONFIRM 17Q TEDIT.STREAMCHANGEDP) NIL ( 141Q " retrieved" 134Q "AR " 112Q "%" --- Get aborted" 105Q "Bad number %"" 55Q " ..." 50Q "Retrieving AR " 36Q "Get aborted" 25Q "Form has been changed --- confirm GET") AR.MENU.FN.PUT D1 (P 14Q X P 10Q SEL P 7 BUTTON P 6 TSTREAM P 5 SUBMIT.NUM P 4 EDIT.CHANGES.LIST P 3 SAVE.VALUE P 2 CHECK.VALUE P 1 FILE P 0 CURR.NUM I 0 FORMWINDOW F 15Q AR.SUBMIT.FILE.NAME) @g Q@ ³o@ ©o@ hH¢±Õ@ ¼@ !@g _™Og —o ¿N O _¿N0L°OdOLð´l ohOi Od§¿oh‹¦oh€h _šOµAO__¿µ²O OÉOÉØhi @ghghh°, _O°¿@ ]@gMhh ¿@ghh ¿@ Z²oJoh @ h@ H²oHoh@ ¿@Hi Žo@ ¿@Mµ>W »@i K¢±’H²1@gHL¿oHh@ ¿@goHo°ai °Â@gMµKh¿M²2oMh@ ¿@g ¿@gM¿@goMo°o@ ¿@go¿@ h(1013Q REDISPLAYW 1006Q PUTWINDOWPROP 772Q AR.PROMPT 760Q CONCAT 737Q PUTWINDOWPROP 726Q PUTWINDOWPROP 716Q AR.PROMPT 676Q AR.UPDATE.AR.INFO 670Q DATE 665Q AR.USERNAME 650Q AR.GET.FILENAME 642Q CONCAT 621Q AR.PROMPT 604Q AR.UPDATE.AR.INFO 563Q TEDIT.STREAMCHANGEDP 555Q AR.FORM.SAVE 543Q AR.PROMPT 532Q AR.GET.FILENAME 523Q AR.PROMPT 477Q CLEARW 471Q AR.PROMPT 465Q \APPEND2 462Q \APPEND2 441Q AR.CHECK.FIELDS 434Q AR.REPLACE.FILL.INS 424Q DATE 414Q AR.REPLACE.FILL.INS 375Q AR.GET.SUBMIT.NUM 362Q LAST 347Q DATE 336Q AR.USERNAME 326Q TEDIT.INSERT 301Q CONCATLIST 247Q \APPEND2 244Q \APPEND2 210Q UNPACK 172Q CHARACTER 141Q MBUTTON.FIND.NEXT.FIELD 133Q 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) (777Q TITLE 744Q TITLE 733Q AR.FORM.NUMBER 723Q AR.FORM.SCRATCH.MAP 656Q SUBMIT 626Q TITLE 577Q EDIT 421Q Date: 403Q Number: 344Q Edit-Date: 333Q Edit-By: 315Q SELECTION 306Q SELECTION 113Q AR.PROTECTED.FLG 77Q Disposition: 3 AR.FORM.NUMBER) ( 1003Q "New Bug Report --- submitted" 766Q "Bug Report Submitted -- no number available" 755Q " --- saved" 750Q "Editing AR " 706Q "Bug Report Submitted -- AR # " 637Q " --- saved" 632Q "Editing AR " 611Q "Saved AR " 537Q "Submitting AR ..." 513Q " ..." 506Q "Saving AR " 455Q " --- PUT aborted" 450Q "Bad Bug Report Form: " 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 @d²‹dIH µóƒ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.RECONNECT.WINDOW D1 (P 0 TOBJ I 0 FORMWINDOW) ,@g H@Hk@g kØH h(50Q TEDIT.UPDATE.SCREEN 44Q \TEDIT.MARK.LINES.DIRTY 37Q GETEOFPTR 34Q GETWINDOWUSERPROP 11Q TEXTOBJ 6 GETWINDOWUSERPROP) (31Q TEXTSTREAM 20Q TEXTOBJ 3 TEXTSTREAM) () AR.REPLACE.FIELD.VALA0001 D1 (NAME ERRORSET L (2 W 1 V 0 U) 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 ²HTg VØºHJTg ¿HUdd¥d¡’ J¿TgI¿TgU¿Ho°CH V [µo ¿KÉºHJKÉ¿HUdd¥d¡’ J¿HoJIhci(240Q TEDIT.LOOKS 225Q TEDIT.INSERT 221Q MKSTRING 177Q TEDIT.DELETE 154Q SHOULDNT 142Q MBUTTON.FIND.NEXT.FIELD 136Q TEXTOBJ 122Q IMAGEOBJPROP 111Q IMAGEOBJPROP 100Q TEDIT.INSERT 74Q MKSTRING 52Q TEDIT.DELETE 47Q IMAGEOBJPROP 33Q IMAGEOBJPROP 22Q IMAGEOBJPROP 10Q NCHARS 4 TEXTSTREAM) (172Q SELECTION 161Q SELECTION 116Q AR.FIELD.VALUE 105Q AR.FIELD.LEN 44Q AR.FIELD.LEN 30Q AR.FIELD.START 17Q AR.PROTECTED.FLG) ( 233Q (PROTECTED OFF) 151Q "Can't find button field" 130Q (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 £g»IcgI K“J(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@ "Hµhº¿IJ [µHX°éKIJ¿°ð(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 H•H ³@ggggX¿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.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 ^¢±¿N½N»Mg _šMg KØ°OK _µo ¿OÉ_¿JOkÙ ¿Mg I _µo ¿Mgh¿°_¿O¼JOjghi ¿LjñšJHOdLØ¿O²NMgL¿MgHO ¿Lk2OOñ³$H _"¿O µO"h_ _¿OkØ_°ãO"&_ ¿°òO ¿Lj ’±ÿ JO”oƒoOL¿±þö@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 ÉFNIL (6 TEXTOBJ) () AR.UPDATE.AR.INFOA0001 D1 (NAME ERRORSET L (2 W 1 V 0 U) F 0 AR.INFO.FILE.NAME) Pggh(11Q OPENSTREAM) (6 OLD 3 APPEND) () AR.UPDATE.AR.INFOA0002 D1 (NAME ERRORSET L (2 W 1 V 0 U) F 0 INFO.FILE F 1 RESETVARSLST F 2 OP F 3 RESETY F 4 AR.INFO F 5 USER.INFO) Ygl hhQc¿gPhhhQc¿nÿÿP ¿oP ¿RTUhP ¿P ¿Rdgð‘¿…gð´hci(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 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 INFO.FILE I 3 USER.INFO I 2 AR.INFO I 1 OP I 0 FORMWINDOW F 4 AR.INFO.FILE.NAME F 5 LISPXHIST F 6 RESETVARSLST) ]T ³(Tgg¸°&oToh@ ¿nˆ ¿o X²ÞU!Vog ‘h‚g[ ¿K´h(131Q ERROR! 122Q RESETRESTORE 110Q AR.UPDATE.AR.INFOA0002 65Q AR.UPDATE.AR.INFOA0001 55Q DISMISS 46Q AR.PROMPT 22Q OPENSTREAM 6 INFILEP) (116Q ERROR 105Q INTERNAL 17Q NEW 14Q OUTPUT) ( 102Q (AR.UPDATE.AR.INFOA0002) 62Q (AR.UPDATE.AR.INFOA0001) 36Q " --- please wait" 31Q "info file busy: ") AR.USERNAME D1 (P 0 NAM) hdiH •Hi H(22Q L-CASE 14Q U-CASEP 5 USERNAME) NIL () IMAGEOBJPROPS.MACRO D1 (I 0 X) Bgg@hh@@° [ggKKh¸IµHhZH&¹µà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@ið‘AAið‘@@AHµI\A ™L»JµKhZ¹HX°çK&º°ø(33Q MEMBER) NIL () AR.ENTRY.LIST.EXPAND D1 (L (0 ENTRY.LIST) F 6 AR.INDEX.ENTRY.END.PTR F 7 AR.INDEX.ENTRY.BEGIN.PTR F 10Q AR.INDEX.ENTRY.SIZE) ?@dið²9¿VWBJ²Jjð³)jJó’VIIVñ³VIñ™I½LµMh\»IWZØ¹°ØM&¼°õKNIL NIL () AR.ENTRY.LIST.OR D1 (P 2 X P 0 VAL I 1 B I 0 A) 0@ið£Aið‘i@ AIµH Z@ £JH¸IY°é(44Q MEMBER 35Q SORT 15Q \APPEND2) NIL () AR.ENTRY.LIST.WINDOW.REPAINTFNA0001 D1 (NAME ERRORSET L (2 W 1 V 0 U) 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 jW0W0kÙØÙOÛkØ_¿W0OÛlØ_¿Ojñ¡h…NO _¿W0jhW.¿jW. ¿jOOÚÙW. ¿OOk#Oµ hc6i_¿OOñ³ïO_¿O³OgOg h¿W4AO µ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 ‘h‚gZ J“I(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 L (2 W 1 V 0 U) 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) ^¿`låjð’±Nh@ @g g jh@ Ùhh¿`kåjðhðe L”oƒo@g H_H_¿¿`låjð”M¾h°Hh@K[ ¡h‡jKÙJÛkØ_M ³SMd¥d¡²OjMJÚÙOJnÿÿg@¿Odd¥d¡²¿OjOJÚÙOJnÿÿg@¿O½O’±ÿxo@g N£gNjñ§gMhIN _µgg µ)W!W og ‘h‚g_ ¿O“O_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 H²H ²H žHg gð’±€o@g ¿ ¸o@g ¿Hµhdg µH IµhX³0o@g hZ ²Jg gð•JµØi°ÕIY°Ì@gH¿Hd²ªgA¿°Ÿ(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 L (2 W 1 V 0 U) F 0 AR.FILE.NAME F 1 ARSTREAM) Pggci(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 L (2 W 1 V 0 U) F 0 RESETVARSLST F 1 ARSTREAM F 2 AR.SCRATCH.FILE F 3 RESETY F 4 AR.INDEX.FIELD.LIST F 5 INDEX.INFO) 2gQhhhPc¿gRd hhhPc¿QRTc 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 L (2 W 1 V 0 U) P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ ¿J’i(36Q ERROR! 30Q RESETRESTORE 16Q AR.GATHER.NEW.AR.DATAA0002A0003) (24Q ERROR 13Q INTERNAL) ( 10Q (AR.GATHER.NEW.AR.DATAA0002A0003)) AR.GATHER.NEW.AR.DATA D1 (P 6 X 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) {AAIµH XH°cº¿J \µoJh@ ¿JhgH¸IY°Í ³áo ²Øo ²ÏoJh@ ¿JhM°ÏdNN µðH(161Q AR.INDEX.FIND.ENTRY.PTR 137Q AR.PROMPT 121Q AR.GATHER.NEW.AR.DATAA0002 110Q AR.GATHER.NEW.AR.DATAA0001 77Q OPENP 54Q AR.PROMPT 35Q AR.GET.FILENAME 30Q BLOCK 16Q REVERSE) (62Q DELETE) ( 127Q "analyzed AR # " 116Q (AR.GATHER.NEW.AR.DATAA0002) 105Q (AR.GATHER.NEW.AR.DATAA0001) 44Q "Can't get AR info for AR # ") 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) 7B®AP g b¿C®AP 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Ø!B®AT g b¿S@BØ S YUHñSHBØ ¿S °!DµAT g CµAT g ÙdIÙj(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@BµAP g Ø CµAP g Q ØDµAP 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) µ Adgðœ¿W@ W W g ²"@A H YWH IkHWIAW g AW g @WÙWÛØWK W \dj ³:JA M_²+LO ²O_¿OµOh_¾O°ÜO&_¿°ô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) ïAµWbBµWb@ggghjdhdAh0A°dgjgjh¸IµHhZH&¹µâ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 dgð²¿A@ g °.gð´(0A@ g d X–IµHZY¿µîJH¹Id©H YH°çI ²IdIJKL°ÚIY°Ö(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 HµhZd@Ig ¿HX°éo (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) dAµWBµWBH ºI »@dKñ™¿o ¿@J “Hi@K “IiHIHÙlÛVÛVÚØ\H “IhL ]@ñ¥L¸MZ°ÉL¹M[°Ã(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 L (2 W 1 V 0 U) F 0 FILENAME F 1 AR.INDEX.FILE) Pggci(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 Xddgð¯¿o@ ¿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 ggc@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.PRINT D1 (P 12Q VAL.NUM P 11Q FIELD.BEGIN.PTR P 10Q FIELD.KEYLIST P 7 FIELD.OFFSET P 6 VAL.DATA P 5 FIELD.NAME P 3 ENTRY.PTR P 2 FIELD.BYTES P 1 FIELD.NAME I 1 PRINT.ENTRY.DATA.FLG I 0 FILE F 20Q AR.INDEX.FILE F 21Q AR.INDEX.ENTRY.BEGIN.PTR F 22Q AR.INDEX.ENTRY.SIZE F 23Q AR.INDEX.FIELD.SPECS F 24Q AR.INDEX.ENTRY.END.PTR F 25Q AR.INDEX.FIELD.LIST) Ro@ ¿W @ ¿o@ ¿@ ¿@ o@ ¿lh@¿W"@ ¿o@ ¿@ W*!Hµj@ ¿o@ ¿W(W"Ù@ ¿o@ ¿@ W(W"ÙW$Ûi ¿oi ¿W$i ¿oi ¿i Adgð¢±j¿W"W(Kñ³@hYW& g IW& g ÙºI@ ¿lh@¿J@ ¿@ ¿HX±ÿ\o@ ¿W K ¿W @ ¿@ ¿W*a Lµ KW$Ø»°Ž]W& g _¿MW& g _²3KMOO¾M@ ¿o@ ¿W N ¿W @N¿o±MW& g _¿W OKW"ÙW$ÛØ ¿W _j ›M@ ¿o°VM@ ¿o@ ¿OAO_².OO ²O_¿OµOh__¿O°ÙO&_¿°ôO@ ¿o@ ¿@ ¿L\±ÿ´‚±þ£o@ W"W(Kñ² W K ¿W @ ¿k@ ¿KW$Ø»°Þ@ (1117Q TERPRI 1102Q SPACES 1074Q PRIN1 1070Q \DWIN 1062Q SETFILEPTR 1041Q PRIN1 1014Q TERPRI 1007Q PRIN1 776Q PRIN1 723Q EQP 675Q PRIN1 664Q PRIN1 650Q PRIN1 642Q EQP 630Q SETFILEPTR 606Q LISTGET 577Q ASSOC 561Q COPYBYTES 550Q SETFILEPTR 540Q PRIN1 527Q PRIN1 521Q AR.GET.FIELD.VAL.DATA 504Q LISTGET 475Q ASSOC 464Q LISTGET 455Q ASSOC 424Q TERPRI 417Q PRIN1 413Q \DWIN 405Q SETFILEPTR 376Q PRIN1 357Q TERPRI 352Q PRIN1 344Q TAB 334Q PRIN1 325Q LISTGET 316Q ASSOC 310Q LISTGET 301Q ASSOC 242Q TERPRI 235Q PRIN1 224Q PRIN1 215Q PRIN1 204Q PRIN1 170Q TERPRI 163Q PRIN1 152Q PRIN1 140Q PRIN1 127Q TERPRI 111Q TERPRI 104Q PRIN1 73Q PRIN1 64Q TAB 54Q PRIN1 44Q TERPRI 37Q TERPRI 32Q PRIN1 21Q PRIN1 15Q GETEOFPTR 7 PRIN1) (603Q ENUMERATED.FIELD.KEYLIST 501Q FIELD.OFFSET 461Q FIELD.BEGIN.PTR 322Q FIELD.BEGIN.PTR 305Q FIELD.END.PTR 247Q ALL) ( 1035Q "Contains entries: " 1003Q "%"" 671Q " %"" 655Q " %"%"" 566Q "%"" 534Q " %"" 372Q "Entry # " 231Q " bytes" 211Q " entries of " 157Q " bytes" 134Q "Total Entry Space: " 100Q " bytes" 50Q "Total Field Space: " 26Q " bytes" 3 "Total file size: ") 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µ I0N°3\W0 g ™L»JµKhZ¹HX°ÖK&º°øj¸IµHhZH&¹µñJ_0 Aµ W6Mñ¡hA__¿O_¿A•OMñ²5W.M ¿@W. ¿O°d@OW. Ø µìW. ½°«Ogð³3@O ¿ONl3Oµˆ_¿Oµ!ON2O$_*¿O&µQO¢±®0N±Š_ ¿OW0 g _"¿@O OOOO"O"ÙØ ¿O_¿O_¿OlØ_¿°“_(¿O*²ªO(O _,›O*dO,Ø¿O&_&¿O*±ÿdOL ¸IµHhZH&¹µæJO"IºHµ…»JµMW8Ø½Ab±þºdKÙ¿JºHX°Ý(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 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) 3BW$ g BW$ g BW$ g BW$ g HªI¨oB ¿J\CqMµKLñ´W&@LKh^_¿N_¿IšOBIJK ‰JOW*ÙW(ÛØ_¿OLñ™W&@LO¿Ngð³sBN __¿O_¿O²QAO ¿I˜A@O°F@HOk2OOñ³$A _"¿O µO"h_ _¿OkØ_°ãO"&_ ¿°òO µ‚I¥@j ¿O²IOW(ØBIJK †OkØO¼M]±ÿ(442Q AR.GET.FIELD.VAL.PTR 416Q BOUT 404Q LISTGET 401Q PACKC 310Q COPYBYTES 276Q SETFILEPTR 245Q ASSOC 224Q 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) (233Q 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 12Q PTR 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 13Q AR.INDEX.FIELD.SPECS F 14Q AR.INDEX.FILE F 15Q AR.INDEX.FIELD.LIST F 16Q AR.INDEX.ENTRY.END.PTR F 17Q AR.INDEX.ENTRY.BEGIN.PTR) õAW g AW g AW g CAW §oAhŽH³oAoh@ ¿¿B bd j ‘h@g ]AgB^MµL@gl h]¿WI @ BWhJhi` _µ6O[dWWAHIJ \NLµgML ²²NM\dgð³²µL_¿Oµ Oh__¿°ªO&_¿°¢(310Q HARRAYP 302Q PUTHASH 266Q AR.GET.ENTRY.PTRS.FROM.FIELD.PTRS 241Q 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) (322Q NONE 276Q NONE 235Q 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 10Q PTR 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 11Q AR.INDEX.FIELD.SPECS F 12Q AR.INDEX.FILE F 13Q AR.INDEX.FIELD.LIST F 14Q AR.INDEX.ENTRY.BEGIN.PTR F 15Q AR.INDEX.ENTRY.SIZE) º AW g AW g AW g #AW §oAhŽHµoAoh@ ¿¿HB [d³oBoAh@ ¿¿WI K b@BWhJhi _²"WOkÙIÙÚWØ_¿Nµ Oh^½°ÙO&¾°ÓM(222Q FILEPOS 202Q MKSTRING 177Q CHARACTER 173Q SETFILEPTR 164Q ERROR! 160Q AR.PROMPT 131Q LISTGET 126Q MKATOM 120Q ERROR! 114Q AR.PROMPT 57Q MEMB 46Q LISTGET 37Q ASSOC 31Q LISTGET 22Q ASSOC 14Q LISTGET 5 ASSOC) (43Q FIELD.END.PTR 26Q FIELD.BEGIN.PTR 11Q ENUMERATED.FIELD.KEYLIST) ( 146Q " for field: " 141Q "Unknown key: " 104Q " -- use HAS" 77Q "Non-enumerated field: " 64Q "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) ’ @¡hABAÙlÛWÛWÚØXdCDEF YdZdIØ[@_µ'h\@L ^L_µ)h]N´5HAð³/NAHCDEF °#Jñ–OµÖi°ÓO°ÈKñ–OµÔi°ÑO°ÆhLMð£Hh€hMd™HBCDEF (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 L (2 W 1 V 0 U) 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( ¿h±i_d¡¦O³æi°áN°ØW& ¿W&_¿Od³o¿ghgggH gg_¿W(W&O_¿ghgggH gg_¿ghddKhMh_¿L _¿M°eO ²OdOOO O"±ÿoO_±ÿidO$O gO ¿OOO$O¿O$O gO µÅOO¿O ¿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 ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q AR.INDEX.UPDATEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (AR.INDEX.UPDATEA0001)) AR.QFORM.ACTIONFNA0001A0002 D1 (NAME ERRORSET L (2 W 1 V 0 U) 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 ¿o°gð´o ¿oV ci(114Q AR.PROMPT 103Q HELP 57Q AR.INDEX.PRINT 52Q TTY.PROCESS 47Q THIS.PROCESS 31Q AR.INDEX.FILE.REOPEN 24Q AR.INDEX.DATA.UNPACK 21Q GETWINDOWUSERPROP 6 OBTAIN.MONITORLOCK) (71Q Debug 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 L (2 W 1 V 0 U) P 2 RESETZ P 1 RESETY P 0 LISPXHIST F 3 QFORMWINDOW F 4 OPERATION F 5 LISPXHIST F 6 RESETVARSLST) qTohS ¿Tdgð–¿S °Udgð–¿S °Hdgð–¿S °;dgð¦dgð²%¿U!Vog ‘h‚gZ ¿J“¿ˆ¿oS 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 5 THIS.PROCESS 2 ALLOW.BUTTON.EVENTS) (43Q PAINT 22Q TEXTOBJ 13Q AR.QFORM.TEMP 10Q NAME) ( 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) vAÉAÉÉ@g 3Jdgð•¿I ‰gð´I [d´=HAÉ ¿HÉ\ÉLÉØ½I KM¿I oMK Øh(162Q TEDIT.INSERT 156Q NCHARS 145Q TEXTSTREAM 140Q TEDIT.INSERT 133Q TEXTSTREAM 102Q MBUTTON.FIND.NEXT.FIELD 64Q MENU 61Q AR.GET.SLIST.PROMPT.MENU 46Q AR.GET.QLIST.PROMPT.MENU 27Q IMAGEOBJPROP) (123Q SELECTION 115Q SELECTION 107Q TEXTOBJ 75Q SELECTION 52Q Sort% List: 37Q Query% List: 24Q MBTEXT 16Q TEXTOBJ 11Q SELECTION 3 SELECTION) ( 151Q " ") AR.GET.QLIST.PROMPT.MENUA0001 D1 (NAME ERRORSET L (2 W 1 V 0 U) 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& ¿`do¿oMaOµHOMAOµ‚±ßO ¾dN¿dg ¿dg¿jdnÿdh_¿dO ¿c*i_L g _¢±…Ogghi _d´ddið³¿dd¥d¡µ gOhhg@O°,d_$¿OgO$hi _¿O µ Oh_"‚O&_ ¿µÕO"h_¿OµOh__¿O_±ÿO&_¿°ò_L g ³"Ogghi _¿OµOh__¿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 ‘h‚g[ ¿K“€JXH(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 L (2 W 1 V 0 U) 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 ¿`do¿MAOµ2O¾dN¿dg ¿dg¿jdnÿdh_¿dO ¿ci_L g ²Oi _¿OµOh__¿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 ‘h‚g[ ¿K“€JXH(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 (24Q AR.QFORM.ACTIONFN 21Q IMAGEOBJPROP) (16Q MBTEXT 10Q TEXTOBJ 3 SELECTION) () AR.QFORM.CREATE D1 (I 1 WINDOW I 0 AR.INDEX.FILE.NAME) Jg@d²dið³d¥d¡µ g@hAd²dið³d¥d¡µ 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 L (2 W 1 V 0 U) F 0 PRINT.FILE.NAME F 1 FILE) Pggci(11Q OPENSTREAM) (6 NEW 3 OUTPUT) () AR.QFORM.FN.PRINTA0002 D1 (NAME ERRORSET L (2 W 1 V 0 U) 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 H”Hið² ¿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 24Q THIS.PROCESS 6 AR.GET.BUTTON.FIELD.AS.LIST) (3 Print% File:) ( 65Q "Bad Print file: " 54Q (AR.QFORM.FN.PRINTA0001) 43Q (AR.QFORM.FN.PRINTA0002)) AR.QFORM.FN.QUERY D1 (P 1 SLIST P 0 QLIST I 0 QFORMWINDOW) Dg@g @g @ @H o@g oh@ @I @ h(100Q AR.QFORM.DISPLAY.CONNECT 74Q AR.SORT 67Q AR.PROMPT 53Q LENGTH 50Q GETWINDOWUSERPROP 35Q AR.QUERY 30Q AR.QFORM.DISPLAY.DISCONNECT 21Q AR.GET.BUTTON.FIELD.AS.LIST 11Q AR.GET.BUTTON.FIELD.AS.LIST) (45Q AR.ENTRY.ALIST 16Q Sort% List: 6 Query% List: 2 AND) ( 57Q " entries found" 41Q "Total: ") 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) kAµnld o !HggHglÈldHgjldHgTHggHggHggH ÉYdIIkÙØIldho ZdHggHgJJgjld@£Ub¿HgH@ d Hl H`ooggggggShoggggggShoggggggShggggggShggggggShhoh(547Q AR.FORM.CREATE 273Q GETPROMPTWINDOW 265Q PUTWINDOWPROP 257Q AR.INDEX.OPEN 240Q PUTWINDOWPROP 225Q PUTWINDOWPROP 215Q ATTACHWINDOW 201Q CREATEW 137Q \INSUREWINDOW 133Q PUTWINDOWPROP 121Q WINDOWADDPROP 107Q WINDOWADDPROP 75Q PUTWINDOWPROP 65Q PUTWINDOWPROP 52Q PUTWINDOWPROP 36Q PUTWINDOWPROP 21Q CREATEW 12Q GETREGION) (515Q FONT 512Q AR.QFORM.BUTTONFN 507Q FN 504Q BUTTON 501Q FIELDTYPE 476Q Debug 462Q FONT 457Q AR.QFORM.BUTTONFN 454Q FN 451Q BUTTON 446Q FIELDTYPE 443Q Print% Index% Stats 427Q FONT 424Q AR.QFORM.BUTTONFN 421Q FN 416Q BUTTON 413Q FIELDTYPE 410Q Update 370Q FONT 365Q AR.QFORM.BUTTONFN 362Q FN 357Q BUTTON 354Q FIELDTYPE 351Q Print 331Q FONT 326Q AR.QFORM.BUTTONFN 323Q FN 320Q BUTTON 315Q FIELDTYPE 312Q Query 277Q ARBOLDFONT 252Q AR.INDEX.DATA 231Q MINSIZE 221Q QFORM.ENTRY.WINDOW 212Q JUSTIFY 207Q TOP 130Q NILL 125Q AR.TEDIT.TITLEMENUFN 116Q AR.QFORM.GROUP.CREATEA0001 113Q CLOSEFN 104Q AR.KILL.ATTACHED.TEDIT.CLOSEFN 101Q CLOSEFN 71Q ICON 56Q MAXSIZE 42Q MINSIZE 33Q AR.QUERY.FORM 30Q AR.WINDOW.PROC.NAME) ( 544Q (Query% List: CR Sort% List: CR Query CR CR Print% File: CR Print CR) 405Q (Update% List: FIELDTYPE STRING) 346Q (Print% File: FIELDTYPE STRING) 307Q (Sort% List: FIELDTYPE STRING FN AR.QFORM.PROMPT.LIST.FN) 303Q (Query% List: FIELDTYPE STRING FN AR.QFORM.PROMPT.LIST.FN) 176Q "AR Query Browser" 16Q "AR Query Window") AR.QUERYA0001 D1 (NAME ERRORSET L (2 W 1 V 0 U) 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) o Whi¿`Wg ¿W ¿W ¿Wg0WW °dh¾OµNh_N&_¿µêO¿WgW¿Wg ci(150Q PUTWINDOWPROP 137Q PUTWINDOWPROP 124Q PUTWINDOWPROP 64Q AR.ENTRY.LIST.EXPAND 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) (145Q AR.ENTRY.ALIST.SLIST 132Q 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 ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q AR.QUERYA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (AR.QUERYA0001)) AR.QUERY.EVAL.QLIST D1 (I 1 QLIST I 0 QFORMWINDOW) ®Ad²ið‘iAµoAh@ gð²(Ad´ô¦Ab°Ï@A @gA Adgð²'d´Æ¦Ab°¡@A @gA gðš@AAAgðš@AAoAh@ (253Q ERROR! 250Q AR.PROMPT 233Q AR.INDEX.SEARCH.IS 210Q AR.INDEX.SEARCH.HAS 166Q AR.ENTRY.LIST.OR 163Q AR.QUERY.EVAL.QLIST 150Q AR.QUERY.EVAL.QLIST 110Q AR.ENTRY.LIST.AND 105Q AR.QUERY.EVAL.QLIST 72Q AR.QUERY.EVAL.QLIST 33Q ERROR! 30Q AR.PROMPT) (217Q IS 174Q HAS 154Q OR 117Q OR 76Q AND 40Q AND) ( 240Q "Bad Query Spec: " 20Q "Bad Query Spec: ") AR.PRINTA0001 D1 (NAME ERRORSET L (2 W 1 V 0 U) 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 ¿nÿÿWD ¿oWD ¿WD ¿oWD ¿WFg WD ¿WD ¿oWD ¿WFg WD ¿WD ¿WD ¿WHA Nµ&WD ¿WD ¿WFg 1OµThcNi__¿O_kO O dOñŸoWD ¿N^°®O"ñ§OO ƒoWD ¿O kØ_ °Ï__¿WH1O$µ3O&_¿jh_.¿WHqO0µGWD ¿WL•O.’±ÂO_±ÿl_(¿O&O(_*OO* µ OO* h _&¿O$_$°¢_2_4¿O2_6¿OO4 _8¿O6O,ÚkØ_:O6ØkÙ_<¿O8 _>¿O:O>ñ˜O6WD °OO<ñ“i_.¿oWD ¿O0_0±ÿOO>ñ§O8OB ƒoWD ¿OBkØ_B°ÁO,kØ_,¿±ÿ(736Q PRIN1 724Q NTHCHAR 700Q PRIN1 633Q SPACES 613Q NCHARS 562Q LISTGET 523Q \NCONC2 515Q AR.GET.FIELD.VAL 504Q LISTGET 436Q TERPRI 346Q PRIN1 334Q NTHCHAR 313Q PRIN1 267Q NCHARS 225Q GETWINDOWUSERPROP 214Q TERPRI 206Q TERPRI 166Q TERPRI 160Q TERPRI 152Q PRIN1 145Q GETWINDOWUSERPROP 134Q PRIN1 122Q TERPRI 114Q PRIN1 107Q GETWINDOWUSERPROP 76Q PRIN1 64Q TERPRI 56Q PRIN1 44Q LINELENGTH 33Q AR.INDEX.FILE.REOPEN 25Q AR.INDEX.DATA.UNPACK 22Q GETWINDOWUSERPROP 6 OBTAIN.MONITORLOCK) (222Q AR.ENTRY.ALIST 142Q AR.ENTRY.ALIST.SLIST 104Q AR.ENTRY.ALIST.QLIST 17Q AR.INDEX.DATA) ( 731Q " " 673Q " " 341Q " " 306Q " " 127Q "Sorted with Sort Spec: " 71Q "Generated with Query Spec: " 51Q "AR Summary") 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 ‘h‚gZ J“I(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 –@AýñIHñ(27Q EQP 17Q LISTGET 7 LISTGET) (14Q AR.SORT.NUM 4 AR.SORT.NUM) () AR.SORTA0001 D1 (NAME ERRORSET L (2 W 1 V 0 U) 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_¿^µah²soW8ohW6 ±¬_L g _"d²Å lÛ_ ¿OdO kØÚ_¿_¿OµOh__¿O_°•O&_¿°ó_d¡¦O³˜i°“N°ŠO°dO$d¨gjh‡gjµâOW82O(µˆ_*¿O&µOg ¿W6gW8¿hcAR.INDEX)) (AR.INFO.FILE.NAME (QUOTE {PHYLUM}LISPARS.TDS)) (AR.SUBMIT.NUM.FILE.NAME (QUOTE {PHYLUM}LISPARS.NUM)) ( AR.SUBMIT.FILE.NAME (QUOTE {PHYLUM}LISPARS.SUBMIT)) (AR.DIRECTORY (QUOTE {PHYLUM}))) (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.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))) (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 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 Documentation Other% Software)) (Subsystem: FIELDTYPE SUBMENU ASSOCMENU System: SUBMENULIST (Communications (NS% Protocols PUP% Protocols RS232 VAX% Server Lisp% Servers TCP/IP Other) Windows% and% Graphics (Window% System Library Fonts Printing Color Demos Other) Operating% System (Virtual% Memory Generic% File% Operations DLion% Disk DLion% Floppy Dolphin/Dorado% Disk Processes Keyboard Other) Language% Support (Arithmetic Compiler,% Code% Format Microcode Storage% Formats/Mgt Read% and% Print Stack% and% Interpreter Bootstrapping% and% Teleraid Diagnostics Other) Programming% Environment (Break% Package Code% Editor DWIM File% Package History Masterscope Record% Package Performance% Tools Other) Text (TEdit TTYIN Lafite Other) Documentation ( Tools 1108% Users% Guide Primer Product% Descr/Tech% Summary Programmers% Introduction Interlisp% Reference% Manual Internal% System% Documentation Other) Other% Software ( Installation% Utility Release% Procedure Other))) (Machine: FIELDTYPE MENU ASSOCSUBMENU Disk: MENULIST (1100 1108 1132)) (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))) (Lisp% Version: FIELDTYPE STRING) (Source% Files: FIELDTYPE STRING) (Microcode% Version: FIELDTYPE STRING) (Memory% Size: FIELDTYPE STRING) (File% Server: FIELDTYPE MENU MENULIST (8037 IFS VAX/VMS% -% 3Mb VAX/VMS% -% 10Mb VAX/UNIX 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.INDEX.DEFAULT.FILE.NAME (QUOTE {PHYLUM}AR.INDEX)) (RPAQ? AR.INFO.FILE.NAME (QUOTE {PHYLUM}LISPARS.TDS)) (RPAQ? AR.SUBMIT.NUM.FILE.NAME (QUOTE {PHYLUM}LISPARS.NUM)) (RPAQ? AR.SUBMIT.FILE.NAME (QUOTE {PHYLUM}LISPARS.SUBMIT)) (RPAQ? AR.DIRECTORY (QUOTE {PHYLUM})) (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:) (Submitter: T) (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@") }) (PUTPROPS AREDIT COPYRIGHT ("Xerox Corporation" 1984)) NIL