============================================================================================================================================== 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 0C 03 02 00 01 00 0D 00 3C 00 20 72 23 ☺.üvIh┬%<=☺.x☻.a.◘.♀♥☻.☺.♪.<. r# 00000020 6E 20 63 76 65 63 20 6C 6F 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n cvec loc 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 20 72 23 6E 52 31 20 r#nR1 00000060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000080 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 69 66 20 6E 3C 6C 6F $0 if n<lo 000000A0 63 2B 4C 69 6F 3D 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 c+Lio=0 000000C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 5B 6C 6F 63 5D 23 30 20 20 20 20 20 20 r[loc]#0 000000E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000100 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 20 20 20 20 20 $0 00000120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000140 20 20 20 20 20 20 20 20 20 22 63 76 65 63 20 2D 20 62 75 69 6C 64 20 63 6F 6D 70 72 65 73 73 69 "cvec - build compressi 00000160 6F 6E 20 6F 72 20 6C 6F 67 69 63 61 6C 20 76 65 63 74 6F 72 20 20 20 20 20 20 20 20 20 20 20 20 on or logical vector 00000180 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 6F 66 20 "from 'the apl handbook of 000001A0 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 62 6D 2E techniques' copyright 1978, ibm. 000001C0 20 22 2D 62 69 6E 61 72 79 20 76 65 63 74 6F 72 73 20 6F 66 20 61 72 62 69 74 72 61 72 79 20 6C "-binary vectors of arbitrary l 000001E0 65 6E 67 74 68 20 77 69 74 68 20 61 72 62 69 74 72 61 72 79 20 7A 65 72 6F 73 20 20 20 22 20 61 ength with arbitrary zeros " a 00000200 74 20 6E 75 6D 62 65 72 65 64 20 70 6F 73 69 74 69 6F 6E 73 2C 20 69 6E 20 75 73 65 72 27 73 20 t numbered positions, in user's 00000220 6F 72 69 67 69 6E 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 63 61 6E 20 67 origin. "-can g 00000240 65 6E 65 72 61 74 65 20 69 6E 70 75 74 20 74 6F 20 47 78 76 65 63 2E 20 20 20 20 20 20 20 20 20 enerate input to Gxvec. 00000260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 72 65 74 75 72 6E 73 20 61 "-returns a 00000280 20 63 6F 6D 70 72 65 73 73 69 6F 6E 20 76 65 63 74 6F 72 20 74 68 61 74 20 63 61 6E 20 73 65 6C compression vector that can sel 000002A0 65 63 74 20 61 6C 6C 20 62 75 74 20 6C 6F 63 2E 20 22 20 6C 6F 63 20 69 73 20 64 65 73 69 72 65 ect all but loc. " loc is desire 000002C0 64 20 72 6F 77 20 6F 66 20 47 6C 6F 63 20 28 4C 69 6F 23 30 29 2C 20 6F 72 20 73 69 6D 69 6C 61 d row of Gloc (Lio#0), or simila 000002E0 72 20 6E 75 6D 65 72 69 63 20 20 20 20 22 20 76 65 63 74 6F 72 2E 20 6E 20 69 73 20 6F 72 69 67 r numeric " vector. n is orig 00000300 69 6E 61 6C 20 6C 65 6E 67 74 68 20 6F 66 20 61 78 69 73 20 74 6F 20 62 65 20 63 6F 6D 70 72 65 inal length of axis to be compre 00000320 73 73 65 64 2E 20 20 20 20 78 08 00 61 64 64 63 6F 6C 73 00 00 01 00 0C 28 00 09 00 05 00 01 00 ssed. x◘.addcols..☺.♀(.○.♣.☺. 00000340 01 00 01 00 01 00 01 00 01 00 01 00 1C 00 08 00 1C 02 02 00 01 00 09 00 3C 00 7A 20 23 20 61 20 ☺.☺.☺.☺.☺.☺.∟.◘.∟☻☻.☺.○.<.z # a 00000360 61 64 64 63 6F 6C 73 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 addcols b 00000380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 61 64 64 63 6F 6C 73 20 2D "addcols - 000003A0 20 61 64 64 20 63 6F 6C 75 6D 6E 73 20 74 6F 20 61 20 6D 61 74 72 69 78 20 76 65 63 74 6F 72 20 add columns to a matrix vector 000003C0 6F 72 20 73 63 61 6C 61 72 2E 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C or scalar. "from 'the apl 000003E0 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 69 67 handbook of techniques' copyrig 00000400 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 3E 63 6F 6E 76 65 72 74 73 20 73 63 61 6C 61 72 20 ht 1978, ibm. ">converts scalar 00000420 61 6E 64 20 76 65 63 74 6F 72 20 72 69 67 68 74 20 61 72 67 75 6D 65 6E 74 73 20 69 6E 74 6F 20 and vector right arguments into 00000440 6F 6E 65 2D 72 6F 77 20 20 20 22 20 6D 61 74 72 69 63 65 73 20 61 6E 64 20 70 61 64 73 20 74 68 one-row " matrices and pads th 00000460 65 6D 20 6F 75 74 20 6F 6E 20 74 68 65 20 6C 65 66 74 20 28 70 6F 73 69 74 69 76 65 20 6C 65 66 em out on the left (positive lef 00000480 74 20 20 20 20 20 22 20 61 72 67 75 6D 65 6E 74 29 20 6F 72 20 6F 6E 20 74 68 65 20 72 69 67 68 t " argument) or on the righ 000004A0 74 20 28 6E 65 67 61 74 69 76 65 20 6C 65 66 74 20 61 72 67 75 6D 65 6E 74 29 2E 20 72 69 67 68 t (negative left argument). righ 000004C0 74 20 22 20 61 72 67 75 6D 65 6E 74 20 6D 61 79 20 62 65 20 65 69 74 68 65 72 20 6E 75 6D 65 72 t " argument may be either numer 000004E0 69 63 20 6F 72 20 63 68 61 72 61 63 74 65 72 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3E ic or character. "> 00000500 75 73 65 73 3A 20 6D 61 74 72 69 78 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 uses: matrix. 00000520 20 20 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 28 31 59 z#((1Y 00000540 52 62 29 2C 5F 61 2B 28 58 61 29 58 31 55 52 62 29 59 62 23 6D 61 74 72 69 78 20 62 20 20 20 20 Rb),_a+(Xa)X1URb)Yb#matrix b 00000560 20 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 0E 00 ↕. ..ⁿ ♫. 00000580 0E 00 21 51 01 00 20 20 20 20 24 00 86 52 FC FF 06 00 04 00 21 51 01 00 63 6F 6E 74 00 00 86 52 ♫.!Q☺. $.åRⁿ ♠.♦.!Q☺.cont..åR 000005A0 FC FF 04 00 08 00 0E 51 01 00 20 64 65 73 48 00 86 52 03 00 02 00 00 00 00 00 01 00 20 20 20 20 ⁿ ♦.◘.♫Q☺. desH.åR♥.☻.....☺. 000005C0 24 00 86 52 FC FF 00 00 02 00 0E 51 01 00 20 20 22 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 $.åRⁿ ..☻.♫Q☺. " ..☻.......☺. 000005E0 20 6D 61 74 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 72 65 73 75 FF FF 00 00 02 00 00 00 00 00 mat ..☻.......☺.resu ..☻..... 00000600 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 0F 00 08 00 FF FF 00 00 02 00 ..☺. ..☻.......☺.☼.◘. ..☻. 00000620 00 00 00 00 00 00 01 00 0E 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 0D 00 0E 00 FF FF ......☺.♫... ..☻.......☺.♪.♫. 00000640 00 00 02 00 00 00 00 00 00 00 01 00 06 00 04 00 EA 00 86 52 FC FF 21 00 06 00 E3 51 01 00 03 00 ..☻.......☺.♠.♦.Ω.åRⁿ !.♠.πQ☺.♥. 00000660 0E 00 FC 00 86 52 FC FF 1A 00 08 00 E1 51 01 00 02 00 00 00 0E 01 86 52 03 00 19 00 00 00 00 00 ♫.ⁿ.åRⁿ →.◘.ßQ☺.☻...♫☺åR♥.↓..... 00000680 01 00 01 00 04 00 20 01 86 52 FC FF 18 00 0A 00 DE 51 01 00 22 00 00 00 32 01 86 52 39 00 17 00 ☺.☺.♦. ☺åRⁿ ↑.◙.▐Q☺."...2☺åR9.↨. 000006A0 00 00 00 00 01 00 21 00 00 00 44 01 86 52 09 00 16 00 00 00 00 00 01 00 20 00 00 00 56 01 86 52 ....☺.!...D☺åR○.▬.....☺. ...V☺åR 000006C0 FC FF 15 00 02 00 47 51 01 00 1E 00 0A 00 68 01 86 52 32 00 14 00 00 00 00 00 01 00 1D 00 00 00 ⁿ §.☻.GQ☺.▲.◙.h☺åR2.¶.....☺.↔... 000006E0 7A 01 86 52 35 00 13 00 00 00 00 00 01 00 1C 00 10 00 8C 01 86 52 FD FF 12 00 0C 00 DA 51 01 00 z☺åR5.‼.....☺.∟.►.î☺åR² ↕.♀.┌Q☺. 00000700 1B 00 00 00 9E 01 86 52 38 00 11 00 00 00 00 00 01 00 1A 00 00 00 B0 01 86 52 09 00 10 00 00 00 ←...₧☺åR8.◄.....☺.→...░☺åR○.►... 00000720 00 00 01 00 19 00 00 00 C2 01 86 52 FC FF 0F 00 0C 00 46 51 01 00 18 00 00 00 D4 01 86 52 38 00 ..☺.↓...┬☺åRⁿ ☼.♀.FQ☺.↑...╘☺åR8. 00000740 0E 00 00 00 00 00 01 00 17 00 00 00 E6 01 86 52 08 00 0D 00 00 00 00 00 01 00 16 00 00 00 F8 01 ♫.....☺.↨...µ☺åR◘.♪.....☺.▬...°☺ 00000760 86 52 0B 00 0C 00 00 00 00 00 01 00 14 00 04 00 0A 02 86 52 FC FF 0B 00 06 00 46 51 01 00 13 00 åR♂.♀.....☺.¶.♦.◙☻åRⁿ ♂.♠.FQ☺.‼. 00000780 00 00 1C 02 86 52 3F 00 0A 00 00 00 00 00 01 00 11 00 0A 00 2E 02 86 52 0C 00 09 00 00 00 00 00 ..∟☻åR?.◙.....☺.◄.◙..☻åR♀.○..... 000007A0 01 00 10 00 00 00 40 02 86 52 09 00 08 00 00 00 00 00 01 00 0F 00 00 00 52 02 86 52 FC FF 07 00 ☺.►...@☻åR○.◘.....☺.☼...R☻åRⁿ •. 000007C0 0E 00 2D 51 01 00 0E 00 0E 00 64 02 86 52 32 00 06 00 00 00 00 00 01 00 0D 00 00 00 76 02 86 52 ♫.-Q☺.♫.♫.d☻åR2.♠.....☺.♪...v☻åR 000007E0 39 00 05 00 00 00 00 00 01 00 0C 00 00 00 88 02 86 52 FD FF 04 00 08 00 47 51 01 00 0B 00 00 00 9.♣.....☺.♀...ê☻åR² ♦.◘.GQ☺.♂... 00000800 9A 02 86 52 08 00 03 00 00 00 00 00 01 00 0A 00 04 00 AC 02 86 52 08 00 02 00 00 00 00 00 01 00 Ü☻åR◘.♥.....☺.◙.♦.¼☻åR◘.☻.....☺. 00000820 09 00 00 00 BE 02 86 52 03 00 01 00 00 00 00 00 01 00 08 00 0A 00 FF FF 00 00 FC FF 00 00 08 00 ○...╛☻åR♥.☺.....☺.◘.◙. ..ⁿ ..◘. 00000840 2D 51 01 00 07 00 00 00 00 00 5A 00 6C 00 7E 00 90 00 A2 00 B4 00 C6 00 D8 00 48 00 FF FF 02 00 -Q☺.•.....Z.l.~.É.ó.┤.╞.╪.H. ☻. 00000860 62 00 08 00 61 64 64 63 6F 6C 73 00 02 00 61 00 02 00 7A 00 02 00 62 00 07 00 6D 61 74 72 69 78 b.◘.addcols.☻.a.☻.z.☻.b.•.matrix 00000880 00 02 00 62 00 02 00 62 00 04 00 01 00 00 00 02 00 01 00 02 00 61 00 02 00 61 00 02 00 62 00 04 .☻.b.☻.b.♦.☺...☻.☺.☻.a.☻.a.☻.b.♦ 000008A0 00 01 00 00 00 02 00 01 00 02 00 7A 00 78 04 00 61 64 64 00 00 01 00 0C 39 00 17 00 05 00 01 00 .☺...☻.☺.☻.z.x♦.add..☺.♀9.↨.♣.☺. 000008C0 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 01 00 01 00 ☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺. 000008E0 01 00 01 00 01 00 01 00 1F 00 08 00 7B 05 02 00 01 00 17 00 3D 00 20 63 20 23 20 61 20 61 64 64 ☺.☺.☺.☺.▼.◘.{♣☻.☺.↨.=. c # a add 00000900 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b 00000920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 61 64 64 20 2D 20 6D 75 6C 74 69 70 "add - multip 00000940 72 65 63 69 73 69 6F 6E 20 69 6E 74 65 67 65 72 20 61 64 64 69 74 69 6F 6E 2E 20 20 20 20 20 20 recision integer addition. 00000960 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 00000980 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 000009A0 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 22 2D 61 64 64 20 61 20 74 6F 20 62 2C 20 67 69 76 69 6E 1978, ibm. "-add a to b, givin 000009C0 20 63 2C 20 75 73 69 6E 67 20 6D 75 6C 74 69 70 72 65 63 69 73 69 6F 6E 20 69 6E 74 65 67 65 72 c, using multiprecision integer 000009E0 20 20 20 20 20 20 20 20 20 20 22 20 61 72 69 74 68 6D 65 74 69 63 20 28 69 2E 65 2E 20 74 72 75 " arithmetic (i.e. tru 00000A00 6E 63 61 74 69 6E 67 20 61 6C 6C 20 72 65 73 75 6C 74 73 20 74 6F 20 6D 70 20 69 6E 74 65 67 65 ncating all results to mp intege 00000A20 72 73 29 2E 20 20 20 22 2D 61 20 61 6E 64 20 62 20 61 72 65 20 6E 75 6D 65 72 69 63 20 76 61 6C rs). "-a and b are numeric val 00000A40 75 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 ues. 00000A60 20 20 20 20 22 20 74 68 65 79 20 6D 61 79 20 62 65 3A 20 69 6E 74 65 67 65 72 20 6F 72 20 66 6C " they may be: integer or fl 00000A80 6F 61 74 69 6E 67 20 70 6F 69 6E 74 2C 20 6F 66 20 65 69 74 68 65 72 20 20 20 20 20 20 20 20 20 oating point, of either 00000AA0 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6F 72 64 69 6E 61 72 79 20 6F 72 20 65 78 74 65 " ordinary or exte 00000AC0 6E 64 65 64 20 70 72 65 63 69 73 69 6F 6E 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D nded precision. "- 00000AE0 63 20 77 69 6C 6C 20 62 65 20 61 20 6D 75 6C 74 69 70 72 65 63 69 73 69 6F 6E 20 69 6E 74 65 67 c will be a multiprecision integ 00000B00 65 72 20 28 7A 65 72 6F 20 65 78 70 6F 6E 65 6E 74 29 20 20 20 20 20 20 20 20 20 22 2D 61 6E 64 er (zero exponent) "-and 00000B20 20 65 78 74 65 6E 64 65 64 20 70 72 65 63 69 73 69 6F 6E 20 6E 75 6D 62 65 72 2C 20 69 6E 74 65 extended precision number, inte 00000B40 67 65 72 20 6F 72 20 66 6C 6F 61 74 69 6E 67 20 70 6F 69 6E 74 2C 20 20 22 20 69 73 20 72 65 70 ger or floating point, " is rep 00000B60 72 65 73 65 6E 74 65 64 20 62 79 20 61 6E 20 69 6E 74 65 67 65 72 20 76 65 63 74 6F 72 20 6F 66 resented by an integer vector of 00000B80 20 63 6F 6E 73 65 63 75 74 69 76 65 20 31 2D 37 20 20 20 20 20 22 20 64 65 63 69 6D 61 6C 20 64 consecutive 1-7 " decimal d 00000BA0 69 67 69 74 20 73 65 67 6D 65 6E 74 73 2C 20 74 68 65 20 66 69 72 73 74 20 6F 66 20 77 68 69 63 igit segments, the first of whic 00000BC0 68 20 69 73 20 74 68 65 20 65 78 70 6F 6E 65 6E 74 2C 22 20 7A 65 72 6F 20 66 6F 72 20 69 6E 74 h is the exponent," zero for int 00000BE0 65 67 65 72 73 2E 20 20 61 6C 6C 20 73 65 67 6D 65 6E 74 73 20 68 61 76 65 20 74 68 65 20 73 61 egers. all segments have the sa 00000C00 6D 65 20 73 69 67 6E 2C 20 77 69 74 68 20 20 22 20 74 68 65 20 65 78 63 65 70 74 69 6F 6E 20 6F me sign, with " the exception o 00000C20 66 20 74 68 65 20 65 78 70 6F 6E 65 6E 74 2E 28 73 65 65 20 66 61 64 64 29 2E 20 6C 65 61 64 69 f the exponent.(see fadd). leadi 00000C40 6E 67 20 7A 65 72 6F 73 20 20 20 20 22 20 61 72 65 20 65 6C 69 6D 69 6E 61 74 65 64 2E 20 20 20 ng zeros " are eliminated. 00000C60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000C80 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 20 66 69 78 20 74 6F 20 63 6F 6E 76 65 72 74 20 61 20 "-use fix to convert a 00000CA0 6E 75 6D 65 72 69 63 20 76 61 72 69 61 62 6C 65 20 74 6F 20 6D 70 20 69 6E 74 65 67 65 72 20 66 numeric variable to mp integer f 00000CC0 6F 72 6D 2E 20 20 22 2D 74 68 65 20 6D 75 6C 74 69 70 72 65 63 69 73 69 6F 6E 20 69 6E 74 65 67 orm. "-the multiprecision integ 00000CE0 65 72 20 61 72 69 74 68 6D 65 74 69 63 20 70 61 63 6B 61 67 65 20 63 6F 6D 70 72 69 73 65 73 3A er arithmetic package comprises: 00000D00 20 20 20 22 20 61 64 64 20 73 75 62 20 6D 75 6C 20 64 69 76 20 73 71 72 74 20 66 69 78 20 63 61 " add sub mul div sqrt fix ca 00000D20 6E 20 72 6F 75 6E 64 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 n rounds. 00000D40 22 2D 66 75 6E 63 74 69 6F 6E 73 20 6F 66 20 74 68 65 20 6D 75 6C 74 69 70 72 65 63 69 73 69 6F "-functions of the multiprecisio 00000D60 6E 20 69 6E 74 65 67 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 61 n integer " a 00000D80 72 69 74 68 6D 65 74 69 63 20 70 61 63 6B 61 67 65 20 61 72 65 20 75 73 65 64 20 74 68 65 20 74 rithmetic package are used the t 00000DA0 68 65 20 6D 75 6C 74 69 2D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 70 72 65 63 he multi- " prec 00000DC0 69 73 69 6F 6E 20 66 6C 6F 61 74 69 6E 67 20 70 6F 69 6E 74 20 61 72 69 74 68 6D 65 74 69 63 20 ision floating point arithmetic 00000DE0 70 61 63 6B 61 67 65 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 66 package. "-uses: f 00000E00 69 78 20 63 61 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ix can 00000E20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 23 63 61 6E 60 4F 28 63 59 60 4F c#can`O(cY`O 00000E40 61 29 2B 28 63 23 28 52 61 23 66 69 78 20 61 29 53 52 62 29 59 60 4F 62 23 66 69 78 20 62 20 20 a)+(c#(Ra#fix a)SRb)Y`Ob#fix b 00000E60 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 0B 00 06 00 22 51 01 ↕. ..ⁿ ♂.♠."Q☺ 00000E80 00 20 20 20 20 24 00 23 52 FC FF 07 00 0E 00 15 51 01 00 24 28 30 5E 00 00 23 52 FC FF 05 00 0A . $.#Rⁿ •.♫.§Q☺.$(0^..#Rⁿ ♣.◙ 00000EA0 00 10 51 01 00 20 20 20 20 48 00 23 52 03 00 03 00 00 00 00 00 01 00 20 20 20 20 24 00 23 52 FC .►Q☺. H.#R♥.♥.....☺. $.#Rⁿ 00000EC0 FF 01 00 04 00 10 51 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 6F 2B 38 5D FF ☺.♦.►Q☺. ..☻.......☺.o+8] 00000EE0 FF 00 00 02 00 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 20 ..☻.......☺. ..☻.......☺. 00000F00 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 60 62 60 6B FF FF 00 00 02 00 00 00 00 00 00 ..☻.......☺.`b`k ..☻...... 00000F20 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 .☺. ..☻.......☺. ..☻.. 00000F40 00 00 00 00 00 01 00 20 20 20 24 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 .....☺. $ ..☻.......☺. . 00000F60 00 02 00 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 20 20 20 .☻.......☺. ..☻.......☺. 00000F80 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 65 74 20 60 FF FF 00 00 02 00 00 00 00 00 00 00 01 ..☻.......☺.et ` ..☻.......☺ 00000FA0 00 63 65 20 63 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 .ce c ..☻.......☺. ..☻.... 00000FC0 00 00 00 01 00 72 6F 6D 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 6F 6F 6B 20 FF FF 00 00 02 ...☺.rom ..☻.......☺.ook ..☻ 00000FE0 00 00 00 00 00 00 00 01 00 20 63 6F 70 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 62 6D 2E 20 FF .......☺. cop ..☻.......☺.bm. 00001000 FF 00 00 02 00 00 00 00 00 00 00 01 00 5E 52 01 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 ..☻.......☺.^R☺. ..☻.......☺.. 00001020 00 01 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 5F 52 01 00 FF FF 00 00 02 00 00 00 00 00 00 .☺. ..☻.......☺._R☺. ..☻...... 00001040 00 01 00 5F 52 01 00 E6 01 23 52 FC FF 29 00 0E 00 22 52 01 00 00 00 01 00 F8 01 23 52 FC FF 25 .☺._R☺.µ☺#Rⁿ ).♫."R☺...☺.°☺#Rⁿ % 00001060 00 04 00 21 52 01 00 00 00 01 00 0A 02 23 52 03 00 24 00 00 00 00 00 01 00 60 52 01 00 1C 02 23 .♦.!R☺...☺.◙☻#R♥.$.....☺.`R☺.∟☻# 00001080 52 FC FF 23 00 06 00 1E 52 01 00 00 00 01 00 2E 02 23 52 46 00 21 00 00 00 00 00 01 00 00 00 01 Rⁿ #.♠.▲R☺...☺..☻#RF.!.....☺...☺ 000010A0 00 40 02 23 52 39 00 20 00 00 00 00 00 01 00 61 52 01 00 52 02 23 52 09 00 1F 00 00 00 00 00 01 .@☻#R9. .....☺.aR☺.R☻#R○.▼.....☺ 000010C0 00 00 00 01 00 64 02 23 52 FC FF 1E 00 10 00 18 52 01 00 00 00 01 00 76 02 23 52 32 00 1D 00 00 ...☺.d☻#Rⁿ ▲.►.↑R☺...☺.v☻#R2.↔.. 000010E0 00 00 00 01 00 00 00 01 00 88 02 23 52 33 00 1C 00 00 00 00 00 01 00 62 52 01 00 9A 02 23 52 09 ...☺...☺.ê☻#R3.∟.....☺.bR☺.Ü☻#R○ 00001100 00 1B 00 00 00 00 00 01 00 00 00 01 00 AC 02 23 52 FC FF 1A 00 0A 00 13 52 01 00 00 00 01 00 BE .←.....☺...☺.¼☻#Rⁿ →.◙.‼R☺...☺.╛ 00001120 02 23 52 FC FF 16 00 10 00 11 52 01 00 00 00 01 00 D0 02 23 52 03 00 15 00 00 00 00 00 01 00 00 ☻#Rⁿ ▬.►.◄R☺...☺.╨☻#R♥.§.....☺.. 00001140 00 01 00 E2 02 23 52 FC FF 14 00 02 00 0F 52 01 00 00 00 01 00 F4 02 23 52 32 00 13 00 00 00 00 .☺.Γ☻#Rⁿ ¶.☻.☼R☺...☺.⌠☻#R2.‼.... 00001160 00 01 00 64 52 01 00 06 03 23 52 08 00 12 00 00 00 00 00 01 00 64 52 01 00 18 03 23 52 03 00 11 .☺.dR☺.♠♥#R◘.↕.....☺.dR☺.↑♥#R♥.◄ 00001180 00 00 00 00 00 01 00 00 00 01 00 2A 03 23 52 FC FF 10 00 0C 00 09 52 01 00 65 52 01 00 3C 03 23 .....☺...☺.*♥#Rⁿ ►.♀.○R☺.eR☺.<♥# 000011A0 52 08 00 0F 00 00 00 00 00 01 00 00 00 01 00 4E 03 23 52 0B 00 0E 00 00 00 00 00 01 00 65 52 01 R◘.☼.....☺...☺.N♥#R♂.♫.....☺.eR☺ 000011C0 00 60 03 23 52 09 00 0D 00 00 00 00 00 01 00 65 52 01 00 72 03 23 52 FC FF 0C 00 06 00 04 52 01 .`♥#R○.♪.....☺.eR☺.r♥#Rⁿ ♀.♠.♦R☺ 000011E0 00 00 00 01 00 84 03 23 52 46 00 0A 00 00 00 00 00 01 00 00 00 01 00 96 03 23 52 39 00 09 00 00 ...☺.ä♥#RF.◙.....☺...☺.û♥#R9.○.. 00001200 00 00 00 01 00 00 00 01 00 A8 03 23 52 FC FF 08 00 04 00 00 52 01 00 DC 00 3C 52 BA 03 23 52 08 ...☺...☺.¿♥#Rⁿ ◘.♦..R☺.▄.<R║♥#R◘ 00001220 00 07 00 00 00 00 00 01 00 3C 52 06 00 CC 03 23 52 46 00 05 00 00 00 00 00 01 00 CB 5A 06 00 DE .•.....☺.<R♠.╠♥#RF.♣.....☺.╦Z♠.▐ 00001240 03 23 52 FC FF 02 00 0E 00 26 51 01 00 60 52 01 00 F0 03 23 52 03 00 01 00 00 00 00 00 01 00 05 ♥#Rⁿ ☻.♫.&Q☺.`R☺.≡♥#R♥.☺.....☺.♣ 00001260 00 01 00 FF FF 00 00 FC FF 00 00 08 00 26 51 01 00 14 00 05 00 00 00 5A 00 6C 00 7E 00 90 00 A2 .☺. ..ⁿ ..◘.&Q☺.¶.♣...Z.l.~.É.ó 00001280 00 B4 00 C6 00 D8 00 EA 00 FC 00 0E 01 20 01 32 01 44 01 56 01 68 01 7A 01 8C 01 9E 01 B0 01 C2 .┤.╞.╪.Ω.ⁿ.♫☺ ☺2☺D☺V☺h☺z☺î☺₧☺░☺┬ 000012A0 01 D4 01 48 00 FF FF 02 00 62 00 04 00 61 64 64 00 02 00 61 00 02 00 63 00 02 00 62 00 04 00 66 ☺╘☺H. ☻.b.♦.add.☻.a.☻.c.☻.b.♦.f 000012C0 69 78 00 02 00 62 00 02 00 62 00 02 00 61 00 04 00 66 69 78 00 02 00 61 00 02 00 63 00 02 00 61 ix.☻.b.☻.b.☻.a.♦.fix.☻.a.☻.c.☻.a 000012E0 00 02 00 63 00 04 00 63 61 6E 00 02 00 63 00 78 0B 00 61 64 6A 75 73 74 64 6F 77 6E 00 00 01 00 .☻.c.♦.can.☻.c.x♂.adjustdown..☺. 00001300 0C 4E 00 09 00 0B 00 01 00 01 00 01 00 01 00 22 00 06 00 0B 00 0A 00 08 00 1C 02 02 00 01 00 09 ♀N.○.♂.☺.☺.☺.☺.".♠.♂.◙.◘.∟☻☻.☺.○ 00001320 00 3C 00 7A 20 23 20 61 20 61 64 6A 75 73 74 64 6F 77 6E 20 62 3B 63 3B 64 3B 4C 69 6F 20 20 20 .<.z # a adjustdown b;c;d;Lio 00001340 20 20 20 20 20 20 20 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 " 00001360 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 68 6E 69 from 'the apl handbook of techni 00001380 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 65 78 74 ques' copyright 1978, ibm. "-ext 000013A0 65 6E 64 73 20 74 6F 20 72 6F 77 20 61 2C 20 74 68 65 20 63 68 61 72 61 63 74 65 72 20 27 7C 27 ends to row a, the character '|' 000013C0 20 75 73 65 64 20 61 73 20 61 20 73 65 70 61 72 61 74 6F 72 20 20 20 22 20 69 6E 20 6D 61 74 72 used as a separator " in matr 000013E0 69 78 20 62 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 ix b. 00001400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 69 66 20 69 6E "-uses: if in 00001420 64 65 78 20 72 6F 77 69 6E 64 69 63 65 73 20 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 dex rowindices h 00001440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 28 30 5A 63 23 31 59 52 64 23 62 5B 28 28 7C $(0Zc#1YRd#b[((| 00001460 61 29 5F 31 29 72 6F 77 69 6E 64 69 63 65 73 20 7A 23 62 3B 5D 29 2F 30 20 48 20 4C 69 6F 23 31 a)_1)rowindices z#b;])/0 H Lio#1 00001480 20 20 20 20 20 20 20 20 20 20 20 20 24 6C 31 20 69 66 20 63 4B 33 20 20 20 20 20 20 20 20 20 20 $l1 if cK3 000014A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000014C0 20 20 20 20 20 20 20 20 64 23 28 60 52 64 29 5B 49 33 3B 5D 20 20 20 20 20 20 20 20 20 20 20 20 d#(`Rd)[I3;] 000014E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001500 20 20 20 6C 31 3A 7A 5B 61 3B 27 7C 27 69 6E 64 65 78 20 64 5D 23 27 7C 27 20 20 20 20 20 20 20 l1:z[a;'|'index d]#'|' 00001520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7E ~ 00001540 00 FF FF 00 00 ED FF 17 00 00 00 00 00 01 00 6F 72 20 6E 24 00 54 53 1B 00 16 00 00 00 00 00 01 . ..φ ↨.....☺.or n$.TS←.▬.....☺ 00001560 00 6E 79 20 74 00 00 54 53 FC FF 15 00 06 00 52 51 01 00 20 20 20 20 48 00 54 53 1B 00 14 00 00 .ny t..TSⁿ §.♠.RQ☺. H.TS←.¶.. 00001580 00 00 00 01 00 65 73 3A 20 24 00 54 53 FC FF 13 00 10 00 4A 51 01 00 20 47 64 69 6C 00 54 53 1B ...☺.es: $.TSⁿ ‼.►.JQ☺. Gdil.TS← 000015A0 00 12 00 00 00 00 00 01 00 20 20 20 20 48 00 54 53 FC FF 11 00 08 00 35 51 01 00 20 20 00 00 90 .↕.....☺. H.TSⁿ ◄.◘.5Q☺. ..É 000015C0 00 54 53 FC FF 06 00 02 00 4A 51 01 00 01 00 01 00 6C 00 54 53 FC FF 04 00 10 00 2B 51 01 00 01 .TSⁿ ♠.☻.JQ☺.☺.☺.l.TSⁿ ♦.►.+Q☺.☺ 000015E0 00 74 20 B4 00 54 53 03 00 02 00 00 00 00 00 01 00 01 00 20 20 90 00 54 53 FC FF 00 00 0A 00 2B .t ┤.TS♥.☻.....☺.☺. É.TSⁿ ..◙.+ 00001600 51 01 00 01 00 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 20 24 FF FF 00 00 02 00 00 Q☺.☺. ..☻.......☺.☺. $ ..☻.. 00001620 00 00 00 00 00 01 00 01 00 23 72 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 20 20 FF FF 00 .....☺.☺.#r ..☻.......☺.☺. . 00001640 00 02 00 00 00 00 00 00 00 01 00 01 00 20 20 20 01 54 53 FD FF 30 00 06 00 05 53 01 00 01 00 20 .☻.......☺.☺. ☺TS² 0.♠.♣S☺.☺. 00001660 63 32 01 54 53 03 00 2F 00 00 00 00 00 01 00 01 00 23 72 44 01 54 53 ED FF 2C 00 00 00 00 00 01 c2☺TS♥./.....☺.☺.#rD☺TSφ ,.....☺ 00001680 00 01 00 20 20 56 01 54 53 FC FF 2A 00 04 00 FB 51 01 00 01 00 20 20 68 01 54 53 FD FF 28 00 0C .☺. V☺TSⁿ *.♦.√Q☺.☺. h☺TS² (.♀ 000016A0 00 1E 52 01 00 01 00 20 69 7A 01 54 53 0F 00 27 00 00 00 00 00 01 00 01 00 6B 23 8C 01 54 53 09 .▲R☺.☺. iz☺TS☼.'.....☺.☺.k#î☺TS○ 000016C0 00 26 00 00 00 00 00 01 00 01 00 65 27 9E 01 54 53 3D 00 25 00 00 00 00 00 01 00 01 00 20 24 B0 .&.....☺.☺.e'₧☺TS=.%.....☺.☺. $░ 000016E0 01 54 53 1B 00 24 00 00 00 00 00 01 00 01 00 29 58 C2 01 54 53 FC FF 23 00 06 00 F3 51 01 00 01 ☺TS←.$.....☺.☺.)X┬☺TSⁿ #.♠.≤Q☺.☺ 00001700 00 20 20 D4 01 54 53 03 00 22 00 00 00 00 00 01 00 01 00 20 20 E6 01 54 53 FC FF 21 00 10 00 F2 . ╘☺TS♥.".....☺.☺. µ☺TSⁿ !.►.≥ 00001720 51 01 00 01 00 20 48 F8 01 54 53 FC FF 16 00 06 00 F6 51 01 00 01 00 27 2C 0A 02 54 53 09 00 15 Q☺.☺. H°☺TSⁿ ▬.♠.÷Q☺.☺.',◙☻TS○.§ 00001740 00 00 00 00 00 01 00 01 00 2C 27 1C 02 54 53 FD FF 14 00 0E 00 0C 52 01 00 01 00 31 29 2E 02 54 .....☺.☺.,'∟☻TS² ¶.♫.♀R☺.☺.1).☻T 00001760 53 3F 00 13 00 00 00 00 00 01 00 01 00 20 6D 40 02 54 53 09 00 12 00 00 00 00 00 01 00 01 00 65 S?.‼.....☺.☺. m@☻TS○.↕.....☺.☺.e 00001780 6C 52 02 54 53 FC FF 11 00 0A 00 F2 51 01 00 01 00 6E 20 64 02 54 53 83 00 10 00 00 00 00 00 01 lR☻TSⁿ ◄.◙.≥Q☺.☺.n d☻TSâ.►.....☺ 000017A0 00 01 00 20 24 76 02 54 53 08 00 0F 00 00 00 00 00 01 00 01 00 20 20 88 02 54 53 08 00 0E 00 00 .☺. $v☻TS◘.☼.....☺.☺. ê☻TS◘.♫.. 000017C0 00 00 00 01 00 01 00 20 20 9A 02 54 53 3B 00 0D 00 00 00 00 00 01 00 01 00 20 20 AC 02 54 53 FC ...☺.☺. Ü☻TS;.♪.....☺.☺. ¼☻TSⁿ 000017E0 FF 0C 00 02 00 E8 51 01 00 01 00 74 20 BE 02 54 53 03 00 0B 00 00 00 00 00 01 00 01 00 63 6B D0 ♀.☻.ΦQ☺.☺.t ╛☻TS♥.♂.....☺.☺.ck╨ 00001800 02 54 53 FC FF 0A 00 0E 00 56 51 01 00 01 00 6F 72 E2 02 54 53 32 00 09 00 00 00 00 00 01 00 01 ☻TSⁿ ◙.♫.VQ☺.☺.orΓ☻TS2.○.....☺.☺ 00001820 00 20 20 F4 02 54 53 39 00 08 00 00 00 00 00 01 00 01 00 70 6C 06 03 54 53 FD FF 07 00 04 00 FC . ⌠☻TS9.◘.....☺.☺.pl♠♥TS² •.♦.ⁿ 00001840 51 01 00 01 00 68 6E 18 03 54 53 03 00 06 00 00 00 00 00 01 00 01 00 20 31 2A 03 54 53 FC FF 05 Q☺.☺.hn↑♥TS♥.♠.....☺.☺. 1*♥TSⁿ ♣ 00001860 00 08 00 56 51 01 00 01 00 22 2D 3C 03 54 53 3A 00 04 00 00 00 00 00 01 00 01 00 6E 65 4E 03 54 .◘.VQ☺.☺."-<♥TS:.♦.....☺.☺.neN♥T 00001880 53 FD FF 03 00 10 00 F4 51 01 00 01 00 20 61 60 03 54 53 08 00 02 00 00 00 00 00 01 00 01 00 20 S² ♥.►.⌠Q☺.☺. a`♥TS◘.☻.....☺.☺. 000018A0 69 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 01 00 69 74 84 03 54 53 FD FF 0A 00 0A 00 11 53 01 i ..♦.☺.....☺.☺.itä♥TS² ◙.◙.◄S☺ 000018C0 00 01 00 20 73 96 03 54 53 2B 00 09 00 00 00 00 00 01 00 01 00 20 63 A8 03 54 53 FC FF 08 00 0A .☺. sû♥TS+.○.....☺.☺. c¿♥TSⁿ ◘.◙ 000018E0 00 0E 52 01 00 01 00 01 00 BA 03 54 53 FC FF 05 00 04 00 0E 52 01 00 01 00 01 00 CC 03 54 53 FC .♫R☺.☺.☺.║♥TSⁿ ♣.♦.♫R☺.☺.☺.╠♥TSⁿ 00001900 FF 02 00 0A 00 FB 51 01 00 01 00 01 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 01 00 01 00 F0 ☻.◙.√Q☺.☺.☺. ..♦.☺.....☺.☺.☺.≡ 00001920 03 54 53 3D 00 0C 00 00 00 00 00 01 00 01 00 01 00 02 04 54 53 1B 00 0B 00 00 00 00 00 01 00 01 ♥TS=.♀.....☺.☺.☺.☻♦TS←.♂.....☺.☺ 00001940 00 01 00 14 04 54 53 FD FF 0A 00 02 00 1F 53 01 00 01 00 01 00 26 04 54 53 29 00 09 00 00 00 00 .☺.¶♦TS² ◙.☻.▼S☺.☺.☺.&♦TS).○.... 00001960 00 01 00 01 00 01 00 38 04 54 53 3B 00 08 00 00 00 00 00 01 00 01 00 01 00 4A 04 54 53 09 00 07 .☺.☺.☺.8♦TS;.◘.....☺.☺.☺.J♦TS○.• 00001980 00 00 00 00 00 01 00 01 00 01 00 5C 04 54 53 FC FF 06 00 08 00 20 52 01 00 01 00 01 00 6E 04 54 .....☺.☺.☺.\♦TSⁿ ♠.◘. R☺.☺.☺.n♦T 000019A0 53 47 00 04 00 00 00 00 00 01 00 01 00 01 00 80 04 54 53 08 00 03 00 00 00 00 00 01 00 01 00 01 SG.♦.....☺.☺.☺.Ç♦TS◘.♥.....☺.☺.☺ 000019C0 00 92 04 54 53 03 00 02 00 00 00 00 00 01 00 01 00 01 00 FF FF 00 00 FC FF 01 00 02 00 20 52 01 .Æ♦TS♥.☻.....☺.☺.☺. ..ⁿ ☺.☻. R☺ 000019E0 00 01 00 01 00 B6 04 54 53 07 00 13 00 04 00 52 53 01 00 01 00 01 00 C8 04 54 53 03 00 12 00 00 .☺.☺.╢♦TS•.‼.♦.RS☺.☺.☺.╚♦TS♥.↕.. 00001A00 00 00 00 01 00 01 00 01 00 DA 04 54 53 3D 00 11 00 00 00 00 00 01 00 01 00 01 00 EC 04 54 53 FC ...☺.☺.☺.┌♦TS=.◄.....☺.☺.☺.∞♦TSⁿ 00001A20 FF 10 00 10 00 04 53 01 00 01 00 01 00 FE 04 54 53 FC FF 0A 00 0C 00 10 53 01 00 01 00 01 00 10 ►.►.♦S☺.☺.☺.■♦TSⁿ ◙.♀.►S☺.☺.☺.► 00001A40 05 54 53 07 00 07 00 04 00 40 50 01 00 01 00 01 00 22 05 54 53 1B 00 06 00 00 00 00 00 01 00 01 ♣TS•.•.♦.@P☺.☺.☺."♣TS←.♠.....☺.☺ 00001A60 00 12 00 34 05 54 53 FC FF 05 00 0A 00 04 53 01 00 01 00 77 69 46 05 54 53 3B 00 04 00 00 00 00 .↕.4♣TSⁿ ♣.◙.♦S☺.☺.wiF♣TS;.♦.... 00001A80 00 01 00 01 00 20 20 58 05 54 53 FC FF 03 00 04 00 04 53 01 00 01 00 20 20 6A 05 54 53 1A 00 02 .☺.☺. X♣TSⁿ ♥.♦.♦S☺.☺. j♣TS→.☻ 00001AA0 00 00 00 00 00 01 00 01 00 6F 77 FF FF 00 00 FC FF 08 00 0E 00 20 52 01 00 01 00 6F 72 00 00 C6 .....☺.☺.ow ..ⁿ ◘.♫. R☺.☺.or..╞ 00001AC0 00 D8 00 EA 00 FC 00 0E 01 72 03 DE 03 A4 04 B4 00 6A 05 02 00 64 00 02 00 63 00 02 00 62 00 0B .╪.Ω.ⁿ.♫☺r♥▐♥ñ♦┤.j♣☻.d.☻.c.☻.b.♂ 00001AE0 00 61 64 6A 75 73 74 64 6F 77 6E 00 02 00 61 00 02 00 7A 00 04 00 01 00 00 00 02 00 01 00 02 00 .adjustdown.☻.a.☻.z.♦.☺...☻.☺.☻. 00001B00 48 00 04 00 01 00 00 00 02 00 00 00 02 00 62 00 02 00 7A 00 0B 00 72 6F 77 69 6E 64 69 63 65 73 H.♦.☺...☻...☻.b.☻.z.♂.rowindices 00001B20 00 04 00 01 00 00 00 02 00 01 00 02 00 61 00 02 00 62 00 02 00 64 00 04 00 01 00 00 00 02 00 01 .♦.☺...☻.☺.☻.a.☻.b.☻.d.♦.☺...☻.☺ 00001B40 00 02 00 63 00 04 00 01 00 00 00 02 00 00 00 04 00 01 00 00 00 02 00 03 00 02 00 63 00 03 00 69 .☻.c.♦.☺...☻...♦.☺...☻.♥.☻.c.♥.i 00001B60 66 00 03 00 6C 31 00 04 00 01 00 00 00 02 00 03 00 02 00 64 00 02 00 64 00 08 00 01 00 00 00 01 f.♥.l1.♦.☺...☻.♥.☻.d.☻.d.◘.☺...☺ 00001B80 00 7C 02 00 64 00 06 00 69 6E 64 65 78 00 08 00 01 00 00 00 01 00 7C 02 00 61 00 02 00 7A 00 03 .|☻.d.♠.index.◘.☺...☺.|☻.a.☻.z.♥ 00001BA0 00 6C 31 00 78 04 00 61 6C 66 00 08 00 5B 00 01 00 01 00 5B 00 20 61 62 63 64 65 66 67 68 69 6A .l1.x♦.alf.◘.[.☺.☺.[. abcdefghij 00001BC0 6B 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7A 48 60 5F 60 61 60 62 60 64 60 65 60 66 60 67 60 klmnopqrstuvwxyzH`_`a`b`d`e`f`g` 00001BE0 68 60 69 60 6A 60 6B 60 6C 60 6D 60 6E 60 6F 60 70 60 71 60 72 60 73 60 74 60 75 60 76 60 77 60 h`i`j`k`l`m`n`o`p`q`r`s`t`u`v`w` 00001C00 78 60 79 60 7A 3F 30 31 32 33 34 35 36 37 38 39 78 09 00 61 64 6A 75 73 74 75 70 00 00 01 00 0C x`y`z?0123456789x○.adjustup..☺.♀ 00001C20 4B 00 08 00 0B 00 01 00 01 00 01 00 23 00 06 00 08 00 0A 00 08 00 E0 01 02 00 01 00 08 00 3C 00 K.◘.♂.☺.☺.☺.#.♠.◘.◙.◘.α☺☻.☺.◘.<. 00001C40 7A 20 23 20 61 20 61 64 6A 75 73 74 75 70 20 62 3B 63 3B 64 3B 4C 69 6F 20 20 20 20 20 20 20 20 z # a adjustup b;c;d;Lio 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 22 61 64 6A "adj 00001C80 75 73 74 75 70 20 2D 20 65 78 74 65 6E 64 20 74 68 65 20 27 7C 27 20 75 70 20 6F 6E 65 20 6C 69 ustup - extend the '|' up one li 00001CA0 6E 65 20 69 6E 20 72 65 70 6F 72 74 20 66 6F 72 6D 61 74 74 69 6E 67 2E 22 66 72 6F 6D 20 27 74 ne in report formatting."from 't 00001CC0 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 20 63 he apl handbook of techniques' c 00001CE0 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 75 73 65 73 3A 20 69 66 20 69 opyright 1978, ibm. "-uses: if i 00001D00 6E 64 65 78 20 72 6F 77 69 6E 64 69 63 65 73 20 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ndex rowindices h 00001D20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 69 66 20 30 5A 63 23 31 59 52 64 23 $0 if 0Zc#1YRd# 00001D40 62 5B 28 28 7C 61 29 5F 31 59 52 62 29 72 6F 77 69 6E 64 69 63 65 73 20 7A 23 62 3B 5D 20 48 20 b[((|a)_1YRb)rowindices z#b;] H 00001D60 4C 69 6F 23 31 20 20 20 20 20 20 20 20 24 6C 31 20 69 66 20 63 4B 33 20 20 20 20 20 20 20 20 20 Lio#1 $l1 if cK3 00001D80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001DA0 20 20 20 20 20 20 20 20 20 64 23 64 5B 49 33 3B 5D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d#d[I3;] 00001DC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001DE0 20 20 20 20 6C 31 3A 7A 5B 61 3B 27 7C 27 69 6E 64 65 78 20 64 5D 23 27 7C 27 20 20 20 20 20 20 l1:z[a;'|'index d]#'|' 00001E00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001E20 7E 00 FF FF 00 00 ED FF 15 00 00 00 00 00 01 00 00 00 D7 4A 24 00 E5 53 1B 00 14 00 00 00 00 00 ~. ..φ §.....☺...╫J$.σS←.¶..... 00001E40 01 00 C4 08 5C 53 00 00 E5 53 FC FF 13 00 0E 00 7F 51 01 00 D6 08 5C 53 48 00 E5 53 1B 00 12 00 ☺.─◘\S..σSⁿ ‼.♫.⌂Q☺.╓◘\SH.σS←.↕. 00001E60 00 00 00 00 01 00 E8 08 5C 53 24 00 E5 53 FC FF 11 00 08 00 7F 51 01 00 FA 08 5C 53 6C 00 E5 53 ....☺.Φ◘\S$.σSⁿ ◄.◘.⌂Q☺.·◘\Sl.σS 00001E80 1B 00 10 00 00 00 00 00 01 00 0C 09 5C 53 48 00 E5 53 FC FF 0F 00 02 00 7F 51 01 00 1E 09 5C 53 ←.►.....☺.♀○\SH.σSⁿ ☼.☻.⌂Q☺.▲○\S 00001EA0 90 00 E5 53 FC FF 06 00 0A 00 55 51 01 00 30 09 5C 53 6C 00 E5 53 FC FF 04 00 04 00 55 51 01 00 É.σSⁿ ♠.◙.UQ☺.0○\Sl.σSⁿ ♦.♦.UQ☺. 00001EC0 00 00 00 00 B4 00 E5 53 03 00 02 00 00 00 00 00 01 00 54 09 5C 53 90 00 E5 53 FC FF 00 00 0E 00 ....┤.σS♥.☻.....☺.T○\SÉ.σSⁿ ..♫. 00001EE0 48 51 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 HQ☺..... ..☻.......☺..... ..☻. 00001F00 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 0E 01 ......☺..... ..☻.......☺.....♫☺ 00001F20 E5 53 FD FF 34 00 06 00 42 53 01 00 00 00 00 00 20 01 E5 53 03 00 33 00 00 00 00 00 01 00 00 00 σS² 4.♠.BS☺..... ☺σS♥.3.....☺... 00001F40 00 00 32 01 E5 53 ED FF 30 00 00 00 00 00 01 00 00 00 00 00 44 01 E5 53 FC FF 2E 00 04 00 11 53 ..2☺σSφ 0.....☺.....D☺σSⁿ ..♦.◄S 00001F60 01 00 00 00 00 00 56 01 E5 53 3D 00 2C 00 00 00 00 00 01 00 0C 00 53 55 68 01 E5 53 1B 00 2B 00 ☺.....V☺σS=.,.....☺.♀.SUh☺σS←.+. 00001F80 00 00 00 00 01 00 48 03 5C 53 7A 01 E5 53 FC FF 2A 00 0A 00 11 52 01 00 5C 53 42 09 8C 01 E5 53 ....☺.H♥\Sz☺σSⁿ *.◙.◄R☺.\SB○î☺σS 00001FA0 03 00 29 00 00 00 00 00 01 00 9C 09 5C 53 9E 01 E5 53 FC FF 28 00 04 00 11 52 01 00 53 55 06 00 ♥.).....☺.£○\S₧☺σSⁿ (.♦.◄R☺.SU♠. 00001FC0 B0 01 E5 53 FC FF 1D 00 0A 00 0F 53 01 00 53 55 06 00 C2 01 E5 53 09 00 1C 00 00 00 00 00 01 00 ░☺σSⁿ ↔.◙.☼S☺.SU♠.┬☺σS○.∟.....☺. 00001FE0 0C 00 53 55 D4 01 E5 53 FC FF 1B 00 0E 00 10 52 01 00 00 00 00 00 E6 01 E5 53 32 00 1A 00 00 00 ♀.SU╘☺σSⁿ ←.♫.►R☺.....µ☺σS2.→... 00002000 00 00 01 00 06 00 0C 00 F8 01 E5 53 39 00 19 00 00 00 00 00 01 00 14 00 05 00 0A 02 E5 53 FD FF ..☺.♠.♀.°☺σS9.↓.....☺.¶.♣.◙☻σS² 00002020 18 00 0C 00 0B 53 01 00 53 55 14 00 1C 02 E5 53 3F 00 17 00 00 00 00 00 01 00 0C 00 53 55 2E 02 ↑.♀.♂S☺.SU¶.∟☻σS?.↨.....☺.♀.SU.☻ 00002040 E5 53 09 00 16 00 00 00 00 00 01 00 00 00 00 00 40 02 E5 53 FC FF 15 00 0A 00 07 52 01 00 06 00 σS○.▬.....☺.....@☻σSⁿ §.◙.•R☺.♠. 00002060 0C 00 52 02 E5 53 83 00 14 00 00 00 00 00 01 00 08 00 00 00 64 02 E5 53 08 00 13 00 00 00 00 00 ♀.R☻σSâ.¶.....☺.◘...d☻σS◘.‼..... 00002080 01 00 01 00 00 00 76 02 E5 53 08 00 12 00 00 00 00 00 01 00 0C 00 53 55 88 02 E5 53 3B 00 11 00 ☺.☺...v☻σS◘.↕.....☺.♀.SUê☻σS;.◄. 000020A0 00 00 00 00 01 00 05 00 01 00 9A 02 E5 53 FC FF 10 00 04 00 07 52 01 00 06 00 0C 00 AC 02 E5 53 ....☺.♣.☺.Ü☻σSⁿ ►.♦.•R☺.♠.♀.¼☻σS 000020C0 03 00 0F 00 00 00 00 00 01 00 02 00 00 00 BE 02 E5 53 FC FF 0E 00 06 00 FE 51 01 00 01 00 00 00 ♥.☼.....☺.☻...╛☻σSⁿ ♫.♠.■Q☺.☺... 000020E0 D0 02 E5 53 32 00 0D 00 00 00 00 00 01 00 0C 00 53 55 E2 02 E5 53 39 00 0C 00 00 00 00 00 01 00 ╨☻σS2.♪.....☺.♀.SUΓ☻σS9.♀.....☺. 00002100 00 00 00 00 F4 02 E5 53 FD FF 0B 00 08 00 0F 52 01 00 00 00 00 00 06 03 E5 53 03 00 0A 00 00 00 ....⌠☻σS² ♂.◘.☼R☺.....♠♥σS♥.◙... 00002120 00 00 01 00 01 00 00 00 18 03 E5 53 FC FF 09 00 10 00 FD 51 01 00 05 00 01 00 2A 03 E5 53 3A 00 ..☺.☺...↑♥σSⁿ ○.►.²Q☺.♣.☺.*♥σS:. 00002140 08 00 00 00 00 00 01 00 06 00 0C 00 3C 03 E5 53 FD FF 07 00 04 00 08 52 01 00 06 00 0C 00 4E 03 ◘.....☺.♠.♀.<♥σS² •.♦.◘R☺.♠.♀.N♥ 00002160 E5 53 FC FF 04 00 0A 00 FD 51 01 00 06 00 0C 00 60 03 E5 53 FD FF 02 00 0C 00 FE 51 01 00 53 55 σSⁿ ♦.◙.²Q☺.♠.♀.`♥σS² ☻.♀.■Q☺.SU 00002180 06 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 03 00 01 00 84 03 E5 53 FD FF 0A 00 0C 00 4F 53 ♠. ..♦.☺.....☺.♥.☺.ä♥σS² ◙.♀.OS 000021A0 01 00 00 00 00 00 96 03 E5 53 2B 00 09 00 00 00 00 00 01 00 0C 00 53 55 A8 03 E5 53 FC FF 08 00 ☺.....û♥σS+.○.....☺.♀.SU¿♥σSⁿ ◘. 000021C0 04 00 41 53 01 00 00 00 00 00 BA 03 E5 53 FC FF 05 00 0A 00 1E 53 01 00 06 00 0C 00 CC 03 E5 53 ♦.AS☺.....║♥σSⁿ ♣.◙.▲S☺.♠.♀.╠♥σS 000021E0 FC FF 02 00 04 00 1E 53 01 00 06 00 0C 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 53 55 06 00 ⁿ ☻.♦.▲S☺.♠.♀. ..♦.☺.....☺.SU♠. 00002200 F0 03 E5 53 3D 00 08 00 00 00 00 00 01 00 00 00 02 00 02 04 E5 53 1B 00 07 00 00 00 00 00 01 00 ≡♥σS=.◘.....☺...☻.☻♦σS←.•.....☺. 00002220 00 00 00 00 14 04 E5 53 FD FF 06 00 08 00 D3 53 01 00 0A 00 16 53 26 04 E5 53 29 00 05 00 00 00 ....¶♦σS² ♠.◘.╙S☺.◙.▬S&♦σS).♣... 00002240 00 00 01 00 04 00 73 54 38 04 E5 53 3B 00 04 00 00 00 00 00 01 00 10 00 2A 54 4A 04 E5 53 FC FF ..☺.♦.sT8♦σS;.♦.....☺.►.*TJ♦σSⁿ 00002260 03 00 10 00 41 53 01 00 47 54 B2 01 5C 04 E5 53 03 00 02 00 00 00 00 00 01 00 01 00 01 00 FF FF ♥.►.AS☺.GT▓☺\♦σS♥.☻.....☺.☺.☺. 00002280 00 00 FC FF 01 00 0A 00 41 53 01 00 2A 54 01 00 80 04 E5 53 07 00 13 00 08 00 41 50 01 00 20 20 ..ⁿ ☺.◙.AS☺.*T☺.Ç♦σS•.‼.◘.AP☺. 000022A0 20 20 92 04 E5 53 03 00 12 00 00 00 00 00 01 00 20 20 20 20 A4 04 E5 53 3D 00 11 00 00 00 00 00 Æ♦σS♥.↕.....☺. ñ♦σS=.◄..... 000022C0 01 00 20 20 20 20 B6 04 E5 53 FC FF 10 00 06 00 D2 53 01 00 30 5E 3D 4C C8 04 E5 53 FC FF 0A 00 ☺. ╢♦σSⁿ ►.♠.╥S☺.0^=L╚♦σSⁿ ◙. 000022E0 08 00 51 53 01 00 20 20 20 20 DA 04 E5 53 07 00 07 00 0A 00 DD 53 01 00 20 20 20 20 EC 04 E5 53 ◘.QS☺. ┌♦σS•.•.◙.▌S☺. ∞♦σS 00002300 1B 00 06 00 00 00 00 00 01 00 20 20 20 20 FE 04 E5 53 FC FF 05 00 02 00 51 53 01 00 39 5D 20 20 ←.♠.....☺. ■♦σSⁿ ♣.☻.QS☺.9] 00002320 10 05 E5 53 3B 00 04 00 00 00 00 00 01 00 20 20 20 20 22 05 E5 53 FC FF 03 00 06 00 4F 53 01 00 ►♣σS;.♦.....☺. "♣σSⁿ ♥.♠.OS☺. 00002340 20 20 20 20 34 05 E5 53 1A 00 02 00 00 00 00 00 01 00 60 62 20 20 FF FF 00 00 FC FF 07 00 10 00 4♣σS→.☻.....☺.`b ..ⁿ •.►. 00002360 4E 53 01 00 20 20 20 20 00 00 C6 00 D8 00 EA 00 FC 00 72 03 DE 03 6E 04 B4 00 34 05 02 00 64 00 NS☺. ..╞.╪.Ω.ⁿ.r♥▐♥n♦┤.4♣☻.d. 00002380 02 00 63 00 02 00 62 00 09 00 61 64 6A 75 73 74 75 70 00 02 00 61 00 02 00 7A 00 04 00 01 00 00 ☻.c.☻.b.○.adjustup.☻.a.☻.z.♦.☺.. 000023A0 00 02 00 01 00 02 00 48 00 02 00 62 00 02 00 7A 00 0B 00 72 6F 77 69 6E 64 69 63 65 73 00 02 00 .☻.☺.☻.H.☻.b.☻.z.♂.rowindices.☻. 000023C0 62 00 04 00 01 00 00 00 02 00 01 00 02 00 61 00 02 00 62 00 02 00 64 00 04 00 01 00 00 00 02 00 b.♦.☺...☻.☺.☻.a.☻.b.☻.d.♦.☺...☻. 000023E0 01 00 02 00 63 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 04 ☺.☻.c.♦.☺...☻...♥.if.♦.☺...☻...♦ 00002400 00 01 00 00 00 02 00 03 00 02 00 63 00 03 00 69 66 00 03 00 6C 31 00 04 00 01 00 00 00 02 00 03 .☺...☻.♥.☻.c.♥.if.♥.l1.♦.☺...☻.♥ 00002420 00 02 00 64 00 02 00 64 00 08 00 01 00 00 00 01 00 7C 02 00 64 00 06 00 69 6E 64 65 78 00 08 00 .☻.d.☻.d.◘.☺...☺.|☻.d.♠.index.◘. 00002440 01 00 00 00 01 00 7C 02 00 61 00 02 00 7A 00 03 00 6C 31 00 78 08 00 61 64 64 72 6F 77 73 00 00 ☺...☺.|☻.a.☻.z.♥.l1.x◘.addrows.. 00002460 01 00 0C 28 00 09 00 05 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 1C 00 08 00 1C 02 02 00 01 ☺.♀(.○.♣.☺.☺.☺.☺.☺.☺.☺.∟.◘.∟☻☻.☺ 00002480 00 09 00 3C 00 7A 20 23 20 61 20 61 64 64 72 6F 77 73 20 62 20 20 20 20 20 20 20 20 20 20 20 20 .○.<.z # a addrows b 000024A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000024C0 20 22 61 64 64 72 6F 77 73 20 2D 20 61 64 64 20 72 6F 77 73 20 74 6F 20 61 20 6D 61 74 72 69 78 "addrows - add rows to a matrix 000024E0 20 76 65 63 74 6F 72 20 6F 72 20 73 63 61 6C 61 72 2E 20 20 20 20 20 20 20 20 20 20 20 22 66 72 vector or scalar. "fr 00002500 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 00002520 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 3E 63 6F 6E 76 65 es' copyright 1978, ibm. ">conve 00002540 72 74 73 20 73 63 61 6C 61 72 20 61 6E 64 20 76 65 63 74 6F 72 20 72 69 67 68 74 20 61 72 67 75 rts scalar and vector right argu 00002560 6D 65 6E 74 73 20 69 6E 74 6F 20 6F 6E 65 2D 72 6F 77 20 20 20 22 20 6D 61 74 72 69 63 65 73 20 ments into one-row " matrices 00002580 61 6E 64 20 70 61 64 73 20 74 68 65 6D 20 6F 75 74 20 6F 6E 20 74 6F 70 20 28 70 6F 73 69 74 69 and pads them out on top (positi 000025A0 76 65 20 6C 65 66 74 20 61 72 67 75 6D 65 6E 74 29 22 20 6F 72 20 6F 6E 20 74 68 65 20 62 6F 74 ve left argument)" or on the bot 000025C0 74 6F 6D 20 28 6E 65 67 61 74 69 76 65 20 6C 65 66 74 20 61 72 67 75 6D 65 6E 74 29 2E 20 20 72 tom (negative left argument). r 000025E0 69 67 68 74 20 61 72 67 75 6D 65 6E 74 22 20 6D 61 79 20 62 65 20 65 69 74 68 65 72 20 6E 75 6D ight argument" may be either num 00002600 65 72 69 63 20 6F 72 20 63 68 61 72 61 63 74 65 72 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 eric or character. 00002620 20 20 20 20 20 20 20 20 20 22 3E 75 73 65 73 3A 20 6D 61 74 72 69 78 2E 20 20 20 20 20 20 20 20 ">uses: matrix. 00002640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00002660 20 20 20 20 20 7A 23 28 28 5F 61 2B 28 58 61 29 58 31 59 52 62 29 2C 31 55 52 62 29 59 62 23 6D z#((_a+(Xa)X1YRb),1URb)Yb#m 00002680 61 74 72 69 78 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 atrix b 000026A0 20 12 00 FF FF 00 00 FC FF 0E 00 02 00 2D 51 01 00 20 20 20 20 24 00 D7 52 FC FF 06 00 08 00 2C ↕. ..ⁿ ♫.☻.-Q☺. $.╫Rⁿ ♠.◘., 000026C0 51 01 00 20 20 20 20 00 00 D7 52 FC FF 04 00 0C 00 0F 51 01 00 72 61 6E 6B 48 00 D7 52 03 00 02 Q☺. ..╫Rⁿ ♦.♀.☼Q☺.rankH.╫R♥.☻ 000026E0 00 00 00 00 00 01 00 20 20 20 20 24 00 D7 52 FC FF 00 00 06 00 0F 51 01 00 20 20 20 20 FF FF 00 .....☺. $.╫Rⁿ ..♠.☼Q☺. . 00002700 00 02 00 00 00 00 00 00 00 01 00 59 28 64 52 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 .☻.......☺.Y(dR ..☻.......☺. 00002720 20 FF FF 00 00 02 00 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 ..☻.......☺. ..☻.......☺ 00002740 00 30 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 .0 ..☻.......☺. ..☻.... 00002760 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 EA 00 D7 52 FC ...☺. ..☻.......☺. Ω.╫Rⁿ 00002780 FF 21 00 0E 00 DC 51 01 00 20 69 6E 20 FC 00 D7 52 FC FF 1A 00 08 00 E7 51 01 00 20 20 20 20 0E !.♫.▄Q☺. in ⁿ.╫Rⁿ →.◘.τQ☺. ♫ 000027A0 01 D7 52 03 00 19 00 00 00 00 00 01 00 20 20 20 20 20 01 D7 52 FC FF 18 00 08 00 DC 51 01 00 68 ☺╫R♥.↓.....☺. ☺╫Rⁿ ↑.◘.▄Q☺.h 000027C0 65 20 61 32 01 D7 52 39 00 17 00 00 00 00 00 01 00 20 74 65 63 44 01 D7 52 09 00 16 00 00 00 00 e a2☺╫R9.↨.....☺. tecD☺╫R○.▬.... 000027E0 00 01 00 69 67 68 74 56 01 D7 52 FC FF 15 00 02 00 DC 51 01 00 00 00 0D 53 68 01 D7 52 32 00 14 .☺.ightV☺╫Rⁿ §.☻.▄Q☺...♪Sh☺╫R2.¶ 00002800 00 00 00 00 00 01 00 20 7A 2A 00 7A 01 D7 52 35 00 13 00 00 00 00 00 01 00 20 20 06 00 8C 01 D7 .....☺. z*.z☺╫R5.‼.....☺. ♠.î☺╫ 00002820 52 FD FF 12 00 04 00 F1 51 01 00 20 20 4E 00 9E 01 D7 52 0C 00 11 00 00 00 00 00 01 00 28 31 2A R² ↕.♦.±Q☺. N.₧☺╫R♀.◄.....☺.(1* 00002840 00 B0 01 D7 52 09 00 10 00 00 00 00 00 01 00 30 29 00 00 C2 01 D7 52 FC FF 0F 00 0C 00 57 51 01 .░☺╫R○.►.....☺.0)..┬☺╫Rⁿ ☼.♀.WQ☺ 00002860 00 20 20 84 00 D4 01 D7 52 32 00 0E 00 00 00 00 00 01 00 59 66 96 00 E6 01 D7 52 39 00 0D 00 00 . ä.╘☺╫R2.♫.....☺.Yfû.µ☺╫R9.♪.. 00002880 00 00 00 01 00 20 20 A8 00 F8 01 D7 52 FD FF 0C 00 04 00 DD 51 01 00 20 20 BA 00 0A 02 D7 52 38 ...☺. ¿.°☺╫R² ♀.♦.▌Q☺. ║.◙☻╫R8 000028A0 00 0B 00 00 00 00 00 01 00 30 20 CC 00 1C 02 D7 52 09 00 0A 00 00 00 00 00 01 00 20 20 DE 00 2E .♂.....☺.0 ╠.∟☻╫R○.◙.....☺. ▐.. 000028C0 02 D7 52 FC FF 09 00 06 00 57 51 01 00 20 20 F0 00 40 02 D7 52 38 00 08 00 00 00 00 00 01 00 20 ☻╫Rⁿ ○.♠.WQ☺. ≡.@☻╫R8.◘.....☺. 000028E0 20 02 01 52 02 D7 52 08 00 07 00 00 00 00 00 01 00 72 65 14 01 64 02 D7 52 0B 00 06 00 00 00 00 ☻☺R☻╫R◘.•.....☺.re¶☺d☻╫R♂.♠.... 00002900 00 01 00 71 75 26 01 76 02 D7 52 FC FF 05 00 10 00 51 51 01 00 20 20 38 01 88 02 D7 52 3F 00 04 .☺.qu&☺v☻╫Rⁿ ♣.►.QQ☺. 8☺ê☻╫R?.♦ 00002920 00 00 00 00 00 01 00 68 65 4A 01 9A 02 D7 52 08 00 03 00 00 00 00 00 01 00 20 74 5C 01 AC 02 D7 .....☺.heJ☺Ü☻╫R◘.♥.....☺. t\☺¼☻╫ 00002940 52 08 00 02 00 00 00 00 00 01 00 69 67 6E 01 BE 02 D7 52 03 00 01 00 00 00 00 00 01 00 61 20 80 R◘.☻.....☺.ign☺╛☻╫R♥.☺.....☺.a Ç 00002960 01 FF FF 00 00 FC FF 00 00 06 00 4B 51 01 00 20 6D 92 01 00 00 5A 00 6C 00 7E 00 90 00 A2 00 B4 ☺ ..ⁿ ..♠.KQ☺. mÆ☺..Z.l.~.É.ó.┤ 00002980 00 C6 00 D8 00 48 00 FF FF 02 00 62 00 08 00 61 64 64 72 6F 77 73 00 02 00 61 00 02 00 7A 00 02 .╞.╪.H. ☻.b.◘.addrows.☻.a.☻.z.☻ 000029A0 00 62 00 07 00 6D 61 74 72 69 78 00 02 00 62 00 02 00 62 00 04 00 01 00 00 00 02 00 01 00 02 00 .b.•.matrix.☻.b.☻.b.♦.☺...☻.☺.☻. 000029C0 62 00 04 00 01 00 00 00 02 00 01 00 02 00 61 00 02 00 61 00 02 00 7A 00 78 09 00 61 6D 6F 72 74 b.♦.☺...☻.☺.☻.a.☻.a.☻.z.x○.amort 000029E0 69 7A 65 00 00 01 00 0A 85 00 15 00 06 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 ize..☺.◙à.§.♠.☺.☺.☺.☺.☺.☺.☺.☺.☺. 00002A00 01 00 01 00 0C 00 06 00 06 00 0B 00 10 00 0D 00 15 00 0A 00 13 00 08 00 01 05 02 00 01 00 15 00 ☺.☺.♀.♠.♠.♂.►.♪.§.◙.‼.◘.☺♣☻.☺.§. 00002A20 3D 00 6D 23 61 6D 6F 72 74 69 7A 65 20 6E 76 33 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 =.m#amortize nv3;Lio 00002A40 20 20 20 20 20 20 20 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 " 00002A60 61 6D 6F 72 74 69 7A 65 20 2D 20 6D 6F 72 74 67 61 67 65 20 63 61 6C 63 75 6C 61 74 69 6F 6E 20 amortize - mortgage calculation 00002A80 62 79 20 6D 6F 6E 74 68 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F by months. "fro 00002AA0 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 65 m 'the apl handbook of technique 00002AC0 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 22 2D 64 69 73 70 6C s' copyright 1978, ibm. "-displ 00002AE0 61 79 73 20 6D 6F 72 74 67 61 67 65 20 74 61 62 6C 65 20 69 6E 64 69 63 61 74 69 6E 67 20 74 68 ays mortgage table indicating th 00002B00 65 20 70 72 6F 67 72 65 73 73 69 76 65 20 64 65 62 74 20 20 20 20 22 20 72 65 64 75 63 74 69 6F e progressive debt " reductio 00002B20 6E 2C 20 61 6E 64 20 74 68 65 20 6C 65 76 65 6C 20 70 61 79 6D 65 6E 74 20 73 63 68 65 64 75 6C n, and the level payment schedul 00002B40 65 2C 20 61 73 20 69 74 20 62 72 65 61 6B 73 20 20 20 20 22 20 64 6F 77 6E 20 62 65 74 77 65 65 e, as it breaks " down betwee 00002B60 6E 20 61 6D 6F 72 74 69 7A 65 64 20 64 65 62 74 20 61 6E 64 20 69 6E 74 65 72 65 73 74 2E 20 20 n amortized debt and interest. 00002B80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 64 65 62 74 20 69 73 20 74 6F 74 61 6C 20 "-debt is total 00002BA0 75 6E 69 74 73 20 28 65 2E 67 2E 2C 20 64 6F 6C 6C 61 72 73 29 20 62 6F 72 72 6F 77 65 64 2E 20 units (e.g., dollars) borrowed. 00002BC0 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 72 61 74 65 20 69 73 20 61 6E 6E 75 61 6C 20 69 6E "-rate is annual in 00002BE0 74 65 72 65 73 74 2C 20 61 73 20 70 65 72 63 65 6E 74 61 67 65 20 28 65 2E 67 2E 2C 20 2E 30 39 terest, as percentage (e.g., .09 00002C00 35 29 2E 20 20 20 20 20 20 20 22 2D 6D 6F 6E 74 68 73 20 28 65 2E 67 2E 2C 20 31 32 30 20 69 66 5). "-months (e.g., 120 if 00002C20 20 74 65 6E 20 79 65 61 72 20 6D 6F 72 74 67 61 67 65 6C 29 2E 20 20 20 20 20 20 20 20 20 20 20 ten year mortgagel). 00002C40 20 20 20 20 20 20 20 22 2D 72 65 74 75 72 6E 73 20 61 20 6D 61 74 72 69 78 20 74 68 61 74 20 72 "-returns a matrix that r 00002C60 65 74 61 69 6E 73 20 66 75 6C 6C 20 70 72 65 63 69 73 69 6F 6E 20 20 20 20 20 20 20 20 20 20 20 etains full precision 00002C80 20 20 20 20 22 20 66 6F 72 20 73 75 6D 6D 61 72 79 20 63 61 6C 63 75 6C 61 74 69 6F 6E 73 2E 20 " for summary calculations. 00002CA0 28 73 65 65 20 65 78 61 6D 70 6C 65 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (see example) 00002CC0 20 22 2D 75 73 65 73 3A 20 48 6F 75 74 70 75 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "-uses: Houtput 00002CE0 20 20 20 20 20 20 20 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 r 00002D00 61 74 65 23 6E 76 33 5B 32 5D 25 31 32 58 4C 69 6F 23 31 20 20 20 20 20 20 20 20 20 20 20 20 20 ate#nv3[2]%12XLio#1 00002D20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6D 6F 6E 74 mont 00002D40 68 73 23 6E 76 33 5B 33 5D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 hs#nv3[3] 00002D60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 62 74 23 6E 76 debt#nv 00002D80 33 5B 31 5D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3[1] 00002DA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6D 23 28 6D 6F 6E 74 68 73 2C m#(months, 00002DC0 35 29 52 69 23 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 5)Ri#0 00002DE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 79 6D 65 6E 74 23 64 65 62 74 58 payment#debtX 00002E00 72 61 74 65 25 31 5F 25 28 31 2B 72 61 74 65 29 2A 6D 6F 6E 74 68 73 20 20 20 20 20 20 20 20 20 rate%1_%(1+rate)*months 00002E20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 63 6B 3A 6E 65 77 64 65 62 74 23 64 65 62 74 back:newdebt#debt 00002E40 5F 61 6D 6F 72 74 69 7A 65 64 23 70 61 79 6D 65 6E 74 5F 69 6E 74 65 72 65 73 74 23 64 65 62 74 _amortized#payment_interest#debt 00002E60 58 72 61 74 65 20 20 20 20 20 20 20 20 6D 5B 69 3B 5D 23 28 69 23 69 2B 31 29 2C 64 65 62 74 2C Xrate m[i;]#(i#i+1),debt, 00002E80 70 61 79 6D 65 6E 74 2C 61 6D 6F 72 74 69 7A 65 64 2C 69 6E 74 65 72 65 73 74 20 20 20 20 20 20 payment,amortized,interest 00002EA0 20 20 20 20 20 20 20 20 20 20 24 28 30 3C 64 65 62 74 23 6E 65 77 64 65 62 74 29 2F 62 61 63 6B $(0<debt#newdebt)/back 00002EC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00002EE0 20 20 20 20 20 20 20 27 6D 20 64 65 62 74 20 70 61 79 6D 74 20 61 6D 6F 72 74 20 69 6E 74 27 6F 'm debt paymt amort int'o 00002F00 75 74 70 75 74 28 39 20 30 46 30 20 2D 34 55 6D 29 2C 27 20 27 2C 27 20 27 2C 39 20 32 46 30 20 utput(9 0F0 -4Um),' ',' ',9 2F0 00002F20 31 55 6D 36 00 FF FF 00 00 ED FF 0F 00 00 00 00 00 01 00 17 FF 36 E1 24 00 FC 55 1B 00 0E 00 00 1Um6. ..φ ☼.....☺.↨ 6ß$.ⁿU←.♫.. 00002F40 00 00 00 01 00 50 CD 3F 07 00 00 FC 55 FC FF 0B 00 0A 00 49 51 01 00 41 2D 53 1E 48 00 FC 55 FC ...☺.P═?•..ⁿUⁿ ♂.◙.IQ☺.A-S▲H.ⁿUⁿ 00002F60 FF 02 00 04 00 EC 51 01 00 18 B0 01 50 5A 00 FC 55 03 00 01 00 00 00 00 00 01 00 B8 13 16 8D 24 ☻.♦.∞Q☺.↑░☺PZ.ⁿU♥.☺.....☺.╕‼▬ì$ 00002F80 00 FC 55 FC FF 00 00 04 00 49 51 01 00 BB FB 1D 53 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 16 .ⁿUⁿ ..♦.IQ☺.╗√↔S ..☻.......☺.▬ 00002FA0 8D 86 70 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 68 FF 2D C6 FF FF 00 00 02 00 00 00 00 00 00 ìåp ..☻.......☺.h -╞ ..☻...... 00002FC0 00 01 00 FF 8A 87 C0 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 3E CB 18 00 FF FF 00 00 02 00 00 .☺. èç└ ..☻.......☺.>╦↑. ..☻.. 00002FE0 00 00 00 00 00 01 00 00 74 08 8B FF FF 00 00 02 00 00 00 00 00 00 00 01 00 8B F7 47 C6 FF FF 00 .....☺..t◘ï ..☻.......☺.ï≈G╞ . 00003000 00 02 00 00 00 00 00 00 00 01 00 16 8D 86 68 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 B8 7E 2B .☻.......☺.▬ìåh ..☻.......☺.╕~+ 00003020 89 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 C4 B7 78 2B FF FF 00 00 02 00 00 00 00 00 00 00 01 ë ..☻.......☺.─╖x+ ..☻.......☺ 00003040 00 26 FF 37 1E FF FF 00 00 02 00 00 00 00 00 00 00 01 00 5E FC 2B DF 44 01 FC 55 FD FF 14 00 0E .& 7▲ ..☻.......☺.^ⁿ+▀D☺ⁿU² ¶.♫ 00003060 00 37 53 01 00 06 D8 18 75 56 01 FC 55 03 00 13 00 00 00 00 00 01 00 00 74 18 FF 68 01 FC 55 ED .7S☺.♠╪↑uV☺ⁿU♥.‼.....☺..t↑ h☺ⁿUφ 00003080 FF 10 00 00 00 00 00 01 00 63 50 CD 3F 7A 01 FC 55 38 00 0F 00 00 00 00 00 01 00 67 BF 02 00 8C ►.....☺.cP═?z☺ⁿU8.☼.....☺.g┐☻.î 000030A0 01 FC 55 FD FF 0D 00 06 00 31 53 01 00 64 80 3E D9 9E 01 FC 55 05 00 0C 00 00 00 00 00 01 00 DA ☺ⁿU² ♪.♠.1S☺.dÇ>┘₧☺ⁿU♣.♀.....☺.┌ 000030C0 18 00 74 B0 01 FC 55 3D 00 0B 00 00 00 00 00 01 00 16 8D 86 68 C2 01 FC 55 FD FF 0A 00 0A 00 2B ↑.t░☺ⁿU=.♂.....☺.▬ìåh┬☺ⁿU² ◙.◙.+ 000030E0 53 01 00 63 0B 06 62 D4 01 FC 55 3B 00 09 00 00 00 00 00 01 00 B8 4C 2D 52 E6 01 FC 55 FC FF 06 S☺.c♂♠b╘☺ⁿU;.○.....☺.╕L-Rµ☺ⁿUⁿ ♠ 00003100 00 10 00 E2 51 01 00 83 C4 08 5F F8 01 FC 55 03 00 05 00 00 00 00 00 01 00 50 CD 3F 07 FF FF 00 .►.ΓQ☺.â─◘_°☺ⁿU♥.♣.....☺.P═?• . 00003120 00 FC FF 01 00 0A 00 54 51 01 00 CB 45 55 8B 1C 02 FC 55 3D 00 0D 00 00 00 00 00 01 00 12 B8 02 .ⁿ ☺.◙.TQ☺.╦EUï∟☻ⁿU=.♪.....☺.↕╕☻ 00003140 00 2E 02 FC 55 FD FF 0C 00 0A 00 3E 53 01 00 00 8B 46 06 40 02 FC 55 3B 00 0B 00 00 00 00 00 01 ..☻ⁿU² ♀.◙.>S☺..ïF♠@☻ⁿU;.♂.....☺ 00003160 00 8E 4B 55 8B 52 02 FC 55 FC FF 08 00 10 00 EC 51 01 00 62 A3 B6 62 64 02 FC 55 03 00 07 00 00 .ÄKUïR☻ⁿUⁿ ◘.►.∞Q☺.bú╢bd☻ⁿU♥.•.. 00003180 00 00 00 01 00 1E 3E B8 C3 FF FF 00 00 FC FF 01 00 10 00 17 52 01 00 C6 06 BF 00 88 02 FC 55 3D ...☺.▲>╕├ ..ⁿ ☺.►.↨R☺.╞♠┐.ê☻ⁿU= 000031A0 00 0B 00 00 00 00 00 01 00 09 C0 75 03 9A 02 FC 55 FD FF 0A 00 04 00 4D 53 01 00 01 8B 46 04 AC .♂.....☺.○└u♥Ü☻ⁿU² ◙.♦.MS☺.☺ïF♦¼ 000031C0 02 FC 55 3B 00 09 00 00 00 00 00 01 00 50 FF 36 CA BE 02 FC 55 FC FF 06 00 0A 00 18 52 01 00 46 ☻ⁿU;.○.....☺.P 6╩╛☻ⁿUⁿ ♠.◙.↑R☺.F 000031E0 FC 31 F6 D0 02 FC 55 03 00 05 00 00 00 00 00 01 00 83 46 FC 02 FF FF 00 00 FC FF 01 00 06 00 28 ⁿ1÷╨☻ⁿU♥.♣.....☺.âFⁿ☻ ..ⁿ ☺.♠.( 00003200 53 01 00 36 C8 6A FF F4 02 FC 55 FD FF 10 00 0E 00 E1 53 01 00 3E B8 81 01 06 03 FC 55 03 00 0F S☺.6╚j ⌠☻ⁿU² ►.♫.ßS☺.>╕ü☺♠♥ⁿU♥.☼ 00003220 00 00 00 00 00 01 00 7A 7A 50 9A 18 03 FC 55 FC FF 0E 00 08 00 4C 53 01 00 50 9A 00 73 2A 03 FC .....☺.zzPÜ↑♥ⁿUⁿ ♫.◘.LS☺.PÜ.s*♥ⁿ 00003240 55 32 00 0D 00 00 00 00 00 01 00 26 09 C0 74 3C 03 FC 55 09 00 0C 00 00 00 00 00 01 00 09 C0 75 U2.♪.....☺.&○└t<♥ⁿU○.♀.....☺.○└u 00003260 04 4E 03 FC 55 FD FF 0B 00 04 00 D8 53 01 00 31 C0 5E 8B 60 03 FC 55 0C 00 0A 00 00 00 00 00 01 ♦N♥ⁿU² ♂.♦.╪S☺.1└^ï`♥ⁿU♀.◙.....☺ 00003280 00 11 8B 76 04 72 03 FC 55 FC FF 04 00 0C 00 30 53 01 00 5E 5D C2 04 84 03 FC 55 08 00 03 00 00 .◄ïv♦r♥ⁿUⁿ ♦.♀.0S☺.^]┬♦ä♥ⁿU◘.♥.. 000032A0 00 00 00 01 00 90 09 C0 75 96 03 FC 55 03 00 02 00 00 00 00 00 01 00 9E 66 FF 36 FF FF 00 00 FC ...☺.É○└uû♥ⁿU♥.☻.....☺.₧f 6 ..ⁿ 000032C0 FF 01 00 0E 00 28 53 01 00 C2 04 00 31 BA 03 FC 55 FC FF 1F 00 0C 00 E0 54 01 00 E8 5F 08 90 CC ☺.♫.(S☺.┬♦.1║♥ⁿUⁿ ▼.♀.αT☺.Φ_◘É╠ 000032E0 03 FC 55 0A 00 1E 00 00 00 00 00 01 00 00 A1 EA 00 DE 03 FC 55 09 00 1D 00 00 00 00 00 01 00 50 ♥ⁿU◙.▲.....☺..íΩ.▐♥ⁿU○.↔.....☺.P 00003300 9A 95 41 F0 03 FC 55 FC FF 19 00 08 00 E4 53 01 00 41 29 34 89 02 04 FC 55 0B 00 18 00 00 00 00 ÜòA≡♥ⁿUⁿ ↓.◘.ΣS☺.A)4ë☻♦ⁿU♂.↑.... 00003320 00 01 00 00 75 04 3B 14 04 FC 55 FD FF 17 00 0E 00 DC 54 01 00 75 D8 FF 76 26 04 FC 55 08 00 16 .☺..u♦;¶♦ⁿU² ↨.♫.▄T☺.u╪ v&♦ⁿU◘.▬ 00003340 00 00 00 00 00 01 00 83 C4 08 09 38 04 FC 55 05 00 15 00 00 00 00 00 01 00 31 C0 50 50 4A 04 FC .....☺.â─◘○8♦ⁿU♣.§.....☺.1└PPJ♦ⁿ 00003360 55 3F 00 14 00 00 00 00 00 01 00 9A 86 41 29 5C 04 FC 55 FD FF 13 00 08 00 D6 54 01 00 5D C2 04 U?.¶.....☺.ÜåA)\♦ⁿU² ‼.◘.╓T☺.]┬♦ 00003380 00 6E 04 FC 55 05 00 12 00 00 00 00 00 01 00 00 52 50 B8 80 04 FC 55 FC FF 0E 00 06 00 E1 53 01 .n♦ⁿU♣.↕.....☺..RP╕Ç♦ⁿUⁿ ♫.♠.ßS☺ 000033A0 00 E9 BB 00 1E 92 04 FC 55 38 00 0D 00 00 00 00 00 01 00 14 83 FE 01 A4 04 FC 55 FC FF 09 00 06 .Θ╗.▲Æ♦ⁿU8.♪.....☺.¶â■☺ñ♦ⁿUⁿ ○.♠ 000033C0 00 D7 53 01 00 E9 97 00 C7 B6 04 FC 55 03 00 08 00 00 00 00 00 01 00 31 FF EB 3F FF FF 00 00 FC .╫S☺.Θù.╟╢♦ⁿU♥.◘.....☺.1 δ? ..ⁿ 000033E0 FF 01 00 0C 00 D2 53 01 00 B8 01 00 50 DA 04 FC 55 FC FF 32 00 0C 00 A4 55 01 00 09 C0 74 60 EC ☺.♀.╥S☺.╕☺.P┌♦ⁿUⁿ 2.♀.ñU☺.○└t`∞ 00003400 04 FC 55 38 00 31 00 00 00 00 00 01 00 50 40 50 9A FE 04 FC 55 FC FF 2D 00 0C 00 A1 55 01 00 16 ♦ⁿU8.1.....☺.P@PÜ■♦ⁿUⁿ -.♀.íU☺.▬ 00003420 8D 46 FA 10 05 FC 55 03 00 2C 00 00 00 00 00 01 00 D2 0D 90 C7 22 05 FC 55 FC FF 24 00 08 00 9E ìF·►♣ⁿU♥.,.....☺.╥♪É╟"♣ⁿUⁿ $.◘.₧ 00003440 55 01 00 FE C7 06 90 34 05 FC 55 3F 00 23 00 00 00 00 00 01 00 48 5F 5E 8B 46 05 FC 55 FC FF 1C U☺.■╟♠É4♣ⁿU?.#.....☺.H_^ïF♣ⁿUⁿ ∟ 00003460 00 06 00 9B 55 01 00 5E 8B E5 5D 58 05 FC 55 03 00 1B 00 00 00 00 00 01 00 3E B8 30 00 6A 05 FC .♠.¢U☺.^ïσ]X♣ⁿU♥.←.....☺.>╕0.j♣ⁿ 00003480 55 FC FF 12 00 08 00 EA 54 01 00 00 3B C1 75 7C 05 FC 55 3F 00 11 00 00 00 00 00 01 00 89 CE 1E Uⁿ ↕.◘.ΩT☺..;┴u|♣ⁿU?.◄.....☺.ë╬▲ 000034A0 B8 8E 05 FC 55 FC FF 0D 00 0C 00 E8 54 01 00 4D 29 34 83 A0 05 FC 55 03 00 0C 00 00 00 00 00 01 ╕Ä♣ⁿUⁿ ♪.♀.ΦT☺.M)4âá♣ⁿU♥.♀.....☺ 000034C0 00 90 5E 8B E5 B2 05 FC 55 FC FF 05 00 0A 00 E5 54 01 00 00 45 55 8B C4 05 FC 55 1A 00 04 00 00 .É^ïσ▓♣ⁿUⁿ ♣.◙.σT☺..EUï─♣ⁿU→.♦.. 000034E0 00 00 00 01 00 52 50 E8 79 FF FF 00 00 FC FF 11 00 0A 00 E2 54 01 00 4D CA 04 00 E8 05 FC 55 FC ...☺.RPΦy ..ⁿ ◄.◙.ΓT☺.M╩♦.Φ♣ⁿUⁿ 00003500 FF 26 00 04 00 C3 55 01 00 8B 77 16 46 FA 05 FC 55 0C 00 25 00 00 00 00 00 01 00 00 C4 1E 7A 0C &.♦.├U☺.ïw▬F·♣ⁿU♀.%.....☺..─▲z♀ 00003520 06 FC 55 FC FF 1C 00 10 00 BF 55 01 00 3C 2B CE 49 1E 06 FC 55 0C 00 1B 00 00 00 00 00 01 00 D4 ♠ⁿUⁿ ∟.►.┐U☺.<+╬I▲♠ⁿU♀.←.....☺.╘ 00003540 8B 0E A6 30 06 FC 55 FC FF 14 00 0E 00 BC 55 01 00 EA 00 57 56 42 06 FC 55 0C 00 13 00 00 00 00 ï♫ª0♠ⁿUⁿ ¶.♫.╝U☺.Ω.WVB♠ⁿU♀.‼.... 00003560 00 01 00 C1 89 56 FE 54 06 FC 55 FC FF 0F 00 06 00 B8 55 01 00 FF 76 FE FF 66 06 FC 55 0C 00 0E .☺.┴ëV■T♠ⁿUⁿ ☼.♠.╕U☺. v■ f♠ⁿU♀.♫ 00003580 00 00 00 00 00 01 00 5D 4D CB 45 78 06 FC 55 09 00 0D 00 00 00 00 00 01 00 50 B0 4F 50 8A 06 FC .....☺.]M╦Ex♠ⁿU○.♪.....☺.P░OPè♠ⁿ 000035A0 55 FD FF 0C 00 10 00 B8 55 01 00 4D CA 04 00 9C 06 FC 55 0B 00 0B 00 00 00 00 00 01 00 56 FF 36 U² ♀.►.╕U☺.M╩♦.£♠ⁿU♂.♂.....☺.V 6 000035C0 EC AE 06 FC 55 FC FF 0A 00 0C 00 B1 55 01 00 50 B0 11 50 C0 06 FC 55 03 00 09 00 00 00 00 00 01 ∞«♠ⁿUⁿ ◙.♀.▒U☺.P░◄P└♠ⁿU♥.○.....☺ 000035E0 00 C1 75 03 E9 D2 06 FC 55 FC FF 08 00 0E 00 D7 53 01 00 9A 00 20 52 E4 06 FC 55 08 00 07 00 00 .┴u♥Θ╥♠ⁿUⁿ ◘.♫.╫S☺.Ü. RΣ♠ⁿU◘.•.. 00003600 00 00 00 01 00 EE 00 89 56 F6 06 FC 55 03 00 06 00 00 00 00 00 01 00 01 FF 76 08 08 07 FC 55 3D ...☺.ε.ëV÷♠ⁿU♥.♠.....☺.☺ v◘◘•ⁿU= 00003620 00 05 00 00 00 00 00 01 00 FC 89 46 FA 1A 07 FC 55 1B 00 04 00 00 00 00 00 01 00 4D 29 34 83 2C .♣.....☺.ⁿëF·→•ⁿU←.♦.....☺.M)4â, 00003640 07 FC 55 FC FF 03 00 0A 00 4E 53 01 00 EC 4D 29 34 3E 07 FC 55 3B 00 02 00 00 00 00 00 01 00 83 •ⁿUⁿ ♥.◙.NS☺.∞M)4>•ⁿU;.☻.....☺.â 00003660 C4 04 C7 FF FF 00 00 FC FF 01 00 0E 00 4C 53 01 00 17 00 00 1E 62 07 FC 55 FC FF 13 00 02 00 D3 ─♦╟ ..ⁿ ☺.♫.LS☺.↨..▲b•ⁿUⁿ ‼.☻.╙ 00003680 55 01 00 83 7E FE 00 74 07 FC 55 0F 00 12 00 00 00 00 00 01 00 76 F8 FF 76 86 07 FC 55 09 00 11 U☺.â~■.t•ⁿU☼.↕.....☺.v° vå•ⁿU○.◄ 000036A0 00 00 00 00 00 01 00 1E AF 0D 31 98 07 FC 55 FC FF 0A 00 10 00 CB 55 01 00 1E EE 00 26 AA 07 FC .....☺.▲»♪1ÿ•ⁿUⁿ ◙.►.╦U☺.▲ε.&¬•ⁿ 000036C0 55 03 00 09 00 00 00 00 00 01 00 31 C0 5D 4D BC 07 FC 55 FC FF 05 00 04 00 CA 55 01 00 BA 1E 3E U♥.○.....☺.1└]M╝•ⁿUⁿ ♣.♦.╩U☺.║▲> 000036E0 B8 CE 07 FC 55 1C 00 04 00 00 00 00 00 01 00 83 F8 01 75 E0 07 FC 55 FD FF 03 00 0C 00 CC 55 01 ╕╬•ⁿU∟.♦.....☺.â°☺uα•ⁿU² ♥.♀.╠U☺ 00003700 00 E8 CE FB 09 F2 07 FC 55 08 00 02 00 00 00 00 00 01 00 00 B8 1C 00 FF FF 00 00 04 00 01 00 00 .Φ╬√○≥•ⁿU◘.☻.....☺..╕∟. ..♦.☺.. 00003720 00 00 00 01 00 EC 83 EC 10 16 08 FC 55 FC FF 3C 00 10 00 E2 55 01 00 50 E8 28 FA 28 08 FC 55 35 ...☺.∞â∞►▬◘ⁿUⁿ <.►.ΓU☺.PΦ(·(◘ⁿU5 00003740 00 3B 00 00 00 00 00 01 00 0B 47 74 74 3A 08 FC 55 FD FF 38 00 02 00 F8 55 01 00 48 1E B8 7A 4C .;.....☺.♂Gtt:◘ⁿU² 8.☻.°U☺.H▲╕zL 00003760 08 FC 55 26 00 37 00 00 00 00 00 01 00 5D 4D CA 04 5E 08 FC 55 FD FF 34 00 02 00 F3 55 01 00 75 ◘ⁿU&.7.....☺.]M╩♦^◘ⁿU² 4.☻.≤U☺.u 00003780 23 1E B8 70 08 FC 55 0C 00 33 00 00 00 00 00 01 00 50 9A EC 4D 82 08 FC 55 07 00 30 00 02 00 ED #▲╕p◘ⁿU♀.3.....☺.PÜ∞Mé◘ⁿU•.0.☻.φ 000037A0 55 01 00 00 31 C0 8B 94 08 FC 55 0C 00 2F 00 00 00 00 00 01 00 26 80 67 0C A6 08 FC 55 07 00 2C U☺..1└ïö◘ⁿU♀./.....☺.&Çg♀ª◘ⁿU•., 000037C0 00 04 00 E9 55 01 00 00 45 55 8B B8 08 FC 55 0C 00 2B 00 00 00 00 00 01 00 9A D6 13 54 CA 08 FC .♦.ΘU☺..EUï╕◘ⁿU♀.+.....☺.Ü╓‼T╩◘ⁿ 000037E0 55 09 00 2A 00 00 00 00 00 01 00 00 26 F6 47 DC 08 FC 55 FC FF 29 00 0C 00 DF 55 01 00 8A 47 10 U○.*.....☺..&÷G▄◘ⁿUⁿ ).♀.▀U☺.èG► 00003800 30 EE 08 FC 55 35 00 28 00 00 00 00 00 01 00 54 26 EB 1B 00 09 FC 55 FD FF 24 00 10 00 E3 55 01 0ε◘ⁿU5.(.....☺.T&δ←.○ⁿU² $.►.πU☺ 00003820 00 E7 01 90 89 12 09 FC 55 26 00 23 00 00 00 00 00 01 00 CA 04 00 45 24 09 FC 55 FD FF 20 00 04 .τ☺Éë↕○ⁿU&.#.....☺.╩♦.E$○ⁿU² .♦ 00003840 00 E0 55 01 00 A1 EA 00 89 36 09 FC 55 08 00 1F 00 00 00 00 00 01 00 0C A8 02 74 48 09 FC 55 FC .αU☺.íΩ.ë6○ⁿU◘.▼.....☺.♀¿☻tH○ⁿUⁿ 00003860 FF 19 00 0E 00 D8 55 01 00 89 D8 83 C0 FF FF 00 00 07 00 01 00 0E 00 D4 55 01 00 03 E8 61 FA 00 ↓.♫.╪U☺.ë╪â└ ..•.☺.♫.╘U☺.♥Φa·. 00003880 00 6C 00 7E 00 90 00 A2 00 B4 00 C6 00 D8 00 EA 00 FC 00 0E 01 20 01 32 01 0A 02 76 02 E2 02 A8 .l.~.É.ó.┤.╞.╪.Ω.ⁿ.♫☺ ☺2☺◙☻v☻Γ☻¿ 000038A0 03 C8 04 D6 05 50 07 04 08 5A 00 C4 05 04 00 6E 76 33 00 09 00 61 6D 6F 72 74 69 7A 65 00 02 00 ♥╚♦╓♣P•♦◘Z.─♣♦.nv3.○.amortize.☻. 000038C0 6D 00 04 00 01 00 00 00 02 00 01 00 04 00 01 00 00 00 02 00 0C 00 04 00 01 00 00 00 02 00 02 00 m.♦.☺...☻.☺.♦.☺...☻.♀.♦.☺...☻.☻. 000038E0 04 00 6E 76 33 00 05 00 72 61 74 65 00 04 00 01 00 00 00 02 00 03 00 04 00 6E 76 33 00 07 00 6D ♦.nv3.♣.rate.♦.☺...☻.♥.♦.nv3.•.m 00003900 6F 6E 74 68 73 00 04 00 01 00 00 00 02 00 01 00 04 00 6E 76 33 00 05 00 64 65 62 74 00 04 00 01 onths.♦.☺...☻.☺.♦.nv3.♣.debt.♦.☺ 00003920 00 00 00 02 00 00 00 02 00 69 00 04 00 01 00 00 00 02 00 05 00 07 00 6D 6F 6E 74 68 73 00 02 00 ...☻...☻.i.♦.☺...☻.♣.•.months.☻. 00003940 6D 00 07 00 6D 6F 6E 74 68 73 00 05 00 72 61 74 65 00 04 00 01 00 00 00 02 00 01 00 04 00 01 00 m.•.months.♣.rate.♦.☺...☻.☺.♦.☺. 00003960 00 00 02 00 01 00 05 00 72 61 74 65 00 05 00 64 65 62 74 00 08 00 70 61 79 6D 65 6E 74 00 05 00 ..☻.☺.♣.rate.♣.debt.◘.payment.♣. 00003980 72 61 74 65 00 05 00 64 65 62 74 00 09 00 69 6E 74 65 72 65 73 74 00 08 00 70 61 79 6D 65 6E 74 rate.♣.debt.○.interest.◘.payment 000039A0 00 0A 00 61 6D 6F 72 74 69 7A 65 64 00 05 00 64 65 62 74 00 08 00 6E 65 77 64 65 62 74 00 05 00 .◙.amortized.♣.debt.◘.newdebt.♣. 000039C0 62 61 63 6B 00 09 00 69 6E 74 65 72 65 73 74 00 0A 00 61 6D 6F 72 74 69 7A 65 64 00 08 00 70 61 back.○.interest.◙.amortized.◘.pa 000039E0 79 6D 65 6E 74 00 05 00 64 65 62 74 00 04 00 01 00 00 00 02 00 01 00 02 00 69 00 02 00 69 00 02 yment.♣.debt.♦.☺...☻.☺.☻.i.☻.i.☻ 00003A00 00 69 00 02 00 6D 00 05 00 62 61 63 6B 00 08 00 6E 65 77 64 65 62 74 00 05 00 64 65 62 74 00 04 .i.☻.m.♣.back.◘.newdebt.♣.debt.♦ 00003A20 00 01 00 00 00 02 00 00 00 02 00 6D 00 04 00 02 00 01 00 02 00 02 00 00 00 01 00 04 00 02 00 01 .☺...☻...☻.m.♦.☻.☺.☻.☻...☺.♦.☻.☺ 00003A40 00 02 00 02 00 09 00 02 00 08 00 01 00 00 00 01 00 20 08 00 01 00 00 00 01 00 20 02 00 6D 00 04 .☻.☻.○.☻.◘.☺...☺. ◘.☺...☺. ☻.m.♦ 00003A60 00 02 00 01 00 02 00 02 00 00 00 FC FF 04 00 02 00 01 00 02 00 02 00 09 00 00 00 07 00 6F 75 74 .☻.☺.☻.☻...ⁿ ♦.☻.☺.☻.☻.○...•.out 00003A80 70 75 74 00 08 00 16 00 01 00 01 00 16 00 6D 20 64 65 62 74 20 70 61 79 6D 74 20 61 6D 6F 72 74 put.◘.▬.☺.☺.▬.m debt paymt amort 00003AA0 20 69 6E 74 78 09 00 62 61 72 67 72 61 70 68 00 00 01 00 0C 2C 00 0F 00 07 00 01 00 01 00 01 00 intx○.bargraph..☺.♀,.☼.•.☺.☺.☺. 00003AC0 01 00 17 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 84 03 02 00 01 00 0F 00 ☺.↨.☻.☺.☺.☺.☺.☺.☺.☺.☺.◘.ä♥☻.☺.☼. 00003AE0 3C 00 72 20 23 20 71 20 62 61 72 67 72 61 70 68 20 76 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 <.r # q bargraph v;Lio 00003B00 20 20 20 20 20 20 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 20 " 00003B20 71 20 69 73 20 63 68 61 72 61 63 74 65 72 20 74 6F 20 62 65 20 75 73 65 64 20 66 6F 72 20 62 61 q is character to be used for ba 00003B40 72 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 22 20 76 20 69 73 rs. " v is 00003B60 20 61 20 76 65 63 74 6F 72 20 6F 66 20 70 6F 73 69 74 69 76 65 20 61 6E 64 20 6E 65 67 61 74 69 a vector of positive and negati 00003B80 76 65 20 69 6E 74 65 67 65 72 73 2E 20 20 20 20 20 20 20 20 20 20 22 20 6E 65 67 61 74 69 76 65 ve integers. " negative 00003BA0 20 69 6E 74 65 67 65 72 73 20 73 74 6F 72 65 64 20 69 6E 20 76 20 77 69 6C 6C 20 62 65 20 69 67 integers stored in v will be ig 00003BC0 6E 6F 72 65 64 2E 20 20 20 20 20 20 20 20 20 20 20 20 22 20 74 68 75 73 20 74 68 65 20 73 61 6D nored. " thus the sam 00003BE0 65 20 76 65 63 74 6F 72 20 63 61 6E 20 62 65 20 75 73 65 64 20 74 77 69 63 65 2E 20 20 20 20 20 e vector can be used twice. 00003C00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 28 2D 32 59 71 29 5B 76 4A 2E 5A 31 2B 49 53 r#(-2Yq)[vJ.Z1+IS 00003C20 2F 76 5D 20 48 20 4C 69 6F 23 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 /v] H Lio#0 00003C40 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 20 $0 00003C60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003C80 20 20 20 20 20 20 22 62 61 72 67 72 61 70 68 20 2D 20 70 6C 6F 74 20 68 6F 72 69 7A 6F 6E 74 61 "bargraph - plot horizonta 00003CA0 6C 20 69 6E 74 65 67 65 72 20 62 61 72 67 72 61 70 68 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 l integer bargraphs. 00003CC0 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 00003CE0 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. "- 00003D00 70 72 6F 64 75 63 65 20 68 6F 72 69 7A 6F 6E 74 61 6C 20 68 69 73 74 6F 67 72 61 6D 73 20 6F 72 produce horizontal histograms or 00003D20 20 67 61 6E 74 74 20 63 68 61 72 74 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 74 77 6F 20 gantt charts. "-two 00003D40 63 6C 61 73 73 65 73 20 6F 66 20 69 6E 70 75 74 20 28 63 6F 64 65 64 20 70 6C 75 73 20 61 6E 64 classes of input (coded plus and 00003D60 20 6D 69 6E 75 73 29 20 74 72 65 61 74 65 64 2C 20 20 20 20 20 20 22 20 6F 6E 65 20 69 6E 76 69 minus) treated, " one invi 00003D80 73 69 62 6C 65 20 77 68 69 6C 65 20 74 68 65 20 6F 74 68 65 72 20 69 73 20 70 6C 6F 74 74 65 64 sible while the other is plotted 00003DA0 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 74 68 65 20 63 68 61 72 61 63 74 65 . "-the characte 00003DC0 72 73 20 75 73 65 64 20 66 6F 72 20 74 68 65 20 62 61 72 73 20 61 72 65 20 75 73 65 72 2D 73 70 rs used for the bars are user-sp 00003DE0 65 63 69 66 69 65 64 2E 20 20 20 20 20 20 22 2D 74 68 65 20 6F 75 74 70 75 74 20 63 61 6E 20 62 ecified. "-the output can b 00003E00 65 20 63 61 74 65 6E 61 74 65 64 20 74 6F 20 6E 61 6D 65 73 2C 20 66 6F 72 20 65 78 61 6D 70 6C e catenated to names, for exampl 00003E20 65 2E 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 48 20 20 20 20 20 20 20 20 20 20 20 20 e. "-uses: GH 00003E40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003E60 20 20 20 20 20 20 36 00 FF FF 00 00 ED FF 11 00 00 00 00 00 01 00 46 06 89 46 24 00 CB 56 1B 00 6. ..φ ◄.....☺.F♠ëF$.╦V←. 00003E80 10 00 00 00 00 00 01 00 00 90 5E 8B 00 00 CB 56 FC FF 0F 00 0E 00 06 52 01 00 06 00 45 55 48 00 ►.....☺..É^ï..╦Vⁿ ☼.♫.♠R☺.♠.EUH. 00003EA0 CB 56 FC FF 06 00 04 00 1D 52 01 00 89 56 E8 89 24 00 CB 56 FC FF 04 00 0C 00 FA 51 01 00 C4 5E ╦Vⁿ ♠.♦.↔R☺.ëVΦë$.╦Vⁿ ♦.♀.·Q☺.─^ 00003EC0 06 26 6C 00 CB 56 03 00 02 00 00 00 00 00 01 00 A1 68 67 0B 48 00 CB 56 FC FF 00 00 08 00 E2 51 ♠&l.╦V♥.☻.....☺.íhg♂H.╦Vⁿ ..◘.ΓQ 00003EE0 01 00 8C DA B8 0F FF FF 00 00 02 00 00 00 00 00 00 00 01 00 89 46 FC 89 FF FF 00 00 02 00 00 00 ☺.î┌╕☼ ..☻.......☺.ëFⁿë ..☻... 00003F00 00 00 00 00 01 00 C7 47 0C 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 E6 DA 54 26 FF FF 00 00 ....☺.╟G♀. ..☻.......☺.µ┌T& .. 00003F20 02 00 00 00 00 00 00 00 01 00 8B 46 FC 51 D8 00 CB 56 FD FF 1C 00 04 00 B9 54 01 00 00 FF 76 E8 ☻.......☺.ïFⁿQ╪.╦V² ∟.♦.╣T☺.. vΦ 00003F40 EA 00 CB 56 03 00 1B 00 00 00 00 00 01 00 0A E9 66 01 FC 00 CB 56 ED FF 18 00 00 00 00 00 01 00 Ω.╦V♥.←.....☺.◙Θf☺ⁿ.╦Vφ ↑.....☺. 00003F60 80 75 08 C4 0E 01 CB 56 FC FF 16 00 0C 00 4B 53 01 00 54 26 31 F6 20 01 CB 56 3D 00 14 00 00 00 Çu◘─♫☺╦Vⁿ ▬.♀.KS☺.T&1÷ ☺╦V=.¶... 00003F80 00 00 01 00 F0 00 FF 36 32 01 CB 56 FC FF 13 00 06 00 4B 53 01 00 E6 26 8B 47 44 01 CB 56 0F 00 ..☺.≡. 62☺╦Vⁿ ‼.♠.KS☺.µ&ïGD☺╦V☼. 00003FA0 12 00 00 00 00 00 01 00 50 50 FF 76 56 01 CB 56 33 00 11 00 00 00 00 00 01 00 46 EA 75 06 68 01 ↕.....☺.PP vV☺╦V3.◄.....☺.FΩu♠h☺ 00003FC0 CB 56 29 00 10 00 00 00 00 00 01 00 FF 76 EA FF 7A 01 CB 56 0B 00 0F 00 00 00 00 00 01 00 EE 00 ╦V).►.....☺. vΩ z☺╦V♂.☼.....☺.ε. 00003FE0 26 C7 8C 01 CB 56 FD FF 0E 00 04 00 CF 53 01 00 FA 89 46 F8 9E 01 CB 56 3A 00 0D 00 00 00 00 00 &╟î☺╦V² ♫.♦.╧S☺.·ëF°₧☺╦V:.♪..... 00004000 01 00 89 C3 26 C4 B0 01 CB 56 0E 00 0C 00 00 00 00 00 01 00 EA 00 26 FF C2 01 CB 56 2A 00 0B 00 ☺.ë├&─░☺╦V♫.♀.....☺.Ω.& ┬☺╦V*.♂. 00004020 00 00 00 00 01 00 FF 76 F0 FF D4 01 CB 56 FC FF 0A 00 06 00 0B 53 01 00 12 4E 29 34 E6 01 CB 56 ....☺. v≡ ╘☺╦Vⁿ ◙.♠.♂S☺.↕N)4µ☺╦V 00004040 3B 00 09 00 00 00 00 00 01 00 0E E8 2A 04 F8 01 CB 56 09 00 08 00 00 00 00 00 01 00 90 C6 06 F5 ;.○.....☺.♫Φ*♦°☺╦V○.◘.....☺.É╞♠⌡ 00004060 0A 02 CB 56 FC FF 07 00 10 00 0A 53 01 00 75 20 C4 1E 1C 02 CB 56 39 00 06 00 00 00 00 00 01 00 ◙☻╦Vⁿ •.►.◙S☺.u ─▲∟☻╦V9.♠.....☺. 00004080 26 52 50 FF 2E 02 CB 56 FD FF 04 00 0C 00 43 53 01 00 EE 00 26 C7 40 02 CB 56 08 00 03 00 00 00 &RP .☻╦V² ♦.♀.CS☺.ε.&╟@☻╦V◘.♥... 000040A0 00 00 01 00 8B 4E F6 C4 52 02 CB 56 03 00 02 00 00 00 00 00 01 00 0B F4 8B 16 FF FF 00 00 FC FF ..☺.ïN÷─R☻╦V♥.☻.....☺.♂⌠ï▬ ..ⁿ 000040C0 01 00 10 00 1D 52 01 00 EE 00 26 8B 76 02 CB 56 FD FF 01 00 08 00 BE 54 01 00 29 34 B8 F7 FF FF ☺.►.↔R☺.ε.&ïv☻╦V² ☺.◘.╛T☺.)4╕≈ 000040E0 00 00 04 00 00 00 00 00 00 00 01 00 75 01 48 5F FF FF 00 00 02 00 00 00 00 00 00 00 01 00 56 57 ..♦.......☺.u☺H_ ..☻.......☺.VW 00004100 BE 01 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 0A C7 46 D6 FF FF 00 00 02 00 00 00 00 00 00 00 ╛☺ ..☻.......☺.◙╟F╓ ..☻....... 00004120 01 00 80 16 54 26 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 C7 46 D6 22 FF FF 00 00 02 00 00 00 ☺.Ç▬T& ..☻.......☺.╟F╓" ..☻... 00004140 00 00 00 00 01 00 90 C7 06 5E FF FF 00 00 02 00 00 00 00 00 00 00 01 00 0A FF 76 D8 FF FF 00 00 ....☺.É╟♠^ ..☻.......☺.◙ v╪ .. 00004160 02 00 00 00 00 00 00 00 01 00 DC 89 46 DA FF FF 00 00 02 00 00 00 00 00 00 00 01 00 F0 17 00 75 ☻.......☺.▄ëF┌ ..☻.......☺.≡↨.u 00004180 00 00 7E 00 90 00 A2 00 B4 00 C6 00 64 02 88 02 9A 02 AC 02 BE 02 D0 02 E2 02 F4 02 06 03 6C 00 ..~.É.ó.┤.╞.d☻ê☻Ü☻¼☻╛☻╨☻Γ☻⌠☻♠♥l. 000041A0 FF FF 02 00 76 00 09 00 62 61 72 67 72 61 70 68 00 02 00 71 00 02 00 72 00 04 00 01 00 00 00 02 ☻.v.○.bargraph.☻.q.☻.r.♦.☺...☻ 000041C0 00 00 00 02 00 48 00 02 00 76 00 04 00 01 00 00 00 02 00 01 00 02 00 76 00 02 00 71 00 04 00 01 ...☻.H.☻.v.♦.☺...☻.☺.☻.v.☻.q.♦.☺ 000041E0 00 00 00 02 00 FE FF 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 03 00 61 76 00 08 00 1B 00 01 ...☻.■ ☻.r.♦.☺...☻...x♥.av.◘.←.☺ 00004200 00 01 00 1B 00 20 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7A .☺.←. abcdefghijklmnopqrstuvwxyz 00004220 78 06 00 62 6C 61 6E 6B 00 00 01 00 0C 3E 00 0C 00 07 00 01 00 25 00 08 00 02 00 01 00 01 00 01 x♠.blank..☺.♀>.♀.•.☺.%.◘.☻.☺.☺.☺ 00004240 00 01 00 01 00 01 00 01 00 08 00 D0 02 02 00 01 00 0C 00 3C 00 20 72 23 73 74 72 20 62 6C 61 6E .☺.☺.☺.☺.◘.╨☻☻.☺.♀.<. r#str blan 00004260 6B 20 61 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 k a;Lio 00004280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 69 66 20 73 74 72 20 61 70 70 65 61 72 73 "if str appears 000042A0 20 69 6E 20 61 20 69 74 20 77 69 6C 6C 20 62 65 63 6F 6D 65 20 62 6C 61 6E 6B 28 6F 72 20 30 29 in a it will become blank(or 0) 000042C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 5B 28 58 2F 52 61 29 6C 69 6D 28 73 74 72 20 6C 6F r[(X/Ra)lim(str lo 000042E0 63 20 72 29 4A 2E 2B 49 52 2C 73 74 72 5D 23 30 5C 27 27 52 61 20 48 20 72 23 2C 61 20 48 20 4C c r)J.+IR,str]#0\''Ra H r#,a H L 00004300 69 6F 23 30 20 20 20 20 20 20 72 23 28 52 61 29 52 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 io#0 r#(Ra)Rr 00004320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004340 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 00004360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004380 20 22 62 6C 61 6E 6B 20 2D 20 64 65 6C 65 74 65 20 73 70 65 63 69 66 69 63 20 73 74 72 69 6E 67 "blank - delete specific string 000043A0 20 66 72 6F 6D 20 73 74 72 75 63 74 75 72 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 from structure "fr 000043C0 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 000043E0 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 69 66 20 61 20 es' copyright 1978, ibm. "-if a 00004400 72 65 70 6F 72 74 2C 20 6F 72 20 61 6E 79 20 73 74 72 75 63 74 75 72 65 2C 20 63 6F 6E 74 61 69 report, or any structure, contai 00004420 6E 73 20 75 6E 77 61 6E 74 65 64 20 69 74 65 6D 73 2C 20 20 20 22 20 6E 75 6D 65 72 69 63 20 6F ns unwanted items, " numeric o 00004440 72 20 63 68 61 72 61 63 74 65 72 20 73 74 72 69 6E 67 73 2C 20 74 68 65 6E 20 65 76 65 72 79 20 r character strings, then every 00004460 61 70 70 65 61 72 61 6E 63 65 20 6F 66 20 74 68 65 22 20 73 70 65 63 69 66 69 65 64 20 73 74 72 appearance of the" specified str 00004480 69 6E 67 20 77 69 6C 6C 20 62 65 20 72 65 70 6C 61 63 65 64 20 62 79 20 62 6C 61 6E 6B 73 2C 20 ing will be replaced by blanks, 000044A0 6F 72 20 62 79 20 7A 65 72 6F 2C 20 20 22 20 69 66 20 61 20 69 73 20 61 20 6E 75 6D 65 72 69 63 or by zero, " if a is a numeric 000044C0 20 73 74 72 75 63 74 75 72 65 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 structure. 000044E0 20 20 20 20 20 20 20 20 20 22 75 73 65 73 3A 20 47 6C 6F 63 20 47 6C 69 6D 20 47 48 20 20 20 20 "uses: Gloc Glim GH 00004500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004520 20 20 20 20 20 36 00 FF FF 00 00 ED FF 0F 00 00 00 00 00 01 00 FF 77 12 9A 24 00 BC 57 1B 00 0E 6. ..φ ☼.....☺. w↕Ü$.╝W←.♫ 00004540 00 00 00 00 00 01 00 26 FF 77 16 00 00 BC 57 FC FF 0D 00 04 00 4A 53 01 00 FF 76 08 FF 48 00 BC .....☺.& w▬..╝Wⁿ ♪.♦.JS☺. v◘ H.╝ 00004560 57 FC FF 07 00 0A 00 1A 53 01 00 06 00 45 55 24 00 BC 57 FC FF 03 00 04 00 1A 53 01 00 09 C0 75 Wⁿ •.◙.→S☺.♠.EU$.╝Wⁿ ♥.♦.→S☺.○└u 00004580 03 6C 00 BC 57 03 00 02 00 00 00 00 00 01 00 34 83 C4 04 48 00 BC 57 FC FF 01 00 06 00 17 52 01 ♥l.╝W♥.☻.....☺.4â─♦H.╝Wⁿ ☺.♠.↨R☺ 000045A0 00 C1 75 03 E9 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 50 26 FF 77 A2 00 BC 57 FD FF 36 00 06 .┴u♥Θ ..☻.......☺.P& wó.╝W² 6.♠ 000045C0 00 A6 55 01 00 5E 06 26 89 B4 00 BC 57 03 00 35 00 00 00 00 00 01 00 8C C2 89 D8 C6 00 BC 57 ED .ªU☺.^♠&ë┤.╝W♥.5.....☺.î┬ë╪╞.╝Wφ 000045E0 FF 32 00 00 00 00 00 01 00 C0 0E 89 56 D8 00 BC 57 FC FF 30 00 06 00 E0 54 01 00 89 46 F4 8C EA 2.....☺.└♫ëV╪.╝Wⁿ 0.♠.αT☺.ëF⌠îΩ 00004600 00 BC 57 FC FF 2E 00 10 00 DF 54 01 00 89 46 FC 89 FC 00 BC 57 0C 00 2D 00 00 00 00 00 01 00 D9 .╝Wⁿ ..►.▀T☺.ëFⁿëⁿ.╝W♀.-.....☺.┘ 00004620 26 FF 77 0E 01 BC 57 03 00 2C 00 00 00 00 00 01 00 C4 5E F4 26 20 01 BC 57 FC FF 2B 00 0A 00 DF & w♫☺╝W♥.,.....☺.─^⌠& ☺╝Wⁿ +.◙.▀ 00004640 54 01 00 F8 26 C4 1F 32 01 BC 57 FC FF 29 00 0C 00 C9 54 01 00 C4 5E EC 26 44 01 BC 57 FC FF 27 T☺.°&─▼2☺╝Wⁿ ).♀.╔T☺.─^∞&D☺╝Wⁿ ' 00004660 00 06 00 C9 54 01 00 8B 47 02 83 56 01 BC 57 32 00 26 00 00 00 00 00 01 00 C4 5E 06 26 68 01 BC .♠.╔T☺.ïG☻âV☺╝W2.&.....☺.─^♠&h☺╝ 00004680 57 07 00 24 00 02 00 E3 54 01 00 FF 77 14 26 7A 01 BC 57 3C 00 23 00 00 00 00 00 01 00 26 C7 47 W•.$.☻.πT☺. w¶&z☺╝W<.#.....☺.&╟G 000046A0 12 8C 01 BC 57 FD FF 22 00 04 00 DE 54 01 00 0A 00 00 26 9E 01 BC 57 03 00 21 00 00 00 00 00 01 ↕î☺╝W² ".♦.▐T☺.◙..&₧☺╝W♥.!.....☺ 000046C0 00 04 C4 5E 06 B0 01 BC 57 3D 00 20 00 00 00 00 00 01 00 C4 04 31 C0 C2 01 BC 57 FC FF 1D 00 10 .♦─^♠░☺╝W=. .....☺.─♦1└┬☺╝Wⁿ ↔.► 000046E0 00 C8 54 01 00 57 1C 26 89 D4 01 BC 57 0C 00 1C 00 00 00 00 00 01 00 5F 5E 8B E5 E6 01 BC 57 32 .╚T☺.W∟&ë╘☺╝W♀.∟.....☺._^ïσµ☺╝W2 00004700 00 1B 00 00 00 00 00 01 00 8B 46 0C 0B F8 01 BC 57 29 00 1A 00 00 00 00 00 01 00 56 E8 89 46 0A .←.....☺.ïF♀♂°☺╝W).→.....☺.VΦëF◙ 00004720 02 BC 57 0B 00 19 00 00 00 00 00 01 00 46 06 83 C0 1C 02 BC 57 0E 00 18 00 00 00 00 00 01 00 C0 ☻╝W♂.↓.....☺.F♠â└∟☻╝W♫.↑.....☺.└ 00004740 0A 89 56 2E 02 BC 57 2A 00 17 00 00 00 00 00 01 00 56 FE 89 46 40 02 BC 57 09 00 16 00 00 00 00 ◙ëV.☻╝W*.↨.....☺.V■ëF@☻╝W○.▬.... 00004760 00 01 00 3B 74 07 08 52 02 BC 57 FC FF 15 00 0E 00 B7 54 01 00 01 C4 5E F4 64 02 BC 57 FC FF 11 .☺.;t•◘R☻╝Wⁿ §.♫.╖T☺.☺─^⌠d☻╝Wⁿ ◄ 00004780 00 08 00 B7 54 01 00 E1 D1 E1 83 76 02 BC 57 FC FF 0D 00 02 00 B7 54 01 00 E7 4B 29 34 88 02 BC .◘.╖T☺.ß╤ßâv☻╝Wⁿ ♪.☻.╖T☺.τK)4ê☻╝ 000047A0 57 08 00 0C 00 00 00 00 00 01 00 03 E9 88 00 9A 02 BC 57 FC FF 09 00 06 00 80 54 01 00 E0 D1 E0 W◘.♀.....☺.♥Θê.Ü☻╝Wⁿ ○.♠.ÇT☺.α╤α 000047C0 8B AC 02 BC 57 09 00 08 00 00 00 00 00 01 00 C4 08 C4 5E BE 02 BC 57 FC FF 07 00 10 00 4A 53 01 ï¼☻╝W○.◘.....☺.─◘─^╛☻╝Wⁿ •.►.JS☺ 000047E0 00 26 89 57 02 D0 02 BC 57 32 00 06 00 00 00 00 00 01 00 3C 3A 74 05 E2 02 BC 57 0F 00 05 00 00 .&ëW☻╨☻╝W2.♠.....☺.<:t♣Γ☻╝W☼.♣.. 00004800 00 00 00 01 00 51 8B 4E EC F4 02 BC 57 38 00 04 00 00 00 00 00 01 00 04 C4 5E F4 06 03 BC 57 08 ...☺.QïN∞⌠☻╝W8.♦.....☺.♦─^⌠♠♥╝W◘ 00004820 00 03 00 00 00 00 00 01 00 D9 26 89 57 18 03 BC 57 3B 00 02 00 00 00 00 00 01 00 8B E5 5D 4D FF .♥.....☺.┘&ëW↑♥╝W;.☻.....☺.ïσ]M 00004840 FF 00 00 FC FF 01 00 0A 00 4A 53 01 00 F4 26 8B 07 3C 03 BC 57 FC FF 08 00 04 00 E5 54 01 00 75 ..ⁿ ☺.◙.JS☺.⌠&ï•<♥╝Wⁿ ◘.♦.σT☺.u 00004860 02 26 FF 4E 03 BC 57 32 00 07 00 00 00 00 00 01 00 1C C4 5E F4 60 03 BC 57 09 00 06 00 00 00 00 ☻& N♥╝W2.•.....☺.∟─^⌠`♥╝W○.♠.... 00004880 00 01 00 D8 26 C4 1F 72 03 BC 57 FC FF 05 00 0E 00 E4 54 01 00 46 EC 00 00 84 03 BC 57 32 00 04 .☺.╪&─▼r♥╝Wⁿ ♣.♫.ΣT☺.F∞..ä♥╝W2.♦ 000048A0 00 00 00 00 00 01 00 FF 46 EC 8A 96 03 BC 57 08 00 03 00 00 00 00 00 01 00 00 5F 5E 8B A8 03 BC .....☺. F∞èû♥╝W◘.♥.....☺.._^ï¿♥╝ 000048C0 57 03 00 02 00 00 00 00 00 01 00 26 83 7F 0A FF FF 00 00 FC FF 01 00 08 00 E4 54 01 00 C1 74 14 W♥.☻.....☺.&â⌂◙ ..ⁿ ☺.◘.ΣT☺.┴t¶ 000048E0 B9 CC 03 BC 57 FD FF 02 00 0C 00 C0 55 01 00 D1 09 C1 75 FF FF 00 00 04 00 01 00 00 00 00 00 01 ╣╠♥╝W² ☻.♀.└U☺.╤○┴u ..♦.☺.....☺ 00004900 00 06 09 C0 74 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 83 C4 04 C4 FF FF 00 00 02 00 00 00 00 .♠○└t ..☻.......☺.â─♦─ ..☻.... 00004920 00 00 00 01 00 26 03 47 04 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 80 F9 2F 74 FF FF 00 00 02 ...☺.&♥G♦ ..☻.......☺.Ç∙/t ..☻ 00004940 00 00 00 00 00 00 00 01 00 1A 26 03 47 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 06 26 89 47 FF .......☺.→&♥G ..☻.......☺.♠&ëG 00004960 FF 00 00 02 00 00 00 00 00 00 00 01 00 EC 83 EC 36 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 C4 ..☻.......☺.∞â∞6 ..☻.......☺.─ 00004980 04 09 C0 00 00 7E 00 90 00 2A 03 BA 03 DE 03 F0 03 02 04 14 04 26 04 38 04 4A 04 6C 00 FF FF 02 ♦○└..~.É.*♥║♥▐♥≡♥☻♦¶♦&♦8♦J♦l. ☻ 000049A0 00 61 00 06 00 62 6C 61 6E 6B 00 04 00 73 74 72 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 02 .a.♠.blank.♦.str.☻.r.♦.☺...☻...☻ 000049C0 00 48 00 02 00 61 00 02 00 72 00 02 00 48 00 02 00 61 00 08 00 00 00 01 00 01 00 00 00 04 00 01 .H.☻.a.☻.r.☻.H.☻.a.◘...☺.☺...♦.☺ 000049E0 00 00 00 02 00 00 00 04 00 73 74 72 00 02 00 72 00 04 00 6C 6F 63 00 04 00 73 74 72 00 04 00 6C ...☻...♦.str.☻.r.♦.loc.♦.str.♦.l 00004A00 69 6D 00 02 00 61 00 02 00 72 00 02 00 72 00 02 00 61 00 02 00 72 00 04 00 01 00 00 00 02 00 00 im.☻.a.☻.r.☻.r.☻.a.☻.r.♦.☺...☻.. 00004A20 00 78 04 00 63 61 6E 00 00 01 00 0A 93 00 13 00 08 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 .x♦.can..☺.◙ô.‼.◘.☺.☺.☺.☺.☺.☺.☺. 00004A40 01 00 05 00 01 00 1A 00 0A 00 01 00 1B 00 01 00 17 00 1A 00 05 00 08 00 87 04 02 00 01 00 13 00 ☺.♣.☺.→.◙.☺.←.☺.↨.→.♣.◘.ç♦☻.☺.‼. 00004A60 3D 00 20 7A 20 23 20 63 61 6E 20 61 3B 73 3B 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 =. z # can a;s;l 00004A80 20 20 20 20 20 20 20 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 " 00004AA0 63 61 6E 20 2D 20 65 64 69 74 20 6D 75 6C 74 69 70 72 65 63 69 73 69 6F 6E 20 69 6E 74 65 67 65 can - edit multiprecision intege 00004AC0 72 73 20 69 6E 74 6F 20 63 61 6E 6F 6E 69 63 61 6C 20 66 6F 72 6D 2E 20 20 20 20 20 22 66 72 6F rs into canonical form. "fro 00004AE0 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 65 m 'the apl handbook of technique 00004B00 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 22 2D 69 6E 70 75 74 s' copyright 1978, ibm. "-input 00004B20 20 61 20 69 73 20 65 64 69 74 65 64 20 69 6E 74 6F 20 74 68 65 20 63 61 6E 6F 6E 69 63 61 6C 20 a is edited into the canonical 00004B40 6D 75 6C 74 69 70 72 65 63 69 73 69 6F 6E 20 20 20 20 20 20 20 20 22 20 69 6E 74 65 67 65 72 20 multiprecision " integer 00004B60 66 6F 72 6D 61 74 20 61 73 20 64 65 73 63 72 69 62 65 64 20 75 6E 64 65 72 20 66 75 6E 63 74 69 format as described under functi 00004B80 6F 6E 20 61 64 64 2E 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 74 68 69 73 20 66 75 6E 63 74 69 on add. "-this functi 00004BA0 6F 6E 20 69 73 20 75 73 65 64 20 62 79 20 65 76 65 72 79 20 6F 74 68 65 72 20 66 75 6E 63 74 69 on is used by every other functi 00004BC0 6F 6E 20 69 6E 20 74 68 65 20 20 20 20 20 20 20 22 20 6D 75 6C 74 69 70 72 65 63 69 73 69 6F 6E on in the " multiprecision 00004BE0 20 69 6E 74 65 67 65 72 20 61 6E 64 20 66 6C 6F 61 74 69 6E 67 20 70 6F 69 6E 74 20 61 72 69 74 integer and floating point arit 00004C00 68 6D 65 74 69 63 20 20 20 20 20 20 20 22 20 70 61 63 6B 61 67 65 73 2C 20 65 78 63 65 70 74 20 hmetic " packages, except 00004C20 72 6F 75 6E 64 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 rounds. 00004C40 20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 20 72 6F 75 6E 64 73 2E 20 20 20 20 20 20 "-uses: rounds. 00004C60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004C80 20 20 20 20 20 20 20 20 7A 23 31 20 72 6F 75 6E 64 73 20 61 20 20 20 20 20 20 20 20 20 20 20 20 z#1 rounds a 00004CA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004CC0 20 20 20 20 22 70 72 6F 70 61 67 61 74 65 20 63 61 72 72 69 65 73 20 6C 65 66 74 77 61 72 64 20 "propagate carries leftward 00004CE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004D00 20 6C 31 3A 7A 23 28 73 2C 30 29 2B 30 2C 7A 5F 31 30 30 30 30 30 30 30 58 73 23 28 58 7A 29 58 l1:z#(s,0)+0,z_10000000Xs#(Xz)X 00004D20 44 7C 7A 25 31 30 30 30 30 30 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 D|z%10000000 $ 00004D40 28 56 2F 30 5E 3D 73 29 2F 6C 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (V/0^=s)/l1 00004D60 20 20 20 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 64 72 6F 70 "drop 00004D80 20 6C 65 61 64 69 6E 67 20 7A 65 72 6F 65 73 20 28 62 75 74 20 70 72 65 76 65 6E 74 20 30 24 49 leading zeroes (but prevent 0$I 00004DA0 30 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6C 32 3A 24 28 31 3D 52 0) l2:$(1=R 00004DC0 7A 23 28 28 28 30 5E 3D 2D 31 55 7A 29 49 31 29 5F 4C 69 6F 29 55 7A 29 2F 6C 33 20 20 20 20 20 z#(((0^=-1Uz)I1)_Lio)Uz)/l3 00004DE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6D 61 6B 65 20 61 6C 6C 20 74 "make all t 00004E00 65 72 6D 73 20 28 65 78 63 65 70 74 20 74 68 65 20 65 78 70 6F 6E 65 6E 74 29 20 74 68 65 20 73 erms (except the exponent) the s 00004E20 61 6D 65 20 73 69 67 6E 20 20 20 20 20 20 20 20 20 20 20 24 28 7E 56 2F 73 23 28 5F 6C 23 31 59 ame sign $(~V/s#(_l#1Y 00004E40 73 29 3D 73 23 58 7A 29 2F 6C 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s)=s#Xz)/l3 00004E60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 6C 32 2C 52 7A 23 7A 2B 28 6C 58 31 30 30 30 $l2,Rz#z+(lX1000 00004E80 30 30 30 30 58 73 29 2B 28 31 55 5F 6C 58 73 29 2C 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000Xs)+(1U_lXs),0 00004EA0 20 20 20 20 20 20 20 20 20 20 20 20 6C 33 3A 7A 23 30 2C 7A 20 20 20 20 20 20 20 20 20 20 20 20 l3:z#0,z 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 5A 00 FF FF 00 00 FC FF 0D 00 10 00 E3 53 01 00 00 00 00 00 24 00 38 Z. ..ⁿ ♪.►.πS☺.....$.8 00004F00 59 1B 00 0C 00 00 00 00 00 01 00 00 00 00 00 00 00 38 59 FC FF 0B 00 0A 00 E3 53 01 00 00 00 00 Y←.♀.....☺.......8Yⁿ ♂.◙.πS☺.... 00004F20 00 48 00 38 59 1B 00 0A 00 00 00 00 00 01 00 00 00 00 00 24 00 38 59 FC FF 09 00 04 00 E3 53 01 .H.8Y←.◙.....☺.....$.8Yⁿ ○.♦.πS☺ 00004F40 00 00 00 00 00 6C 00 38 59 FC FF 05 00 06 00 37 53 01 00 8B EC 83 EC 7E 00 38 59 03 00 03 00 00 .....l.8Yⁿ ♣.♠.7S☺.ï∞â∞~.8Y♥.♥.. 00004F60 00 00 00 01 00 50 9A A2 66 48 00 38 59 FC FF 01 00 10 00 36 53 01 00 E9 CA 00 B8 FF FF 00 00 02 ...☺.PÜófH.8Yⁿ ☺.►.6S☺.Θ╩.╕ ..☻ 00004F80 00 00 00 00 00 00 00 01 00 04 26 89 47 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 89 57 08 26 FF .......☺.♦&ëG ..☻.......☺.ëW◘& 00004FA0 FF 00 00 02 00 00 00 00 00 00 00 01 00 EE 89 46 EC FF FF 00 00 02 00 00 00 00 00 00 00 01 00 56 ..☻.......☺.εëF∞ ..☻.......☺.V 00004FC0 0C 8B 46 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 46 0A 83 C0 FF FF 00 00 02 00 00 00 00 00 00 ♀ïF ..☻.......☺.F◙â└ ..☻...... 00004FE0 00 01 00 56 FE 89 46 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 E1 C4 5E EC FF FF 00 00 02 00 00 .☺.V■ëF ..☻.......☺.ß─^∞ ..☻.. 00005000 00 00 00 00 00 01 00 F4 26 8B 57 32 01 38 59 FC FF 0C 00 06 00 DC 54 01 00 57 02 26 89 44 01 38 .....☺.⌠&ïW2☺8Yⁿ ♀.♠.▄T☺.W☻&ëD☺8 00005020 59 FC FF 05 00 0C 00 DB 54 01 00 4E F4 01 4E 56 01 38 59 FD FF 03 00 04 00 AC 55 01 00 07 89 D1 Yⁿ ♣.♀.█T☺.N⌠☺NV☺8Y² ♥.♦.¼U☺.•ë╤ 00005040 09 68 01 38 59 03 00 02 00 00 00 00 00 01 00 4D CA 08 00 FF FF 00 00 FC FF 01 00 0C 00 C6 54 01 ○h☺8Y♥.☻.....☺.M╩◘. ..ⁿ ☺.♀.╞T☺ 00005060 00 06 26 FF 77 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 5E 06 26 FF 9E 01 38 59 FD FF 23 00 02 .♠& w ..☻.......☺.^♠& ₧☺8Y² #.☻ 00005080 00 94 57 01 00 F6 46 0A 01 B0 01 38 59 05 00 22 00 00 00 00 00 01 00 4D CA 06 00 C2 01 38 59 FC .öW☺.÷F◙☺░☺8Y♣.".....☺.M╩♠.┬☺8Yⁿ 000050A0 FF 21 00 0C 00 AA 55 01 00 0E E8 A4 FE D4 01 38 59 83 00 20 00 00 00 00 00 01 00 45 55 8B EC E6 !.♀.¬U☺.♫Φñ■╘☺8Yâ. .....☺.EUï∞µ 000050C0 01 38 59 24 00 1F 00 00 00 00 00 01 00 B8 02 00 50 F8 01 38 59 38 00 1E 00 00 00 00 00 01 00 60 ☺8Y$.▼.....☺.╕☻.P°☺8Y8.▲.....☺.` 000050E0 2E 4E 26 0A 02 38 59 09 00 1D 00 00 00 00 00 01 00 8C 06 E9 9C 1C 02 38 59 FC FF 1C 00 10 00 A5 .N&◙☻8Y○.↔.....☺.î♠Θ£∟☻8Yⁿ ∟.►.Ñ 00005100 55 01 00 D5 9C 29 34 2E 02 38 59 38 00 1B 00 00 00 00 00 01 00 29 34 00 00 40 02 38 59 08 00 1A U☺.╒£)4.☻8Y8.←.....☺.)4..@☻8Y◘.→ 00005120 00 00 00 00 00 01 00 D6 13 54 26 52 02 38 59 03 00 19 00 00 00 00 00 01 00 54 26 72 32 64 02 38 .....☺.╓‼T&R☻8Y♥.↓.....☺.T&r2d☻8 00005140 59 FC FF 18 00 0A 00 A5 55 01 00 B3 31 54 26 76 02 38 59 38 00 17 00 00 00 00 00 01 00 54 26 BB Yⁿ ↑.◙.ÑU☺.│1T&v☻8Y8.↨.....☺.T&╗ 00005160 1A 88 02 38 59 FD FF 0F 00 08 00 EA 55 01 00 9E 9C 29 34 9A 02 38 59 3F 00 0E 00 00 00 00 00 01 →ê☻8Y² ☼.◘.ΩU☺.₧£)4Ü☻8Y?.♫.....☺ 00005180 00 29 34 16 9D AC 02 38 59 FC FF 0D 00 04 00 A5 55 01 00 0C 9D 29 34 BE 02 38 59 0C 00 0C 00 00 .)4▬¥¼☻8Yⁿ ♪.♦.ÑU☺.♀¥)4╛☻8Y♀.♀.. 000051A0 00 00 00 01 00 29 34 8E 9D D0 02 38 59 FD FF 0B 00 04 00 DE 55 01 00 66 9D 29 34 E2 02 38 59 0B ...☺.)4Ä¥╨☻8Y² ♂.♦.▐U☺.f¥)4Γ☻8Y♂ 000051C0 00 0A 00 00 00 00 00 01 00 54 26 D9 DB F4 02 38 59 09 00 09 00 00 00 00 00 01 00 34 9D 29 34 06 .◙.....☺.T&┘█⌠☻8Y○.○.....☺.4¥)4♠ 000051E0 03 38 59 FD FF 08 00 08 00 D9 55 01 00 29 34 48 9D 18 03 38 59 0C 00 07 00 00 00 00 00 01 00 A2 ♥8Y² ◘.◘.┘U☺.)4H¥↑♥8Y♀.•.....☺.ó 00005200 9D 29 34 2A 03 38 59 FC FF 06 00 06 00 E8 54 01 00 29 34 00 00 3C 03 38 59 08 00 05 00 00 00 00 ¥)4*♥8Yⁿ ♠.♠.ΦT☺.)4..<♥8Y◘.♣.... 00005220 00 01 00 00 00 00 00 4E 03 38 59 03 00 04 00 00 00 00 00 01 00 00 00 00 00 60 03 38 59 FC FF 03 .☺.....N♥8Y♥.♦.....☺.....`♥8Yⁿ ♥ 00005240 00 10 00 E7 54 01 00 AC 20 54 26 72 03 38 59 1A 00 02 00 00 00 00 00 01 00 54 26 E4 21 42 06 38 .►.τT☺.¼ T&r♥8Y→.☻.....☺.T&Σ!B♠8 00005260 59 FC FF 0B 00 0A 00 E7 54 01 00 C8 20 54 26 96 03 38 59 FC FF 0B 00 08 00 AB 55 01 00 54 26 D7 Yⁿ ♂.◙.τT☺.╚ T&û♥8Yⁿ ♂.◘.½U☺.T&╫ 00005280 3F A8 03 38 59 0F 00 0A 00 00 00 00 00 01 00 65 28 54 26 BA 03 38 59 09 00 09 00 00 00 00 00 01 ?¿♥8Y☼.◙.....☺.e(T&║♥8Y○.○.....☺ 000052A0 00 29 34 80 9C CC 03 38 59 FC FF 08 00 02 00 AB 55 01 00 2F 9D 29 34 DE 03 38 59 3E 00 06 00 00 .)4Ç£╠♥8Yⁿ ◘.☻.½U☺./¥)4▐♥8Y>.♠.. 000052C0 00 00 00 01 00 54 26 CF 18 F0 03 38 59 FD FF 05 00 0A 00 9E 57 01 00 C7 1F 54 26 02 04 38 59 0F ...☺.T&╧↑≡♥8Y² ♣.◙.₧W☺.╟▼T&☻♦8Y☼ 000052E0 00 04 00 00 00 00 00 01 00 29 34 4D 9D 14 04 38 59 36 00 03 00 00 00 00 00 01 00 98 9D 29 34 26 .♦.....☺.)4M¥¶♦8Y6.♥.....☺.ÿ¥)4& 00005300 04 38 59 08 00 02 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 00 ♦8Y◘.☻.....☺..... ..♦.☺.....☺.. 00005320 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 5C 04 38 59 FC FF 21 00 02 00 C2 ... ..☻.......☺.....\♦8Yⁿ !.☻.┬ 00005340 55 01 00 5B 75 54 26 6E 04 38 59 0F 00 20 00 00 00 00 00 01 00 29 34 6C 9C 80 04 38 59 09 00 1F U☺.[uT&n♦8Y☼. .....☺.)4l£Ç♦8Y○.▼ 00005360 00 00 00 00 00 01 00 4B 2A 54 26 92 04 38 59 FC FF 1E 00 06 00 BC 55 01 00 54 26 B9 70 A4 04 38 .....☺.K*T&Æ♦8Yⁿ ▲.♠.╝U☺.T&╣pñ♦8 00005380 59 35 00 1D 00 00 00 00 00 01 00 F9 70 54 26 B6 04 38 59 09 00 1C 00 00 00 00 00 01 00 54 26 49 Y5.↔.....☺.∙pT&╢♦8Y○.∟.....☺.T&I 000053A0 71 C8 04 38 59 ED FF 19 00 00 00 00 00 01 00 00 00 00 00 DA 04 38 59 3F 00 18 00 00 00 00 00 01 q╚♦8Yφ ↓.....☺.....┌♦8Y?.↑.....☺ 000053C0 00 00 00 00 00 EC 04 38 59 09 00 17 00 00 00 00 00 01 00 00 00 00 00 FE 04 38 59 FD FF 16 00 08 .....∞♦8Y○.↨.....☺.....■♦8Y² ▬.◘ 000053E0 00 8F 58 01 00 00 00 00 00 10 05 38 59 29 00 15 00 00 00 00 00 01 00 00 00 00 00 22 05 38 59 09 .ÅX☺.....►♣8Y).§.....☺....."♣8Y○ 00005400 00 14 00 00 00 00 00 01 00 00 00 00 00 34 05 38 59 FC FF 13 00 06 00 AE 55 01 00 00 00 00 00 46 .¶.....☺.....4♣8Yⁿ ‼.♠.«U☺.....F 00005420 05 38 59 35 00 12 00 00 00 00 00 01 00 00 00 00 00 58 05 38 59 FD FF 10 00 04 00 BB 57 01 00 54 ♣8Y5.↕.....☺.....X♣8Y² ►.♦.╗W☺.T 00005440 26 77 15 6A 05 38 59 3E 00 0E 00 00 00 00 00 01 00 77 15 54 26 7C 05 38 59 FD FF 0D 00 0E 00 B9 &w§j♣8Y>.♫.....☺.w§T&|♣8Y² ♪.♫.╣ 00005460 57 01 00 00 00 77 15 8E 05 38 59 08 00 0C 00 00 00 00 00 01 00 77 15 54 26 A0 05 38 59 08 00 0B W☺...w§Ä♣8Y◘.♀.....☺.w§T&á♣8Y◘.♂ 00005480 00 00 00 00 00 01 00 54 26 E0 14 B2 05 38 59 08 00 0A 00 00 00 00 00 01 00 E0 14 54 26 C4 05 38 .....☺.T&α¶▓♣8Y◘.◙.....☺.α¶T&─♣8 000054A0 59 03 00 09 00 00 00 00 00 01 00 54 26 E0 14 D6 05 38 59 FC FF 08 00 10 00 AD 55 01 00 E0 14 54 Y♥.○.....☺.T&α¶╓♣8Yⁿ ◘.►.¡U☺.α¶T 000054C0 26 E8 05 38 59 32 00 07 00 00 00 00 00 01 00 54 26 00 00 FA 05 38 59 1D 00 06 00 00 00 00 00 01 &Φ♣8Y2.•.....☺.T&..·♣8Y↔.♠.....☺ 000054E0 00 77 15 54 26 0C 06 38 59 FD FF 05 00 10 00 AE 57 01 00 54 26 00 00 1E 06 38 59 08 00 04 00 00 .w§T&♀♠8Y² ♣.►.«W☺.T&..▲♠8Y◘.♦.. 00005500 00 00 00 01 00 77 15 54 26 30 06 38 59 04 00 03 00 00 00 00 00 01 00 54 26 E0 14 42 06 38 59 1A ...☺.w§T&0♠8Y♦.♥.....☺.T&α¶B♠8Y→ 00005520 00 02 00 00 00 00 00 01 00 E0 14 54 26 44 0A 38 59 FC FF 0E 00 0A 00 AD 55 01 00 54 26 E0 14 FF .☻.....☺.α¶T&D◙8Yⁿ ♫.◙.¡U☺.T&α¶ 00005540 FF 00 00 02 00 00 00 00 00 00 00 01 00 E0 14 54 26 78 06 38 59 FC FF 17 00 06 00 DD 55 01 00 00 ..☻.......☺.α¶T&x♠8Yⁿ ↨.♠.▌U☺.. 00005560 00 00 00 8A 06 38 59 0F 00 16 00 00 00 00 00 01 00 00 00 00 00 9C 06 38 59 09 00 15 00 00 00 00 ...è♠8Y☼.▬.....☺.....£♠8Y○.§.... 00005580 00 01 00 54 26 D8 14 AE 06 38 59 FC FF 14 00 04 00 C7 55 01 00 D8 14 54 26 C0 06 38 59 38 00 13 .☺.T&╪¶«♠8Yⁿ ¶.♦.╟U☺.╪¶T&└♠8Y8.‼ 000055A0 00 00 00 00 00 01 00 54 26 D8 14 D2 06 38 59 03 00 12 00 00 00 00 00 01 00 D8 14 54 26 E4 06 38 .....☺.T&╪¶╥♠8Y♥.↕.....☺.╪¶T&Σ♠8 000055C0 59 FC FF 11 00 0E 00 C6 55 01 00 54 26 D8 14 F6 06 38 59 1D 00 10 00 00 00 00 00 01 00 E0 14 54 Yⁿ ◄.♫.╞U☺.T&╪¶÷♠8Y↔.►.....☺.α¶T 000055E0 26 08 07 38 59 09 00 0F 00 00 00 00 00 01 00 54 26 D8 14 1A 07 38 59 FC FF 0E 00 08 00 C6 55 01 &◘•8Y○.☼.....☺.T&╪¶→•8Yⁿ ♫.◘.╞U☺ 00005600 00 D8 14 54 26 2C 07 38 59 39 00 0D 00 00 00 00 00 01 00 54 26 E0 14 3E 07 38 59 FD FF 0C 00 06 .╪¶T&,•8Y9.♪.....☺.T&α¶>•8Y² ♀.♠ 00005620 00 AE 58 01 00 D8 14 54 26 50 07 38 59 03 00 0B 00 00 00 00 00 01 00 54 26 D8 14 62 07 38 59 FC .«X☺.╪¶T&P•8Y♥.♂.....☺.T&╪¶b•8Yⁿ 00005640 FF 0A 00 0E 00 C2 55 01 00 00 00 00 00 74 07 38 59 3F 00 09 00 00 00 00 00 01 00 00 00 E0 14 86 ◙.♫.┬U☺.....t•8Y?.○.....☺...α¶å 00005660 07 38 59 08 00 08 00 00 00 00 00 01 00 00 00 00 00 98 07 38 59 03 00 07 00 00 00 00 00 01 00 00 •8Y◘.◘.....☺.....ÿ•8Y♥.•.....☺.. 00005680 00 00 00 AA 07 38 59 FC FF 06 00 08 00 C2 55 01 00 E0 14 54 26 BC 07 38 59 0F 00 05 00 00 00 00 ...¬•8Yⁿ ♠.◘.┬U☺.α¶T&╝•8Y☼.♣.... 000056A0 00 01 00 54 26 00 00 CE 07 38 59 36 00 04 00 00 00 00 00 01 00 D8 14 54 26 E0 07 38 59 84 00 03 .☺.T&..╬•8Y6.♦.....☺.╪¶T&α•8Yä.♥ 000056C0 00 00 00 00 00 01 00 54 26 D8 14 F2 07 38 59 08 00 02 00 00 00 00 00 01 00 D8 14 54 26 FF FF 00 .....☺.T&╪¶≥•8Y◘.☻.....☺.╪¶T& . 000056E0 00 04 00 01 00 00 00 00 00 01 00 54 26 D8 14 16 08 38 59 FD FF 22 00 04 00 2D 59 01 00 00 00 00 .♦.☺.....☺.T&╪¶▬◘8Y² ".♦.-Y☺.... 00005700 00 28 08 38 59 0C 00 21 00 00 00 00 00 01 00 00 00 00 00 3A 08 38 59 09 00 20 00 00 00 00 00 01 .(◘8Y♀.!.....☺.....:◘8Y○. .....☺ 00005720 00 00 00 00 00 4C 08 38 59 FC FF 1F 00 02 00 F7 55 01 00 00 00 00 00 5E 08 38 59 38 00 1E 00 00 .....L◘8Yⁿ ▼.☻.≈U☺.....^◘8Y8.▲.. 00005740 00 00 00 01 00 00 00 00 00 70 08 38 59 FC FF 1D 00 08 00 F2 55 01 00 00 00 00 00 82 08 38 59 3F ...☺.....p◘8Yⁿ ↔.◘.≥U☺.....é◘8Y? 00005760 00 1C 00 00 00 00 00 01 00 00 00 00 00 94 08 38 59 35 00 1B 00 00 00 00 00 01 00 00 00 01 00 A6 .∟.....☺.....ö◘8Y5.←.....☺...☺.ª 00005780 08 38 59 FD FF 1A 00 06 00 21 59 01 00 9D 02 0A 00 B8 08 38 59 08 00 19 00 00 00 00 00 01 00 12 ◘8Y² →.♠.!Y☺.¥☻◙.╕◘8Y◘.↓.....☺.↕ 000057A0 00 13 00 CA 08 38 59 0B 00 18 00 00 00 00 00 01 00 95 02 1C 00 DC 08 38 59 09 00 17 00 00 00 00 .‼.╩◘8Y♂.↑.....☺.ò☻∟.▄◘8Y○.↨.... 000057C0 00 01 00 24 00 25 00 EE 08 38 59 FC FF 16 00 02 00 F2 55 01 00 2D 00 2E 00 00 09 38 59 38 00 15 .☺.$.%.ε◘8Yⁿ ▬.☻.≥U☺.-....○8Y8.§ 000057E0 00 00 00 00 00 01 00 36 00 37 00 12 09 38 59 FD FF 0D 00 06 00 18 59 01 00 3F 00 40 00 24 09 38 .....☺.6.7.↕○8Y² ♪.♠.↑Y☺.?.@.$○8 00005800 59 38 00 0C 00 00 00 00 00 01 00 48 00 49 00 36 09 38 59 FC FF 0B 00 0A 00 EC 55 01 00 51 00 52 Y8.♀.....☺.H.I.6○8Yⁿ ♂.◙.∞U☺.Q.R 00005820 00 48 09 38 59 08 00 0A 00 00 00 00 00 01 00 5A 00 5B 00 5A 09 38 59 0B 00 09 00 00 00 00 00 01 .H○8Y◘.◙.....☺.Z.[.Z○8Y♂.○.....☺ 00005840 00 63 00 64 00 6C 09 38 59 FC FF 08 00 04 00 EC 55 01 00 6C 00 6D 00 7E 09 38 59 03 00 07 00 00 .c.d.l○8Yⁿ ◘.♦.∞U☺.l.m.~○8Y♥.•.. 00005860 00 00 00 01 00 75 00 76 00 90 09 38 59 FC FF 06 00 06 00 E3 55 01 00 7E 00 80 02 A2 09 38 59 32 ...☺.u.v.É○8Yⁿ ♠.♠.πU☺.~.Ç☻ó○8Y2 00005880 00 05 00 00 00 00 00 01 00 87 00 88 00 B4 09 38 59 0C 00 04 00 00 00 00 00 01 00 90 00 91 00 C6 .♣.....☺.ç.ê.┤○8Y♀.♦.....☺.É.æ.╞ 000058A0 09 38 59 FC FF 02 00 0C 00 DD 55 01 00 99 00 9A 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 A2 ○8Yⁿ ☻.♀.▌U☺.Ö.Ü. ..♦.☺.....☺.ó 000058C0 00 A3 00 EA 09 38 59 FC FF 07 00 02 00 B9 57 01 00 AB 00 AC 00 FC 09 38 59 0C 00 06 00 00 00 00 .ú.Ω○8Yⁿ •.☻.╣W☺.½.¼.ⁿ○8Y♀.♠.... 000058E0 00 01 00 B4 00 B5 00 0E 0A 38 59 FD FF 05 00 04 00 37 59 01 00 BD 00 BE 00 20 0A 38 59 03 00 04 .☺.┤.╡.♫◙8Y² ♣.♦.7Y☺.╜.╛. ◙8Y♥.♦ 00005900 00 00 00 00 00 01 00 C6 00 C7 00 32 0A 38 59 FC FF 03 00 08 00 93 57 01 00 CF 00 D0 00 44 0A 38 .....☺.╞.╟.2◙8Yⁿ ♥.◘.ôW☺.╧.╨.D◙8 00005920 59 1A 00 02 00 00 00 00 00 01 00 D8 00 D9 00 FF FF 00 00 FC FF 12 00 08 00 F7 55 01 00 E1 00 E2 Y→.☻.....☺.╪.┘. ..ⁿ ↕.◘.≈U☺.ß.Γ 00005940 00 00 00 90 00 A2 00 B4 00 C6 00 D8 00 EA 00 FC 00 0E 01 20 01 7A 01 8C 01 84 03 38 04 4A 04 54 ...É.ó.┤.╞.╪.Ω.ⁿ.♫☺ ☺z☺î☺ä♥8♦J♦T 00005960 06 66 06 04 08 D8 09 7E 00 72 03 02 00 6C 00 02 00 73 00 02 00 61 00 04 00 63 61 6E 00 02 00 7A ♠f♠♦◘╪○~.r♥☻.l.☻.s.☻.a.♦.can.☻.z 00005980 00 02 00 61 00 07 00 72 6F 75 6E 64 73 00 04 00 01 00 00 00 02 00 01 00 02 00 7A 00 02 00 01 00 .☻.a.•.rounds.♦.☺...☻.☺.☻.z.☻.☺. 000059A0 00 00 08 00 00 00 00 00 D0 12 63 41 02 00 7A 00 02 00 7A 00 02 00 73 00 02 00 01 00 00 00 08 00 ..◘.....╨↕cA☻.z.☻.z.☻.s.☻.☺...◘. 000059C0 00 00 00 00 D0 12 63 41 02 00 7A 00 04 00 01 00 00 00 02 00 00 00 04 00 01 00 00 00 02 00 00 00 ....╨↕cA☻.z.♦.☺...☻...♦.☺...☻... 000059E0 02 00 73 00 02 00 7A 00 03 00 6C 31 00 03 00 6C 31 00 02 00 73 00 04 00 01 00 00 00 02 00 00 00 ☻.s.☻.z.♥.l1.♥.l1.☻.s.♦.☺...☻... 00005A00 03 00 6C 33 00 02 00 7A 00 04 00 01 00 00 00 02 00 01 00 02 00 7A 00 04 00 01 00 00 00 02 00 FF ♥.l3.☻.z.♦.☺...☻.☺.☻.z.♦.☺...☻. 00005A20 FF 04 00 01 00 00 00 02 00 00 00 02 00 7A 00 04 00 01 00 00 00 02 00 01 00 03 00 6C 32 00 03 00 ♦.☺...☻...☻.z.♦.☺...☻.☺.♥.l2.♥. 00005A40 6C 33 00 02 00 7A 00 02 00 73 00 02 00 73 00 04 00 01 00 00 00 02 00 01 00 02 00 6C 00 02 00 73 l3.☻.z.☻.s.☻.s.♦.☺...☻.☺.☻.l.☻.s 00005A60 00 04 00 01 00 00 00 02 00 00 00 02 00 73 00 02 00 6C 00 04 00 01 00 00 00 02 00 01 00 02 00 73 .♦.☺...☻...☻.s.☻.l.♦.☺...☻.☺.☻.s 00005A80 00 02 00 01 00 00 00 08 00 00 00 00 00 D0 12 63 41 02 00 6C 00 02 00 7A 00 02 00 7A 00 03 00 6C .☻.☺...◘.....╨↕cA☻.l.☻.z.☻.z.♥.l 00005AA0 32 00 02 00 7A 00 04 00 01 00 00 00 02 00 00 00 02 00 7A 00 03 00 6C 33 00 78 03 00 62 79 00 00 2.☻.z.♦.☺...☻...☻.z.♥.l3.x♥.by.. 00005AC0 01 00 0C 1E 00 06 00 05 00 07 00 0E 00 02 00 01 00 01 00 08 00 68 01 02 00 01 00 06 00 3C 00 20 ☺.♀▲.♠.♣.•.♫.☻.☺.☺.◘.h☺☻.☺.♠.<. 00005AE0 7A 23 62 20 62 79 20 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 z#b by c 00005B00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 7A 65 72 'zer 00005B20 6F 20 69 73 20 69 6E 76 61 6C 69 64 20 61 72 67 75 6D 65 6E 74 27 68 61 6E 67 20 30 3D 31 59 63 o is invalid argument'hang 0=1Yc 00005B40 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 31 2C 52 7A 29 z#(1,Rz) 00005B60 52 7A 23 62 2C 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 Rz#b,c 00005B80 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 20 20 20 20 20 $0 00005BA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005BC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 62 79 20 2D 20 73 65 65 20 47 74 6F 2E 20 20 20 "by - see Gto. 00005BE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005C00 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 00005C20 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 00005C40 2C 20 69 62 6D 2E 20 12 00 FF FF 00 00 FC FF 08 00 08 00 D6 53 01 00 E9 DC 00 C4 24 00 1A 58 FC , ibm. ↕. ..ⁿ ◘.◘.╓S☺.Θ▄.─$.→Xⁿ 00005C60 FF 05 00 0E 00 49 53 01 00 00 E9 D6 FE 00 00 1A 58 FC FF 03 00 0A 00 0A 53 01 00 CE D1 E0 26 48 ♣.♫.IS☺..Θ╓■..→Xⁿ ♥.◙.◙S☺.╬╤α&H 00005C80 00 1A 58 03 00 02 00 00 00 00 00 01 00 D1 E0 D1 E0 24 00 1A 58 FC FF 01 00 04 00 0A 53 01 00 FF .→X♥.☻.....☺.╤α╤α$.→Xⁿ ☺.♦.◙S☺. 00005CA0 35 C4 7E 6C 00 1A 58 FC FF 24 00 06 00 B6 54 01 00 83 C4 08 8B 7E 00 1A 58 39 00 23 00 00 00 00 5─~l.→Xⁿ $.♠.╢T☺.â─◘ï~.→X9.#.... 00005CC0 00 01 00 41 8E C2 89 90 00 1A 58 FD FF 22 00 0E 00 C2 54 01 00 51 26 FF 77 A2 00 1A 58 1D 00 21 .☺.AÄ┬ëÉ.→X² ".♫.┬T☺.Q& wó.→X↔.! 00005CE0 00 00 00 00 00 01 00 D1 09 C1 89 B4 00 1A 58 FD FF 20 00 0A 00 BC 54 01 00 C1 10 C4 5E C6 00 1A .....☺.╤○┴ë┤.→X² .◙.╝T☺.┴►─^╞.→ 00005D00 58 FC FF 1B 00 0E 00 D6 53 01 00 0C FF 76 0A FF FF 00 00 07 00 01 00 08 00 B3 54 01 00 29 34 83 Xⁿ ←.♫.╓S☺.♀ v◙ ..•.☺.◘.│T☺.)4â 00005D20 C4 EA 00 1A 58 FC FF 0E 00 06 00 C2 54 01 00 8B E5 5D 4D FC 00 1A 58 0C 00 0D 00 00 00 00 00 01 ─Ω.→Xⁿ ♫.♠.┬T☺.ïσ]Mⁿ.→X♀.♪.....☺ 00005D40 00 00 00 50 B0 0E 01 1A 58 FC FF 0C 00 10 00 BD 54 01 00 8E 4B 8A 10 20 01 1A 58 03 00 0B 00 00 ...P░♫☺→Xⁿ ♀.►.╜T☺.ÄKè► ☺→X♥.♂.. 00005D60 00 00 00 01 00 52 29 34 83 32 01 1A 58 FC FF 0A 00 04 00 BC 54 01 00 D9 54 26 9A 44 01 1A 58 32 ...☺.R)4â2☺→Xⁿ ◙.♦.╝T☺.┘T&ÜD☺→X2 00005D80 00 09 00 00 00 00 00 01 00 83 EC 0A 56 56 01 1A 58 09 00 08 00 00 00 00 00 01 00 7E 03 BF 0D 68 .○.....☺.â∞◙VV☺→X○.◘.....☺.~♥┐♪h 00005DA0 01 1A 58 FC FF 07 00 0E 00 BB 54 01 00 D7 4A 20 02 7A 01 1A 58 32 00 06 00 00 00 00 00 01 00 E3 ☺→Xⁿ •.♫.╗T☺.╫J ☻z☺→X2.♠.....☺.π 00005DC0 D1 E3 8D 8C 01 1A 58 0C 00 05 00 00 00 00 00 01 00 29 34 83 C4 9E 01 1A 58 FD FF 04 00 04 00 E6 ╤πìî☺→X♀.♣.....☺.)4â─₧☺→X² ♦.♦.µ 00005DE0 54 01 00 F8 FF 76 F6 B0 01 1A 58 08 00 03 00 00 00 00 00 01 00 FC 4F 03 D8 C2 01 1A 58 03 00 02 T☺.° v÷░☺→X◘.♥.....☺.ⁿO♥╪┬☺→X♥.☻ 00005E00 00 00 00 00 00 01 00 FF 36 6C 68 FF FF 00 00 FC FF 01 00 0C 00 B6 54 01 00 B8 0C 50 50 E6 01 1A .....☺. 6lh ..ⁿ ☺.♀.╢T☺.╕♀PPµ☺→ 00005E20 58 FD FF 02 00 06 00 A9 55 01 00 1E B8 2A 50 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 1E B8 48 X² ☻.♠.⌐U☺.▲╕*P ..♦.☺.....☺.▲╕H 00005E40 50 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 03 BF 02 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 P ..☻.......☺.♥┐☻. ..☻.......☺ 00005E60 00 68 74 16 0E 00 00 5A 00 D8 00 D4 01 F8 01 0A 02 48 00 FF FF 02 00 63 00 03 00 62 79 00 02 00 .ht▬♫..Z.╪.╘☺°☺◙☻H. ☻.c.♥.by.☻. 00005E80 62 00 02 00 7A 00 02 00 63 00 04 00 01 00 00 00 02 00 01 00 04 00 01 00 00 00 02 00 00 00 05 00 b.☻.z.☻.c.♦.☺...☻.☺.♦.☺...☻...♣. 00005EA0 68 61 6E 67 00 08 00 18 00 01 00 01 00 18 00 7A 65 72 6F 20 69 73 20 69 6E 76 61 6C 69 64 20 61 hang.◘.↑.☺.☺.↑.zero is invalid a 00005EC0 72 67 75 6D 65 6E 74 02 00 63 00 02 00 62 00 02 00 7A 00 02 00 7A 00 04 00 01 00 00 00 02 00 01 rgument☻.c.☻.b.☻.z.☻.z.♦.☺...☻.☺ 00005EE0 00 02 00 7A 00 04 00 01 00 00 00 02 00 00 00 78 07 00 62 65 73 69 64 65 00 00 01 00 0C 51 00 0E .☻.z.♦.☺...☻...x•.beside..☺.♀Q.♫ 00005F00 00 09 00 09 00 09 00 0C 00 0C 00 09 00 07 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 48 .○.○.○.♀.♀.○.•.☻.☺.☺.☺.☺.☺.☺.◘.H 00005F20 03 02 00 01 00 0E 00 3C 00 20 7A 23 61 20 62 65 73 69 64 65 20 62 3B 69 3B 6A 20 20 20 20 20 20 ♥☻.☺.♫.<. z#a beside b;i;j 00005F40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005F60 20 20 20 20 20 20 69 23 31 59 52 61 23 70 72 65 70 61 72 65 20 61 20 20 20 20 20 20 20 20 20 20 i#1YRa#prepare a 00005F80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005FA0 20 20 6A 23 31 59 52 62 23 70 72 65 70 61 72 65 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 j#1YRb#prepare b 00005FC0 20 20 20 20 20 20 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 28 $( 00005FE0 6C 31 2C 6C 32 2C 6C 30 29 69 66 20 69 20 63 6F 6D 70 61 72 65 20 6A 20 20 20 20 20 20 20 20 20 l1,l2,l0)if i compare j 00006000 20 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 30 3A 24 6C 32 20 l0:$l2 00006020 48 20 62 23 28 69 5F 6A 29 61 64 64 72 6F 77 73 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 H b#(i_j)addrows b 00006040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6C 31 3A 61 23 28 6A 5F 69 29 61 l1:a#(j_i)a 00006060 64 64 72 6F 77 73 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 ddrows a 00006080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6C 32 3A 7A 23 61 2C 27 7C 27 2C 62 20 20 20 l2:z#a,'|',b 000060A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000060C0 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 20 20 20 20 20 $0 000060E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00006100 20 20 20 20 20 20 20 20 20 22 62 65 73 69 64 65 20 2D 20 70 72 65 73 65 6E 74 73 20 74 77 6F 20 "beside - presents two 00006120 73 74 72 75 63 74 75 72 65 73 20 73 69 64 65 20 62 79 20 73 69 64 65 20 69 6E 20 72 65 70 6F 72 structures side by side in repor 00006140 74 20 20 20 20 22 66 6F 72 6D 61 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t "format 00006160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00006180 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 68 "from 'the apl handbook of tech 000061A0 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 63 niques' copyright 1978, ibm. "-c 000061C0 61 6E 20 66 6F 72 6D 61 74 20 61 20 72 65 70 6F 72 74 20 77 69 74 68 20 72 6F 77 20 68 65 61 64 an format a report with row head 000061E0 69 6E 67 73 20 61 6E 64 20 61 20 73 65 70 61 72 61 74 6F 72 2C 20 20 20 20 22 20 6F 72 20 73 69 ings and a separator, " or si 00006200 6D 70 6C 79 20 6A 6F 69 6E 20 74 77 6F 20 64 69 73 70 61 72 61 74 65 20 6D 61 74 72 69 63 65 73 mply join two disparate matrices 00006220 2E 20 20 73 65 65 20 47 63 63 61 74 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 70 72 . see Gccat "-uses: Gpr 00006240 65 70 61 72 65 20 47 63 6F 6D 70 61 72 65 20 47 69 66 20 47 61 64 64 72 6F 77 73 20 20 20 20 20 epare Gcompare Gif Gaddrows 00006260 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 10 00 0A 00 2F 53 01 Z. ..ⁿ ►.◙./S☺ 00006280 00 07 0B 06 20 24 00 33 57 1B 00 0F 00 00 00 00 00 01 00 E5 5D 4D CA 00 00 33 57 FC FF 0E 00 08 .•♂♠ $.3W←.☼.....☺.σ]M╩..3Wⁿ ♫.◘ 000062A0 00 22 52 01 00 1E 20 07 03 48 00 33 57 1B 00 0D 00 00 00 00 00 01 00 83 29 34 83 24 00 33 57 FC ."R☺.▲ •♥H.3W←.♪.....☺.â)4â$.3Wⁿ 000062C0 FF 0C 00 06 00 06 52 01 00 5E 06 26 89 6C 00 33 57 FC FF 05 00 10 00 0E 53 01 00 02 26 89 07 48 ♀.♠.♠R☺.^♠&ël.3Wⁿ ♣.►.♫S☺.☻&ë•H 000062E0 00 33 57 FC FF 03 00 02 00 05 52 01 00 FF 76 08 FF 90 00 33 57 03 00 02 00 00 00 00 00 01 00 90 .3Wⁿ ♥.☻.♣R☺. v◘ É.3W♥.☻.....☺.É 00006300 82 29 34 6C 00 33 57 FC FF 01 00 0C 00 04 52 01 00 EC FF 76 0C B4 00 33 57 FC FF 10 00 0E 00 3C é)4l.3Wⁿ ☺.♀.♦R☺.∞ v♀┤.3Wⁿ ►.♫.< 00006320 53 01 00 0E E8 1C 00 C6 00 33 57 FC FF 08 00 0A 00 D9 53 01 00 85 82 29 34 D8 00 33 57 03 00 07 S☺.♫Φ∟.╞.3Wⁿ ◘.◙.┘S☺.àé)4╪.3W♥.• 00006340 00 00 00 00 00 01 00 C4 5E 06 26 EA 00 33 57 FC FF 06 00 06 00 30 53 01 00 CA 04 00 31 FC 00 33 .....☺.─^♠&Ω.3Wⁿ ♠.♠.0S☺.╩♦.1ⁿ.3 00006360 57 32 00 05 00 00 00 00 00 01 00 CA 08 00 45 0E 01 33 57 39 00 04 00 00 00 00 00 01 00 8B EC 8B W2.♣.....☺.╩◘.E♫☺3W9.♦.....☺.ï∞ï 00006380 46 20 01 33 57 FD FF 03 00 02 00 CC 53 01 00 34 89 D1 09 32 01 33 57 03 00 02 00 00 00 00 00 01 F ☺3W² ♥.☻.╠S☺.4ë╤○2☺3W♥.☻.....☺ 000063A0 00 26 89 47 02 FF FF 00 00 FC FF 01 00 10 00 2F 53 01 00 8B 46 06 5D 56 01 33 57 FC FF 10 00 0E .&ëG☻ ..ⁿ ☺.►./S☺.ïF♠]V☺3Wⁿ ►.♫ 000063C0 00 D1 53 01 00 74 1C FF 76 68 01 33 57 FC FF 08 00 0C 00 DC 53 01 00 0B FF 76 08 7A 01 33 57 03 .╤S☺.t∟ vh☺3Wⁿ ◘.♀.▄S☺.♂ v◘z☺3W♥ 000063E0 00 07 00 00 00 00 00 01 00 55 8B EC 31 8C 01 33 57 FC FF 06 00 0C 00 CE 53 01 00 06 26 FF 77 9E .•.....☺.Uï∞1î☺3Wⁿ ♠.♀.╬S☺.♠& w₧ 00006400 01 33 57 32 00 05 00 00 00 00 00 01 00 47 04 00 00 B0 01 33 57 39 00 04 00 00 00 00 00 01 00 EC ☺3W2.♣.....☺.G♦..░☺3W9.♦.....☺.∞ 00006420 83 EC 08 C2 01 33 57 FD FF 03 00 10 00 80 54 01 00 D7 4A C0 05 D4 01 33 57 03 00 02 00 00 00 00 â∞◘┬☺3W² ♥.►.ÇT☺.╫J└♣╘☺3W♥.☻.... 00006440 00 01 00 08 8B 46 06 FF FF 00 00 FC FF 01 00 02 00 4C 53 01 00 26 2B 37 3B F8 01 33 57 FC FF 19 .☺.◘ïF♠ ..ⁿ ☺.☻.LS☺.&+7;°☺3Wⁿ ↓ 00006460 00 02 00 CE 54 01 00 03 CF 83 C1 0A 02 33 57 FC FF 11 00 08 00 CD 54 01 00 89 46 F8 74 1C 02 33 .☻.╬T☺.♥╧â┴◙☻3Wⁿ ◄.◘.═T☺.ëF°t∟☻3 00006480 57 FC FF 0F 00 0E 00 CB 54 01 00 83 C1 10 51 2E 02 33 57 FC FF 0C 00 04 00 CA 54 01 00 66 29 34 Wⁿ ☼.♫.╦T☺.â┴►Q.☻3Wⁿ ♀.♦.╩T☺.f)4 000064A0 83 40 02 33 57 09 00 0B 00 00 00 00 00 01 00 0C FF 76 0A 52 02 33 57 FC FF 09 00 06 00 C7 54 01 â@☻3W○.♂.....☺.♀ v◙R☻3Wⁿ ○.♠.╟T☺ 000064C0 00 52 50 9A B2 64 02 33 57 0C 00 08 00 00 00 00 00 01 00 07 1E BE 30 76 02 33 57 FC FF 06 00 0C .RPÜ▓d☻3W♀.◘.....☺.•▲╛0v☻3Wⁿ ♠.♀ 000064E0 00 B8 54 01 00 53 9A B2 4D 88 02 33 57 0C 00 05 00 00 00 00 00 01 00 45 55 8B EC 9A 02 33 57 FC .╕T☺.SÜ▓Mê☻3W♀.♣.....☺.EUï∞Ü☻3Wⁿ 00006500 FF 03 00 06 00 B8 54 01 00 FF 76 08 FF AC 02 33 57 08 00 02 00 00 00 00 00 01 00 8B EC 83 EC FF ♥.♠.╕T☺. v◘ ¼☻3W◘.☻.....☺.ï∞â∞ 00006520 FF 00 00 04 00 01 00 00 00 00 00 01 00 89 56 FE 89 D0 02 33 57 FC FF 18 00 04 00 9F 55 01 00 C4 ..♦.☺.....☺.ëV■ë╨☻3Wⁿ ↑.♦.ƒU☺.─ 00006540 1E 26 07 E2 02 33 57 FC FF 10 00 08 00 9A 55 01 00 16 28 07 A3 F4 02 33 57 09 00 0F 00 00 00 00 ▲&•Γ☻3Wⁿ ►.◘.ÜU☺.▬(•ú⌠☻3W○.☼.... 00006560 00 01 00 CB 45 55 8B 06 03 33 57 FC FF 0E 00 0E 00 98 55 01 00 00 00 EB 56 18 03 33 57 3F 00 0D .☺.╦EUï♠♥3Wⁿ ♫.♫.ÿU☺...δV↑♥3W?.♪ 00006580 00 00 00 00 00 01 00 56 FE 8B 46 2A 03 33 57 FC FF 0C 00 02 00 E2 54 01 00 D7 8A 46 FA 3C 03 33 .....☺.V■ïF*♥3Wⁿ ♀.☻.ΓT☺.╫èF·<♥3 000065A0 57 08 00 0B 00 00 00 00 00 01 00 03 C3 13 D1 4E 03 33 57 03 00 0A 00 00 00 00 00 01 00 8B 46 FE W◘.♂.....☺.♥├‼╤N♥3W♥.◙.....☺.ïF■ 000065C0 0B 60 03 33 57 FC FF 09 00 0C 00 E1 54 01 00 C4 5E 06 FF 72 03 33 57 FC FF 07 00 06 00 E1 54 01 ♂`♥3Wⁿ ○.♀.ßT☺.─^♠ r♥3Wⁿ •.♠.ßT☺ 000065E0 00 BB FF FF 89 84 03 33 57 FC FF 04 00 02 00 D6 54 01 00 FC 89 56 FE 96 03 33 57 04 00 03 00 00 .╗ ëä♥3Wⁿ ♦.☻.╓T☺.ⁿëV■û♥3W♦.♥.. 00006600 00 00 00 01 00 00 45 55 8B A8 03 33 57 1A 00 02 00 00 00 00 00 01 00 99 89 16 2C 6E 04 33 57 FC ...☺..EUï¿♥3W→.☻.....☺.Öë▬,n♦3Wⁿ 00006620 FF 04 00 0C 00 D5 54 01 00 16 7C 66 8B CC 03 33 57 FC FF 12 00 0A 00 B0 55 01 00 39 89 1E 02 DE ♦.♀.╒T☺.▬|fï╠♥3Wⁿ ↕.◙.░U☺.9ë▲☻▐ 00006640 03 33 57 FC FF 0A 00 0C 00 AE 55 01 00 C0 50 16 8D F0 03 33 57 09 00 09 00 00 00 00 00 01 00 8B ♥3Wⁿ ◙.♀.«U☺.└P▬ì≡♥3W○.○.....☺.ï 00006660 46 E0 FF 02 04 33 57 FC FF 08 00 0E 00 AB 55 01 00 02 26 8B 07 14 04 33 57 3F 00 07 00 00 00 00 Fα ☻♦3Wⁿ ◘.♫.½U☺.☻&♦3W?.•.... 00006680 00 01 00 F9 2D 74 08 26 04 33 57 FC FF 06 00 10 00 A8 55 01 00 BF 3C 07 B9 38 04 33 57 08 00 05 .☺.∙-t◘&♦3Wⁿ ♠.►.¿U☺.┐<•╣8♦3W◘.♣ 000066A0 00 00 00 00 00 01 00 8B 56 DE 8B 4A 04 33 57 03 00 04 00 00 00 00 00 01 00 09 F6 7E 03 5C 04 33 .....☺.ïV▐ïJ♦3W♥.♦.....☺.○÷~♥\♦3 000066C0 57 FC FF 03 00 04 00 A1 55 01 00 D2 01 80 4E 6E 04 33 57 1A 00 02 00 00 00 00 00 01 00 74 04 3C Wⁿ ♥.♦.íU☺.╥☺ÇNn♦3W→.☻.....☺.t♦< 000066E0 57 10 05 33 57 FC FF 05 00 0E 00 A0 55 01 00 74 1A 3C 64 92 04 33 57 FC FF 0B 00 10 00 BB 55 01 W►♣3Wⁿ ♣.♫.áU☺.t→<dÆ♦3Wⁿ ♂.►.╗U☺ 00006700 00 62 74 07 3C A4 04 33 57 0C 00 0A 00 00 00 00 00 01 00 01 C4 5E DC B6 04 33 57 07 00 07 00 0C .bt•<ñ♦3W♀.◙.....☺.☺─^▄╢♦3W•.•.♀ 00006720 00 BE 55 01 00 EB 03 BE 01 C8 04 33 57 0C 00 06 00 00 00 00 00 01 00 01 00 89 F0 DA 04 33 57 FC .╛U☺.δ♥╛☺╚♦3W♀.♠.....☺.☺.ë≡┌♦3Wⁿ 00006740 FF 05 00 06 00 BA 55 01 00 52 50 89 46 EC 04 33 57 03 00 04 00 00 00 00 00 01 00 05 50 9A 3C FE ♣.♠.║U☺.RPëF∞♦3W♥.♦.....☺.♣PÜ<■ 00006760 04 33 57 FC FF 03 00 06 00 B1 55 01 00 FC 51 53 52 10 05 33 57 1A 00 02 00 00 00 00 00 01 00 FF ♦3Wⁿ ♥.♠.▒U☺.ⁿQSR►♣3W→.☻.....☺. 00006780 76 E8 FF FF FF 00 00 FC FF 06 00 10 00 B0 55 01 00 06 BE 63 75 34 05 33 57 FD FF 02 00 0A 00 C7 vΦ ..ⁿ ♠.►.░U☺.♠╛cu4♣3W² ☻.◙.╟ 000067A0 55 01 00 50 FF 76 E8 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 C1 89 56 E4 FF FF 00 00 02 00 00 U☺.P vΦ ..♦.☺.....☺.┴ëVΣ ..☻.. 000067C0 00 00 00 00 00 01 00 74 08 C7 06 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 50 31 C0 FF FF 00 .....☺.t◘╟♠ ..☻.......☺..P1└ . 000067E0 00 02 00 00 00 00 00 00 00 01 00 01 00 50 9A FF FF 00 00 02 00 00 00 00 00 00 00 01 00 4C 29 34 .☻.......☺.☺.PÜ ..☻.......☺.L)4 00006800 83 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 E9 8D 00 0E FF FF 00 00 02 00 00 00 00 00 00 00 01 â ..☻.......☺.Θì.♫ ..☻.......☺ 00006820 00 74 26 FF 76 00 00 A2 00 44 01 E6 01 BE 02 BA 03 80 04 22 05 46 05 58 05 6A 05 7C 05 8E 05 A0 .t& v..ó.D☺µ☺╛☻║♥Ç♦"♣F♣X♣j♣|♣Ä♣á 00006840 05 90 00 A8 03 02 00 6A 00 02 00 69 00 02 00 62 00 07 00 62 65 73 69 64 65 00 02 00 61 00 02 00 ♣É.¿♥☻.j.☻.i.☻.b.•.beside.☻.a.☻. 00006860 7A 00 02 00 61 00 08 00 70 72 65 70 61 72 65 00 02 00 61 00 04 00 01 00 00 00 02 00 01 00 02 00 z.☻.a.◘.prepare.☻.a.♦.☺...☻.☺.☻. 00006880 69 00 02 00 62 00 08 00 70 72 65 70 61 72 65 00 02 00 62 00 04 00 01 00 00 00 02 00 01 00 02 00 i.☻.b.◘.prepare.☻.b.♦.☺...☻.☺.☻. 000068A0 6A 00 02 00 6A 00 08 00 63 6F 6D 70 61 72 65 00 02 00 69 00 03 00 69 66 00 03 00 6C 30 00 03 00 j.☻.j.◘.compare.☻.i.♥.if.♥.l0.♥. 000068C0 6C 32 00 03 00 6C 31 00 02 00 62 00 08 00 61 64 64 72 6F 77 73 00 02 00 6A 00 02 00 69 00 02 00 l2.♥.l1.☻.b.◘.addrows.☻.j.☻.i.☻. 000068E0 62 00 02 00 48 00 03 00 6C 32 00 03 00 6C 30 00 02 00 61 00 08 00 61 64 64 72 6F 77 73 00 02 00 b.☻.H.♥.l2.♥.l0.☻.a.◘.addrows.☻. 00006900 69 00 02 00 6A 00 02 00 61 00 03 00 6C 31 00 02 00 62 00 08 00 01 00 00 00 01 00 7C 02 00 61 00 i.☻.j.☻.a.♥.l1.☻.b.◘.☺...☺.|☻.a. 00006920 02 00 7A 00 03 00 6C 32 00 04 00 01 00 00 00 02 00 00 00 78 07 00 61 6C 70 72 65 63 00 00 01 00 ☻.z.♥.l2.♦.☺...☻...x•.alprec..☺. 00006940 0C 3C 00 16 00 05 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 ♀<.▬.♣.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺ 00006960 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 23 00 08 00 96 05 02 00 01 00 16 00 41 00 20 7A 20 .☺.☺.☺.☺.☺.☺.☺.#.◘.û♣☻.☺.▬.A. z 00006980 23 20 6E 20 61 6C 70 72 65 63 20 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 # n alprec x 000069A0 20 20 20 20 20 20 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 61 "a 000069C0 6C 70 72 65 63 20 2D 20 61 6C 74 65 72 20 70 72 65 63 69 73 69 6F 6E 20 6F 66 20 61 20 73 63 61 lprec - alter precision of a sca 000069E0 6C 61 72 20 6F 72 20 6D 75 6C 74 69 70 72 65 63 69 73 69 6F 6E 20 6E 75 6D 62 65 72 2E 20 20 22 lar or multiprecision number. " 00006A00 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 68 6E 69 from 'the apl handbook of techni 00006A20 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 20 20 20 20 20 ques' copyright 1978, ibm. 00006A40 22 2D 66 6F 72 20 78 20 61 20 73 63 61 6C 61 72 20 6F 72 20 6D 75 6C 74 69 70 72 65 63 69 73 69 "-for x a scalar or multiprecisi 00006A60 6F 6E 20 69 6E 74 65 67 65 72 20 6F 72 20 66 6C 6F 61 74 69 6E 67 20 70 6F 69 6E 74 20 20 20 20 on integer or floating point 00006A80 20 22 20 6E 75 6D 62 65 72 20 6F 66 20 70 72 65 63 69 73 69 6F 6E 20 6D 20 28 69 2E 65 2E 20 28 " number of precision m (i.e. ( 00006AA0 72 78 29 3D 6D 2B 31 29 2C 20 7A 20 77 69 6C 6C 20 62 65 20 73 65 74 20 74 6F 20 74 68 65 20 20 rx)=m+1), z will be set to the 00006AC0 20 20 22 20 66 6C 6F 61 74 69 6E 67 20 70 6F 69 6E 74 20 6E 75 6D 62 65 72 20 6F 66 20 70 72 65 " floating point number of pre 00006AE0 63 69 73 69 6F 6E 20 6D 2B 6E 20 77 68 6F 73 65 20 76 61 6C 75 65 20 69 73 20 74 68 65 20 20 20 cision m+n whose value is the 00006B00 20 20 20 22 20 73 61 6D 65 20 61 73 20 6F 72 20 74 72 75 6E 63 61 74 65 64 20 66 72 6F 6D 20 74 " same as or truncated from t 00006B20 68 61 74 20 6F 66 20 78 2E 20 20 28 73 63 61 6C 61 72 73 20 68 61 76 65 20 20 20 20 20 20 20 20 hat of x. (scalars have 00006B40 20 20 20 20 22 20 69 6D 70 6C 69 63 69 74 20 70 72 65 63 69 73 69 6F 6E 20 33 2E 29 20 20 20 20 " implicit precision 3.) 00006B60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00006B80 20 20 20 20 20 22 2D 69 6E 20 62 72 69 65 66 2C 20 78 20 69 73 20 65 78 74 65 6E 64 65 64 20 6F "-in brief, x is extended o 00006BA0 6E 20 74 68 65 20 72 69 67 68 74 20 77 69 74 68 20 7A 65 72 6F 73 20 28 69 66 20 6E 3E 30 29 20 n the right with zeros (if n>0) 00006BC0 20 20 20 20 20 20 22 20 6F 72 20 74 72 75 6E 63 61 74 65 64 20 6F 6E 20 74 68 65 20 72 69 67 68 " or truncated on the righ 00006BE0 74 20 28 69 66 20 6E 3C 30 29 2E 20 20 74 68 65 20 65 78 70 6F 6E 65 6E 74 20 28 31 79 78 29 20 t (if n<0). the exponent (1yx) 00006C00 69 73 20 20 20 20 20 22 20 69 6E 63 72 65 61 73 65 64 20 62 79 20 6E 20 74 6F 20 63 6F 6D 70 65 is " increased by n to compe 00006C20 6E 73 61 74 65 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 nsate. 00006C40 20 20 20 20 20 20 20 20 22 2D 73 69 6E 63 65 20 61 6C 6C 20 74 68 65 20 66 75 6E 63 74 69 6F 6E "-since all the function 00006C60 73 20 69 6E 20 74 68 65 20 6D 75 6C 74 69 70 72 65 63 69 73 69 6F 6E 20 66 6C 6F 61 74 69 6E 67 s in the multiprecision floating 00006C80 20 20 20 20 20 20 20 20 20 22 20 70 6F 69 6E 74 20 70 61 63 6B 61 67 65 20 64 65 74 65 72 6D 69 " point package determi 00006CA0 6E 65 20 74 68 65 20 70 72 65 63 69 73 69 6F 6E 20 6F 66 20 74 68 65 20 72 65 73 75 6C 74 20 66 ne the precision of the result f 00006CC0 72 6F 6D 20 20 20 20 20 20 20 22 20 74 68 65 20 70 72 65 63 69 73 69 6F 6E 73 20 6F 66 20 74 68 rom " the precisions of th 00006CE0 65 20 69 6E 70 75 74 2C 20 69 74 20 69 73 20 6F 66 74 65 6E 20 6E 65 63 65 73 73 61 72 79 20 74 e input, it is often necessary t 00006D00 6F 20 20 20 20 20 20 20 20 20 20 22 20 69 6E 64 69 63 61 74 65 20 74 68 65 20 70 72 65 63 69 73 o " indicate the precis 00006D20 69 6F 6E 20 6F 66 20 73 6F 6D 65 20 65 78 61 63 74 20 71 75 61 6E 74 69 74 79 20 28 73 75 63 68 ion of some exact quantity (such 00006D40 20 61 73 20 61 6E 20 20 20 20 20 20 22 20 69 6E 74 65 67 65 72 29 20 73 6F 20 61 73 20 6E 6F 74 as an " integer) so as not 00006D60 20 74 6F 20 63 61 75 73 65 20 69 6E 76 6F 6C 75 6E 74 61 72 79 20 73 68 6F 72 74 65 6E 69 6E 67 to cause involuntary shortening 00006D80 20 6F 66 20 20 20 20 20 20 20 20 20 20 22 20 70 72 65 63 69 73 69 6F 6E 2E 20 20 73 65 65 20 74 of " precision. see t 00006DA0 68 65 20 65 78 61 6D 70 6C 65 73 20 62 65 6C 6F 77 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 he examples below. 00006DC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 64 65 63 72 65 61 73 69 6E 67 20 74 68 65 20 70 "-decreasing the p 00006DE0 72 65 63 69 73 69 6F 6E 20 6F 66 20 61 20 6E 75 6D 62 65 72 20 28 62 79 20 75 73 69 6E 67 20 6E recision of a number (by using n 00006E00 65 67 61 74 69 76 65 20 6E 29 20 20 20 20 20 22 20 6D 61 79 20 6F 63 63 61 73 69 6F 6E 61 6C 6C egative n) " may occasionall 00006E20 79 20 62 65 20 6E 65 63 65 73 73 61 72 79 20 69 66 20 74 68 65 20 72 65 73 75 6C 74 20 6F 66 20 y be necessary if the result of 00006E40 61 6E 20 69 6E 74 65 72 2D 20 20 20 20 20 20 20 22 20 6D 65 64 69 61 74 65 20 63 61 6C 63 75 6C an inter- " mediate calcul 00006E60 61 74 69 6F 6E 20 69 73 20 61 73 73 69 67 6E 65 64 20 61 20 73 70 75 72 69 6F 75 73 6C 79 20 68 ation is assigned a spuriously h 00006E80 69 67 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 70 72 65 63 69 73 69 6F 6E 20 62 79 20 igh " precision by 00006EA0 6F 6E 65 20 6F 66 20 74 68 65 20 61 72 69 74 68 6D 65 74 69 63 20 66 75 6E 63 74 69 6F 6E 73 2E one of the arithmetic functions. 00006EC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7A 23 28 5F 6E 5F 31 59 78 29 2C 31 55 z#(_n_1Yx),1U 00006EE0 28 28 52 2C 78 29 2B 6E 23 6E 53 32 5F 52 2C 78 29 59 78 23 66 6C 6F 61 74 20 78 20 20 20 20 20 ((R,x)+n#nS2_R,x)Yx#float x 00006F00 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 06 00 E6 ↕. ..ⁿ ♫.♠.µ 00006F20 51 01 00 01 00 15 00 24 00 39 54 FC FF 07 00 0A 00 E0 51 01 00 63 20 78 20 00 00 39 54 FC FF 05 Q☺.☺.§.$.9Tⁿ •.◙.αQ☺.c x ..9Tⁿ ♣ 00006F40 00 10 00 DE 51 01 00 20 20 20 20 48 00 39 54 03 00 03 00 00 00 00 00 01 00 20 20 20 20 24 00 39 .►.▐Q☺. H.9T♥.♥.....☺. $.9 00006F60 54 FC FF 01 00 0C 00 45 51 01 00 61 6C 70 72 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 63 69 73 Tⁿ ☺.♀.EQ☺.alpr ..☻.......☺.cis 00006F80 69 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 6F 72 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 i ..☻.......☺. or ..☻.......☺ 00006FA0 00 20 6E 75 6D FF FF 00 00 02 00 00 00 00 00 00 00 01 00 68 65 20 61 FF FF 00 00 02 00 00 00 00 . num ..☻.......☺.he a ..☻.... 00006FC0 00 00 00 01 00 20 74 65 63 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 69 67 68 74 FF FF 00 00 02 ...☺. tec ..☻.......☺.ight ..☻ 00006FE0 00 00 00 00 00 00 00 01 00 20 20 20 22 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 72 20 6F 72 FF .......☺. " ..☻.......☺.r or 00007000 FF 00 00 02 00 00 00 00 00 00 00 01 00 6E 20 69 6E FF FF 00 00 02 00 00 00 00 00 00 00 01 00 69 ..☻.......☺.n in ..☻.......☺.i 00007020 6E 67 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 6D 62 65 72 FF FF 00 00 02 00 00 00 00 00 00 ng ..☻.......☺.mber ..☻...... 00007040 00 01 00 6D 20 28 69 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 7A 20 77 FF FF 00 00 02 00 00 .☺.m (i ..☻.......☺. z w ..☻.. 00007060 00 00 00 00 00 01 00 74 68 65 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 70 6F 69 6E FF FF 00 .....☺.the ..☻.......☺.poin . 00007080 00 02 00 00 00 00 00 00 00 01 00 65 63 69 73 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 76 61 6C .☻.......☺.ecis ..☻.......☺.val 000070A0 75 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 22 20 73 61 FF FF 00 00 02 00 00 00 00 00 00 00 01 u ..☻.......☺." sa ..☻.......☺ 000070C0 00 61 74 65 64 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 78 2E 20 20 D4 01 39 54 FC FF 28 00 0C .ated ..☻.......☺.x. ╘☺9Tⁿ (.♀ 000070E0 00 29 53 01 00 20 20 20 20 E6 01 39 54 FC FF 22 00 04 00 29 53 01 00 63 69 74 20 F8 01 39 54 03 .)S☺. µ☺9Tⁿ ".♦.)S☺.cit °☺9T♥ 00007100 00 21 00 00 00 00 00 01 00 20 20 20 20 0A 02 39 54 FC FF 20 00 0A 00 1D 53 01 00 20 20 20 20 1C .!.....☺. ◙☻9Tⁿ .◙.↔S☺. ∟ 00007120 02 39 54 39 00 1F 00 00 00 00 00 01 00 20 20 20 20 2E 02 39 54 09 00 1E 00 00 00 00 00 01 00 69 ☻9T9.▼.....☺. .☻9T○.▲.....☺.i 00007140 73 20 65 40 02 39 54 FC FF 1D 00 0E 00 1B 53 01 00 20 72 69 67 52 02 39 54 0C 00 1C 00 00 00 00 s e@☻9Tⁿ ↔.♫.←S☺. rigR☻9T♀.∟.... 00007160 00 01 00 28 69 66 20 64 02 39 54 32 00 1B 00 00 00 00 00 01 00 72 20 74 72 76 02 39 54 3F 00 1A .☺.(if d☻9T2.←.....☺.r trv☻9T?.→ 00007180 00 00 00 00 00 01 00 20 72 69 67 88 02 39 54 FD FF 19 00 04 00 3D 53 01 00 74 68 65 20 9A 02 39 .....☺. rigê☻9T² ↓.♦.=S☺.the Ü☻9 000071A0 54 33 00 18 00 00 00 00 00 01 00 20 69 73 20 AC 02 39 54 FC FF 17 00 08 00 1B 53 01 00 64 20 62 T3.↑.....☺. is ¼☻9Tⁿ ↨.◘.←S☺.d b 000071C0 79 BE 02 39 54 03 00 16 00 00 00 00 00 01 00 74 65 2E 20 D0 02 39 54 FC FF 15 00 02 00 1B 53 01 y╛☻9T♥.▬.....☺.te. ╨☻9Tⁿ §.☻.←S☺ 000071E0 00 20 20 20 20 E2 02 39 54 0B 00 14 00 00 00 00 00 01 00 20 22 2D 73 F4 02 39 54 09 00 13 00 00 . Γ☻9T♂.¶.....☺. "-s⌠☻9T○.‼.. 00007200 00 00 00 01 00 75 6E 63 74 06 03 39 54 FC FF 12 00 0E 00 03 52 01 00 6C 74 69 70 18 03 39 54 0C ...☺.unct♠♥9Tⁿ ↕.♫.♥R☺.ltip↑♥9T♀ 00007220 00 11 00 00 00 00 00 01 00 69 6E 67 20 2A 03 39 54 32 00 10 00 00 00 00 00 01 00 74 20 70 61 3C .◄.....☺.ing *♥9T2.►.....☺.t pa< 00007240 03 39 54 08 00 0F 00 00 00 00 00 01 00 65 20 74 68 4E 03 39 54 08 00 0E 00 00 00 00 00 01 00 20 ♥9T◘.☼.....☺.e thN♥9T◘.♫.....☺. 00007260 74 68 65 60 03 39 54 35 00 0D 00 00 00 00 00 01 00 20 20 20 20 72 03 39 54 FD FF 0C 00 04 00 2A the`♥9T5.♪.....☺. r♥9T² ♀.♦.* 00007280 53 01 00 6F 6E 73 20 84 03 39 54 0C 00 0B 00 00 00 00 00 01 00 69 74 20 69 96 03 39 54 09 00 0A S☺.ons ä♥9T♀.♂.....☺.it iû♥9T○.◙ 000072A0 00 00 00 00 00 01 00 61 72 79 20 A8 03 39 54 FC FF 09 00 08 00 03 52 01 00 69 6E 64 69 BA 03 39 .....☺.ary ¿♥9Tⁿ ○.◘.♥R☺.indi║♥9 000072C0 54 39 00 08 00 00 00 00 00 01 00 73 69 6F 6E CC 03 39 54 FD FF 07 00 04 00 1C 53 01 00 20 71 75 T9.◘.....☺.sion╠♥9T² •.♦.∟S☺. qu 000072E0 61 DE 03 39 54 3F 00 06 00 00 00 00 00 01 00 20 61 6E 20 F0 03 39 54 FC FF 05 00 02 00 E7 51 01 a▐♥9T?.♠.....☺. an ≡♥9Tⁿ ♣.☻.τQ☺ 00007300 00 29 20 73 6F 02 04 39 54 3F 00 04 00 00 00 00 00 01 00 73 65 20 69 14 04 39 54 08 00 03 00 00 .) so☻♦9T?.♦.....☺.se i¶♦9T◘.♥.. 00007320 00 00 00 01 00 72 74 65 6E 26 04 39 54 03 00 02 00 00 00 00 00 01 00 20 20 22 20 FF FF 00 00 FC ...☺.rten&♦9T♥.☻.....☺. " ..ⁿ 00007340 FF 01 00 0C 00 E6 51 01 00 65 20 74 68 00 00 5A 00 6C 00 7E 00 90 00 A2 00 B4 00 C6 00 D8 00 EA ☺.♀.µQ☺.e th..Z.l.~.É.ó.┤.╞.╪.Ω 00007360 00 FC 00 0E 01 20 01 32 01 44 01 56 01 68 01 7A 01 8C 01 9E 01 B0 01 C2 01 48 00 FF FF 02 00 78 .ⁿ.♫☺ ☺2☺D☺V☺h☺z☺î☺₧☺░☺┬☺H. ☻.x 00007380 00 07 00 61 6C 70 72 65 63 00 02 00 6E 00 02 00 7A 00 02 00 78 00 06 00 66 6C 6F 61 74 00 02 00 .•.alprec.☻.n.☻.z.☻.x.♠.float.☻. 000073A0 78 00 02 00 78 00 04 00 01 00 00 00 02 00 02 00 02 00 6E 00 02 00 6E 00 02 00 78 00 04 00 01 00 x.☻.x.♦.☺...☻.☻.☻.n.☻.n.☻.x.♦.☺. 000073C0 00 00 02 00 01 00 02 00 78 00 04 00 01 00 00 00 02 00 01 00 02 00 6E 00 02 00 7A 00 78 05 00 63 ..☻.☺.☻.x.♦.☺...☻.☺.☻.n.☻.z.x♣.c 000073E0 64 69 76 00 00 01 00 0C 19 00 05 00 05 00 10 00 02 00 01 00 01 00 08 00 2C 01 02 00 01 00 05 00 div..☺.♀↓.♣.♣.►.☻.☺.☺.◘.,☺☻.☺.♣. 00007400 3C 00 20 72 23 6E 20 63 64 69 76 20 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 <. r#n cdiv d 00007420 20 20 20 20 20 20 20 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 r 00007440 23 28 6E 58 72 29 25 64 2B 7E 72 23 64 5E 3D 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #(nXr)%d+~r#d^=0 00007460 20 20 20 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 20 20 $0 00007480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000074A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 64 69 76 20 2D 20 63 6F "cdiv - co 000074C0 6D 6D 65 72 63 69 61 6C 20 64 69 76 69 73 69 6F 6E 2C 20 72 65 74 75 72 6E 73 20 7A 65 72 6F 20 mmercial division, returns zero 000074E0 69 66 20 64 3D 30 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 if d=0 "from 'the apl 00007500 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 69 67 handbook of techniques' copyrig 00007520 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 12 00 FF FF 00 00 FC FF 0A 00 02 00 CD 54 01 00 74 75 ht 1978, ibm. ↕. ..ⁿ ◙.☻.═T☺.tu 00007540 72 65 24 00 D8 58 FC FF 05 00 04 00 99 55 01 00 22 2D 73 63 00 00 D8 58 FC FF 03 00 08 00 BB 54 re$.╪Xⁿ ♣.♦.ÖU☺."-sc..╪Xⁿ ♥.◘.╗T 00007560 01 00 72 65 70 6C 48 00 D8 58 03 00 02 00 00 00 00 00 01 00 73 20 61 67 24 00 D8 58 FC FF 01 00 ☺.replH.╪X♥.☻.....☺.s ag$.╪Xⁿ ☺. 00007580 02 00 BB 54 01 00 20 20 20 20 6C 00 D8 58 FD FF 11 00 0A 00 F4 55 01 00 63 6F 6D 65 7E 00 D8 58 ☻.╗T☺. l.╪X² ◄.◙.⌠U☺.come~.╪X 000075A0 3E 00 0F 00 00 00 00 00 01 00 74 72 69 63 90 00 D8 58 FC FF 0E 00 02 00 B0 55 01 00 6E 61 74 69 >.☼.....☺.tricÉ.╪Xⁿ ♫.☻.░U☺.nati 000075C0 A2 00 D8 58 03 00 0D 00 00 00 00 00 01 00 72 69 63 20 B4 00 D8 58 FC FF 0C 00 06 00 A4 55 01 00 ó.╪X♥.♪.....☺.ric ┤.╪Xⁿ ♀.♠.ñU☺. 000075E0 70 61 64 64 C6 00 D8 58 84 00 0B 00 00 00 00 00 01 00 20 20 20 20 D8 00 D8 58 0B 00 0A 00 00 00 padd╞.╪Xä.♂.....☺. ╪.╪X♂.◙... 00007600 00 00 01 00 22 2D 63 68 EA 00 D8 58 FC FF 09 00 10 00 A3 55 01 00 77 69 6C 6C FC 00 D8 58 05 00 ..☺."-chΩ.╪Xⁿ ○.►.úU☺.willⁿ.╪X♣. 00007620 08 00 00 00 00 00 01 00 68 20 62 6C 0E 01 D8 58 09 00 07 00 00 00 00 00 01 00 20 20 20 20 20 01 ◘.....☺.h bl♫☺╪X○.•.....☺. ☺ 00007640 D8 58 FC FF 06 00 0A 00 A3 55 01 00 70 65 73 20 32 01 D8 58 38 00 05 00 00 00 00 00 01 00 74 65 ╪Xⁿ ♠.◙.úU☺.pes 2☺╪X8.♣.....☺.te 00007660 64 20 44 01 D8 58 FC FF 04 00 02 00 9A 55 01 00 61 74 65 64 56 01 D8 58 08 00 03 00 00 00 00 00 d D☺╪Xⁿ ♦.☻.ÜU☺.atedV☺╪X◘.♥..... 00007680 01 00 61 63 74 65 68 01 D8 58 03 00 02 00 00 00 00 00 01 00 47 62 65 73 FF FF 00 00 FC FF 01 00 ☺.acteh☺╪X♥.☻.....☺.Gbes ..ⁿ ☺. 000076A0 0C 00 99 55 01 00 20 20 20 20 8C 01 D8 58 FD FF 02 00 0C 00 99 57 01 00 22 2D 61 20 FF FF 00 00 ♀.ÖU☺. î☺╪X² ☻.♀.ÖW☺."-a .. 000076C0 04 00 01 00 00 00 00 00 01 00 72 6E 65 64 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 ♦.☺.....☺.rned ..☻.......☺. 000076E0 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 00 00 5A 00 7A 01 9E 01 B0 01 48 00 FF FF ..☻.......☺. ..Z.z☺₧☺░☺H. 00007700 02 00 64 00 05 00 63 64 69 76 00 02 00 6E 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 02 00 64 ☻.d.♣.cdiv.☻.n.☻.r.♦.☺...☻...☻.d 00007720 00 02 00 72 00 02 00 64 00 02 00 72 00 02 00 6E 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 .☻.r.☻.d.☻.r.☻.n.☻.r.♦.☺...☻...x 00007740 09 00 63 65 6E 74 65 72 6F 6E 00 00 01 00 0C 4E 00 0C 00 07 00 09 00 18 00 0A 00 0A 00 05 00 02 ○.centeron..☺.♀N.♀.•.○.↑.◙.◙.♣.☻ 00007760 00 01 00 01 00 01 00 01 00 01 00 08 00 D0 02 02 00 01 00 0C 00 3C 00 20 7A 23 61 20 63 65 6E 74 .☺.☺.☺.☺.☺.◘.╨☻☻.☺.♀.<. z#a cent 00007780 65 72 6F 6E 20 62 3B 69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 eron b;i 000077A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 23 46 61 20 48 20 62 23 46 62 20 a#Fa H b#Fb 000077C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000077E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 28 6C 31 2C 6C 33 2C 6C 32 29 69 66 20 30 20 $(l1,l3,l2)if 0 00007800 63 6F 6D 70 61 72 65 20 69 23 28 2D 31 59 52 61 29 5F 2D 31 59 52 62 20 20 20 20 20 20 20 20 20 compare i#(-1YRa)_-1YRb 00007820 20 20 20 20 20 20 20 20 20 20 20 6C 31 3A 24 6C 33 20 48 20 62 23 63 65 6E 74 65 72 20 69 20 61 l1:$l3 H b#center i a 00007840 64 64 63 6F 6C 73 20 70 72 65 70 61 72 65 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ddcols prepare b 00007860 20 20 20 20 20 20 20 6C 32 3A 61 23 63 65 6E 74 65 72 28 5F 69 29 61 64 64 63 6F 6C 73 20 70 72 l2:a#center(_i)addcols pr 00007880 65 70 61 72 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 epare a 000078A0 20 20 20 6C 33 3A 7A 23 61 20 6F 6E 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l3:z#a on b 000078C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000078E0 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 20 20 20 20 $0 00007900 20 20 20 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 68 65 61 64 "head 00007920 65 72 6F 6E 20 2D 20 70 75 74 73 20 61 20 68 65 61 64 69 6E 67 20 6F 6E 20 61 20 72 65 70 6F 72 eron - puts a heading on a repor 00007940 74 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 20 27 74 68 t "from 'th 00007960 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 20 63 6F e apl handbook of techniques' co 00007980 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 74 61 6B 65 73 20 74 77 6F 20 63 pyright 1978, ibm. "-takes two c 000079A0 68 61 72 61 63 74 65 72 20 61 72 72 61 79 73 20 6F 66 20 61 6E 79 20 73 69 7A 65 2C 20 63 65 6E haracter arrays of any size, cen 000079C0 74 65 72 73 20 74 68 65 20 6F 6E 65 20 20 20 22 20 77 69 74 68 20 66 65 77 65 72 20 63 6F 6C 75 ters the one " with fewer colu 000079E0 6D 6E 73 2C 20 74 68 65 6E 20 63 61 74 65 6E 61 74 65 73 20 61 20 61 62 6F 76 65 20 62 2E 20 20 mns, then catenates a above b. 00007A00 20 20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 69 66 20 47 63 6F 6D 70 61 72 65 20 "-uses: Gif Gcompare 00007A20 47 61 64 64 63 6F 6C 73 20 47 63 65 6E 74 65 72 20 47 6F 6E 20 47 70 72 65 70 61 72 65 20 20 20 Gaddcols Gcenter Gon Gprepare 00007A40 20 20 20 20 20 20 20 36 00 FF FF 00 00 FC FF 10 00 0A 00 BB 55 01 00 CA 04 00 45 24 00 F2 5A 1B 6. ..ⁿ ►.◙.╗U☺.╩♦.E$.≥Z← 00007A60 00 0F 00 00 00 00 00 01 00 C0 75 04 26 00 00 F2 5A FC FF 0E 00 0E 00 E9 54 01 00 CA 04 00 45 48 .☼.....☺.└u♦&..≥Zⁿ ♫.♫.ΘT☺.╩♦.EH 00007A80 00 F2 5A FC FF 05 00 0C 00 CA 55 01 00 0A 31 DB 89 24 00 F2 5A FC FF 03 00 0A 00 CC 54 01 00 0E .≥Zⁿ ♣.♀.╩U☺.◙1█ë$.≥Zⁿ ♥.◙.╠T☺.♫ 00007AA0 E8 66 0F 6C 00 F2 5A 03 00 02 00 00 00 00 00 01 00 6A F9 90 5E 48 00 F2 5A FC FF 01 00 04 00 CC Φf☼l.≥Z♥.☻.....☺.j∙É^H.≥Zⁿ ☺.♦.╠ 00007AC0 54 01 00 06 26 8B 47 90 00 F2 5A FC FF 0B 00 06 00 F1 55 01 00 E8 31 0F 90 A2 00 F2 5A 26 00 0A T☺.♠&ïGÉ.≥Zⁿ ♂.♠.±U☺.Φ1☼Éó.≥Z&.◙ 00007AE0 00 00 00 00 00 01 00 89 46 FC 8E B4 00 F2 5A 03 00 09 00 00 00 00 00 01 00 52 50 0E E8 C6 00 F2 .....☺.ëFⁿÄ┤.≥Z♥.○.....☺.RP♫Φ╞.≥ 00007B00 5A FC FF 08 00 10 00 F0 55 01 00 CA 04 00 31 D8 00 F2 5A FC FF 06 00 0E 00 DC 55 01 00 08 C4 5E Zⁿ ◘.►.≡U☺.╩♦.1╪.≥Zⁿ ♠.♫.▄U☺.◘─^ 00007B20 06 EA 00 F2 5A FC FF 04 00 08 00 DC 55 01 00 08 53 0E E8 FC 00 F2 5A 26 00 03 00 00 00 00 00 01 ♠Ω.≥Zⁿ ♦.◘.▄U☺.◘S♫Φⁿ.≥Z&.♥.....☺ 00007B40 00 89 56 FC 89 0E 01 F2 5A 03 00 02 00 00 00 00 00 01 00 C9 74 16 51 FF FF 00 00 FC FF 01 00 08 .ëVⁿë♫☺≥Z♥.☻.....☺.╔t▬Q ..ⁿ ☺.◘ 00007B60 00 CB 55 01 00 8B E5 5D 4D 32 01 F2 5A FC FF 27 00 04 00 AE 57 01 00 8B EC 83 EC 44 01 F2 5A 32 .╦U☺.ïσ]M2☺≥Zⁿ '.♦.«W☺.ï∞â∞D☺≥Z2 00007B80 00 26 00 00 00 00 00 01 00 89 46 F8 74 56 01 F2 5A 39 00 25 00 00 00 00 00 01 00 C3 26 8B 57 68 .&.....☺.ëF°tV☺≥Z9.%.....☺.├&ïWh 00007BA0 01 F2 5A FD FF 23 00 08 00 A7 58 01 00 26 8B 4F 06 7A 01 F2 5A 3F 00 22 00 00 00 00 00 01 00 56 ☺≥Z² #.◘.ºX☺.&ïO♠z☺≥Z?.".....☺.V 00007BC0 52 50 0E 8C 01 F2 5A 09 00 21 00 00 00 00 00 01 00 5E FA 26 C7 9E 01 F2 5A FC FF 20 00 02 00 A3 RP♫î☺≥Z○.!.....☺.^·&╟₧☺≥Zⁿ .☻.ú 00007BE0 57 01 00 00 45 55 8B B0 01 F2 5A 32 00 1F 00 00 00 00 00 01 00 06 09 C0 89 C2 01 F2 5A 39 00 1E W☺..EUï░☺≥Z2.▼.....☺.♠○└ë┬☺≥Z9.▲ 00007C00 00 00 00 00 00 01 00 8E C2 89 C3 D4 01 F2 5A FD FF 1C 00 04 00 9E 58 01 00 C2 89 C3 26 E6 01 F2 .....☺.Ä┬ë├╘☺≥Z² ∟.♦.₧X☺.┬ë├&µ☺≥ 00007C20 5A 08 00 1B 00 00 00 00 00 01 00 EB 22 C4 5E F8 01 F2 5A 03 00 1A 00 00 00 00 00 01 00 90 8E C2 Z◘.←.....☺.δ"─^°☺≥Z♥.→.....☺.ÉÄ┬ 00007C40 89 0A 02 F2 5A FC FF 19 00 02 00 93 57 01 00 8B CF 49 89 1C 02 F2 5A FC FF 11 00 0C 00 9D 57 01 ë◙☻≥Zⁿ ↓.☻.ôW☺.ï╧Ië∟☻≥Zⁿ ◄.♀.¥W☺ 00007C60 00 8E C2 89 C3 2E 02 F2 5A FD FF 0F 00 10 00 94 58 01 00 45 55 8B EC 40 02 F2 5A FC FF 0C 00 0C .Ä┬ë├.☻≥Z² ☼.►.öX☺.EUï∞@☻≥Zⁿ ♀.♀ 00007C80 00 F6 55 01 00 F8 74 40 50 52 02 F2 5A 09 00 0B 00 00 00 00 00 01 00 8B 57 02 26 64 02 F2 5A FC .÷U☺.°t@PR☻≥Z○.♂.....☺.ïW☻&d☻≥Zⁿ 00007CA0 FF 09 00 06 00 F6 55 01 00 4F 06 89 4E 76 02 F2 5A 0C 00 08 00 00 00 00 00 01 00 D7 4A 80 05 88 ○.♠.÷U☺.O♠ëNv☻≥Z♀.◘.....☺.╫JÇ♣ê 00007CC0 02 F2 5A FC FF 06 00 10 00 F5 55 01 00 4D CA 04 00 9A 02 F2 5A 0C 00 05 00 00 00 00 00 01 00 8B ☻≥Zⁿ ♠.►.⌡U☺.M╩♦.Ü☻≥Z♀.♣.....☺.ï 00007CE0 47 06 09 AC 02 F2 5A FC FF 03 00 0C 00 F1 55 01 00 0D 90 8E C2 BE 02 F2 5A 08 00 02 00 00 00 00 G♠○¼☻≥Zⁿ ♥.♀.±U☺.♪ÉÄ┬╛☻≥Z◘.☻.... 00007D00 00 01 00 FC 83 7E 0A FF FF 00 00 04 00 01 00 00 00 00 00 01 00 72 11 FF 76 E2 02 F2 5A FC FF 24 .☺.ⁿâ~◙ ..♦.☺.....☺.r◄ vΓ☻≥Zⁿ $ 00007D20 00 0A 00 94 58 01 00 37 8B C6 5E F4 02 F2 5A FC FF 1C 00 0C 00 B9 58 01 00 C4 5E 06 26 06 03 F2 .◙.öX☺.7ï╞^⌠☻≥Zⁿ ∟.♀.╣X☺.─^♠&♠♥≥ 00007D40 5A FC FF 14 00 06 00 9D 58 01 00 53 0E E8 B9 18 03 F2 5A FC FF 12 00 0A 00 BC 57 01 00 56 FE 89 Zⁿ ¶.♠.¥X☺.S♫Φ╣↑♥≥Zⁿ ↕.◙.╝W☺.V■ë 00007D60 46 2A 03 F2 5A FC FF 0B 00 0E 00 98 58 01 00 04 00 31 C0 3C 03 F2 5A 03 00 0A 00 00 00 00 00 01 F*♥≥Zⁿ ♂.♫.ÿX☺.♦.1└<♥≥Z♥.◙.....☺ 00007D80 00 C4 5E 06 26 4E 03 F2 5A FC FF 09 00 08 00 B9 57 01 00 89 C3 26 8B 60 03 F2 5A FC FF 07 00 08 .─^♠&N♥≥Zⁿ ○.◘.╣W☺.ë├&ï`♥≥Zⁿ •.◘ 00007DA0 00 B8 57 01 00 D8 52 50 C4 72 03 F2 5A FC FF 04 00 02 00 B8 57 01 00 FC 8E C2 89 84 03 F2 5A 04 .╕W☺.╪RP─r♥≥Zⁿ ♦.☻.╕W☺.ⁿÄ┬ëä♥≥Z♦ 00007DC0 00 03 00 00 00 00 00 01 00 8C C2 89 D8 96 03 F2 5A 1A 00 02 00 00 00 00 00 01 00 CA 08 00 45 6E .♥.....☺.î┬ë╪û♥≥Z→.☻.....☺.╩◘.En 00007DE0 04 F2 5A FC FF 03 00 0A 00 AE 57 01 00 18 B8 22 00 BA 03 F2 5A FC FF 1F 00 10 00 17 59 01 00 46 ♦≥Zⁿ ♥.◙.«W☺.↑╕".║♥≥Zⁿ ▼.►.↨Y☺.F 00007E00 06 75 03 CC 03 F2 5A FC FF 17 00 0A 00 1C 59 01 00 53 FF 76 08 DE 03 F2 5A FC FF 0F 00 06 00 17 ♠u♥╠♥≥Zⁿ ↨.◙.∟Y☺.S v◘▐♥≥Zⁿ ☼.♠.↨ 00007E20 59 01 00 0E 6E 05 26 F0 03 F2 5A 09 00 0E 00 00 00 00 00 01 00 00 31 C0 99 02 04 F2 5A FC FF 0D Y☺.♫n♣&≡♥≥Z○.♫.....☺..1└Ö☻♦≥Zⁿ ♪ 00007E40 00 0C 00 15 59 01 00 47 16 89 56 14 04 F2 5A 3F 00 0C 00 00 00 00 00 01 00 46 F4 B0 12 26 04 F2 .♀.§Y☺.G▬ëV¶♦≥Z?.♀.....☺.F⌠░↕&♦≥ 00007E60 5A 08 00 0B 00 00 00 00 00 01 00 46 FC 74 18 38 04 F2 5A FC FF 05 00 0E 00 C1 58 01 00 26 C7 47 Z◘.♂.....☺.Fⁿt↑8♦≥Zⁿ ♣.♫.┴X☺.&╟G 00007E80 0E 4A 04 F2 5A 03 00 04 00 00 00 00 00 01 00 06 26 89 57 5C 04 F2 5A FC FF 03 00 0E 00 AD 58 01 ♫J♦≥Z♥.♦.....☺.♠&ëW\♦≥Zⁿ ♥.♫.¡X☺ 00007EA0 00 29 34 83 C4 6E 04 F2 5A 1A 00 02 00 00 00 00 00 01 00 89 54 20 26 EC 04 F2 5A FC FF 04 00 02 .)4â─n♦≥Z→.☻.....☺.ëT &∞♦≥Zⁿ ♦.☻ 00007EC0 00 A7 58 01 00 F4 00 89 D0 92 04 F2 5A FC FF 0A 00 02 00 2A 59 01 00 0C FF 76 0A A4 04 F2 5A FC .ºX☺.⌠.ë╨Æ♦≥Zⁿ ◙.☻.*Y☺.♀ v◙ñ♦≥Zⁿ 00007EE0 FF 07 00 08 00 28 59 01 00 29 34 83 C4 B6 04 F2 5A FC FF 05 00 0E 00 26 59 01 00 C1 89 56 EE C8 •.◘.(Y☺.)4â─╢♦≥Zⁿ ♣.♫.&Y☺.┴ëVε╚ 00007F00 04 F2 5A 03 00 04 00 00 00 00 00 01 00 FF 51 B1 FC DA 04 F2 5A FC FF 03 00 10 00 23 59 01 00 03 ♦≥Z♥.♦.....☺. Q▒ⁿ┌♦≥Zⁿ ♥.►.#Y☺.♥ 00007F20 E9 98 00 EC 04 F2 5A 1A 00 02 00 00 00 00 00 01 00 89 56 F6 89 FF FF 00 00 FC FF 05 00 0C 00 1F Θÿ.∞♦≥Z→.☻.....☺.ëV÷ë ..ⁿ ♣.♀.▼ 00007F40 59 01 00 EE FF 76 EC 10 05 F2 5A FD FF 02 00 0A 00 33 59 01 00 08 77 29 34 FF FF 00 00 04 00 01 Y☺.ε v∞►♣≥Z² ☻.◙.3Y☺.◘w)4 ..♦.☺ 00007F60 00 00 00 00 00 01 00 FF 76 F0 FF FF FF 00 00 02 00 00 00 00 00 00 00 01 00 C0 75 3F FF FF FF 00 .....☺. v≡ ..☻.......☺.└u? . 00007F80 00 02 00 00 00 00 00 00 00 01 00 00 90 09 C0 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 C4 04 89 .☻.......☺..É○└ ..☻.......☺.─♦ë 00007FA0 56 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 3B 56 F6 7C FF FF 00 00 02 00 00 00 00 00 00 00 01 V ..☻.......☺.;V÷| ..☻.......☺ 00007FC0 00 74 0E FF 76 00 00 7E 00 20 01 D0 02 A8 03 80 04 FE 04 22 05 34 05 46 05 58 05 6A 05 6C 00 96 .t♫ v..~. ☺╨☻¿♥Ç♦■♦"♣4♣F♣X♣j♣l.û 00007FE0 03 02 00 69 00 02 00 62 00 09 00 63 65 6E 74 65 72 6F 6E 00 02 00 61 00 02 00 7A 00 02 00 62 00 ♥☻.i.☻.b.○.centeron.☻.a.☻.z.☻.b. 00008000 02 00 62 00 02 00 48 00 02 00 61 00 02 00 61 00 02 00 62 00 04 00 01 00 00 00 02 00 FF FF 02 00 ☻.b.☻.H.☻.a.☻.a.☻.b.♦.☺...☻. ☻. 00008020 61 00 04 00 01 00 00 00 02 00 FF FF 02 00 69 00 08 00 63 6F 6D 70 61 72 65 00 04 00 01 00 00 00 a.♦.☺...☻. ☻.i.◘.compare.♦.☺... 00008040 02 00 00 00 03 00 69 66 00 03 00 6C 32 00 03 00 6C 33 00 03 00 6C 31 00 02 00 62 00 08 00 70 72 ☻...♥.if.♥.l2.♥.l3.♥.l1.☻.b.◘.pr 00008060 65 70 61 72 65 00 08 00 61 64 64 63 6F 6C 73 00 02 00 69 00 07 00 63 65 6E 74 65 72 00 02 00 62 epare.◘.addcols.☻.i.•.center.☻.b 00008080 00 02 00 48 00 03 00 6C 33 00 03 00 6C 31 00 02 00 61 00 08 00 70 72 65 70 61 72 65 00 08 00 61 .☻.H.♥.l3.♥.l1.☻.a.◘.prepare.◘.a 000080A0 64 64 63 6F 6C 73 00 02 00 69 00 07 00 63 65 6E 74 65 72 00 02 00 61 00 03 00 6C 32 00 02 00 62 ddcols.☻.i.•.center.☻.a.♥.l2.☻.b 000080C0 00 03 00 6F 6E 00 02 00 61 00 02 00 7A 00 03 00 6C 33 00 04 00 01 00 00 00 02 00 00 00 78 07 00 .♥.on.☻.a.☻.z.♥.l3.♦.☺...☻...x•. 000080E0 63 65 6E 74 65 72 00 00 01 00 0A 1C 00 06 00 06 00 06 00 0C 00 02 00 01 00 01 00 08 00 68 01 02 center..☺.◙∟.♠.♠.♠.♀.☻.☺.☺.◘.h☺☻ 00008100 00 01 00 06 00 3C 00 20 7A 23 63 65 6E 74 65 72 20 62 3B 63 20 20 20 20 20 20 20 20 20 20 20 20 .☺.♠.<. z#center b;c 00008120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00008140 20 20 20 20 63 23 6E 75 6D 62 6C 61 6E 6B 63 6F 6C 73 20 7A 23 62 20 20 20 20 20 20 20 20 20 20 c#numblankcols z#b 00008160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00008180 7A 23 28 53 30 2E 35 58 5F 2F 63 29 60 4F 7A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 z#(S0.5X_/c)`Oz 000081A0 20 20 20 20 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 20 $0 000081C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000081E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 65 6E 74 65 72 20 69 "center i 00008200 73 20 75 73 65 64 20 62 79 20 65 2E 67 2E 20 68 65 61 64 65 72 6F 6E 2E 20 20 20 20 20 20 20 20 s used by e.g. headeron. 00008220 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 70 "from 'the ap 00008240 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 69 l handbook of techniques' copyri 00008260 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 36 00 FF FF 00 00 FC FF 0C 00 06 00 DB 54 01 00 46 ght 1978, ibm. 6. ..ⁿ ♀.♠.█T☺.F 00008280 FC 89 D6 24 00 53 5A 1B 00 0B 00 00 00 00 00 01 00 FE EB 02 31 00 00 53 5A FC FF 0A 00 06 00 C6 ⁿë╓$.SZ←.♂.....☺.■δ☻1..SZⁿ ◙.♠.╞ 000082A0 54 01 00 00 79 0B EB 48 00 53 5A FC FF 03 00 0C 00 A7 55 01 00 76 06 CD 3F 5A 00 53 5A 03 00 02 T☺..y♂δH.SZⁿ ♥.♀.ºU☺.v♠═?Z.SZ♥.☻ 000082C0 00 00 00 00 00 01 00 8D 46 D6 50 24 00 53 5A FC FF 01 00 10 00 C5 54 01 00 5D 4D CA 08 7E 00 53 .....☺.ìF╓P$.SZⁿ ☺.►.┼T☺.]M╩◘~.S 000082E0 5A FC FF 12 00 10 00 C5 55 01 00 8B EC C4 1E 90 00 53 5A 03 00 11 00 00 00 00 00 01 00 0B 47 38 Zⁿ ↕.►.┼U☺.ï∞─▲É.SZ♥.◄.....☺.♂G8 00008300 74 A2 00 53 5A FC FF 10 00 0A 00 C5 55 01 00 38 26 C4 5F B4 00 53 5A FC FF 03 00 02 00 D2 55 01 tó.SZⁿ ►.◙.┼U☺.8&─_┤.SZⁿ ♥.☻.╥U☺ 00008320 00 03 DF 01 31 C6 00 53 5A 03 00 02 00 00 00 00 00 01 00 E8 AC FB 5D FF FF 00 00 FC FF 01 00 06 .♥▀☺1╞.SZ♥.☻.....☺.Φ¼√] ..ⁿ ☺.♠ 00008340 00 A8 55 01 00 5D 4D CA 04 EA 00 53 5A FC FF 0F 00 0E 00 E8 55 01 00 8B 47 30 31 FC 00 53 5A 46 .¿U☺.]M╩♦Ω.SZⁿ ☼.♫.ΦU☺.ïG01ⁿ.SZF 00008360 00 0D 00 00 00 00 00 01 00 9A 6E 14 54 0E 01 53 5A 09 00 0C 00 00 00 00 00 01 00 3D 50 C4 1E 20 .♪.....☺.Ün¶T♫☺SZ○.♀.....☺.=P─▲ 00008380 01 53 5A FC FF 0B 00 08 00 E8 55 01 00 00 50 40 50 32 01 53 5A 0F 00 0A 00 00 00 00 00 01 00 04 ☺SZⁿ ♂.◘.ΦU☺..P@P2☺SZ☼.◙.....☺.♦ 000083A0 89 56 FE 44 01 53 5A 3F 00 09 00 00 00 00 00 01 00 D7 4A 00 02 56 01 53 5A 38 00 08 00 00 00 00 ëV■D☺SZ?.○.....☺.╫J.☻V☺SZ8.◘.... 000083C0 00 01 00 5E FC 26 C4 68 01 53 5A FD FF 05 00 10 00 A4 57 01 00 3F 03 57 00 7A 01 53 5A 33 00 04 .☺.^ⁿ&─h☺SZ² ♣.►.ñW☺.?♥W.z☺SZ3.♦ 000083E0 00 00 00 00 00 01 00 06 26 FF 77 8C 01 53 5A 08 00 03 00 00 00 00 00 01 00 01 00 5E 8B 9E 01 53 .....☺.♠& wî☺SZ◘.♥.....☺.☺.^ï₧☺S 00008400 5A 03 00 02 00 00 00 00 00 01 00 26 8B 77 02 FF FF 00 00 FC FF 01 00 02 00 E8 55 01 00 8E C2 89 Z♥.☻.....☺.&ïw☻ ..ⁿ ☺.☻.ΦU☺.Ä┬ë 00008420 C3 C2 01 53 5A FD FF 02 00 04 00 B4 57 01 00 89 D8 52 50 FF FF 00 00 04 00 01 00 00 00 00 00 01 ├┬☺SZ² ☻.♦.┤W☺.ë╪RP ..♦.☺.....☺ 00008440 00 09 C0 74 05 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 55 8B EC 83 FF FF 00 00 02 00 00 00 00 .○└t♣ ..☻.......☺.Uï∞â ..☻.... 00008460 00 00 00 01 00 C4 04 40 50 00 00 6C 00 D8 00 B0 01 D4 01 E6 01 5A 00 FF FF 02 00 63 00 02 00 62 ...☺.─♦@P..l.╪.░☺╘☺µ☺Z. ☻.c.☻.b 00008480 00 07 00 63 65 6E 74 65 72 00 02 00 7A 00 02 00 62 00 02 00 7A 00 0D 00 6E 75 6D 62 6C 61 6E 6B .•.center.☻.z.☻.b.☻.z.♪.numblank 000084A0 63 6F 6C 73 00 02 00 63 00 02 00 7A 00 02 00 63 00 02 00 01 00 00 00 08 00 00 00 00 00 00 00 E0 cols.☻.c.☻.z.☻.c.☻.☺...◘.......α 000084C0 3F 02 00 7A 00 04 00 01 00 00 00 02 00 00 00 78 05 00 63 68 61 72 00 00 01 00 0C 2F 00 0D 00 07 ?☻.z.♦.☺...☻...x♣.char..☺.♀/.♪.• 000084E0 00 01 00 01 00 0E 00 08 00 08 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 0C 03 02 00 01 .☺.☺.♫.◘.◘.☻.☺.☺.☺.☺.☺.☺.◘.♀♥☻.☺ 00008500 00 0D 00 3C 00 20 72 23 6B 20 63 68 61 72 20 6E 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 .♪.<. r#k char n;Lio 00008520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00008540 20 22 20 6B 20 69 73 20 73 69 6E 67 6C 65 20 63 68 61 72 61 63 74 65 72 20 74 6F 20 62 65 20 70 " k is single character to be p 00008560 6C 61 63 65 64 20 61 63 63 6F 72 64 69 6E 67 20 74 6F 20 70 6F 73 69 74 69 6F 6E 73 20 22 20 6F laced according to positions " o 00008580 66 20 6F 6E 65 73 20 69 6E 20 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f ones in n 000085A0 20 20 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 28 58 2F 52 r#(X/R 000085C0 6E 29 52 27 20 27 48 20 4C 69 6F 23 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n)R' 'H Lio#0 000085E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 5B 6F 6E 65 73 69 6E 2C 6E r[onesin,n 00008600 5D 23 6B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ]#k 00008620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 28 52 6E 29 52 72 20 20 20 20 20 20 r#(Rn)Rr 00008640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00008660 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 20 20 20 20 20 $0 00008680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000086A0 20 20 20 20 20 20 20 20 20 22 63 68 61 72 20 2D 20 62 75 69 6C 64 20 63 68 61 72 61 63 74 65 72 "char - build character 000086C0 20 61 72 72 61 79 20 74 6F 20 6E 75 6D 65 72 69 63 20 70 61 74 74 65 72 6E 20 20 20 20 20 20 20 array to numeric pattern 000086E0 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 6F 66 20 "from 'the apl handbook of 00008700 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 62 6D 2E techniques' copyright 1978, ibm. 00008720 20 22 2D 64 69 73 70 6C 61 79 73 20 6F 72 20 6F 74 68 65 72 20 73 74 72 75 63 74 75 72 65 73 20 "-displays or other structures 00008740 63 61 6E 20 62 65 20 66 61 73 68 69 6F 6E 65 64 20 66 72 6F 6D 20 20 20 20 20 20 20 20 22 20 6C can be fashioned from " l 00008760 6F 67 69 63 61 6C 20 6F 72 20 6E 75 6D 65 72 69 63 20 73 74 72 75 63 74 75 72 65 73 2C 20 6C 61 ogical or numeric structures, la 00008780 74 65 72 20 74 6F 20 62 65 20 6F 76 65 72 6C 61 69 64 20 62 79 20 20 20 20 22 20 47 66 69 6C 6C ter to be overlaid by " Gfill 000087A0 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 20 s. 000087C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 6F 6E "-uses: Gon 000087E0 65 73 69 6E 20 47 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 esin GH 00008800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 36 00 FF FF 00 00 ED FF 0C 00 00 00 00 00 01 6. ..φ ♀.....☺ 00008820 00 C4 76 F2 26 24 00 DD 5B 1B 00 0B 00 00 00 00 00 01 00 1D 89 56 F0 00 00 DD 5B FC FF 0A 00 10 .─v≥&$.▌[←.♂.....☺.↔ëV≡..▌[ⁿ ◙.► 00008840 00 97 57 01 00 FF 76 EE 9A 48 00 DD 5B FC FF 05 00 0A 00 C9 55 01 00 26 89 07 89 24 00 DD 5B FC .ùW☺. vεÜH.▌[ⁿ ♣.◙.╔U☺.&ë•ë$.▌[ⁿ 00008860 FF 03 00 02 00 BB 55 01 00 26 29 07 C4 6C 00 DD 5B 03 00 02 00 00 00 00 00 01 00 26 89 57 02 48 ♥.☻.╗U☺.&)•─l.▌[♥.☻.....☺.&ëW☻H 00008880 00 DD 5B FC FF 01 00 0C 00 BA 55 01 00 46 F0 0B 46 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 FF .▌[ⁿ ☺.♀.║U☺.F≡♂F ..☻.......☺. 000088A0 C4 5E 06 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 31 C0 5F 5E B4 00 DD 5B FD FF 13 00 08 00 B7 ─^♠ ..☻.......☺.1└_^┤.▌[² ‼.◘.╖ 000088C0 58 01 00 00 73 03 26 C6 00 DD 5B 03 00 12 00 00 00 00 00 01 00 45 55 8B EC D8 00 DD 5B ED FF 0F X☺..s♥&╞.▌[♥.↕.....☺.EUï∞╪.▌[φ ☼ 000088E0 00 00 00 00 00 01 00 74 32 C4 5E EA 00 DD 5B FC FF 0D 00 0C 00 B7 57 01 00 8B 47 08 50 FC 00 DD .....☺.t2─^Ω.▌[ⁿ ♪.♀.╖W☺.ïG◘Pⁿ.▌ 00008900 5B 07 00 0A 00 0A 00 AC 58 01 00 5F 0A 03 D8 0E 01 DD 5B 32 00 09 00 00 00 00 00 01 00 8B C6 5E [•.◙.◙.¼X☺._◙♥╪♫☺▌[2.○.....☺.ï╞^ 00008920 5D 20 01 DD 5B 09 00 08 00 00 00 00 00 01 00 26 89 47 06 32 01 DD 5B FC FF 07 00 06 00 B7 57 01 ] ☺▌[○.◘.....☺.&ëG♠2☺▌[ⁿ •.♠.╖W☺ 00008940 00 03 C1 5D 4D 44 01 DD 5B 32 00 06 00 00 00 00 00 01 00 0A C4 5E 06 56 01 DD 5B 0F 00 05 00 00 .♥┴]MD☺▌[2.♠.....☺.◙─^♠V☺▌[☼.♣.. 00008960 00 00 00 01 00 89 56 FC 89 68 01 DD 5B 38 00 04 00 00 00 00 00 01 00 F7 E1 8B 4E 7A 01 DD 5B 08 ...☺.ëVⁿëh☺▌[8.♦.....☺.≈ßïNz☺▌[◘ 00008980 00 03 00 00 00 00 00 01 00 F4 2B 46 F0 8C 01 DD 5B 03 00 02 00 00 00 00 00 01 00 F2 56 9A 12 FF .♥.....☺.⌠+F≡î☺▌[♥.☻.....☺.≥VÜ↕ 000089A0 FF 00 00 FC FF 01 00 06 00 B2 57 01 00 8B 47 02 26 B0 01 DD 5B FC FF 0D 00 0C 00 A6 58 01 00 26 ..ⁿ ☺.♠.▓W☺.ïG☻&░☺▌[ⁿ ♪.♀.ªX☺.& 000089C0 8B 47 04 C2 01 DD 5B 03 00 0C 00 00 00 00 00 01 00 C1 76 60 26 D4 01 DD 5B 3D 00 0B 00 00 00 00 ïG♦┬☺▌[♥.♀.....☺.┴v`&╘☺▌[=.♂.... 000089E0 00 01 00 8B 47 02 40 E6 01 DD 5B FC FF 0A 00 02 00 94 58 01 00 29 34 83 C4 F8 01 DD 5B 0C 00 09 .☺.ïG☻@µ☺▌[ⁿ ◙.☻.öX☺.)4â─°☺▌[♀.○ 00008A00 00 00 00 00 00 01 00 09 C1 75 10 0A 02 DD 5B FC FF 03 00 08 00 93 58 01 00 EB 19 C4 5E 1C 02 DD .....☺.○┴u►◙☻▌[ⁿ ♥.◘.ôX☺.δ↓─^∟☻▌ 00008A20 5B 3B 00 02 00 00 00 00 00 01 00 09 C0 75 05 FF FF 00 00 FC FF 01 00 10 00 8E 58 01 00 45 55 8B [;.☻.....☺.○└u♣ ..ⁿ ☺.►.ÄX☺.EUï 00008A40 EC 40 02 DD 5B FC FF 08 00 02 00 20 59 01 00 10 FF 76 0E 52 02 DD 5B 32 00 07 00 00 00 00 00 01 ∞@☻▌[ⁿ ◘.☻. Y☺.► v♫R☻▌[2.•.....☺ 00008A60 00 FF 76 06 0E 64 02 DD 5B 09 00 06 00 00 00 00 00 01 00 00 00 E9 88 76 02 DD 5B FC FF 05 00 04 . v♠♫d☻▌[○.♠.....☺...Θêv☻▌[ⁿ ♣.♦ 00008A80 00 B9 58 01 00 57 0C 26 8B 88 02 DD 5B 32 00 04 00 00 00 00 00 01 00 83 C0 0A 89 9A 02 DD 5B 08 .╣X☺.W♀&ïê☻▌[2.♦.....☺.â└◙ëÜ☻▌[◘ 00008AA0 00 03 00 00 00 00 00 01 00 FE 89 46 FC AC 02 DD 5B 03 00 02 00 00 00 00 00 01 00 FF 76 F6 FF FF .♥.....☺.■ëFⁿ¼☻▌[♥.☻.....☺. v÷ 00008AC0 FF 00 00 FC FF 01 00 0E 00 B8 58 01 00 C4 5E FC 26 D0 02 DD 5B FD FF 02 00 08 00 2A 59 01 00 02 ..ⁿ ☺.♫.╕X☺.─^ⁿ&╨☻▌[² ☻.◘.*Y☺.☻ 00008AE0 26 8B 1F FF FF 00 00 04 00 01 00 00 00 00 00 01 00 26 8B 77 0A FF FF 00 00 02 00 00 00 00 00 00 &ï▼ ..♦.☺.....☺.&ïw◙ ..☻...... 00008B00 00 01 00 00 74 0A 8B FF FF 00 00 02 00 00 00 00 00 00 00 01 00 E5 5D 4D CA FF FF 00 00 02 00 00 .☺..t◙ï ..☻.......☺.σ]M╩ ..☻.. 00008B20 00 00 00 00 00 01 00 01 00 C4 5E FF FF 00 00 02 00 00 00 00 00 00 00 01 00 F6 01 00 8C FF FF 00 .....☺.☺.─^ ..☻.......☺.÷☺.î . 00008B40 00 02 00 00 00 00 00 00 00 01 00 89 D8 83 C0 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 D1 EE FF .☻.......☺.ë╪â└ ..☻.......☺.╤ε 00008B60 76 00 00 7E 00 90 00 A2 00 9E 01 2E 02 BE 02 E2 02 F4 02 06 03 18 03 2A 03 3C 03 6C 00 FF FF 02 v..~.É.ó.₧☺.☻╛☻Γ☻⌠☻♠♥↑♥*♥<♥l. ☻ 00008B80 00 6E 00 05 00 63 68 61 72 00 02 00 6B 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 02 00 48 00 .n.♣.char.☻.k.☻.r.♦.☺...☻...☻.H. 00008BA0 08 00 01 00 00 00 01 00 20 02 00 6E 00 02 00 72 00 02 00 6B 00 02 00 6E 00 07 00 6F 6E 65 73 69 ◘.☺...☺. ☻.n.☻.r.☻.k.☻.n.•.onesi 00008BC0 6E 00 02 00 72 00 02 00 72 00 02 00 6E 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 06 00 63 n.☻.r.☻.r.☻.n.☻.r.♦.☺...☻...x♠.c 00008BE0 69 74 65 64 00 00 01 00 0C 2F 00 0A 00 05 00 19 00 09 00 02 00 01 00 01 00 01 00 01 00 01 00 01 ited..☺.♀/.◙.♣.↓.○.☻.☺.☺.☺.☺.☺.☺ 00008C00 00 08 00 58 02 02 00 01 00 0A 00 3C 00 20 72 23 6B 76 20 63 69 74 65 64 20 61 20 20 20 20 20 20 .◘.X☻☻.☺.◙.<. r#kv cited a 00008C20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00008C40 20 20 20 20 20 20 20 20 20 20 72 23 27 20 27 73 68 61 70 65 28 7E 72 45 6B 76 29 2F 72 23 28 5E r#' 'shape(~rEkv)/r#(^ 00008C60 3D 5C 72 45 6B 76 29 2F 72 23 2C 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 =\rEkv)/r#,a 00008C80 20 20 20 20 20 20 72 23 72 5B 61 76 20 67 72 61 64 65 75 70 20 72 3B 5D 20 20 20 20 20 20 20 20 r#r[av gradeup r;] 00008CA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00008CC0 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 20 20 $0 00008CE0 20 20 20 20 20 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 63 69 "ci 00008D00 74 65 64 20 2D 20 65 78 74 72 61 63 74 20 63 69 74 65 64 20 73 74 72 69 6E 67 73 20 66 72 6F 6D ted - extract cited strings from 00008D20 20 63 68 61 72 61 63 74 65 72 20 61 72 72 61 79 73 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 character arrays "from ' 00008D40 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 20 the apl handbook of techniques' 00008D60 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 73 74 72 69 6E 67 73 20 6F copyright 1978, ibm. "-strings o 00008D80 66 20 6E 6F 6E 2D 62 6C 61 6E 6B 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 2C 20 64 65 6D 61 72 6B 65 f non-blank information, demarke 00008DA0 64 20 62 79 20 74 68 65 20 20 20 20 20 20 20 20 20 22 20 63 68 61 72 61 63 74 65 72 73 20 70 72 d by the " characters pr 00008DC0 6F 66 66 65 72 65 64 20 61 73 20 6B 76 2C 20 77 69 6C 6C 20 62 65 20 65 78 74 72 61 63 74 65 64 offered as kv, will be extracted 00008DE0 2C 20 73 68 61 70 65 64 20 61 73 20 20 22 20 61 20 6D 61 74 72 69 78 2C 20 61 6E 64 20 73 6F 72 , shaped as " a matrix, and sor 00008E00 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 20 ted. 00008E20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 73 68 61 70 65 20 47 67 72 61 64 65 75 70 "-uses: Gshape Ggradeup 00008E40 20 28 61 6E 64 20 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 6C 65 20 22 61 76 22 29 20 20 20 20 20 (and global variable "av") 00008E60 20 20 20 20 20 12 00 FF FF 00 00 FC FF 0C 00 0E 00 8D 58 01 00 5E 06 26 C7 24 00 39 5C FC FF 06 ↕. ..ⁿ ♀.♫.ìX☺.^♠&╟$.9\ⁿ ♠ 00008E80 00 02 00 B1 57 01 00 5D 4D CA 04 00 00 39 5C FC FF 03 00 08 00 97 57 01 00 07 C4 5E 06 48 00 39 .☻.▒W☺.]M╩♦..9\ⁿ ♥.◘.ùW☺.•─^♠H.9 00008EA0 5C 03 00 02 00 00 00 00 00 01 00 45 55 8B EC 24 00 39 5C FC FF 01 00 02 00 97 57 01 00 66 29 34 \♥.☻.....☺.EUï∞$.9\ⁿ ☺.☻.ùW☺.f)4 00008EC0 89 6C 00 39 5C FC FF 22 00 0E 00 B4 58 01 00 50 BA 29 34 7E 00 39 5C 0C 00 21 00 00 00 00 00 01 ël.9\ⁿ ".♫.┤X☺.P║)4~.9\♀.!.....☺ 00008EE0 00 FD 90 C4 5E 90 00 39 5C 03 00 20 00 00 00 00 00 01 00 8B 46 06 5D A2 00 39 5C FC FF 1F 00 04 .²É─^É.9\♥. .....☺.ïF♠]ó.9\ⁿ ▼.♦ 00008F00 00 AC 58 01 00 02 26 FF 37 B4 00 39 5C 0F 00 1E 00 00 00 00 00 01 00 34 83 C4 08 C6 00 39 5C 09 .¼X☺.☻& 7┤.9\☼.▲.....☺.4â─◘╞.9\○ 00008F20 00 1D 00 00 00 00 00 01 00 06 75 15 B8 D8 00 39 5C FC FF 1B 00 0E 00 AB 58 01 00 08 89 46 06 EA .↔.....☺.♠u§╕╪.9\ⁿ ←.♫.½X☺.◘ëF♠Ω 00008F40 00 39 5C 25 00 1A 00 00 00 00 00 01 00 FF 76 08 FF FC 00 39 5C FC FF 19 00 08 00 AB 58 01 00 D6 .9\%.→.....☺. v◘ ⁿ.9\ⁿ ↓.◘.½X☺.╓ 00008F60 05 26 8C 0E 01 39 5C 3C 00 18 00 00 00 00 00 01 00 55 8B EC 83 20 01 39 5C 3E 00 16 00 00 00 00 ♣&î♫☺9\<.↑.....☺.Uï∞â ☺9\>.▬.... 00008F80 00 01 00 0A 89 46 FC 32 01 39 5C 08 00 15 00 00 00 00 00 01 00 8B 47 02 26 44 01 39 5C 03 00 14 .☺.◙ëFⁿ2☺9\◘.§.....☺.ïG☻&D☺9\♥.¶ 00008FA0 00 00 00 00 00 01 00 89 76 F0 BF 56 01 39 5C FC FF 13 00 02 00 A6 58 01 00 06 89 56 F6 68 01 39 .....☺.ëv≡┐V☺9\ⁿ ‼.☻.ªX☺.♠ëV÷h☺9 00008FC0 5C 0F 00 12 00 00 00 00 00 01 00 46 F8 EB 24 7A 01 39 5C 09 00 11 00 00 00 00 00 01 00 EE FF 76 \☼.↕.....☺.F°δ$z☺9\○.◄.....☺.ε v 00008FE0 EC 8C 01 39 5C FC FF 0F 00 08 00 98 58 01 00 07 01 46 EC 9E 01 39 5C 25 00 0E 00 00 00 00 00 01 ∞î☺9\ⁿ ☼.◘.ÿX☺.•☺F∞₧☺9\%.♫.....☺ 00009000 00 5D 4D CA 08 B0 01 39 5C FC FF 0D 00 0A 00 8E 58 01 00 0A 00 01 00 C2 01 39 5C 84 00 0C 00 00 .]M╩◘░☺9\ⁿ ♪.◙.ÄX☺.◙.☺.┬☺9\ä.♀.. 00009020 00 00 00 01 00 FC 45 00 00 D4 01 39 5C 08 00 0B 00 00 00 00 00 01 00 00 00 45 55 E6 01 39 5C FC ...☺.ⁿE..╘☺9\◘.♂.....☺...EUµ☺9\ⁿ 00009040 FF 06 00 0A 00 A5 58 01 00 52 50 9A 64 F8 01 39 5C 07 00 03 00 08 00 14 59 01 00 A1 EE 00 89 0A ♠.◙.ÑX☺.RPÜd°☺9\•.♥.◘.¶Y☺.íε.ë◙ 00009060 02 39 5C 03 00 02 00 00 00 00 00 01 00 00 52 50 B8 FF FF 00 00 FC FF 01 00 04 00 8E 58 01 00 B8 ☻9\♥.☻.....☺..RP╕ ..ⁿ ☺.♦.ÄX☺.╕ 00009080 6A FF 36 2E 02 39 5C 3D 00 12 00 00 00 00 00 01 00 B8 7A 06 52 40 02 39 5C 1B 00 11 00 00 00 00 j 6.☻9\=.↕.....☺.╕z♠R@☻9\←.◄.... 000090A0 00 01 00 9A 49 BB 54 52 02 39 5C FC FF 10 00 06 00 C1 58 01 00 C0 50 50 B0 64 02 39 5C FC FF 08 .☺.ÜI╗TR☻9\ⁿ ►.♠.┴X☺.└PP░d☻9\ⁿ ◘ 000090C0 00 08 00 20 59 01 00 CD 3F 1E 11 76 02 39 5C FC FF 05 00 10 00 BC 58 01 00 C4 5F 4E 26 88 02 39 .◘. Y☺.═?▲◄v☻9\ⁿ ♣.►.╝X☺.─_N&ê☻9 000090E0 5C 3B 00 04 00 00 00 00 00 01 00 89 86 48 FF 9A 02 39 5C FC FF 03 00 10 00 B6 58 01 00 4C FF 52 \;.♦.....☺.ëåH Ü☻9\ⁿ ♥.►.╢X☺.L R 00009100 50 AC 02 39 5C 03 00 02 00 00 00 00 00 01 00 F0 63 50 9A FF FF 00 00 FC FF 01 00 04 00 B5 58 01 P¼☻9\♥.☻.....☺.≡cPÜ ..ⁿ ☺.♦.╡X☺ 00009120 00 8B 96 4A FF D0 02 39 5C FD FF 02 00 0C 00 B7 5A 01 00 EA 02 FF B6 FF FF 00 00 04 00 01 00 00 .ïûJ ╨☻9\² ☻.♀.╖Z☺.Ω☻ ╢ ..♦.☺.. 00009140 00 00 00 01 00 50 16 8D 86 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 46 FF FF B6 FF FF 00 00 02 ...☺.P▬ìå ..☻.......☺.F ╢ ..☻ 00009160 00 00 00 00 00 00 00 01 00 5E FF 74 3A FF FF 00 00 02 00 00 00 00 00 00 00 01 00 62 FF 89 86 FF .......☺.^ t: ..☻.......☺.b ëå 00009180 FF 00 00 02 00 00 00 00 00 00 00 01 00 74 10 8C C2 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 C4 ..☻.......☺.t►î┬ ..☻.......☺.─ 000091A0 9E 60 FF FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 E9 4D 02 00 00 5A 00 1C 02 BE 02 E2 02 F4 ₧` ..☻.......☺..ΘM☻..Z.∟☻╛☻Γ☻⌠ 000091C0 02 06 03 18 03 2A 03 3C 03 48 00 FF FF 02 00 61 00 06 00 63 69 74 65 64 00 03 00 6B 76 00 02 00 ☻♠♥↑♥*♥<♥H. ☻.a.♠.cited.♥.kv.☻. 000091E0 72 00 02 00 61 00 02 00 72 00 03 00 6B 76 00 02 00 72 00 02 00 72 00 03 00 6B 76 00 02 00 72 00 r.☻.a.☻.r.♥.kv.☻.r.☻.r.♥.kv.☻.r. 00009200 06 00 73 68 61 70 65 00 08 00 01 00 00 00 01 00 20 02 00 72 00 02 00 72 00 08 00 67 72 61 64 65 ♠.shape.◘.☺...☺. ☻.r.☻.r.◘.grade 00009220 75 70 00 03 00 61 76 00 02 00 72 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 0A 00 63 68 61 up.♥.av.☻.r.☻.r.♦.☺...☻...x◙.cha 00009240 72 61 63 74 65 72 00 00 01 00 0A 0F 00 04 00 04 00 01 00 01 00 09 00 08 00 F0 00 02 00 01 00 04 racter..☺.◙☼.♦.♦.☺.☺.○.◘.≡.☻.☺.♦ 00009260 00 3C 00 74 20 23 20 63 68 61 72 61 63 74 65 72 20 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .<.t # character a 00009280 20 20 20 20 20 20 20 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 " 000092A0 72 65 74 75 72 6E 73 20 31 20 69 66 20 61 72 67 75 6D 65 6E 74 20 69 73 20 63 68 61 72 61 63 74 returns 1 if argument is charact 000092C0 65 72 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 22 66 72 6F 6D er. "from 000092E0 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 00009300 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 74 20 23 20 30 20 5E 3D 20 ' copyright 1978, ibm. t # 0 ^= 00009320 30 20 5C 20 30 20 52 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 0 \ 0 R a 00009340 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 04 00 92 ↕. ..ⁿ ♫.♦.Æ 00009360 58 01 00 20 20 20 20 24 00 E1 5A FC FF 04 00 04 00 88 58 01 00 20 20 20 20 36 00 E1 5A 03 00 02 X☺. $.ßZⁿ ♦.♦.êX☺. 6.ßZ♥.☻ 00009380 00 00 00 00 00 01 00 20 20 20 20 00 00 E1 5A FC FF 00 00 0A 00 86 58 01 00 20 20 20 20 FF FF 00 .....☺. ..ßZⁿ ..◙.åX☺. . 000093A0 00 02 00 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 20 20 20 .☻.......☺. ..☻.......☺. 000093C0 20 7E 00 E1 5A FC FF 11 00 10 00 92 58 01 00 20 20 20 20 90 00 E1 5A 32 00 0F 00 00 00 00 00 01 ~.ßZⁿ ◄.►.ÆX☺. É.ßZ2.☼.....☺ 000093E0 00 20 20 20 20 A2 00 E1 5A FD FF 0D 00 08 00 BD 58 01 00 20 20 20 20 B4 00 E1 5A 3C 00 0B 00 00 . ó.ßZ² ♪.◘.╜X☺. ┤.ßZ<.♂.. 00009400 00 00 00 01 00 22 63 68 61 C6 00 E1 5A FD FF 09 00 0A 00 B5 58 01 00 61 63 74 65 D8 00 E1 5A 3E ...☺."cha╞.ßZ² ○.◙.╡X☺.acte╪.ßZ> 00009420 00 06 00 00 00 00 00 01 00 65 72 69 63 EA 00 E1 5A FD FF 04 00 02 00 AA 58 01 00 20 20 20 20 FC .♠.....☺.ericΩ.ßZ² ♦.☻.¬X☺. ⁿ 00009440 00 E1 5A 03 00 02 00 00 00 00 00 01 00 72 20 47 6F FF FF 00 00 FC FF 00 00 0A 00 92 58 01 00 20 .ßZ♥.☻.....☺.r Go ..ⁿ ..◙.ÆX☺. 00009460 20 20 20 00 00 48 00 5A 00 6C 00 36 00 FF FF 02 00 61 00 0A 00 63 68 61 72 61 63 74 65 72 00 02 ..H.Z.l.6. ☻.a.◙.character.☻ 00009480 00 74 00 02 00 61 00 04 00 01 00 00 00 02 00 00 00 04 00 01 00 00 00 02 00 00 00 04 00 01 00 00 .t.☻.a.♦.☺...☻...♦.☺...☻...♦.☺.. 000094A0 00 02 00 00 00 02 00 74 00 78 08 00 63 66 6F 72 6D 61 74 00 00 01 00 01 10 00 06 00 01 00 01 00 .☻...☻.t.x◘.cformat..☺.☺►.♠.☺.☺. 000094C0 0A 00 02 00 01 00 01 00 08 00 68 01 02 00 01 00 06 00 3C 00 20 63 66 6F 72 6D 61 74 20 20 20 20 ◙.☻.☺.☺.◘.h☺☻.☺.♠.<. cformat 000094E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00009500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 61 73 73 75 6D 65 73 20 61 20 61 6E 64 20 62 "assumes a and b 00009520 20 68 61 76 65 20 62 65 65 6E 20 6C 6F 63 61 6C 69 7A 65 64 20 20 20 20 20 20 20 20 20 20 20 20 have been localized 00009540 20 20 20 20 20 20 20 20 20 20 20 20 20 43 27 61 23 46 61 20 48 20 62 23 46 62 27 69 66 28 63 68 C'a#Fa H b#Fb'if(ch 00009560 61 72 61 63 74 65 72 20 61 29 5E 3D 63 68 61 72 61 63 74 65 72 20 62 20 20 20 20 20 20 20 20 20 aracter a)^=character b 00009580 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 20 20 $0 000095A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000095C0 20 20 20 20 22 63 66 6F 72 6D 61 74 20 2D 20 65 6E 73 75 72 65 73 20 6C 6F 63 61 6C 69 7A 65 64 "cformat - ensures localized 000095E0 20 61 20 61 6E 64 20 62 20 61 72 65 20 73 61 6D 65 20 74 79 70 65 2E 20 20 20 20 20 20 20 20 20 a and b are same type. 00009600 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 68 6E "from 'the apl handbook of techn 00009620 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 00 00 FF FF iques' copyright 1978, ibm. .. 00009640 00 00 FC FF 01 00 0A 00 D3 55 01 00 01 00 05 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 ..ⁿ ☺.◙.╙U☺.☺.♣. ..☻.......☺. 00009660 20 20 36 00 24 5A FC FF 2A 00 04 00 D4 55 01 00 20 20 20 20 48 00 24 5A FC FF 20 00 02 00 89 58 6.$Zⁿ *.♦.╘U☺. H.$Zⁿ .☻.ëX 00009680 01 00 20 20 20 20 5A 00 24 5A 3E 00 1E 00 00 00 00 00 01 00 65 73 20 61 6C 00 24 5A 09 00 1D 00 ☺. Z.$Z>.▲.....☺.es al.$Z○.↔. 000096A0 00 00 00 00 01 00 65 6E 20 6C 7E 00 24 5A FC FF 1C 00 06 00 BE 55 01 00 20 20 20 20 90 00 24 5A ....☺.en l~.$Zⁿ ∟.♠.╛U☺. É.$Z 000096C0 FC FF 12 00 0A 00 B1 57 01 00 20 43 27 61 A2 00 24 5A 08 00 11 00 00 00 00 00 01 00 63 68 61 72 ⁿ ↕.◙.▒W☺. C'aó.$Z◘.◄.....☺.char 000096E0 B4 00 24 5A FC FF 0F 00 06 00 A0 55 01 00 61 63 74 65 C6 00 24 5A 07 00 02 00 10 00 AA 57 01 00 ┤.$Zⁿ ☼.♠.áU☺.acte╞.$Z•.☻.►.¬W☺. 00009700 20 20 20 20 FF FF 00 00 23 00 01 00 00 00 00 00 01 00 20 20 20 20 EA 00 24 5A FD FF 02 00 0E 00 ..#.☺.....☺. Ω.$Z² ☻.♫. 00009720 90 58 01 00 20 20 20 20 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 ÉX☺. ..♦.☺.....☺. ..☻. 00009740 00 00 00 00 00 00 01 00 61 74 20 2D FF FF 00 00 02 00 00 00 00 00 00 00 01 00 69 7A 65 64 00 00 ......☺.at - ..☻.......☺.ized.. 00009760 12 00 24 00 D8 00 FC 00 0E 01 FF FF FF FF 08 00 63 66 6F 72 6D 61 74 00 02 00 62 00 0A 00 63 68 ↕.$.╪.ⁿ.♫☺ ◘.cformat.☻.b.◙.ch 00009780 61 72 61 63 74 65 72 00 02 00 61 00 0A 00 63 68 61 72 61 63 74 65 72 00 03 00 69 66 00 08 00 0B aracter.☻.a.◙.character.♥.if.◘.♂ 000097A0 00 01 00 01 00 0B 00 61 23 46 61 20 48 20 62 23 46 62 04 00 01 00 00 00 02 00 00 00 78 05 00 63 .☺.☺.♂.a#Fa H b#Fb♦.☺...☻...x♣.c 000097C0 6E 74 72 00 00 01 00 0C 1F 00 04 00 05 00 01 00 01 00 18 00 08 00 F4 00 02 00 01 00 04 00 3D 00 ntr..☺.♀▼.♦.♣.☺.☺.↑.◘.⌠.☻.☺.♦.=. 000097E0 20 68 23 77 20 63 6E 74 72 20 76 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 h#w cntr v 00009800 20 20 20 20 20 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 63 6E "cn 00009820 74 72 20 2D 20 75 73 65 64 20 69 6E 20 6F 75 74 70 75 74 20 66 75 6E 63 74 69 6F 6E 2E 20 20 20 tr - used in output function. 00009840 20 20 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 20 "from 00009860 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' 00009880 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 20 68 23 28 77 5A 52 76 29 copyright 1978, ibm. h#(wZRv) 000098A0 2F 28 5F 53 30 2E 35 58 77 5F 52 2C 76 29 60 4F 77 59 76 20 20 20 20 20 20 20 20 20 20 20 20 20 /(_S0.5Xw_R,v)`OwYv 000098C0 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 0A 00 04 00 ↕. ..ⁿ ◙.♦. 000098E0 26 59 01 00 3A 11 50 FF 24 00 87 5C FC FF 05 00 0C 00 25 59 01 00 FF 77 06 26 00 00 87 5C FC FF &Y☺.:◄P $.ç\ⁿ ♣.♀.%Y☺. w♠&..ç\ⁿ 00009900 03 00 04 00 1F 59 01 00 FF 76 EE C4 48 00 87 5C 03 00 02 00 00 00 00 00 01 00 F6 8E C2 89 24 00 ♥.♦.▼Y☺. vε─H.ç\♥.☻.....☺.÷Ä┬ë$. 00009920 87 5C FC FF 01 00 0A 00 C3 58 01 00 54 26 FF B6 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 8A FF ç\ⁿ ☺.◙.├X☺.T& ╢ ..☻.......☺.è 00009940 B6 42 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 E9 3C FF BF 90 00 87 5C FC FF 1B 00 04 00 B2 5A ╢B ..☻.......☺.Θ< ┐É.ç\ⁿ ←.♦.▓Z 00009960 01 00 CD 3F 04 08 A2 00 87 5C 39 00 1A 00 00 00 00 00 01 00 46 FE C4 9E B4 00 87 5C FC FF 19 00 ☺.═?♦◘ó.ç\9.→.....☺.F■─₧┤.ç\ⁿ ↓. 00009980 0C 00 A3 5A 01 00 29 34 83 C4 C6 00 87 5C 46 00 17 00 00 00 00 00 01 00 86 5C FF 73 D8 00 87 5C ♀.úZ☺.)4â─╞.ç\F.↨.....☺.å\ s╪.ç\ 000099A0 09 00 16 00 00 00 00 00 01 00 4C 29 34 83 EA 00 87 5C FC FF 15 00 0A 00 36 59 01 00 07 13 1E 89 ○.▬.....☺.L)4âΩ.ç\ⁿ §.◙.6Y☺.•‼▲ë 000099C0 FC 00 87 5C 0C 00 14 00 00 00 00 00 01 00 F6 FC 09 FF 0E 01 87 5C 32 00 13 00 00 00 00 00 01 00 ⁿ.ç\♀.¶.....☺.÷ⁿ○ ♫☺ç\2.‼.....☺. 000099E0 CD 3F 03 68 20 01 87 5C 3F 00 12 00 00 00 00 00 01 00 C4 1E EE 00 32 01 87 5C FC FF 11 00 04 00 ═?♥h ☺ç\?.↕.....☺.─▲ε.2☺ç\ⁿ ◄.♦. 00009A00 36 59 01 00 CD 3F 1E AF 44 01 87 5C 38 00 10 00 00 00 00 00 01 00 56 FF FF B6 56 01 87 5C FD FF 6Y☺.═?▲»D☺ç\8.►.....☺.V ╢V☺ç\² 00009A20 0D 00 02 00 7D 5B 01 00 FF 9A A3 27 68 01 87 5C 33 00 0C 00 00 00 00 00 01 00 66 FF 36 7A 7A 01 ♪.☻.}[☺. Üú'h☺ç\3.♀.....☺.f 6zz☺ 00009A40 87 5C 3F 00 0B 00 00 00 00 00 01 00 50 B0 01 50 8C 01 87 5C 08 00 0A 00 00 00 00 00 01 00 8B E5 ç\?.♂.....☺.P░☺Pî☺ç\◘.◙.....☺.ïσ 00009A60 5D 4D 9E 01 87 5C 0F 00 09 00 00 00 00 00 01 00 45 55 8B EC B0 01 87 5C 09 00 08 00 00 00 00 00 ]M₧☺ç\☼.○.....☺.EUï∞░☺ç\○.◘..... 00009A80 01 00 FC B8 7E 05 C2 01 87 5C FC FF 07 00 04 00 33 59 01 00 83 46 FC 04 D4 01 87 5C 32 00 06 00 ☺.ⁿ╕~♣┬☺ç\ⁿ •.♦.3Y☺.âFⁿ♦╘☺ç\2.♠. 00009AA0 00 00 00 00 01 00 0C A1 C8 00 E6 01 87 5C 3A 00 05 00 00 00 00 00 01 00 72 54 26 09 F8 01 87 5C ....☺.♀í╚.µ☺ç\:.♣.....☺.rT&○°☺ç\ 00009AC0 FC FF 04 00 0E 00 32 59 01 00 42 54 26 FF 0A 02 87 5C 08 00 03 00 00 00 00 00 01 00 68 9A 46 83 ⁿ ♦.♫.2Y☺.BT& ◙☻ç\◘.♥.....☺.hÜFâ 00009AE0 1C 02 87 5C 03 00 02 00 00 00 00 00 01 00 26 BA 90 43 FF FF 00 00 FC FF 01 00 08 00 32 59 01 00 ∟☻ç\♥.☻.....☺.&║ÉC ..ⁿ ☺.◘.2Y☺. 00009B00 31 C0 50 50 00 00 5A 00 6C 00 7E 00 48 00 FF FF 02 00 76 00 05 00 63 6E 74 72 00 02 00 77 00 02 1└PP..Z.l.~.H. ☻.v.♣.cntr.☻.w.☻ 00009B20 00 68 00 02 00 76 00 02 00 77 00 02 00 76 00 02 00 77 00 02 00 01 00 00 00 08 00 00 00 00 00 00 .h.☻.v.☻.w.☻.v.☻.w.☻.☺...◘...... 00009B40 00 E0 3F 02 00 76 00 02 00 77 00 02 00 68 00 78 08 00 63 6F 6C 6C 65 63 74 00 00 01 00 0C 2C 00 .α?☻.v.☻.w.☻.h.x◘.collect..☺.♀,. 00009B60 0D 00 07 00 19 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 19 03 ♪.•.↓.☻.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.◘.↓♥ 00009B80 02 00 01 00 0D 00 3D 00 20 72 23 76 76 20 63 6F 6C 6C 65 63 74 20 63 76 3B 74 20 20 20 20 20 20 ☻.☺.♪.=. r#vv collect cv;t 00009BA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00009BC0 20 20 20 20 20 20 72 23 74 2C 5B 4C 69 6F 2B 30 2E 35 5D 28 28 74 23 64 72 65 70 20 63 76 29 4A r#t,[Lio+0.5]((t#drep cv)J 00009BE0 2E 3D 63 76 29 2B 2E 58 76 76 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .=cv)+.Xvv 00009C00 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 20 $0 00009C20 20 20 20 20 20 20 20 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 " 00009C40 63 6F 6C 6C 65 63 74 20 2D 20 63 6F 6C 6C 65 63 74 20 61 6E 64 20 73 75 6D 6D 61 72 69 7A 65 20 collect - collect and summarize 00009C60 63 6F 65 66 66 69 63 69 65 6E 74 73 20 6F 66 20 63 6F 6D 6D 6F 6E 20 63 6F 64 65 73 22 66 72 6F coefficients of common codes"fro 00009C80 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 65 m 'the apl handbook of technique 00009CA0 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 22 2D 76 76 20 61 6E s' copyright 1978, ibm. "-vv an 00009CC0 64 20 63 76 20 61 72 65 20 61 20 70 61 69 72 20 6F 66 20 6E 75 6D 65 72 69 63 20 76 65 63 74 6F d cv are a pair of numeric vecto 00009CE0 72 73 20 74 6F 20 77 68 69 63 68 20 77 65 20 68 61 64 20 20 20 20 22 20 62 65 65 6E 20 63 61 74 rs to which we had " been cat 00009D00 65 6E 61 74 69 6E 67 20 70 61 69 72 73 20 6F 66 20 63 6F 72 72 65 73 70 6F 6E 64 69 6E 67 20 64 enating pairs of corresponding d 00009D20 61 74 61 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 77 65 20 64 65 73 69 72 65 20 74 ata. "-we desire t 00009D40 6F 20 72 65 64 75 63 65 20 74 68 65 20 64 61 74 61 20 62 79 20 63 6F 6C 6C 65 63 74 69 6E 67 20 o reduce the data by collecting 00009D60 61 6E 64 20 73 75 6D 6D 69 6E 67 20 20 20 20 20 22 20 74 68 6F 73 65 20 74 65 72 6D 73 20 69 6E and summing " those terms in 00009D80 20 76 76 20 74 68 61 74 20 61 72 65 20 69 6E 20 74 68 65 20 73 61 6D 65 20 63 61 74 65 67 6F 72 vv that are in the same categor 00009DA0 79 2C 20 61 73 20 20 20 20 20 20 20 20 22 20 72 65 70 72 65 73 65 6E 74 65 64 20 62 79 20 72 65 y, as " represented by re 00009DC0 70 65 74 69 74 69 6F 6E 20 69 6E 20 63 76 2C 20 74 68 65 20 63 6F 64 65 20 76 65 63 74 6F 72 2E petition in cv, the code vector. 00009DE0 20 20 20 20 20 20 20 20 20 20 22 2D 74 68 65 20 63 6F 64 65 20 76 65 63 74 6F 72 2C 20 61 6C 74 "-the code vector, alt 00009E00 68 6F 75 67 68 20 6E 75 6D 65 72 69 63 2C 20 6D 61 79 20 72 65 70 72 65 73 65 6E 74 20 20 20 20 hough numeric, may represent 00009E20 20 20 20 20 20 20 20 22 20 61 6C 70 68 61 62 65 74 69 63 20 63 68 61 72 61 63 74 65 72 73 2E 20 " alphabetic characters. 00009E40 20 73 65 65 20 47 6C 6A 6E 66 6F 72 6D 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 see Gljnform. 00009E60 20 20 20 20 22 2D 75 73 65 73 3A 20 47 64 72 65 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "-uses: Gdrep 00009E80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00009EA0 20 36 00 FF FF 00 00 FC FF 11 00 04 00 B7 5A 01 00 FF 76 E4 FF 24 00 D4 5D 1B 00 10 00 00 00 00 6. ..ⁿ ◄.♦.╖Z☺. vΣ $.╘]←.►.... 00009EC0 00 01 00 26 83 3E E8 00 00 D4 5D FC FF 0E 00 0E 00 B1 5A 01 00 C2 06 00 45 48 00 D4 5D FC FF 06 .☺.&â>Φ..╘]ⁿ ♫.♫.▒Z☺.┬♠.EH.╘]ⁿ ♠ 00009EE0 00 0A 00 B6 5A 01 00 50 9A A2 66 24 00 D4 5D FC FF 03 00 08 00 B1 5A 01 00 FF 76 08 FF 6C 00 D4 .◙.╢Z☺.PÜóf$.╘]ⁿ ♥.◘.▒Z☺. v◘ l.╘ 00009F00 5D 03 00 02 00 00 00 00 00 01 00 66 55 26 8C 48 00 D4 5D FC FF 01 00 0E 00 27 59 01 00 89 D8 83 ]♥.☻.....☺.fU&îH.╘]ⁿ ☺.♫.'Y☺.ë╪â 00009F20 C0 90 00 D4 5D FC FF 23 00 02 00 A8 5B 01 00 C4 5E 06 26 A2 00 D4 5D 38 00 22 00 00 00 00 00 01 └É.╘]ⁿ #.☻.¿[☺.─^♠&ó.╘]8.".....☺ 00009F40 00 47 16 26 89 B4 00 D4 5D 0E 00 21 00 00 00 00 00 01 00 0E E8 B4 06 C6 00 D4 5D 0B 00 20 00 00 .G▬&ë┤.╘]♫.!.....☺.♫Φ┤♠╞.╘]♂. .. 00009F60 00 00 00 01 00 8B EC 8B 46 D8 00 D4 5D 09 00 1F 00 00 00 00 00 01 00 34 89 D1 09 EA 00 D4 5D FC ...☺.ï∞ïF╪.╘]○.▼.....☺.4ë╤○Ω.╘]ⁿ 00009F80 FF 1D 00 08 00 A1 5B 01 00 06 9A 3B 39 FC 00 D4 5D 1D 00 1C 00 00 00 00 00 01 00 0C FF 76 14 0E ↔.◘.í[☺.♠Ü;9ⁿ.╘]↔.∟.....☺.♀ v¶♫ 00009FA0 01 D4 5D 0E 00 1B 00 00 00 00 00 01 00 0A FF 76 08 20 01 D4 5D 2A 00 1A 00 00 00 00 00 01 00 CA ☺╘]♫.←.....☺.◙ v◘ ☺╘]*.→.....☺.╩ 00009FC0 10 00 45 32 01 D4 5D 09 00 19 00 00 00 00 00 01 00 50 9A A2 66 44 01 D4 5D FC FF 17 00 0A 00 93 ►.E2☺╘]○.↓.....☺.PÜófD☺╘]ⁿ ↨.◙.ô 00009FE0 5B 01 00 FF 76 08 FF 56 01 D4 5D FC FF 12 00 08 00 99 5B 01 00 66 55 26 8C 68 01 D4 5D 03 00 11 [☺. v◘ V☺╘]ⁿ ↕.◘.Ö[☺.fU&îh☺╘]♥.◄ 0000A000 00 00 00 00 00 01 00 C0 0E 52 50 7A 01 D4 5D FC FF 10 00 04 00 93 5B 01 00 FF 76 14 FF 8C 01 D4 .....☺.└♫RPz☺╘]ⁿ ►.♦.ô[☺. v¶ î☺╘ 0000A020 5D 08 00 0F 00 00 00 00 00 01 00 FF 76 08 FF 9E 01 D4 5D 08 00 0E 00 00 00 00 00 01 00 4D CA 14 ]◘.☼.....☺. v◘ ₧☺╘]◘.♫.....☺.M╩¶ 0000A040 00 B0 01 D4 5D 3D 00 0D 00 00 00 00 00 01 00 75 18 B8 02 C2 01 D4 5D FD FF 0A 00 10 00 93 5B 01 .░☺╘]=.♪.....☺.u↑╕☻┬☺╘]² ◙.►.ô[☺ 0000A060 00 89 46 00 00 D4 01 D4 5D 0B 00 09 00 00 00 00 00 01 00 34 C4 5E 06 E6 01 D4 5D ED FF 06 00 00 .ëF..╘☺╘]♂.○.....☺.4─^♠µ☺╘]φ ♠.. 0000A080 00 00 00 01 00 8B 56 0C 8B F8 01 D4 5D 3B 00 05 00 00 00 00 00 01 00 52 50 89 46 0A 02 D4 5D 0C ...☺.ïV♀ï°☺╘];.♣.....☺.RPëF◙☻╘]♀ 0000A0A0 00 04 00 00 00 00 00 01 00 C4 5E 06 26 1C 02 D4 5D FC FF 03 00 0E 00 88 5B 01 00 01 00 C4 76 2E .♦.....☺.─^♠&∟☻╘]ⁿ ♥.♫.ê[☺.☺.─v. 0000A0C0 02 D4 5D 03 00 02 00 00 00 00 00 01 00 74 04 26 FF FF FF 00 00 FC FF 01 00 10 00 85 5B 01 00 90 ☻╘]♥.☻.....☺.t♦& ..ⁿ ☺.►.à[☺.É 0000A0E0 C4 5E 06 52 02 D4 5D FD FF 02 00 10 00 CD 5C 01 00 8A 04 30 E4 FF FF 00 00 04 00 01 00 00 00 00 ─^♠R☻╘]² ☻.►.═\☺.è♦0Σ ..♦.☺.... 0000A100 00 01 00 26 8B 47 62 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 EB 19 8C C2 FF FF 00 00 02 00 00 .☺.&ïGb ..☻.......☺.δ↓î┬ ..☻.. 0000A120 00 00 00 00 00 01 00 8B 46 FC 89 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 E0 C4 76 F8 FF FF 00 .....☺.ïFⁿë ..☻.......☺.α─v° . 0000A140 00 02 00 00 00 00 00 00 00 01 00 FF 76 08 FF FF FF 00 00 02 00 00 00 00 00 00 00 01 00 8B E5 5D .☻.......☺. v◘ ..☻.......☺.ïσ] 0000A160 4D FF FF 00 00 02 00 00 00 00 00 00 00 01 00 0B 46 06 75 FF FF 00 00 02 00 00 00 00 00 00 00 01 M ..☻.......☺.♂F♠u ..☻.......☺ 0000A180 00 89 56 08 89 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 3B 39 29 34 FF FF 00 00 02 00 00 00 00 .ëV◘ë ..☻.......☺.;9)4 ..☻.... 0000A1A0 00 00 00 01 00 16 F0 00 A1 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 EA 00 89 4E 00 00 7E 00 40 ...☺.▬≡.í ..☻.......☺.Ω.ëN..~.@ 0000A1C0 02 64 02 76 02 88 02 9A 02 AC 02 BE 02 D0 02 E2 02 F4 02 06 03 6C 00 FF FF 02 00 74 00 03 00 63 ☻d☻v☻ê☻Ü☻¼☻╛☻╨☻Γ☻⌠☻♠♥l. ☻.t.♥.c 0000A1E0 76 00 08 00 63 6F 6C 6C 65 63 74 00 03 00 76 76 00 02 00 72 00 03 00 76 76 00 03 00 63 76 00 03 v.◘.collect.♥.vv.☻.r.♥.vv.♥.cv.♥ 0000A200 00 63 76 00 05 00 64 72 65 70 00 02 00 74 00 02 00 01 00 00 00 08 00 00 00 00 00 00 00 E0 3F 02 .cv.♣.drep.☻.t.☻.☺...◘.......α?☻ 0000A220 00 74 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 08 00 63 6F 6C 66 6F 72 6D 00 00 01 00 01 .t.☻.r.♦.☺...☻...x◘.colform..☺.☺ 0000A240 3F 00 07 00 03 00 0E 00 29 00 02 00 01 00 01 00 01 00 08 00 A4 01 02 00 01 00 07 00 3C 00 20 63 ?.•.♥.♫.).☻.☺.☺.☺.◘.ñ☺☻.☺.•.<. c 0000A260 6F 6C 66 6F 72 6D 3B 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 olform;r 0000A280 20 20 20 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 69 66 $0 if 0000A2A0 20 30 3D 28 52 52 61 29 58 52 52 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0=(RRa)XRRb 0000A2C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 23 28 28 31 59 52 61 29 a#((1YRa) 0000A2E0 2C 72 29 59 61 20 48 20 62 23 28 28 31 59 52 62 29 2C 72 23 28 31 55 52 61 29 53 31 55 52 62 29 ,r)Ya H b#((1YRb),r#(1URa)S1URb) 0000A300 59 62 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 Yb $0 0000A320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000A340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 6F 6C 66 6F 72 6D 20 69 73 20 75 73 65 64 20 62 "colform is used b 0000A360 79 20 65 2E 67 2E 20 72 63 61 74 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 y e.g. rcat. 0000A380 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 6F "from 'the apl handboo 0000A3A0 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, 0000A3C0 20 69 62 6D 2E 20 22 61 73 73 75 6D 65 73 20 6C 6F 63 61 6C 69 7A 65 64 20 61 20 61 6E 64 20 62 ibm. "assumes localized a and b 0000A3E0 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 20 20 . 0000A400 20 20 24 00 FF FF 00 00 FC FF 09 00 0C 00 13 59 01 00 00 00 00 00 24 00 00 5D 1B 00 08 00 00 00 $. ..ⁿ ○.♀.‼Y☺.....$..]←.◘... 0000A420 00 00 01 00 00 00 00 00 FF FF 00 00 FC FF 01 00 0E 00 BE 58 01 00 00 00 00 00 48 00 00 5D FC FF ..☺..... ..ⁿ ☺.♫.╛X☺.....H..]ⁿ 0000A440 11 00 02 00 A3 5A 01 00 00 00 00 00 5A 00 00 5D 32 00 10 00 00 00 00 00 01 00 00 00 00 00 6C 00 ◄.☻.úZ☺.....Z..]2.►.....☺.....l. 0000A460 00 5D 32 00 0F 00 00 00 00 00 01 00 00 00 00 00 7E 00 00 5D 38 00 0E 00 00 00 00 00 01 00 00 00 .]2.☼.....☺.....~..]8.♫.....☺... 0000A480 00 00 90 00 00 5D 09 00 0D 00 00 00 00 00 01 00 00 00 00 00 A2 00 00 5D FC FF 0C 00 0C 00 29 59 ..É..]○.♪.....☺.....ó..]ⁿ ♀.♀.)Y 0000A4A0 01 00 00 00 00 00 B4 00 00 5D 32 00 0B 00 00 00 00 00 01 00 00 00 00 00 C6 00 00 5D 32 00 0A 00 ☺.....┤..]2.♂.....☺.....╞..]2.◙. 0000A4C0 00 00 00 00 01 00 00 00 00 00 D8 00 00 5D 08 00 09 00 00 00 00 00 01 00 00 00 00 00 EA 00 00 5D ....☺.....╪..]◘.○.....☺.....Ω..] 0000A4E0 1D 00 08 00 00 00 00 00 01 00 00 00 00 00 FC 00 00 5D FD FF 07 00 0E 00 79 5B 01 00 00 00 00 00 ↔.◘.....☺.....ⁿ..]² •.♫.y[☺..... 0000A500 0E 01 00 5D FC FF 04 00 02 00 14 59 01 00 00 00 00 00 20 01 00 5D FD FF 02 00 08 00 AA 5A 01 00 ♫☺.]ⁿ ♦.☻.¶Y☺..... ☺.]² ☻.◘.¬Z☺. 0000A520 00 00 00 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 00 00 00 00 44 01 00 5D FC FF 2B 00 04 00 .... ..♦.☺.....☺.....D☺.]ⁿ +.♦. 0000A540 C7 5C 01 00 00 00 00 00 56 01 00 5D 39 00 2A 00 00 00 00 00 01 00 00 00 00 00 68 01 00 5D 09 00 ╟\☺.....V☺.]9.*.....☺.....h☺.]○. 0000A560 29 00 00 00 00 00 01 00 00 00 00 00 7A 01 00 5D FC FF 28 00 0E 00 C6 5C 01 00 00 00 00 00 8C 01 ).....☺.....z☺.]ⁿ (.♫.╞\☺.....î☺ 0000A580 00 5D 32 00 27 00 00 00 00 00 01 00 00 00 00 00 9E 01 00 5D 35 00 26 00 00 00 00 00 01 00 00 00 .]2.'.....☺.....₧☺.]5.&.....☺... 0000A5A0 00 00 B0 01 00 5D FD FF 25 00 02 00 F1 5C 01 00 00 00 00 00 C2 01 00 5D 33 00 24 00 00 00 00 00 ..░☺.]² %.☻.±\☺.....┬☺.]3.$..... 0000A5C0 01 00 00 00 00 00 D4 01 00 5D 09 00 23 00 00 00 00 00 01 00 00 00 00 00 E6 01 00 5D FC FF 22 00 ☺.....╘☺.]○.#.....☺.....µ☺.]ⁿ ". 0000A5E0 08 00 C6 5C 01 00 00 00 00 00 F8 01 00 5D 32 00 21 00 00 00 00 00 01 00 00 00 00 00 0A 02 00 5D ◘.╞\☺.....°☺.]2.!.....☺.....◙☻.] 0000A600 35 00 20 00 00 00 00 00 01 00 00 00 00 00 1C 02 00 5D FD FF 1F 00 0C 00 E6 5C 01 00 00 00 00 00 5. .....☺.....∟☻.]² ▼.♀.µ\☺..... 0000A620 2E 02 00 5D 08 00 1E 00 00 00 00 00 01 00 00 00 00 00 40 02 00 5D 03 00 1D 00 00 00 00 00 01 00 .☻.]◘.▲.....☺.....@☻.]♥.↔.....☺. 0000A640 00 00 00 00 52 02 00 5D FC FF 1C 00 10 00 AA 5B 01 00 00 00 00 00 64 02 00 5D 0C 00 1B 00 00 00 ....R☻.]ⁿ ∟.►.¬[☺.....d☻.]♀.←... 0000A660 00 00 01 00 00 00 00 00 76 02 00 5D 09 00 1A 00 00 00 00 00 01 00 00 00 00 00 88 02 00 5D FC FF ..☺.....v☻.]○.→.....☺.....ê☻.]ⁿ 0000A680 19 00 08 00 7C 5B 01 00 00 00 00 00 9A 02 00 5D 32 00 18 00 00 00 00 00 01 00 00 00 00 00 AC 02 ↓.◘.|[☺.....Ü☻.]2.↑.....☺.....¼☻ 0000A6A0 00 5D 39 00 17 00 00 00 00 00 01 00 00 00 00 00 BE 02 00 5D FD FF 16 00 0A 00 DA 5C 01 00 00 00 .]9.↨.....☺.....╛☻.]² ▬.◙.┌\☺... 0000A6C0 00 00 D0 02 00 5D 08 00 15 00 00 00 00 00 01 00 00 00 00 00 E2 02 00 5D 08 00 14 00 00 00 00 00 ..╨☻.]◘.§.....☺.....Γ☻.]◘.¶..... 0000A6E0 01 00 00 00 00 00 F4 02 00 5D 03 00 13 00 00 00 00 00 01 00 00 00 00 00 06 03 00 5D FC FF 12 00 ☺.....⌠☻.]♥.‼.....☺.....♠♥.]ⁿ ↕. 0000A700 10 00 AD 5A 01 00 00 00 00 00 18 03 00 5D FC FF 10 00 04 00 AC 5A 01 00 00 00 00 00 2A 03 00 5D ►.¡Z☺.....↑♥.]ⁿ ►.♦.¼Z☺.....*♥.] 0000A720 FC FF 0E 00 0E 00 AB 5A 01 00 00 00 00 00 3C 03 00 5D 39 00 0D 00 00 00 00 00 01 00 00 00 00 00 ⁿ ♫.♫.½Z☺.....<♥.]9.♪.....☺..... 0000A740 4E 03 00 5D 09 00 0C 00 00 00 00 00 01 00 00 00 00 00 60 03 00 5D FC FF 0B 00 02 00 AA 5A 01 00 N♥.]○.♀.....☺.....`♥.]ⁿ ♂.☻.¬Z☺. 0000A760 00 00 00 00 72 03 00 5D 0C 00 0A 00 00 00 00 00 01 00 00 00 00 00 84 03 00 5D 09 00 09 00 00 00 ....r♥.]♀.◙.....☺.....ä♥.]○.○... 0000A780 00 00 01 00 00 00 00 00 96 03 00 5D FC FF 08 00 0C 00 A9 5A 01 00 00 00 00 00 A8 03 00 5D 32 00 ..☺.....û♥.]ⁿ ◘.♀.⌐Z☺.....¿♥.]2. 0000A7A0 07 00 00 00 00 00 01 00 00 00 00 00 BA 03 00 5D 39 00 06 00 00 00 00 00 01 00 00 00 00 00 CC 03 •.....☺.....║♥.]9.♠.....☺.....╠♥ 0000A7C0 00 5D FD FF 05 00 0A 00 C7 5C 01 00 00 00 00 00 DE 03 00 5D 08 00 04 00 00 00 00 00 01 00 00 00 .]² ♣.◙.╟\☺.....▐♥.]◘.♦.....☺... 0000A7E0 00 00 F0 03 00 5D 08 00 03 00 00 00 00 00 01 00 00 00 00 00 02 04 00 5D 03 00 02 00 00 00 00 00 ..≡♥.]◘.♥.....☺.....☻♦.]♥.☻..... 0000A800 01 00 00 00 00 00 FF FF 00 00 FC FF 01 00 06 00 A9 5A 01 00 00 00 00 00 26 04 00 5D FD FF 02 00 ☺..... ..ⁿ ☺.♠.⌐Z☺.....&♦.]² ☻. 0000A820 10 00 FE 5C 01 00 00 00 00 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 ►.■\☺..... ..♦.☺.....☺..... .. 0000A840 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 ☻.......☺..... ..☻.......☺..... 0000A860 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 36 00 32 01 14 04 38 04 4A 04 5C 04 ..☻.......☺.......6.2☺¶♦8♦J♦\♦ 0000A880 00 00 FF FF 02 00 72 00 08 00 63 6F 6C 66 6F 72 6D 00 02 00 62 00 02 00 61 00 04 00 01 00 00 00 .. ☻.r.◘.colform.☻.b.☻.a.♦.☺... 0000A8A0 02 00 00 00 03 00 69 66 00 04 00 01 00 00 00 02 00 00 00 02 00 62 00 02 00 62 00 04 00 01 00 00 ☻...♥.if.♦.☺...☻...☻.b.☻.b.♦.☺.. 0000A8C0 00 02 00 01 00 02 00 61 00 04 00 01 00 00 00 02 00 01 00 02 00 72 00 02 00 62 00 04 00 01 00 00 .☻.☺.☻.a.♦.☺...☻.☺.☻.r.☻.b.♦.☺.. 0000A8E0 00 02 00 01 00 02 00 62 00 02 00 48 00 02 00 61 00 02 00 72 00 02 00 61 00 04 00 01 00 00 00 02 .☻.☺.☻.b.☻.H.☻.a.☻.r.☻.a.♦.☺...☻ 0000A900 00 01 00 02 00 61 00 04 00 01 00 00 00 02 00 00 00 78 08 00 63 6F 6D 70 61 72 65 00 00 01 00 0C .☺.☻.a.♦.☺...☻...x◘.compare..☺.♀ 0000A920 13 00 05 00 05 00 0A 00 02 00 01 00 01 00 08 00 2C 01 02 00 01 00 05 00 3C 00 20 7A 23 61 20 63 ‼.♣.♣.◙.☻.☺.☺.◘.,☺☻.☺.♣.<. z#a c 0000A940 6F 6D 70 61 72 65 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ompare b 0000A960 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 58 62 5F 61 29 60 z#(Xb_a)` 0000A980 4F 30 20 31 20 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 O0 1 0 0000A9A0 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 0000A9C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000A9E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 6F 6D 70 61 72 65 20 69 73 20 75 73 65 64 20 69 "compare is used i 0000AA00 6E 20 65 2E 67 2E 20 68 65 61 64 65 72 6F 6E 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n e.g. headeron. 0000AA20 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 6F "from 'the apl handboo 0000AA40 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, 0000AA60 20 69 62 6D 2E 20 12 00 FF FF 00 00 FC FF 0D 00 10 00 8E 5B 01 00 63 74 75 72 24 00 A2 5D FC FF ibm. ↕. ..ⁿ ♪.►.Ä[☺.ctur$.ó]ⁿ 0000AA80 05 00 06 00 98 5B 01 00 22 2D 75 73 00 00 A2 5D FC FF 03 00 0A 00 8E 5B 01 00 64 65 62 6C 48 00 ♣.♠.ÿ[☺."-us..ó]ⁿ ♥.◙.Ä[☺.deblH. 0000AAA0 A2 5D 03 00 02 00 00 00 00 00 01 00 20 20 20 20 24 00 A2 5D FC FF 01 00 04 00 8E 5B 01 00 20 20 ó]♥.☻.....☺. $.ó]ⁿ ☺.♦.Ä[☺. 0000AAC0 20 20 6C 00 A2 5D FD FF 0B 00 02 00 DD 5C 01 00 65 62 6C 61 7E 00 A2 5D 46 00 09 00 00 00 00 00 l.ó]² ♂.☻.▌\☺.ebla~.ó]F.○..... 0000AAE0 01 00 6C 65 61 6E 90 00 A2 5D 09 00 08 00 00 00 00 00 01 00 61 6E 64 20 A2 00 A2 5D FC FF 07 00 ☺.leanÉ.ó]○.◘.....☺.and ó.ó]ⁿ •. 0000AB00 02 00 AA 5B 01 00 68 20 61 72 B4 00 A2 5D 3F 00 06 00 00 00 00 00 01 00 20 20 20 20 C6 00 A2 5D ☻.¬[☺.h ar┤.ó]?.♠.....☺. ╞.ó] 0000AB20 FC FF 05 00 08 00 A8 5B 01 00 20 20 20 20 D8 00 A2 5D 38 00 04 00 00 00 00 00 01 00 00 29 04 00 ⁿ ♣.◘.¿[☺. ╪.ó]8.♦.....☺..)♦. 0000AB40 EA 00 A2 5D 08 00 03 00 00 00 00 00 01 00 20 20 20 20 FC 00 A2 5D 03 00 02 00 00 00 00 00 01 00 Ω.ó]◘.♥.....☺. ⁿ.ó]♥.☻.....☺. 0000AB60 00 00 20 20 FF FF 00 00 FC FF 01 00 10 00 98 5B 01 00 00 00 00 00 20 01 A2 5D FD FF 02 00 02 00 .. ..ⁿ ☺.►.ÿ[☺..... ☺ó]² ☻.☻. 0000AB80 E8 5C 01 00 00 00 00 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 2D 20 61 6C FF FF 00 00 02 00 Φ\☺..... ..♦.☺.....☺.- al ..☻. 0000ABA0 00 00 00 00 00 00 01 00 20 6F 66 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 00 00 ......☺. of ..☻.......☺. .. 0000ABC0 5A 00 0E 01 32 01 44 01 48 00 FF FF 02 00 62 00 08 00 63 6F 6D 70 61 72 65 00 02 00 61 00 02 00 Z.♫☺2☺D☺H. ☻.b.◘.compare.☻.a.☻. 0000ABE0 7A 00 04 00 03 00 01 00 02 00 03 00 00 00 01 00 00 00 02 00 61 00 02 00 62 00 02 00 7A 00 04 00 z.♦.♥.☺.☻.♥...☺...☻.a.☻.b.☻.z.♦. 0000AC00 01 00 00 00 02 00 00 00 78 08 00 63 6F 6E 66 72 61 63 00 00 01 00 0C 50 00 0A 00 0D 00 03 00 14 ☺...☻...x◘.confrac..☺.♀P.◙.♪.♥.¶ 0000AC20 00 11 00 0C 00 08 00 02 00 01 00 01 00 01 00 08 00 58 02 02 00 01 00 0A 00 3C 00 20 72 23 62 20 .◄.♀.◘.☻.☺.☺.☺.◘.X☻☻.☺.◙.<. r#b 0000AC40 63 6F 6E 66 72 61 63 20 6E 3B 4C 69 6F 3B 6E 6E 3B 62 62 3B 4C 63 74 20 20 20 20 20 20 20 20 20 confrac n;Lio;nn;bb;Lct 0000AC60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 63 74 23 31 65 2D 31 Lct#1e-1 0000AC80 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5 0000ACA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 69 66 20 30 3D 6E 6E 23 31 $0 if 0=nn#1 0000ACC0 7C 7C 6E 2C 72 23 49 4C 69 6F 23 6A 23 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ||n,r#ILio#j#0 0000ACE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 63 6B 3A 72 23 72 2C 44 6E 6E 25 62 62 23 62 back:r#r,Dnn%bb#b 0000AD00 2A 5F 6A 23 6A 2B 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 20 *_j#j+1 0000AD20 20 20 20 20 20 20 20 20 20 20 20 20 24 62 61 63 6B 20 69 66 20 31 5E 3D 31 2B 6E 6E 23 62 62 7C $back if 1^=1+nn#bb| 0000AD40 6E 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nn 0000AD60 20 20 20 20 20 20 20 20 72 23 27 2E 27 2C 60 64 60 69 60 67 60 69 60 74 60 73 5B 72 5D 20 20 20 r#'.',`d`i`g`i`t`s[r] 0000AD80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000ADA0 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 0000ADC0 20 20 20 20 20 20 20 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 " 0000ADE0 63 6F 6E 66 72 61 63 20 69 73 20 75 73 65 64 20 69 6E 20 65 2E 67 2E 20 63 6F 6E 76 20 20 20 20 confrac is used in e.g. conv 0000AE00 20 20 20 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 0000AE20 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 0000AE40 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 63 6F 6E 76 65 72 74 73 ' copyright 1978, ibm. "converts 0000AE60 20 64 65 63 69 6D 61 6C 20 66 72 61 63 74 69 6F 6E 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 decimal fractions 0000AE80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A2 00 FF FF 00 00 F2 FF 19 00 00 00 00 ó. ..≥ ↓.... 0000AEA0 00 01 00 20 07 20 07 24 00 7F 5F 1B 00 18 00 00 00 00 00 01 00 20 07 20 07 00 00 7F 5F FC FF 16 .☺. • •$.⌂_←.↑.....☺. • •..⌂_ⁿ ▬ 0000AEC0 00 10 00 D3 5C 01 00 20 07 20 07 48 00 7F 5F 1B 00 15 00 00 00 00 00 01 00 20 07 20 07 24 00 7F .►.╙\☺. • •H.⌂_←.§.....☺. • •$.⌂ 0000AEE0 5F FC FF 13 00 0A 00 D3 5C 01 00 20 07 20 07 6C 00 7F 5F 1B 00 12 00 00 00 00 00 01 00 20 07 20 _ⁿ ‼.◙.╙\☺. • •l.⌂_←.↕.....☺. • 0000AF00 07 48 00 7F 5F ED FF 0F 00 00 00 00 00 01 00 20 07 20 07 90 00 7F 5F 1B 00 0E 00 00 00 00 00 01 •H.⌂_φ ☼.....☺. • •É.⌂_←.♫.....☺ 0000AF20 00 20 07 20 07 6C 00 7F 5F FC FF 0D 00 04 00 A7 5B 01 00 43 07 3A 07 B4 00 7F 5F FC FF 05 00 0E . • •l.⌂_ⁿ ♪.♦.º[☺.C•:•┤.⌂_ⁿ ♣.♫ 0000AF40 00 C9 5C 01 00 4E 07 44 07 90 00 7F 5F FC FF 03 00 0C 00 92 5B 01 00 55 07 52 07 D8 00 7F 5F 03 .╔\☺.N•D•É.⌂_ⁿ ♥.♀.Æ[☺.U•R•╪.⌂_♥ 0000AF60 00 02 00 00 00 00 00 01 00 43 07 48 07 B4 00 7F 5F FC FF 01 00 06 00 92 5B 01 00 54 07 58 07 FC .☻.....☺.C•H•┤.⌂_ⁿ ☺.♠.Æ[☺.T•X•ⁿ 0000AF80 00 7F 5F FD FF 05 00 0A 00 7B 5D 01 00 20 07 20 07 0E 01 7F 5F 03 00 04 00 00 00 00 00 01 00 20 .⌂_² ♣.◙.{]☺. • •♫☺⌂_♥.♦.....☺. 0000AFA0 07 20 07 FF FF 00 00 F2 FF 01 00 00 00 00 00 01 00 20 07 20 07 32 01 7F 5F FD FF 1A 00 10 00 CE • • ..≥ ☺.....☺. • •2☺⌂_² →.►.╬ 0000AFC0 5D 01 00 20 07 20 07 44 01 7F 5F 03 00 19 00 00 00 00 00 01 00 20 07 20 07 56 01 7F 5F FC FF 18 ]☺. • •D☺⌂_♥.↓.....☺. • •V☺⌂_ⁿ ↑ 0000AFE0 00 06 00 7D 5D 01 00 20 07 20 07 68 01 7F 5F 03 00 17 00 00 00 00 00 01 00 20 07 20 07 7A 01 7F .♠.}]☺. • •h☺⌂_♥.↨.....☺. • •z☺⌂ 0000B000 5F ED FF 14 00 00 00 00 00 01 00 20 07 20 07 8C 01 7F 5F 29 00 13 00 00 00 00 00 01 00 20 07 20 _φ ¶.....☺. • •î☺⌂_).‼.....☺. • 0000B020 07 9E 01 7F 5F 03 00 12 00 00 00 00 00 01 00 20 07 20 07 B0 01 7F 5F FC FF 11 00 10 00 E5 5C 01 •₧☺⌂_♥.↕.....☺. • •░☺⌂_ⁿ ◄.►.σ\☺ 0000B040 00 20 07 20 07 C2 01 7F 5F 0C 00 10 00 00 00 00 00 01 00 20 07 20 07 D4 01 7F 5F FC FF 0F 00 0A . • •┬☺⌂_♀.►.....☺. • •╘☺⌂_ⁿ ☼.◙ 0000B060 00 E5 5C 01 00 20 07 20 07 E6 01 7F 5F 83 00 0E 00 00 00 00 00 01 00 5C 07 43 07 F8 01 7F 5F 83 .σ\☺. • •µ☺⌂_â.♫.....☺.\•C•°☺⌂_â 0000B080 00 0D 00 00 00 00 00 01 00 42 07 4F 07 0A 02 7F 5F FD FF 0C 00 0A 00 BD 5D 01 00 43 07 45 07 1C .♪.....☺.B•O•◙☻⌂_² ♀.◙.╜]☺.C•E•∟ 0000B0A0 02 7F 5F 03 00 0B 00 00 00 00 00 01 00 54 07 45 07 2E 02 7F 5F FC FF 09 00 04 00 E5 5C 01 00 20 ☻⌂_♥.♂.....☺.T•E•.☻⌂_ⁿ ○.♦.σ\☺. 0000B0C0 07 20 07 40 02 7F 5F 1D 00 08 00 00 00 00 00 01 00 20 07 20 07 52 02 7F 5F FD FF 07 00 08 00 85 • •@☻⌂_↔.◘.....☺. • •R☻⌂_² •.◘.à 0000B0E0 5D 01 00 20 07 20 07 64 02 7F 5F FC FF 04 00 06 00 D4 5C 01 00 20 07 20 07 76 02 7F 5F FD FF 02 ]☺. • •d☻⌂_ⁿ ♦.♠.╘\☺. • •v☻⌂_² ☻ 0000B100 00 0E 00 86 5D 01 00 20 07 20 07 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 20 07 20 07 9A 02 7F .♫.å]☺. • • ..♦.☺.....☺. • •Ü☻⌂ 0000B120 5F FD FF 17 00 0C 00 8E 5E 01 00 20 07 20 07 AC 02 7F 5F 0B 00 16 00 00 00 00 00 01 00 20 07 20 _² ↨.♀.Ä^☺. • •¼☻⌂_♂.▬.....☺. • 0000B140 07 BE 02 7F 5F FC FF 15 00 04 00 D3 5D 01 00 20 07 20 07 D0 02 7F 5F 03 00 14 00 00 00 00 00 01 •╛☻⌂_ⁿ §.♦.╙]☺. • •╨☻⌂_♥.¶.....☺ 0000B160 00 20 07 20 07 E2 02 7F 5F FC FF 13 00 0E 00 D2 5D 01 00 20 07 20 07 F4 02 7F 5F 3F 00 12 00 00 . • •Γ☻⌂_ⁿ ‼.♫.╥]☺. • •⌠☻⌂_?.↕.. 0000B180 00 00 00 01 00 20 07 20 07 06 03 7F 5F 0A 00 11 00 00 00 00 00 01 00 20 07 20 07 18 03 7F 5F FC ...☺. • •♠♥⌂_◙.◄.....☺. • •↑♥⌂_ⁿ 0000B1A0 FF 10 00 04 00 BD 5D 01 00 20 07 20 07 2A 03 7F 5F 03 00 0F 00 00 00 00 00 01 00 41 07 50 07 3C ►.♦.╜]☺. • •*♥⌂_♥.☼.....☺.A•P•< 0000B1C0 03 7F 5F FC FF 0D 00 0E 00 BC 5D 01 00 4F 07 4B 07 4E 03 7F 5F 05 00 0C 00 00 00 00 00 01 00 3E ♥⌂_ⁿ ♪.♫.╝]☺.O•K•N♥⌂_♣.♀.....☺.> 0000B1E0 07 7A 07 60 03 7F 5F FC FF 0A 00 08 00 BC 5D 01 00 52 07 49 07 72 03 7F 5F 24 00 09 00 00 00 00 •z•`♥⌂_ⁿ ◙.◘.╝]☺.R•I•r♥⌂_$.○.... 0000B200 00 01 00 20 07 20 07 84 03 7F 5F 0C 00 08 00 00 00 00 00 01 00 20 07 20 07 96 03 7F 5F FC FF 07 .☺. • •ä♥⌂_♀.◘.....☺. • •û♥⌂_ⁿ • 0000B220 00 0C 00 8D 5D 01 00 20 07 20 07 A8 03 7F 5F 03 00 06 00 00 00 00 00 01 00 20 07 20 07 BA 03 7F .♀.ì]☺. • •¿♥⌂_♥.♠.....☺. • •║♥⌂ 0000B240 5F FC FF 05 00 0C 00 7D 5D 01 00 20 07 20 07 CC 03 7F 5F 1A 00 04 00 00 00 00 00 01 00 20 07 20 _ⁿ ♣.♀.}]☺. • •╠♥⌂_→.♦.....☺. • 0000B260 07 FF FF 00 00 FC FF 03 00 04 00 8D 5D 01 00 20 07 20 07 F0 03 7F 5F FC FF 15 00 08 00 95 5E 01 • ..ⁿ ♥.♦.ì]☺. • •≡♥⌂_ⁿ §.◘.ò^☺ 0000B280 00 20 07 20 07 02 04 7F 5F 83 00 14 00 00 00 00 00 01 00 20 07 20 07 14 04 7F 5F FC FF 12 00 02 . • •☻♦⌂_â.¶.....☺. • •¶♦⌂_ⁿ ↕.☻ 0000B2A0 00 95 5E 01 00 20 07 20 07 26 04 7F 5F 03 00 11 00 00 00 00 00 01 00 20 07 20 07 38 04 7F 5F FC .ò^☺. • •&♦⌂_♥.◄.....☺. • •8♦⌂_ⁿ 0000B2C0 FF 0F 00 02 00 8E 5E 01 00 20 07 20 07 4A 04 7F 5F 0B 00 0E 00 00 00 00 00 01 00 20 07 20 07 5C ☼.☻.Ä^☺. • •J♦⌂_♂.♫.....☺. • •\ 0000B2E0 04 7F 5F FD FF 0D 00 04 00 96 5E 01 00 20 07 20 07 6E 04 7F 5F 3E 00 0B 00 00 00 00 00 01 00 5C ♦⌂_² ♪.♦.û^☺. • •n♦⌂_>.♂.....☺.\ 0000B300 07 48 07 80 04 7F 5F FD FF 0A 00 06 00 B7 5E 01 00 5C 07 53 07 92 04 7F 5F FC FF 07 00 0A 00 D3 •H•Ç♦⌂_² ◙.♠.╖^☺.\•S•Æ♦⌂_ⁿ •.◙.╙ 0000B320 5D 01 00 77 07 62 07 A4 04 7F 5F FC FF 02 00 0A 00 8D 5E 01 00 58 07 54 07 FF FF 00 00 04 00 01 ]☺.w•b•ñ♦⌂_ⁿ ☻.◙.ì^☺.X•T• ..♦.☺ 0000B340 00 00 00 00 00 01 00 20 07 20 07 C8 04 7F 5F 3D 00 15 00 00 00 00 00 01 00 20 07 20 07 DA 04 7F .....☺. • •╚♦⌂_=.§.....☺. • •┌♦⌂ 0000B360 5F FC FF 14 00 0A 00 19 5F 01 00 20 07 20 07 EC 04 7F 5F 3B 00 13 00 00 00 00 00 01 00 20 07 20 _ⁿ ¶.◙.↓_☺. • •∞♦⌂_;.‼.....☺. • 0000B380 07 FE 04 7F 5F FC FF 07 00 08 00 BC 5E 01 00 20 07 20 07 10 05 7F 5F 0C 00 06 00 00 00 00 00 01 •■♦⌂_ⁿ •.◘.╝^☺. • •►♣⌂_♀.♠.....☺ 0000B3A0 00 20 07 20 07 22 05 7F 5F 07 00 03 00 06 00 13 5F 01 00 20 07 20 07 34 05 7F 5F 03 00 02 00 00 . • •"♣⌂_•.♥.♠.‼_☺. • •4♣⌂_♥.☻.. 0000B3C0 00 00 00 01 00 20 07 20 07 FF FF 00 00 FC FF 01 00 0E 00 95 5E 01 00 20 07 20 07 58 05 7F 5F FD ...☺. • • ..ⁿ ☺.♫.ò^☺. • •X♣⌂_² 0000B3E0 FF 02 00 10 00 23 5F 01 00 20 07 20 07 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 20 07 20 07 FF ☻.►.#_☺. • • ..♦.☺.....☺. • • 0000B400 FF 00 00 02 00 00 00 00 00 00 00 01 00 20 07 20 07 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 ..☻.......☺. • • ..☻.......☺. 0000B420 07 20 07 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 07 43 07 00 00 EA 00 20 01 88 02 DE 03 B6 • • ..☻.......☺. •C•..Ω. ☺ê☻▐♥╢ 0000B440 04 46 05 6A 05 7C 05 8E 05 D8 00 CC 03 03 00 62 62 00 03 00 6E 6E 00 02 00 6E 00 08 00 63 6F 6E ♦F♣j♣|♣Ä♣╪.╠♥♥.bb.♥.nn.☻.n.◘.con 0000B460 66 72 61 63 00 02 00 62 00 02 00 72 00 02 00 01 00 00 00 08 00 16 56 E7 9E AF 03 D2 3C 04 00 01 frac.☻.b.☻.r.☻.☺...◘.▬Vτ₧»♥╥<♦.☺ 0000B480 00 00 00 02 00 00 00 02 00 6A 00 02 00 72 00 02 00 6E 00 04 00 01 00 00 00 02 00 01 00 03 00 6E ...☻...☻.j.☻.r.☻.n.♦.☺...☻.☺.♥.n 0000B4A0 6E 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 04 00 01 00 00 n.♦.☺...☻...♥.if.♦.☺...☻...♦.☺.. 0000B4C0 00 02 00 01 00 02 00 6A 00 02 00 6A 00 02 00 62 00 03 00 62 62 00 03 00 6E 6E 00 02 00 72 00 02 .☻.☺.☻.j.☻.j.☻.b.♥.bb.♥.nn.☻.r.☻ 0000B4E0 00 72 00 05 00 62 61 63 6B 00 03 00 6E 6E 00 03 00 62 62 00 03 00 6E 6E 00 04 00 01 00 00 00 02 .r.♣.back.♥.nn.♥.bb.♥.nn.♦.☺...☻ 0000B500 00 01 00 04 00 01 00 00 00 02 00 01 00 03 00 69 66 00 05 00 62 61 63 6B 00 02 00 72 00 0D 00 60 .☺.♦.☺...☻.☺.♥.if.♣.back.☻.r.♪.` 0000B520 64 60 69 60 67 60 69 60 74 60 73 00 08 00 01 00 00 00 01 00 2E 02 00 72 00 04 00 01 00 00 00 02 d`i`g`i`t`s.◘.☺...☺..☻.r.♦.☺...☻ 0000B540 00 00 00 78 05 00 63 76 65 63 00 00 01 00 0C 24 00 0D 00 05 00 05 00 0A 00 06 00 02 00 01 00 01 ...x♣.cvec..☺.♀$.♪.♣.♣.◙.♠.☻.☺.☺ 0000B560 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 0C 03 02 00 01 00 0D 00 3C 00 20 72 23 6E 20 63 76 .☺.☺.☺.☺.☺.☺.◘.♀♥☻.☺.♪.<. r#n cv 0000B580 65 63 20 6C 6F 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ec loc 0000B5A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 6E 52 31 20 20 20 20 20 r#nR1 0000B5C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000B5E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 69 66 20 6E 3C 6C 6F 63 2B 4C 69 $0 if n<loc+Li 0000B600 6F 3D 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 20 20 20 o=0 0000B620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 5B 6C 6F 63 5D 23 30 20 20 20 20 20 20 20 20 20 20 r[loc]#0 0000B640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000B660 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 20 $0 0000B680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000B6A0 20 20 20 20 20 22 63 76 65 63 20 2D 20 62 75 69 6C 64 20 63 6F 6D 70 72 65 73 73 69 6F 6E 20 6F "cvec - build compression o 0000B6C0 72 20 6C 6F 67 69 63 61 6C 20 76 65 63 74 6F 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r logical vector 0000B6E0 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 68 "from 'the apl handbook of tech 0000B700 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 62 niques' copyright 1978, ibm. "-b 0000B720 69 6E 61 72 79 20 76 65 63 74 6F 72 73 20 6F 66 20 61 72 62 69 74 72 61 72 79 20 6C 65 6E 67 74 inary vectors of arbitrary lengt 0000B740 68 20 77 69 74 68 20 61 72 62 69 74 72 61 72 79 20 7A 65 72 6F 73 20 20 20 22 20 61 74 20 6E 75 h with arbitrary zeros " at nu 0000B760 6D 62 65 72 65 64 20 70 6F 73 69 74 69 6F 6E 73 2C 20 69 6E 20 75 73 65 72 27 73 20 6F 72 69 67 mbered positions, in user's orig 0000B780 69 6E 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 63 61 6E 20 67 65 6E 65 72 in. "-can gener 0000B7A0 61 74 65 20 69 6E 70 75 74 20 74 6F 20 47 78 76 65 63 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 ate input to Gxvec. 0000B7C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 72 65 74 75 72 6E 73 20 61 20 63 6F 6D "-returns a com 0000B7E0 70 72 65 73 73 69 6F 6E 20 76 65 63 74 6F 72 20 74 68 61 74 20 63 61 6E 20 73 65 6C 65 63 74 20 pression vector that can select 0000B800 61 6C 6C 20 62 75 74 20 6C 6F 63 2E 20 22 20 6C 6F 63 20 69 73 20 64 65 73 69 72 65 64 20 72 6F all but loc. " loc is desired ro 0000B820 77 20 6F 66 20 47 6C 6F 63 20 28 4C 69 6F 23 30 29 2C 20 6F 72 20 73 69 6D 69 6C 61 72 20 6E 75 w of Gloc (Lio#0), or similar nu 0000B840 6D 65 72 69 63 20 20 20 20 22 20 76 65 63 74 6F 72 2E 20 6E 20 69 73 20 6F 72 69 67 69 6E 61 6C meric " vector. n is original 0000B860 20 6C 65 6E 67 74 68 20 6F 66 20 61 78 69 73 20 74 6F 20 62 65 20 63 6F 6D 70 72 65 73 73 65 64 length of axis to be compressed 0000B880 2E 20 20 20 20 12 00 FF FF 00 00 FC FF 0A 00 06 00 F8 5C 01 00 20 20 20 20 24 00 2E 5F FC FF 05 . ↕. ..ⁿ ◙.♠.°\☺. $.._ⁿ ♣ 0000B8A0 00 06 00 D7 5C 01 00 2B 4C 69 6F 00 00 2E 5F FC FF 03 00 06 00 C9 5C 01 00 20 20 20 20 48 00 2E .♠.╫\☺.+Lio..._ⁿ ♥.♠.╔\☺. H.. 0000B8C0 5F 03 00 02 00 00 00 00 00 01 00 20 20 20 20 24 00 2E 5F FC FF 01 00 10 00 C8 5C 01 00 5D 23 30 _♥.☻.....☺. $.._ⁿ ☺.►.╚\☺.]#0 0000B8E0 20 6C 00 2E 5F FD FF 05 00 04 00 7D 5E 01 00 20 20 20 20 7E 00 2E 5F 32 00 04 00 00 00 00 00 01 l.._² ♣.♦.}^☺. ~.._2.♦.....☺ 0000B900 00 20 20 20 20 90 00 2E 5F FC FF 03 00 0E 00 CA 5D 01 00 20 24 30 20 A2 00 2E 5F 03 00 02 00 00 . É.._ⁿ ♥.♫.╩]☺. $0 ó.._♥.☻.. 0000B920 00 00 00 01 00 20 20 20 20 FF FF 00 00 FC FF 01 00 0A 00 8C 5D 01 00 20 20 20 20 C6 00 2E 5F FD ...☺. ..ⁿ ☺.◙.î]☺. ╞.._² 0000B940 FF 11 00 0E 00 B9 5E 01 00 20 20 20 20 D8 00 2E 5F 1D 00 10 00 00 00 00 00 01 00 64 20 63 6F EA ◄.♫.╣^☺. ╪.._↔.►.....☺.d coΩ 0000B960 00 2E 5F ED FF 0D 00 00 00 00 00 01 00 6F 67 69 63 FC 00 2E 5F 0B 00 0C 00 00 00 00 00 01 00 20 .._φ ♪.....☺.ogicⁿ.._♂.♀.....☺. 0000B980 20 20 20 0E 01 2E 5F FC FF 09 00 06 00 84 5E 01 00 27 74 68 65 20 01 2E 5F 1C 00 08 00 00 00 00 ♫☺._ⁿ ○.♠.ä^☺.'the ☺._∟.◘.... 0000B9A0 00 01 00 6F 66 20 74 32 01 2E 5F FC FF 07 00 0A 00 CB 5D 01 00 79 72 69 67 44 01 2E 5F FC FF 04 .☺.of t2☺._ⁿ •.◙.╦]☺.yrigD☺._ⁿ ♦ 0000B9C0 00 04 00 CB 5D 01 00 22 2D 62 69 56 01 2E 5F FD FF 02 00 08 00 85 5E 01 00 66 20 61 72 FF FF 00 .♦.╦]☺."-biV☺._² ☻.◘.à^☺.f ar . 0000B9E0 00 04 00 01 00 00 00 00 00 01 00 20 77 69 74 7A 01 2E 5F FD FF 08 00 10 00 1F 5F 01 00 72 6F 73 .♦.☺.....☺. witz☺._² ◘.►.▼_☺.ros 0000BA00 20 8C 01 2E 5F 03 00 07 00 00 00 00 00 01 00 64 20 70 6F 9E 01 2E 5F 3D 00 06 00 00 00 00 00 01 î☺._♥.•.....☺.d po₧☺._=.♠.....☺ 0000BA20 00 65 72 27 73 B0 01 2E 5F FC FF 03 00 02 00 85 5E 01 00 20 20 20 20 C2 01 2E 5F 3B 00 02 00 00 .er's░☺._ⁿ ♥.☻.à^☺. ┬☺._;.☻.. 0000BA40 00 00 00 01 00 67 65 6E 65 FF FF 00 00 FC FF 01 00 0C 00 84 5E 01 00 47 78 76 65 E6 01 2E 5F FD ...☺.gene ..ⁿ ☺.♀.ä^☺.Gxveµ☺._² 0000BA60 FF 02 00 08 00 1C 5F 01 00 20 20 20 20 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 22 2D 72 65 FF ☻.◘.∟_☺. ..♦.☺.....☺."-re 0000BA80 FF 00 00 02 00 00 00 00 00 00 00 01 00 73 73 69 6F FF FF 00 00 02 00 00 00 00 00 00 00 01 00 63 ..☻.......☺.ssio ..☻.......☺.c 0000BAA0 61 6E 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 6C 6F 63 FF FF 00 00 02 00 00 00 00 00 00 an ..☻.......☺. loc ..☻...... 0000BAC0 00 01 00 69 72 65 64 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 4C 69 6F 23 FF FF 00 00 02 00 00 .☺.ired ..☻.......☺.Lio# ..☻.. 0000BAE0 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 38 00 20 20 FF FF 00 .....☺. num ..☻.......☺.8. . 0000BB00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 00 00 5A 00 B4 00 68 01 D4 01 F8 01 0A 02 1C 02 2E .☻.......☺. ..Z.┤.h☺╘☺°☺◙☻∟☻. 0000BB20 02 40 02 52 02 64 02 76 02 48 00 FF FF 04 00 6C 6F 63 00 05 00 63 76 65 63 00 02 00 6E 00 02 00 ☻@☻R☻d☻v☻H. ♦.loc.♣.cvec.☻.n.☻. 0000BB40 72 00 04 00 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 04 00 r.♦.☺...☻.☺.☻.n.☻.r.♦.☺...☻...♦. 0000BB60 6C 6F 63 00 02 00 6E 00 03 00 69 66 00 04 00 01 00 00 00 02 00 00 00 04 00 01 00 00 00 02 00 00 loc.☻.n.♥.if.♦.☺...☻...♦.☺...☻.. 0000BB80 00 04 00 6C 6F 63 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 05 00 63 6F 6E 76 00 00 01 00 .♦.loc.☻.r.♦.☺...☻...x♣.conv..☺. 0000BBA0 0C 37 00 12 00 07 00 03 00 03 00 15 00 07 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 ♀7.↕.•.♥.♥.§.•.☻.☺.☺.☺.☺.☺.☺.☺.☺ 0000BBC0 00 01 00 01 00 01 00 01 00 08 00 38 04 02 00 01 00 12 00 3C 00 20 72 23 62 61 73 65 20 63 6F 6E .☺.☺.☺.☺.◘.8♦☻.☺.↕.<. r#base con 0000BBE0 76 20 64 65 63 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 v dec;Lio 0000BC00 20 20 20 20 20 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 Lio#0 0000BC20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000BC40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 64 60 69 60 67 60 69 60 74 60 73 23 27 30 31 32 33 `d`i`g`i`t`s#'0123 0000BC60 34 35 36 37 38 39 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7A 456789abcdefghijklmnopqrstuvwxyz 0000BC80 27 20 20 20 20 20 20 20 20 20 72 23 27 20 27 64 6C 27 20 2D 27 5B 64 65 63 3C 30 5D 2C 27 30 27 ' r#' 'dl' -'[dec<0],'0' 0000BCA0 64 6C 20 60 64 60 69 60 67 60 69 60 74 60 73 5B 62 61 73 65 20 65 6E 63 44 7C 64 65 63 5D 20 20 dl `d`i`g`i`t`s[base encD|dec] 0000BCC0 20 20 20 20 20 20 72 23 72 2C 62 61 73 65 20 63 6F 6E 66 72 61 63 20 64 65 63 20 20 20 20 20 20 r#r,base confrac dec 0000BCE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000BD00 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 20 20 $0 0000BD20 20 20 20 20 20 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 63 6F "co 0000BD40 6E 76 20 2D 20 63 6F 6E 76 65 72 74 20 64 65 63 69 6D 61 6C 20 76 61 6C 75 65 73 20 74 6F 20 61 nv - convert decimal values to a 0000BD60 6E 79 20 62 61 73 65 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 ny base "from ' 0000BD80 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 20 the apl handbook of techniques' 0000BDA0 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 76 61 6C 75 65 73 20 61 72 copyright 1978, ibm. "-values ar 0000BDC0 65 20 63 6F 6E 76 65 72 74 65 64 20 74 6F 20 63 68 61 72 61 63 74 65 72 20 73 74 72 69 6E 67 73 e converted to character strings 0000BDE0 20 74 68 61 74 20 72 65 74 61 69 6E 20 20 20 20 20 22 20 74 68 65 69 72 20 61 72 69 74 68 6D 65 that retain " their arithme 0000BE00 74 69 63 20 63 61 70 61 62 69 6C 69 74 79 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tic capability. 0000BE20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 74 68 65 20 63 68 61 72 61 63 74 65 72 20 73 74 72 "-the character str 0000BE40 69 6E 67 73 20 63 61 6E 20 62 65 20 72 65 63 6F 6E 76 65 72 74 65 64 20 62 79 20 47 64 65 63 2E ings can be reconverted by Gdec. 0000BE60 20 20 20 20 20 20 20 20 20 22 2D 74 68 65 20 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 6C 65 2C 20 "-the global variable, 0000BE80 60 64 60 69 60 67 60 69 60 74 60 73 20 77 69 6C 6C 20 73 75 70 70 6F 72 74 20 75 70 20 74 6F 20 `d`i`g`i`t`s will support up to 0000BEA0 62 61 73 65 20 22 20 33 36 2E 20 20 74 68 65 20 63 61 74 65 6E 61 74 69 6F 6E 20 6F 66 20 75 6E base " 36. the catenation of un 0000BEC0 64 65 72 73 63 6F 72 65 64 20 6C 65 74 74 65 72 73 20 61 6E 64 20 6F 74 68 65 72 20 20 20 20 20 derscored letters and other 0000BEE0 20 22 20 63 68 61 72 61 63 74 65 72 73 20 74 6F 20 60 64 60 69 60 67 60 69 60 74 60 73 20 77 69 " characters to `d`i`g`i`t`s wi 0000BF00 6C 6C 20 70 65 72 6D 69 74 20 6C 61 72 67 65 72 20 62 61 73 65 73 2E 20 20 20 20 20 20 22 2D 6E ll permit larger bases. "-n 0000BF20 65 67 61 74 69 76 65 20 6E 75 6D 62 65 72 73 20 77 69 6C 6C 20 62 65 20 74 72 65 61 74 65 64 20 egative numbers will be treated 0000BF40 63 6F 72 72 65 63 74 6C 79 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 66 72 61 63 74 correctly. "-fract 0000BF60 69 6F 6E 73 20 77 69 6C 6C 20 62 65 20 63 6C 6F 73 65 6C 79 20 61 70 70 72 6F 78 69 6D 61 74 65 ions will be closely approximate 0000BF80 64 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 69 6E 74 65 67 65 72 20 63 d. "-integer c 0000BFA0 6F 6E 76 65 72 73 69 6F 6E 73 2C 20 65 2E 67 2E 2C 20 68 65 78 61 64 65 63 69 6D 61 6C 2C 20 77 onversions, e.g., hexadecimal, w 0000BFC0 69 6C 6C 20 62 65 20 65 78 61 63 74 2E 20 20 20 20 22 2D 75 73 65 73 3A 20 47 65 6E 71 20 47 64 ill be exact. "-uses: Genq Gd 0000BFE0 6C 20 47 63 6F 6E 66 72 61 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l Gconfrac 0000C000 20 20 20 20 20 20 20 20 20 20 20 20 20 36 00 FF FF 00 00 ED FF 11 00 00 00 00 00 01 00 20 07 20 6. ..φ ◄.....☺. • 0000C020 07 24 00 9D 60 1B 00 10 00 00 00 00 00 01 00 20 07 20 07 00 00 9D 60 FC FF 0D 00 0A 00 FC 5C 01 •$.¥`←.►.....☺. • •..¥`ⁿ ♪.◙.ⁿ\☺ 0000C040 00 20 07 20 07 48 00 9D 60 FC FF 08 00 04 00 F4 5C 01 00 20 07 20 07 24 00 9D 60 FC FF 03 00 0C . • •H.¥`ⁿ ◘.♦.⌠\☺. • •$.¥`ⁿ ♥.♀ 0000C060 00 F3 5C 01 00 20 07 20 07 6C 00 9D 60 03 00 02 00 00 00 00 00 01 00 20 07 20 07 48 00 9D 60 FC .≤\☺. • •l.¥`♥.☻.....☺. • •H.¥`ⁿ 0000C080 FF 01 00 08 00 A9 5B 01 00 20 07 20 07 90 00 9D 60 FD FF 05 00 08 00 C0 5D 01 00 20 07 20 07 A2 ☺.◘.⌐[☺. • •É.¥`² ♣.◘.└]☺. • •ó 0000C0A0 00 9D 60 03 00 04 00 00 00 00 00 01 00 20 07 20 07 FF FF 00 00 ED FF 01 00 00 00 00 00 01 00 20 .¥`♥.♦.....☺. • • ..φ ☺.....☺. 0000C0C0 07 20 07 C6 00 9D 60 07 00 0E 00 08 00 C5 5D 01 00 20 07 20 07 D8 00 9D 60 03 00 0D 00 00 00 00 • •╞.¥`•.♫.◘.┼]☺. • •╪.¥`♥.♪.... 0000C0E0 00 01 00 20 07 20 07 FF FF 00 00 FC FF 01 00 0A 00 B9 5D 01 00 5C 07 43 07 FC 00 9D 60 3D 00 34 .☺. • • ..ⁿ ☺.◙.╣]☺.\•C•ⁿ.¥`=.4 0000C100 00 00 00 00 00 01 00 42 07 4F 07 0E 01 9D 60 FC FF 31 00 0E 00 8C 5E 01 00 43 07 45 07 20 01 9D .....☺.B•O•♫☺¥`ⁿ 1.♫.î^☺.C•E• ☺¥ 0000C120 60 83 00 30 00 00 00 00 00 01 00 41 07 54 07 32 01 9D 60 24 00 2F 00 00 00 00 00 01 00 20 07 20 `â.0.....☺.A•T•2☺¥`$./.....☺. • 0000C140 07 44 01 9D 60 FC FF 2C 00 02 00 80 5E 01 00 20 07 20 07 56 01 9D 60 FC FF 27 00 0C 00 BF 5D 01 •D☺¥`ⁿ ,.☻.Ç^☺. • •V☺¥`ⁿ '.♀.┐]☺ 0000C160 00 20 07 20 07 68 01 9D 60 3B 00 26 00 00 00 00 00 01 00 20 07 20 07 7A 01 9D 60 FC FF 1A 00 0E . • •h☺¥`;.&.....☺. • •z☺¥`ⁿ →.♫ 0000C180 00 86 5E 01 00 20 07 20 07 8C 01 9D 60 FC FF 17 00 06 00 BF 5D 01 00 20 07 20 07 9E 01 9D 60 07 .å^☺. • •î☺¥`ⁿ ↨.♠.┐]☺. • •₧☺¥`• 0000C1A0 00 14 00 02 00 83 5E 01 00 20 07 20 07 B0 01 9D 60 0C 00 13 00 00 00 00 00 01 00 20 07 20 07 C2 .¶.☻.â^☺. • •░☺¥`♀.‼.....☺. • •┬ 0000C1C0 01 9D 60 3D 00 12 00 00 00 00 00 01 00 20 07 20 07 D4 01 9D 60 FD FF 11 00 08 00 80 5E 01 00 20 ☺¥`=.↕.....☺. • •╘☺¥`² ◄.◘.Ç^☺. 0000C1E0 07 20 07 E6 01 9D 60 1C 00 10 00 00 00 00 00 01 00 20 07 20 07 F8 01 9D 60 FC FF 0D 00 02 00 85 • •µ☺¥`∟.►.....☺. • •°☺¥`ⁿ ♪.☻.à 0000C200 5D 01 00 20 07 20 07 0A 02 9D 60 3B 00 0C 00 00 00 00 00 01 00 20 07 20 07 1C 02 9D 60 07 00 08 ]☺. • •◙☻¥`;.♀.....☺. • •∟☻¥`•.◘ 0000C220 00 06 00 78 5E 01 00 20 07 20 07 2E 02 9D 60 FC FF 06 00 06 00 FD 5C 01 00 41 07 50 07 40 02 9D .♠.x^☺. • •.☻¥`ⁿ ♠.♠.²\☺.A•P•@☻¥ 0000C240 60 07 00 03 00 02 00 CC 5D 01 00 4F 07 4B 07 52 02 9D 60 03 00 02 00 00 00 00 00 01 00 3E 07 7A `•.♥.☻.╠]☺.O•K•R☻¥`♥.☻.....☺.>•z 0000C260 07 FF FF 00 00 FC FF 01 00 10 00 FC 5C 01 00 2E 07 54 07 76 02 9D 60 FC FF 12 00 02 00 BC 5E 01 • ..ⁿ ☺.►.ⁿ\☺..•T•v☻¥`ⁿ ↕.☻.╝^☺ 0000C280 00 20 07 20 07 88 02 9D 60 FC FF 0A 00 0A 00 0F 5F 01 00 20 07 20 07 9A 02 9D 60 FC FF 05 00 0A . • •ê☻¥`ⁿ ◙.◙.☼_☺. • •Ü☻¥`ⁿ ♣.◙ 0000C2A0 00 BB 5E 01 00 20 07 20 07 AC 02 9D 60 0C 00 04 00 00 00 00 00 01 00 20 07 20 07 BE 02 9D 60 FC .╗^☺. • •¼☻¥`♀.♦.....☺. • •╛☻¥`ⁿ 0000C2C0 FF 03 00 04 00 BB 5E 01 00 20 07 20 07 D0 02 9D 60 03 00 02 00 00 00 00 00 01 00 20 07 20 07 FF ♥.♦.╗^☺. • •╨☻¥`♥.☻.....☺. • • 0000C2E0 FF 00 00 FC FF 01 00 04 00 8D 5E 01 00 20 07 20 07 F4 02 9D 60 FD FF 02 00 10 00 16 5F 01 00 20 ..ⁿ ☺.♦.ì^☺. • •⌠☻¥`² ☻.►.▬_☺. 0000C300 07 20 07 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 20 07 20 07 FF FF 00 00 02 00 00 00 00 00 00 • • ..♦.☺.....☺. • • ..☻...... 0000C320 00 01 00 20 07 20 07 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 07 20 07 FF FF 00 00 02 00 00 .☺. • • ..☻.......☺. • • ..☻.. 0000C340 00 00 00 00 00 01 00 20 07 20 07 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 07 20 07 FF FF 00 .....☺. • • ..☻.......☺. • • . 0000C360 00 02 00 00 00 00 00 00 00 01 00 20 07 20 07 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 5C 07 48 .☻.......☺. • • ..☻.......☺.\•H 0000C380 07 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 5C 07 53 07 FF FF 00 00 02 00 00 00 00 00 00 00 01 • ..☻.......☺.\•S• ..☻.......☺ 0000C3A0 00 77 07 62 07 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 4D 07 2E 07 FF FF 00 00 02 00 00 00 00 .w•b• ..☻.......☺.M•.• ..☻.... 0000C3C0 00 00 00 01 00 20 07 20 07 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 07 20 07 FF FF 00 00 02 ...☺. • • ..☻.......☺. • • ..☻ 0000C3E0 00 00 00 00 00 00 00 01 00 20 07 20 07 00 00 7E 00 B4 00 EA 00 64 02 E2 02 06 03 18 03 2A 03 3C .......☺. • •..~.┤.Ω.d☻Γ☻♠♥↑♥*♥< 0000C400 03 4E 03 60 03 72 03 84 03 96 03 A8 03 BA 03 CC 03 6C 00 FF FF 04 00 64 65 63 00 05 00 63 6F 6E ♥N♥`♥r♥ä♥û♥¿♥║♥╠♥l. ♦.dec.♣.con 0000C420 76 00 05 00 62 61 73 65 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 08 00 24 00 01 00 01 00 24 v.♣.base.☻.r.♦.☺...☻...◘.$.☺.☺.$ 0000C440 00 30 31 32 33 34 35 36 37 38 39 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 75 .0123456789abcdefghijklmnopqrstu 0000C460 76 77 78 79 7A 0D 00 60 64 60 69 60 67 60 69 60 74 60 73 00 04 00 64 65 63 00 04 00 65 6E 63 00 vwxyz♪.`d`i`g`i`t`s.♦.dec.♦.enc. 0000C480 05 00 62 61 73 65 00 0D 00 60 64 60 69 60 67 60 69 60 74 60 73 00 03 00 64 6C 00 08 00 01 00 00 ♣.base.♪.`d`i`g`i`t`s.♥.dl.◘.☺.. 0000C4A0 00 01 00 30 04 00 01 00 00 00 02 00 00 00 04 00 64 65 63 00 08 00 02 00 01 00 01 00 02 00 20 2D .☺.0♦.☺...☻...♦.dec.◘.☻.☺.☺.☻. - 0000C4C0 03 00 64 6C 00 08 00 01 00 00 00 01 00 20 02 00 72 00 04 00 64 65 63 00 08 00 63 6F 6E 66 72 61 ♥.dl.◘.☺...☺. ☻.r.♦.dec.◘.confra 0000C4E0 63 00 05 00 62 61 73 65 00 02 00 72 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 08 00 63 6F c.♣.base.☻.r.☻.r.♦.☺...☻...x◘.co 0000C500 6E 66 6F 72 6D 00 00 01 00 01 42 00 08 00 07 00 0F 00 08 00 0B 00 15 00 02 00 01 00 01 00 08 00 nform..☺.☺B.◘.•.☼.◘.♂.§.☻.☺.☺.◘. 0000C520 E0 01 02 00 01 00 08 00 3C 00 20 63 6F 6E 66 6F 72 6D 3B 6A 3B 6B 3B 72 20 20 20 20 20 20 20 20 α☺☻.☺.◘.<. conform;j;k;r 0000C540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000C560 20 20 20 20 20 20 20 72 23 28 6A 23 52 52 61 29 53 6B 23 52 52 62 20 20 20 20 20 20 20 20 20 20 r#(j#RRa)Sk#RRb 0000C580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000C5A0 20 20 20 24 30 20 69 66 20 30 3D 6A 58 6B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 if 0=jXk 0000C5C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 a 0000C5E0 23 72 20 73 74 72 75 63 74 20 61 20 48 20 62 23 72 20 73 74 72 75 63 74 20 62 20 20 20 20 20 20 #r struct a H b#r struct b 0000C600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 23 72 59 61 a#rYa 0000C620 20 48 20 62 23 28 72 23 28 52 61 29 53 52 62 29 59 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 H b#(r#(Ra)SRb)Yb 0000C640 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 20 20 20 20 20 20 $0 0000C660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000C680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 6F 6E 66 6F 72 6D 20 2D 20 75 73 65 "conform - use 0000C6A0 64 20 69 6E 20 65 2E 67 2E 20 66 69 6C 6C 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d in e.g. fills. 0000C6C0 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 61 6E "from 'the apl han 0000C6E0 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 20 31 dbook of techniques' copyright 1 0000C700 39 37 38 2C 20 69 62 6D 2E 20 6C 00 FF FF 00 00 FC FF 0D 00 0C 00 CB 5C 01 00 E5 5D 4D CA 24 00 978, ibm. l. ..ⁿ ♪.♀.╦\☺.σ]M╩$. 0000C720 C3 5E 1B 00 0C 00 00 00 00 00 01 00 1E EE 00 26 00 00 C3 5E FC FF 0B 00 08 00 AA 5B 01 00 C3 75 ├^←.♀.....☺.▲ε.&..├^ⁿ ♂.◘.¬[☺.├u 0000C740 14 C4 48 00 C3 5E 1B 00 0A 00 00 00 00 00 01 00 9A ED 19 29 24 00 C3 5E FC FF 09 00 0C 00 A7 5B ¶─H.├^←.◙.....☺.Üφ↓)$.├^ⁿ ○.♀.º[ 0000C760 01 00 74 12 FF 76 6C 00 C3 5E 1B 00 08 00 00 00 00 00 01 00 EB 1E C4 5E FF FF 00 00 FC FF 01 00 ☺.t↕ vl.├^←.◘.....☺.δ▲─^ ..ⁿ ☺. 0000C780 04 00 7B 5B 01 00 0F 29 34 FF 90 00 C3 5E FC FF 0F 00 0C 00 DE 5C 01 00 F6 47 30 08 A2 00 C3 5E ♦.{[☺.☼)4 É.├^ⁿ ☼.♀.▐\☺.÷G0◘ó.├^ 0000C7A0 32 00 0E 00 00 00 00 00 01 00 90 EB 10 C4 B4 00 C3 5E 32 00 0D 00 00 00 00 00 01 00 00 B8 01 00 2.♫.....☺.Éδ►─┤.├^2.♪.....☺..╕☺. 0000C7C0 C6 00 C3 5E 03 00 0C 00 00 00 00 00 01 00 EC 04 56 57 D8 00 C3 5E FC FF 0B 00 0C 00 DC 5C 01 00 ╞.├^♥.♀.....☺.∞♦VW╪.├^ⁿ ♂.♀.▄\☺. 0000C7E0 26 F6 47 30 EA 00 C3 5E 33 00 0A 00 00 00 00 00 01 00 52 59 19 7E FC 00 C3 5E 09 00 09 00 00 00 &÷G0Ω.├^3.◙.....☺.RY↓~ⁿ.├^○.○... 0000C800 00 00 01 00 16 26 C4 77 0E 01 C3 5E FC FF 08 00 06 00 DC 5C 01 00 5F 64 26 88 20 01 C3 5E 32 00 ..☺.▬&─w♫☺├^ⁿ ◘.♠.▄\☺._d&ê ☺├^2. 0000C820 07 00 00 00 00 00 01 00 77 2C 9A F1 32 01 C3 5E 32 00 06 00 00 00 00 00 01 00 26 FF 77 2C 44 01 •.....☺.w,ܱ2☺├^2.♠.....☺.& w,D☺ 0000C840 C3 5E 03 00 05 00 00 00 00 00 01 00 77 2E 26 FF 56 01 C3 5E FC FF 04 00 10 00 DB 5C 01 00 26 8B ├^♥.♣.....☺.w.& V☺├^ⁿ ♦.►.█\☺.&ï 0000C860 47 2C 68 01 C3 5E 08 00 03 00 00 00 00 00 01 00 26 8B 4C 12 7A 01 C3 5E 03 00 02 00 00 00 00 00 G,h☺├^◘.♥.....☺.&ïL↕z☺├^♥.☻..... 0000C880 01 00 8E C2 89 F3 FF FF 00 00 FC FF 01 00 02 00 CC 5C 01 00 3F 8E C2 89 9E 01 C3 5E FC FF 0B 00 ☺.Ä┬ë≤ ..ⁿ ☺.☻.╠\☺.?Ä┬ë₧☺├^ⁿ ♂. 0000C8A0 08 00 E0 5C 01 00 D9 26 C7 07 B0 01 C3 5E 38 00 0A 00 00 00 00 00 01 00 30 21 18 75 C2 01 C3 5E ◘.α\☺.┘&╟•░☺├^8.◙.....☺.0!↑u┬☺├^ 0000C8C0 FC FF 09 00 02 00 E0 5C 01 00 C4 5E 06 26 D4 01 C3 5E 1D 00 08 00 00 00 00 00 01 00 4C 26 FF 77 ⁿ ○.☻.α\☺.─^♠&╘☺├^↔.◘.....☺.L& w 0000C8E0 E6 01 C3 5E FD FF 07 00 02 00 7F 5D 01 00 5E 06 26 FF F8 01 C3 5E FC FF 04 00 02 00 DF 5C 01 00 µ☺├^² •.☻.⌂]☺.^♠& °☺├^ⁿ ♦.☻.▀\☺. 0000C900 50 C4 5E 06 0A 02 C3 5E FD FF 02 00 0E 00 F9 5C 01 00 5E 06 26 FF FF FF 00 00 04 00 01 00 00 00 P─^♠◙☻├^² ☻.♫.∙\☺.^♠& ..♦.☺... 0000C920 00 00 01 00 31 C0 50 FF 2E 02 C3 5E FC FF 1B 00 04 00 8E 5D 01 00 74 0B FF 76 40 02 C3 5E FC FF ..☺.1└P .☻├^ⁿ ←.♦.Ä]☺.t♂ v@☻├^ⁿ 0000C940 14 00 08 00 7E 5D 01 00 4D CA 06 00 52 02 C3 5E FC FF 12 00 02 00 7E 5D 01 00 B8 22 38 50 64 02 ¶.◘.~]☺.M╩♠.R☻├^ⁿ ↕.☻.~]☺.╕"8Pd☻ 0000C960 C3 5E 03 00 11 00 00 00 00 00 01 00 50 0E E8 CA 76 02 C3 5E FC FF 10 00 0A 00 FE 5C 01 00 04 FF ├^♥.◄.....☺.P♫Φ╩v☻├^ⁿ ►.◙.■\☺.♦ 0000C980 76 0C 88 02 C3 5E FC FF 0E 00 04 00 FE 5C 01 00 C4 5E 0E 26 9A 02 C3 5E FC FF 0C 00 0E 00 FD 5C v♀ê☻├^ⁿ ♫.♦.■\☺.─^♫&Ü☻├^ⁿ ♀.♫.²\ 0000C9A0 01 00 0C 00 45 55 AC 02 C3 5E FC FF 05 00 02 00 F9 5C 01 00 00 0E E8 C2 BE 02 C3 5E FC FF 03 00 ☺.♀.EU¼☻├^ⁿ ♣.☻.∙\☺..♫Φ┬╛☻├^ⁿ ♥. 0000C9C0 0C 00 F8 5C 01 00 23 6D 00 00 D0 02 C3 5E 03 00 02 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 ♀.°\☺.#m..╨☻├^♥.☻.....☺..... .. 0000C9E0 FC FF 01 00 06 00 E6 5C 01 00 50 00 19 00 F4 02 C3 5E FC FF 17 00 06 00 D4 5D 01 00 20 20 08 00 ⁿ ☺.♠.µ\☺.P.↓.⌠☻├^ⁿ ↨.♠.╘]☺. ◘. 0000CA00 06 03 C3 5E 39 00 16 00 00 00 00 00 01 00 00 00 00 00 18 03 C3 5E 09 00 15 00 00 00 00 00 01 00 ♠♥├^9.▬.....☺.....↑♥├^○.§.....☺. 0000CA20 00 00 00 00 2A 03 C3 5E FC FF 14 00 10 00 D3 5D 01 00 20 20 20 20 3C 03 C3 5E 32 00 13 00 00 00 ....*♥├^ⁿ ¶.►.╙]☺. <♥├^2.‼... 0000CA40 00 00 01 00 20 20 20 20 4E 03 C3 5E 33 00 12 00 00 00 00 00 01 00 20 20 20 20 60 03 C3 5E 09 00 ..☺. N♥├^3.↕.....☺. `♥├^○. 0000CA60 11 00 00 00 00 00 01 00 20 20 20 20 72 03 C3 5E FC FF 10 00 0A 00 CE 5D 01 00 FB 5E 0A 00 84 03 ◄.....☺. r♥├^ⁿ ►.◙.╬]☺.√^◙.ä♥ 0000CA80 C3 5E 32 00 0F 00 00 00 00 00 01 00 00 00 00 00 96 03 C3 5E 08 00 0E 00 00 00 00 00 01 00 00 00 ├^2.☼.....☺.....û♥├^◘.♫.....☺... 0000CAA0 00 00 A8 03 C3 5E 03 00 0D 00 00 00 00 00 01 00 00 00 00 00 BA 03 C3 5E FC FF 0C 00 04 00 C9 5D ..¿♥├^♥.♪.....☺.....║♥├^ⁿ ♀.♦.╔] 0000CAC0 01 00 00 00 00 00 CC 03 C3 5E 08 00 0B 00 00 00 00 00 01 00 0A 00 C2 6C DE 03 C3 5E 03 00 0A 00 ☺.....╠♥├^◘.♂.....☺.◙.┬l▐♥├^♥.◙. 0000CAE0 00 00 00 00 01 00 00 00 00 00 F0 03 C3 5E FC FF 09 00 02 00 C5 5D 01 00 00 00 00 00 02 04 C3 5E ....☺.....≡♥├^ⁿ ○.☻.┼]☺.....☻♦├^ 0000CB00 FC FF 07 00 08 00 C3 5D 01 00 00 00 00 00 14 04 C3 5E FC FF 05 00 0E 00 C1 5D 01 00 00 00 00 00 ⁿ •.◘.├]☺.....¶♦├^ⁿ ♣.♫.┴]☺..... 0000CB20 26 04 C3 5E 39 00 04 00 00 00 00 00 01 00 00 00 00 00 38 04 C3 5E FC FF 03 00 10 00 BE 5D 01 00 &♦├^9.♦.....☺.....8♦├^ⁿ ♥.►.╛]☺. 0000CB40 00 00 0A 00 4A 04 C3 5E 03 00 02 00 00 00 00 00 01 00 20 07 20 07 FF FF 00 00 FC FF 01 00 02 00 ..◙.J♦├^♥.☻.....☺. • • ..ⁿ ☺.☻. 0000CB60 BC 5D 01 00 20 07 20 07 6E 04 C3 5E FD FF 02 00 0A 00 C2 5E 01 00 20 07 20 07 FF FF 00 00 04 00 ╝]☺. • •n♦├^² ☻.◙.┬^☺. • • ..♦. 0000CB80 01 00 00 00 00 00 01 00 20 07 20 07 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 07 20 07 FF FF ☺.....☺. • • ..☻.......☺. • • 0000CBA0 00 00 02 00 00 00 00 00 00 00 01 00 20 07 20 07 00 00 7E 00 8C 01 1C 02 E2 02 5C 04 80 04 92 04 ..☻.......☺. • •..~.î☺∟☻Γ☻\♦Ç♦Æ♦ 0000CBC0 48 00 FF FF 02 00 72 00 02 00 6B 00 02 00 6A 00 08 00 63 6F 6E 66 6F 72 6D 00 02 00 62 00 02 00 H. ☻.r.☻.k.☻.j.◘.conform.☻.b.☻. 0000CBE0 6B 00 02 00 61 00 02 00 6A 00 02 00 72 00 02 00 6B 00 02 00 6A 00 04 00 01 00 00 00 02 00 00 00 k.☻.a.☻.j.☻.r.☻.k.☻.j.♦.☺...☻... 0000CC00 03 00 69 66 00 04 00 01 00 00 00 02 00 00 00 02 00 62 00 07 00 73 74 72 75 63 74 00 02 00 72 00 ♥.if.♦.☺...☻...☻.b.•.struct.☻.r. 0000CC20 02 00 62 00 02 00 48 00 02 00 61 00 07 00 73 74 72 75 63 74 00 02 00 72 00 02 00 61 00 02 00 62 ☻.b.☻.H.☻.a.•.struct.☻.r.☻.a.☻.b 0000CC40 00 02 00 62 00 02 00 61 00 02 00 72 00 02 00 62 00 02 00 48 00 02 00 61 00 02 00 72 00 02 00 61 .☻.b.☻.a.☻.r.☻.b.☻.H.☻.a.☻.r.☻.a 0000CC60 00 04 00 01 00 00 00 02 00 00 00 78 05 00 63 6F 6D 62 00 00 01 00 0C 35 00 0E 00 05 00 01 00 01 .♦.☺...☻...x♣.comb..☺.♀5.♫.♣.☺.☺ 0000CC80 00 01 00 23 00 02 00 01 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♥☻.☺.♫ 0000CCA0 00 3C 00 20 72 23 61 20 63 6F 6D 62 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .<. r#a comb b 0000CCC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000CCE0 63 66 6F 72 6D 61 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cformat 0000CD00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 62 6C debl 0000CD20 61 6E 6B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ank 0000CD40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6E 69 71 20 20 20 20 uniq 0000CD60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000CD80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 28 2C 54 28 28 52 62 29 2C 52 r#(,T((Rb),R 0000CDA0 61 29 52 61 29 2C 5B 4C 69 6F 2B 30 2E 35 5D 2C 28 28 52 61 29 2C 52 62 29 52 62 20 20 20 20 20 a)Ra),[Lio+0.5],((Ra),Rb)Rb 0000CDC0 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 20 20 20 $0 0000CDE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000CE00 20 20 20 20 20 20 20 20 20 20 20 22 63 6F 6D 62 20 2D 20 61 6C 6C 20 63 6F 6D 62 69 6E 61 74 69 "comb - all combinati 0000CE20 6F 6E 73 20 6F 66 20 65 6C 65 6D 65 6E 74 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ons of elements 0000CE40 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 6F "from 'the apl handbook o 0000CE60 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 62 f techniques' copyright 1978, ib 0000CE80 6D 2E 20 22 2D 6A 75 78 74 61 70 6F 73 65 20 65 61 63 68 20 75 6E 69 71 75 65 20 65 6C 65 6D 65 m. "-juxtapose each unique eleme 0000CEA0 6E 74 20 6F 66 20 61 20 77 69 74 68 20 65 61 63 68 20 75 6E 69 71 75 65 20 20 20 20 20 20 20 22 nt of a with each unique " 0000CEC0 20 65 6C 65 6D 65 6E 74 20 6F 66 20 62 2C 20 64 69 73 72 65 67 61 72 64 69 6E 67 20 62 6C 61 6E element of b, disregarding blan 0000CEE0 6B 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 22 2D 61 20 61 ks. "-a a 0000CF00 6E 64 20 62 20 63 61 6E 20 62 65 20 63 68 61 72 61 63 74 65 72 20 6F 72 20 6E 75 6D 65 72 69 63 nd b can be character or numeric 0000CF20 20 73 74 72 75 63 74 75 72 65 73 2E 20 20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 structures. "-uses: G 0000CF40 63 66 6F 72 6D 61 74 20 47 64 65 62 6C 61 6E 6B 20 47 75 6E 69 71 20 20 20 20 20 20 20 20 20 20 cformat Gdeblank Guniq 0000CF60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 63 66 6F 72 6D 61 74 2C 20 64 65 " cformat, de 0000CF80 62 6C 61 6E 6B 2C 20 61 6E 64 20 75 6E 69 71 20 63 6C 65 61 6E 20 75 70 20 67 6C 6F 62 61 6C 73 blank, and uniq clean up globals 0000CFA0 20 61 20 61 6E 64 20 62 2C 20 20 20 20 20 20 22 20 77 68 69 63 68 20 61 72 65 20 6C 6F 63 61 6C a and b, " which are local 0000CFC0 20 68 65 72 65 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 here. 0000CFE0 20 20 20 20 20 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 0A 00 02 00 7C 5B 01 00 FF 77 04 9A 24 ↕. ..ⁿ ◙.☻.|[☺. w♦Ü$ 0000D000 00 3C 5E FC FF 05 00 0E 00 31 59 01 00 03 4B 10 FF 00 00 3C 5E FC FF 03 00 04 00 29 59 01 00 76 .<^ⁿ ♣.♫.1Y☺.♥K► ..<^ⁿ ♥.♦.)Y☺.v 0000D020 06 9A ED 48 00 3C 5E 03 00 02 00 00 00 00 00 01 00 08 56 57 8B 24 00 3C 5E FC FF 01 00 0E 00 28 ♠ÜφH.<^♥.☻.....☺.◘VWï$.<^ⁿ ☺.♫.( 0000D040 59 01 00 8B 4E 06 8E FF FF 00 00 FC FF 01 00 0E 00 84 5B 01 00 89 4F 02 26 FF FF 00 00 FC FF 01 Y☺.ïN♠Ä ..ⁿ ☺.♫.ä[☺.ëO☻& ..ⁿ ☺ 0000D060 00 04 00 88 5B 01 00 89 CF 09 F7 FF FF 00 00 FC FF 01 00 08 00 85 5B 01 00 45 10 8E C2 A2 00 3C .♦.ê[☺.ë╧○≈ ..ⁿ ☺.◘.à[☺.E►Ä┬ó.< 0000D080 5E FC FF 27 00 0C 00 DF 5C 01 00 F8 26 29 47 B4 00 3C 5E 32 00 26 00 00 00 00 00 01 00 03 47 12 ^ⁿ '.♀.▀\☺.°&)G┤.<^2.&.....☺.♥G↕ 0000D0A0 C4 C6 00 3C 5E 09 00 25 00 00 00 00 00 01 00 26 03 47 14 D8 00 3C 5E FC FF 24 00 02 00 D5 5C 01 ─╞.<^○.%.....☺.&♥G¶╪.<^ⁿ $.☻.╒\☺ 0000D0C0 00 5E F8 26 8B EA 00 3C 5E 32 00 23 00 00 00 00 00 01 00 5F 5E 8B E5 FC 00 3C 5E 0C 00 22 00 00 .^°&ïΩ.<^2.#.....☺._^ïσⁿ.<^♀.".. 0000D0E0 00 00 00 01 00 5E 06 26 C7 0E 01 3C 5E 09 00 21 00 00 00 00 00 01 00 5E 06 26 C7 20 01 3C 5E FC ...☺.^♠&╟♫☺<^○.!.....☺.^♠&╟ ☺<^ⁿ 0000D100 FF 20 00 0C 00 D4 5C 01 00 26 8B 47 38 32 01 3C 5E 32 00 1F 00 00 00 00 00 01 00 08 29 34 FF 44 .♀.╘\☺.&ïG82☺<^2.▼.....☺.◘)4 D 0000D120 01 3C 5E 08 00 1E 00 00 00 00 00 01 00 77 16 E8 FA 56 01 3C 5E 08 00 1D 00 00 00 00 00 01 00 2D ☺<^◘.▲.....☺.w▬Φ·V☺<^◘.↔.....☺.- 0000D140 29 34 C4 68 01 3C 5E 0C 00 1C 00 00 00 00 00 01 00 26 F7 6F 22 7A 01 3C 5E 3D 00 1B 00 00 00 00 )4─h☺<^♀.∟.....☺.&≈o"z☺<^=.←.... 0000D160 00 01 00 17 54 26 C4 8C 01 3C 5E FD FF 18 00 0E 00 E0 5C 01 00 83 C0 2C 26 9E 01 3C 5E 0B 00 17 .☺.↨T&─î☺<^² ↑.♫.α\☺.â└,&₧☺<^♂.↨ 0000D180 00 00 00 00 00 01 00 26 8B 47 20 B0 01 3C 5E ED FF 14 00 00 00 00 00 01 00 F6 C1 40 74 C2 01 3C .....☺.&ïG ░☺<^φ ¶.....☺.÷┴@t┬☺< 0000D1A0 5E 3B 00 13 00 00 00 00 00 01 00 3B F8 76 29 D4 01 3C 5E 0C 00 12 00 00 00 00 00 01 00 8E 46 F6 ^;.‼.....☺.;°v)╘☺<^♀.↕.....☺.ÄF÷ 0000D1C0 8B E6 01 3C 5E 09 00 11 00 00 00 00 00 01 00 46 F6 26 C4 F8 01 3C 5E FC FF 10 00 0A 00 D0 5C 01 ïµ☺<^○.◄.....☺.F÷&─°☺<^ⁿ ►.◙.╨\☺ 0000D1E0 00 26 C7 47 4C 0A 02 3C 5E 32 00 0F 00 00 00 00 00 01 00 89 57 4C 26 1C 02 3C 5E 09 00 0E 00 00 .&╟GL◙☻<^2.☼.....☺.ëWL&∟☻<^○.♫.. 0000D200 00 00 00 01 00 89 56 E4 89 2E 02 3C 5E FC FF 0D 00 02 00 90 5B 01 00 44 12 89 46 40 02 3C 5E 32 ...☺.ëVΣë.☻<^ⁿ ♪.☻.É[☺.D↕ëF@☻<^2 0000D220 00 0C 00 00 00 00 00 01 00 C1 89 F7 26 52 02 3C 5E 0C 00 0B 00 00 00 00 00 01 00 8B 46 FC 51 64 .♀.....☺.┴ë≈&R☻<^♀.♂.....☺.ïFⁿQd 0000D240 02 3C 5E 09 00 0A 00 00 00 00 00 01 00 8B 47 2C 89 76 02 3C 5E FC FF 09 00 0C 00 8F 5B 01 00 D1 ☻<^○.◙.....☺.ïG,ëv☻<^ⁿ ○.♀.Å[☺.╤ 0000D260 E0 C4 7E 88 02 3C 5E 32 00 08 00 00 00 00 00 01 00 8B 46 DE 8E 9A 02 3C 5E 08 00 07 00 00 00 00 α─~ê☻<^2.◘.....☺.ïF▐ÄÜ☻<^◘.•.... 0000D280 00 01 00 FF 77 2C 9A AC 02 3C 5E 08 00 06 00 00 00 00 00 01 00 8B 47 36 26 BE 02 3C 5E 34 00 05 .☺. w,ܼ☻<^◘.♠.....☺.ïG6&╛☻<^4.♣ 0000D2A0 00 00 00 00 00 01 00 09 29 34 5F D0 02 3C 5E 0C 00 04 00 00 00 00 00 01 00 08 FF 76 06 E2 02 3C .....☺.○)4_╨☻<^♀.♦.....☺.◘ v♠Γ☻< 0000D2C0 5E 08 00 03 00 00 00 00 00 01 00 47 31 01 74 F4 02 3C 5E 03 00 02 00 00 00 00 00 01 00 9C 66 0E ^◘.♥.....☺.G1☺t⌠☻<^♥.☻.....☺.£f♫ 0000D2E0 E8 FF FF 00 00 FC FF 01 00 06 00 8F 5B 01 00 12 01 75 0F 18 03 3C 5E FD FF 02 00 04 00 FB 5C 01 Φ ..ⁿ ☺.♠.Å[☺.↕☺u☼↑♥<^² ☻.♦.√\☺ 0000D300 00 F5 31 C0 50 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 08 53 9A 0F FF FF 00 00 02 00 00 00 00 .⌡1└P ..♦.☺.....☺.◘SÜ☼ ..☻.... 0000D320 00 00 00 01 00 30 13 29 34 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 9A D5 08 29 FF FF 00 00 02 ...☺.0‼)4 ..☻.......☺.Ü╒◘) ..☻ 0000D340 00 00 00 00 00 00 00 01 00 00 5D 4D CA FF FF 00 00 02 00 00 00 00 00 00 00 01 00 26 F6 47 30 FF .......☺..]M╩ ..☻.......☺.&÷G0 0000D360 FF 00 00 02 00 00 00 00 00 00 00 01 00 66 8B 46 0C FF FF 00 00 02 00 00 00 00 00 00 00 01 00 06 ..☻.......☺.fïF♀ ..☻.......☺.♠ 0000D380 83 C0 18 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 46 E2 00 00 FF FF 00 00 02 00 00 00 00 00 00 â└↑ ..☻.......☺.FΓ.. ..☻...... 0000D3A0 00 01 00 C1 89 DE 83 00 00 5A 00 6C 00 7E 00 90 00 06 03 2A 03 3C 03 4E 03 60 03 72 03 84 03 96 .☺.┴ë▐â..Z.l.~.É.♠♥*♥<♥N♥`♥r♥ä♥û 0000D3C0 03 A8 03 48 00 FF FF 02 00 62 00 05 00 63 6F 6D 62 00 02 00 61 00 02 00 72 00 08 00 63 66 6F 72 ♥¿♥H. ☻.b.♣.comb.☻.a.☻.r.◘.cfor 0000D3E0 6D 61 74 00 08 00 64 65 62 6C 61 6E 6B 00 05 00 75 6E 69 71 00 02 00 62 00 02 00 62 00 02 00 61 mat.◘.deblank.♣.uniq.☻.b.☻.b.☻.a 0000D400 00 02 00 01 00 00 00 08 00 00 00 00 00 00 00 E0 3F 02 00 61 00 02 00 61 00 02 00 62 00 02 00 72 .☻.☺...◘.......α?☻.a.☻.a.☻.b.☻.r 0000D420 00 04 00 01 00 00 00 02 00 00 00 78 08 00 63 6D 61 74 72 69 78 00 00 01 00 01 16 00 07 00 01 00 .♦.☺...☻...x◘.cmatrix..☺.☺▬.•.☺. 0000D440 08 00 08 00 02 00 01 00 01 00 01 00 08 00 A4 01 02 00 01 00 07 00 3C 00 20 63 6D 61 74 72 69 78 ◘.◘.☻.☺.☺.☺.◘.ñ☺☻.☺.•.<. cmatrix 0000D460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000D480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 27 61 23 6D 61 74 72 69 78 20 C'a#matrix 0000D4A0 61 27 69 66 20 30 5E 3D 52 52 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a'if 0^=RRa 0000D4C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 27 62 23 6D 61 74 72 69 78 20 62 27 69 66 C'b#matrix b'if 0000D4E0 20 30 5E 3D 52 52 62 20 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^=RRb 0000D500 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 20 20 20 20 20 20 $0 0000D520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000D540 20 20 20 20 20 20 20 20 22 63 6D 61 74 72 69 78 20 69 73 20 75 73 65 64 20 62 79 20 65 2E 67 2E "cmatrix is used by e.g. 0000D560 20 63 63 61 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 ccat. 0000D580 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 6F 66 20 74 "from 'the apl handbook of t 0000D5A0 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 62 6D 2E 20 echniques' copyright 1978, ibm. 0000D5C0 22 61 73 73 75 6D 65 73 20 6C 6F 63 61 6C 69 7A 65 64 20 61 20 61 6E 64 20 62 2E 20 20 20 20 20 "assumes localized a and b. 0000D5E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 00 FF FF .. 0000D600 00 00 FC FF 01 00 06 00 96 58 01 00 89 C6 8B 4E 24 00 6E 5C FC FF 16 00 02 00 98 58 01 00 9A F0 ..ⁿ ☺.♠.ûX☺.ë╞ïN$.n\ⁿ ▬.☻.ÿX☺.Ü≡ 0000D620 47 29 36 00 6E 5C 32 00 15 00 00 00 00 00 01 00 03 E9 0D 02 48 00 6E 5C 32 00 14 00 00 00 00 00 G)6.n\2.§.....☺.♥Θ♪☻H.n\2.¶..... 0000D640 01 00 FF 37 FF B6 5A 00 6E 5C 3E 00 12 00 00 00 00 00 01 00 64 FF 50 9A 6C 00 6E 5C FD FF 11 00 ☺. 7 ╢Z.n\>.↕.....☺.d PÜl.n\² ◄. 0000D660 06 00 24 59 01 00 74 03 E9 9F 7E 00 6E 5C FC FF 0E 00 0C 00 97 58 01 00 53 FF 36 16 90 00 6E 5C ♠.$Y☺.t♥Θƒ~.n\ⁿ ♫.♀.ùX☺.S 6▬É.n\ 0000D680 07 00 02 00 04 00 1D 59 01 00 FF 36 9C 66 FF FF 00 00 23 00 01 00 00 00 00 00 01 00 66 89 56 F4 •.☻.♦.↔Y☺. 6£f ..#.☺.....☺.fëV⌠ 0000D6A0 B4 00 6E 5C FC FF 16 00 10 00 1B 59 01 00 E6 1A C0 31 C6 00 6E 5C 32 00 15 00 00 00 00 00 01 00 ┤.n\ⁿ ▬.►.←Y☺.µ→└1╞.n\2.§.....☺. 0000D6C0 1F FF 76 F4 D8 00 6E 5C 32 00 14 00 00 00 00 00 01 00 9A 69 2F 29 EA 00 6E 5C 3E 00 12 00 00 00 ▼ v⌠╪.n\2.¶.....☺.Üi/)Ω.n\>.↕... 0000D6E0 00 00 01 00 86 64 FF 50 FC 00 6E 5C FD FF 11 00 02 00 A4 5A 01 00 16 36 16 A3 0E 01 6E 5C FC FF ..☺.åd Pⁿ.n\² ◄.☻.ñZ☺.▬6▬ú♫☺n\ⁿ 0000D700 0E 00 10 00 C0 58 01 00 37 01 BA 8F 20 01 6E 5C 07 00 02 00 08 00 36 5A 01 00 CD 3F 04 11 FF FF ♫.►.└X☺.7☺║Å ☺n\•.☻.◘.6Z☺.═?♦◄ 0000D720 00 00 23 00 01 00 00 00 00 00 01 00 16 FF 36 34 44 01 6E 5C FD FF 02 00 06 00 AE 5A 01 00 52 50 ..#.☺.....☺.▬ 64D☺n\² ☻.♠.«Z☺.RP 0000D740 CD 3F FF FF 00 00 04 00 01 00 00 00 00 00 01 00 45 0F 9A F6 FF FF 00 00 02 00 00 00 00 00 00 00 ═? ..♦.☺.....☺.E☼Ü÷ ..☻....... 0000D760 01 00 50 9A F0 47 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 FF CD 3F 04 FF FF 00 00 02 00 00 00 ☺.PÜ≡G ..☻.......☺. ═?♦ ..☻... 0000D780 00 00 00 00 01 00 44 54 26 89 00 00 12 00 A2 00 32 01 56 01 68 01 7A 01 FF FF FF FF 08 00 63 6D ....☺.DT&ë..↕.ó.2☺V☺h☺z☺ ◘.cm 0000D7A0 61 74 72 69 78 00 02 00 61 00 04 00 01 00 00 00 02 00 00 00 03 00 69 66 00 08 00 0A 00 01 00 01 atrix.☻.a.♦.☺...☻...♥.if.◘.◙.☺.☺ 0000D7C0 00 0A 00 61 23 6D 61 74 72 69 78 20 61 02 00 62 00 04 00 01 00 00 00 02 00 00 00 03 00 69 66 00 .◙.a#matrix a☻.b.♦.☺...☻...♥.if. 0000D7E0 08 00 0A 00 01 00 01 00 0A 00 62 23 6D 61 74 72 69 78 20 62 04 00 01 00 00 00 02 00 00 00 78 05 ◘.◙.☺.☺.◙.b#matrix b♦.☺...☻...x♣ 0000D800 00 63 63 61 74 00 00 01 00 0C 1B 00 12 00 05 00 01 00 01 00 01 00 01 00 01 00 05 00 02 00 01 00 .ccat..☺.♀←.↕.♣.☺.☺.☺.☺.☺.♣.☻.☺. 0000D820 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 38 04 02 00 01 00 12 00 3C 00 20 72 ☺.☺.☺.☺.☺.☺.☺.☺.☺.◘.8♦☻.☺.↕.<. r 0000D840 23 61 20 63 63 61 74 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #a ccat b 0000D860 20 20 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 63 6F 6C 75 6D "colum 0000D880 6E 20 63 61 74 65 6E 61 74 69 6F 6E 2C 73 63 61 6C 61 72 20 72 65 70 6C 69 63 61 74 69 6F 6E 20 n catenation,scalar replication 0000D8A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 76 65 72 74 61 62 20 20 20 vertab 0000D8C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000D8E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 66 6F 72 6D 61 74 20 20 20 20 20 20 cformat 0000D900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000D920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6D 61 74 72 69 78 20 20 20 20 20 20 20 20 20 20 cmatrix 0000D940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000D960 20 20 20 20 20 20 20 20 20 20 20 72 6F 77 66 6F 72 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rowform 0000D980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000D9A0 20 20 20 20 20 20 20 72 23 61 2C 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r#a,b 0000D9C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0000D9E0 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 20 $0 0000DA00 20 20 20 20 20 20 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 63 "c 0000DA20 63 61 74 20 2D 20 63 61 74 65 6E 61 74 65 20 62 79 20 63 6F 6C 75 6D 6E 73 2E 20 20 20 20 20 20 cat - catenate by columns. 0000DA40 20 20 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 20 "from 0000DA60 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' 0000DA80 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 73 69 64 65 2D 62 79 2D copyright 1978, ibm. "-side-by- 0000DAA0 73 69 64 65 20 63 61 74 65 6E 61 74 69 6F 6E 20 6F 66 20 67 65 6E 65 72 61 6C 20 73 74 72 75 63 side catenation of general struc 0000DAC0 74 75 72 65 73 20 61 6E 64 20 74 79 70 65 73 2E 20 20 22 2D 73 63 61 6C 61 72 73 20 77 69 6C 6C tures and types. "-scalars will 0000DAE0 20 62 65 20 72 65 70 6C 69 63 61 74 65 64 20 69 66 20 74 79 70 65 73 20 61 67 72 65 65 2E 20 20 be replicated if types agree. 0000DB00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 76 65 63 74 6F 72 73 20 62 65 63 6F 6D 65 20 6F "-vectors become o 0000DB20 6E 65 2D 63 6F 6C 75 6D 6E 20 6D 61 74 72 69 63 65 73 20 62 65 66 6F 72 65 20 63 61 74 65 6E 61 ne-column matrices before catena 0000DB40 74 69 6F 6E 2E 20 20 20 20 20 22 2D 6E 75 6D 65 72 69 63 20 74 79 70 65 73 20 77 69 6C 6C 20 62 tion. "-numeric types will b 0000DB60 65 20 70 61 64 64 65 64 20 77 69 74 68 20 7A 65 72 6F 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 e padded with zeros. 0000DB80 20 20 20 20 20 20 22 2D 63 68 61 72 61 63 74 65 72 20 74 79 70 65 73 20 77 69 6C 6C 20 62 65 20 "-character types will be 0000DBA0 70 61 64 64 65 64 20 77 69 74 68 20 62 6C 61 6E 6B 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 padded with blanks. 0000DBC0 20 20 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 "-numeric types will be format 0000DBE0 74 65 64 20 69 66 20 74 6F 20 62 65 20 63 61 74 65 6E 61 74 65 64 20 77 69 74 68 20 20 20 22 20 ted if to be catenated with " 0000DC00 63 68 61 72 61 63 74 65 72 20 74 79 70 65 73 2E 20 20 73 65 65 20 47 62 65 73 69 64 65 2E 20 20 character types. see Gbeside. 0000DC20 20 20 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 "-a ma 0000DC40 74 72 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 trix is returned. 0000DC60 20 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 0A 00 ↕. ..ⁿ ◙. 0000DC80 02 00 CB 54 01 00 20 20 20 20 24 00 F4 58 FC FF 05 00 0A 00 CA 54 01 00 20 20 20 20 00 00 F4 58 ☻.╦T☺. $.⌠Xⁿ ♣.◙.╩T☺. ..⌠X 0000DCA0 FC FF 03 00 06 00 49 53 01 00 20 20 20 20 48 00 F4 58 03 00 02 00 00 00 00 00 01 00 20 20 20 20 ⁿ ♥.♠.IS☺. H.⌠X♥.☻.....☺. 0000DCC0 24 00 F4 58 FC FF 01 00 10 00 48 53 01 00 2D 20 63 61 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 $.⌠Xⁿ ☺.►.HS☺.- ca ..☻.......☺. 0000DCE0 6D 6E 73 2E FF FF 00 00 FC FF 01 00 0A 00 97 55 01 00 20 20 20 20 FF FF 00 00 FC FF 01 00 04 00 mns. ..ⁿ ☺.◙.ùU☺. ..ⁿ ☺.♦. 0000DD00 98 55 01 00 22 66 72 6F FF FF 00 00 FC FF 01 00 04 00 9D 55 01 00 64 62 6F 6F FF FF 00 00 FC FF ÿU☺."fro ..ⁿ ☺.♦.¥U☺.dboo ..ⁿ 0000DD20 01 00 0E 00 9D 55 01 00 73 27 20 63 C6 00 F4 58 FC FF 05 00 0C 00 AF 55 01 00 20 69 62 6D D8 00 ☺.♫.¥U☺.s' c╞.⌠Xⁿ ♣.♀.»U☺. ibm╪. 0000DD40 F4 58 0C 00 04 00 00 00 00 00 01 00 64 65 20 63 EA 00 F4 58 FC FF 03 00 06 00 AF 55 01 00 65 6E ⌠X♀.♦.....☺.de cΩ.⌠Xⁿ ♥.♠.»U☺.en 0000DD60 65 72 FC 00 F4 58 03 00 02 00 00 00 00 00 01 00 61 6E 64 20 FF FF 00 00 FC FF 01 00 08 00 CB 54 erⁿ.⌠X♥.☻.....☺.and ..ⁿ ☺.◘.╦T 0000DD80 01 00 61 72 73 20 20 01 F4 58 FD FF 02 00 0C 00 D0 55 01 00 61 74 65 64 FF FF 00 00 04 00 01 00 ☺.ars ☺⌠X² ☻.♀.╨U☺.ated ..♦.☺. 0000DDA0 00 00 00 00 01 00 65 2E 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 31 00 00 FF FF 00 00 ....☺.e. ..☻.......☺..1.. .. 0000DDC0 02 00 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 6C 33 3A 7A ☻.......☺. ..☻.......☺.l3:z 0000DDE0 FF FF 00 00 02 00 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 ..☻.......☺. ..☻.......☺. 0000DE00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 ..☻.......☺. ..☻..... 0000DE20 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 0B 00 00 00 FF FF 00 00 02 00 ..☺..... ..☻.......☺.♂... ..☻. 0000DE40 00 00 00 00 00 00 01 00 38 00 0C 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 5A 00 FD FF 00 00 ......☺.8.♀. ..☻.......☺.Z.² .. 0000DE60 5A 00 6C 00 7E 00 90 00 A2 00 B4 00 0E 01 32 01 44 01 56 01 68 01 7A 01 8C 01 9E 01 B0 01 C2 01 Z.l.~.É.ó.┤.♫☺2☺D☺V☺h☺z☺î☺₧☺░☺┬☺ 0000DE80 D4 01 48 00 FF FF 02 00 62 00 05 00 63 63 61 74 00 02 00 61 00 02 00 72 00 07 00 76 65 72 74 61 ╘☺H. ☻.b.♣.ccat.☻.a.☻.r.•.verta 0000DEA0 62 00 08 00 63 66 6F 72 6D 61 74 00 08 00 63 6D 61 74 72 69 78 00 08 00 72 6F 77 66 6F 72 6D 00 b.◘.cformat.◘.cmatrix.◘.rowform. 0000DEC0 02 00 62 00 02 00 61 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 00 ☻.b.☻.a.☻.r.♦.☺...☻....