(FILECREATED "17-Jan-86 14:21:30" ("compiled on " . {ERIS}LIBRARY>CMLARRAYINSPECTOR.;6) "17-Jan-86 10:37:01" "COMPILE.FILEd" in "INTERLISP-D 17-Jan-86 ..." dated "17-Jan-86 10:55:18") (FILECREATED "30-Dec-85 16:20:36" {ERIS}LIBRARY>CMLARRAYINSPECTOR.;6 38499 changes to: ( RECORDS ICML.ARRAYSLICE) (VARS CMLARRAYINSPECTORCOMS) previous date: "30-Dec-85 16:20:00" {ERIS}LIBRARY>CMLARRAYINSPECTOR.;5) (PRETTYCOMPRINT CMLARRAYINSPECTORCOMS) (RPAQQ CMLARRAYINSPECTORCOMS ((FNS CREATEARRAYSLICE ICMLARRAY ICMLARRAY.ATTACHDISPLAY ICMLARRAY.DETACHDISPLAY ICMLARRAY.DOWINDOWCOMFN ICMLARRAY.INDICES ICMLARRAY.LAYOUTMENULIST ICMLARRAY.LAYOUTSTATUSLIST ICMLARRAY.MEASUREMENULIST ICMLARRAY.MEASURESTATUSLIST ICMLARRAY.SETVALUE ICMLARRAY.STATUSW.BUTTONEVENTFN ICMLARRAY.STATUSW.REPAINTFN ICMLARRAY.TITLECOMMANDFN ICMLARRAY.VALUECOMMANDFN ICMLARRAY.DISPLAYSLICE ICMLARRAY.GETREGIONFN ICMLARRAY.GETSTATUSWINDOWGROUP ICMLARRAY.MENUW.APPLY ICMLARRAY.MENUW.GETLEVEL ICMLARRAY.MENUW.SHOW SLICEDIMENSION SLICERANK SLICEREF SLICESET ZEROD.FETCHFN ZEROD.STOREFN) (ADDVARS (INSPECTMACROS (ARRAY . ICMLARRAY))) (INITRECORDS ICML.ARRAYSLICE) (FILES TWODINSPECTOR) (P (LOAD? (QUOTE FREEMENU.DCOM))) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS ICML.ARRAYSLICE)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) ( DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA SLICESET SLICEREF ICMLARRAY.VALUECOMMANDFN))))) CREATEARRAYSLICE D1 (L (1 LEVELS 0 CMLARRAY)) Æ@ @ jSI k"OµOdIA3 Oµ°0_¿OO_¿OOÚ_¿O_°Ô_¿Oµˆ_¿Oµ=`K ½dM¿L ¾dN¿dJ¿@ g@ g@ _¿dO¿_¿OgðšOK»OL¼‡JOOÚØºO_¿O_¿O_¿±ÿ`(207Q MAKE-ARRAY 177Q ARRAY-ELEMENT-TYPE 170Q ARRAY-TOTAL-SIZE 151Q DREVERSE 137Q DREVERSE 17Q REVERSE 7 ARRAY-DIMENSIONS 3 ARRAY-RANK) (232Q ALL 202Q :DISPLACED-TO 173Q :ELEMENT-TYPE 132Q ICML.ARRAYSLICETYPE#) () ICMLARRAY D1 (L (2 WHERE 1 ASTYPE 0 CMLARRAY) F 21Q INSPECTORFONT) ¸@ @ W"µg ƒ IjØjð¨H_µ%i²Si½IkÙjIkÙ3OOó³@DC B C HdIñ¡¿IS@ kÙJÚ¼Hµ@[Q Oµ(O½AMjOµfOÙM kÙ_¿kOñ³fO°c_¿O_¿O_¿Og'Og' IOg'Og' ØØ_¿Oµ Oh__¿°“O&_¿°‹_ ¿OO Ô_¿O_°ˆkÛ¾jK"O$µ LJÙ¼HX±ÿX_&¿O$_(¿O$_$¿O&gO"¿O&gL¿O"IO&g'O&g' ØØ_"¿O(gO"¿O(gL¿O"O(g'O(g' NØØ_"¿°‡(464Q STRINGWIDTH 442Q LISTPUT 430Q LISTPUT 411Q STRINGWIDTH 366Q LISTPUT 354Q LISTPUT 212Q STRINGWIDTH 172Q STRINGWIDTH 112Q LENGTH 37Q LENGTH 15Q FONTHEIGHT 11Q FONTHEIGHT 5 STRINGWIDTH) (460Q FONT 452Q LABEL 436Q BOTTOM 423Q LEFT 405Q FONT 377Q LABEL 362Q BOTTOM 347Q LEFT 206Q FONT 200Q LABEL 166Q FONT 160Q LABEL) () ICMLARRAY.MEASUREMENULIST D1 (L (3 FIELDWIDTH 2 FONT 1 MINWHITESPACE 0 MENULIST)) Q@jAB HµIdgð¯jLµM[Iñ’KY¿HX°ß¾MJNdg'’¿C‹g'Ng' ØÔ½L\°Ï(107Q STRINGWIDTH 6 STRINGWIDTH) (103Q FONT 76Q LABEL 66Q DIM 25Q WINDOWPROPS) () ICMLARRAY.MEASURESTATUSLIST D1 (L (2 FONT 1 MINWHITESPACE 0 STATUSLIST)) M@jAB ¿"HµIZ kÙAB ÚJjLµMØ[Iñ‘K¹HX°Ù¾MNg'Ng' Ô½L\°Ú(104Q STRINGWIDTH 34Q STRINGWIDTH 25Q LENGTH 6 STRINGWIDTH) (100Q FONT 73Q LABEL) () ICMLARRAY.SETVALUEA0001 D1 (NAME ERRORSET F 0 NEWVALUE F 1 MACROY) ohdghddi cci(24Q EVAL 20Q TTYIN) (10Q EVALQT) ( 3 "Newvalue? ") ICMLARRAY.SETVALUE D1 (L (2 COLUMN 1 ROW 0 DISPLAYWINDOW) P 6 RESETSTATE P 5 MACROY P 3 OLDVALUE P 2 NEWVALUE F 7 RESETVARSLST) l@ @g Hg d 1gKhhWc¼og £g¾Lc¿gL ¿N“¿Il —@ABJ…@AJh(150Q ONEDINSPECT.REPLACE 141Q TWODINSPECT.REPLACE 131Q EQP 121Q ERROR! 113Q APPLY 67Q ICMLARRAY.SETVALUEA0001 33Q SET.TTYINEDIT.WINDOW 27Q GETWINDOWUSERPROP 15Q SLICERANK 12Q GETWINDOWUSERPROP 3 MAINWINDOW) (104Q SET.TTYINEDIT.WINDOW 73Q ERROR 64Q INTERNAL 41Q SET.TTYINEDIT.WINDOW 24Q PRTWINDOW 7 DATUM) ( 61Q (ICMLARRAY.SETVALUEA0001)) ICMLARRAY.STATUSW.BUTTONEVENTFNA0001 D1 (NAME ERRORSET F 0 CMLARRAY) g ¿oP h(16Q PROMPTPRINT 5 SETTOPVAL) (2 *PRINT-ARRAY*) ( 12Q "IT bound to ") ICMLARRAY.STATUSW.BUTTONEVENTFN D1 (L (0 WINDOW) P 2 CMLARRAY F 11Q RESETVARSLST F 12Q IT) ï @ ¿`kåjð’±ÜoQ@g Y@g ZH dgð¢±¿J [µ,i´‚±©J kñ²(Ig I ¿Ig I ¿±…jñ¢h°ÒK°É@ É@g @g O”@ ¿JOONkÙNNkÙØ@O°9gð´4Jc¿gd Wc¼og ½gL ¿Lc¿M¢h(353Q ERROR! 340Q SETTOPVAL 326Q ICMLARRAY.STATUSW.BUTTONEVENTFNA0001 305Q GETTOPVAL 261Q ICMLARRAY.ATTACHDISPLAY 253Q ICMLARRAY.DISPLAYSLICE 222Q ICMLARRAY.DETACHDISPLAY 210Q GETWINDOWUSERPROP 201Q GETWINDOWUSERPROP 170Q \INSUREWINDOW 145Q ICMLARRAY.MENUW.APPLY 141Q FM.ITEMFROMID 131Q ICMLARRAY.MENUW.SHOW 125Q FM.ITEMFROMID 112Q ARRAY-RANK 73Q ARRAY-DIMENSIONS 55Q MENU 50Q GETWINDOWUSERPROP 40Q GETWINDOWUSERPROP 6 GETMOUSESTATE 3 TOTOPW) (332Q *PRINT-ARRAY* 323Q INTERNAL 301Q *PRINT-ARRAY* 267Q IT 205Q DISPLAYGROUP 176Q CURRENTLEVELS 136Q APPLY 122Q SHOW 61Q REFETCH 45Q CMLARRAY 35Q MENUWINDOW 12Q LASTMOUSEBUTTONS) ( 320Q (ICMLARRAY.STATUSW.BUTTONEVENTFNA0001) 26Q (create MENU ITEMS _ (QUOTE (("Refetch" (QUOTE REFETCH) "Refetch the array") ("IT _ Datum" (QUOTE IT) "Bind IT to the inspected array"))))) ICMLARRAY.STATUSW.REPAINTFN D1 (L (0 WINDOW)) V@ @g Šd!Hµ µôhYg'Z@ ¿Ig'Ig'J Ø@¿Ig'@ ¿Ig'@ ¿HX°¿(116Q PRIN1 104Q DSPFONT 72Q MOVETO 65Q FONTDESCENT 46Q DSPFONT 12Q GETWINDOWUSERPROP 3 DSPRESET) (111Q LABEL 77Q FONT 60Q BOTTOM 53Q LEFT 40Q FONT 7 DISPLAYLIST) () ICMLARRAY.TITLECOMMANDFNA0001 D1 (NAME ERRORSET F 0 CMLARRAY) g ¿oP h(16Q PROMPTPRINT 5 SETTOPVAL) (2 *PRINT-ARRAY*) ( 12Q "IT bound to ") ICMLARRAY.TITLECOMMANDFN D1 (L (0 WINDOW) P 3 CMLARRAY F 6 RESETVARSLST F 7 IT) ‡¿`kåjð³yo@ BIg ZIg [H dgð²¿Jg J ¿Jg J ¿°8gð´3Kc¿gd Vc¼og ½gL ¿Lc¿M¢h(203Q ERROR! 170Q SETTOPVAL 156Q ICMLARRAY.TITLECOMMANDFNA0001 136Q GETTOPVAL 112Q ICMLARRAY.MENUW.APPLY 106Q FM.ITEMFROMID 76Q ICMLARRAY.MENUW.SHOW 72Q FM.ITEMFROMID 53Q MENU 46Q GETWINDOWUSERPROP 36Q GETWINDOWUSERPROP 24Q MAINWINDOW 2 GETMOUSESTATE) (162Q *PRINT-ARRAY* 153Q INTERNAL 132Q *PRINT-ARRAY* 120Q IT 103Q APPLY 67Q SHOW 57Q REFETCH 43Q CMLARRAY 33Q MENUWINDOW 6 LASTMOUSEBUTTONS) ( 150Q (ICMLARRAY.TITLECOMMANDFNA0001) 20Q (create MENU ITEMS _ (QUOTE (("Refetch" (QUOTE REFETCH) "Refetch the array") ("IT _ Datum" (QUOTE IT) "Bind IT to the inspected array"))))) ICMLARRAY.VALUECOMMANDFNA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 VALUE F 2 RESETY) Mgo hhPc¿gd gi ¿Pc¿gd g ¿Pc¿oQ ci(107Q PROMPTPRINT 104Q CONCAT 66Q SETTOPVAL 57Q GETTOPVAL 42Q SETTOPVAL 32Q GETTOPVAL 11Q PRINTLEVEL) (63Q *PRINT-ARRAY* 53Q *PRINT-ARRAY* 36Q PLVLFILEFLG 26Q PLVLFILEFLG 2 PRINTLEVEL) ( 100Q "IT bound to " 6 (2 . 5)) ICMLARRAY.VALUECOMMANDFN D1 (L (0 ARGS) P 13Q RESETY P 12Q LISPXHIST P 3 VALUE F 15Q IT F 16Q LISPXHIST F 17Q RESETVARSLST) eoo@c Hl —A¼B_¿CˆA½B¾C_¿D_¿O _K3¡K¡J€I dgð˜¿K ¿±Ðdgð²9¿Odjðš¿OL ¿±·kð™OL ¿±ªOlðšOMN¿±™¿±’dgð²W¿Odjð—¿O °kð—OL °Olð—OMN‚c¿W!Wog ‘h‚g_ ¿O“¿°5gð´0Odjð˜¿O ¿° kð˜OL ¿°Olð˜OMN¿‚h(431Q SHOULDNT 424Q ICMLARRAY.INDICES 404Q ICMLARRAY.INDICES 370Q ICMLARRAY.INDICES 342Q ERROR! 333Q RESETRESTORE 320Q ICMLARRAY.VALUECOMMANDFNA0001 274Q SHOULDNT 270Q SLICEREF 251Q SLICEREF 236Q SLICEREF 206Q SHOULDNT 177Q ICMLARRAY.SETVALUE 156Q ICMLARRAY.SETVALUE 141Q ICMLARRAY.SETVALUE 110Q INSPECT 75Q MENU 57Q SLICERANK 25Q EQP) (351Q INDICES 326Q ERROR 315Q INTERNAL 216Q SETIT 120Q SET 101Q INSPECT) ( 312Q (ICMLARRAY.VALUECOMMANDFNA0001) 13Q (create MENU ITEMS _ (QUOTE (("Set" (QUOTE SET) "Set element") ("Indices" (QUOTE INDICES) "Display indices") ("IT _ Selection" (QUOTE SETIT) "Bind IT to element")))) 7 (create MENU ITEMS _ (QUOTE (("Inspect" (QUOTE INSPECT) "Inspect element") ("Set" (QUOTE SET) "Set element") ("Indices" (QUOTE INDICES) "Display indices") ("IT _ Selection" (QUOTE SETIT) "Bind IT to element"))))) ICMLARRAY.DISPLAYSLICE D1 (L (3 TOPRIGHT 2 WHERE 1 LEVELS 0 CMLARRAY)) å@A H ddl ²m¿Hdj kÙj2JdIó²2¿KHk kÙj2JdIó²2¿KggghdogBC ½Lµ Mh\»JkÔZ°¾M&¼°÷½Lµ Mh\»JkÔZ°¾M&¼°÷k ²CHdj kÙj2JdIó²¿KggghogBC ½Lµ Mh\»JkÔZ°ÓM&¼°÷HoggghogBC (342Q ONEDINSPECTW.CREATE 261Q ONEDINSPECTW.CREATE 213Q SLICEDIMENSION 203Q EQP 126Q TWODINSPECTW.CREATE 57Q SLICEDIMENSION 33Q SLICEDIMENSION 22Q EQP 13Q SLICERANK 4 CREATEARRAYSLICE) (334Q ICMLARRAY.TITLECOMMANDFN 324Q ICMLARRAY.VALUECOMMANDFN 321Q ZEROD.STOREFN 316Q ZEROD.FETCHFN 253Q ICMLARRAY.TITLECOMMANDFN 243Q ICMLARRAY.VALUECOMMANDFN 240Q SLICESET 235Q SLICEREF 120Q ICMLARRAY.TITLECOMMANDFN 107Q ICMLARRAY.VALUECOMMANDFN 104Q SLICESET 101Q SLICEREF) ( 331Q "Display Window" 313Q ("Entry") 250Q "Display Window" 115Q "Display Window") ICMLARRAY.GETREGIONFN D1 (L (2 INFO 1 MOVINGPOINT 0 FIXEDPOINT)) yBBH ZA³dJkÙkØØJJkÙkØØIgð²Bg¿JkÙJkÙAdJJkÙØñ›JJkÙØ¿AJJkÙØñœAJJkÙØA(12Q WINDOWREGION) (63Q OPEN 54Q CLOSED) () ICMLARRAY.GETSTATUSWINDOWGROUPA0007 D1 (NAME ERRORSET F 0 CMLARRAY) g ¿oP h(16Q CONCAT 5 SETTOPVAL) (2 *PRINT-ARRAY*) ( 12Q "Inspector of ") ICMLARRAY.GETSTATUSWINDOWGROUP D1 (L (3 TOPLEFT 2 DISPLAYEDLEVELS 1 FONTDESCRIPTOR) I 0 CMLARRAY F 34Q RESETVARSLST) SAg Ag ghAg Ag gh@ @ jdi÷lKñ«J_µ‚±×h‘h¾gogHgLgMhg@ gIgLgMhhgogHgLgMhgKgIgLgMhhgogHgLgMhgKkÙjoO.O,ó³FO0@O. _0¿O.dKkÙýóž¿O0o _0¿O.kÔ_.°Ñ_ j ™O ’±ÿ#i±ÿO±ÿO0gIgLgMhhh_N¢±AgI JAO,µ‚±LO.I _"¿dO"ñ¢¿O"_¿gggggogIgLgMogggggogIgLgMohgggggogHgLgMhKkÙj2O.O,ó¢±¿O0gggggogHgLgMhBjBO,µ‚±ØO0o_¿OoHOoHO_$¿dO$ñ¢¿O$_¿OOIHo _¿OOIHoO _¿±_0I _4¿O2•O4O2ó™O4_2¿O0_.¿O,_,±þŽggggO. gO.gHgLgMgO.h_4¿O2µO4h_2_0¿O.kÔ_.±þñO4&_2¿°ñ_6¿ggggO. gO6gIgLgMgO.o_4¿O2µO4h_2_0¿O,_,¿O.kÔ_.¿±þÈO4&_2¿°êOoH_¿OOIHo _¿jdO O H I _&¿dO&ñ¢¿O&Úi gd W8c8_(¿og _*¿gO( ¿O(c8¿O*µ‚±?¿hhi_dggOggOggOgOO ÉHO OgOOg@OgBH _jdldOhdi_dgjOOgnÿÿOOgggO OgOHO N²0O _gOO É¿OgO¿HO ¿OCµ:d ÉO É O OOgN™OOgOCO ÉkÙÙ°Í±þÈ(2501Q \INSUREWINDOW 2466Q ATTACHWINDOW 2452Q ATTACHWINDOW 2440Q REDISPLAYW 2433Q MOVEW 2430Q GETBOXPOSITION 2417Q \INSUREWINDOW 2405Q \INSUREWINDOW 2373Q DSPFONT 2364Q PUTWINDOWPROP 2351Q PUTWINDOWPROP 2337Q \INSUREWINDOW 2323Q FM.MAKEMENU 2313Q DSPFONT 2305Q PUTWINDOWPROP 2273Q DSPSCROLL 2263Q PUTWINDOWPROP 2250Q PUTWINDOWPROP 2232Q PUTWINDOWPROP 2215Q CREATEW 2207Q CREATEREGION 2174Q HEIGHTIFWINDOW 2171Q FONTHEIGHT 2165Q PUTWINDOWPROP 2154Q PUTWINDOWPROP 2143Q PUTWINDOWPROP 2131Q DSPFONT 2123Q PUTWINDOWPROP 2111Q \INSUREWINDOW 2075Q PUTWINDOWPROP 2062Q PUTWINDOWPROP 2047Q PUTWINDOWPROP 2033Q CREATEW 2024Q ERROR! 2002Q SETTOPVAL 1765Q ICMLARRAY.GETSTATUSWINDOWGROUPA0007 1742Q GETTOPVAL 1733Q CREATEREGION 1730Q HEIGHTIFWINDOW 1710Q FONTHEIGHT 1704Q FONTHEIGHT 1700Q LENGTH 1673Q WIDTHIFWINDOW 1661Q ICMLARRAY.LAYOUTSTATUSLIST 1640Q ICMLARRAY.MEASURESTATUSLIST 1506Q PACK* 1353Q PACK* 1274Q STRINGWIDTH 1257Q ICMLARRAY.LAYOUTMENULIST 1234Q ICMLARRAY.LAYOUTSTATUSLIST 1200Q ICMLARRAY.MEASUREMENULIST 1164Q ICMLARRAY.MEASURESTATUSLIST 563Q STRINGWIDTH 537Q STRINGWIDTH 441Q EQP 417Q CONCAT 371Q CONCAT 366Q ARRAY-DIMENSION 155Q ARRAY-ELEMENT-TYPE 61Q ARRAY-RANK 55Q ARRAY-DIMENSIONS 42Q FONTPROP 33Q FONTPROP 15Q FONTPROP 6 FONTPROP) (2463Q BOTTOM 2447Q BOTTOM 2357Q MENUWINDOW 2330Q MINSIZE 2300Q PRTWINDOW 2266Q ON 2260Q NILL 2255Q PAGEFULLFN 2237Q MAXSIZE 2223Q MINSIZE 2161Q DISPLAYEDLEVELS 2150Q CMLARRAY 2136Q DISPLAYLIST 2102Q MINSIZE 2072Q ICMLARRAY.STATUSW.BUTTONEVENTFN 2067Q BUTTONEVENTFN 2057Q DON'T 2054Q RESHAPEFN 2044Q ICMLARRAY.STATUSW.REPAINTFN 2041Q REPAINTFN 1773Q *PRINT-ARRAY* 1762Q INTERNAL 1736Q *PRINT-ARRAY* 1532Q DIM 1526Q BOTTOM 1522Q LEFT 1516Q FONT 1511Q LABEL 1501Q LEVEL 1476Q ID 1473Q MOMENTARY 1470Q TYPE 1377Q DIM 1373Q BOTTOM 1367Q LEFT 1363Q FONT 1356Q LABEL 1346Q DIM 1343Q ID 1340Q TITLE 1335Q TYPE 1100Q BOTTOM 1074Q LEFT 1070Q FONT 1061Q LABEL 1056Q TITLELEVEL 1053Q ID 1050Q TITLE 1045Q TYPE 1000Q BOTTOM 774Q LEFT 770Q FONT 761Q LABEL 756Q TITLEDIM 753Q ID 750Q TITLE 745Q TYPE 716Q BOTTOM 712Q LEFT 706Q FONT 677Q LABEL 674Q BUTTON 671Q ID 666Q MOMENTARY 663Q TYPE 637Q BOTTOM 633Q LEFT 627Q FONT 620Q LABEL 615Q BUTTON 612Q ID 607Q MOMENTARY 604Q TYPE 533Q ALL 500Q BOTTOM 474Q LEFT 470Q FONT 334Q LABEL 317Q BOTTOM 313Q LEFT 307Q FONT 300Q LABEL 260Q BOTTOM 254Q LEFT 250Q FONT 244Q LABEL 227Q BOTTOM 223Q LEFT 217Q FONT 210Q LABEL 170Q BOTTOM 164Q LEFT 160Q FONT 151Q LABEL 134Q BOTTOM 130Q LEFT 124Q FONT 115Q LABEL 45Q BRR 37Q SIZE 30Q FAMILY 20Q MRR 12Q SIZE 3 FAMILY) ( 1757Q (ICMLARRAY.GETSTATUSWINDOWGROUPA0007) 1655Q " " 1634Q " " 1540Q (SELECTEDFN ICMLARRAY.MENUW.GETLEVEL) 1251Q " " 1230Q " " 1172Q " " 1160Q " " 1144Q ((WINDOWPROPS TITLE "Format menu")) 1065Q "Level: " 765Q "Dimension:" 723Q (SELECTEDFN ICMLARRAY.MENUW.APPLY) 703Q "APPLY" 644Q (SELECTEDFN ICMLARRAY.MENUW.SHOW) 624Q "SHOW" 414Q " x " 344Q "" 304Q "Dimensions:" 214Q "Rank:" 121Q "Element-type:") ICMLARRAY.MENUW.APPLY D1 (L (2 BUTTONS 1 MENUWINDOW 0 ITEM)) æA Hg ZHg [H É]kÙMMkÙØ\J kÙj2 OOó³UAgO `ðœAgO ŽAgO É_¿OµOh__¿OkÔ_°²O&_¿°òOYdj_¿^µ"Olñ²,Hg _ ¿oO ¿°&gð–OkØ_¿N°ÍK”H ¿JIKLHIh(342Q ICMLARRAY.ATTACHDISPLAY 335Q ICMLARRAY.DISPLAYSLICE 325Q ICMLARRAY.DETACHDISPLAY 273Q PRIN1 261Q TERPRI 254Q GETWINDOWUSERPROP 154Q \ILLEGAL.ARG 151Q FM.ITEMFROMID 146Q PACK* 134Q FM.ITEMFROMID 131Q PACK* 112Q FM.ITEMFROMID 107Q PACK* 61Q ARRAY-RANK 32Q \INSUREWINDOW 25Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 3 MAINWINDOW) (302Q ALL 251Q PRTWINDOW 157Q FREEMENUITEM 141Q LEVEL 124Q LEVEL 116Q FREEMENUITEMTYPE# 102Q LEVEL 22Q DISPLAYGROUP 12Q CMLARRAY) ( 266Q "Rank too high") ICMLARRAY.MENUW.GETLEVELA0007 D1 (NAME ERRORSET F 0 LEVEL F 1 DIM F 2 MACROY F 3 PRTWINDOW F 4 NEWVALUE) oPoQ Scci(20Q PROMPTFORWORD 14Q CONCAT) NIL ( 10Q "Type new level for dim " 3 "New level?") ICMLARRAY.MENUW.GETLEVEL D1 (L (2 BUTTONS 1 MENUWINDOW 0 ITEM) P 22Q RESETSTATE P 21Q MACROY P 17Q OLDVALUE P 6 NEWVALUE P 5 PRTWINDOW P 2 LEVEL P 1 DIM F 23Q RESETVARSLST) »A @d`ð¢ Ég'@d`ð¢ És Hg [l KI ñ¢±Ö@d`ð¢ Ég'\µ‚±¯`oKI kÙj2OdOó²>¿O_¿dO¿dg ¿dg¿jdnÿdh_¿dO ¿¼@d`ð²=°>d²dið¬d3¨gOhOh_¿OµOh__¿OkÔ_°O&_¿°ò Ég'¿@ÉgL¿L µ‚±¥±¡Hg ] ¿ 1gOhhW&c&_ ¿og ¥g_$¿O c&¿gO ¿O$“¿N²IN o ”g°9N ^3 ŸjNó«NKI ýó’N°Hg _ ¿oN O ¿JZ@AJh(667Q FM.CHANGELABEL 656Q PRIN1 651Q CONCAT 640Q TERPRI 633Q GETWINDOWUSERPROP 616Q ARRAY-DIMENSION 600Q READ 575Q OPENSTRINGSTREAM 563Q STREQUAL 554Q U-CASE 541Q ERROR! 532Q APPLY 502Q ICMLARRAY.MENUW.GETLEVELA0007 443Q TTY.PROCESS 440Q THIS.PROCESS 434Q TERPRI 430Q GETWINDOWUSERPROP 410Q MENU 403Q LISTPUT 354Q \ILLEGAL.ARG 146Q ARRAY-DIMENSION 111Q \ILLEGAL.ARG 71Q ARRAY-DIMENSION 61Q GETWINDOWUSERPROP 42Q \ILLEGAL.ARG 16Q \ILLEGAL.ARG 3 MAINWINDOW) (630Q PRTWINDOW 567Q ALL 522Q TTY.PROCESS 506Q ERROR 477Q INTERNAL 451Q TTY.PROCESS 425Q PRTWINDOW 377Q LEVMENU 372Q FREEMENUITEM 364Q LEVMENU 357Q FREEMENUITEM 276Q QUOTE 253Q FREEMENUITEMTYPE# 215Q DEFAULTMENUHELDFN 206Q CLRPROMPT 134Q MENUTYPE# 121Q LEVMENU 114Q FREEMENUITEM 104Q FREEMENUITEMTYPE# 56Q CMLARRAY 45Q FREEMENUITEM 35Q FREEMENUITEMTYPE# 26Q DIM 21Q FREEMENUITEM 11Q FREEMENUITEMTYPE#) ( 645Q "Illegal value " 560Q "ALL" 474Q (ICMLARRAY.MENUW.GETLEVELA0007) 141Q (ALL (QUOTE ALL) "Unrestricted")) ICMLARRAY.MENUW.SHOW D1 (L (2 BUTTONS 1 MENUWINDOW 0 ITEM)) EA g A g kÙjHµh»JIó³ùAgJ AK¿JkÔºHX°Ü(71Q FM.CHANGELABEL 64Q FM.ITEMFROMID 61Q PACK* 26Q ARRAY-RANK 23Q GETWINDOWUSERPROP 15Q MAINWINDOW 11Q GETWINDOWUSERPROP 3 MAINWINDOW) (55Q LEVEL 20Q CMLARRAY 6 CURRENTLEVELS) () SLICEDIMENSION D1 (L (1 DIM 0 SELECTION)) @ÉAkØ (13Q FNTH) (3 ICML.ARRAYSLICE) () SLICERANK D1 (L (0 SELECTION)) @É (10Q LENGTH) (3 ICML.ARRAYSLICE) () SLICEREF D1 (L (0 ARGS)) W ekHñ—o ¿@1IÉZIÉ[IÉ\JLKljMµ OØ _¿OONaÚÔ_¿M½NkÔ¾°Þ(74Q AREF 16Q HELP) (45Q ICML.ARRAYSLICE 36Q ICML.ARRAYSLICE 27Q ICML.ARRAYSLICE) ( 13Q "Need at least one arg") SLICESET D1 (L (0 ARGS)) ^ elHñ—o ¿@A2JÉ[JÉ\JÉ]IKMLlj Nµ OØ_¿OOOaÚÔ_¿N¾OkÔ_¿°Ú(77Q ASET 17Q HELP) (47Q ICML.ARRAYSLICE 40Q ICML.ARRAYSLICE 31Q ICML.ARRAYSLICE) ( 14Q "Need at least two args") ZEROD.FETCHFN D1 (L (1 PROP 0 SLICE)) @ (3 SLICEREF) NIL () ZEROD.STOREFN D1 (L (2 PROP 1 SLICE 0 NEWVALUE)) @A (4 SLICESET) NIL () (ADDTOVAR INSPECTMACROS (ARRAY . ICMLARRAY)) (/DECLAREDATATYPE (QUOTE ICML.ARRAYSLICE) (QUOTE (POINTER POINTER POINTER POINTER)) (QUOTE (( ICML.ARRAYSLICE 0 POINTER) (ICML.ARRAYSLICE 2 POINTER) (ICML.ARRAYSLICE 4 POINTER) (ICML.ARRAYSLICE 6 POINTER))) (QUOTE 8)) (FILESLOAD TWODINSPECTOR) (LOAD? (QUOTE FREEMENU.DCOM)) (PUTPROPS CMLARRAYINSPECTOR COPYRIGHT ("Xerox Corporation" 1985)) STOP