============================================================================================================================================== OFFSET 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F ---------------------------------------------------------------------------------------------------------------------------------------------- 00000000 01 00 81 76 49 68 C2 25 3C 3D 01 00 78 02 00 61 00 08 00 F0 00 02 00 01 00 04 00 3C 00 72 20 23 ☺.üvIh┬%<=☺.x☻.a.◘.≡.☻.☺.♦.<.r # 00000020 20 6E 20 72 6F 77 69 6E 64 69 63 65 73 20 6D 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 n rowindices m;Lio 00000040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 6F 77 69 6E 64 "rowind 00000060 69 63 65 73 20 2D 20 66 69 72 73 74 20 6F 72 20 6C 61 73 74 20 6E 20 72 6F 77 6E 75 6D 62 65 72 ices - first or last n rownumber 00000080 73 20 6F 66 20 6D 61 74 72 69 78 2E 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 s of matrix. "from 'the 000000A0 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 apl handbook of techniques' copy 000000C0 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 72 23 28 72 5E 3D 30 29 2F 72 23 6E 59 49 right 1978, ibm. r#(r^=0)/r#nYI 000000E0 31 59 52 6D 20 48 20 4C 69 6F 23 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1YRm H Lio#1 00000100 20 20 20 20 20 20 20 20 20 20 20 20 20 78 03 00 70 69 00 00 01 00 0A 50 00 0E 00 0A 00 0F 00 0D x♥.pi..☺.◙P.♫.◙.☼.♪ 00000120 00 0B 00 0A 00 0A 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 48 03 02 00 01 00 0E .♂.◙.◙.☻.☺.☺.☺.☺.☺.☺.☺.◘.H♥☻.☺.♫ 00000140 00 3C 00 20 73 75 6D 23 70 69 20 6E 3B 69 3B 74 65 72 6D 3B 72 65 6D 20 20 20 20 20 20 20 20 20 .<. sum#pi n;i;term;rem 00000160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000180 73 75 6D 23 74 65 72 6D 23 30 2C 28 6E 2B 69 23 31 29 59 33 20 20 20 20 20 20 20 20 20 20 20 20 sum#term#0,(n+i#1)Y3 000001A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6C 6F 6F 70 3A loop: 000001C0 74 65 72 6D 23 28 74 65 72 6D 20 6D 75 6C 20 69 29 64 69 76 20 34 58 69 2B 31 20 20 20 20 20 20 term#(term mul i)div 4Xi+1 000001E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 75 6D 23 73 75 6D 20 sum#sum 00000200 61 64 64 20 74 65 72 6D 20 64 69 76 20 69 23 69 2B 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 add term div i#i+2 00000220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 28 56 2F 74 65 72 6D 5E 3D 30 29 $(V/term^=0) 00000240 2F 6C 6F 6F 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /loop 00000260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 75 6D 23 28 5F 6E 29 2C 31 55 73 75 6D 20 20 sum#(_n),1Usum 00000280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000002A0 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 000002C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000002E0 20 20 20 20 20 20 20 22 70 69 20 2D 20 63 6F 6D 70 75 74 65 20 70 69 20 74 6F 20 61 72 62 69 74 "pi - compute pi to arbit 00000300 72 61 72 79 20 70 72 65 63 69 73 69 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rary precision 00000320 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 "from 'the apl handbook of te 00000340 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 chniques' copyright 1978, ibm. " 00000360 2D 63 6F 6D 70 75 74 65 20 70 69 20 28 33 2E 31 34 31 35 39 2B 29 20 74 6F 20 37 58 6E 20 64 65 -compute pi (3.14159+) to 7Xn de 00000380 63 69 6D 61 6C 20 64 69 67 69 74 73 20 6F 66 20 70 72 65 63 69 73 69 6F 6E 20 20 22 2D 74 68 65 cimal digits of precision "-the 000003A0 20 61 72 63 73 69 6E 20 70 6F 77 65 72 20 73 65 72 69 65 73 20 28 36 58 2D 31 4F 2E 35 29 20 69 arcsin power series (6X-1O.5) i 000003C0 73 20 73 75 6D 6D 65 64 2D 2D 6E 6F 74 20 74 68 65 20 20 20 20 20 20 22 20 66 61 73 74 65 73 74 s summed--not the " fastest 000003E0 20 6B 6E 6F 77 6E 20 6D 65 74 68 6F 64 2C 20 62 75 74 20 66 61 72 20 66 72 6F 6D 20 74 68 65 20 known method, but far from the 00000400 73 6C 6F 77 65 73 74 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 72 75 6E 6E 69 6E 67 20 74 69 6D slowest "-running tim 00000420 65 20 69 73 20 70 72 6F 70 6F 72 74 69 6F 6E 61 6C 20 74 6F 20 6E 2A 32 20 20 20 20 20 20 20 20 e is proportional to n*2 00000440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 61 64 64 20 47 6D 75 6C "-uses: Gadd Gmul 00000460 20 47 64 69 76 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 Gdiv 00000480 20 20 20 20 20 20 20 20 20 20 20 7E 00 FF FF 00 00 FC FF 11 00 0A 00 9E 50 01 00 CB 54 44 00 24 ~. ..ⁿ ◄.◙.₧P☺.╦TD.$ 000004A0 00 C5 54 1B 00 10 00 00 00 00 00 01 00 06 00 0E 00 00 00 C5 54 FC FF 0C 00 0C 00 98 50 01 00 08 .┼T←.►.....☺.♠.♫...┼Tⁿ ♀.♀.ÿP☺.◘ 000004C0 00 C5 54 48 00 C5 54 1B 00 0B 00 00 00 00 00 01 00 CE 54 08 00 24 00 C5 54 FC FF 0A 00 06 00 98 .┼TH.┼T←.♂.....☺.╬T◘.$.┼Tⁿ ◙.♠.ÿ 000004E0 50 01 00 00 00 0C 00 6C 00 C5 54 1B 00 09 00 00 00 00 00 01 00 24 10 08 00 48 00 C5 54 FC FF 08 P☺...♀.l.┼T←.○.....☺.$►◘.H.┼Tⁿ ◘ 00000500 00 02 00 8C 50 01 00 DB 54 D6 00 90 00 C5 54 FC FF 05 00 0C 00 89 50 01 00 7A 00 31 55 A2 00 C5 .☻.îP☺.█T╓.É.┼Tⁿ ♣.♀.ëP☺.z.1Uó.┼ 00000520 54 03 00 04 00 00 00 00 00 01 00 1C 00 CE 54 6C 00 C5 54 FC FF 01 00 06 00 89 50 01 00 6A 6B 6C T♥.♦.....☺.∟.╬Tl.┼Tⁿ ☺.♠.ëP☺.jkl 00000540 6D C6 00 C5 54 FD FF 14 00 0A 00 42 51 01 00 60 5F 60 61 D8 00 C5 54 39 00 13 00 00 00 00 00 01 m╞.┼T² ¶.◙.BQ☺.`_`a╪.┼T9.‼.....☺ 00000560 00 60 6A 60 6B EA 00 C5 54 09 00 12 00 00 00 00 00 01 00 60 73 60 74 FC 00 C5 54 FD FF 11 00 0A .`j`kΩ.┼T○.↕.....☺.`s`tⁿ.┼T² ◄.◙ 00000580 00 32 51 01 00 31 32 33 34 0E 01 C5 54 03 00 10 00 00 00 00 00 01 00 DB 54 46 00 20 01 C5 54 FC .2Q☺.1234♫☺┼T♥.►.....☺.█TF. ☺┼Tⁿ 000005A0 FF 0F 00 0A 00 10 51 01 00 00 00 02 00 32 01 C5 54 0B 00 0E 00 00 00 00 00 01 00 93 00 13 00 44 ☼.◙.►Q☺...☻.2☺┼T♂.♫.....☺.ô.‼.D 000005C0 01 C5 54 FC FF 0D 00 04 00 10 51 01 00 B2 55 0A 00 56 01 C5 54 08 00 0C 00 00 00 00 00 01 00 0E ☺┼Tⁿ ♪.♦.►Q☺.▓U◙.V☺┼T◘.♀.....☺.♫ 000005E0 00 0C 00 68 01 C5 54 0C 00 0B 00 00 00 00 00 01 00 E9 54 D8 00 7A 01 C5 54 FD FF 0A 00 0C 00 25 .♀.h☺┼T♀.♂.....☺.ΘT╪.z☺┼T² ◙.♀.% 00000600 51 01 00 E2 54 48 00 8C 01 C5 54 03 00 09 00 00 00 00 00 01 00 01 00 08 00 9E 01 C5 54 FC FF 05 Q☺.ΓTH.î☺┼T♥.○.....☺.☺.◘.₧☺┼Tⁿ ♣ 00000620 00 0C 00 AD 50 01 00 02 00 01 00 B0 01 C5 54 03 00 04 00 00 00 00 00 01 00 08 00 E2 54 FF FF 00 .♀.¡P☺.☻.☺.░☺┼T♥.♦.....☺.◘.ΓT . 00000640 00 FC FF 01 00 10 00 9E 50 01 00 E1 54 06 00 D4 01 C5 54 FD FF 1E 00 0A 00 A9 51 01 00 06 00 EA .ⁿ ☺.►.₧P☺.ßT♠.╘☺┼T² ▲.◙.⌐Q☺.♠.Ω 00000660 54 E6 01 C5 54 0B 00 1D 00 00 00 00 00 01 00 01 00 12 00 F8 01 C5 54 FC FF 1C 00 06 00 2D 51 01 Tµ☺┼T♂.↔.....☺.☺.↕.°☺┼Tⁿ ∟.♠.-Q☺ 00000680 00 0A 00 E8 54 0A 02 C5 54 38 00 1B 00 00 00 00 00 01 00 65 62 74 00 1C 02 C5 54 FD FF 1A 00 02 .◙.ΦT◙☻┼T8.←.....☺.ebt.∟☻┼T² →.☻ 000006A0 00 A1 51 01 00 00 00 02 00 2E 02 C5 54 FC FF 16 00 02 00 25 51 01 00 14 00 06 00 40 02 C5 54 09 .íQ☺...☻..☻┼Tⁿ ▬.☻.%Q☺.¶.♠.@☻┼T○ 000006C0 00 15 00 00 00 00 00 01 00 E9 54 0A 00 52 02 C5 54 FC FF 14 00 10 00 19 51 01 00 0C 00 98 55 64 .§.....☺.ΘT◙.R☻┼Tⁿ ¶.►.↓Q☺.♀.ÿUd 000006E0 02 C5 54 FC FF 10 00 0C 00 12 51 01 00 09 00 96 05 76 02 C5 54 FC FF 0B 00 0A 00 24 51 01 00 20 ☻┼Tⁿ ►.♀.↕Q☺.○.û♣v☻┼Tⁿ ♂.◙.$Q☺. 00000700 23 20 6E 88 02 C5 54 08 00 0A 00 00 00 00 00 01 00 20 20 20 20 9A 02 C5 54 03 00 09 00 00 00 00 # nê☻┼T◘.◙.....☺. Ü☻┼T♥.○.... 00000720 00 01 00 20 20 20 20 AC 02 C5 54 FC FF 05 00 0A 00 15 51 01 00 20 20 20 20 BE 02 C5 54 1A 00 04 .☺. ¼☻┼Tⁿ ♣.◙.§Q☺. ╛☻┼T→.♦ 00000740 00 00 00 00 00 01 00 20 61 6C 74 FF FF 00 00 FC FF 02 00 04 00 12 51 01 00 66 20 61 20 E2 02 C5 .....☺. alt ..ⁿ ☻.♦.↕Q☺.f a Γ☻┼ 00000760 54 FD FF 1A 00 06 00 BB 51 01 00 69 70 72 65 F4 02 C5 54 0B 00 19 00 00 00 00 00 01 00 20 20 22 T² →.♠.╗Q☺.ipre⌠☻┼T♂.↓.....☺. " 00000780 66 06 03 C5 54 FC FF 18 00 06 00 3F 51 01 00 61 6E 64 62 18 03 C5 54 03 00 17 00 00 00 00 00 01 f♠♥┼Tⁿ ↑.♠.?Q☺.andb↑♥┼T♥.↨.....☺ 000007A0 00 75 65 73 27 2A 03 C5 54 FC FF 16 00 10 00 3E 51 01 00 38 2C 20 69 3C 03 C5 54 FC FF 12 00 0C .ues'*♥┼Tⁿ ▬.►.>Q☺.8, i<♥┼Tⁿ ↕.♀ 000007C0 00 35 51 01 00 20 78 20 61 4E 03 C5 54 FC FF 0D 00 04 00 35 51 01 00 74 69 70 72 60 03 C5 54 FC .5Q☺. x aN♥┼Tⁿ ♪.♦.5Q☺.tipr`♥┼Tⁿ 000007E0 FF 09 00 04 00 32 51 01 00 72 20 6F 72 72 03 C5 54 FC FF 05 00 02 00 2E 51 01 00 74 20 20 20 84 ○.♦.2Q☺.r orr♥┼Tⁿ ♣.☻..Q☺.t ä 00000800 03 C5 54 03 00 04 00 00 00 00 00 01 00 70 72 65 63 FF FF 00 00 FC FF 01 00 0C 00 2D 51 01 00 28 ♥┼T♥.♦.....☺.prec ..ⁿ ☺.♀.-Q☺.( 00000820 72 78 29 A8 03 C5 54 FC FF 0E 00 10 00 9F 51 01 00 62 65 20 73 BA 03 C5 54 0F 00 0D 00 00 00 00 rx)¿♥┼Tⁿ ♫.►.ƒQ☺.be s║♥┼T☼.♪.... 00000840 00 01 00 20 66 6C 6F CC 03 C5 54 09 00 0C 00 00 00 00 00 01 00 6D 62 65 72 DE 03 C5 54 FD FF 0B .☺. flo╠♥┼T○.♀.....☺.mber▐♥┼T² ♂ 00000860 00 08 00 C7 51 01 00 6D 2B 6E 20 F0 03 C5 54 3E 00 09 00 00 00 00 00 01 00 20 74 68 65 02 04 C5 .◘.╟Q☺.m+n ≡♥┼T>.○.....☺. the☻♦┼ 00000880 54 FC FF 05 00 0A 00 57 51 01 00 73 20 6F 72 14 04 C5 54 0F 00 04 00 00 00 00 00 01 00 6D 20 74 Tⁿ ♣.◙.WQ☺.s or¶♦┼T☼.♦.....☺.m t 000008A0 68 26 04 C5 54 36 00 03 00 00 00 00 00 01 00 6C 61 72 73 38 04 C5 54 08 00 02 00 00 00 00 00 01 h&♦┼T6.♥.....☺.lars8♦┼T◘.☻.....☺ 000008C0 00 20 20 20 22 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 69 73 69 6F 5C 04 C5 54 FC FF 0C 00 08 . " ..♦.☺.....☺.isio\♦┼Tⁿ ♀.◘ 000008E0 00 A0 51 01 00 20 20 20 20 6E 04 C5 54 35 00 0B 00 00 00 00 00 01 00 20 20 20 20 80 04 C5 54 FD .áQ☺. n♦┼T5.♂.....☺. Ç♦┼T² 00000900 FF 0A 00 0C 00 D7 51 01 00 20 62 72 69 92 04 C5 54 0C 00 09 00 00 00 00 00 01 00 64 65 64 20 A4 ◙.♀.╫Q☺. briÆ♦┼T♀.○.....☺.ded ñ 00000920 04 C5 54 09 00 08 00 00 00 00 00 01 00 69 74 68 20 B6 04 C5 54 FC FF 07 00 0C 00 54 51 01 00 01 ♦┼T○.◘.....☺.ith ╢♦┼Tⁿ •.♀.TQ☺.☺ 00000940 00 01 00 C8 04 C5 54 3F 00 06 00 00 00 00 00 01 00 01 00 20 20 DA 04 C5 54 08 00 05 00 00 00 00 .☺.╚♦┼T?.♠.....☺.☺. ┌♦┼T◘.♣.... 00000960 00 01 00 01 00 20 20 EC 04 C5 54 03 00 04 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 00 FC FF 01 .☺.☺. ∞♦┼T♥.♦.....☺.☺. ..ⁿ ☺ 00000980 00 0C 00 3F 51 01 00 01 00 70 72 10 05 C5 54 FD FF 02 00 0C 00 DF 51 01 00 01 00 6D 75 FF FF 00 .♀.?Q☺.☺.pr►♣┼T² ☻.♀.▀Q☺.☺.mu . 000009A0 00 04 00 01 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 22 .♦.☺.....☺.☺. ..☻.......☺.☺." 000009C0 6D FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 72 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 m ..☻.......☺.☺.r ..☻.......☺ 000009E0 00 01 00 20 74 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 00 02 00 00 00 00 .☺. t ..☻.......☺.☺. ..☻.... 00000A00 00 00 00 01 00 01 00 66 69 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 31 20 FF FF 00 00 02 ...☺.☺.fi ..☻.......☺.☺.1 ..☻ 00000A20 00 00 00 00 00 00 00 01 00 01 00 20 20 00 00 B4 00 C2 01 D0 02 96 03 4A 04 FE 04 22 05 34 05 46 .......☺.☺. ..┤.┬☺╨☻û♥J♦■♦"♣4♣F 00000A40 05 58 05 6A 05 7C 05 8E 05 A2 00 BE 02 04 00 72 65 6D 00 05 00 74 65 72 6D 00 02 00 69 00 02 00 ♣X♣j♣|♣Ä♣ó.╛☻♦.rem.♣.term.☻.i.☻. 00000A60 6E 00 03 00 70 69 00 04 00 73 75 6D 00 04 00 01 00 00 00 02 00 03 00 04 00 01 00 00 00 02 00 01 n.♥.pi.♦.sum.♦.☺...☻.♥.♦.☺...☻.☺ 00000A80 00 02 00 69 00 02 00 6E 00 04 00 01 00 00 00 02 00 00 00 05 00 74 65 72 6D 00 04 00 73 75 6D 00 .☻.i.☻.n.♦.☺...☻...♣.term.♦.sum. 00000AA0 04 00 01 00 00 00 02 00 01 00 02 00 69 00 04 00 01 00 00 00 02 00 04 00 04 00 64 69 76 00 02 00 ♦.☺...☻.☺.☻.i.♦.☺...☻.♦.♦.div.☻. 00000AC0 69 00 04 00 6D 75 6C 00 05 00 74 65 72 6D 00 05 00 74 65 72 6D 00 05 00 6C 6F 6F 70 00 04 00 01 i.♦.mul.♣.term.♣.term.♣.loop.♦.☺ 00000AE0 00 00 00 02 00 02 00 02 00 69 00 02 00 69 00 04 00 64 69 76 00 05 00 74 65 72 6D 00 04 00 61 64 ...☻.☻.☻.i.☻.i.♦.div.♣.term.♦.ad 00000B00 64 00 04 00 73 75 6D 00 04 00 73 75 6D 00 05 00 6C 6F 6F 70 00 04 00 01 00 00 00 02 00 00 00 05 d.♦.sum.♦.sum.♣.loop.♦.☺...☻...♣ 00000B20 00 74 65 72 6D 00 04 00 73 75 6D 00 04 00 01 00 00 00 02 00 01 00 02 00 6E 00 04 00 73 75 6D 00 .term.♦.sum.♦.☺...☻.☺.☻.n.♦.sum. 00000B40 04 00 01 00 00 00 02 00 00 00 78 04 00 70 61 64 00 00 01 00 0C 3F 00 10 00 05 00 2B 00 02 00 01 ♦.☺...☻...x♦.pad..☺.♀?.►.♣.+.☻.☺ 00000B60 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 C0 03 02 00 01 .☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.◘.└♥☻.☺ 00000B80 00 10 00 3C 00 20 7A 23 70 20 70 61 64 20 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .►.<. z#p pad x 00000BA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000BC0 20 20 7A 23 28 28 28 7A 3D 30 29 2B 58 7A 23 7A 59 70 29 58 28 7A 59 31 2C 52 78 29 2B 7C 28 7A z#(((z=0)+Xz#zYp)X(zY1,Rx)+|(z 00000BE0 23 5F 31 53 52 52 78 29 59 70 29 59 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 #_1SRRx)Yp)Yx $0 00000C00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000C20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 61 64 20 2D 20 "pad - 00000C40 70 61 64 73 20 61 72 72 61 79 73 20 77 69 74 68 20 62 6C 61 6E 6B 73 20 6F 72 20 7A 65 72 6F 73 pads arrays with blanks or zeros 00000C60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 "from 'the 00000C80 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 apl handbook of techniques' copy 00000CA0 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 70 61 64 73 20 61 72 72 61 79 20 78 20 right 1978, ibm. "-pads array x 00000CC0 77 69 74 68 20 62 6C 61 6E 6B 73 20 28 69 66 20 6C 69 74 65 72 61 6C 29 20 6F 72 20 7A 65 72 6F with blanks (if literal) or zero 00000CE0 73 20 28 69 66 20 20 20 20 20 20 20 20 22 20 6E 75 6D 65 72 69 63 29 2E 20 78 20 63 61 6E 20 62 s (if " numeric). x can b 00000D00 65 20 61 6E 20 61 72 72 61 79 20 6F 66 20 61 6E 79 20 73 68 61 70 65 20 61 6E 64 20 74 79 70 65 e an array of any shape and type 00000D20 2E 20 70 20 69 73 20 61 20 22 20 6E 75 6D 65 72 69 63 20 76 65 63 74 6F 72 20 73 70 65 63 69 66 . p is a " numeric vector specif 00000D40 79 69 6E 67 20 74 68 65 20 61 6D 6F 75 6E 74 20 6F 66 20 70 61 64 64 69 6E 67 20 69 6E 20 65 61 ying the amount of padding in ea 00000D60 63 68 20 20 20 22 20 64 69 6D 65 6E 73 69 6F 6E 20 6F 66 20 78 20 28 6F 72 20 74 68 65 20 6C 61 ch " dimension of x (or the la 00000D80 77 73 74 20 52 70 29 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 wst Rp). 00000DA0 20 22 2D 74 68 65 20 73 65 6E 73 65 20 6F 66 20 70 61 64 64 69 6E 67 20 28 72 69 67 68 74 20 6F "-the sense of padding (right o 00000DC0 72 20 6C 65 66 74 29 2C 20 28 62 6F 74 74 6F 6D 20 6F 72 20 74 6F 70 29 2C 20 20 20 20 22 20 65 r left), (bottom or top), " e 00000DE0 74 63 2E 2C 20 69 73 20 64 65 74 65 72 6D 69 6E 65 64 20 62 79 20 74 68 65 20 73 69 67 6E 73 20 tc., is determined by the signs 00000E00 6F 66 20 74 68 65 20 65 6C 65 6D 65 6E 74 73 20 6F 66 20 70 20 6A 75 73 74 22 20 61 73 20 77 69 of the elements of p just" as wi 00000E20 74 68 20 74 68 65 20 74 61 6B 65 20 66 75 6E 63 74 69 6F 6E 20 28 59 29 2E 20 20 69 66 20 70 20 th the take function (Y). if p 00000E40 69 73 20 6E 6F 74 20 6C 6F 6E 67 20 65 6E 6F 75 67 68 20 74 6F 22 20 6D 61 74 63 68 20 74 68 65 is not long enough to" match the 00000E60 20 72 61 6E 6B 20 6F 66 20 78 2C 20 70 61 64 64 69 6E 67 20 69 73 20 64 6F 6E 65 20 6F 6E 6C 79 rank of x, padding is done only 00000E80 20 66 6F 72 20 74 68 65 20 6C 61 73 74 20 52 70 20 22 20 64 69 6D 65 6E 73 69 6F 6E 73 2E 20 74 for the last Rp " dimensions. t 00000EA0 68 69 73 20 66 75 6E 63 74 69 6F 6E 20 69 73 20 75 6E 6C 69 6B 65 20 74 68 65 20 74 61 6B 65 20 his function is unlike the take 00000EC0 66 75 6E 63 74 69 6F 6E 20 69 6E 20 20 22 20 74 68 61 74 20 74 68 65 20 63 68 61 6E 67 65 20 69 function in " that the change i 00000EE0 6E 20 73 69 7A 65 20 69 73 20 73 70 65 63 69 66 69 65 64 20 61 6E 64 20 69 74 20 64 6F 65 73 20 n size is specified and it does 00000F00 6E 6F 74 20 20 20 20 20 20 22 20 72 65 71 75 69 72 65 64 20 64 65 74 61 69 6C 65 64 20 6B 6E 6F not " required detailed kno 00000F20 77 6C 65 64 67 65 20 6F 66 20 74 68 65 20 64 69 6D 65 6E 73 69 6F 6E 73 20 6F 66 20 78 2E 20 20 wledge of the dimensions of x. 00000F40 20 20 20 20 20 12 00 FF FF 00 00 FC FF 09 00 04 00 A3 50 01 00 60 61 3B 76 24 00 0E 54 FC FF 05 ↕. ..ⁿ ○.♦.úP☺.`a;v$.♫Tⁿ ♣ 00000F60 00 04 00 9B 50 01 00 00 00 20 20 00 00 0E 54 FC FF 03 00 0E 00 9A 50 01 00 00 00 00 00 48 00 0E .♦.¢P☺... ..♫Tⁿ ♥.♫.ÜP☺.....H.♫ 00000F80 54 03 00 02 00 00 00 00 00 01 00 01 00 1E 00 24 00 0E 54 FC FF 01 00 04 00 99 50 01 00 48 08 FC T♥.☻.....☺.☺.▲.$.♫Tⁿ ☺.♦.ÖP☺.H◘ⁿ 00000FA0 FF 6C 00 0E 54 FC FF 2B 00 0E 00 0F 51 01 00 84 56 14 00 7E 00 0E 54 39 00 2A 00 00 00 00 00 01 l.♫Tⁿ +.♫.☼Q☺.äV¶.~.♫T9.*.....☺ 00000FC0 00 00 00 17 54 90 00 0E 54 09 00 29 00 00 00 00 00 01 00 75 65 0C 00 A2 00 0E 54 FC FF 28 00 0E ...↨TÉ.♫T○.).....☺.ue♀.ó.♫Tⁿ (.♫ 00000FE0 00 BC 50 01 00 38 2C 20 69 B4 00 0E 54 39 00 27 00 00 00 00 00 01 00 00 00 5B 4C C6 00 0E 54 09 .╝P☺.8, i┤.♫T9.'.....☺...[L╞.♫T○ 00001000 00 26 00 00 00 00 00 01 00 00 00 00 00 D8 00 0E 54 FC FF 25 00 08 00 BC 50 01 00 00 00 00 00 EA .&.....☺.....╪.♫Tⁿ %.◘.╝P☺.....Ω 00001020 00 0E 54 32 00 24 00 00 00 00 00 01 00 09 00 38 04 FC 00 0E 54 32 00 23 00 00 00 00 00 01 00 23 .♫T2.$.....☺.○.8♦ⁿ.♫T2.#.....☺.# 00001040 6B 64 20 0E 01 0E 54 33 00 22 00 00 00 00 00 01 00 20 20 20 20 20 01 0E 54 FD FF 21 00 02 00 3B kd ♫☺♫T3.".....☺. ☺♫T² !.☻.; 00001060 51 01 00 20 20 20 20 32 01 0E 54 3F 00 20 00 00 00 00 00 01 00 20 20 20 20 44 01 0E 54 03 00 1F Q☺. 2☺♫T?. .....☺. D☺♫T♥.▼ 00001080 00 00 00 00 00 01 00 52 6D 29 59 56 01 0E 54 FC FF 1E 00 10 00 B6 50 01 00 6B 64 29 2C 68 01 0E .....☺.Rm)YV☺♫Tⁿ ▲.►.╢P☺.kd),h☺♫ 000010A0 54 08 00 1D 00 00 00 00 00 01 00 48 20 4C 69 7A 01 0E 54 83 00 1C 00 00 00 00 00 01 00 20 20 20 T◘.↔.....☺.H Liz☺♫Tâ.∟.....☺. 000010C0 20 8C 01 0E 54 0B 00 1B 00 00 00 00 00 01 00 20 20 20 20 9E 01 0E 54 09 00 1A 00 00 00 00 00 01 î☺♫T♂.←.....☺. ₧☺♫T○.→.....☺ 000010E0 00 20 20 20 20 B0 01 0E 54 FC FF 19 00 02 00 AF 50 01 00 65 64 69 74 C2 01 0E 54 32 00 18 00 00 . ░☺♫Tⁿ ↓.☻.»P☺.edit┬☺♫T2.↑.. 00001100 00 00 00 01 00 20 20 20 20 D4 01 0E 54 0C 00 17 00 00 00 00 00 01 00 20 20 20 20 E6 01 0E 54 FD ...☺. ╘☺♫T♀.↨.....☺. µ☺♫T² 00001120 FF 16 00 04 00 23 51 01 00 20 20 20 20 F8 01 0E 54 39 00 15 00 00 00 00 00 01 00 20 68 61 6E 0A ▬.♦.#Q☺. °☺♫T9.§.....☺. han◙ 00001140 02 0E 54 FC FF 14 00 0C 00 AE 50 01 00 69 71 75 65 1C 02 0E 54 08 00 13 00 00 00 00 00 01 00 39 ☻♫Tⁿ ¶.♀.«P☺.ique∟☻♫T◘.‼.....☺.9 00001160 37 38 2C 2E 02 0E 54 38 00 12 00 00 00 00 00 01 00 73 20 61 20 40 02 0E 54 09 00 11 00 00 00 00 78,.☻♫T8.↕.....☺.s a @☻♫T○.◄.... 00001180 00 01 00 6F 66 20 73 52 02 0E 54 FC FF 10 00 06 00 AE 50 01 00 61 20 6D 61 64 02 0E 54 39 00 0F .☺.of sR☻♫Tⁿ ►.♠.«P☺.a mad☻♫T9.☼ 000011A0 00 00 00 00 00 01 00 6B 64 20 69 76 02 0E 54 FC FF 0E 00 08 00 A7 50 01 00 74 65 67 65 88 02 0E .....☺.kd iv☻♫Tⁿ ♫.◘.ºP☺.tegeê☻♫ 000011C0 54 03 00 0D 00 00 00 00 00 01 00 20 6B 2C 20 9A 02 0E 54 FC FF 0C 00 02 00 A7 50 01 00 20 20 20 T♥.♪.....☺. k, Ü☻♫Tⁿ ♀.☻.ºP☺. 000011E0 20 AC 02 0E 54 38 00 0B 00 00 00 00 00 01 00 77 73 20 6F BE 02 0E 54 0B 00 0A 00 00 00 00 00 01 ¼☻♫T8.♂.....☺.ws o╛☻♫T♂.◙.....☺ 00001200 00 74 68 65 20 D0 02 0E 54 09 00 09 00 00 00 00 00 01 00 67 65 64 2C E2 02 0E 54 FD FF 08 00 02 .the ╨☻♫T○.○.....☺.ged,Γ☻♫T² ◘.☻ 00001220 00 BB 50 01 00 65 64 2C 20 F4 02 0E 54 1D 00 07 00 00 00 00 00 01 00 65 20 73 65 06 03 0E 54 FC .╗P☺.ed, ⌠☻♫T↔.•.....☺.e se♠♥♫Tⁿ 00001240 FF 06 00 10 00 A3 50 01 00 65 20 6C 69 18 03 0E 54 08 00 05 00 00 00 00 00 01 00 74 6F 20 62 2A ♠.►.úP☺.e li↑♥♫T◘.♣.....☺.to b* 00001260 03 0E 54 08 00 04 00 00 00 00 00 01 00 20 20 20 20 3C 03 0E 54 08 00 03 00 00 00 00 00 01 00 20 ♥♫T◘.♦.....☺. <♥♫T◘.♥.....☺. 00001280 20 20 20 4E 03 0E 54 03 00 02 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 FC FF 01 00 0A 00 A3 N♥♫T♥.☻.....☺. ..ⁿ ☺.◙.ú 000012A0 50 01 00 20 77 69 6C 72 03 0E 54 FD FF 02 00 02 00 52 51 01 00 68 65 20 65 FF FF 00 00 04 00 01 P☺. wilr♥♫T² ☻.☻.RQ☺.he e ..♦.☺ 000012C0 00 00 00 00 00 01 00 20 77 69 6C FF FF 00 00 02 00 00 00 00 00 00 00 01 00 74 65 20 74 FF FF 00 .....☺. wil ..☻.......☺.te t . 000012E0 00 02 00 00 00 00 00 00 00 01 00 62 65 20 69 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 .☻.......☺.be i ..☻.......☺. 00001300 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 74 68 65 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 ..☻.......☺.the ..☻.......☺ 00001320 00 61 6E 20 61 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 74 68 65 FF FF 00 00 02 00 00 00 00 .an a ..☻.......☺. the ..☻.... 00001340 00 00 00 01 00 65 64 2E 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 65 20 69 6E FF FF 00 00 02 ...☺.ed. ..☻.......☺.e in ..☻ 00001360 00 00 00 00 00 00 00 01 00 61 72 20 61 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF .......☺.ar a ..☻.......☺. 00001380 FF 00 00 02 00 00 00 00 00 00 00 01 00 3E 64 2C 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 ..☻.......☺.>d, ..☻.......☺. 000013A0 62 65 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 61 63 63 00 00 5A 00 60 03 84 03 96 03 A8 be ..☻.......☺. acc..Z.`♥ä♥û♥¿ 000013C0 03 BA 03 CC 03 DE 03 F0 03 02 04 14 04 26 04 38 04 4A 04 5C 04 48 00 FF FF 02 00 78 00 04 00 70 ♥║♥╠♥▐♥≡♥☻♦¶♦&♦8♦J♦\♦H. ☻.x.♦.p 000013E0 61 64 00 02 00 70 00 02 00 7A 00 02 00 78 00 02 00 70 00 02 00 78 00 04 00 01 00 00 00 02 00 01 ad.☻.p.☻.z.☻.x.☻.p.☻.x.♦.☺...☻.☺ 00001400 00 02 00 7A 00 02 00 78 00 04 00 01 00 00 00 02 00 01 00 02 00 7A 00 02 00 70 00 02 00 7A 00 02 .☻.z.☻.x.♦.☺...☻.☺.☻.z.☻.p.☻.z.☻ 00001420 00 7A 00 04 00 01 00 00 00 02 00 00 00 02 00 7A 00 02 00 7A 00 04 00 01 00 00 00 02 00 00 00 78 .z.♦.☺...☻...☻.z.☻.z.♦.☺...☻...x 00001440 08 00 70 72 65 65 64 69 74 00 00 01 00 0C 22 00 0C 00 05 00 0A 00 09 00 02 00 01 00 01 00 01 00 ◘.preedit..☺.♀".♀.♣.◙.○.☻.☺.☺.☺. 00001460 01 00 01 00 01 00 01 00 01 00 08 00 D0 02 02 00 01 00 0C 00 3C 00 20 72 23 74 6E 61 6D 65 20 70 ☺.☺.☺.☺.☺.◘.╨☻☻.☺.♀.<. r#tname p 00001480 72 65 65 64 69 74 20 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 reedit m 000014A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 6E 61 6D 65 2C 27 20 69 6E 20 75 (tname,' in u 000014C0 73 65 27 29 65 73 63 61 70 65 20 30 5E 3D 4C 6E 63 20 74 6E 61 6D 65 20 20 20 20 20 20 20 20 20 se')escape 0^=Lnc tname 000014E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 4C 66 78 20 74 6E 61 6D 65 20 6F 6E 27 22 27 r#Lfx tname on'"' 00001500 2C 46 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,Fm 00001520 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00001540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001560 20 20 20 20 20 20 22 70 72 65 65 64 69 74 20 2D 20 70 72 65 70 61 72 65 20 6D 61 74 72 69 78 20 "preedit - prepare matrix 00001580 66 6F 72 20 66 75 6E 63 74 69 6F 6E 2D 6C 69 6B 65 20 65 64 69 74 69 6E 67 20 20 20 20 20 20 20 for function-like editing 000015A0 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 "from 'the apl handbook of tec 000015C0 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D hniques' copyright 1978, ibm. "- 000015E0 74 6E 61 6D 65 20 69 73 20 61 20 74 65 6D 70 6F 72 61 72 79 20 6E 61 6D 65 20 74 6F 20 62 65 20 tname is a temporary name to be 00001600 61 73 73 69 67 6E 65 64 20 74 6F 20 61 20 63 6F 70 79 20 6F 66 20 74 68 65 20 22 20 6D 61 74 72 assigned to a copy of the " matr 00001620 69 78 2C 20 6D 2C 20 73 6F 20 74 68 61 74 20 69 74 20 6D 61 79 20 62 65 20 65 64 69 74 65 64 20 ix, m, so that it may be edited 00001640 61 73 20 69 66 20 69 74 20 77 65 72 65 20 61 20 20 20 20 20 20 20 22 20 64 65 66 69 6E 65 64 20 as if it were a " defined 00001660 66 75 6E 63 74 69 6F 6E 2E 20 20 74 6E 61 6D 65 20 69 73 20 61 20 63 68 61 72 61 63 74 65 72 20 function. tname is a character 00001680 73 74 72 69 6E 67 2E 20 20 20 20 20 20 20 20 20 20 20 22 2D 77 68 65 6E 20 65 64 69 74 69 6E 67 string. "-when editing 000016A0 20 69 73 20 63 6F 6D 70 6C 65 74 65 2C 20 6B 65 79 3A 20 72 23 70 6F 73 74 65 64 69 74 20 74 6E is complete, key: r#postedit tn 000016C0 61 6D 65 2C 20 77 68 65 72 65 20 72 20 20 22 20 72 20 63 61 6E 20 62 65 20 74 68 65 20 6F 6C 64 ame, where r " r can be the old 000016E0 20 6F 72 20 6E 65 77 20 6E 61 6D 65 20 6F 66 20 74 68 65 20 65 64 69 74 65 64 20 6D 61 74 72 69 or new name of the edited matri 00001700 78 2E 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 65 73 63 61 70 65 20 47 6F 6E 20 20 20 x. "-uses: Gescape Gon 00001720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001740 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 11 00 0A 00 0B 51 01 00 00 00 00 00 24 00 4E 55 FC FF ↕. ..ⁿ ◄.◙.♂Q☺.....$.NUⁿ 00001760 09 00 0A 00 29 51 01 00 0C 00 54 55 00 00 4E 55 FC FF 03 00 0C 00 A2 50 01 00 3A 20 0C 00 48 00 ○.◙.)Q☺.♀.TU..NUⁿ ♥.♀.óP☺.: ♀.H. 00001780 4E 55 03 00 02 00 00 00 00 00 01 00 20 20 20 20 24 00 4E 55 FC FF 01 00 06 00 A2 50 01 00 00 00 NU♥.☻.....☺. $.NUⁿ ☺.♠.óP☺... 000017A0 20 20 6C 00 4E 55 FC FF 20 00 0C 00 A3 51 01 00 00 00 0C 00 7E 00 4E 55 EA FF 1C 00 00 00 00 00 l.NUⁿ .♀.úQ☺...♀.~.NUΩ ∟..... 000017C0 01 00 07 00 2A 00 90 00 4E 55 3E 00 1A 00 00 00 00 00 01 00 46 00 28 00 A2 00 4E 55 FD FF 19 00 ☺.•.*.É.NU>.→.....☺.F.(.ó.NU² ↓. 000017E0 04 00 A6 51 01 00 FC FF 27 00 B4 00 4E 55 FC FF 12 00 04 00 3E 51 01 00 0C 00 26 00 C6 00 4E 55 ♦.ªQ☺.ⁿ '.┤.NUⁿ ↕.♦.>Q☺.♀.&.╞.NU 00001800 09 00 11 00 00 00 00 00 01 00 09 00 25 00 D8 00 4E 55 07 00 08 00 08 00 3C 51 01 00 07 00 22 00 ○.◄.....☺.○.%.╪.NU•.◘.◘.<Q☺.•.". 00001820 EA 00 4E 55 0C 00 07 00 00 00 00 00 01 00 0C 00 21 00 FC 00 4E 55 FC FF 02 00 08 00 2B 51 01 00 Ω.NU♀.•.....☺.♀.!.ⁿ.NUⁿ ☻.◘.+Q☺. 00001840 09 00 20 00 FF FF 00 00 08 00 01 00 00 00 00 00 01 00 FC FF 1F 00 20 01 4E 55 FC FF 14 00 02 00 ○. . ..◘.☺.....☺.ⁿ ▼. ☺NUⁿ ¶.☻. 00001860 A8 51 01 00 29 00 1E 00 32 01 4E 55 26 00 13 00 00 00 00 00 01 00 32 00 1D 00 44 01 4E 55 0C 00 ¿Q☺.).▲.2☺NU&.‼.....☺.2.↔.D☺NU♀. 00001880 12 00 00 00 00 00 01 00 09 00 1C 00 56 01 4E 55 07 00 0F 00 02 00 C3 51 01 00 FD FF 1B 00 68 01 ↕.....☺.○.∟.V☺NU•.☼.☻.├Q☺.² ←.h☺ 000018A0 4E 55 FC FF 0D 00 0A 00 A4 51 01 00 0C 00 1A 00 7A 01 4E 55 FC FF 07 00 0A 00 A7 51 01 00 FC FF NUⁿ ♪.◙.ñQ☺.♀.→.z☺NUⁿ •.◙.ºQ☺.ⁿ 000018C0 19 00 8C 01 4E 55 EF FF 03 00 00 00 00 00 01 00 08 00 18 00 9E 01 4E 55 03 00 02 00 00 00 00 00 ↓.î☺NU∩ ♥.....☺.◘.↑.₧☺NU♥.☻..... 000018E0 01 00 26 00 17 00 FF FF 00 00 FC FF 01 00 04 00 A4 51 01 00 FD FF 14 00 C2 01 4E 55 FD FF 02 00 ☺.&.↨. ..ⁿ ☺.♦.ñQ☺.² ¶.┬☺NU² ☻. 00001900 02 00 D4 51 01 00 08 00 13 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 46 00 11 00 FF FF 00 00 ☻.╘Q☺.◘.‼. ..♦.☺.....☺.F.◄. .. 00001920 02 00 00 00 00 00 00 00 01 00 FC FF 10 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 0C 00 0F 00 ☻.......☺.ⁿ ►. ..☻.......☺.♀.☼. 00001940 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 07 00 0C 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 ..☻.......☺.•.♀. ..☻.......☺. 00001960 3D 00 0B 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 FD FF 0A 00 FF FF 00 00 02 00 00 00 00 00 =.♂. ..☻.......☺.² ◙. ..☻..... 00001980 00 00 01 00 3B 00 09 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 0C 00 08 00 FF FF 00 00 02 00 ..☺.;.○. ..☻.......☺.♀.◘. ..☻. 000019A0 00 00 00 00 00 00 01 00 07 00 05 00 00 00 5A 00 0E 01 B0 01 D4 01 E6 01 F8 01 0A 02 1C 02 2E 02 ......☺.•.♣...Z.♫☺░☺╘☺µ☺°☺◙☻∟☻.☻ 000019C0 40 02 52 02 48 00 FF FF 02 00 6D 00 08 00 70 72 65 65 64 69 74 00 06 00 74 6E 61 6D 65 00 02 00 @☻R☻H. ☻.m.◘.preedit.♠.tname.☻. 000019E0 72 00 06 00 74 6E 61 6D 65 00 04 00 01 00 00 00 02 00 00 00 07 00 65 73 63 61 70 65 00 08 00 07 r.♠.tname.♦.☺...☻...•.escape.◘.• 00001A00 00 01 00 01 00 07 00 20 69 6E 20 75 73 65 06 00 74 6E 61 6D 65 00 02 00 6D 00 08 00 01 00 00 00 .☺.☺.•. in use♠.tname.☻.m.◘.☺... 00001A20 01 00 22 03 00 6F 6E 00 06 00 74 6E 61 6D 65 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 07 ☺."♥.on.♠.tname.☻.r.♦.☺...☻...x• 00001A40 00 70 72 6F 6D 70 74 00 00 01 00 0C 8D 00 16 00 09 00 18 00 14 00 11 00 13 00 1F 00 01 00 02 00 .prompt..☺.♀ì.▬.○.↑.¶.◄.‼.▼.☺.☻. 00001A60 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 AC 05 ☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.◘.¼♣ 00001A80 02 00 01 00 16 00 42 00 20 72 23 64 65 66 20 70 72 6F 6D 70 74 20 6D 73 67 3B 6A 3B 6B 20 20 20 ☻.☺.▬.B. r#def prompt msg;j;k 00001AA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001AC0 20 20 20 20 20 20 20 20 20 20 20 24 30 20 69 66 20 30 3D 52 2C 64 65 66 20 48 20 6A 23 72 23 72 $0 if 0=R,def H j#r#r 00001AE0 55 51 48 20 72 23 52 2C 51 23 6D 73 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 UQH r#R,Q#msg 00001B00 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 69 66 20 63 68 61 72 61 63 74 65 72 20 64 65 66 $0 if character def 00001B20 20 48 20 72 23 72 2C 28 30 3D 52 2C 72 29 2F 46 64 65 66 20 20 20 20 20 20 20 20 20 20 20 20 20 H r#r,(0=R,r)/Fdef 00001B40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 73 63 72 65 65 6E 3A 24 65 72 72 20 69 66 20 7E 28 nscreen:$err if ~( 00001B60 7E 65 6D 70 74 79 20 6B 29 26 26 2F 6B 23 6A 45 27 20 2D 2E 30 31 32 33 34 35 36 37 38 39 65 27 ~empty k)&&/k#jE' -.0123456789e' 00001B80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 69 66 56 2F 64 65 66 3D 28 64 65 66 $0 ifV/def=(def 00001BA0 3E 30 29 58 52 2C 72 23 43 6A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 >0)XR,r#Cj 00001BC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72 3A 24 31 20 48 20 4C 23 27 6E 6F err:$1 H L#'no 00001BE0 74 20 65 78 61 63 74 6C 79 20 27 2C 28 28 56 2F 64 65 66 3E 30 29 2F 46 64 65 66 29 2C 27 20 6E t exactly ',((V/def>0)/Fdef),' n 00001C00 75 6D 62 65 72 27 2C 28 56 2F 64 65 66 3E 31 29 2F 27 73 27 22 20 63 68 61 72 61 63 74 65 72 73 umber',(V/def>1)/'s'" characters 00001C20 20 6D 61 79 20 62 65 20 61 64 64 65 64 20 6F 72 20 64 65 6C 65 74 65 64 20 66 72 6F 6D 20 6E 73 may be added or deleted from ns 00001C40 63 72 65 65 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 creen $0 00001C60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001C80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 72 6F 6D 70 74 20 "prompt 00001CA0 2D 20 70 72 6F 6D 70 74 20 61 6E 64 20 63 68 65 63 6B 20 74 65 72 6D 69 6E 61 6C 20 65 6E 74 72 - prompt and check terminal entr 00001CC0 79 20 6F 72 20 65 6C 73 65 20 64 65 66 61 75 6C 74 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 y or else default "from 00001CE0 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 'the apl handbook of techniques' 00001D00 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 20 20 20 20 20 22 2D 70 72 copyright 1978, ibm. "-pr 00001D20 6F 6D 70 74 20 63 61 6E 20 65 78 61 6D 69 6E 65 20 6B 65 79 62 6F 61 72 64 20 65 6E 74 72 79 2C ompt can examine keyboard entry, 00001D40 20 61 6E 64 20 65 69 74 68 65 72 20 61 63 63 65 70 74 20 69 74 20 20 20 20 20 20 20 20 20 22 20 and either accept it " 00001D60 75 6E 63 72 69 74 69 63 61 6C 6C 79 2C 20 72 65 74 75 72 6E 20 61 20 73 70 65 63 69 66 69 65 64 uncritically, return a specified 00001D80 20 64 65 66 61 75 6C 74 20 63 68 61 72 61 63 74 65 72 20 76 65 63 74 6F 72 2C 20 20 20 20 20 20 default character vector, 00001DA0 22 20 6F 72 2C 20 69 66 20 6E 75 6D 65 72 69 63 20 76 61 6C 75 65 73 20 61 72 65 20 72 65 71 75 " or, if numeric values are requ 00001DC0 65 73 74 65 64 2C 20 77 69 6C 6C 20 63 68 65 63 6B 20 74 68 65 20 20 20 20 20 20 20 20 20 20 20 ested, will check the 00001DE0 20 20 22 20 63 68 61 72 61 63 74 65 72 20 73 65 74 20 75 73 65 64 2C 20 61 6E 64 20 63 61 6E 20 " character set used, and can 00001E00 63 68 65 63 6B 20 66 6F 72 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6C 65 6E 67 74 68 2E 20 check for the specified length. 00001E20 20 20 20 20 22 2D 6D 73 67 20 69 73 20 61 20 63 68 61 72 61 63 74 65 72 20 73 74 72 69 6E 67 2C "-msg is a character string, 00001E40 20 69 2E 65 2E 2C 20 74 68 65 20 70 72 6F 6D 70 74 69 6E 67 20 6D 65 73 73 61 67 65 2E 20 20 20 i.e., the prompting message. 00001E60 20 20 20 20 20 20 22 2D 64 65 66 2C 20 69 66 20 63 68 61 72 61 63 74 65 72 2C 20 69 73 20 74 68 "-def, if character, is th 00001E80 65 20 64 65 66 61 75 6C 74 20 63 68 61 72 61 63 74 65 72 20 73 74 72 69 6E 67 2C 20 6F 72 2C 20 e default character string, or, 00001EA0 27 27 20 20 20 20 20 20 22 20 20 20 20 20 20 69 66 20 61 20 73 63 61 6C 61 72 20 6E 75 6D 65 72 '' " if a scalar numer 00001EC0 69 63 20 76 61 6C 75 65 2C 20 6E 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ic value, n: 00001EE0 20 20 20 20 20 20 20 20 20 20 22 20 20 20 20 20 20 20 20 20 20 77 69 6C 6C 20 61 63 63 65 70 74 " will accept 00001F00 20 61 6E 79 20 6E 75 6D 65 72 69 63 20 76 65 63 74 6F 72 20 69 66 20 6E 3D 30 20 20 20 20 20 20 any numeric vector if n=0 00001F20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20 20 20 20 20 20 20 20 77 69 6C 6C 20 72 65 6A 65 " will reje 00001F40 63 74 20 76 65 63 74 6F 72 20 75 6E 6C 65 73 73 20 6E 3D 52 76 65 63 74 6F 72 20 20 20 20 20 20 ct vector unless n=Rvector 00001F60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20 20 20 20 69 66 20 61 6E 20 69 6E 74 65 67 " if an integ 00001F80 65 72 20 76 65 63 74 6F 72 2C 20 76 2C 20 77 69 6C 6C 20 61 63 63 65 70 74 20 61 20 6E 75 6D 65 er vector, v, will accept a nume 00001FA0 72 69 63 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20 20 20 20 20 20 20 20 76 65 63 74 6F ric " vecto 00001FC0 72 20 69 66 20 69 74 73 20 6C 65 6E 67 74 68 20 69 73 20 6F 6E 65 20 6D 65 6D 62 65 72 20 6F 66 r if its length is one member of 00001FE0 20 76 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 63 68 61 72 61 v. "-uses: Gchara 00002000 63 74 65 72 20 47 65 6D 70 74 79 20 47 69 66 20 47 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cter Gempty Gif GH 00002020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5A 00 FF FF 00 00 FC FF 14 00 10 00 Z. ..ⁿ ¶.►. 00002040 C5 51 01 00 61 72 61 63 24 00 D2 56 1B 00 13 00 00 00 00 00 01 00 69 6C 6C 20 00 00 D2 56 FC FF ┼Q☺.arac$.╥V←.‼.....☺.ill ..╥Vⁿ 00002060 12 00 06 00 C4 51 01 00 20 62 6C 61 48 00 D2 56 1B 00 11 00 00 00 00 00 01 00 20 20 22 2D 24 00 ↕.♠.─Q☺. blaH.╥V←.◄.....☺. "-$. 00002080 D2 56 FC FF 0E 00 08 00 39 51 01 00 79 20 68 61 6C 00 D2 56 FC FF 07 00 10 00 1F 51 01 00 72 65 ╥Vⁿ ♫.◘.9Q☺.y hal.╥Vⁿ •.►.▼Q☺.re 000020A0 2E 20 48 00 D2 56 FC FF 03 00 10 00 1B 51 01 00 20 20 20 20 90 00 D2 56 03 00 02 00 00 00 00 00 . H.╥Vⁿ ♥.►.←Q☺. É.╥V♥.☻..... 000020C0 01 00 74 65 72 6F 6C 00 D2 56 FC FF 01 00 0A 00 1B 51 01 00 69 66 69 63 B4 00 D2 56 FC FF 20 00 ☺.terol.╥Vⁿ ☺.◙.←Q☺.ific┤.╥Vⁿ . 000020E0 02 00 E3 51 01 00 65 73 69 72 C6 00 D2 56 03 00 1F 00 00 00 00 00 01 00 65 73 3A 20 D8 00 D2 56 ☻.πQ☺.esir╞.╥V♥.▼.....☺.es: ╪.╥V 00002100 31 00 1E 00 00 00 00 00 01 00 69 78 20 20 EA 00 D2 56 0C 00 1D 00 00 00 00 00 01 00 20 20 20 20 1.▲.....☺.ix Ω.╥V♀.↔.....☺. 00002120 FC 00 D2 56 32 00 1C 00 00 00 00 00 01 00 20 20 00 20 0E 01 D2 56 03 00 1B 00 00 00 00 00 01 00 ⁿ.╥V2.∟.....☺. . ♫☺╥V♥.←.....☺. 00002140 E2 56 01 00 20 01 D2 56 FC FF 1A 00 0C 00 E2 51 01 00 4C 69 6F 20 32 01 D2 56 FC FF 18 00 06 00 ΓV☺. ☺╥Vⁿ →.♀.ΓQ☺.Lio 2☺╥Vⁿ ↑.♠. 00002160 E2 51 01 00 20 20 20 20 44 01 D2 56 31 00 17 00 00 00 00 00 01 00 20 20 20 20 56 01 D2 56 35 00 ΓQ☺. D☺╥V1.↨.....☺. V☺╥V5. 00002180 16 00 00 00 00 00 01 00 72 6D 61 74 68 01 D2 56 FC FF 15 00 02 00 DF 51 01 00 20 20 20 20 7A 01 ▬.....☺.rmath☺╥Vⁿ §.☻.▀Q☺. z☺ 000021A0 D2 56 03 00 14 00 00 00 00 00 01 00 20 20 20 20 8C 01 D2 56 FC FF 13 00 0C 00 DE 51 01 00 20 20 ╥V♥.¶.....☺. î☺╥Vⁿ ‼.♀.▐Q☺. 000021C0 20 7A 9E 01 D2 56 03 00 12 00 00 00 00 00 01 00 20 61 29 53 B0 01 D2 56 FC FF 11 00 02 00 D9 51 z₧☺╥V♥.↕.....☺. a)S░☺╥Vⁿ ◄.☻.┘Q 000021E0 01 00 20 20 20 20 C2 01 D2 56 FC FF 0F 00 02 00 D7 51 01 00 20 20 20 20 D4 01 D2 56 FC FF 0B 00 ☺. ┬☺╥Vⁿ ☼.☻.╫Q☺. ╘☺╥Vⁿ ♂. 00002200 0C 00 D6 51 01 00 29 2C 7A 29 E6 01 D2 56 0C 00 0A 00 00 00 00 00 01 00 59 52 62 29 F8 01 D2 56 ♀.╓Q☺.),z)µ☺╥V♀.◙.....☺.YRb)°☺╥V 00002220 32 00 09 00 00 00 00 00 01 00 20 20 20 20 0A 02 D2 56 1D 00 08 00 00 00 00 00 01 00 63 61 73 65 2.○.....☺. ◙☻╥V↔.◘.....☺.case 00002240 1C 02 D2 56 FD FF 07 00 04 00 F1 51 01 00 6D 70 74 79 2E 02 D2 56 FC FF 04 00 06 00 C6 51 01 00 ∟☻╥V² •.♦.±Q☺.mpty.☻╥Vⁿ ♦.♠.╞Q☺. 00002260 20 20 20 20 40 02 D2 56 FD FF 02 00 06 00 DD 51 01 00 20 20 20 24 FF FF 00 00 04 00 01 00 00 00 @☻╥V² ☻.♠.▌Q☺. $ ..♦.☺... 00002280 00 00 01 00 20 20 20 20 64 02 D2 56 FC FF 24 00 02 00 0E 52 01 00 20 20 20 20 76 02 D2 56 26 00 ..☺. d☻╥Vⁿ $.☻.♫R☺. v☻╥V&. 000022A0 23 00 00 00 00 00 01 00 20 20 20 20 88 02 D2 56 0F 00 22 00 00 00 00 00 01 00 6F 72 6D 20 9A 02 #.....☺. ê☻╥V☼.".....☺.orm Ü☻ 000022C0 D2 56 09 00 21 00 00 00 00 00 01 00 6E 79 20 73 AC 02 D2 56 FC FF 20 00 0E 00 FB 51 01 00 20 20 ╥V○.!.....☺.ny s¼☻╥Vⁿ .♫.√Q☺. 000022E0 20 20 BE 02 D2 56 0C 00 1F 00 00 00 00 00 01 00 6D 20 27 74 D0 02 D2 56 32 00 1E 00 00 00 00 00 ╛☻╥V♀.▼.....☺.m 't╨☻╥V2.▲..... 00002300 01 00 6B 20 6F 66 E2 02 D2 56 1D 00 1D 00 00 00 00 00 01 00 6F 70 79 72 F4 02 D2 56 FD FF 1C 00 ☺.k ofΓ☻╥V↔.↔.....☺.opyr⌠☻╥V² ∟. 00002320 04 00 3F 52 01 00 2E 20 22 2D 06 03 D2 56 08 00 1B 00 00 00 00 00 01 00 72 73 20 6D 18 03 D2 56 ♦.?R☺.. "-♠♥╥V◘.←.....☺.rs m↑♥╥V 00002340 0C 00 1A 00 00 00 00 00 01 00 20 6C 69 73 2A 03 D2 56 FC FF 19 00 08 00 FB 51 01 00 65 20 6F 72 ♀.→.....☺. lis*♥╥Vⁿ ↓.◘.√Q☺.e or 00002360 3C 03 D2 56 03 00 18 00 00 00 00 00 01 00 72 2C 20 61 4E 03 D2 56 FC FF 17 00 06 00 F3 51 01 00 <♥╥V♥.↑.....☺.r, aN♥╥Vⁿ ↨.♠.≤Q☺. 00002380 20 74 68 65 60 03 D2 56 FC FF 15 00 10 00 F2 51 01 00 61 74 72 69 72 03 D2 56 FC FF 11 00 0A 00 the`♥╥Vⁿ §.►.≥Q☺.atrir♥╥Vⁿ ◄.◙. 000023A0 F2 51 01 00 6D 65 72 69 84 03 D2 56 FC FF 07 00 0C 00 E7 51 01 00 6C 20 62 65 96 03 D2 56 FC FF ≥Q☺.meriä♥╥Vⁿ •.♀.τQ☺.l beû♥╥Vⁿ 000023C0 04 00 06 00 E7 51 01 00 65 72 6F 73 A8 03 D2 56 FD FF 02 00 06 00 31 52 01 00 20 20 22 20 FF FF ♦.♠.τQ☺.eros¿♥╥V² ☻.♠.1R☺. " 000023E0 00 00 04 00 01 00 00 00 00 00 01 00 2E 20 20 20 CC 03 D2 56 07 00 22 00 02 00 65 52 01 00 20 20 ..♦.☺.....☺.. ╠♥╥V•.".☻.eR☺. 00002400 20 20 DE 03 D2 56 25 00 21 00 00 00 00 00 01 00 20 20 20 20 F0 03 D2 56 FC FF 20 00 04 00 59 52 ▐♥╥V%.!.....☺. ≡♥╥Vⁿ .♦.YR 00002420 01 00 72 20 6D 61 02 04 D2 56 03 00 1F 00 00 00 00 00 01 00 20 70 61 64 14 04 D2 56 FC FF 1E 00 ☺.r ma☻♦╥V♥.▼.....☺. pad¶♦╥Vⁿ ▲. 00002440 04 00 47 52 01 00 73 2E 20 20 26 04 D2 56 0F 00 1D 00 00 00 00 00 01 00 79 20 6F 70 38 04 D2 56 ♦.GR☺.s. &♦╥V☼.↔.....☺.y op8♦╥V 00002460 06 00 1C 00 00 00 00 00 01 00 20 61 6E 79 4A 04 D2 56 06 00 1B 00 00 00 00 00 01 00 20 20 20 20 ♠.∟.....☺. anyJ♦╥V♠.←.....☺. 00002480 5C 04 D2 56 09 00 1A 00 00 00 00 00 01 00 20 20 22 2D 6E 04 D2 56 FC FF 19 00 0E 00 46 52 01 00 \♦╥V○.→.....☺. "-n♦╥Vⁿ ↓.♫.FR☺. 000024A0 69 66 20 6C 80 04 D2 56 FC FF 13 00 0E 00 30 52 01 00 69 6F 6E 20 92 04 D2 56 84 00 12 00 00 00 if lÇ♦╥Vⁿ ‼.♫.0R☺.ion Æ♦╥Vä.↕... 000024C0 00 00 01 00 2E 20 20 20 A4 04 D2 56 08 00 11 00 00 00 00 00 01 00 66 6F 72 6D B6 04 D2 56 84 00 ..☺.. ñ♦╥V◘.◄.....☺.form╢♦╥Vä. 000024E0 10 00 00 00 00 00 01 00 20 20 20 20 C8 04 D2 56 FC FF 0D 00 10 00 24 52 01 00 20 20 20 20 DA 04 ►.....☺. ╚♦╥Vⁿ ♪.►.$R☺. ┌♦ 00002500 D2 56 FC FF 09 00 0A 00 24 52 01 00 73 57 36 05 EC 04 D2 56 04 00 08 00 00 00 00 00 01 00 2A 00 ╥Vⁿ ○.◙.$R☺.sW6♣∞♦╥V♦.◘.....☺.*. 00002520 20 57 FE 04 D2 56 1A 00 07 00 00 00 00 00 01 00 06 00 20 57 A6 08 D2 56 FC FF 03 00 10 00 1F 52 W■♦╥V→.•.....☺.♠. Wª◘╥Vⁿ ♥.►.▼R 00002540 01 00 4E 00 20 57 22 05 D2 56 FC FF 19 00 04 00 80 52 01 00 2A 00 20 57 34 05 D2 56 23 00 18 00 ☺.N. W"♣╥Vⁿ ↓.♦.ÇR☺.*. W4♣╥V#.↑. 00002560 00 00 00 00 01 00 72 00 20 57 46 05 D2 56 03 00 17 00 00 00 00 00 01 00 4E 00 20 57 58 05 D2 56 ....☺.r. WF♣╥V♥.↨.....☺.N. WX♣╥V 00002580 FC FF 16 00 04 00 7E 52 01 00 00 00 00 00 6A 05 D2 56 0C 00 15 00 00 00 00 00 01 00 A8 00 20 57 ⁿ ▬.♦.~R☺.....j♣╥V♀.§.....☺.¿. W 000025A0 7C 05 D2 56 32 00 14 00 00 00 00 00 01 00 BA 00 20 57 8E 05 D2 56 38 00 13 00 00 00 00 00 01 00 |♣╥V2.¶.....☺.║. WÄ♣╥V8.‼.....☺. 000025C0 CC 00 20 57 A0 05 D2 56 09 00 12 00 00 00 00 00 01 00 DE 00 20 57 B2 05 D2 56 FD FF 11 00 0E 00 ╠. Wá♣╥V○.↕.....☺.▐. W▓♣╥V² ◄.♫. 000025E0 7E 52 01 00 F0 00 20 57 C4 05 D2 56 1E 00 10 00 00 00 00 00 01 00 02 01 20 57 D6 05 D2 56 FC FF ~R☺.≡. W─♣╥V▲.►.....☺.☻☺ W╓♣╥Vⁿ 00002600 0D 00 0A 00 77 52 01 00 14 01 20 57 E8 05 D2 56 08 00 0C 00 00 00 00 00 01 00 26 01 20 57 FA 05 ♪.◙.wR☺.¶☺ WΦ♣╥V◘.♀.....☺.&☺ W·♣ 00002620 D2 56 1D 00 0B 00 00 00 00 00 01 00 38 01 20 57 0C 06 D2 56 FC FF 08 00 08 00 73 52 01 00 4A 01 ╥V↔.♂.....☺.8☺ W♀♠╥Vⁿ ◘.◘.sR☺.J☺ 00002640 20 57 1E 06 D2 56 0F 00 07 00 00 00 00 00 01 00 5C 01 20 57 30 06 D2 56 36 00 06 00 00 00 00 00 W▲♠╥V☼.•.....☺.\☺ W0♠╥V6.♠..... 00002660 01 00 6E 01 20 57 42 06 D2 56 FC FF 04 00 10 00 6D 52 01 00 80 01 20 57 54 06 D2 56 FD FF 02 00 ☺.n☺ WB♠╥Vⁿ ♦.►.mR☺.Ç☺ WT♠╥V² ☻. 00002680 02 00 72 52 01 00 92 01 20 57 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 A4 01 20 57 78 06 D2 56 ☻.rR☺.Æ☺ W ..♦.☺.....☺.ñ☺ Wx♠╥V 000026A0 07 00 3F 00 0C 00 F1 52 01 00 B6 01 20 57 8A 06 D2 56 0F 00 3E 00 00 00 00 00 01 00 C8 01 20 57 •.?.♀.±R☺.╢☺ Wè♠╥V☼.>.....☺.╚☺ W 000026C0 9C 06 D2 56 09 00 3D 00 00 00 00 00 01 00 DA 01 20 57 AE 06 D2 56 FD FF 3C 00 0A 00 EC 52 01 00 £♠╥V○.=.....☺.┌☺ W«♠╥V² <.◙.∞R☺. 000026E0 00 00 00 00 C0 06 D2 56 1E 00 3B 00 00 00 00 00 01 00 FE 01 20 57 D2 06 D2 56 FC FF 38 00 02 00 ....└♠╥V▲.;.....☺.■☺ W╥♠╥Vⁿ 8.☻. 00002700 99 52 01 00 10 02 20 57 E4 06 D2 56 0F 00 37 00 00 00 00 00 01 00 22 02 20 57 F6 06 D2 56 36 00 ÖR☺.►☻ WΣ♠╥V☼.7.....☺."☻ W÷♠╥V6. 00002720 36 00 00 00 00 00 01 00 34 02 20 57 08 07 D2 56 08 00 35 00 00 00 00 00 01 00 46 02 20 57 1A 07 6.....☺.4☻ W◘•╥V◘.5.....☺.F☻ W→• 00002740 D2 56 0C 00 34 00 00 00 00 00 01 00 58 02 20 57 2C 07 D2 56 07 00 2B 00 04 00 DF 52 01 00 6A 02 ╥V♀.4.....☺.X☻ W,•╥V•.+.♦.▀R☺.j☻ 00002760 20 57 3E 07 D2 56 0C 00 2A 00 00 00 00 00 01 00 7C 02 20 57 50 07 D2 56 09 00 29 00 00 00 00 00 W>•╥V♀.*.....☺.|☻ WP•╥V○.)..... 00002780 01 00 8E 02 20 57 62 07 D2 56 FC FF 26 00 08 00 85 52 01 00 A0 02 20 57 74 07 D2 56 26 00 25 00 ☺.Ä☻ Wb•╥Vⁿ &.◘.àR☺.á☻ Wt•╥V&.%. 000027A0 00 00 00 00 01 00 B2 02 20 57 86 07 D2 56 0F 00 24 00 00 00 00 00 01 00 C4 02 20 57 98 07 D2 56 ....☺.▓☻ Wå•╥V☼.$.....☺.─☻ Wÿ•╥V 000027C0 09 00 23 00 00 00 00 00 01 00 D6 02 20 57 AA 07 D2 56 FD FF 22 00 10 00 D2 52 01 00 E8 02 20 57 ○.#.....☺.╓☻ W¬•╥V² ".►.╥R☺.Φ☻ W 000027E0 BC 07 D2 56 1E 00 21 00 00 00 00 00 01 00 FA 02 20 57 CE 07 D2 56 FC FF 1E 00 02 00 85 52 01 00 ╝•╥V▲.!.....☺.·☻ W╬•╥Vⁿ ▲.☻.àR☺. 00002800 0C 03 20 57 E0 07 D2 56 0F 00 1D 00 00 00 00 00 01 00 1E 03 20 57 F2 07 D2 56 36 00 1C 00 00 00 ♀♥ Wα•╥V☼.↔.....☺.▲♥ W≥•╥V6.∟... 00002820 00 00 01 00 30 03 20 57 04 08 D2 56 08 00 1B 00 00 00 00 00 01 00 42 03 20 57 16 08 D2 56 08 00 ..☺.0♥ W♦◘╥V◘.←.....☺.B♥ W▬◘╥V◘. 00002840 1A 00 00 00 00 00 01 00 54 03 20 57 28 08 D2 56 0C 00 19 00 00 00 00 00 01 00 66 03 20 57 3A 08 →.....☺.T♥ W(◘╥V♀.↓.....☺.f♥ W:◘ 00002860 D2 56 07 00 0B 00 04 00 A2 52 01 00 78 03 20 57 4C 08 D2 56 03 00 0A 00 00 00 00 00 01 00 8A 03 ╥V•.♂.♦.óR☺.x♥ WL◘╥V♥.◙.....☺.è♥ 00002880 20 57 5E 08 D2 56 2C 00 09 00 00 00 00 00 01 00 9C 03 20 57 70 08 D2 56 FC FF 07 00 0C 00 84 52 W^◘╥V,.○.....☺.£♥ Wp◘╥Vⁿ •.♀.äR 000028A0 01 00 AE 03 20 57 82 08 D2 56 FD FF 05 00 06 00 9B 52 01 00 C0 03 20 57 94 08 D2 56 04 00 04 00 ☺.«♥ Wé◘╥V² ♣.♠.¢R☺.└♥ Wö◘╥V♦.♦. 000028C0 00 00 00 00 01 00 D2 03 20 57 A6 08 D2 56 1A 00 03 00 00 00 00 00 01 00 E4 03 20 57 FF FF 00 00 ....☺.╥♥ Wª◘╥V→.♥.....☺.Σ♥ W .. 000028E0 FC FF 05 00 0A 00 80 52 01 00 F6 03 20 57 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 08 04 20 57 ⁿ ♣.◙.ÇR☺.÷♥ W ..☻.......☺.◘♦ W 00002900 DC 08 D2 56 FD FF 02 00 0C 00 F6 52 01 00 1A 04 20 57 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 ▄◘╥V² ☻.♀.÷R☺.→♦ W ..♦.☺.....☺. 00002920 2C 04 20 57 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 3E 04 20 57 FF FF 00 00 02 00 00 00 00 00 ,♦ W ..☻.......☺.>♦ W ..☻..... 00002940 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 ..☺..... ..☻.......☺..... ..☻. 00002960 00 00 00 00 00 00 01 00 74 04 20 57 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 FF FF ......☺.t♦ W ..☻.......☺..... 00002980 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 ..☻.......☺..... ..☻.......☺... 000029A0 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 .. ..☻.......☺..... ..☻....... 000029C0 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 ☺..... ..☻.......☺..... ..☻... 000029E0 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 ....☺..... ..☻.......☺..... .. 00002A00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 ☻.......☺..... ..☻.......☺..... 00002A20 00 00 A2 00 52 02 BA 03 10 05 66 06 B8 08 CA 08 EE 08 00 09 12 09 24 09 36 09 48 09 5A 09 6C 09 ..ó.R☻║♥►♣f♠╕◘╩◘ε◘.○↕○$○6○H○Z○l○ 00002A40 7E 09 90 09 A2 09 B4 09 C6 09 D8 09 90 00 FE 04 02 00 6B 00 02 00 6A 00 04 00 6D 73 67 00 07 00 ~○É○ó○┤○╞○╪○É.■♦☻.k.☻.j.♦.msg.•. 00002A60 70 72 6F 6D 70 74 00 04 00 64 65 66 00 02 00 72 00 04 00 6D 73 67 00 02 00 72 00 02 00 48 00 02 prompt.♦.def.☻.r.♦.msg.☻.r.☻.H.☻ 00002A80 00 72 00 02 00 72 00 02 00 6A 00 02 00 48 00 04 00 64 65 66 00 04 00 01 00 00 00 02 00 00 00 03 .r.☻.r.☻.j.☻.H.♦.def.♦.☺...☻...♥ 00002AA0 00 69 66 00 04 00 01 00 00 00 02 00 00 00 04 00 64 65 66 00 02 00 72 00 04 00 01 00 00 00 02 00 .if.♦.☺...☻...♦.def.☻.r.♦.☺...☻. 00002AC0 00 00 02 00 72 00 02 00 72 00 02 00 48 00 04 00 64 65 66 00 0A 00 63 68 61 72 61 63 74 65 72 00 ..☻.r.☻.r.☻.H.♦.def.◙.character. 00002AE0 03 00 69 66 00 04 00 01 00 00 00 02 00 00 00 08 00 0E 00 01 00 01 00 0E 00 20 2D 2E 30 31 32 33 ♥.if.♦.☺...☻...◘.♫.☺.☺.♫. -.0123 00002B00 34 35 36 37 38 39 65 02 00 6A 00 02 00 6B 00 02 00 6B 00 06 00 65 6D 70 74 79 00 03 00 69 66 00 456789e☻.j.☻.k.☻.k.♠.empty.♥.if. 00002B20 04 00 65 72 72 00 08 00 6E 73 63 72 65 65 6E 00 02 00 6A 00 02 00 72 00 04 00 01 00 00 00 02 00 ♦.err.◘.nscreen.☻.j.☻.r.♦.☺...☻. 00002B40 00 00 04 00 64 65 66 00 04 00 64 65 66 00 03 00 69 66 00 04 00 01 00 00 00 02 00 00 00 08 00 01 ..♦.def.♦.def.♥.if.♦.☺...☻...◘.☺ 00002B60 00 00 00 01 00 73 04 00 01 00 00 00 02 00 01 00 04 00 64 65 66 00 08 00 07 00 01 00 01 00 07 00 ...☺.s♦.☺...☻.☺.♦.def.◘.•.☺.☺.•. 00002B80 20 6E 75 6D 62 65 72 04 00 64 65 66 00 04 00 01 00 00 00 02 00 00 00 04 00 64 65 66 00 08 00 0C number♦.def.♦.☺...☻...♦.def.◘.♀ 00002BA0 00 01 00 01 00 0C 00 6E 6F 74 20 65 78 61 63 74 6C 79 20 02 00 48 00 04 00 01 00 00 00 02 00 01 .☺.☺.♀.not exactly ☻.H.♦.☺...☻.☺ 00002BC0 00 04 00 65 72 72 00 04 00 01 00 00 00 02 00 00 00 78 08 00 70 72 65 70 61 72 65 00 00 01 00 0A .♦.err.♦.☺...☻...x◘.prepare..☺.◙ 00002BE0 2C 00 0B 00 04 00 06 00 0A 00 0B 00 04 00 02 00 01 00 01 00 01 00 01 00 01 00 08 00 94 02 02 00 ,.♂.♦.♠.◙.♂.♦.☻.☺.☺.☺.☺.☺.◘.ö☻☻. 00002C00 01 00 0B 00 3C 00 20 7A 23 70 72 65 70 61 72 65 20 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ☺.♂.<. z#prepare a 00002C20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00002C40 20 20 20 24 6C 31 20 69 66 20 7E 63 68 61 72 61 63 74 65 72 20 61 20 20 20 20 20 20 20 20 20 20 $l1 if ~character a 00002C60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 $ 00002C80 30 20 69 66 20 30 3D 66 72 61 6D 65 74 65 73 74 20 7A 23 6D 61 74 72 69 78 20 61 20 20 20 20 20 0 if 0=frametest z#matrix a 00002CA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 2C 52 7A $0,Rz 00002CC0 23 31 20 31 55 2D 31 20 2D 31 55 7A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #1 1U-1 -1Uz 00002CE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6C 31 3A 7A 23 74 61 62 75 6C l1:z#tabul 00002D00 61 74 65 20 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ate a 00002D20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 $0 00002D40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00002D60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 72 65 70 61 72 65 20 2D 20 73 74 61 6E 64 61 72 "prepare - standar 00002D80 64 69 7A 65 20 73 74 72 75 63 74 75 72 65 20 66 6F 72 20 72 65 70 6F 72 74 20 66 6F 72 6D 61 74 dize structure for report format 00002DA0 74 69 6E 67 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F ting "from 'the apl handboo 00002DC0 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C k of techniques' copyright 1978, 00002DE0 20 69 62 6D 2E 20 22 2D 61 20 73 75 62 72 6F 75 74 69 6E 65 20 74 68 61 74 20 6E 6F 72 6D 61 6C ibm. "-a subroutine that normal 00002E00 69 7A 65 73 20 64 61 74 61 20 66 6F 72 20 74 68 65 20 66 6F 72 6D 61 74 74 69 6E 67 20 20 20 20 izes data for the formatting 00002E20 20 20 22 20 66 75 6E 63 74 69 6F 6E 73 3A 20 67 62 65 73 69 64 65 20 67 63 65 6E 74 65 72 6F 6E " functions: gbeside gcenteron 00002E40 20 67 68 65 61 64 65 72 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D gheaderon "- 00002E60 75 73 65 73 3A 20 47 63 68 61 72 61 63 74 65 72 20 47 66 72 61 6D 65 74 65 73 74 20 47 6D 61 74 uses: Gcharacter Gframetest Gmat 00002E80 72 69 78 20 47 74 61 62 75 6C 61 74 65 20 47 69 66 20 20 20 20 20 20 20 20 20 12 00 FF FF 00 00 rix Gtabulate Gif ↕. .. 00002EA0 FC FF 0B 00 0E 00 31 51 01 00 32 00 D6 04 24 00 9F 55 FC FF 03 00 04 00 31 51 01 00 0F 00 E8 04 ⁿ ♂.♫.1Q☺.2.╓♦$.ƒUⁿ ♥.♦.1Q☺.☼.Φ♦ 00002EC0 36 00 9F 55 03 00 02 00 00 00 00 00 01 00 38 00 FA 04 00 00 9F 55 FC FF 01 00 10 00 0D 51 01 00 6.ƒU♥.☻.....☺.8.·♦..ƒUⁿ ☺.►.♪Q☺. 00002EE0 29 00 0C 05 5A 00 9F 55 FC FF 13 00 0C 00 4D 51 01 00 0F 00 1E 05 6C 00 9F 55 FC FF 09 00 08 00 ).♀♣Z.ƒUⁿ ‼.♀.MQ☺.☼.▲♣l.ƒUⁿ ○.◘. 00002F00 A2 51 01 00 09 00 30 05 7E 00 9F 55 84 00 08 00 00 00 00 00 01 00 FC FF 42 05 90 00 9F 55 FC FF óQ☺.○.0♣~.ƒUä.◘.....☺.ⁿ B♣É.ƒUⁿ 00002F20 05 00 06 00 4D 51 01 00 0C 00 54 05 A2 00 9F 55 FC FF 02 00 10 00 4C 51 01 00 1D 00 66 05 FF FF ♣.♠.MQ☺.♀.T♣ó.ƒUⁿ ☻.►.LQ☺.↔.f♣ 00002F40 00 00 04 00 01 00 00 00 00 00 01 00 0E 00 00 00 C6 00 9F 55 FC FF 1C 00 10 00 B5 51 01 00 2A 00 ..♦.☺.....☺.♫...╞.ƒUⁿ ∟.►.╡Q☺.*. 00002F60 8A 05 D8 00 9F 55 FC FF 15 00 0C 00 B0 51 01 00 09 00 9C 05 EA 00 9F 55 03 00 14 00 00 00 00 00 è♣╪.ƒUⁿ §.♀.░Q☺.○.£♣Ω.ƒU♥.¶..... 00002F80 01 00 FC FF AE 05 FC 00 9F 55 FC FF 13 00 0E 00 AF 51 01 00 0C 00 C0 05 0E 01 9F 55 FC FF 09 00 ☺.ⁿ «♣ⁿ.ƒUⁿ ‼.♫.»Q☺.♀.└♣♫☺ƒUⁿ ○. 00002FA0 02 00 AF 51 01 00 08 00 D2 05 20 01 9F 55 1D 00 08 00 00 00 00 00 01 00 46 00 E4 05 32 01 9F 55 ☻.»Q☺.◘.╥♣ ☺ƒU↔.◘.....☺.F.Σ♣2☺ƒU 00002FC0 FD FF 07 00 08 00 D1 51 01 00 09 00 F6 05 44 01 9F 55 FC FF 04 00 04 00 A3 51 01 00 FC FF 08 06 ² •.◘.╤Q☺.○.÷♣D☺ƒUⁿ ♦.♦.úQ☺.ⁿ ◘♠ 00002FE0 56 01 9F 55 FD FF 02 00 06 00 CB 51 01 00 0C 00 1A 06 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 V☺ƒU² ☻.♠.╦Q☺.♀.→♠ ..♦.☺.....☺. 00003000 32 00 2C 06 7A 01 9F 55 FC FF 11 00 0E 00 BA 51 01 00 29 00 3E 06 8C 01 9F 55 35 00 10 00 00 00 2.,♠z☺ƒUⁿ ◄.♫.║Q☺.).>♠î☺ƒU5.►... 00003020 00 00 01 00 08 00 50 06 9E 01 9F 55 FD FF 0B 00 10 00 F9 51 01 00 40 00 62 06 B0 01 9F 55 35 00 ..☺.◘.P♠₧☺ƒU² ♂.►.∙Q☺.@.b♠░☺ƒU5. 00003040 0A 00 00 00 00 00 01 00 06 00 74 06 C2 01 9F 55 FD FF 07 00 04 00 FC 51 01 00 08 00 86 06 D4 01 ◙.....☺.♠.t♠┬☺ƒU² •.♦.ⁿQ☺.◘.å♠╘☺ 00003060 9F 55 03 00 06 00 00 00 00 00 01 00 2E 00 98 06 E6 01 9F 55 FC FF 05 00 08 00 BA 51 01 00 09 00 ƒU♥.♠.....☺...ÿ♠µ☺ƒUⁿ ♣.◘.║Q☺.○. 00003080 AA 06 F8 01 9F 55 32 00 04 00 00 00 00 00 01 00 FC FF BC 06 0A 02 9F 55 0C 00 03 00 00 00 00 00 ¬♠°☺ƒU2.♦.....☺.ⁿ ╝♠◙☻ƒU♀.♥..... 000030A0 01 00 32 00 CE 06 1C 02 9F 55 FD FF 02 00 10 00 E5 51 01 00 08 00 E0 06 FF FF 00 00 04 00 01 00 ☺.2.╬♠∟☻ƒU² ☻.►.σQ☺.◘.α♠ ..♦.☺. 000030C0 00 00 00 00 01 00 03 00 F2 06 40 02 9F 55 FC FF 0E 00 0E 00 C6 51 01 00 FC FF 04 07 52 02 9F 55 ....☺.♥.≥♠@☻ƒUⁿ ♫.♫.╞Q☺.ⁿ ♦•R☻ƒU 000030E0 FC FF 05 00 0C 00 CC 51 01 00 FD FF 16 07 64 02 9F 55 03 00 04 00 00 00 00 00 01 00 04 00 28 07 ⁿ ♣.♀.╠Q☺.² ▬•d☻ƒU♥.♦.....☺.♦.(• 00003100 76 02 9F 55 FC FF 03 00 04 00 C1 51 01 00 02 00 3A 07 88 02 9F 55 1A 00 02 00 00 00 00 00 01 00 v☻ƒUⁿ ♥.♦.┴Q☺.☻.:•ê☻ƒU→.☻.....☺. 00003120 02 00 4C 07 FF FF 00 00 FC FF 04 00 0E 00 C0 51 01 00 02 00 5E 07 AC 02 9F 55 FD FF 02 00 08 00 ☻.L• ..ⁿ ♦.♫.└Q☺.☻.^•¼☻ƒU² ☻.◘. 00003140 0B 52 01 00 02 00 70 07 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 02 00 82 07 FF FF 00 00 02 00 ♂R☺.☻.p• ..♦.☺.....☺.☻.é• ..☻. 00003160 00 00 00 00 00 00 01 00 02 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 28 02 A6 07 FF FF ......☺.☻... ..☻.......☺.(☻ª• 00003180 00 00 02 00 00 00 00 00 00 00 01 00 20 20 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 1C 00 ..☻.......☺. .. ..☻.......☺.∟. 000031A0 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 61 20 00 00 00 00 48 00 B4 00 68 01 2E 02 9A 02 .. ..☻.......☺.a ....H.┤.h☺.☻Ü☻ 000031C0 BE 02 D0 02 E2 02 F4 02 06 03 36 00 88 02 02 00 61 00 08 00 70 72 65 70 61 72 65 00 02 00 7A 00 ╛☻╨☻Γ☻⌠☻♠♥6.ê☻☻.a.◘.prepare.☻.z. 000031E0 02 00 61 00 0A 00 63 68 61 72 61 63 74 65 72 00 03 00 69 66 00 03 00 6C 31 00 02 00 61 00 07 00 ☻.a.◙.character.♥.if.♥.l1.☻.a.•. 00003200 6D 61 74 72 69 78 00 02 00 7A 00 0A 00 66 72 61 6D 65 74 65 73 74 00 04 00 01 00 00 00 02 00 00 matrix.☻.z.◙.frametest.♦.☺...☻.. 00003220 00 03 00 69 66 00 04 00 01 00 00 00 02 00 00 00 02 00 7A 00 04 00 02 00 01 00 02 00 02 00 FF FF .♥.if.♦.☺...☻...☻.z.♦.☻.☺.☻.☻. 00003240 FF FF 04 00 02 00 01 00 02 00 02 00 01 00 01 00 02 00 7A 00 04 00 01 00 00 00 02 00 00 00 02 00 ♦.☻.☺.☻.☻.☺.☺.☻.z.♦.☺...☻...☻. 00003260 61 00 09 00 74 61 62 75 6C 61 74 65 00 02 00 7A 00 03 00 6C 31 00 04 00 01 00 00 00 02 00 00 00 a.○.tabulate.☻.z.♥.l1.♦.☺...☻... 00003280 78 09 00 70 6F 73 74 65 64 69 74 00 00 01 00 0A 23 00 08 00 06 00 05 00 0A 00 06 00 04 00 02 00 x○.postedit..☺.◙#.◘.♠.♣.◙.♠.♦.☻. 000032A0 01 00 01 00 08 00 E0 01 02 00 01 00 08 00 3C 00 20 72 23 70 6F 73 74 65 64 69 74 20 74 6E 61 6D ☺.☺.◘.α☺☻.☺.◘.<. r#postedit tnam 000032C0 65 3B 6A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e;j 000032E0 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6E 6F 74 20 61 20 6E 61 6D 65 27 65 73 63 61 70 65 7E 'not a name'escape~ 00003300 63 68 61 72 61 63 74 65 72 20 74 6E 61 6D 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 character tname 00003320 20 20 20 20 20 20 20 20 20 28 74 6E 61 6D 65 2C 27 20 6E 6F 74 20 61 20 66 75 6E 63 74 69 6F 6E (tname,' not a function 00003340 27 29 65 73 63 61 70 65 20 33 5E 3D 4C 6E 63 20 74 6E 61 6D 65 20 20 20 20 20 20 20 20 20 20 20 ')escape 3^=Lnc tname 00003360 20 20 20 20 20 72 23 31 20 31 55 4C 63 72 20 74 6E 61 6D 65 20 20 20 20 20 20 20 20 20 20 20 20 r#1 1ULcr tname 00003380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000033A0 20 6A 23 4C 65 78 20 74 6E 61 6D 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 j#Lex tname 000033C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 $0 000033E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 6F 73 74 65 64 69 "postedi 00003420 74 20 2D 20 73 65 65 20 47 70 72 65 65 64 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t - see Gpreedit 00003440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 "from 'the a 00003460 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 pl handbook of techniques' copyr 00003480 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 36 00 FF FF 00 00 FC FF 12 00 0E 00 C0 50 01 00 ight 1978, ibm. 6. ..ⁿ ↕.♫.└P☺. 000034A0 01 00 0D 00 24 00 55 54 1B 00 11 00 00 00 00 00 01 00 74 65 72 6D 00 00 55 54 FC FF 0C 00 04 00 ☺.♪.$.UT←.◄.....☺.term..UTⁿ ♀.♦. 000034C0 91 50 01 00 20 20 20 20 48 00 55 54 FC FF 03 00 0A 00 0E 51 01 00 20 20 20 20 5A 00 55 54 03 00 æP☺. H.UTⁿ ♥.◙.♫Q☺. Z.UT♥. 000034E0 02 00 00 00 00 00 01 00 65 72 6D 23 24 00 55 54 FC FF 01 00 0E 00 90 50 01 00 20 20 20 20 7E 00 ☻.....☺.erm#$.UTⁿ ☺.♫.ÉP☺. ~. 00003500 55 54 FC FF 1E 00 06 00 0F 51 01 00 20 20 20 20 90 00 55 54 FC FF 14 00 02 00 2C 51 01 00 6C 6F UTⁿ ▲.♠.☼Q☺. É.UTⁿ ¶.☻.,Q☺.lo 00003520 6F 70 A2 00 55 54 84 00 13 00 00 00 00 00 01 00 6C 20 69 29 B4 00 55 54 FC FF 0D 00 0A 00 22 51 opó.UTä.‼.....☺.l i)┤.UTⁿ ♪.◙."Q 00003540 01 00 20 20 20 20 FF FF 00 00 07 00 01 00 0A 00 20 51 01 00 20 20 20 20 D8 00 55 54 FC FF 28 00 ☺. ..•.☺.◙. Q☺. ╪.UTⁿ (. 00003560 0A 00 4A 51 01 00 20 74 65 72 EA 00 55 54 EA FF 24 00 00 00 00 00 01 00 20 20 20 20 FC 00 55 54 ◙.JQ☺. terΩ.UTΩ $.....☺. ⁿ.UT 00003580 3E 00 22 00 00 00 00 00 01 00 20 20 20 20 0E 01 55 54 FD FF 21 00 04 00 4E 51 01 00 65 72 6D 5E >.".....☺. ♫☺UT² !.♦.NQ☺.erm^ 000035A0 20 01 55 54 FC FF 1A 00 10 00 49 51 01 00 20 20 20 20 32 01 55 54 09 00 19 00 00 00 00 00 01 00 ☺UTⁿ →.►.IQ☺. 2☺UT○.↓.....☺. 000035C0 20 20 20 20 44 01 55 54 07 00 08 00 08 00 46 51 01 00 20 73 75 6D 56 01 55 54 0C 00 07 00 00 00 D☺UT•.◘.◘.FQ☺. sumV☺UT♀.•... 000035E0 00 00 01 00 20 20 20 20 68 01 55 54 FC FF 02 00 0E 00 2C 51 01 00 20 20 20 20 FF FF 00 00 08 00 ..☺. h☺UTⁿ ☻.♫.,Q☺. ..◘. 00003600 01 00 00 00 00 00 01 00 20 20 20 20 8C 01 55 54 FC FF 0B 00 0C 00 A8 51 01 00 20 20 20 20 9E 01 ☺.....☺. î☺UTⁿ ♂.♀.¿Q☺. ₧☺ 00003620 55 54 F3 FF 07 00 00 00 00 00 01 00 20 20 20 20 B0 01 55 54 35 00 06 00 00 00 00 00 01 00 20 20 UT≤ •.....☺. ░☺UT5.♠.....☺. 00003640 20 20 C2 01 55 54 FD FF 03 00 06 00 B1 51 01 00 63 6F 6D 70 D4 01 55 54 03 00 02 00 00 00 00 00 ┬☺UT² ♥.♠.▒Q☺.comp╘☺UT♥.☻..... 00003660 01 00 74 72 61 72 FF FF 00 00 FC FF 01 00 02 00 4B 51 01 00 20 20 20 20 F8 01 55 54 FC FF 07 00 ☺.trar ..ⁿ ☺.☻.KQ☺. °☺UTⁿ •. 00003680 04 00 B0 51 01 00 22 66 72 6F 0A 02 55 54 F0 FF 03 00 00 00 00 00 01 00 64 62 6F 6F 1C 02 55 54 ♦.░Q☺."fro◙☻UT≡ ♥.....☺.dboo∟☻UT 000036A0 03 00 02 00 00 00 00 00 01 00 73 27 20 63 FF FF 00 00 FC FF 01 00 04 00 A9 51 01 00 20 69 62 6D ♥.☻.....☺.s' c ..ⁿ ☺.♦.⌐Q☺. ibm 000036C0 40 02 55 54 FD FF 02 00 0C 00 C1 51 01 00 20 28 33 2E FF FF 00 00 04 00 01 00 00 00 00 00 01 00 @☻UT² ☻.♀.┴Q☺. (3. ..♦.☺.....☺. 000036E0 20 64 65 63 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 70 72 65 FF FF 00 00 02 00 00 00 00 00 dec ..☻.......☺. pre ..☻..... 00003700 00 00 01 00 61 72 63 73 00 00 6C 00 C6 00 7A 01 E6 01 2E 02 52 02 64 02 5A 00 FF FF 02 00 6A 00 ..☺.arcs..l.╞.z☺µ☺.☻R☻d☻Z. ☻.j. 00003720 06 00 74 6E 61 6D 65 00 09 00 70 6F 73 74 65 64 69 74 00 02 00 72 00 06 00 74 6E 61 6D 65 00 0A ♠.tname.○.postedit.☻.r.♠.tname.◙ 00003740 00 63 68 61 72 61 63 74 65 72 00 07 00 65 73 63 61 70 65 00 08 00 0A 00 01 00 01 00 0A 00 6E 6F .character.•.escape.◘.◙.☺.☺.◙.no 00003760 74 20 61 20 6E 61 6D 65 06 00 74 6E 61 6D 65 00 04 00 01 00 00 00 02 00 03 00 07 00 65 73 63 61 t a name♠.tname.♦.☺...☻.♥.•.esca 00003780 70 65 00 08 00 0F 00 01 00 01 00 0F 00 20 6E 6F 74 20 61 20 66 75 6E 63 74 69 6F 6E 06 00 74 6E pe.◘.☼.☺.☺.☼. not a function♠.tn 000037A0 61 6D 65 00 06 00 74 6E 61 6D 65 00 04 00 02 00 01 00 02 00 02 00 01 00 01 00 02 00 72 00 06 00 ame.♠.tname.♦.☻.☺.☻.☻.☺.☺.☻.r.♠. 000037C0 74 6E 61 6D 65 00 02 00 6A 00 04 00 01 00 00 00 02 00 00 00 78 05 00 72 63 61 74 00 00 01 00 0C tname.☻.j.♦.☺...☻...x♣.rcat..☺.♀ 000037E0 2A 00 10 00 05 00 01 00 01 00 01 00 01 00 16 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 *.►.♣.☺.☺.☺.☺.▬.☻.☺.☺.☺.☺.☺.☺.☺. 00003800 01 00 01 00 08 00 C0 03 02 00 01 00 10 00 3C 00 20 72 23 61 20 72 63 61 74 20 62 20 20 20 20 20 ☺.☺.◘.└♥☻.☺.►.<. r#a rcat b 00003820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003840 20 20 20 20 20 20 20 20 20 20 20 20 22 72 6F 77 20 63 61 74 65 6E 61 74 69 6F 6E 2C 73 63 61 6C "row catenation,scal 00003860 61 72 20 72 65 70 6C 69 63 61 74 69 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ar replication 00003880 20 20 20 20 20 20 20 20 20 63 66 6F 72 6D 61 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cformat 000038A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000038C0 20 20 20 20 20 63 6D 61 74 72 69 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cmatrix 000038E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003900 20 63 6F 6C 66 6F 72 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 colform 00003920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 27 72 C'r 00003940 23 76 65 72 74 20 61 2C 27 2C 28 28 30 5E 3D 28 52 52 61 29 2B 52 52 62 29 2F 27 5B 4C 69 6F 5D #vert a,',((0^=(RRa)+RRb)/'[Lio] 00003960 27 29 2C 27 62 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 '),'b' $0 00003980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000039A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 63 61 74 20 2D 20 63 61 74 65 "rcat - cate 000039C0 6E 61 74 65 20 62 79 20 72 6F 77 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nate by rows. 000039E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 "from 'the apl h 00003A00 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 andbook of techniques' copyright 00003A20 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 6F 76 65 72 2D 75 6E 64 65 72 20 63 61 74 65 6E 61 74 1978, ibm. "-over-under catenat 00003A40 69 6F 6E 20 6F 66 20 67 65 6E 65 72 61 6C 20 73 74 72 75 63 74 75 72 65 73 20 61 6E 64 20 74 79 ion of general structures and ty 00003A60 70 65 73 2E 20 20 20 20 22 2D 73 63 61 6C 61 72 73 20 77 69 6C 6C 20 62 65 20 72 65 70 6C 69 63 pes. "-scalars will be replic 00003A80 61 74 65 64 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ated. 00003AA0 20 20 20 20 22 2D 70 61 64 64 69 6E 67 20 77 69 6C 6C 20 62 65 20 62 6C 61 6E 6B 20 66 6F 72 20 "-padding will be blank for 00003AC0 63 68 61 72 61 63 74 65 72 73 2C 20 7A 65 72 6F 20 66 6F 72 20 6E 75 6D 62 65 72 73 2E 20 20 20 characters, zero for numbers. 00003AE0 22 2D 6E 75 6D 65 72 69 63 20 74 79 70 65 73 20 77 69 6C 6C 20 62 65 20 66 6F 72 6D 61 74 74 65 "-numeric types will be formatte 00003B00 64 20 69 66 20 74 6F 20 62 65 20 63 61 74 65 6E 61 74 65 64 20 74 6F 20 20 20 20 20 22 2D 63 68 d if to be catenated to "-ch 00003B20 61 72 61 63 74 65 72 20 74 79 70 65 73 2E 20 73 65 65 3A 20 47 6F 6E 20 47 63 63 61 74 20 20 20 aracter types. see: Gon Gccat 00003B40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 61 20 6D 61 74 72 "-a matr 00003B60 69 78 20 69 73 20 72 65 74 75 72 6E 65 64 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ix is returned. 00003B80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 73 65 73 3A 20 47 63 66 6F 72 "uses: Gcfor 00003BA0 6D 61 74 20 43 6D 61 74 72 69 78 20 47 63 6F 6C 66 6F 72 6D 20 47 76 65 72 74 20 20 20 20 20 20 mat Cmatrix Gcolform Gvert 00003BC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 0A 00 0A 00 C5 51 01 00 ↕. ..ⁿ ◙.◙.┼Q☺. 00003BE0 01 00 0F 00 24 00 B2 58 FC FF 05 00 06 00 49 51 01 00 20 20 20 20 00 00 B2 58 FC FF 03 00 10 00 ☺.☼.$.▓Xⁿ ♣.♠.IQ☺. ..▓Xⁿ ♥.►. 00003C00 38 51 01 00 20 20 20 20 48 00 B2 58 03 00 02 00 00 00 00 00 01 00 20 20 20 20 24 00 B2 58 FC FF 8Q☺. H.▓X♥.☻.....☺. $.▓Xⁿ 00003C20 01 00 0A 00 38 51 01 00 61 74 65 6E FF FF 00 00 02 00 00 00 00 00 00 00 01 00 65 70 6C 69 FF FF ☺.◙.8Q☺.aten ..☻.......☺.epli 00003C40 00 00 FC FF 01 00 0C 00 E9 51 01 00 20 20 20 20 FF FF 00 00 FC FF 01 00 06 00 EA 51 01 00 20 63 ..ⁿ ☺.♀.ΘQ☺. ..ⁿ ☺.♠.ΩQ☺. c 00003C60 66 6F FF FF 00 00 FC FF 01 00 02 00 FF 51 01 00 20 20 20 20 B4 00 B2 58 07 00 27 00 02 00 60 52 fo ..ⁿ ☺.☻. Q☺. ┤.▓X•.'.☻.`R 00003C80 01 00 20 20 20 20 C6 00 B2 58 0C 00 26 00 00 00 00 00 01 00 20 20 20 20 D8 00 B2 58 09 00 25 00 ☺. ╞.▓X♀.&.....☺. ╪.▓X○.%. 00003CA0 00 00 00 00 01 00 20 20 20 20 EA 00 B2 58 07 00 1E 00 0C 00 56 52 01 00 20 20 20 20 FC 00 B2 58 ....☺. Ω.▓X•.▲.♀.VR☺. ⁿ.▓X 00003CC0 0F 00 1D 00 00 00 00 00 01 00 20 20 20 20 0E 01 B2 58 09 00 1C 00 00 00 00 00 01 00 72 6D 20 20 ☼.↔.....☺. ♫☺▓X○.∟.....☺.rm 00003CE0 20 01 B2 58 FC FF 1B 00 08 00 1C 52 01 00 20 20 20 20 32 01 B2 58 32 00 1A 00 00 00 00 00 01 00 ☺▓Xⁿ ←.◘.∟R☺. 2☺▓X2.→.....☺. 00003D00 20 20 20 20 44 01 B2 58 32 00 19 00 00 00 00 00 01 00 20 43 27 72 56 01 B2 58 0B 00 18 00 00 00 D☺▓X2.↓.....☺. C'rV☺▓X♂.↑... 00003D20 00 00 01 00 3D 28 52 52 68 01 B2 58 09 00 17 00 00 00 00 00 01 00 27 29 2C 27 7A 01 B2 58 FC FF ..☺.=(RRh☺▓X○.↨.....☺.'),'z☺▓Xⁿ 00003D40 16 00 0C 00 FF 51 01 00 20 20 20 20 8C 01 B2 58 32 00 15 00 00 00 00 00 01 00 20 20 20 20 9E 01 ▬.♀. Q☺. î☺▓X2.§.....☺. ₧☺ 00003D60 B2 58 32 00 14 00 00 00 00 00 01 00 20 20 20 20 B0 01 B2 58 08 00 13 00 00 00 00 00 01 00 20 20 ▓X2.¶.....☺. ░☺▓X◘.‼.....☺. 00003D80 20 20 C2 01 B2 58 3E 00 11 00 00 00 00 00 01 00 2D 20 63 61 D4 01 B2 58 FD FF 10 00 0A 00 40 52 ┬☺▓X>.◄.....☺.- ca╘☺▓X² ►.◙.@R 00003DA0 01 00 2E 20 20 20 E6 01 B2 58 08 00 0F 00 00 00 00 00 01 00 20 20 20 20 F8 01 B2 58 08 00 0E 00 ☺.. µ☺▓X◘.☼.....☺. °☺▓X◘.♫. 00003DC0 00 00 00 00 01 00 22 66 72 6F 0A 02 B2 58 0C 00 0D 00 00 00 00 00 01 00 64 62 6F 6F 1C 02 B2 58 ....☺."fro◙☻▓X♀.♪.....☺.dboo∟☻▓X 00003DE0 07 00 02 00 0A 00 2E 52 01 00 73 27 20 63 FF FF 00 00 23 00 01 00 00 00 00 00 01 00 20 69 62 6D •.☻.◙..R☺.s' c ..#.☺.....☺. ibm 00003E00 40 02 B2 58 FD FF 02 00 06 00 67 52 01 00 20 63 61 74 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 @☻▓X² ☻.♠.gR☺. cat ..♦.☺.....☺. 00003E20 65 72 61 6C FF FF 00 00 02 00 00 00 00 00 00 00 01 00 64 20 74 79 FF FF 00 00 02 00 00 00 00 00 eral ..☻.......☺.d ty ..☻..... 00003E40 00 00 01 00 61 72 73 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 61 74 65 64 FF FF 00 00 02 00 ..☺.ars ..☻.......☺.ated ..☻. 00003E60 00 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 22 2D 70 61 FF FF ......☺. ..☻.......☺."-pa 00003E80 00 00 02 00 00 00 00 00 00 00 01 00 62 6C 61 6E FF FF 00 00 02 00 00 00 00 00 00 00 01 00 72 73 ..☻.......☺.blan ..☻.......☺.rs 00003EA0 2C 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 72 73 2E 20 FF FF 00 00 02 00 00 00 00 00 00 00 , ..☻.......☺.rs. ..☻....... 00003EC0 01 00 70 65 73 20 00 00 5A 00 6C 00 7E 00 90 00 A2 00 2E 02 52 02 64 02 76 02 88 02 9A 02 AC 02 ☺.pes ..Z.l.~.É.ó..☻R☻d☻v☻ê☻Ü☻¼☻ 00003EE0 BE 02 D0 02 E2 02 48 00 FF FF 02 00 62 00 05 00 72 63 61 74 00 02 00 61 00 02 00 72 00 08 00 63 ╛☻╨☻Γ☻H. ☻.b.♣.rcat.☻.a.☻.r.◘.c 00003F00 66 6F 72 6D 61 74 00 08 00 63 6D 61 74 72 69 78 00 08 00 63 6F 6C 66 6F 72 6D 00 08 00 01 00 00 format.◘.cmatrix.◘.colform.◘.☺.. 00003F20 00 01 00 62 08 00 05 00 01 00 01 00 05 00 5B 4C 69 6F 5D 02 00 62 00 02 00 61 00 04 00 01 00 00 .☺.b◘.♣.☺.☺.♣.[Lio]☻.b.☻.a.♦.☺.. 00003F40 00 02 00 00 00 08 00 09 00 01 00 01 00 09 00 72 23 76 65 72 74 20 61 2C 04 00 01 00 00 00 02 00 .☻...◘.○.☺.☺.○.r#vert a,♦.☺...☻. 00003F60 00 00 78 06 00 72 69 6F 74 61 00 00 01 00 0C 45 00 10 00 05 00 09 00 29 00 02 00 01 00 01 00 01 ..x♠.riota..☺.♀E.►.♣.○.).☻.☺.☺.☺ 00003F80 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 C0 03 02 00 01 00 10 00 3C 00 20 .☺.☺.☺.☺.☺.☺.☺.☺.☺.◘.└♥☻.☺.►.<. 00003FA0 72 23 78 20 72 69 6F 74 61 20 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r#x riota y 00003FC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 79 23 6D 61 y#ma 00003FE0 74 72 69 78 20 79 20 48 20 78 23 6D 61 74 72 69 78 20 78 20 20 20 20 20 20 20 20 20 20 20 20 20 trix y H x#matrix x 00004000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 4C 69 6F 2B 2B 2F r#Lio++/ 00004020 7E 56 5C 28 28 28 30 20 31 58 52 78 29 53 52 79 29 59 79 29 26 2E 3D 54 28 28 30 20 31 58 52 79 ~V\(((0 1XRx)SRy)Yy)&.=T((0 1XRy 00004040 29 53 52 78 29 59 78 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 )SRx)Yx $0 00004060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 " 000040A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000040C0 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F "from 'the apl handbo 000040E0 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 ok of techniques' copyright 1978 00004100 2C 20 69 62 6D 2E 20 22 2D 72 69 6F 74 61 20 65 78 74 65 6E 64 73 20 74 6F 20 6D 61 74 72 69 78 , ibm. "-riota extends to matrix 00004120 20 61 72 67 75 6D 65 6E 74 73 20 74 68 65 20 66 75 6E 63 74 69 6F 6E 20 6F 66 20 64 79 61 64 69 arguments the function of dyadi 00004140 63 20 20 22 20 49 20 28 61 49 62 2E 2E 2E 74 68 65 20 6C 65 61 73 74 20 69 6E 64 65 78 20 69 6E c " I (aIb...the least index in 00004160 20 76 65 63 74 6F 72 20 61 20 6F 66 20 74 68 65 20 65 6C 65 6D 65 6E 74 28 73 29 20 69 6E 20 22 vector a of the element(s) in " 00004180 20 73 63 61 6C 61 72 20 6F 72 20 76 65 63 74 6F 72 20 62 29 2E 20 20 20 20 20 20 20 20 20 20 20 scalar or vector b). 000041A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 74 68 65 "-the 000041C0 20 72 65 73 75 6C 74 20 72 20 69 73 20 61 20 76 65 63 74 6F 72 20 6F 66 20 74 68 65 20 72 65 73 result r is a vector of the res 000041E0 70 65 63 74 69 76 65 20 72 6F 77 20 69 6E 64 69 63 65 73 20 6F 66 20 22 20 74 68 65 20 66 69 72 pective row indices of " the fir 00004200 73 74 20 6F 63 63 75 72 72 65 6E 63 65 20 6F 66 20 74 68 65 20 72 6F 77 73 20 6F 66 20 79 20 69 st occurrence of the rows of y i 00004220 6E 20 78 2C 20 69 67 6E 6F 72 69 6E 67 20 20 20 20 20 20 22 20 74 72 61 69 6C 69 6E 67 20 62 6C n x, ignoring " trailing bl 00004240 61 6E 6B 73 2E 20 20 69 66 20 61 20 72 6F 77 20 6F 66 20 79 20 64 6F 65 73 20 6E 6F 74 20 6F 63 anks. if a row of y does not oc 00004260 63 75 72 20 69 6E 20 78 2C 20 74 68 65 20 20 22 20 63 6F 72 72 65 73 70 6F 6E 64 69 6E 67 20 65 cur in x, the " corresponding e 00004280 6C 65 6D 65 6E 74 20 6F 66 20 72 20 69 73 20 73 65 74 20 74 6F 20 31 2B 31 59 52 78 2E 20 20 6E lement of r is set to 1+1YRx. n 000042A0 6F 6E 2D 6D 61 74 72 69 78 20 20 22 20 61 72 67 75 6D 65 6E 74 73 20 61 72 65 20 72 65 73 68 61 on-matrix " arguments are resha 000042C0 70 65 64 2C 20 73 63 61 6C 61 72 20 61 6E 64 20 76 65 63 74 6F 72 20 61 72 67 75 6D 65 6E 74 73 ped, scalar and vector arguments 000042E0 20 61 72 65 20 20 20 22 20 74 72 65 61 74 65 64 20 61 73 20 31 2D 72 6F 77 20 6D 61 74 72 69 63 are " treated as 1-row matric 00004300 65 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 es. 00004320 20 20 20 22 2D 75 73 65 73 3A 20 47 6D 61 74 72 69 78 20 47 68 20 20 20 20 20 20 20 20 20 20 20 "-uses: Gmatrix Gh 00004340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 ↕ 00004360 00 FF FF 00 00 FC FF 0B 00 0A 00 F9 51 01 00 54 26 5A 07 24 00 AB 59 FC FF 05 00 06 00 D3 51 01 . ..ⁿ ♂.◙.∙Q☺.T&Z•$.½Yⁿ ♣.♠.╙Q☺ 00004380 00 D8 14 6C 07 00 00 AB 59 FC FF 03 00 02 00 C5 51 01 00 00 00 7E 07 48 00 AB 59 03 00 02 00 00 .╪¶l•..½Yⁿ ♥.☻.┼Q☺...~•H.½Y♥.☻.. 000043A0 00 00 00 01 00 E0 14 90 07 24 00 AB 59 FC FF 01 00 0C 00 C4 51 01 00 00 00 A2 07 6C 00 AB 59 FC ...☺.α¶É•$.½Yⁿ ☺.♀.─Q☺...ó•l.½Yⁿ 000043C0 FF 17 00 0E 00 4D 52 01 00 00 00 B4 07 7E 00 AB 59 FC FF 10 00 06 00 58 52 01 00 54 26 C6 07 90 ↨.♫.MR☺...┤•~.½Yⁿ ►.♠.XR☺.T&╞•É 000043E0 00 AB 59 03 00 0F 00 00 00 00 00 01 00 00 00 D8 07 A2 00 AB 59 FC FF 0E 00 06 00 45 52 01 00 54 .½Y♥.☼.....☺...╪•ó.½Yⁿ ♫.♠.ER☺.T 00004400 26 EA 07 B4 00 AB 59 FC FF 0C 00 10 00 44 52 01 00 D8 14 FC 07 C6 00 AB 59 FC FF 0A 00 0A 00 44 &Ω•┤.½Yⁿ ♀.►.DR☺.╪¶ⁿ•╞.½Yⁿ ◙.◙.D 00004420 52 01 00 54 26 00 00 D8 00 AB 59 FC FF 03 00 04 00 27 52 01 00 D8 14 20 08 EA 00 AB 59 03 00 02 R☺.T&..╪.½Yⁿ ♥.♦.'R☺.╪¶ ◘Ω.½Y♥.☻ 00004440 00 00 00 00 00 01 00 00 00 32 08 FF FF 00 00 FC FF 01 00 0E 00 26 52 01 00 00 00 44 08 0E 01 AB .....☺...2◘ ..ⁿ ☺.♫.&R☺...D◘♫☺½ 00004460 59 FC FF 2F 00 0E 00 91 52 01 00 00 00 56 08 20 01 AB 59 39 00 2E 00 00 00 00 00 01 00 00 00 68 Yⁿ /.♫.æR☺...V◘ ☺½Y9.......☺...h 00004480 08 32 01 AB 59 09 00 2D 00 00 00 00 00 01 00 00 00 7A 08 44 01 AB 59 FC FF 2C 00 06 00 84 52 01 ◘2☺½Y○.-.....☺...z◘D☺½Yⁿ ,.♠.äR☺ 000044A0 00 00 00 8C 08 56 01 AB 59 32 00 2B 00 00 00 00 00 01 00 00 00 9E 08 68 01 AB 59 33 00 2A 00 00 ...î◘V☺½Y2.+.....☺...₧◘h☺½Y3.*.. 000044C0 00 00 00 01 00 01 00 B0 08 7A 01 AB 59 09 00 29 00 00 00 00 00 01 00 0A 00 C2 08 8C 01 AB 59 FC ...☺.☺.░◘z☺½Y○.).....☺.◙.┬◘î☺½Yⁿ 000044E0 FF 28 00 10 00 83 52 01 00 13 00 D4 08 9E 01 AB 59 32 00 27 00 00 00 00 00 01 00 C4 59 01 00 B0 (.►.âR☺.‼.╘◘₧☺½Y2.'.....☺.─Y☺.░ 00004500 01 AB 59 38 00 26 00 00 00 00 00 01 00 3B 7A 20 20 C2 01 AB 59 FD FF 23 00 10 00 E0 52 01 00 20 ☺½Y8.&.....☺.;z ┬☺½Y² #.►.αR☺. 00004520 20 20 20 D4 01 AB 59 08 00 22 00 00 00 00 00 01 00 20 20 20 20 E6 01 AB 59 08 00 21 00 00 00 00 ╘☺½Y◘.".....☺. µ☺½Y◘.!.... 00004540 00 01 00 55 28 7A 56 F8 01 AB 59 34 00 20 00 00 00 00 00 01 00 23 2C 27 20 0A 02 AB 59 1D 00 1F .☺.U(zV°☺½Y4. .....☺.#,' ◙☻½Y↔.▼ 00004560 00 00 00 00 00 01 00 20 20 20 20 1C 02 AB 59 0E 00 1E 00 00 00 00 00 01 00 20 20 20 24 2E 02 AB .....☺. ∟☻½Y♫.▲.....☺. $.☻½ 00004580 59 06 00 1D 00 00 00 00 00 01 00 20 20 20 20 40 02 AB 59 09 00 1C 00 00 00 00 00 01 00 20 20 20 Y♠.↔.....☺. @☻½Y○.∟.....☺. 000045A0 20 52 02 AB 59 FC FF 1B 00 0A 00 83 52 01 00 20 20 20 20 64 02 AB 59 39 00 1A 00 00 00 00 00 01 R☻½Yⁿ ←.◙.âR☺. d☻½Y9.→.....☺ 000045C0 00 65 6C 65 74 76 02 AB 59 09 00 19 00 00 00 00 00 01 00 69 6C 69 6E 88 02 AB 59 FC FF 18 00 0C .eletv☻½Y○.↓.....☺.ilinê☻½Yⁿ ↑.♀ 000045E0 00 7D 52 01 00 61 6E 6B 73 9A 02 AB 59 32 00 17 00 00 00 00 00 01 00 6D 20 27 74 AC 02 AB 59 33 .}R☺.anksÜ☻½Y2.↨.....☺.m 't¼☻½Y3 00004600 00 16 00 00 00 00 00 01 00 6B 20 6F 66 BE 02 AB 59 09 00 15 00 00 00 00 00 01 00 6F 70 79 72 D0 .▬.....☺.k of╛☻½Y○.§.....☺.opyr╨ 00004620 02 AB 59 FC FF 14 00 06 00 7D 52 01 00 2E 20 00 0A E2 02 AB 59 32 00 13 00 00 00 00 00 01 00 01 ☻½Yⁿ ¶.♠.}R☺.. .◙Γ☻½Y2.‼.....☺.☺ 00004640 00 2A 0A F4 02 AB 59 38 00 12 00 00 00 00 00 01 00 01 00 3C 0A 06 03 AB 59 FD FF 0F 00 06 00 90 .*◙⌠☻½Y8.↕.....☺.☺.<◙♠♥½Y² ☼.♠.É 00004660 52 01 00 01 00 4E 0A 18 03 AB 59 08 00 0E 00 00 00 00 00 01 00 01 00 00 00 2A 03 AB 59 08 00 0D R☺.☺.N◙↑♥½Y◘.♫.....☺.☺...*♥½Y◘.♪ 00004680 00 00 00 00 00 01 00 01 00 04 00 3C 03 AB 59 08 00 0C 00 00 00 00 00 01 00 01 00 12 00 4E 03 AB .....☺.☺.♦.<♥½Y◘.♀.....☺.☺.↕.N♥½ 000046A0 59 3C 00 0B 00 00 00 00 00 01 00 01 00 20 20 60 03 AB 59 36 00 0A 00 00 00 00 00 01 00 01 00 20 Y<.♂.....☺.☺. `♥½Y6.◙.....☺.☺. 000046C0 20 72 03 AB 59 84 00 09 00 00 00 00 00 01 00 01 00 20 20 84 03 AB 59 0F 00 08 00 00 00 00 00 01 r♥½Yä.○.....☺.☺. ä♥½Y☼.◘.....☺ 000046E0 00 01 00 63 61 96 03 AB 59 0B 00 07 00 00 00 00 00 01 00 01 00 72 65 A8 03 AB 59 0B 00 06 00 00 .☺.caû♥½Y♂.•.....☺.☺.re¿♥½Y♂.♠.. 00004700 00 00 00 01 00 01 00 20 20 BA 03 AB 59 ED FF 03 00 00 00 00 00 01 00 01 00 65 72 CC 03 AB 59 03 ...☺.☺. ║♥½Yφ ♥.....☺.☺.er╠♥½Y♥ 00004720 00 02 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 00 FC FF 01 00 02 00 55 52 01 00 01 00 20 20 F0 .☻.....☺.☺. ..ⁿ ☺.☻.UR☺.☺. ≡ 00004740 03 AB 59 FD FF 02 00 02 00 F4 52 01 00 01 00 20 20 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 01 ♥½Y² ☻.☻.⌠R☺.☺. ..♦.☺.....☺.☺ 00004760 00 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 00 02 00 00 00 00 00 00 . ..☻.......☺.☺. ..☻...... 00004780 00 01 00 01 00 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 00 02 00 00 .☺.☺. ..☻.......☺.☺. ..☻.. 000047A0 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 .....☺.☺. ..☻.......☺.☺. . 000047C0 00 02 00 00 00 00 00 00 00 01 00 01 00 6F 77 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 20 .☻.......☺.☺.ow ..☻.......☺.☺. 000047E0 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 ..☻.......☺.☺. ..☻.......☺ 00004800 00 01 00 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 00 02 00 00 00 00 .☺. ..☻.......☺.☺. ..☻.... 00004820 00 00 00 01 00 01 00 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 20 20 00 00 5A 00 FC ...☺.☺. ..☻.......☺.☺. ..Z.ⁿ 00004840 00 DE 03 02 04 14 04 26 04 38 04 4A 04 5C 04 6E 04 80 04 92 04 A4 04 B6 04 C8 04 48 00 FF FF 02 .▐♥☻♦¶♦&♦8♦J♦\♦n♦Ç♦Æ♦ñ♦╢♦╚♦H. ☻ 00004860 00 79 00 06 00 72 69 6F 74 61 00 02 00 78 00 02 00 72 00 02 00 78 00 07 00 6D 61 74 72 69 78 00 .y.♠.riota.☻.x.☻.r.☻.x.•.matrix. 00004880 02 00 78 00 02 00 48 00 02 00 79 00 07 00 6D 61 74 72 69 78 00 02 00 79 00 02 00 78 00 02 00 78 ☻.x.☻.H.☻.y.•.matrix.☻.y.☻.x.☻.x 000048A0 00 02 00 79 00 04 00 02 00 01 00 02 00 02 00 00 00 01 00 02 00 79 00 02 00 79 00 02 00 78 00 04 .☻.y.♦.☻.☺.☻.☻...☺.☻.y.☻.y.☻.x.♦ 000048C0 00 02 00 01 00 02 00 02 00 00 00 01 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 05 00 72 65 .☻.☺.☻.☻...☺.☻.r.♦.☺...☻...x♣.re 000048E0 70 6C 00 00 01 00 0C 29 00 09 00 05 00 15 00 08 00 02 00 01 00 01 00 01 00 01 00 01 00 08 00 1C pl..☺.♀).○.♣.§.◘.☻.☺.☺.☺.☺.☺.◘.∟ 00004900 02 02 00 01 00 09 00 3C 00 20 72 23 76 76 20 72 65 70 6C 20 61 20 20 20 20 20 20 20 20 20 20 20 ☻☻.☺.○.<. r#vv repl a 00004920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004940 20 20 20 20 20 20 72 5B 28 72 3D 31 59 76 76 29 2F 49 52 72 23 2C 61 5D 23 31 55 76 76 20 20 20 r[(r=1Yvv)/IRr#,a]#1Uvv 00004960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004980 20 20 72 23 28 52 61 29 52 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r#(Ra)Rr 000049A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 $0 000049C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000049E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 65 70 6C 20 2D "repl - 00004A00 20 72 65 70 6C 61 63 65 20 61 6C 6C 20 6F 63 63 75 72 72 65 6E 63 65 73 20 6F 66 20 65 6C 65 6D replace all occurrences of elem 00004A20 65 6E 74 20 69 6E 20 61 72 72 61 79 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 ent in array "from 'the 00004A40 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 apl handbook of techniques' copy 00004A60 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 76 76 20 69 73 20 61 20 74 77 6F 2D 70 6F right 1978, ibm. "vv is a two-po 00004A80 73 69 74 69 6F 6E 20 63 68 61 72 61 63 74 65 72 20 6F 72 20 6E 75 6D 65 72 69 63 20 76 65 63 74 sition character or numeric vect 00004AA0 6F 72 2C 20 61 20 69 73 20 61 6E 20 20 22 61 72 72 61 79 20 6F 66 20 74 68 65 20 73 61 6D 65 20 or, a is an "array of the same 00004AC0 74 79 70 65 2E 20 61 6C 6C 20 61 70 70 65 61 72 61 6E 63 65 73 20 6F 66 20 31 59 76 76 20 77 69 type. all appearances of 1Yvv wi 00004AE0 6C 6C 20 63 68 61 6E 67 65 22 74 6F 20 31 55 76 76 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ll change"to 1Uvv. 00004B00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004B20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 0B 00 04 00 EF 51 01 00 01 00 10 00 24 00 B4 57 FC FF 06 ↕. ..ⁿ ♂.♦.∩Q☺.☺.►.$.┤Wⁿ ♠ 00004B40 00 0C 00 EE 51 01 00 20 20 20 20 00 00 B4 57 FC FF 03 00 04 00 57 51 01 00 20 20 20 20 48 00 B4 .♀.εQ☺. ..┤Wⁿ ♥.♦.WQ☺. H.┤ 00004B60 57 03 00 02 00 00 00 00 00 01 00 20 20 20 20 24 00 B4 57 FC FF 01 00 0E 00 56 51 01 00 61 74 65 W♥.☻.....☺. $.┤Wⁿ ☺.♫.VQ☺.ate 00004B80 6E 6C 00 B4 57 FC FF 16 00 0C 00 45 52 01 00 65 70 6C 69 7E 00 B4 57 35 00 15 00 00 00 00 00 01 nl.┤Wⁿ ▬.♀.ER☺.epli~.┤W5.§.....☺ 00004BA0 00 20 20 20 20 90 00 B4 57 FD FF 14 00 02 00 6A 52 01 00 20 63 66 6F A2 00 B4 57 03 00 13 00 00 . É.┤W² ¶.☻.jR☺. cfoó.┤W♥.‼.. 00004BC0 00 00 00 01 00 20 20 20 20 B4 00 B4 57 3D 00 12 00 00 00 00 00 01 00 20 20 20 20 C6 00 B4 57 FC ...☺. ┤.┤W=.↕.....☺. ╞.┤Wⁿ 00004BE0 FF 11 00 02 00 38 52 01 00 20 20 20 20 D8 00 B4 57 0C 00 10 00 00 00 00 00 01 00 20 20 20 20 EA ◄.☻.8R☺. ╪.┤W♀.►.....☺. Ω 00004C00 00 B4 57 03 00 0F 00 00 00 00 00 01 00 20 20 20 20 FC 00 B4 57 FC FF 0E 00 08 00 30 52 01 00 20 .┤W♥.☼.....☺. ⁿ.┤Wⁿ ♫.◘.0R☺. 00004C20 20 20 20 0E 01 B4 57 32 00 0D 00 00 00 00 00 01 00 72 6D 20 20 20 01 B4 57 29 00 0C 00 00 00 00 ♫☺┤W2.♪.....☺.rm ☺┤W).♀.... 00004C40 00 01 00 20 20 20 20 32 01 B4 57 0F 00 0B 00 00 00 00 00 01 00 20 20 20 20 44 01 B4 57 09 00 0A .☺. 2☺┤W☼.♂.....☺. D☺┤W○.◙ 00004C60 00 00 00 00 00 01 00 20 43 27 72 56 01 B4 57 FC FF 08 00 04 00 24 52 01 00 3D 28 52 52 68 01 B4 .....☺. C'rV☺┤Wⁿ ◘.♦.$R☺.=(RRh☺┤ 00004C80 57 39 00 07 00 00 00 00 00 01 00 27 29 2C 27 7A 01 B4 57 FD FF 06 00 10 00 48 52 01 00 20 20 20 W9.•.....☺.'),'z☺┤W² ♠.►.HR☺. 00004CA0 20 8C 01 B4 57 1D 00 05 00 00 00 00 00 01 00 20 20 20 20 9E 01 B4 57 FC FF 04 00 0E 00 1C 52 01 î☺┤W↔.♣.....☺. ₧☺┤Wⁿ ♦.♫.∟R☺ 00004CC0 00 20 20 20 20 B0 01 B4 57 08 00 03 00 00 00 00 00 01 00 20 20 20 20 C2 01 B4 57 3B 00 02 00 00 . ░☺┤W◘.♥.....☺. ┬☺┤W;.☻.. 00004CE0 00 00 00 01 00 2D 20 63 61 FF FF 00 00 FC FF 01 00 0A 00 EF 51 01 00 2E 20 20 20 E6 01 B4 57 FC ...☺.- ca ..ⁿ ☺.◙.∩Q☺.. µ☺┤Wⁿ 00004D00 FF 08 00 0C 00 54 52 01 00 20 20 20 20 F8 01 B4 57 32 00 07 00 00 00 00 00 01 00 22 66 72 6F 0A ◘.♀.TR☺. °☺┤W2.•.....☺."fro◙ 00004D20 02 B4 57 09 00 06 00 00 00 00 00 01 00 64 62 6F 6F 1C 02 B4 57 FC FF 05 00 08 00 46 52 01 00 73 ☻┤W○.♠.....☺.dboo∟☻┤Wⁿ ♣.◘.FR☺.s 00004D40 27 20 63 2E 02 B4 57 32 00 04 00 00 00 00 00 01 00 20 69 62 6D 40 02 B4 57 08 00 03 00 00 00 00 ' c.☻┤W2.♦.....☺. ibm@☻┤W◘.♥.... 00004D60 00 01 00 20 63 61 74 52 02 B4 57 03 00 02 00 00 00 00 00 01 00 65 72 61 6C FF FF 00 00 FC FF 01 .☺. catR☻┤W♥.☻.....☺.eral ..ⁿ ☺ 00004D80 00 02 00 46 52 01 00 64 20 74 79 76 02 B4 57 FD FF 02 00 04 00 82 52 01 00 61 72 73 20 FF FF 00 .☻.FR☺.d tyv☻┤W² ☻.♦.éR☺.ars . 00004DA0 00 04 00 01 00 00 00 00 00 01 00 61 74 65 64 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 .♦.☺.....☺.ated ..☻.......☺. 00004DC0 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 22 2D 70 61 FF FF 00 00 02 00 00 00 00 00 00 00 01 ..☻.......☺."-pa ..☻.......☺ 00004DE0 00 62 6C 61 6E FF FF 00 00 02 00 00 00 00 00 00 00 01 00 72 73 2C 20 FF FF 00 00 02 00 00 00 00 .blan ..☻.......☺.rs, ..☻.... 00004E00 00 00 00 01 00 72 73 2E 20 00 00 5A 00 D4 01 64 02 88 02 9A 02 AC 02 BE 02 D0 02 48 00 FF FF 02 ...☺.rs. ..Z.╘☺d☻ê☻Ü☻¼☻╛☻╨☻H. ☻ 00004E20 00 61 00 05 00 72 65 70 6C 00 03 00 76 76 00 02 00 72 00 03 00 76 76 00 04 00 01 00 00 00 02 00 .a.♣.repl.♥.vv.☻.r.♥.vv.♦.☺...☻. 00004E40 01 00 02 00 61 00 02 00 72 00 03 00 76 76 00 04 00 01 00 00 00 02 00 01 00 02 00 72 00 02 00 72 ☺.☻.a.☻.r.♥.vv.♦.☺...☻.☺.☻.r.☻.r 00004E60 00 02 00 72 00 02 00 61 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 06 00 72 6F 6D 61 6E 00 .☻.r.☻.a.☻.r.♦.☺...☻...x♠.roman. 00004E80 00 01 00 0A 64 00 0E 00 08 00 03 00 07 00 0C 00 2B 00 12 00 02 00 01 00 01 00 01 00 01 00 01 00 .☺.◙d.♫.◘.♥.•.♀.+.↕.☻.☺.☺.☺.☺.☺. 00004EA0 01 00 01 00 08 00 48 03 02 00 01 00 0E 00 3C 00 20 72 23 72 6F 6D 61 6E 20 6E 3B 69 3B 4C 69 6F ☺.☺.◘.H♥☻.☺.♫.<. r#roman n;i;Lio 00004EC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004EE0 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 69 6F 23 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 Lio#0 00004F00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004F20 20 20 20 20 20 20 20 20 20 69 23 30 20 31 30 30 30 4E 27 27 52 6E 20 20 20 20 20 20 20 20 20 20 i#0 1000N''Rn 00004F40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004F60 20 20 20 20 20 72 23 30 20 35 4E 31 30 20 31 30 20 31 30 20 31 30 4E 6E 23 69 5B 31 5D 20 20 20 r#0 5N10 10 10 10Nn#i[1] 00004F80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004FA0 20 6E 23 2C 54 28 49 34 29 4A 2E 3C 2C 54 28 30 53 72 5F 31 20 33 4A 2E 58 34 3D 72 5B 31 3B 5D n#,T(I4)J.<,T(0Sr_1 3J.X4=r[1;] 00004FC0 29 2C 5B 30 5D 72 5B 30 3B 5D 60 52 34 3D 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 28 ),[0]r[0;]`R4=r r#( 00004FE0 69 5B 30 5D 52 27 6D 27 29 2C 6E 2F 2C 54 34 20 31 36 52 27 58 6D 58 58 64 63 6D 64 6C 78 63 6C i[0]R'm'),n/,T4 16R'XmXXdcmdlxcl 00005000 76 69 78 76 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 vixv' $0 00005020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 6F 6D 61 6E 20 2D 20 63 6F 6E "roman - con 00005060 76 65 72 74 20 69 6E 74 65 67 65 72 20 74 6F 20 72 6F 6D 61 6E 20 6E 75 6D 65 72 61 6C 73 20 20 vert integer to roman numerals 00005080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 "from 'the apl h 000050A0 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 andbook of techniques' copyright 000050C0 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 72 6F 6D 61 6E 20 6E 75 6D 65 72 61 6C 73 20 6D 61 79 1978, ibm. "-roman numerals may 000050E0 20 62 65 20 72 65 71 75 69 72 65 64 20 66 6F 72 20 63 65 72 74 61 69 6E 20 74 79 70 65 73 20 6F be required for certain types o 00005100 66 20 70 61 67 65 20 20 22 20 6F 72 20 70 61 72 61 67 72 61 70 68 20 6E 75 6D 62 65 72 69 6E 67 f page " or paragraph numbering 00005120 2E 20 20 74 68 65 79 20 61 6C 73 6F 20 69 6C 6C 75 73 74 72 61 74 65 20 74 68 61 74 20 74 68 65 . they also illustrate that the 00005140 72 65 20 20 22 20 69 73 20 61 20 64 69 73 74 69 6E 63 74 69 6F 6E 20 62 65 74 77 65 65 6E 20 74 re " is a distinction between t 00005160 68 65 20 76 61 6C 75 65 20 6F 66 20 61 20 6E 75 6D 62 65 72 20 61 6E 64 20 69 74 73 20 20 20 20 he value of a number and its 00005180 22 20 72 65 70 72 65 73 65 6E 74 61 74 69 6F 6E 2E 20 20 6E 20 69 73 20 61 6E 20 69 6E 74 65 67 " representation. n is an integ 000051A0 65 72 20 67 72 65 61 74 65 72 20 74 68 61 6E 20 7A 65 72 6F 2E 20 72 20 69 73 20 20 22 20 61 20 er greater than zero. r is " a 000051C0 63 68 61 72 61 63 74 65 72 20 76 65 63 74 6F 72 20 72 65 70 72 65 73 65 6E 74 69 6E 67 20 6E 20 character vector representing n 000051E0 61 73 20 61 20 72 6F 6D 61 6E 20 6E 75 6D 65 72 61 6C 2E 20 20 20 20 20 5A 00 FF FF 00 00 ED FF as a roman numeral. Z. ..φ 00005200 0D 00 00 00 00 00 01 00 01 00 09 00 24 00 B3 5A 1B 00 0C 00 00 00 00 00 01 00 20 20 20 20 00 00 ♪.....☺.☺.○.$.│Z←.♀.....☺. .. 00005220 B3 5A FC FF 0B 00 0C 00 0D 52 01 00 20 20 20 20 48 00 B3 5A 1B 00 0A 00 00 00 00 00 01 00 20 20 │Zⁿ ♂.♀.♪R☺. H.│Z←.◙.....☺. 00005240 20 20 24 00 B3 5A FC FF 09 00 06 00 0D 52 01 00 31 55 52 61 6C 00 B3 5A FC FF 03 00 02 00 F9 51 $.│Zⁿ ○.♠.♪R☺.1URal.│Zⁿ ♥.☻.∙Q 00005260 01 00 76 29 59 61 7E 00 B3 5A 03 00 02 00 00 00 00 00 01 00 20 20 20 20 48 00 B3 5A FC FF 01 00 ☺.v)Ya~.│Z♥.☻.....☺. H.│Zⁿ ☺. 00005280 0C 00 F8 51 01 00 20 24 30 20 A2 00 B3 5A FD FF 05 00 0A 00 9F 52 01 00 20 20 20 20 B4 00 B3 5A ♀.°Q☺. $0 ó.│Z² ♣.◙.ƒR☺. ┤.│Z 000052A0 03 00 04 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 ED FF 01 00 00 00 00 00 01 00 20 20 20 20 ♥.♦.....☺. ..φ ☺.....☺. 000052C0 D8 00 B3 5A FC FF 0D 00 10 00 70 52 01 00 20 74 72 61 EA 00 B3 5A 32 00 0C 00 00 00 00 00 01 00 ╪.│Zⁿ ♪.►.pR☺. traΩ.│Z2.♀.....☺. 000052E0 69 63 61 6E FC 00 B3 5A 07 00 0A 00 0E 00 D0 52 01 00 72 20 76 61 0E 01 B3 5A 2E 00 09 00 00 00 icanⁿ.│Z•.◙.♫.╨R☺.r va♫☺│Z..○... 00005300 00 00 01 00 27 74 68 65 20 01 B3 5A FD FF 03 00 10 00 AA 52 01 00 6F 66 20 74 32 01 B3 5A 03 00 ..☺.'the ☺│Z² ♥.►.¬R☺.of t2☺│Z♥. 00005320 02 00 00 00 00 00 01 00 79 72 69 67 FF FF 00 00 FC FF 01 00 06 00 5E 52 01 00 22 2D 69 6E 56 01 ☻.....☺.yrig ..ⁿ ☺.♠.^R☺."-inV☺ 00005340 B3 5A 3D 00 18 00 00 00 00 00 01 00 61 72 61 63 68 01 B3 5A FD FF 17 00 06 00 FF 52 01 00 2C 20 │Z=.↑.....☺.arach☺│Z² ↨.♠. R☺., 00005360 61 73 7A 01 B3 5A 3B 00 16 00 00 00 00 00 01 00 20 74 68 61 8C 01 B3 5A FC FF 15 00 04 00 8B 52 asz☺│Z;.▬.....☺. thaî☺│Zⁿ §.♦.ïR 00005380 01 00 74 68 65 20 9E 01 B3 5A 03 00 14 00 00 00 00 00 01 00 61 6E 20 61 B0 01 B3 5A FC FF 13 00 ☺.the ₧☺│Z♥.¶.....☺.an a░☺│Zⁿ ‼. 000053A0 0C 00 71 52 01 00 64 72 6F 70 C2 01 B3 5A 2E 00 12 00 00 00 00 00 01 00 6F 72 69 67 D4 01 B3 5A ♀.qR☺.drop┬☺│Z..↕.....☺.orig╘☺│Z 000053C0 FD FF 07 00 02 00 F8 52 01 00 20 77 69 6C E6 01 B3 5A 2E 00 06 00 00 00 00 00 01 00 2E 20 20 20 ² •.☻.°R☺. wilµ☺│Z..♠.....☺.. 000053E0 F8 01 B3 5A FD FF 03 00 08 00 E2 52 01 00 22 2D 61 6E 0A 02 B3 5A 03 00 02 00 00 00 00 00 01 00 °☺│Z² ♥.◘.ΓR☺."-an◙☻│Z♥.☻.....☺. 00005400 73 20 72 65 FF FF 00 00 FC FF 01 00 06 00 71 52 01 00 69 6E 67 20 2E 02 B3 5A FC FF 2E 00 10 00 s re ..ⁿ ☺.♠.qR☺.ing .☻│Zⁿ ..►. 00005420 9D 52 01 00 6D 61 69 6E 40 02 B3 5A 1D 00 2D 00 00 00 00 00 01 00 0E 00 9B 54 52 02 B3 5A FD FF ¥R☺.main@☻│Z↔.-.....☺.♫.¢TR☻│Z² 00005440 2C 00 08 00 09 54 01 00 08 00 9B 54 64 02 B3 5A 47 00 2A 00 00 00 00 00 01 00 02 00 9B 54 76 02 ,.◘.○T☺.◘.¢Td☻│ZG.*.....☺.☻.¢Tv☻ 00005460 B3 5A 3D 00 29 00 00 00 00 00 01 00 00 00 00 00 88 02 B3 5A 1B 00 28 00 00 00 00 00 01 00 0E 00 │Z=.).....☺.....ê☻│Z←.(.....☺.♫. 00005480 E2 52 9A 02 B3 5A FD FF 27 00 0C 00 C4 53 01 00 0C 00 BB 54 AC 02 B3 5A 3B 00 26 00 00 00 00 00 ΓRÜ☻│Z² '.♀.─S☺.♀.╗T¼☻│Z;.&..... 000054A0 01 00 00 00 00 00 BE 02 B3 5A FC FF 25 00 08 00 99 52 01 00 00 00 00 00 D0 02 B3 5A 3D 00 24 00 ☺.....╛☻│Zⁿ %.◘.ÖR☺.....╨☻│Z=.$. 000054C0 00 00 00 00 01 00 0E 00 A7 54 E2 02 B3 5A FD FF 23 00 0A 00 87 53 01 00 00 00 00 00 F4 02 B3 5A ....☺.♫.ºTΓ☻│Z² #.◙.çS☺.....⌠☻│Z 000054E0 3B 00 22 00 00 00 00 00 01 00 0C 00 9F 54 06 03 B3 5A 0C 00 21 00 00 00 00 00 01 00 00 00 00 00 ;.".....☺.♀.ƒT♠♥│Z♀.!.....☺..... 00005500 18 03 B3 5A 09 00 20 00 00 00 00 00 01 00 00 00 00 00 2A 03 B3 5A 3D 00 1F 00 00 00 00 00 01 00 ↑♥│Z○. .....☺.....*♥│Z=.▼.....☺. 00005520 00 00 00 00 3C 03 B3 5A 1B 00 1E 00 00 00 00 00 01 00 00 00 00 00 4E 03 B3 5A FD FF 1D 00 08 00 ....<♥│Z←.▲.....☺.....N♥│Z² ↔.◘. 00005540 7F 53 01 00 00 00 00 00 60 03 B3 5A 3B 00 1C 00 00 00 00 00 01 00 00 00 00 00 72 03 B3 5A FC FF ⌂S☺.....`♥│Z;.∟.....☺.....r♥│Zⁿ 00005560 1B 00 04 00 92 52 01 00 00 00 00 00 84 03 B3 5A 1D 00 1A 00 00 00 00 00 01 00 00 00 00 00 96 03 ←.♦.ÆR☺.....ä♥│Z↔.→.....☺.....û♥ 00005580 B3 5A FD FF 19 00 08 00 4B 53 01 00 00 00 00 00 A8 03 B3 5A 38 00 18 00 00 00 00 00 01 00 00 00 │Z² ↓.◘.KS☺.....¿♥│Z8.↑.....☺... 000055A0 00 00 BA 03 B3 5A 0E 00 17 00 00 00 00 00 01 00 00 00 00 00 CC 03 B3 5A 2A 00 16 00 00 00 00 00 ..║♥│Z♫.↨.....☺.....╠♥│Z*.▬..... 000055C0 01 00 06 00 9F 54 DE 03 B3 5A FD FF 13 00 06 00 46 53 01 00 00 00 00 00 F0 03 B3 5A 3F 00 12 00 ☺.♠.ƒT▐♥│Z² ‼.♠.FS☺.....≡♥│Z?.↕. 000055E0 00 00 00 00 01 00 00 00 00 00 02 04 B3 5A FC FF 11 00 10 00 8B 52 01 00 0C 00 F6 55 14 04 B3 5A ....☺.....☻♦│Zⁿ ◄.►.ïR☺.♀.÷U¶♦│Z 00005600 33 00 10 00 00 00 00 00 01 00 00 00 00 00 26 04 B3 5A FD FF 0F 00 0A 00 24 53 01 00 00 00 00 00 3.►.....☺.....&♦│Z² ☼.◙.$S☺..... 00005620 38 04 B3 5A 08 00 0E 00 00 00 00 00 01 00 00 00 00 00 4A 04 B3 5A 34 00 0D 00 00 00 00 00 01 00 8♦│Z◘.♫.....☺.....J♦│Z4.♪.....☺. 00005640 10 00 9E 54 5C 04 B3 5A 0C 00 0C 00 00 00 00 00 01 00 02 00 B0 57 6E 04 B3 5A 1C 00 0B 00 00 00 ►.₧T\♦│Z♀.♀.....☺.☻.░Wn♦│Z∟.♂... 00005660 00 00 01 00 00 00 00 00 80 04 B3 5A 0E 00 0A 00 00 00 00 00 01 00 00 00 00 00 92 04 B3 5A 2A 00 ..☺.....Ç♦│Z♫.◙.....☺.....Æ♦│Z*. 00005680 09 00 00 00 00 00 01 00 00 00 00 00 A4 04 B3 5A 09 00 08 00 00 00 00 00 01 00 00 00 00 00 B6 04 ○.....☺.....ñ♦│Z○.◘.....☺.....╢♦ 000056A0 B3 5A FD FF 07 00 0A 00 0A 53 01 00 00 00 00 00 C8 04 B3 5A 29 00 06 00 00 00 00 00 01 00 00 00 │Z² •.◙.◙S☺.....╚♦│Z).♠.....☺... 000056C0 00 00 DA 04 B3 5A 08 00 05 00 00 00 00 00 01 00 00 00 00 00 EC 04 B3 5A 34 00 04 00 00 00 00 00 ..┌♦│Z◘.♣.....☺.....∞♦│Z4.♦..... 000056E0 01 00 0C 00 0C 00 FE 04 B3 5A 0C 00 03 00 00 00 00 00 01 00 0B 00 00 00 10 05 B3 5A 03 00 02 00 ☺.♀.♀.■♦│Z♀.♥.....☺.♂...►♣│Z♥.☻. 00005700 00 00 00 00 01 00 0A 00 0A 00 FF FF 00 00 FC FF 01 00 0A 00 8B 52 01 00 09 00 00 00 34 05 B3 5A ....☺.◙.◙. ..ⁿ ☺.◙.ïR☺.○...4♣│Z 00005720 07 00 17 00 0C 00 BE 54 01 00 08 00 02 00 46 05 B3 5A 32 00 16 00 00 00 00 00 01 00 03 00 10 00 •.↨.♀.╛T☺.◘.☻.F♣│Z2.▬.....☺.♥.►. 00005740 58 05 B3 5A FD FF 12 00 04 00 BD 54 01 00 02 00 00 00 6A 05 B3 5A 34 00 11 00 00 00 00 00 01 00 X♣│Z² ↕.♦.╜T☺.☻...j♣│Z4.◄.....☺. 00005760 01 00 0A 00 7C 05 B3 5A 0C 00 10 00 00 00 00 00 01 00 1A 00 0C 00 8E 05 B3 5A 0F 00 0F 00 00 00 ☺.◙.|♣│Z♀.►.....☺.→.♀.Ä♣│Z☼.☼... 00005780 00 00 01 00 19 00 00 00 A0 05 B3 5A FC FF 0E 00 04 00 AD 52 01 00 16 00 0C 00 B2 05 B3 5A 0C 00 ..☺.↓...á♣│Zⁿ ♫.♦.¡R☺.▬.♀.▓♣│Z♀. 000057A0 0D 00 00 00 00 00 01 00 15 00 00 00 C4 05 B3 5A 09 00 0C 00 00 00 00 00 01 00 14 00 00 00 D6 05 ♪.....☺.§...─♣│Z○.♀.....☺.¶...╓♣ 000057C0 B3 5A 07 00 09 00 06 00 B0 54 01 00 13 00 06 00 E8 05 B3 5A 32 00 08 00 00 00 00 00 01 00 12 00 │Z•.○.♠.░T☺.‼.♠.Φ♣│Z2.◘.....☺.↕. 000057E0 00 00 FA 05 B3 5A 3D 00 07 00 00 00 00 00 01 00 11 00 00 00 0C 06 B3 5A FD FF 06 00 0C 00 AD 54 ..·♣│Z=.•.....☺.◄...♀♠│Z² ♠.♀.¡T 00005800 01 00 0E 00 0E 00 1E 06 B3 5A 3B 00 05 00 00 00 00 00 01 00 0C 00 00 00 30 06 B3 5A FC FF 04 00 ☺.♫.♫.▲♠│Z;.♣.....☺.♀...0♠│Zⁿ ♦. 00005820 0E 00 AC 52 01 00 0B 00 04 00 42 06 B3 5A 08 00 03 00 00 00 00 00 01 00 0A 00 00 00 54 06 B3 5A ♫.¼R☺.♂.♦.B♠│Z◘.♥.....☺.◙...T♠│Z 00005840 03 00 02 00 00 00 00 00 01 00 09 00 0E 00 FF FF 00 00 FC FF 01 00 08 00 AC 52 01 00 07 00 00 00 ♥.☻.....☺.○.♫. ..ⁿ ☺.◘.¼R☺.•... 00005860 78 06 B3 5A FD FF 02 00 0C 00 9C 55 01 00 06 00 0C 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 x♠│Z² ☻.♀.£U☺.♠.♀. ..♦.☺.....☺. 00005880 05 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 04 00 02 00 FF FF 00 00 02 00 00 00 00 00 ♣... ..☻.......☺.♦.☻. ..☻..... 000058A0 00 00 01 00 03 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 02 00 00 00 FF FF 00 00 02 00 ..☺.♥... ..☻.......☺.☻... ..☻. 000058C0 00 00 00 00 00 00 01 00 01 00 0C 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 02 00 08 00 FF FF ......☺.☺.♀. ..☻.......☺.☻.◘. 000058E0 00 00 02 00 00 00 00 00 00 00 01 00 01 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 ..☻.......☺.☺... ..☻.......☺... 00005900 00 00 00 00 90 00 C6 00 44 01 1C 02 22 05 66 06 8A 06 9C 06 AE 06 C0 06 D2 06 E4 06 F6 06 7E 00 ....É.╞.D☺∟☻"♣f♠è♠£♠«♠└♠╥♠Σ♠÷♠~. 00005920 FF FF 02 00 69 00 02 00 6E 00 06 00 72 6F 6D 61 6E 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 ☻.i.☻.n.♠.roman.☻.r.♦.☺...☻... 00005940 02 00 6E 00 08 00 00 00 01 00 01 00 00 00 04 00 02 00 01 00 02 00 02 00 00 00 E8 03 02 00 69 00 ☻.n.◘...☺.☺...♦.☻.☺.☻.☻...Φ♥☻.i. 00005960 04 00 01 00 00 00 02 00 01 00 02 00 69 00 02 00 6E 00 04 00 04 00 01 00 02 00 04 00 0A 00 0A 00 ♦.☺...☻.☺.☻.i.☻.n.♦.♦.☺.☻.♦.◙.◙. 00005980 0A 00 0A 00 04 00 02 00 01 00 02 00 02 00 00 00 05 00 02 00 72 00 02 00 72 00 04 00 01 00 00 00 ◙.◙.♦.☻.☺.☻.☻...♣.☻.r.☻.r.♦.☺... 000059A0 02 00 04 00 04 00 01 00 00 00 02 00 00 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 04 00 01 00 ☻.♦.♦.☺...☻...☻.r.♦.☺...☻...♦.☺. 000059C0 00 00 02 00 01 00 02 00 72 00 04 00 01 00 00 00 02 00 04 00 04 00 02 00 01 00 02 00 02 00 01 00 ..☻.☺.☻.r.♦.☺...☻.♦.♦.☻.☺.☻.☻.☺. 000059E0 03 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 04 00 01 00 00 00 02 00 04 00 02 00 6E 00 08 00 ♥.☻.r.♦.☺...☻...♦.☺...☻.♦.☻.n.◘. 00005A00 10 00 01 00 01 00 10 00 58 6D 58 58 64 63 6D 64 6C 78 63 6C 76 69 78 76 04 00 02 00 01 00 02 00 ►.☺.☺.►.XmXXdcmdlxclvixv♦.☻.☺.☻. 00005A20 02 00 04 00 10 00 02 00 6E 00 08 00 01 00 00 00 01 00 6D 04 00 01 00 00 00 02 00 00 00 02 00 69 ☻.♦.►.☻.n.◘.☺...☺.m♦.☺...☻...☻.i 00005A40 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 0B 00 72 6F 77 69 6E 64 69 63 65 73 00 00 01 00 .☻.r.♦.☺...☻...x♂.rowindices..☺. 00005A60 0C 1E 00 04 00 07 00 01 00 01 00 15 00 08 00 F0 00 02 00 01 00 04 00 3C 00 72 20 23 20 6E 20 72 ♀▲.♦.•.☺.☺.§.◘.≡.☻.☺.♦.<.r # n r 00005A80 6F 77 69 6E 64 69 63 65 73 20 6D 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 owindices m;Lio 00005AA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 6F 77 69 6E 64 69 63 65 73 "rowindices 00005AC0 20 2D 20 66 69 72 73 74 20 6F 72 20 6C 61 73 74 20 6E 20 72 6F 77 6E 75 6D 62 65 72 73 20 6F 66 - first or last n rownumbers of 00005AE0 20 6D 61 74 72 69 78 2E 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 matrix. "from 'the apl 00005B00 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 handbook of techniques' copyrigh 00005B20 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 72 23 28 72 5E 3D 30 29 2F 72 23 6E 59 49 31 59 52 6D t 1978, ibm. r#(r^=0)/r#nYI1YRm 00005B40 20 48 20 4C 69 6F 23 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 H Lio#1 00005B60 20 20 20 20 20 20 20 20 20 36 00 FF FF 00 00 ED FF 13 00 00 00 00 00 01 00 01 00 0E 00 24 00 E1 6. ..φ ‼.....☺.☺.♫.$.ß 00005B80 58 1B 00 12 00 00 00 00 00 01 00 3B 4C 69 6F 00 00 E1 58 FC FF 11 00 08 00 DD 52 01 00 20 20 20 X←.↕.....☺.;Lio..ßXⁿ ◄.◘.▌R☺. 00005BA0 20 48 00 E1 58 FC FF 06 00 0C 00 E9 52 01 00 20 20 20 20 24 00 E1 58 FC FF 04 00 02 00 DD 52 01 H.ßXⁿ ♠.♀.ΘR☺. $.ßXⁿ ♦.☻.▌R☺ 00005BC0 00 20 20 20 20 6C 00 E1 58 03 00 02 00 00 00 00 00 01 00 20 20 20 20 48 00 E1 58 FC FF 00 00 0C . l.ßX♥.☻.....☺. H.ßXⁿ ..♀ 00005BE0 00 DC 52 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 69 23 30 FF FF 00 00 02 .▄R☺. ..☻.......☺. i#0 ..☻ 00005C00 00 00 00 00 00 00 00 01 00 20 20 20 20 B4 00 E1 58 FD FF 1A 00 02 00 C6 53 01 00 20 20 20 20 C6 .......☺. ┤.ßX² →.☻.╞S☺. ╞ 00005C20 00 E1 58 03 00 19 00 00 00 00 00 01 00 20 20 20 20 D8 00 E1 58 ED FF 16 00 00 00 00 00 01 00 20 .ßX♥.↓.....☺. ╪.ßXφ ▬.....☺. 00005C40 31 30 20 EA 00 E1 58 FC FF 14 00 10 00 25 53 01 00 20 20 20 20 FC 00 E1 58 FC FF 12 00 10 00 22 10 Ω.ßXⁿ ¶.►.%S☺. ⁿ.ßXⁿ ↕.►." 00005C60 53 01 00 20 20 20 20 0E 01 E1 58 32 00 11 00 00 00 00 00 01 00 49 34 29 4A 20 01 E1 58 39 00 10 S☺. ♫☺ßX2.◄.....☺.I4)J ☺ßX9.► 00005C80 00 00 00 00 00 01 00 58 34 3D 72 32 01 E1 58 FD FF 0F 00 0A 00 50 53 01 00 60 52 34 3D 44 01 E1 .....☺.X4=r2☺ßX² ☼.◙.PS☺.`R4=D☺ß 00005CA0 58 29 00 0E 00 00 00 00 00 01 00 20 72 23 28 56 01 E1 58 39 00 0D 00 00 00 00 00 01 00 34 20 31 X).♫.....☺. r#(V☺ßX9.♪.....☺.4 1 00005CC0 36 68 01 E1 58 FC FF 0C 00 0A 00 22 53 01 00 76 69 78 76 7A 01 E1 58 03 00 0B 00 00 00 00 00 01 6h☺ßXⁿ ♀.◙."S☺.vixvz☺ßX♥.♂.....☺ 00005CE0 00 20 20 20 20 8C 01 E1 58 FC FF 0A 00 04 00 22 53 01 00 20 20 20 20 9E 01 E1 58 0F 00 09 00 00 . î☺ßXⁿ ◙.♦."S☺. ₧☺ßX☼.○.. 00005D00 00 00 00 01 00 20 20 20 20 B0 01 E1 58 09 00 08 00 00 00 00 00 01 00 20 20 20 20 C2 01 E1 58 FD ...☺. ░☺ßX○.◘.....☺. ┬☺ßX² 00005D20 FF 07 00 0A 00 43 53 01 00 20 2D 20 63 D4 01 E1 58 3E 00 05 00 00 00 00 00 01 00 20 74 6F 20 E6 •.◙.CS☺. - c╘☺ßX>.♣.....☺. to µ 00005D40 01 E1 58 FC FF 04 00 04 00 11 53 01 00 20 20 20 20 F8 01 E1 58 08 00 03 00 00 00 00 00 01 00 22 ☺ßXⁿ ♦.♦.◄S☺. °☺ßX◘.♥.....☺." 00005D60 66 72 6F 0A 02 E1 58 03 00 02 00 00 00 00 00 01 00 64 62 6F 6F FF FF 00 00 FC FF 01 00 0E 00 10 fro◙☻ßX♥.☻.....☺.dboo ..ⁿ ☺.♫.► 00005D80 53 01 00 73 27 20 63 00 00 7E 00 90 00 A2 00 6C 00 FF FF 02 00 6D 00 0B 00 72 6F 77 69 6E 64 69 S☺.s' c..~.É.ó.l. ☻.m.♂.rowindi 00005DA0 63 65 73 00 02 00 6E 00 02 00 72 00 04 00 01 00 00 00 02 00 01 00 02 00 48 00 02 00 6D 00 04 00 ces.☻.n.☻.r.♦.☺...☻.☺.☻.H.☻.m.♦. 00005DC0 01 00 00 00 02 00 01 00 02 00 6E 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 02 00 72 00 02 00 ☺...☻.☺.☻.n.☻.r.♦.☺...☻...☻.r.☻. 00005DE0 72 00 78 08 00 72 6F 77 66 6F 72 6D 00 00 01 00 01 3D 00 07 00 03 00 0E 00 27 00 02 00 01 00 01 r.x◘.rowform..☺.☺=.•.♥.♫.'.☻.☺.☺ 00005E00 00 01 00 08 00 A4 01 02 00 01 00 07 00 3C 00 20 72 6F 77 66 6F 72 6D 3B 72 20 20 20 20 20 20 20 .☺.◘.ñ☺☻.☺.•.<. rowform;r 00005E20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005E40 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 69 66 20 30 3D 28 52 52 61 29 58 52 52 62 20 20 20 $0 if 0=(RRa)XRRb 00005E60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005E80 20 20 20 20 20 20 20 20 61 23 28 72 2C 31 55 52 61 29 59 61 20 48 20 62 23 28 28 72 23 28 31 59 a#(r,1URa)Ya H b#((r#(1Y 00005EA0 52 61 29 53 31 59 52 62 29 2C 31 55 52 62 29 59 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 Ra)S1YRb),1URb)Yb 00005EC0 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00005EE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 " 00005F00 72 6F 77 66 6F 72 6D 20 69 73 20 75 73 65 64 20 62 79 20 65 2E 67 2E 20 63 63 61 74 2E 20 20 20 rowform is used by e.g. ccat. 00005F20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D "from 00005F40 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 'the apl handbook of techniques 00005F60 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 61 73 73 75 6D 65 73 20 ' copyright 1978, ibm. "assumes 00005F80 6C 6F 63 61 6C 69 7A 65 64 20 61 20 61 6E 64 20 62 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 localized a and b. 00005FA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 00 FF FF 00 00 FC FF 09 00 0A 00 63 $. ..ⁿ ○.◙.c 00005FC0 52 01 00 9C 01 C3 5E 24 00 A1 5B 1B 00 08 00 00 00 00 00 01 00 C3 5E A2 04 FF FF 00 00 FC FF 01 R☺.£☺├^$.í[←.◘.....☺.├^ó♦ ..ⁿ ☺ 00005FE0 00 08 00 5D 52 01 00 A5 5B 14 00 48 00 A1 5B FC FF 11 00 10 00 E3 52 01 00 0A 00 87 5C 5A 00 A1 .◘.]R☺.Ñ[¶.H.í[ⁿ ◄.►.πR☺.◙.ç\Z.í 00006000 5B 32 00 10 00 00 00 00 00 01 00 01 00 01 00 6C 00 A1 5B 32 00 0F 00 00 00 00 00 01 00 0A 00 87 [2.►.....☺.☺.☺.l.í[2.☼.....☺.◙.ç 00006020 5C 7E 00 A1 5B 38 00 0E 00 00 00 00 00 01 00 72 61 63 00 90 00 A1 5B 09 00 0D 00 00 00 00 00 01 \~.í[8.♫.....☺.rac.É.í[○.♪.....☺ 00006040 00 06 00 0E 00 A2 00 A1 5B FC FF 0C 00 0A 00 D2 52 01 00 00 20 0A 00 B4 00 A1 5B 32 00 0B 00 00 .♠.♫.ó.í[ⁿ ♀.◙.╥R☺.. ◙.┤.í[2.♂.. 00006060 00 00 00 01 00 01 00 0D 00 C6 00 A1 5B 32 00 0A 00 00 00 00 00 01 00 4C 69 6F 20 D8 00 A1 5B 08 ...☺.☺.♪.╞.í[2.◙.....☺.Lio ╪.í[◘ 00006080 00 09 00 00 00 00 00 01 00 20 20 20 20 EA 00 A1 5B 1D 00 08 00 00 00 00 00 01 00 20 20 20 20 FC .○.....☺. Ω.í[↔.◘.....☺. ⁿ 000060A0 00 A1 5B FD FF 07 00 08 00 FB 52 01 00 20 73 69 6E 0E 01 A1 5B FC FF 04 00 08 00 8E 52 01 00 74 .í[² •.◘.√R☺. sin♫☺í[ⁿ ♦.◘.ÄR☺.t 000060C0 6F 20 62 20 01 A1 5B FD FF 02 00 02 00 EF 52 01 00 64 69 6E 67 FF FF 00 00 04 00 01 00 00 00 00 o b ☺í[² ☻.☻.∩R☺.ding ..♦.☺.... 000060E0 00 01 00 22 20 6F 66 44 01 A1 5B FC FF 29 00 10 00 0B 53 01 00 20 20 20 20 56 01 A1 5B 39 00 28 .☺." ofD☺í[ⁿ ).►.♂S☺. V☺í[9.( 00006100 00 00 00 00 00 01 00 20 20 20 20 68 01 A1 5B 09 00 27 00 00 00 00 00 01 00 20 20 20 20 7A 01 A1 .....☺. h☺í[○.'.....☺. z☺í 00006120 5B FC FF 26 00 0C 00 02 53 01 00 27 48 20 4C 8C 01 A1 5B 32 00 25 00 00 00 00 00 01 00 20 20 20 [ⁿ &.♀.☻S☺.'H Lî☺í[2.%.....☺. 00006140 20 9E 01 A1 5B 35 00 24 00 00 00 00 00 01 00 20 20 20 20 B0 01 A1 5B FD FF 23 00 06 00 A9 54 01 ₧☺í[5.$.....☺. ░☺í[² #.♠.⌐T☺ 00006160 00 73 69 6E 2C C2 01 A1 5B 0C 00 22 00 00 00 00 00 01 00 20 20 20 20 D4 01 A1 5B 09 00 21 00 00 .sin,┬☺í[♀.".....☺. ╘☺í[○.!.. 00006180 00 00 00 01 00 20 20 20 20 E6 01 A1 5B FC FF 20 00 06 00 02 53 01 00 20 72 23 28 F8 01 A1 5B 32 ...☺. µ☺í[ⁿ .♠.☻S☺. r#(°☺í[2 000061A0 00 1F 00 00 00 00 00 01 00 20 20 20 20 0A 02 A1 5B 39 00 1E 00 00 00 00 00 01 00 20 20 20 20 1C .▼.....☺. ◙☻í[9.▲.....☺. ∟ 000061C0 02 A1 5B FD FF 1D 00 0E 00 0A 54 01 00 20 20 20 20 2E 02 A1 5B 33 00 1C 00 00 00 00 00 01 00 20 ☻í[² ↔.♫.◙T☺. .☻í[3.∟.....☺. 000061E0 20 20 20 40 02 A1 5B 09 00 1B 00 00 00 00 00 01 00 20 20 20 20 52 02 A1 5B FC FF 1A 00 10 00 01 @☻í[○.←.....☺. R☻í[ⁿ →.►.☺ 00006200 53 01 00 20 20 20 20 64 02 A1 5B 32 00 19 00 00 00 00 00 01 00 2D 20 62 75 76 02 A1 5B 39 00 18 S☺. d☻í[2.↓.....☺.- buv☻í[9.↑ 00006220 00 00 00 00 00 01 00 61 72 72 61 88 02 A1 5B FD FF 17 00 0E 00 85 53 01 00 61 74 74 65 9A 02 A1 .....☺.arraê☻í[² ↨.♫.àS☺.atteÜ☻í 00006240 5B 08 00 16 00 00 00 00 00 01 00 22 66 72 6F AC 02 A1 5B 03 00 15 00 00 00 00 00 01 00 64 62 6F [◘.▬.....☺."fro¼☻í[♥.§.....☺.dbo 00006260 6F BE 02 A1 5B FC FF 14 00 0C 00 F3 52 01 00 73 27 20 63 D0 02 A1 5B 08 00 13 00 00 00 00 00 01 o╛☻í[ⁿ ¶.♀.≤R☺.s' c╨☻í[◘.‼.....☺ 00006280 00 20 69 62 6D E2 02 A1 5B 08 00 12 00 00 00 00 00 01 00 72 20 6F 74 F4 02 A1 5B 03 00 11 00 00 . ibmΓ☻í[◘.↕.....☺.r ot⌠☻í[♥.◄.. 000062A0 00 00 00 01 00 20 63 61 6E 06 03 A1 5B FC FF 10 00 06 00 F3 52 01 00 66 72 6F 6D 18 03 A1 5B FC ...☺. can♠♥í[ⁿ ►.♠.≤R☺.from↑♥í[ⁿ 000062C0 FF 0E 00 10 00 F2 52 01 00 63 61 6C 20 2A 03 A1 5B FC FF 0C 00 0C 00 EE 52 01 00 75 63 74 75 3C ♫.►.≥R☺.cal *♥í[ⁿ ♀.♀.εR☺.uctu< 000062E0 03 A1 5B 39 00 0B 00 00 00 00 00 01 00 62 65 20 6F 4E 03 A1 5B 09 00 0A 00 00 00 00 00 01 00 22 ♥í[9.♂.....☺.be oN♥í[○.◙.....☺." 00006300 20 47 66 60 03 A1 5B FC FF 09 00 06 00 EE 52 01 00 20 20 20 20 72 03 A1 5B 32 00 08 00 00 00 00 Gf`♥í[ⁿ ○.♠.εR☺. r♥í[2.◘.... 00006320 00 01 00 20 20 20 20 84 03 A1 5B 35 00 07 00 00 00 00 00 01 00 20 20 20 20 96 03 A1 5B FD FF 06 .☺. ä♥í[5.•.....☺. û♥í[² ♠ 00006340 00 0E 00 20 53 01 00 73 69 6E 20 A8 03 A1 5B 0C 00 05 00 00 00 00 00 01 00 20 20 20 20 BA 03 A1 .♫. S☺.sin ¿♥í[♀.♣.....☺. ║♥í 00006360 5B FC FF 04 00 10 00 ED 52 01 00 20 20 20 20 CC 03 A1 5B 08 00 03 00 00 00 00 00 01 00 50 03 ED [ⁿ ♦.►.φR☺. ╠♥í[◘.♥.....☺.P♥φ 00006380 FF DE 03 A1 5B 03 00 02 00 00 00 00 00 01 00 DD 5B 1B 00 FF FF 00 00 FC FF 01 00 0E 00 EA 52 01 ▐♥í[♥.☻.....☺.▌[←. ..ⁿ ☺.♫.ΩR☺ 000063A0 00 DD 5B FC FF 02 04 A1 5B FD FF 02 00 08 00 BA 54 01 00 DD 5B FC FF FF FF 00 00 04 00 01 00 00 .▌[ⁿ ☻♦í[² ☻.◘.║T☺.▌[ⁿ ..♦.☺.. 000063C0 00 00 00 01 00 DD 5B FC FF FF FF 00 00 02 00 00 00 00 00 00 00 01 00 DD 5B 03 00 FF FF 00 00 02 ...☺.▌[ⁿ ..☻.......☺.▌[♥. ..☻ 000063E0 00 00 00 00 00 00 00 01 00 DD 5B FC FF FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 02 00 00 .......☺.▌[ⁿ ..☻.......☺...☻.. 00006400 00 36 00 32 01 F0 03 14 04 26 04 38 04 00 00 FF FF 02 00 72 00 08 00 72 6F 77 66 6F 72 6D 00 02 .6.2☺≡♥¶♦&♦8♦.. ☻.r.◘.rowform.☻ 00006420 00 62 00 02 00 61 00 04 00 01 00 00 00 02 00 00 00 03 00 69 66 00 04 00 01 00 00 00 02 00 00 00 .b.☻.a.♦.☺...☻...♥.if.♦.☺...☻... 00006440 02 00 62 00 02 00 62 00 04 00 01 00 00 00 02 00 01 00 02 00 62 00 04 00 01 00 00 00 02 00 01 00 ☻.b.☻.b.♦.☺...☻.☺.☻.b.♦.☺...☻.☺. 00006460 02 00 61 00 04 00 01 00 00 00 02 00 01 00 02 00 72 00 02 00 62 00 02 00 48 00 02 00 61 00 02 00 ☻.a.♦.☺...☻.☺.☻.r.☻.b.☻.H.☻.a.☻. 00006480 61 00 04 00 01 00 00 00 02 00 01 00 02 00 72 00 02 00 61 00 04 00 01 00 00 00 02 00 00 00 78 07 a.♦.☺...☻.☺.☻.r.☻.a.♦.☺...☻...x• 000064A0 00 72 6F 75 6E 64 73 00 00 01 00 0C 1C 00 09 00 05 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 .rounds..☺.♀∟.○.♣.☺.☺.☺.☺.☺.☺.☺. 000064C0 10 00 08 00 25 02 02 00 01 00 09 00 3D 00 20 72 20 23 20 75 20 72 6F 75 6E 64 73 20 61 20 20 20 ►.◘.%☻☻.☺.○.=. r # u rounds a 000064E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00006500 20 20 20 20 20 20 20 20 20 20 20 22 72 6F 75 6E 64 73 20 2D 20 73 65 6C 65 63 74 69 76 65 20 73 "rounds - selective s 00006520 79 6D 6D 65 74 72 69 63 61 6C 20 72 6F 75 6E 64 69 6E 67 20 20 20 20 20 20 20 20 20 20 20 20 20 ymmetrical rounding 00006540 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 "from 'the apl handbook 00006560 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 of techniques' copyright 1978, i 00006580 62 6D 2E 20 20 22 2D 74 6F 20 72 6F 75 6E 64 6F 66 66 20 6E 75 6D 62 65 72 73 20 74 6F 20 61 6E bm. "-to roundoff numbers to an 000065A0 79 20 67 69 76 65 6E 20 75 6E 69 74 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 y given units 000065C0 20 20 22 2D 74 6F 20 72 6F 75 6E 64 20 6E 65 67 61 74 69 76 65 20 6E 75 6D 62 65 72 73 20 61 77 "-to round negative numbers aw 000065E0 61 79 20 66 72 6F 6D 20 7A 65 72 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 ay from zero " 00006600 2D 72 65 73 75 6C 74 20 77 69 6C 6C 20 62 65 20 74 68 65 20 6E 65 61 72 65 73 74 20 6D 75 6C 74 -result will be the nearest mult 00006620 69 70 6C 65 20 6F 66 20 74 68 65 20 63 6F 72 72 65 73 70 6F 6E 64 69 6E 67 20 20 20 22 20 75 6E iple of the corresponding " un 00006640 69 74 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 it. 00006660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 75 20 69 73 20 61 "u is a 00006680 20 73 63 61 6C 61 72 20 6F 72 20 63 6F 6E 66 6F 72 6D 61 62 6C 65 20 73 74 72 75 63 74 75 72 65 scalar or conformable structure 000066A0 20 6F 66 20 73 70 65 63 69 66 69 65 64 20 75 6E 69 74 73 20 20 20 20 72 23 28 58 61 29 58 75 58 of specified units r#(Xa)XuX 000066C0 44 30 2E 35 2B 7C 61 25 75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D0.5+|a%u 000066E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 0E 00 0C 00 87 ↕. ..ⁿ ♫.♀.ç 00006700 52 01 00 20 20 20 20 24 00 2F 58 FC FF 07 00 02 00 87 52 01 00 6C 6C 20 62 00 00 2F 58 FC FF 05 R☺. $./Xⁿ •.☻.çR☺.ll b../Xⁿ ♣ 00006720 00 0A 00 1F 52 01 00 61 72 61 63 48 00 2F 58 03 00 03 00 00 00 00 00 01 00 20 6E 75 6D 24 00 2F .◙.▼R☺.aracH./X♥.♥.....☺. num$./ 00006740 58 FC FF 01 00 04 00 1F 52 01 00 D6 01 01 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 85 52 01 Xⁿ ☺.♦.▼R☺.╓☺☺. ..☻.......☺.àR☺ 00006760 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 01 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 . ..☻.......☺...☺. ..☻.......☺ 00006780 00 1E 53 01 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 01 00 FF FF 00 00 02 00 00 00 00 .▲S☺. ..☻.......☺...☺. ..☻.... 000067A0 00 00 00 01 00 00 00 01 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 01 00 FF FF 00 00 02 ...☺...☺. ..☻.......☺...☺. ..☻ 000067C0 00 00 00 00 00 00 00 01 00 00 00 01 00 EA 00 2F 58 FC FF 12 00 04 00 D2 52 01 00 00 00 01 00 FC .......☺...☺.Ω./Xⁿ ↕.♦.╥R☺...☺.ⁿ 000067E0 00 2F 58 05 00 11 00 00 00 00 00 01 00 00 00 01 00 0E 01 2F 58 FC FF 10 00 0A 00 AA 52 01 00 00 ./X♣.◄.....☺...☺.♫☺/Xⁿ ►.◙.¬R☺.. 00006800 00 01 00 20 01 2F 58 83 00 0F 00 00 00 00 00 01 00 00 00 01 00 32 01 2F 58 0B 00 0E 00 00 00 00 .☺. ☺/Xâ.☼.....☺...☺.2☺/X♂.♫.... 00006820 00 01 00 00 00 01 00 44 01 2F 58 FD FF 0B 00 0E 00 0D 53 01 00 85 52 01 00 56 01 2F 58 24 00 0A .☺...☺.D☺/X² ♂.♫.♪S☺.àR☺.V☺/X$.◙ 00006840 00 00 00 00 00 01 00 00 00 01 00 68 01 2F 58 38 00 09 00 00 00 00 00 01 00 00 00 01 00 7A 01 2F .....☺...☺.h☺/X8.○.....☺...☺.z☺/ 00006860 58 FC FF 08 00 04 00 AA 52 01 00 A9 52 01 00 8C 01 2F 58 38 00 07 00 00 00 00 00 01 00 00 00 01 Xⁿ ◘.♦.¬R☺.⌐R☺.î☺/X8.•.....☺...☺ 00006880 00 9E 01 2F 58 09 00 06 00 00 00 00 00 01 00 00 00 01 00 B0 01 2F 58 FC FF 05 00 0E 00 A9 52 01 .₧☺/X○.♠.....☺...☺.░☺/Xⁿ ♣.♫.⌐R☺ 000068A0 00 00 00 01 00 C2 01 2F 58 38 00 04 00 00 00 00 00 01 00 00 00 01 00 D4 01 2F 58 08 00 03 00 00 ...☺.┬☺/X8.♦.....☺...☺.╘☺/X◘.♥.. 000068C0 00 00 00 01 00 85 52 01 00 E6 01 2F 58 03 00 02 00 00 00 00 00 01 00 06 00 06 00 FF FF 00 00 FC ...☺.àR☺.µ☺/X♥.☻.....☺.♠.♠. ..ⁿ 000068E0 FF 01 00 02 00 88 52 01 00 00 00 08 00 00 00 5A 00 6C 00 7E 00 90 00 A2 00 B4 00 C6 00 D8 00 48 ☺.☻.êR☺...◘...Z.l.~.É.ó.┤.╞.╪.H 00006900 00 FF FF 02 00 61 00 07 00 72 6F 75 6E 64 73 00 02 00 75 00 02 00 72 00 02 00 75 00 02 00 61 00 . ☻.a.•.rounds.☻.u.☻.r.☻.u.☻.a. 00006920 02 00 01 00 00 00 08 00 00 00 00 00 00 00 E0 3F 02 00 75 00 02 00 61 00 02 00 72 00 78 06 00 72 ☻.☺...◘.......α?☻.u.☻.a.☻.r.x♠.r 00006940 6A 75 73 74 00 00 01 00 0C 15 00 0A 00 05 00 07 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 01 just..☺.♀§.◙.♣.•.☻.☺.☺.☺.☺.☺.☺.☺ 00006960 00 08 00 58 02 02 00 01 00 0A 00 3C 00 20 72 23 76 20 72 6A 75 73 74 20 61 20 20 20 20 20 20 20 .◘.X☻☻.☺.◙.<. r#v rjust a 00006980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000069A0 20 20 20 20 20 20 20 20 20 20 72 23 60 4F 76 20 6C 6A 75 73 74 60 4F 61 20 20 20 20 20 20 20 20 r#`Ov ljust`Oa 000069C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000069E0 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00006A00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00006A20 20 22 72 6A 75 73 74 20 2D 20 72 69 67 68 74 20 6A 75 73 74 69 66 79 20 61 6E 79 20 61 72 72 61 "rjust - right justify any arra 00006A40 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 y "fr 00006A60 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 om 'the apl handbook of techniqu 00006A80 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 74 6F 20 73 68 es' copyright 1978, ibm. "-to sh 00006AA0 69 66 74 20 73 69 67 6E 69 66 69 63 61 6E 74 20 63 68 61 72 61 63 74 65 72 73 20 6F 72 20 6E 75 ift significant characters or nu 00006AC0 6D 65 72 69 63 20 76 61 6C 75 65 73 20 74 6F 20 20 20 20 20 20 22 20 72 69 67 68 74 6D 6F 73 74 meric values to " rightmost 00006AE0 20 70 6F 73 69 74 69 6F 6E 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 positions. 00006B00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 69 6E 73 69 67 6E 69 66 69 63 61 6E 74 "-insignificant 00006B20 20 76 61 6C 75 65 73 20 6F 72 20 63 68 61 72 61 63 74 65 72 73 20 61 72 65 20 64 65 66 69 6E 65 values or characters are define 00006B40 64 20 69 6E 20 76 2E 20 20 20 20 20 20 22 20 74 68 65 79 20 63 61 6E 20 62 65 20 74 72 75 6E 63 d in v. " they can be trunc 00006B60 61 74 65 64 20 62 79 20 64 74 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ated by dt. 00006B80 20 20 20 20 20 20 20 20 20 22 2D 72 69 67 68 74 20 6A 75 73 74 69 66 69 63 61 74 69 6F 6E 20 69 "-right justification i 00006BA0 73 20 74 68 65 20 72 65 76 65 72 73 61 6C 20 6F 66 20 6C 65 66 74 20 6A 75 73 74 69 66 69 63 61 s the reversal of left justifica 00006BC0 74 69 6F 6E 2E 12 00 FF FF 00 00 FC FF 0B 00 02 00 54 52 01 00 01 00 07 00 24 00 28 53 FC FF 05 tion.↕. ..ⁿ ♂.☻.TR☺.☺.•.$.(Sⁿ ♣ 00006BE0 00 0A 00 53 52 01 00 20 20 20 20 00 00 28 53 FC FF 03 00 10 00 E1 51 01 00 20 20 20 20 48 00 28 .◙.SR☺. ..(Sⁿ ♥.►.ßQ☺. H.( 00006C00 53 03 00 02 00 00 00 00 00 01 00 20 20 20 20 24 00 28 53 FC FF 01 00 0A 00 E1 51 01 00 20 6C 6A S♥.☻.....☺. $.(Sⁿ ☺.◙.ßQ☺. lj 00006C20 75 6C 00 28 53 FC FF 0E 00 02 00 75 52 01 00 20 20 20 20 7E 00 28 53 46 00 0C 00 00 00 00 00 01 ul.(Sⁿ ♫.☻.uR☺. ~.(SF.♀.....☺ 00006C40 00 20 20 20 20 90 00 28 53 FC FF 07 00 0A 00 64 52 01 00 20 24 30 20 A2 00 28 53 FC FF 05 00 04 . É.(Sⁿ •.◙.dR☺. $0 ó.(Sⁿ ♣.♦ 00006C60 00 64 52 01 00 20 20 20 20 B4 00 28 53 46 00 03 00 00 00 00 00 01 00 20 20 20 20 C6 00 28 53 03 .dR☺. ┤.(SF.♥.....☺. ╞.(S♥ 00006C80 00 02 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 FC FF 01 00 0A 00 62 52 01 00 68 74 20 6A EA .☻.....☺. ..ⁿ ☺.◙.bR☺.ht jΩ 00006CA0 00 28 53 FD FF 02 00 0E 00 89 52 01 00 61 79 20 20 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 20 .(S² ☻.♫.ëR☺.ay ..♦.☺.....☺. 00006CC0 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 27 74 68 65 FF FF 00 00 02 00 00 00 00 00 00 ..☻.......☺.'the ..☻...... 00006CE0 00 01 00 6F 66 20 74 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 79 72 69 67 FF FF 00 00 02 00 00 .☺.of t ..☻.......☺.yrig ..☻.. 00006D00 00 00 00 00 00 01 00 22 2D 74 6F FF FF 00 00 02 00 00 00 00 00 00 00 01 00 63 61 6E 74 FF FF 00 .....☺."-to ..☻.......☺.cant . 00006D20 00 02 00 00 00 00 00 00 00 01 00 20 6E 75 6D FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 .☻.......☺. num ..☻.......☺. 00006D40 20 00 00 5A 00 D8 00 FC 00 0E 01 20 01 32 01 44 01 56 01 68 01 48 00 FF FF 02 00 61 00 06 00 72 ..Z.╪.ⁿ.♫☺ ☺2☺D☺V☺h☺H. ☻.a.♠.r 00006D60 6A 75 73 74 00 02 00 76 00 02 00 72 00 02 00 61 00 06 00 6C 6A 75 73 74 00 02 00 76 00 02 00 72 just.☻.v.☻.r.☻.a.♠.ljust.☻.v.☻.r 00006D80 00 04 00 01 00 00 00 02 00 00 00 78 07 00 71 70 72 6F 62 66 00 00 01 00 0C 2C 00 0A 00 05 00 1E .♦.☺...☻...x•.qprobf..☺.♀,.◙.♣.▲ 00006DA0 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 58 02 02 00 01 00 0A 00 3C 00 20 7A 23 .☻.☺.☺.☺.☺.☺.☺.☺.◘.X☻☻.☺.◙.<. z# 00006DC0 63 68 69 73 71 20 71 70 72 6F 62 66 20 6E 75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 chisq qprobf nu 00006DE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7A 23 28 2A 5F 63 z#(*_c 00006E00 68 69 73 71 25 32 29 58 28 63 68 69 73 71 25 32 29 42 60 4F 25 58 5C 31 53 5F 4C 69 6F 5F 49 44 hisq%2)X(chisq%2)B`O%X\1S_Lio_ID 00006E20 6E 75 25 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 nu%2 $0 00006E40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00006E60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 71 70 72 6F 62 66 20 2D 20 63 6F 6D 70 75 "qprobf - compu 00006E80 74 65 20 63 68 69 20 73 71 75 61 72 65 20 70 72 6F 62 61 62 69 6C 69 74 79 20 66 75 6E 63 74 69 te chi square probability functi 00006EA0 6F 6E 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 on "from 'the apl hand 00006EC0 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 book of techniques' copyright 19 00006EE0 37 38 2C 20 69 62 6D 2E 20 22 2D 63 6F 6D 70 75 74 65 20 74 68 65 20 70 72 6F 62 61 62 69 6C 69 78, ibm. "-compute the probabili 00006F00 74 79 20 6F 66 20 61 20 67 69 76 65 6E 20 63 68 69 20 73 71 75 61 72 65 20 76 61 6C 75 65 20 20 ty of a given chi square value 00006F20 20 20 20 20 20 22 20 6F 63 63 75 72 72 69 6E 67 20 66 6F 72 20 61 20 67 69 76 65 6E 20 6E 75 20 " occurring for a given nu 00006F40 28 6E 75 6D 62 65 72 20 6F 66 20 64 65 67 72 65 65 73 20 6F 66 20 66 72 65 65 64 6F 6D 29 20 20 (number of degrees of freedom) 00006F60 20 22 2D 6E 75 20 69 73 20 72 6F 75 6E 64 65 64 20 64 6F 77 6E 20 74 6F 20 74 68 65 20 6E 65 78 "-nu is rounded down to the nex 00006F80 74 20 6C 6F 77 65 72 20 65 76 65 6E 20 69 6E 74 65 67 65 72 20 20 20 20 20 20 20 20 20 22 2D 6E t lower even integer "-n 00006FA0 6F 74 65 20 74 68 65 20 65 78 74 72 65 6D 65 20 65 6C 65 67 61 6E 63 65 20 77 69 74 68 20 77 68 ote the extreme elegance with wh 00006FC0 69 63 68 20 69 74 20 69 73 20 70 6F 73 73 69 62 6C 65 20 69 6E 20 61 70 6C 22 20 74 6F 20 65 78 ich it is possible in apl" to ex 00006FE0 70 72 65 73 73 20 61 20 70 6F 77 65 72 20 73 65 72 69 65 73 20 20 20 20 20 20 20 20 20 20 20 20 press a power series 00007000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 10 00 0E ↕. ..ⁿ ►.♫ 00007020 00 C8 51 01 00 6F 66 20 74 24 00 9D 56 FC FF 09 00 04 00 9F 51 01 00 79 72 69 67 00 00 9D 56 FC .╚Q☺.of t$.¥Vⁿ ○.♦.ƒQ☺.yrig..¥Vⁿ 00007040 FF 03 00 0C 00 9E 51 01 00 20 20 20 20 48 00 9D 56 03 00 02 00 00 00 00 00 01 00 20 65 78 61 24 ♥.♀.₧Q☺. H.¥V♥.☻.....☺. exa$ 00007060 00 9D 56 FC FF 01 00 0E 00 2A 51 01 00 65 6E 74 72 6C 00 9D 56 FD FF 2A 00 06 00 4A 52 01 00 61 .¥Vⁿ ☺.♫.*Q☺.entrl.¥V² *.♠.JR☺.a 00007080 63 63 65 7E 00 9D 56 05 00 29 00 00 00 00 00 01 00 22 20 75 6E 90 00 9D 56 FC FF 27 00 0E 00 F6 cce~.¥V♣.).....☺." unÉ.¥Vⁿ '.♫.÷ 000070A0 51 01 00 74 75 72 6E A2 00 9D 56 24 00 26 00 00 00 00 00 01 00 65 66 61 75 B4 00 9D 56 29 00 25 Q☺.turnó.¥V$.&.....☺.efau┤.¥V).% 000070C0 00 00 00 00 00 01 00 65 63 74 6F C6 00 9D 56 3F 00 24 00 00 00 00 00 01 00 69 66 20 6E D8 00 9D .....☺.ecto╞.¥V?.$.....☺.if n╪.¥ 000070E0 56 ED FF 21 00 00 00 00 00 01 00 61 72 65 20 EA 00 9D 56 3F 00 20 00 00 00 00 00 01 00 6C 20 63 Vφ !.....☺.are Ω.¥V?. .....☺.l c 00007100 68 FC 00 9D 56 33 00 1F 00 00 00 00 00 01 00 20 20 20 20 0E 01 9D 56 FD FF 1E 00 0A 00 38 52 01 hⁿ.¥V3.▼.....☺. ♫☺¥V² ▲.◙.8R☺ 00007120 00 73 65 74 20 20 01 9D 56 3C 00 1D 00 00 00 00 00 01 00 63 68 65 63 32 01 9D 56 38 00 1C 00 00 .set ☺¥V<.↔.....☺.chec2☺¥V8.∟.. 00007140 00 00 00 01 00 69 66 69 65 44 01 9D 56 05 00 1B 00 00 00 00 00 01 00 22 2D 6D 73 56 01 9D 56 46 ...☺.ifieD☺¥V♣.←.....☺."-msV☺¥VF 00007160 00 19 00 00 00 00 00 01 00 65 72 20 73 68 01 9D 56 22 00 18 00 00 00 00 00 01 00 68 65 20 70 7A .↓.....☺.er sh☺¥V".↑.....☺.he pz 00007180 01 9D 56 09 00 17 00 00 00 00 00 01 00 67 65 2E 20 8C 01 9D 56 FD FF 16 00 04 00 2D 52 01 00 20 ☺¥V○.↨.....☺.ge. î☺¥V² ▬.♦.-R☺. 000071A0 69 66 20 9E 01 9D 56 05 00 15 00 00 00 00 00 01 00 74 68 65 20 B0 01 9D 56 FC FF 10 00 06 00 F6 if ₧☺¥V♣.§.....☺.the ░☺¥Vⁿ ►.♠.÷ 000071C0 51 01 00 74 65 72 20 C2 01 9D 56 08 00 0F 00 00 00 00 00 01 00 20 20 20 20 D4 01 9D 56 38 00 0E Q☺.ter ┬☺¥V◘.☼.....☺. ╘☺¥V8.♫ 000071E0 00 00 00 00 00 01 00 73 63 61 6C E6 01 9D 56 09 00 0D 00 00 00 00 00 01 00 75 65 2C 20 F8 01 9D .....☺.scalµ☺¥V○.♪.....☺.ue, °☺¥ 00007200 56 FD FF 0C 00 0C 00 FD 51 01 00 20 20 20 20 0A 02 9D 56 05 00 0B 00 00 00 00 00 01 00 22 20 20 V² ♀.♀.²Q☺. ◙☻¥V♣.♂.....☺." 00007220 20 1C 02 9D 56 FC FF 06 00 0A 00 C9 51 01 00 63 65 70 74 2E 02 9D 56 3F 00 05 00 00 00 00 00 01 ∟☻¥Vⁿ ♠.◙.╔Q☺.cept.☻¥V?.♣.....☺ 00007240 00 65 63 74 6F 40 02 9D 56 0A 00 04 00 00 00 00 00 01 00 20 20 20 20 52 02 9D 56 08 00 03 00 00 .ecto@☻¥V◙.♦.....☺. R☻¥V◘.♥.. 00007260 00 00 00 01 00 20 20 20 20 64 02 9D 56 03 00 02 00 00 00 00 00 01 00 65 63 74 6F FF FF 00 00 FC ...☺. d☻¥V♥.☻.....☺.ecto ..ⁿ 00007280 FF 01 00 04 00 C9 51 01 00 63 74 6F 72 88 02 9D 56 FD FF 02 00 0A 00 4F 52 01 00 20 20 20 20 FF ☺.♦.╔Q☺.ctorê☻¥V² ☻.◙.OR☺. 000072A0 FF 00 00 04 00 01 00 00 00 00 00 01 00 20 69 6E 74 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 2C ..♦.☺.....☺. int ..☻.......☺., 000072C0 20 77 69 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 6D 65 72 69 FF FF 00 00 02 00 00 00 00 00 00 wi ..☻.......☺.meri ..☻...... 000072E0 00 01 00 22 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 69 66 20 69 FF FF 00 00 02 00 00 .☺." ..☻.......☺.if i ..☻.. 00007300 00 00 00 00 00 01 00 6E 65 20 6D FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 .....☺.ne m ..☻.......☺. . 00007320 00 02 00 00 00 00 00 00 00 01 00 3A 20 47 63 00 00 5A 00 76 02 9A 02 AC 02 BE 02 D0 02 E2 02 F4 .☻.......☺.: Gc..Z.v☻Ü☻¼☻╛☻╨☻Γ☻⌠ 00007340 02 06 03 48 00 FF FF 03 00 6E 75 00 07 00 71 70 72 6F 62 66 00 06 00 63 68 69 73 71 00 02 00 7A ☻♠♥H. ♥.nu.•.qprobf.♠.chisq.☻.z 00007360 00 04 00 01 00 00 00 02 00 02 00 03 00 6E 75 00 04 00 01 00 00 00 02 00 01 00 04 00 01 00 00 00 .♦.☺...☻.☻.♥.nu.♦.☺...☻.☺.♦.☺... 00007380 02 00 02 00 06 00 63 68 69 73 71 00 04 00 01 00 00 00 02 00 02 00 06 00 63 68 69 73 71 00 02 00 ☻.☻.♠.chisq.♦.☺...☻.☻.♠.chisq.☻. 000073A0 7A 00 04 00 01 00 00 00 02 00 00 00 00 z.♦.☺...☻....