(FILECREATED " 7-Oct-85 22:00:09" ("compiled on " {QV}SOURCES>ARRAY.;14) "16-Aug-85 06:20:26" recompiled changes: ADJOIN CROSS RANK in "IDL-Test-Sysout 5-Sep-85 ..." dated " 5-Sep-85 21:33:28") (FILECREATED " 7-Oct-85 21:58:47" {QV}SOURCES>ARRAY.;14 37321 changes to: (FNS RANK ADJOIN CROSS) previous date: " 5-Sep-85 19:25:08" {QV}SOURCES>ARRAY.;13) ADJOINA0001A0002 D1 (P 26Q VVD P 25Q VLEVEL P 23Q $$TMP P 22Q V P 21Q GSBA P 20Q GSB P 17Q NOAVD P 16Q ALEVEL P 15Q I P 7 ADJOIN P 5 V P 4 ALENGTH P 3 ATYPE P 2 I P 0 VECTORS F 34Q LABPROPFLAG) leHkgj$Kgð³Kgðªog ¿L3 “jLñ™gg ¿JIó’±ŒJa]g ²O<ó³OO O>O*kO>¿O>kÔ_>°ãO* kð’±±O* _.¢±¦O$œOHkØ ¿h_$¿OO O.±‰O03©O0–O0 ²vO*d3³4´2WT²%O* _.²O$œOHkØ ¿h_$¿OO O.¿O*d _,¿O( ¿O(O kÙ ¿O(È^jð³"N•N ³OO( O,¿O(H°Ô¿O mÿÔ_ ±ý‡OgHk2$OBdO@óž¿OD_d³-d³7°(_H¿OFµOHh_F_D¿OBkÔ_B°ÖOH&_F¿°òd3 •µùi¿h’OˆOo ¿WT²!OghHA)k_RdOJó²¿OL ¿O_dg ²$Oa_P¿ONµOPh_N_L¿ORkÔ°ÇOP&_N¿°ôg (2231Q VALUEERROR 2157Q ARRAYTYPEP 2143Q SETTITLE 2140Q APPLY 2100Q SETARRAYPROP 2075Q VALUEERROR 1726Q SHOULDNT 1715Q SETAELT 1710Q NEXT 1677Q \FZEROP 1652Q SKIP 1640Q RESETUP 1630Q GETAELT 1625Q VSCALARPTR 1616Q SETCODES 1600Q SETVALDIM 1561Q GROUP.HIDDENCODES 1535Q VSCALARP 1515Q SETCODES 1477Q SETVALDIM 1456Q GROUP.HIDDENCODES 1443Q GETVALDIM 1424Q SETLEVLAB 1421Q GETLEVLAB 1370Q GETRELT 1364Q VALUEERROR 1352Q ROWTYPEP 1332Q SETLEVLAB 1327Q GETDIMLAB 1311Q SETDIMLAB 1306Q GETDIMLAB 1265Q ASSERTFAULT 1241Q GETRELT 1152Q SKIP 1141Q SETAELT 1134Q NEXT 1102Q \FZEROP 1055Q ASSERTFAULT 1022Q \FZEROP 775Q SKIP 765Q RESETUP 755Q GETAELT 752Q NEXT 737Q \FZEROP 710Q ASSERTFAULT 664Q ASSERTFAULT 633Q GETRELT 616Q SETUP 600Q ARRAYTYPEP 546Q ASSERTFAULT 524Q ASSERTFAULT 502Q ASSERTFAULT 460Q ASSERTFAULT 432Q SETUP 411Q ASSERTFAULT 377Q ARRAYTYPEP 363Q ALLOC.SARRAY 351Q SETRELT 326Q SHOULDNT 312Q GETAELT 307Q VSCALARPTR 300Q SETRELT 267Q VSCALARP 246Q SETRELT 211Q AELTTYPE 203Q SETRELT 200Q GETRELT 174Q VALUEERROR 162Q ROWTYPEP 136Q ARRAYTYPEP 104Q ASSERTFAULT 42Q ASSERTFAULT 30Q ROWTYPEP 16Q DROWCREATE) (2226Q SIMARRAY 2154Q SIMPLE 2112Q MAKETITLE 1750Q KEEPS 1660Q GENSTATEBLOCK 1361Q ROWINT 1346Q ROWINT 1340Q ARRAYFRAME 1262Q RUN 1257Q IJK 1225Q START 1222Q IJK 1052Q R 1047Q IJK 1003Q GENSTATEBLOCK 716Q GENSTATEBLOCK 705Q SPACE 702Q IJK 661Q START 656Q IJK 611Q ROWMAJOR 575Q VECTOR 543Q GSBC 540Q GENSTATEBLOCK 533Q GENSTATEBLOCKTYPE# 521Q GSB 516Q GENSTATEBLOCK 511Q GENSTATEBLOCKTYPE# 477Q NOCVD 474Q BOOL 455Q RUN 452Q IJK 427Q ROWMAJOR 421Q GENSTATEBLOCKTYPE# 406Q CROSS 403Q SIMARRAY 374Q SIMPLE 356Q FULL 320Q FLOATING 260Q FLOATING 222Q FLOATING 214Q FLOATING 171Q ROWINT 156Q ROWINT 150Q ARRAYFRAME 133Q VECTOR 101Q CTYPE 70Q FLOATING 60Q INTEGER 50Q INTEGER 37Q CSHAPE 34Q ROWINT 24Q ROWINT 13Q INTEGER) ( 2072Q (LST OF INTEGER) 76Q (MEMQ INTEGER FLOATING)) CROSSA0001 D1 (NAME UERRORSET P 4 I I 1 URESETVARSLST I 0 UERRORNAME F 5 VECTORS) 7ggoUAk\Hó³gL »JµKhZ¹LkÔ°èK&º°øI (64Q APPLY 32Q ARG) (26Q VECTORS 5 CROSSA0001A0002 2 EAPPLY.CALLER) ( 11Q (1 ...)) CROSS D1 (P 0 VECTORS F 1 RESETVARSLST) egQ (12Q CROSSA0001) (6 CROSS) () DEALA0001 D1 (NAME UERRORSET P 11Q DEAL P 10Q K P 7 DROW P 6 I P 2 N I 1 URESETVARSLST I 0 UERRORNAME F 12Q N F 13Q LABPROPFLAG) WdI ¸jHó²²oi ¿Ii ¿i ¿¿H!Jd¡“jJóšog ¿lJkJ gO ©gg ¿MNñ³YkN _d¡²OkOd`ð¥g Èªog ¿OOON ONOO ¿¿NkÙ^°¥O»gK ‘K†Kg Og ©gg ¿WšOhJ ¿O\dg ‘Lg (425Q VALUEERROR 414Q ARRAYTYPEP 400Q SETTITLE 375Q MAKETITLE 362Q ASSERTFAULT 350Q ARRAYTYPEP 335Q VFROMR 331Q VALUEERROR 317Q ROWTYPEP 276Q SETRELT 272Q SETRELT 267Q GETRELT 255Q GETRELT 242Q ASSERTFAULT 227Q BETWEEN 217Q VALUEERROR 163Q RAND 150Q ASSERTFAULT 136Q ROWTYPEP 123Q GENROW 112Q ASSERTFAULT 56Q UERROR! 52Q TERPRI 45Q PRIN2 37Q PRIN1 25Q UERRORPRINT? 14Q FIXR 11Q CONV.ARITH) (422Q VECTOR 411Q VECTOR 357Q DEAL 354Q SIMARRAY 345Q SIMPLE 326Q ROWINT 313Q ROWINT 237Q K 222Q ROWHEADER 214Q ROW 207Q ROWHEADERTYPE# 145Q DROW 142Q ROWINT 131Q ROWINT 107Q N) ( 234Q (INTEGER (SATISFIES (INDEXP DROW K))) 104Q (INTEGER (SATISFIES (NOT (MINUSP N)))) 33Q "Invalid N: ") DEAL D1 (I 0 N F 0 RESETVARSLST) gP (6 DEALA0001) (2 DEAL) () ELEMENTTYPEA0001 D1 (NAME UERRORSET P 2 A I 1 URESETVARSLST I 0 UERRORNAME F 3 A) :SdI Jd`ð«¿gg ¿J dgð¥dgðo (67Q VALUEERROR 43Q AELTTYPE 36Q ASSERTFAULT 10Q CONV.ARRAY) (55Q FLOATING 47Q INTEGER 33Q A 30Q ARRAY 22Q ARRAYFRAMETYPE#) ( 64Q (MEMQ INTEGER FLOATING)) ELEMENTTYPE D1 (I 0 A F 0 RESETVARSLST) gP (6 ELEMENTTYPEA0001) (2 ELEMENTTYPE) () FORMATA0001 D1 (NAME UERRORSET P 2 A I 1 URESETVARSLST I 0 UERRORNAME F 3 A) ;SdI Jd`ð«¿gg ¿JÉdgð¥dgðg (70Q VALUEERROR 36Q ASSERTFAULT 10Q CONV.ARRAY) (65Q FORMATCODE 57Q SYMMETRIC 51Q FULL 43Q ARRAYFRAME 33Q A 30Q ARRAY 22Q ARRAYFRAMETYPE#) () FORMAT D1 (I 0 A F 0 RESETVARSLST) gP (6 FORMATA0001) (2 FORMAT) () GENVECA0001A0002 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 UARG F 1 INITIAL) P ch(3 CONV.ARITH) NIL () GENVECA0001A0003 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 1 UARG F 2 INITIAL) .Q cÉgH ‘H†Hg k lð¢h(52Q UERROR! 43Q GETRELT 36Q VALUEERROR 24Q ROWTYPEP 3 CONV.VECTOR) (33Q ROWINT 20Q ROWINT 10Q ARRAYFRAME) () GENVECA0001 D1 (NAME UERRORSET P 24Q I P 23Q ROW P 22Q VAL P 20Q SF P 17Q I P 16Q DF P 15Q ROW P 13Q GV P 12Q N P 11Q D P 10Q S P 5 END P 4 INITIAL P 1 UARG P 0 INITIAL I 1 URESETVARSLST I 0 UERRORNAME F 25Q RESETVARSLST F 26Q INITIAL F 27Q END F 30Q LABPROPFLAG) ïW,dHdd¥d¡³]g ²#HÉºgJ ‘J†Jg k lð³3gW* ²)gW* ²²oi ¿Ii ¿i ¿¿HW.dK "Ld¥d¡³6Lg ²"LÉ¾gN ‘N†Ng k lðªog ¿Md¥d¡©gg ¿@Ldd¥d¡²%_d¥d¡©gg ¿MOó’k°`mÿ°\dk µoi ¿i ¿_d¥d¡©gg ¿Ldl µoi ¿i ¿OÕ_¿MOÕO×kØ_d¡”jOñ™gg ¿kOñ²oi ¿i ¿¿O¤M²oOhdOgO#gO ©gg ¿k_¿OOé_ ¿OOñ³0OOO OOêè¿OkØ_d¡•jOñ²Øgg °ÌO°wOOhdOgO$d¡©gg ¿gO& ©gg ¿k_(¿O(O"ñ³2O&O(O$¿O$OØ_$¿O(kØ_(d¡•jO(ñ²Ögg °ÊO& _g ©gg ¿W0²&OLd¥d¡µ'OoMoO ¿O_dg œOoM°äg (1354Q VALUEERROR 1344Q CONCAT 1330Q ARRAYTYPEP 1313Q SETTITLE 1310Q CONCAT 1243Q ASSERTFAULT 1231Q ARRAYTYPEP 1221Q VFROMR 1211Q ASSERTFAULT 1144Q SETRELT 1117Q ASSERTFAULT 1105Q ROWTYPEP 1074Q ASSERTFAULT 1047Q DROWCREATE 1022Q ASSERTFAULT 765Q SETRELT 722Q ASSERTFAULT 710Q ROWTYPEP 670Q DROWCREATE 641Q UERROR! 635Q TERPRI 630Q PRIN1 617Q UERRORPRINT? 605Q ASSERTFAULT 537Q UERROR! 533Q TERPRI 526Q PRIN1 515Q UERRORPRINT? 510Q GETAELT 505Q AELTPTR1 475Q ASSERTFAULT 447Q UERROR! 443Q TERPRI 436Q PRIN1 425Q UERRORPRINT? 420Q GETAELT 415Q AELTPTR1 373Q ASSERTFAULT 323Q ASSERTFAULT 275Q ASSERTFAULT 257Q GETRELT 253Q VALUEERROR 241Q ROWTYPEP 221Q ARRAYTYPEP 171Q CONV.ARITH 154Q UERROR! 150Q TERPRI 143Q PRIN2 135Q PRIN1 123Q UERRORPRINT? 116Q GENVECA0001A0003 104Q GENVECA0001A0002 67Q GETRELT 63Q VALUEERROR 51Q ROWTYPEP 31Q ARRAYTYPEP) (1351Q VECTOR 1325Q VECTOR 1240Q GV 1235Q SIMARRAY 1226Q SIMPLE 1206Q I 1203Q IJK 1114Q ROW 1111Q ROWINT 1100Q ROWINT 1071Q VAL 1066Q FIXP 1044Q INTEGER 1017Q I 1014Q IJK 717Q ROW 714Q ROWFLOAT 703Q ROWFLOAT 675Q FLOATP 665Q FLOATING 602Q N 577Q IJK 472Q S 467Q ARITH 370Q S 365Q ARITH 320Q END 315Q ARITH 272Q INITIAL 250Q ROWINT 235Q ROWINT 227Q ARRAYFRAME 216Q VECTOR 111Q UERRORGUARD 77Q UERRORGUARD 60Q ROWINT 45Q ROWINT 37Q ARRAYFRAME 26Q VECTOR) ( 1340Q "->" 1302Q " by " 1275Q "->" 624Q "Inconsistent increment and bounds" 522Q "NIL in INITIAL" 432Q "NIL in INITIAL" 267Q (ONEOF ARITH (VECTOR (SATISFIES (EQ (GETRELT (fetch SHAPE of INITIAL) 1) 2)))) 131Q "Invalid INITIAL: ") GENVEC D1 (I 1 END I 0 INITIAL F 0 RESETVARSLST) gP (6 GENVECA0001) (2 GENVEC) () IDLARRAYPA0001 D1 (NAME UERRORSET P 0 A I 1 URESETVARSLST I 0 UERRORNAME F 1 A) QHg ´H hð(20Q VSCALARP 12Q ARRAYTYPEP) (7 ARRAY) () IDLARRAYP D1 (I 0 A F 0 RESETVARSLST) gP (6 IDLARRAYPA0001) (2 IDLARRAYP) () ORDERA0001A0002A0003A0004A0005 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 UARG F 1 CFN) P c´h(12Q UERROR! 3 CONV.SCALAR) NIL () ORDERA0001A0002A0003A0004 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 CFN F 1 RESETVARSLST) Pd² «gQ ´h(23Q UERROR! 16Q ORDERA0001A0002A0003A0004A0005 6 FNTYP) (12Q UERRORGUARD) () ORDERA0001A0002A0003 D1 (NAME UERRORSET P 11Q OV P 5 CFN P 4 V P 3 UARG P 2 CFN I 1 URESETVARSLST I 0 UERRORNAME F 12Q V F 13Q CFN F 14Q RESETVARSLST F 15Q LABPROPFLAG) ã WdI WdgW ²oi ¿i ¿¿J2Lg ©gg ¿MŸM ªog ¿L É¾gN ‘N†Ng M Og ©gg ¿W²#OhLM´oMlð‘Mƒoh ¿O_dg “¿O…g _dg ’Og (340Q VALUEERROR 326Q ARRAYTYPEP 314Q VALUEERROR 301Q ARRAYTYPEP 265Q SETTITLE 262Q MAKETITLE 220Q ASSERTFAULT 206Q ARRAYTYPEP 173Q VFROMR 170Q ORDERROW 164Q VALUEERROR 152Q ROWTYPEP 135Q CONV.SIMARRAY 130Q ASSERTFAULT 115Q FNTYP 106Q ASSERTFAULT 74Q ARRAYTYPEP 57Q UERROR! 53Q TERPRI 46Q PRIN1 35Q UERRORPRINT? 30Q ORDERA0001A0002A0003A0004 11Q CONV.VECTOR) (335Q VECTOR 323Q VECTOR 311Q VECTOR 276Q VECTOR 215Q OV 212Q VECTOR 203Q VECTOR 161Q ROWSCALAR 146Q ROWSCALAR 140Q ARRAYFRAME 125Q CFN 103Q V 100Q VECTOR 71Q VECTOR 23Q UERRORGUARD) ( 254Q "user form" 240Q " by " 122Q (ONEOF NIL FUNCTION) 42Q "Illegal comparison function") ORDERA0001A0002 D1 (I 1 CFN I 0 V F 0 RESETVARSLST) gP (6 ORDERA0001A0002A0003) (2 ORDER) () ORDERA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 V F 1 CFN) goPQ(13Q EAPPLY.CALLER) (2 ORDERA0001A0002) ( 6 (1 NIL)) ORDER D1 (I 1 CFN I 0 V F 0 RESETVARSLST) gP (6 ORDERA0001) (2 ORDER) () ORDERROW D1 (P 7 V P 6 J P 4 U P 3 I P 1 TT P 0 N I 1 C I 0 X) !g@ ©gg ¿AŸA ªog ¿@d`ð¥g ÈHd¡©gg ¿kH gI ©gg ¿A³0g@ “gŽg@ “g‚gbŸA ªog ¿Hdlñ—¿kH ¿HlKJñ³Z@IK ¼kKkÙMNñ³=L@IN _ ³,OLlA³"ININkØ INkØIN ¿¿NkÙ¾°ÂKkØ[°¦IgJ ‘JJg (436Q VALUEERROR 424Q ROWTYPEP 370Q SETRELT 364Q SETRELT 361Q GETRELT 350Q GETRELT 323Q EQP 316Q GETRELT 313Q GETRELT 267Q GETRELT 264Q GETRELT 242Q ORDERROW1 225Q ASSERTFAULT 212Q FNTYP 173Q ROWTYPEP 157Q ROWTYPEP 144Q ASSERTFAULT 132Q ROWTYPEP 120Q GENROW 112Q ASSERTFAULT 61Q VALUEERROR 42Q ASSERTFAULT 27Q FNTYP 20Q ASSERTFAULT 6 ROWTYPEP) (433Q ROWINT 420Q ROWINT 222Q C 203Q ULESSP 177Q LESSP 167Q ROWFLOAT 163Q ILESSP 153Q ROWINT 141Q TT 136Q ROWINT 126Q ROWINT 107Q N 104Q INTEGER 64Q ROWHEADER 56Q ROW 51Q ROWHEADERTYPE# 37Q C 15Q X 12Q ROWSCALAR 2 ROWSCALAR) ( 217Q (ONEOF NIL FUNCTION) 34Q (ONEOF NIL FUNCTION)) ORDERROW1 D1 (P 3 J P 2 M P 1 V P 0 I I 1 R I 0 L F 4 TT F 5 X F 6 C) @d¡©gg ¿Ad¡“A@ñªog ¿gU ©gg ¿V ©gg ¿gT ©gg ¿@1Hd¡©gg ¿l A@Ùñ’±†UT@AØlÛ ºA»JUTH Y ³IJlV™HkØ¸°äKkÙ»JUTK Y ¨JIlV³æKdHñ²"¿THTK TKTH ¿¿HkØ¸KkÙ°¡@lØñ•@K ¿Hb±ÿuh(367Q ORDERROW1 342Q SETRELT 336Q SETRELT 333Q GETRELT 324Q GETRELT 274Q EQP 270Q GETRELT 265Q GETRELT 232Q EQP 226Q GETRELT 223Q GETRELT 211Q GETRELT 206Q GETRELT 160Q ASSERTFAULT 132Q ASSERTFAULT 120Q ROWTYPEP 110Q ASSERTFAULT 76Q FNTYP 71Q ASSERTFAULT 57Q ROWTYPEP 47Q ASSERTFAULT 20Q ASSERTFAULT) (155Q I 152Q INTEGER 127Q TT 124Q ROWINT 114Q ROWINT 105Q C 102Q FUNCTION 66Q X 63Q ROWSCALAR 53Q ROWSCALAR 44Q R 15Q L 12Q INTEGER) ( 41Q (INTEGER (SATISFIES (L lt R)))) RANKA0001A0002A0003 D1 (NAME UERRORSET P 27Q .AF. P 26Q K P 24Q J P 23Q J P 22Q I P 21Q NNIL P 17Q SCR P 16Q RANK P 15Q RX P 14Q X P 13Q L P 12Q AE P 2 A I 1 URESETVARSLST I 0 UERRORNAME F 30Q A F 31Q LABPROPFLAG) W0dI q Jd`ð«¿gg ¿J É»gK ‘K†Kg gO ©gg ¿Od`ð¥g ÈO O3 ©gg ¿gO ©gg ¿hdOg!gO ©gg ¿Oj"k_$O ó’±.OOO$ _¿O$kÔO(dOó³¿OOOO( ³1O(µimÿÔ_&¿O¢±±O&O$ó²~O&O$ÔlÜjð²O$O&Ôl×°jO(kÔ_(°±Od`ð¥g Êádjð•¿g°dkð”¿gŠlð“g‚gð³OO _¿gO ©gg ¿O$O&Ôo×O$_3¬O™gg ¿O"jð³Od3 “O"Õ‚O"é_¿‰O&O$ÕkÔ_"¿O&O$O,O*ó³OOO, O¿O,kÔ_,°æO&_$kÔ±þÏ`JÉ¼gL ‘L†Lg _¿JÉ½dM¿dg¿O.Édgð¥dgð’¿i¿h§o ¿O.OOd`ð¥g ÈkØÍ¿O¾gN ‘N†Ng ¿O.OOd`ð¥g ÈkØÍ¿O_¿gO ’O‡Og ¿O.O.É_¿gO ’O‡Og ¿O._¿W2²JO ¿OhJ ¿Od`ðg (1422Q VALUEERROR 1376Q SETTITLE 1373Q MAKETITLE 1363Q LAB.COPYDIMS 1340Q MAKEOFFSETS 1335Q VALUEERROR 1321Q ROWTYPEP 1267Q VALUEERROR 1253Q ROWTYPEP 1224Q VALUEERROR 1170Q VALUEERROR 1156Q ROWTYPEP 1132Q VALUEERROR 1100Q ASSERTFAULT 1007Q VALUEERROR 775Q ROWTYPEP 727Q SETRELT 722Q GETRELT 631Q ASSERTFAULT 572Q ASSERTFAULT 560Q ROWTYPEP 545Q FLOATROW 530Q SHOULDNT 467Q VALUEERROR 357Q EQP 354Q GETRELT 351Q GETRELT 313Q GETRELT 310Q GETRELT 256Q ASSERTFAULT 244Q ROWTYPEP 231Q DROWCREATE 216Q ASSERTFAULT 204Q ROWTYPEP 173Q ASSERTFAULT 152Q ORDERROW 140Q VALUEERROR 120Q ASSERTFAULT 106Q ROWTYPEP 73Q VALUEERROR 61Q ROWTYPEP 44Q CONV.SIMARRAY 37Q ASSERTFAULT 11Q CONV.ARRAY) (1417Q ARRAY 1411Q ARRAYFRAMETYPE# 1332Q ROWINT 1314Q ROWINT 1304Q ARRAYFRAME 1277Q ARRAYFRAME 1264Q ROWSCALAR 1246Q ROWSCALAR 1227Q ROWHEADER 1221Q ROW 1214Q ROWHEADERTYPE# 1205Q ROWHEADER 1200Q ARRAYFRAME 1165Q ROWINT 1152Q ROWINT 1135Q ROWHEADER 1127Q ROW 1122Q ROWHEADERTYPE# 1113Q ROWHEADER 1106Q ARRAYFRAME 1061Q SYMMETRIC 1053Q FULL 1045Q ARRAYFRAME 1032Q SIMPLE 1016Q ARRAYFRAME 1004Q ROWINT 771Q ROWINT 763Q ARRAYFRAME 756Q ARRAYFRAMETYPE# 626Q SCR 623Q SCALAR 567Q RX 564Q ROWSCALAR 553Q ROWSCALAR 533Q FLOATING 524Q INTEGER 514Q FLOATING 502Q POINTER 464Q ROW 457Q ROWHEADERTYPE# 253Q RX 250Q ROWSCALAR 237Q ROWSCALAR 226Q INTEGER 213Q X 210Q ROWINT 177Q ROWINT 170Q L 165Q INTEGER 143Q ROWHEADER 135Q ROW 130Q ROWHEADERTYPE# 115Q AE 112Q ROWSCALAR 101Q ROWSCALAR 70Q ROWSCALAR 55Q ROWSCALAR 47Q ARRAYFRAME 34Q A 31Q ARRAY 23Q ARRAYFRAMETYPE#) ( 1075Q (type? FORMATCODE (fetch FORMAT of .AF.)) 604Q 2.0) RANKA0001A0002 D1 (I 0 A F 0 RESETVARSLST) gP (6 RANKA0001A0002A0003) (2 RANK) () RANKA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 A) goP(12Q EAPPLY.CALLER) (2 RANKA0001A0002) ( 6 (2777Q)) RANK D1 (I 0 A F 0 RESETVARSLST) gP (6 RANKA0001) (2 RANK) () REDUCEA0001A0002A0003 D1 (NAME UERRORSET P 7 RESULT P 6 GSBA P 4 STARTINGVAL P 3 F P 2 A I 1 URESETVARSLST I 0 UERRORNAME F 10Q F F 11Q A F 12Q STARTINGVAL F 13Q REDUCENARGS) ãWdI W ³ ²oi ¿Wi ¿i ¿¿WWJ`ð©gg ¿K ©gg ¿J ²J Z`ð©gg ¿jJÉ½gM ‘M†Mg Ùjð‘LJg N`ð©gg ¿LµlWñ´ JN _¿NÈjð³OJN lK°äO(327Q COPYAELT 324Q NEXT 300Q COPYAELT 275Q NEXT 255Q ASSERTFAULT 232Q SETUP 215Q NLOGICALELTS 212Q VALUEERROR 200Q ROWTYPEP 160Q ASSERTFAULT 140Q CONV.VECTOR 132Q VSCALARP 125Q ASSERTFAULT 113Q FNTYP 106Q ASSERTFAULT 56Q UERROR! 52Q TERPRI 45Q PRIN2 36Q PRIN1 24Q UERRORPRINT? 17Q FNTYP 11Q CONV.ARRAY) (307Q GENSTATEBLOCK 252Q GSBA 247Q GENSTATEBLOCK 242Q GENSTATEBLOCKTYPE# 227Q ROWMAJOR 207Q ROWINT 174Q ROWINT 166Q ARRAYFRAME 155Q A 152Q ARRAY 145Q ARRAYFRAMETYPE# 122Q F 117Q FUNCTION 103Q A 100Q ARRAY 73Q ARRAYFRAMETYPE#) ( 32Q "Invalid F: ") REDUCEA0001A0002 D1 (I 2 STARTINGVAL I 1 F I 0 A F 0 RESETVARSLST) gP (6 REDUCEA0001A0002A0003) (2 REDUCE) () REDUCEA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 REDUCENARGS) 4goPjñ´ gk Pkñ´ gl Plñ´ gl (61Q EAPPLY.CALLER 55Q ARG 37Q ARG 22Q ARG) (50Q REDUCENARGS 32Q REDUCENARGS 16Q REDUCENARGS 2 REDUCEA0001A0002) ( 6 (2777Q)) REDUCE D1 (P 0 REDUCENARGS F 1 RESETVARSLST) egQ (12Q REDUCEA0001) (6 REDUCE) () RESHAPEA0001A0002A0003A0004 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 UARG F 1 A) P ch(3 CONV.SCALAR) NIL () RESHAPEA0001A0002A0003A0005 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 UARG F 1 A) P ch(3 CONV.ARRAY) NIL () RESHAPEA0001A0002A0003A0006 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 UARG F 1 NEWSHAPE) P c´h(12Q UERROR! 3 CONV.SCALAR) NIL () RESHAPEA0001A0002A0003A0007 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 UARG F 1 NEWSHAPE) P ch(3 CONV.VECTOR) NIL () RESHAPEA0001A0002A0003A0008 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 UARG F 1 NEWFORMAT) P c´h(12Q UERROR! 3 CONV.SCALAR) NIL () RESHAPEA0001A0002A0003A0009 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 UARG F 1 NEWFORMAT) -PlPoµ²oi ¿Pi ¿i ¿ch(47Q UERROR! 43Q TERPRI 36Q PRIN2 30Q PRIN1 16Q UERRORPRINT? 11Q MISSPELLED?) NIL ( 24Q "Invalid format specification: " 6 (FULL SYMMETRIC)) RESHAPEA0001A0002A0003 D1 (NAME UERRORSET P 33Q I P 31Q GSBNEW P 30Q GSBOLD P 27Q R P 26Q .AF. P 25Q I P 23Q NEWARRAY P 22Q SROW P 10Q NEWFORMAT P 7 NEWSHAPE P 6 A P 5 UARG P 4 NEWFORMAT P 3 UARG P 2 NEWSHAPE P 1 UARG P 0 A I 1 URESETVARSLST I 0 UERRORNAME F 34Q RESETVARSLST F 35Q LABPROPFLAG F 36Q A F 37Q NEWSHAPE F 40Q NEWFORMAT) †WdJd²O²:O$d`ð¥g ÈkO6O4ñ³O&O6OkO6¿O6kØ_6°åO&_"dg ’O"g (2603Q VALUEERROR 2571Q ARRAYTYPEP 2543Q SETDIMLAB 2540Q GETLEVLAB 2504Q VALUEERROR 2454Q SETTITLE 2451Q MAKETITLE 2422Q RESETUP 2401Q SETAELT 2376Q GETAELT 2373Q NEXT 2365Q NEXT 2342Q ASSERTFAULT 2316Q ASSERTFAULT 2272Q SETUP 2262Q SETUP 2252Q UERROR! 2246Q TERPRI 2241Q PRIN1 2230Q UERRORPRINT? 2220Q NLOGICALELTS 2205Q NLOGICALELTS 2202Q VALUEERROR 2166Q ROWTYPEP 2143Q ASSERTFAULT 2131Q ARRAYTYPEP 2121Q ALLOC.SARRAY 2116Q AELTTYPE 2103Q ASSERTFAULT 2066Q ARRAYTYPEP 2056Q ALLOC.SARRAY 2053Q CONV.SCALAR 2041Q VSCALARP 2030Q MAKEOFFSETS 2013Q VALUEERROR 1777Q ROWTYPEP 1750Q VALUEERROR 1716Q ASSERTFAULT 1704Q ARRAYTYPEP 1643Q MAKEOFFSETS 1640Q VALUEERROR 1624Q ROWTYPEP 1572Q VALUEERROR 1556Q ROWTYPEP 1526Q VALUEERROR 1477Q VALUEERROR 1463Q ROWTYPEP 1432Q VALUEERROR 1416Q ROWTYPEP 1367Q VALUEERROR 1335Q ASSERTFAULT 1244Q UARG 1226Q NPHYSICALELTS 1217Q NPHYSICALELTS 1206Q VALUEERROR 1172Q ROWTYPEP 1145Q ARRAYTYPEP 1134Q ASSERTFAULT 1117Q ARRAYTYPEP 1107Q ALLOC.SARRAY 1051Q UERROR! 1045Q TERPRI 1040Q PRIN1 1027Q UERRORPRINT? 1017Q GETRELT 1010Q GETRELT 766Q VALUEERROR 725Q UERROR! 721Q TERPRI 714Q PRIN1 710Q GETRELT 700Q PRIN1 666Q UERRORPRINT? 660Q GETRELT 630Q VALUEERROR 610Q ASSERTFAULT 576Q ROWTYPEP 563Q ROWINTOF 556Q NLOGICALELTS 553Q VALUEERROR 542Q CONV.ROWINT 533Q ROWTYPEP 475Q ASSERTFAULT 437Q ASSERTFAULT 424Q ARRAYTYPEP 407Q ASSERTFAULT 340Q UERROR! 334Q TERPRI 327Q PRIN2 321Q PRIN1 307Q UERRORPRINT? 302Q RESHAPEA0001A0002A0003A0009 270Q RESHAPEA0001A0002A0003A0008 224Q UERROR! 220Q TERPRI 213Q PRIN2 205Q PRIN1 173Q UERRORPRINT? 166Q RESHAPEA0001A0002A0003A0007 154Q RESHAPEA0001A0002A0003A0006 142Q ARRAYTYPEP 117Q UERROR! 113Q TERPRI 106Q PRIN2 100Q PRIN1 66Q UERRORPRINT? 61Q RESHAPEA0001A0002A0003A0005 47Q RESHAPEA0001A0002A0003A0004) (2600Q SIMARRAY 2566Q SIMPLE 2507Q ROWHEADER 2501Q ROW 2474Q ROWHEADERTYPE# 2436Q VALUES 2407Q GENSTATEBLOCK 2350Q GENSTATEBLOCK 2337Q GSBNEW 2334Q GENSTATEBLOCK 2326Q GENSTATEBLOCKTYPE# 2313Q GSBOLD 2310Q GENSTATEBLOCK 2303Q GENSTATEBLOCKTYPE# 2267Q ROWMAJOR 2257Q ROWMAJOR 2177Q ROWINT 2161Q ROWINT 2151Q ARRAYFRAME 2140Q NEWARRAY 2135Q SIMARRAY 2126Q SIMPLE 2100Q NEWARRAY 2075Q SIMARRAY 2063Q SIMPLE 2023Q ARRAYFRAME 2010Q ROWINT 1772Q ROWINT 1753Q ROWHEADER 1745Q ROW 1740Q ROWHEADERTYPE# 1731Q ROWHEADER 1724Q ARRAYFRAME 1713Q NEWARRAY 1710Q SIMARRAY 1701Q SIMPLE 1667Q VALUES 1635Q ROWINT 1617Q ROWINT 1607Q ARRAYFRAME 1602Q ARRAYFRAME 1567Q ROWSCALAR 1551Q ROWSCALAR 1531Q ROWHEADER 1523Q ROW 1516Q ROWHEADERTYPE# 1507Q ROWHEADER 1474Q ROWSCALAR 1456Q ROWSCALAR 1446Q ARRAYFRAME 1442Q ARRAYFRAME 1427Q ROWINT 1411Q ROWINT 1372Q ROWHEADER 1364Q ROW 1357Q ROWHEADERTYPE# 1350Q ROWHEADER 1343Q ARRAYFRAME 1316Q SYMMETRIC 1310Q FULL 1302Q ARRAYFRAME 1267Q SIMPLE 1254Q ARRAYFRAMETYPE# 1241Q A 1212Q ARRAYFRAME 1203Q ROWINT 1165Q ROWINT 1155Q ARRAYFRAME 1142Q SIMPLE 1131Q NEWARRAY 1126Q SIMARRAY 1114Q SIMPLE 1055Q FULL 771Q ROWHEADER 763Q ROW 756Q ROWHEADERTYPE# 744Q SYMMETRIC 633Q ROWHEADER 625Q ROW 620Q ROWHEADERTYPE# 605Q SROW 602Q ROWINT 571Q ROWINT 550Q ROWINT 526Q ROWINT 516Q ARRAYFRAME 507Q ARRAYFRAMETYPE# 472Q NEWFORMAT 461Q SYMMETRIC 451Q FULL 434Q NEWSHAPE 421Q VECTOR 404Q A 373Q ARRAYFRAMETYPE# 275Q UERRORGUARD 263Q UERRORGUARD 254Q SYMMETRIC 245Q FULL 161Q UERRORGUARD 147Q UERRORGUARD 137Q VECTOR 54Q UERRORGUARD 42Q UERRORGUARD 33Q ARRAYFRAMETYPE#) ( 2442Q " from " 2235Q "Cant reshape an empty array to a non-empty one" 1332Q (type? FORMATCODE (fetch FORMAT of .AF.)) 1034Q "Shape not consistent with symmetric format" 674Q "Negative element in NEWSHAPE: " 467Q (ONEOF NIL FORMATCODE) 431Q (ONEOF NIL VECTOR) 401Q (ONEOF SCALAR ARRAY) 315Q "Invalid NEWFORMAT: " 201Q "Invalid NEWSHAPE: " 74Q "Invalid A: ") RESHAPEA0001A0002 D1 (I 2 NEWFORMAT I 1 NEWSHAPE I 0 A F 0 RESETVARSLST) gP (6 RESHAPEA0001A0002A0003) (2 RESHAPE) () RESHAPEA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 A F 1 NEWSHAPE F 2 NEWFORMAT) goPQR (15Q EAPPLY.CALLER) (2 RESHAPEA0001A0002) ( 6 (2777Q NIL NIL)) RESHAPE D1 (I 2 NEWFORMAT I 1 NEWSHAPE I 0 A F 0 RESETVARSLST) gP (6 RESHAPEA0001) (2 RESHAPE) () RPLUSA0001A0002A0003 D1 (NAME UERRORSET P 6 GSBA P 5 TOT P 4 GSBA P 3 TOT P 2 A I 1 URESETVARSLST I 0 UERRORNAME F 7 A) ûWdI Jd`ð«¿gg ¿J šJd ±¶J dgð²S¿jJg Kd¡©gg ¿Ld`ð«¿gg ¿LÈjð³KJL µ¿h„Ø[°åK°Ygð²PoJg M©gg ¿Nd`ð«¿gg ¿NÈjð³MJN µ¿h„è]°åM‚dd¥d¡¡d g (370Q VALUEERROR 343Q SHOULDNT 324Q GETAELT 321Q NEXT 300Q ASSERTFAULT 255Q ASSERTFAULT 235Q SETUP 177Q GETAELT 174Q NEXT 153Q ASSERTFAULT 130Q ASSERTFAULT 104Q SETUP 64Q AELTTYPE 55Q COPYAELT 52Q VSCALARPTR 44Q VSCALARP 37Q ASSERTFAULT 11Q CONV.ARRAY) (365Q SCALAR 305Q GENSTATEBLOCK 275Q GSBA 272Q GENSTATEBLOCK 264Q GENSTATEBLOCKTYPE# 252Q TOT 247Q FLOATING 232Q ROWMAJOR 217Q FLOATING 160Q GENSTATEBLOCK 150Q GSBA 145Q GENSTATEBLOCK 137Q GENSTATEBLOCKTYPE# 125Q TOT 122Q FIXP 101Q ROWMAJOR 70Q INTEGER 34Q A 31Q ARRAY 23Q ARRAYFRAMETYPE#) ( 226Q 0.0) RPLUSA0001A0002 D1 (I 0 A F 0 RESETVARSLST) gP (6 RPLUSA0001A0002A0003) (2 RPLUS) () RPLUSA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 A) goP(12Q EAPPLY.CALLER) (2 RPLUSA0001A0002) ( 6 (2777Q)) RPLUS D1 (I 0 A F 0 RESETVARSLST) gP (6 RPLUSA0001) (2 RPLUS) () RTIMESA0001A0002A0003 D1 (NAME UERRORSET P 6 PROD P 5 GSBA P 4 PROD P 3 GSBA P 2 A I 1 URESETVARSLST I 0 UERRORNAME F 7 A) ÷WdI Jd`ð«¿gg ¿J šJd ±²J dgð²Q¿Jg kK`ð©gg ¿Ld¡©gg ¿KÈjð³LJK µ¿h„Ú\°åL°Wgð²NJg oM`ð©gg ¿N©gg ¿MÈjð³NJM µ¿h„ê^°åN‚dd¥d¡¡d g (364Q VALUEERROR 337Q SHOULDNT 320Q GETAELT 315Q NEXT 274Q ASSERTFAULT 256Q ASSERTFAULT 227Q SETUP 175Q GETAELT 172Q NEXT 151Q ASSERTFAULT 127Q ASSERTFAULT 103Q SETUP 64Q AELTTYPE 55Q COPYAELT 52Q VSCALARPTR 44Q VSCALARP 37Q ASSERTFAULT 11Q CONV.ARRAY) (361Q SCALAR 301Q GENSTATEBLOCK 271Q PROD 266Q FLOATING 253Q GSBA 250Q GENSTATEBLOCK 243Q GENSTATEBLOCKTYPE# 224Q ROWMAJOR 215Q FLOATING 156Q GENSTATEBLOCK 146Q PROD 143Q FIXP 124Q GSBA 121Q GENSTATEBLOCK 114Q GENSTATEBLOCKTYPE# 100Q ROWMAJOR 70Q INTEGER 34Q A 31Q ARRAY 23Q ARRAYFRAMETYPE#) ( 233Q 1.0) RTIMESA0001A0002 D1 (I 0 A F 0 RESETVARSLST) gP (6 RTIMESA0001A0002A0003) (2 RTIMES) () RTIMESA0001 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 A) goP(12Q EAPPLY.CALLER) (2 RTIMESA0001A0002) ( 6 (2777Q)) RTIMES D1 (I 0 A F 0 RESETVARSLST) gP (6 RTIMESA0001) (2 RTIMES) () SEEKA0001A0002 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 UARG F 1 SOUGHT) P ch(3 CONV.SCALAR) NIL () SEEKA0001A0003 D1 (NAME UERRORSET I 1 URESETVARSLST I 0 UERRORNAME F 0 UARG F 1 SOUGHT) P ch(3 CONV.VECTOR) NIL () SEEKA0001 D1 (NAME UERRORSET P 20Q FND P 17Q V P 13Q GSBS P 12Q VSIZE P 11Q STYPE P 10Q GSBV P 5 VEC P 4 SOUGHT P 1 UARG P 0 SOUGHT I 1 URESETVARSLST I 0 UERRORNAME F 21Q RESETVARSLST F 22Q SOUGHT F 23Q VEC F 24Q LABPROPFLAG) MW$dH ³LHdd¥d¡³?d²dI W@dJdd¥d¡³?d²O<ñ³O:O"O> O>¿O>kØ°æO6d`ð¥g È!k_BO@ñ’±’O6OBLdO8 ¿kO$k$ODOFñ³iOHkð²cO&OF O8O:OF Ùjð‘kO8O:OF kØ_H¿O:OF &k_LOJñ³O"OL OFð™O8OLOH¿OLkØ°àOFkÙ_F¿°”OBkØ±ÿkW`²pOhLM´oMd•¿gMh ¿O$!)k_PONñ³CO!,k_XOTñ³O"OX OPð™OV‘hŒOX_VOXkØ°àOV_RœLOOROPi ¿OPkØ°ºOd`ðg (2067Q VALUEERROR 2034Q LAB.COPYDIM 1766Q GETRELT 1724Q SETTITLE 1721Q MAKETITLE 1627Q SETRELT 1612Q GETRELT 1570Q GETRELT 1554Q GETRELT 1551Q GETRELT 1532Q GETRELT 1527Q GETRELT 1516Q GETRELT 1462Q SETRELT 1457Q GETAELT 1454Q AELTPTR 1417Q VALUEERROR 1370Q SETRELT 1363Q GETRELT 1334Q ASSERTFAULT 1322Q ROWTYPEP 1311Q ASSERTFAULT 1277Q ROWTYPEP 1266Q ASSERTFAULT 1254Q ROWTYPEP 1241Q DROWCREATE 1227Q DROWCREATE 1213Q VALUEERROR 1177Q ROWTYPEP 1154Q ASSERTFAULT 1142Q ARRAYTYPEP 1132Q ALLOC.SARRAY 1127Q AELTTYPE 1115Q UERROR! 1111Q TERPRI 1104Q PRIN1 1073Q UERRORPRINT? 1046Q GETRELT 1011Q SETRELT 761Q GETRELT 752Q GETRELT 734Q GETRELT 705Q DROWCREATE 656Q GETRELT 644Q GETRELT 615Q UERROR! 611Q TERPRI 604Q PRIN1 573Q UERRORPRINT? 556Q VALUEERROR 536Q ASSERTFAULT 513Q ASSERTFAULT 501Q ROWTYPEP 464Q VALUEERROR 450Q ROWTYPEP 423Q SETRELT 367Q ASSERTFAULT 355Q ROWTYPEP 342Q DROWCREATE 327Q MAKEDIMSPEC 316Q ASSERTFAULT 264Q VALUEERROR 244Q ASSERTFAULT 232Q ROWTYPEP 217Q VALUEERROR 205Q ROWTYPEP 166Q ASSERTFAULT 153Q ARRAYTYPEP 134Q ASSERTFAULT 106Q UERROR! 102Q TERPRI 75Q PRIN2 67Q PRIN1 55Q UERRORPRINT? 50Q TRANSPOSEA0001A0002 36Q ARRAYTYPEP 11Q CONV.ARRAY) (2064Q ARRAY 2056Q ARRAYFRAMETYPE# 1711Q LIST 1422Q ROWHEADER 1414Q ROW 1407Q ROWHEADERTYPE# 1331Q INV 1326Q ROWINT 1315Q ROWINT 1306Q IDX 1303Q ROWINT 1272Q ROWINT 1263Q TAE 1260Q ROWSCALAR 1247Q ROWSCALAR 1236Q INTEGER 1222Q INTEGER 1210Q ROWSCALAR 1172Q ROWSCALAR 1162Q ARRAYFRAME 1151Q TA 1146Q SIMARRAY 1137Q SIMPLE 1123Q FULL 677Q INTEGER 561Q ROWHEADER 553Q ROW 546Q ROWHEADERTYPE# 533Q MN 530Q INTEGER 510Q PV 505Q ROWINT 474Q ROWINT 461Q ROWINT 443Q ROWINT 364Q R 361Q ROWINT 350Q ROWINT 337Q INTEGER 313Q SN 310Q INTEGER 267Q ROWHEADER 261Q ROW 254Q ROWHEADERTYPE# 241Q S 236Q ROWINT 225Q ROWINT 214Q ROWINT 201Q ROWINT 173Q ARRAYFRAME 163Q PERM 150Q VECTOR 131Q A 126Q ARRAY 121Q ARRAYFRAMETYPE# 43Q UERRORGUARD 33Q VECTOR) ( 1701Q " by " 1100Q "Missing dimension in dimension specification" 600Q "Wrong length dimension specification" 160Q (ONEOF LST VECTOR) 63Q "Invalid PERM: ") TRANSPOSE D1 (I 1 PERM I 0 A F 0 RESETVARSLST) gP (6 TRANSPOSEA0001) (2 TRANSPOSE) () (PRETTYCOMPRINT ARRAYCOMS) (RPAQQ ARRAYCOMS ((* User level array manipulation functions.) (FNS ADJOIN CROSS DEAL ELEMENTTYPE FORMAT GENVEC IDLARRAYP ORDER ORDERROW ORDERROW1 RANK REDUCE RESHAPE RPLUS RTIMES SEEK SHAPE SHIFT TRANSPOSE) (PROP ARGNAMES REDUCE SHIFT) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS ( ADDVARS (NLAMA) (NLAML) (LAMA SHIFT REDUCE CROSS ADJOIN))))) (PUTPROPS REDUCE ARGNAMES (NIL (A F STARTINGVAL) . REDUCENARGS)) (PUTPROPS SHIFT ARGNAMES (NIL (V SHIFT FILL) . SHIFTNARGS)) (PUTPROPS ARRAY COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL