============================================================================================================================================== 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 AD 04 02 00 01 00 13 00 3F 00 20 6D 61 ☺.üvIh┬%<=☺.x☻.a.◘.¡♦☻.☺.‼.?. ma 00000020 74 23 68 65 61 64 69 6E 67 73 20 6F 75 74 70 75 74 20 6D 61 74 72 69 78 3B 73 3B 69 3B 61 3B 60 t#headings output matrix;s;i;a;` 00000040 61 3B 76 3B 77 3B 68 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6F 75 74 a;v;w;h;Lio "out 00000060 70 75 74 20 2D 20 63 65 6E 74 65 72 20 68 65 61 64 69 6E 67 73 20 6F 76 65 72 20 66 6F 72 6D 61 put - center headings over forma 00000080 74 74 65 64 20 63 6F 6C 75 6D 6E 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D tted columns. "from 000000A0 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 000000C0 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 22 2D 68 65 61 64 ' copyright 1978, ibm. "-head 000000E0 69 6E 67 73 2C 20 61 20 63 68 61 72 61 63 74 65 72 20 76 65 63 74 6F 72 20 77 69 74 68 20 62 6C ings, a character vector with bl 00000100 61 6E 6B 20 64 65 6C 69 6D 69 74 65 72 73 2C 20 77 69 6C 6C 20 62 65 20 20 22 20 63 65 6E 74 65 ank delimiters, will be " cente 00000120 72 65 64 20 6F 76 65 72 20 74 68 65 20 61 70 70 72 6F 70 72 69 61 74 65 20 63 6F 6C 75 6D 6E 73 red over the appropriate columns 00000140 2C 20 61 6E 64 20 75 6E 65 72 73 63 6F 72 65 64 20 74 6F 20 20 20 20 20 22 20 74 68 65 20 66 75 , and unerscored to " the fu 00000160 6C 6C 20 77 69 64 74 68 20 6F 66 20 74 68 6F 73 65 20 63 6F 6C 75 6D 6E 73 20 69 6E 20 74 68 65 ll width of those columns in the 00000180 20 70 72 65 66 6F 72 6D 61 74 74 65 64 20 6D 61 74 72 69 78 2E 20 20 22 2D 61 6E 79 20 68 65 61 preformatted matrix. "-any hea 000001A0 64 69 6E 67 20 74 6F 6F 20 77 69 64 65 20 66 6F 72 20 69 74 73 20 63 6F 6C 75 6D 6E 73 20 77 69 ding too wide for its columns wi 000001C0 6C 6C 20 62 65 20 6E 6F 74 65 64 2E 20 20 20 20 20 20 20 20 20 20 22 2D 61 6E 79 20 69 6E 73 75 ll be noted. "-any insu 000001E0 66 66 69 63 69 65 6E 74 20 6E 75 6D 62 65 72 20 6F 66 20 68 65 61 64 69 6E 67 73 20 77 69 6C 6C fficient number of headings will 00000200 20 63 61 75 73 65 20 6C 65 6E 67 74 68 20 65 72 72 6F 72 2E 20 22 2D 6F 6E 6C 79 20 74 68 65 20 cause length error. "-only the 00000220 6C 65 66 74 6D 6F 73 74 20 68 65 61 64 69 6E 67 73 20 77 69 6C 6C 20 62 65 20 75 73 65 64 2E 20 leftmost headings will be used. 00000240 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 68 64 6D 61 "-uses: hdma 00000260 20 68 6E 65 78 74 60 61 20 68 63 6E 74 72 20 68 77 69 64 74 68 20 68 64 6C 62 20 20 20 20 20 20 hnext`a hcntr hwidth hdlb 00000280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 67 65 6E 65 72 61 74 65 73 20 61 "-generates a 000002A0 20 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 6C 65 2C 20 60 62 2C 20 77 68 69 63 68 20 63 61 6E 20 global variable, `b, which can 000002C0 62 65 20 75 73 65 64 20 74 6F 20 72 65 64 75 63 65 20 22 20 28 74 68 65 6E 20 65 78 70 61 6E 64 be used to reduce " (then expand 000002E0 29 20 74 68 65 20 72 65 73 75 6C 74 20 62 79 20 65 6C 69 6D 69 6E 61 74 69 6E 67 20 62 6C 61 6E ) the result by eliminating blan 00000300 6B 20 63 6F 6C 75 6D 6E 73 2E 20 20 20 20 20 20 20 20 6D 61 74 23 28 31 55 52 6D 61 74 72 69 78 k columns. mat#(1URmatrix 00000320 29 52 27 20 27 2C 73 23 28 69 23 7E 4C 69 6F 23 31 29 52 60 61 23 68 65 61 64 69 6E 67 73 20 20 )R' ',s#(i#~Lio#1)R`a#headings 00000340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 23 27 60 62 27 77 69 64 74 68 20 6D 61 74 w#'`b'width mat 00000360 72 69 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rix 00000380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 63 6B 3A 24 28 28 69 3D 52 77 29 56 30 3D 52 back:$((i=Rw)V0=R 000003A0 68 23 6E 65 78 74 60 61 29 2F 66 69 6E 61 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 h#next`a)/final 000003C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 28 30 5E 3D 52 61 20 48 20 73 23 73 2C 61 23 77 $(0^=Ra H s#s,a#w 000003E0 5B 69 23 69 2B 31 5D 63 6E 74 72 20 68 29 2F 62 61 63 6B 20 20 20 20 20 20 20 20 20 20 20 20 20 [i#i+1]cntr h)/back 00000400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 2C 52 4C 23 27 63 6F 6C 75 6D 6E 20 77 69 64 74 $0,RL#'column widt 00000420 68 20 28 27 2C 28 46 77 29 2C 27 29 20 74 6F 6F 20 6E 61 72 72 6F 77 20 66 6F 72 20 27 2C 68 20 h (',(Fw),') too narrow for ',h 00000440 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6E 61 6C 3A 6D 61 74 5B 60 62 2F 49 52 60 62 5D 23 73 final:mat[`b/IR`b]#s 00000460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000480 20 20 20 20 20 20 20 20 20 20 20 20 6D 61 74 23 28 6D 61 74 2C 5B 30 2E 31 5D 60 62 5C 27 2D 27 mat#(mat,[0.1]`b\'-' 000004A0 29 2C 5B 31 5D 6D 61 74 72 69 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ),[1]matrix 000004C0 20 20 20 20 20 20 20 20 20 20 78 07 00 6D 61 74 72 69 78 00 00 01 00 0A 1C 00 04 00 04 00 01 00 x•.matrix..☺.◙∟.♦.♦.☺. 000004E0 01 00 16 00 08 00 F0 00 02 00 01 00 04 00 3C 00 7A 20 23 20 6D 61 74 72 69 78 20 61 20 20 20 20 ☺.▬.◘.≡.☻.☺.♦.<.z # matrix a 00000500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000520 20 20 20 20 20 20 20 20 20 20 20 20 22 6D 61 74 72 69 78 20 2D 20 66 6F 72 63 65 73 20 74 68 65 "matrix - forces the 00000540 20 72 65 73 75 6C 74 20 74 6F 20 74 77 6F 20 64 69 6D 65 6E 73 69 6F 6E 73 2E 20 20 20 20 20 20 result to two dimensions. 00000560 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 "from 'the apl handbook 00000580 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 of techniques' copyright 1978, i 000005A0 62 6D 2E 20 7A 23 28 28 58 2F 2D 31 55 7A 29 2C 2D 31 59 7A 23 31 20 31 2C 52 61 29 52 61 20 20 bm. z#((X/-1Uz),-1Yz#1 1,Ra)Ra 000005C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000005E0 12 00 FF FF 00 00 FC FF 0B 00 08 00 97 50 01 00 01 00 0D 00 24 00 AE 52 FC FF 04 00 02 00 8C 50 ↕. ..ⁿ ♂.◘.ùP☺.☺.♪.$.«Rⁿ ♦.☻.îP 00000600 01 00 20 20 20 20 36 00 AE 52 03 00 02 00 00 00 00 00 01 00 20 20 20 20 00 00 AE 52 FC FF 00 00 ☺. 6.«R♥.☻.....☺. ..«Rⁿ .. 00000620 10 00 89 50 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 28 2C 60 4F FF FF 00 00 ►.ëP☺. ..☻.......☺.(,`O .. 00000640 02 00 00 00 00 00 00 00 01 00 2C 6D 2C 60 7E 00 AE 52 FC FF 19 00 0E 00 AE 50 01 00 20 20 20 20 ☻.......☺.,m,`~.«Rⁿ ↓.♫.«P☺. 00000660 90 00 AE 52 32 00 18 00 00 00 00 00 01 00 20 24 30 20 A2 00 AE 52 09 00 17 00 00 00 00 00 01 00 É.«R2.↑.....☺. $0 ó.«R○.↨.....☺. 00000680 20 20 20 20 B4 00 AE 52 FC FF 16 00 08 00 AE 50 01 00 20 20 20 20 C6 00 AE 52 32 00 15 00 00 00 ┤.«Rⁿ ▬.◘.«P☺. ╞.«R2.§... 000006A0 00 00 01 00 20 20 20 20 D8 00 AE 52 0C 00 14 00 00 00 00 00 01 00 65 73 73 20 EA 00 AE 52 FD FF ..☺. ╪.«R♀.¶.....☺.ess Ω.«R² 000006C0 11 00 0E 00 30 51 01 00 69 78 20 20 FC 00 AE 52 03 00 10 00 00 00 00 00 01 00 20 20 20 20 0E 01 ◄.♫.0Q☺.ix ⁿ.«R♥.►.....☺. ♫☺ 000006E0 AE 52 FC FF 0F 00 10 00 A3 50 01 00 27 74 68 65 20 01 AE 52 39 00 0E 00 00 00 00 00 01 00 6F 66 «Rⁿ ☼.►.úP☺.'the ☺«R9.♫.....☺.of 00000700 20 74 32 01 AE 52 FD FF 0C 00 0E 00 23 51 01 00 79 72 69 67 44 01 AE 52 0C 00 0B 00 00 00 00 00 t2☺«R² ♀.♫.#Q☺.yrigD☺«R♀.♂..... 00000720 01 00 22 74 68 65 56 01 AE 52 09 00 0A 00 00 00 00 00 01 00 72 79 20 66 68 01 AE 52 FC FF 09 00 ☺."theV☺«R○.◙.....☺.ry fh☺«Rⁿ ○. 00000740 0A 00 A3 50 01 00 20 74 77 6F 7A 01 AE 52 35 00 08 00 00 00 00 00 01 00 6E 20 20 20 8C 01 AE 52 ◙.úP☺. twoz☺«R5.◘.....☺.n î☺«R 00000760 FD FF 06 00 0A 00 0E 51 01 00 72 61 63 74 9E 01 AE 52 0F 00 05 00 00 00 00 00 01 00 64 20 63 68 ² ♠.◙.♫Q☺.ract₧☺«R☼.♣.....☺.d ch 00000780 B0 01 AE 52 38 00 04 00 00 00 00 00 01 00 73 2E 20 20 C2 01 AE 52 08 00 03 00 00 00 00 00 01 00 ░☺«R8.♦.....☺.s. ┬☺«R◘.♥.....☺. 000007A0 63 6F 6E 76 D4 01 AE 52 08 00 02 00 00 00 00 00 01 00 65 72 20 6D E6 01 AE 52 03 00 01 00 00 00 conv╘☺«R◘.☻.....☺.er mµ☺«R♥.☺... 000007C0 00 00 01 00 68 61 72 61 FF FF 00 00 FC FF 00 00 0E 00 97 50 01 00 22 20 20 20 00 00 48 00 5A 00 ..☺.hara ..ⁿ ..♫.ùP☺." ..H.Z. 000007E0 6C 00 36 00 FF FF 02 00 61 00 07 00 6D 61 74 72 69 78 00 02 00 7A 00 02 00 61 00 02 00 61 00 04 l.6. ☻.a.•.matrix.☻.z.☻.a.☻.a.♦ 00000800 00 02 00 01 00 02 00 02 00 01 00 01 00 02 00 7A 00 04 00 01 00 00 00 02 00 FF FF 02 00 7A 00 04 .☻.☺.☻.☻.☺.☺.☻.z.♦.☺...☻. ☻.z.♦ 00000820 00 01 00 00 00 02 00 FF FF 02 00 7A 00 78 04 00 6D 32 76 00 00 01 00 0A 29 00 11 00 04 00 15 00 .☺...☻. ☻.z.x♦.m2v..☺.◙).◄.♦.§. 00000840 02 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 08 00 ☻.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.◘. 00000860 FC 03 02 00 01 00 11 00 3C 00 20 76 23 6D 32 76 20 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ⁿ♥☻.☺.◄.<. v#m2v m 00000880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000008A0 20 20 20 20 20 20 20 76 23 2D 31 55 28 2C 60 4F 31 2C 56 5C 27 20 27 5E 3D 60 4F 6D 29 2F 2C 6D v#-1U(,`O1,V\' '^=`Om)/,m 000008C0 2C 60 63 60 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 20 20 20 ,`c`r 000008E0 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 00000900 20 20 20 20 20 20 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 6D "m 00000920 32 76 20 2D 20 63 6F 6D 70 72 65 73 73 20 63 68 61 72 61 63 74 65 72 20 6D 61 74 72 69 78 20 20 2v - compress character matrix 00000940 20 20 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 00000960 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' 00000980 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 74 68 65 73 65 20 63 6F 6D copyright 1978, ibm. "these com 000009A0 70 6C 65 6D 65 6E 74 61 72 79 20 66 75 6E 63 74 69 6F 6E 73 20 61 6C 6C 6F 77 20 74 77 6F 2D 77 plementary functions allow two-w 000009C0 61 79 20 63 6F 6E 76 65 72 73 69 6F 6E 20 20 20 20 20 22 62 65 74 77 65 65 6E 20 63 68 61 72 61 ay conversion "between chara 000009E0 63 74 65 72 20 6D 61 74 72 69 63 65 73 20 61 6E 64 20 63 68 61 72 61 63 74 65 72 20 76 65 63 74 cter matrices and character vect 00000A00 6F 72 73 2E 20 20 20 20 20 20 20 20 20 20 22 6D 32 76 3A 20 63 6F 6E 76 65 72 74 73 20 61 20 63 ors. "m2v: converts a c 00000A20 68 61 72 61 63 74 65 72 20 6D 61 74 72 69 78 20 6D 20 74 6F 20 61 20 63 68 61 72 61 63 74 65 72 haracter matrix m to a character 00000A40 20 76 65 63 74 6F 72 20 76 2E 22 20 20 20 20 20 65 61 63 68 20 72 6F 77 20 6F 66 20 6D 2C 20 77 vector v." each row of m, w 00000A60 69 74 68 20 74 72 61 69 6C 69 6E 67 20 62 6C 61 6E 6B 73 20 6F 6D 69 74 74 65 64 2C 20 62 65 63 ith trailing blanks omitted, bec 00000A80 6F 6D 65 73 20 20 22 20 20 20 20 20 61 20 27 6C 69 6E 65 27 20 69 6E 20 76 2C 20 65 6E 64 65 64 omes " a 'line' in v, ended 00000AA0 20 62 79 20 61 20 63 61 72 72 69 61 67 65 20 72 65 74 75 72 6E 2E 20 20 20 20 20 20 20 20 20 20 by a carriage return. 00000AC0 20 20 22 76 32 6D 3A 20 63 6F 6E 76 65 72 74 73 20 61 20 63 68 61 72 61 63 74 65 72 20 76 65 63 "v2m: converts a character vec 00000AE0 74 6F 72 20 76 20 74 6F 20 61 20 63 68 61 72 61 63 74 65 72 20 6D 61 74 72 69 78 20 6D 2E 22 20 tor v to a character matrix m." 00000B00 20 20 20 20 65 61 63 68 20 27 6C 69 6E 65 27 20 28 61 20 63 68 61 72 61 63 74 65 72 20 73 74 72 each 'line' (a character str 00000B20 69 6E 67 20 65 6E 64 69 6E 67 20 69 6E 20 61 20 63 61 72 72 69 61 67 65 20 20 22 20 20 20 20 20 ing ending in a carriage " 00000B40 72 65 74 75 72 6E 29 20 62 65 63 6F 6D 65 73 20 61 20 72 6F 77 20 6F 66 20 6D 2C 20 77 69 74 68 return) becomes a row of m, with 00000B60 20 70 61 64 64 69 6E 67 20 61 73 20 72 65 71 75 69 72 65 64 2E 20 22 62 6F 74 68 20 76 20 61 6E padding as required. "both v an 00000B80 64 20 6D 20 77 69 6C 6C 20 61 70 70 65 61 72 20 74 68 65 20 73 61 6D 65 20 77 68 65 6E 20 64 69 d m will appear the same when di 00000BA0 73 70 6C 61 79 65 64 2C 20 62 75 74 20 74 68 65 20 20 22 76 65 63 74 6F 72 20 72 65 70 72 65 73 splayed, but the "vector repres 00000BC0 65 6E 74 61 74 69 6F 6E 20 69 73 20 75 73 75 61 6C 6C 79 20 6D 6F 72 65 20 65 63 6F 6E 6F 6D 69 entation is usually more economi 00000BE0 63 61 6C 20 69 6E 20 20 20 20 20 20 20 20 22 73 74 6F 72 61 67 65 2E 20 20 74 68 65 20 67 6C 6F cal in "storage. the glo 00000C00 62 61 6C 20 60 63 60 72 20 6D 75 73 74 20 65 78 69 73 74 20 69 6E 20 77 6F 72 6B 73 70 61 63 65 bal `c`r must exist in workspace 00000C20 20 28 73 65 65 20 20 20 20 20 22 47 74 63 63 29 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (see "Gtcc). 00000C40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000C60 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 07 00 04 00 9E 50 01 00 01 00 0E 00 24 00 9C 51 FC FF ↕. ..ⁿ •.♦.₧P☺.☺.♫.$.£Qⁿ 00000C80 03 00 04 00 9B 50 01 00 20 20 20 20 36 00 9C 51 03 00 02 00 00 00 00 00 01 00 20 20 20 20 00 00 ♥.♦.¢P☺. 6.£Q♥.☻.....☺. .. 00000CA0 9C 51 FC FF 01 00 06 00 98 50 01 00 20 20 20 20 5A 00 9C 51 FC FF 1B 00 08 00 A7 50 01 00 28 2C £Qⁿ ☺.♠.ÿP☺. Z.£Qⁿ ←.◘.ºP☺.(, 00000CC0 60 4F 6C 00 9C 51 0C 00 1A 00 00 00 00 00 01 00 2C 6D 2C 60 7E 00 9C 51 FC FF 19 00 02 00 A7 50 `Ol.£Q♀.→.....☺.,m,`~.£Qⁿ ↓.☻.ºP 00000CE0 01 00 20 20 20 20 90 00 9C 51 0C 00 18 00 00 00 00 00 01 00 20 24 30 20 A2 00 9C 51 0F 00 17 00 ☺. É.£Q♀.↑.....☺. $0 ó.£Q☼.↨. 00000D00 00 00 00 00 01 00 20 20 20 20 B4 00 9C 51 09 00 16 00 00 00 00 00 01 00 20 20 20 20 C6 00 9C 51 ....☺. ┤.£Q○.▬.....☺. ╞.£Q 00000D20 FC FF 15 00 10 00 9E 50 01 00 20 20 20 20 D8 00 9C 51 46 00 13 00 00 00 00 00 01 00 65 73 73 20 ⁿ §.►.₧P☺. ╪.£QF.‼.....☺.ess 00000D40 EA 00 9C 51 3E 00 11 00 00 00 00 00 01 00 69 78 20 20 FC 00 9C 51 07 00 0E 00 0A 00 C2 50 01 00 Ω.£Q>.◄.....☺.ix ⁿ.£Q•.♫.◙.┬P☺. 00000D60 20 20 20 20 0E 01 9C 51 3C 00 0D 00 00 00 00 00 01 00 27 74 68 65 20 01 9C 51 36 00 0C 00 00 00 ♫☺£Q<.♪.....☺.'the ☺£Q6.♀... 00000D80 00 00 01 00 6F 66 20 74 32 01 9C 51 0C 00 0B 00 00 00 00 00 01 00 79 72 69 67 44 01 9C 51 FD FF ..☺.of t2☺£Q♀.♂.....☺.yrigD☺£Q² 00000DA0 0A 00 0A 00 B5 50 01 00 22 74 68 65 56 01 9C 51 46 00 08 00 00 00 00 00 01 00 72 79 20 66 68 01 ◙.◙.╡P☺."theV☺£QF.◘.....☺.ry fh☺ 00000DC0 9C 51 0C 00 07 00 00 00 00 00 01 00 20 74 77 6F 7A 01 9C 51 08 00 06 00 00 00 00 00 01 00 6E 20 £Q♀.•.....☺. twoz☺£Q◘.♠.....☺.n 00000DE0 20 20 8C 01 9C 51 35 00 05 00 00 00 00 00 01 00 72 61 63 74 9E 01 9C 51 FD FF 03 00 0E 00 AB 50 î☺£Q5.♣.....☺.ract₧☺£Q² ♥.♫.½P 00000E00 01 00 64 20 63 68 B0 01 9C 51 03 00 02 00 00 00 00 00 01 00 73 2E 20 20 FF FF 00 00 FC FF 01 00 ☺.d ch░☺£Q♥.☻.....☺.s. ..ⁿ ☺. 00000E20 0A 00 9E 50 01 00 63 6F 6E 76 D4 01 9C 51 FD FF 02 00 0C 00 25 51 01 00 65 72 20 6D FF FF 00 00 ◙.₧P☺.conv╘☺£Q² ☻.♀.%Q☺.er m .. 00000E40 04 00 01 00 00 00 00 00 01 00 68 61 72 61 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 22 20 20 20 ♦.☺.....☺.hara ..☻.......☺." 00000E60 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 6D 2C 20 77 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 ..☻.......☺.m, w ..☻.......☺. 00000E80 6C 61 6E 6B FF FF 00 00 02 00 00 00 00 00 00 00 01 00 6F 6D 65 73 FF FF 00 00 02 00 00 00 00 00 lank ..☻.......☺.omes ..☻..... 00000EA0 00 00 01 00 65 27 20 69 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 61 20 63 61 FF FF 00 00 02 00 ..☺.e' i ..☻.......☺.a ca ..☻. 00000EC0 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 63 6F 6E 76 FF FF ......☺. ..☻.......☺.conv 00000EE0 00 00 02 00 00 00 00 00 00 00 01 00 65 72 20 76 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 68 61 ..☻.......☺.er v ..☻.......☺.ha 00000F00 72 61 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 22 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 ra ..☻.......☺." ..☻....... 00000F20 01 00 28 61 20 63 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 67 20 65 6E FF FF 00 00 02 00 00 00 ☺.(a c ..☻.......☺.g en ..☻... 00000F40 00 00 00 00 01 00 69 61 67 65 00 00 48 00 C2 01 E6 01 F8 01 0A 02 1C 02 2E 02 40 02 52 02 64 02 ....☺.iage..H.┬☺µ☺°☺◙☻∟☻.☻@☻R☻d☻ 00000F60 76 02 88 02 9A 02 AC 02 BE 02 D0 02 36 00 FF FF 02 00 6D 00 04 00 6D 32 76 00 02 00 76 00 05 00 v☻ê☻Ü☻¼☻╛☻╨☻6. ☻.m.♦.m2v.☻.v.♣. 00000F80 60 63 60 72 00 02 00 6D 00 02 00 6D 00 08 00 01 00 00 00 01 00 20 04 00 01 00 00 00 02 00 01 00 `c`r.☻.m.☻.m.◘.☺...☺. ♦.☺...☻.☺. 00000FA0 04 00 01 00 00 00 02 00 FF FF 02 00 76 00 04 00 01 00 00 00 02 00 00 00 78 0A 00 6D 6F 6F 6E 70 ♦.☺...☻. ☻.v.♦.☺...☻...x◙.moonp 00000FC0 68 61 73 65 00 00 01 00 0A 16 00 06 00 04 00 0D 00 02 00 01 00 01 00 01 00 08 00 68 01 02 00 01 hase..☺.◙▬.♠.♦.♪.☻.☺.☺.☺.◘.h☺☻.☺ 00000FE0 00 06 00 3C 00 20 72 23 6D 6F 6F 6E 70 68 61 73 65 20 6D 64 79 73 20 20 20 20 20 20 20 20 20 20 .♠.<. r#moonphase mdys 00001000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001020 20 20 72 23 32 46 31 7C 25 32 39 2E 35 33 30 35 39 25 2D 39 2B 64 61 79 6E 6F 20 6D 64 79 73 20 r#2F1|%29.53059%-9+dayno mdys 00001040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 $0 00001060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001080 20 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 6D 6F 6F 6E 70 68 "moonph 000010A0 61 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ase 000010C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 "from 'the 000010E0 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 apl handbook of techniques' copy 00001100 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 30 2E 30 30 20 69 73 20 6E 65 77 20 6D 6F right 1978, ibm. "0.00 is new mo 00001120 6F 6E 3B 20 30 2E 37 35 20 69 73 20 6C 61 73 74 20 71 75 61 72 74 65 72 2E 20 20 20 20 20 20 20 on; 0.75 is last quarter. 00001140 20 20 20 20 20 20 20 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 0D 00 0C 00 18 51 01 00 01 00 05 ↕. ..ⁿ ♪.♀.↑Q☺.☺.♣ 00001160 00 24 00 28 53 FC FF 03 00 06 00 C0 50 01 00 6D 20 6B 20 36 00 28 53 03 00 02 00 00 00 00 00 01 .$.(Sⁿ ♥.♠.└P☺.m k 6.(S♥.☻.....☺ 00001180 00 20 20 20 20 00 00 28 53 FC FF 01 00 06 00 A6 50 01 00 20 20 20 20 5A 00 28 53 FC FF 1A 00 04 . ..(Sⁿ ☺.♠.ªP☺. Z.(Sⁿ →.♦ 000011A0 00 25 51 01 00 6F 72 6D 28 6C 00 28 53 FC FF 14 00 04 00 19 51 01 00 72 65 63 74 7E 00 28 53 0B .%Q☺.orm(l.(Sⁿ ¶.♦.↓Q☺.rect~.(S♂ 000011C0 00 13 00 00 00 00 00 01 00 20 20 20 20 90 00 28 53 FD FF 11 00 06 00 53 51 01 00 24 30 20 20 A2 .‼.....☺. É.(S² ◄.♠.SQ☺.$0 ó 000011E0 00 28 53 05 00 10 00 00 00 00 00 01 00 20 20 20 20 B4 00 28 53 FD FF 08 00 10 00 4C 51 01 00 20 .(S♣.►.....☺. ┤.(S² ◘.►.LQ☺. 00001200 20 20 20 C6 00 28 53 05 00 07 00 00 00 00 00 01 00 20 20 20 20 D8 00 28 53 83 00 06 00 00 00 00 ╞.(S♣.•.....☺. ╪.(Sâ.♠.... 00001220 00 01 00 75 73 65 64 EA 00 28 53 FD FF 05 00 0C 00 3D 51 01 00 75 70 2E 20 FC 00 28 53 26 00 04 .☺.usedΩ.(S² ♣.♀.=Q☺.up. ⁿ.(S&.♦ 00001240 00 00 00 00 00 01 00 20 20 20 20 0E 01 28 53 FD FF 03 00 0A 00 33 51 01 00 27 74 68 65 20 01 28 .....☺. ♫☺(S² ♥.◙.3Q☺.'the ☺( 00001260 53 03 00 02 00 00 00 00 00 01 00 6F 66 20 74 FF FF 00 00 FC FF 01 00 0C 00 A6 50 01 00 79 72 69 S♥.☻.....☺.of t ..ⁿ ☺.♀.ªP☺.yri 00001280 67 44 01 28 53 FD FF 02 00 08 00 D1 51 01 00 00 66 04 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 gD☺(S² ☻.◘.╤Q☺..f♦. ..♦.☺.....☺ 000012A0 00 64 62 6F 6F FF FF 00 00 02 00 00 00 00 00 00 00 01 00 73 27 20 63 FF FF 00 00 02 00 00 00 00 .dboo ..☻.......☺.s' c ..☻.... 000012C0 00 00 00 01 00 20 69 62 6D FF FF 00 00 02 00 00 00 00 00 00 00 01 00 38 53 FC FF 00 00 48 00 32 ...☺. ibm ..☻.......☺.8Sⁿ ..H.2 000012E0 01 56 01 68 01 7A 01 36 00 FF FF 05 00 6D 64 79 73 00 0A 00 6D 6F 6F 6E 70 68 61 73 65 00 02 00 ☺V☺h☺z☺6. ♣.mdys.◙.moonphase.☻. 00001300 72 00 05 00 6D 64 79 73 00 06 00 64 61 79 6E 6F 00 04 00 01 00 00 00 02 00 F7 FF 02 00 01 00 00 r.♣.mdys.♠.dayno.♦.☺...☻.≈ ☻.☺.. 00001320 00 08 00 AC 95 09 BF D4 87 3D 40 04 00 01 00 00 00 02 00 01 00 04 00 01 00 00 00 02 00 02 00 02 .◘.¼ò○┐╘ç=@♦.☺...☻.☺.♦.☺...☻.☻.☻ 00001340 00 72 00 04 00 01 00 00 00 02 00 00 00 78 07 00 6E 64 61 74 65 73 00 00 01 00 0A 2C 00 07 00 04 .r.♦.☺...☻...x•.ndates..☺.◙,.•.♦ 00001360 00 12 00 11 00 02 00 01 00 01 00 01 00 08 00 AB 01 02 00 01 00 07 00 3D 00 20 72 23 6E 64 61 74 .↕.◄.☻.☺.☺.☺.◘.½☺☻.☺.•.=. r#ndat 00001380 65 73 20 6B 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 es km 000013A0 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 28 31 59 52 6B 6D r#((1YRkm 000013C0 29 2C 33 29 52 43 2C 31 20 31 20 30 20 31 20 31 20 30 20 31 20 31 20 30 5C 6B 6D 20 20 20 20 20 ),3)RC,1 1 0 1 1 0 1 1 0\km 000013E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 5B 3B 4C 69 6F 2B 32 5D 23 72 5B r[;Lio+2]#r[ 00001400 3B 4C 69 6F 2B 32 5D 2B 31 39 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;Lio+2]+1900 00001420 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 20 20 $0 00001440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001460 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6E 64 61 74 65 73 20 63 6F 6E 76 65 72 74 20 64 61 74 "ndates convert dat 00001480 65 73 20 69 6E 20 63 68 61 72 61 63 74 65 72 20 6D 61 74 72 69 63 65 73 2E 20 20 73 65 65 20 47 es in character matrices. see G 000014A0 64 61 79 73 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 days "from 'the apl handboo 000014C0 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, 000014E0 20 69 62 6D 2E 20 20 22 61 73 73 75 6D 65 73 20 32 30 74 68 20 63 65 6E 74 75 72 79 2E 20 20 20 ibm. "assumes 20th century. 00001500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001520 20 20 20 20 12 00 FF FF 00 00 FC FF 0A 00 02 00 52 51 01 00 01 00 0F 00 24 00 61 54 FC FF 03 00 ↕. ..ⁿ ◙.☻.RQ☺.☺.☼.$.aTⁿ ♥. 00001540 0A 00 2C 51 01 00 20 20 20 20 36 00 61 54 03 00 02 00 00 00 00 00 01 00 20 20 20 20 00 00 61 54 ◙.,Q☺. 6.aT♥.☻.....☺. ..aT 00001560 FC FF 01 00 04 00 2C 51 01 00 20 20 20 20 5A 00 61 54 FC FF 23 00 02 00 CD 51 01 00 70 72 65 63 ⁿ ☺.♦.,Q☺. Z.aTⁿ #.☻.═Q☺.prec 00001580 6C 00 61 54 3C 00 22 00 00 00 00 00 01 00 6D 75 6C 74 7E 00 61 54 FD FF 11 00 10 00 48 52 01 00 l.aT<.".....☺.mult~.aT² ◄.►.HR☺. 000015A0 20 20 20 20 90 00 61 54 0C 00 10 00 00 00 00 00 01 00 22 6D 61 6B A2 00 61 54 23 00 0F 00 00 00 É.aT♀.►.....☺."makó.aT#.☼... 000015C0 00 00 01 00 72 20 6F 66 B4 00 61 54 32 00 0E 00 00 00 00 00 01 00 20 74 6F 20 C6 00 61 54 09 00 ..☺.r of┤.aT2.♫.....☺. to ╞.aT○. 000015E0 0D 00 00 00 00 00 01 00 20 20 20 20 D8 00 61 54 FD FF 0C 00 10 00 F4 51 01 00 66 69 78 20 EA 00 ♪.....☺. ╪.aT² ♀.►.⌠Q☺.fix Ω. 00001600 61 54 0C 00 0B 00 00 00 00 00 01 00 31 20 20 20 FC 00 61 54 09 00 0A 00 00 00 00 00 01 00 20 20 aT♀.♂.....☺.1 ⁿ.aT○.◙.....☺. 00001620 20 20 0E 01 61 54 FC FF 08 00 0E 00 52 51 01 00 20 20 20 20 20 01 61 54 32 00 07 00 00 00 00 00 ♫☺aTⁿ ◘.♫.RQ☺. ☺aT2.•..... 00001640 01 00 20 20 20 20 32 01 61 54 39 00 06 00 00 00 00 00 01 00 20 20 20 20 44 01 61 54 FD FF 05 00 ☺. 2☺aT9.♠.....☺. D☺aT² ♣. 00001660 0C 00 E4 51 01 00 20 61 23 62 56 01 61 54 08 00 04 00 00 00 00 00 01 00 20 20 20 20 68 01 61 54 ♀.ΣQ☺. a#bV☺aT◘.♦.....☺. h☺aT 00001680 08 00 03 00 00 00 00 00 01 00 20 20 20 20 7A 01 61 54 03 00 02 00 00 00 00 00 01 00 20 20 20 20 ◘.♥.....☺. z☺aT♥.☻.....☺. 000016A0 FF FF 00 00 FC FF 01 00 08 00 52 51 01 00 20 20 20 20 9E 01 61 54 FD FF 15 00 0E 00 62 52 01 00 ..ⁿ ☺.◘.RQ☺. ₧☺aT² §.♫.bR☺. 000016C0 20 20 20 20 B0 01 61 54 0B 00 14 00 00 00 00 00 01 00 20 20 20 20 C2 01 61 54 3D 00 13 00 00 00 ░☺aT♂.¶.....☺. ┬☺aT=.‼... 000016E0 00 00 01 00 20 66 6F 72 D4 01 61 54 FD FF 12 00 02 00 5C 52 01 00 66 6C 6F 77 E6 01 61 54 0B 00 ..☺. for╘☺aT² ↕.☻.\R☺.flowµ☺aT♂. 00001700 11 00 00 00 00 00 01 00 25 31 65 37 F8 01 61 54 ED FF 0E 00 00 00 00 00 01 00 6C 31 3A 24 0A 02 ◄.....☺.%1e7°☺aTφ ♫.....☺.l1:$◙☻ 00001720 61 54 1B 00 0D 00 00 00 00 00 01 00 62 29 2F 6C 1C 02 61 54 3B 00 0C 00 00 00 00 00 01 00 20 20 aT←.♪.....☺.b)/l∟☻aT;.♀.....☺. 00001740 20 20 2E 02 61 54 FC FF 0B 00 10 00 D7 51 01 00 20 20 20 20 40 02 61 54 03 00 0A 00 00 00 00 00 .☻aTⁿ ♂.►.╫Q☺. @☻aT♥.◙..... 00001760 01 00 30 30 30 30 52 02 61 54 3D 00 09 00 00 00 00 00 01 00 30 7C 63 20 64 02 61 54 FD FF 08 00 ☺.0000R☻aT=.○.....☺.0|c d☻aT² ◘. 00001780 06 00 4B 52 01 00 20 20 20 20 76 02 61 54 0B 00 07 00 00 00 00 00 01 00 61 6E 2B 60 88 02 61 54 ♠.KR☺. v☻aT♂.•.....☺.an+`ê☻aT 000017A0 ED FF 04 00 00 00 00 00 01 00 28 28 52 61 9A 02 61 54 1B 00 03 00 00 00 00 00 01 00 20 20 20 20 φ ♦.....☺.((RaÜ☻aT←.♥.....☺. 000017C0 AC 02 61 54 3B 00 02 00 00 00 00 00 01 00 20 24 30 20 FF FF 00 00 FC FF 01 00 0A 00 D7 51 01 00 ¼☻aT;.☻.....☺. $0 ..ⁿ ☺.◙.╫Q☺. 000017E0 20 20 20 20 D0 02 61 54 FD FF 02 00 02 00 6A 52 01 00 20 20 20 20 FF FF 00 00 04 00 01 00 00 00 ╨☻aT² ☻.☻.jR☺. ..♦.☺... 00001800 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 70 72 65 63 FF FF 00 00 02 00 ..☺. ..☻.......☺.prec ..☻. 00001820 00 00 00 00 00 00 01 00 6D 75 6C 74 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 00 00 ......☺.mult ..☻.......☺. .. 00001840 48 00 8C 01 BE 02 E2 02 F4 02 06 03 36 00 FF FF 03 00 6B 6D 00 07 00 6E 64 61 74 65 73 00 02 00 H.î☺╛☻Γ☻⌠☻♠♥6. ♥.km.•.ndates.☻. 00001860 72 00 03 00 6B 6D 00 04 00 09 00 01 00 02 00 09 00 01 00 01 00 00 00 01 00 01 00 00 00 01 00 01 r.♥.km.♦.○.☺.☻.○.☺.☺...☺.☺...☺.☺ 00001880 00 00 00 04 00 01 00 00 00 02 00 03 00 03 00 6B 6D 00 04 00 01 00 00 00 02 00 01 00 02 00 72 00 ...♦.☺...☻.♥.♥.km.♦.☺...☻.☺.☻.r. 000018A0 04 00 01 00 00 00 02 00 6C 07 04 00 01 00 00 00 02 00 02 00 02 00 72 00 04 00 01 00 00 00 02 00 ♦.☺...☻.l•♦.☺...☻.☻.☻.r.♦.☺...☻. 000018C0 02 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 78 04 00 6D 75 6C 00 00 01 00 0C 73 00 12 00 05 ☻.☻.r.♦.☺...☻...x♦.mul..☺.♀s.↕.♣ 000018E0 00 01 00 01 00 17 00 03 00 03 00 03 00 01 00 11 00 12 00 1C 00 02 00 01 00 01 00 01 00 01 00 01 .☺.☺.↨.♥.♥.♥.☺.◄.↕.∟.☻.☺.☺.☺.☺.☺ 00001900 00 01 00 08 00 38 04 02 00 01 00 12 00 3C 00 20 63 23 61 20 6D 75 6C 20 62 20 20 20 20 20 20 20 .☺.◘.8♦☻.☺.↕.<. c#a mul b 00001920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001940 20 20 20 20 20 20 20 20 20 20 20 22 6D 75 6C 74 69 70 72 65 63 69 73 69 6F 6E 20 69 6E 74 65 67 "multiprecision integ 00001960 65 72 20 6D 75 6C 74 69 70 6C 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 er multiply 00001980 20 20 20 20 20 20 20 22 6D 61 6B 65 20 61 20 74 68 65 20 73 68 6F 72 74 65 72 20 6F 66 20 74 68 "make a the shorter of th 000019A0 65 20 61 72 67 75 6D 65 6E 74 73 20 74 6F 20 73 61 76 65 20 73 70 61 63 65 20 20 20 20 20 20 20 e arguments to save space 000019C0 20 20 20 20 24 28 28 52 61 29 3D 28 52 61 23 66 69 78 20 61 29 44 52 62 23 66 69 78 20 62 29 2F $((Ra)=(Ra#fix a)DRb#fix b)/ 000019E0 6C 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 20 20 20 20 20 l1 00001A00 63 23 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c#a 00001A20 20 20 20 20 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 62 20 a#b 00001A40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001A60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 23 63 20 20 20 20 20 b#c 00001A80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001AA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 68 65 63 6B 20 66 6F 72 20 70 6F "check for po 00001AC0 73 73 69 62 6C 65 20 6F 76 65 72 66 6C 6F 77 20 28 37 32 30 20 3D 20 28 32 2A 35 36 29 25 31 65 ssible overflow (720 = (2*56)%1e 00001AE0 37 2A 32 29 2E 20 20 20 20 20 20 20 20 20 20 6C 31 3A 24 28 37 32 30 3E 31 59 52 63 23 61 4A 2E 7*2). l1:$(720>1YRc#aJ. 00001B00 58 62 29 2F 6C 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 Xb)/l2 00001B20 20 20 20 20 20 20 20 20 20 20 20 20 63 23 28 28 44 63 25 31 30 30 30 30 30 30 30 29 2C 30 29 2B c#((Dc%10000000),0)+ 00001B40 30 2C 31 30 30 30 30 30 30 30 7C 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0,10000000|c 00001B60 20 20 20 20 20 20 20 6C 32 3A 63 23 63 61 6E 2B 60 2F 28 4C 69 6F 5F 49 52 61 29 60 4F 63 2C 28 l2:c#can+`/(Lio_IRa)`Oc,( 00001B80 28 52 61 29 2C 2D 31 2B 52 61 29 52 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (Ra),-1+Ra)R0 00001BA0 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 00001BC0 20 20 20 20 20 20 20 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 " 00001BE0 6D 75 6C 20 2D 20 6D 75 6C 74 69 70 72 65 63 69 73 69 6F 6E 20 69 6E 74 65 67 65 72 20 6D 75 6C mul - multiprecision integer mul 00001C00 74 69 70 6C 69 63 61 74 69 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D tiplication "from 00001C20 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 00001C40 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 61 20 69 73 20 6D 75 ' copyright 1978, ibm. "-a is mu 00001C60 6C 74 69 70 6C 69 65 64 20 62 79 20 62 2C 20 67 69 76 69 6E 67 20 63 2C 20 75 73 69 6E 67 20 6D ltiplied by b, giving c, using m 00001C80 75 6C 74 69 70 72 65 63 69 73 69 6F 6E 20 20 20 20 20 20 22 20 69 6E 74 65 67 65 72 20 61 72 69 ultiprecision " integer ari 00001CA0 74 68 6D 65 74 69 63 3B 20 61 20 61 6E 64 20 62 20 6D 61 79 20 62 65 20 69 6E 20 61 6E 79 20 6E thmetic; a and b may be in any n 00001CC0 75 6D 65 72 69 63 20 66 6F 72 6D 61 74 20 20 22 2D 73 65 65 20 74 68 65 20 64 65 73 63 72 69 70 umeric format "-see the descrip 00001CE0 74 69 6F 6E 20 75 6E 64 65 72 20 47 61 64 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tion under Gadd 00001D00 20 20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 66 69 78 20 47 63 61 6E 20 20 20 20 "-uses: Gfix Gcan 00001D20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001D40 20 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 09 00 0E 00 2D 51 01 00 07 00 2A 00 24 00 54 55 FC ↕. ..ⁿ ○.♫.-Q☺.•.*.$.TUⁿ 00001D60 FF 05 00 08 00 2D 51 01 00 46 00 28 00 00 00 54 55 FC FF 03 00 04 00 0E 51 01 00 FC FF 27 00 48 ♣.◘.-Q☺.F.(...TUⁿ ♥.♦.♫Q☺.ⁿ '.H 00001D80 00 54 55 03 00 02 00 00 00 00 00 01 00 0C 00 26 00 24 00 54 55 FC FF 01 00 06 00 B9 50 01 00 09 .TU♥.☻.....☺.♀.&.$.TUⁿ ☺.♠.╣P☺.○ 00001DA0 00 25 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 07 00 22 00 FF FF 00 00 02 00 00 00 00 00 00 .%. ..☻.......☺.•.". ..☻...... 00001DC0 00 01 00 0C 00 21 00 90 00 54 55 FC FF 1D 00 08 00 3F 51 01 00 09 00 20 00 A2 00 54 55 0F 00 1C .☺.♀.!.É.TUⁿ ↔.◘.?Q☺.○. .ó.TU☼.∟ 00001DE0 00 00 00 00 00 01 00 FC FF 1F 00 B4 00 54 55 09 00 1B 00 00 00 00 00 01 00 29 00 1E 00 C6 00 54 .....☺.ⁿ ▼.┤.TU○.←.....☺.).▲.╞.T 00001E00 55 FC FF 1A 00 02 00 3F 51 01 00 32 00 1D 00 D8 00 54 55 FC FF 16 00 0C 00 35 51 01 00 09 00 1C Uⁿ →.☻.?Q☺.2.↔.╪.TUⁿ ▬.♀.5Q☺.○.∟ 00001E20 00 EA 00 54 55 03 00 15 00 00 00 00 00 01 00 FD FF 1B 00 FC 00 54 55 FC FF 14 00 06 00 35 51 01 .Ω.TU♥.§.....☺.² ←.ⁿ.TUⁿ ¶.♠.5Q☺ 00001E40 00 0C 00 1A 00 0E 01 54 55 32 00 13 00 00 00 00 00 01 00 FC FF 19 00 20 01 54 55 24 00 12 00 00 .♀.→.♫☺TU2.‼.....☺.ⁿ ↓. ☺TU$.↕.. 00001E60 00 00 00 01 00 08 00 18 00 32 01 54 55 09 00 11 00 00 00 00 00 01 00 26 00 17 00 44 01 54 55 FC ...☺.◘.↑.2☺TU○.◄.....☺.&.↨.D☺TUⁿ 00001E80 FF 10 00 10 00 34 51 01 00 FD FF 14 00 56 01 54 55 FC FF 0C 00 08 00 30 51 01 00 08 00 13 00 68 ►.►.4Q☺.² ¶.V☺TUⁿ ♀.◘.0Q☺.◘.‼.h 00001EA0 01 54 55 03 00 0B 00 00 00 00 00 01 00 46 00 11 00 7A 01 54 55 FC FF 0A 00 02 00 30 51 01 00 FC ☺TU♥.♂.....☺.F.◄.z☺TUⁿ ◙.☻.0Q☺.ⁿ 00001EC0 FF 10 00 8C 01 54 55 32 00 09 00 00 00 00 00 01 00 0C 00 0F 00 9E 01 54 55 08 00 08 00 00 00 00 ►.î☺TU2.○.....☺.♀.☼.₧☺TU◘.◘.... 00001EE0 00 01 00 07 00 0C 00 B0 01 54 55 1D 00 07 00 00 00 00 00 01 00 3D 00 0B 00 C2 01 54 55 09 00 06 .☺.•.♀.░☺TU↔.•.....☺.=.♂.┬☺TU○.♠ 00001F00 00 00 00 00 00 01 00 FD FF 0A 00 D4 01 54 55 FC FF 05 00 0C 00 2F 51 01 00 3B 00 09 00 E6 01 54 .....☺.² ◙.╘☺TUⁿ ♣.♀./Q☺.;.○.µ☺T 00001F20 55 32 00 04 00 00 00 00 00 01 00 0C 00 08 00 F8 01 54 55 08 00 03 00 00 00 00 00 01 00 07 00 05 U2.♦.....☺.♀.◘.°☺TU◘.♥.....☺.•.♣ 00001F40 00 0A 02 54 55 08 00 02 00 00 00 00 00 01 00 08 00 04 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 .◙☻TU◘.☻.....☺.◘.♦. ..♦.☺.....☺ 00001F60 00 08 00 03 00 2E 02 54 55 FC FF 03 00 02 00 4F 51 01 00 03 00 02 00 40 02 54 55 03 00 02 00 00 .◘.♥..☻TUⁿ ♥.☻.OQ☺.♥.☻.@☻TU♥.☻.. 00001F80 00 00 00 01 00 FC FF 01 00 FF FF 00 00 FC FF 01 00 0C 00 4E 51 01 00 07 00 0C 00 64 02 54 55 FC ...☺.ⁿ ☺. ..ⁿ ☺.♀.NQ☺.•.♀.d☻TUⁿ 00001FA0 FF 03 00 0A 00 57 51 01 00 03 00 0B 00 76 02 54 55 03 00 02 00 00 00 00 00 01 00 3D 00 0A 00 FF ♥.◙.WQ☺.♥.♂.v☻TU♥.☻.....☺.=.◙. 00001FC0 FF 00 00 FC FF 01 00 0C 00 54 51 01 00 FD FF 09 00 9A 02 54 55 FC FF 03 00 04 00 D3 51 01 00 1B ..ⁿ ☺.♀.TQ☺.² ○.Ü☻TUⁿ ♥.♦.╙Q☺.← 00001FE0 00 08 00 AC 02 54 55 03 00 02 00 00 00 00 00 01 00 FD FF 07 00 FF FF 00 00 FC FF 01 00 0E 00 D2 .◘.¼☻TU♥.☻.....☺.² •. ..ⁿ ☺.♫.╥ 00002000 51 01 00 0B 00 06 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 FC FF 05 00 E2 02 54 55 FC FF 15 Q☺.♂.♠. ..☻.......☺.ⁿ ♣.Γ☻TUⁿ § 00002020 00 0A 00 F2 51 01 00 0C 00 04 00 F4 02 54 55 0F 00 14 00 00 00 00 00 01 00 FD FF 03 00 06 03 54 .◙.≥Q☺.♀.♦.⌠☻TU☼.¶.....☺.² ♥.♠♥T 00002040 55 09 00 13 00 00 00 00 00 01 00 3B 00 02 00 18 03 54 55 FC FF 12 00 0E 00 E2 51 01 00 FC FF 01 U○.‼.....☺.;.☻.↑♥TUⁿ ↕.♫.ΓQ☺.ⁿ ☺ 00002060 00 2A 03 54 55 38 00 11 00 00 00 00 00 01 00 FD FF 02 00 3C 03 54 55 0E 00 10 00 00 00 00 00 01 .*♥TU8.◄.....☺.² ☻.<♥TU♫.►.....☺ 00002080 00 04 00 01 00 4E 03 54 55 2A 00 0F 00 00 00 00 00 01 00 02 00 00 00 60 03 54 55 FC FF 0E 00 04 .♦.☺.N♥TU*.☼.....☺.☻...`♥TUⁿ ♫.♦ 000020A0 00 DD 51 01 00 02 00 00 00 72 03 54 55 03 00 0D 00 00 00 00 00 01 00 02 00 00 00 84 03 54 55 FC .▌Q☺.☻...r♥TU♥.♪.....☺.☻...ä♥TUⁿ 000020C0 FF 0C 00 02 00 D9 51 01 00 02 00 00 00 96 03 54 55 32 00 0B 00 00 00 00 00 01 00 02 00 00 00 A8 ♀.☻.┘Q☺.☻...û♥TU2.♂.....☺.☻...¿ 000020E0 03 54 55 39 00 0A 00 00 00 00 00 01 00 02 00 00 00 BA 03 54 55 FD FF 09 00 0A 00 52 52 01 00 02 ♥TU9.◙.....☺.☻...║♥TU² ○.◙.RR☺.☻ 00002100 00 00 00 CC 03 54 55 1E 00 08 00 00 00 00 00 01 00 02 00 00 00 DE 03 54 55 FD FF 05 00 0E 00 4D ...╠♥TU▲.◘.....☺.☻...▐♥TU² ♣.♫.M 00002120 52 01 00 D2 05 ED FF F0 03 54 55 08 00 04 00 00 00 00 00 01 00 92 55 1B 00 02 04 54 55 04 00 03 R☺.╥♣φ ≡♥TU◘.♦.....☺.ÆU←.☻♦TU♦.♥ 00002140 00 00 00 00 00 01 00 92 55 FC FF 14 04 54 55 1A 00 02 00 00 00 00 00 01 00 92 55 FC FF 74 07 54 .....☺.ÆUⁿ ¶♦TU→.☻.....☺.ÆUⁿ t•T 00002160 55 FC FF 08 00 0C 00 D8 51 01 00 92 55 FC FF 38 04 54 55 FC FF 20 00 02 00 1D 52 01 00 92 55 03 Uⁿ ◘.♀.╪Q☺.ÆUⁿ 8♦TUⁿ .☻.↔R☺.ÆU♥ 00002180 00 4A 04 54 55 83 00 1F 00 00 00 00 00 01 00 92 55 FC FF 5C 04 54 55 FD FF 17 00 02 00 7F 52 01 .J♦TUâ.▼.....☺.ÆUⁿ \♦TU² ↨.☻.⌂R☺ 000021A0 00 92 55 FD FF 6E 04 54 55 0C 00 16 00 00 00 00 00 01 00 92 55 03 00 80 04 54 55 FD FF 15 00 0C .ÆU² n♦TU♀.▬.....☺.ÆU♥.Ç♦TU² §.♀ 000021C0 00 7D 52 01 00 92 55 ED FF 92 04 54 55 0B 00 14 00 00 00 00 00 01 00 92 55 FC FF A4 04 54 55 09 .}R☺.ÆUφ Æ♦TU♂.¶.....☺.ÆUⁿ ñ♦TU○ 000021E0 00 13 00 00 00 00 00 01 00 92 55 FC FF B6 04 54 55 FD FF 12 00 08 00 78 52 01 00 92 55 32 00 C8 .‼.....☺.ÆUⁿ ╢♦TU² ↕.◘.xR☺.ÆU2.╚ 00002200 04 54 55 0C 00 11 00 00 00 00 00 01 00 92 55 0F 00 DA 04 54 55 09 00 10 00 00 00 00 00 01 00 92 ♦TU♀.◄.....☺.ÆU☼.┌♦TU○.►.....☺.Æ 00002220 55 38 00 EC 04 54 55 FD FF 08 00 0A 00 72 52 01 00 92 55 29 00 FE 04 54 55 05 00 07 00 00 00 00 U8.∞♦TU² ◘.◙.rR☺.ÆU).■♦TU♣.•.... 00002240 00 01 00 92 55 0F 00 10 05 54 55 FC FF 06 00 06 00 F3 51 01 00 92 55 09 00 22 05 54 55 24 00 05 .☺.ÆU☼.►♣TUⁿ ♠.♠.≤Q☺.ÆU○."♣TU$.♣ 00002260 00 00 00 00 00 01 00 92 55 FC FF 34 05 54 55 08 00 04 00 00 00 00 00 01 00 92 55 0C 00 46 05 54 .....☺.ÆUⁿ 4♣TU◘.♦.....☺.ÆU♀.F♣T 00002280 55 08 00 03 00 00 00 00 00 01 00 92 55 1D 00 58 05 54 55 03 00 02 00 00 00 00 00 01 00 92 55 0E U◘.♥.....☺.ÆU↔.X♣TU♥.☻.....☺.ÆU♫ 000022A0 00 FF FF 00 00 FC FF 01 00 10 00 F2 51 01 00 92 55 2A 00 7C 05 54 55 FD FF 25 00 0C 00 D3 52 01 . ..ⁿ ☺.►.≥Q☺.ÆU*.|♣TU² %.♀.╙R☺ 000022C0 00 92 55 09 00 8E 05 54 55 32 00 24 00 00 00 00 00 01 00 92 55 FC FF A0 05 54 55 09 00 23 00 00 .ÆU○.Ä♣TU2.$.....☺.ÆUⁿ á♣TU○.#.. 000022E0 00 00 00 01 00 92 55 0C 00 B2 05 54 55 FC FF 22 00 08 00 4D 52 01 00 92 55 08 00 C4 05 54 55 32 ...☺.ÆU♀.▓♣TUⁿ ".◘.MR☺.ÆU◘.─♣TU2 00002300 00 21 00 00 00 00 00 01 00 92 55 46 00 D6 05 54 55 0B 00 20 00 00 00 00 00 01 00 92 55 09 00 E8 .!.....☺.ÆUF.╓♣TU♂. .....☺.ÆU○.Φ 00002320 05 54 55 FD FF 1E 00 04 00 A9 52 01 00 92 55 FC FF FA 05 54 55 0C 00 1D 00 00 00 00 00 01 00 92 ♣TU² ▲.♦.⌐R☺.ÆUⁿ ·♣TU♀.↔.....☺.Æ 00002340 55 0C 00 0C 06 54 55 09 00 1C 00 00 00 00 00 01 00 92 55 32 00 1E 06 54 55 FC FF 1B 00 02 00 4D U♀.♀♠TU○.∟.....☺.ÆU2.▲♠TUⁿ ←.☻.M 00002360 52 01 00 92 55 29 00 30 06 54 55 32 00 1A 00 00 00 00 00 01 00 92 55 08 00 42 06 54 55 08 00 19 R☺.ÆU).0♠TU2.→.....☺.ÆU◘.B♠TU◘.↓ 00002380 00 00 00 00 00 01 00 92 55 40 00 54 06 54 55 08 00 18 00 00 00 00 00 01 00 92 55 06 00 66 06 54 .....☺.ÆU@.T♠TU◘.↑.....☺.ÆU♠.f♠T 000023A0 55 0C 00 17 00 00 00 00 00 01 00 92 55 08 00 78 06 54 55 FC FF 16 00 0C 00 4C 52 01 00 92 55 2E U♀.↨.....☺.ÆU◘.x♠TUⁿ ▬.♀.LR☺.ÆU. 000023C0 00 8A 06 54 55 46 00 14 00 00 00 00 00 01 00 92 55 09 00 9C 06 54 55 09 00 13 00 00 00 00 00 01 .è♠TUF.¶.....☺.ÆU○.£♠TU○.‼.....☺ 000023E0 00 92 55 FC FF AE 06 54 55 FC FF 12 00 10 00 24 52 01 00 92 55 32 00 C0 06 54 55 32 00 11 00 00 .ÆUⁿ «♠TUⁿ ↕.►.$R☺.ÆU2.└♠TU2.◄.. 00002400 00 00 00 01 00 92 55 08 00 D2 06 54 55 29 00 10 00 00 00 00 00 01 00 92 55 03 00 E4 06 54 55 3F ...☺.ÆU◘.╥♠TU).►.....☺.ÆU♥.Σ♠TU? 00002420 00 0F 00 00 00 00 00 01 00 00 00 FC FF F6 06 54 55 ED FF 0C 00 00 00 00 00 01 00 92 55 FD FF 08 .☼.....☺...ⁿ ÷♠TUφ ♀.....☺.ÆU² ◘ 00002440 07 54 55 08 00 0B 00 00 00 00 00 01 00 00 00 04 00 1A 07 54 55 40 00 09 00 00 00 00 00 01 00 00 •TU◘.♂.....☺...♦.→•TU@.○.....☺.. 00002460 00 02 00 2C 07 54 55 0B 00 08 00 00 00 00 00 01 00 00 00 02 00 3E 07 54 55 FC FF 05 00 0A 00 24 .☻.,•TU♂.◘.....☺...☻.>•TUⁿ ♣.◙.$ 00002480 52 01 00 00 00 02 00 50 07 54 55 03 00 04 00 00 00 00 00 01 00 00 00 02 00 62 07 54 55 FC FF 03 R☺...☻.P•TU♥.♦.....☺...☻.b•TUⁿ ♥ 000024A0 00 06 00 20 52 01 00 00 00 02 00 74 07 54 55 1A 00 02 00 00 00 00 00 01 00 00 00 02 00 FF FF 00 .♠. R☺...☻.t•TU→.☻.....☺...☻. . 000024C0 00 FC FF 0A 00 10 00 1F 52 01 00 F0 55 28 02 98 07 54 55 FD FF 02 00 02 00 DA 52 01 00 20 20 20 .ⁿ ◙.►.▼R☺.≡U(☻ÿ•TU² ☻.☻.┌R☺. 000024E0 20 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 02 00 1C 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 ..♦.☺.....☺.☻.∟. ..☻.......☺ 00002500 00 66 20 61 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 .f a ..☻.......☺. ..☻.... 00002520 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 72 23 28 FF FF 00 00 02 ...☺. ..☻.......☺. r#( ..☻ 00002540 00 00 00 00 00 00 00 01 00 4F 61 29 5F FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 00 .......☺.Oa)_ ..☻.......☺. . 00002560 00 5A 00 6C 00 7E 00 1C 02 52 02 88 02 BE 02 D0 02 26 04 6A 05 86 07 AA 07 BC 07 CE 07 E0 07 F2 .Z.l.~.∟☻R☻ê☻╛☻╨☻&♦j♣啬•╝•╬•α•≥ 00002580 07 04 08 48 00 14 04 02 00 62 00 04 00 6D 75 6C 00 02 00 61 00 02 00 63 00 03 00 6C 31 00 02 00 •♦◘H.¶♦☻.b.♦.mul.☻.a.☻.c.♥.l1.☻. 000025A0 62 00 04 00 66 69 78 00 02 00 62 00 02 00 61 00 04 00 66 69 78 00 02 00 61 00 02 00 61 00 02 00 b.♦.fix.☻.b.☻.a.♦.fix.☻.a.☻.a.☻. 000025C0 61 00 02 00 63 00 02 00 62 00 02 00 61 00 02 00 63 00 02 00 62 00 03 00 6C 32 00 02 00 62 00 02 a.☻.c.☻.b.☻.a.☻.c.☻.b.♥.l2.☻.b.☻ 000025E0 00 61 00 02 00 63 00 04 00 01 00 00 00 02 00 01 00 04 00 01 00 00 00 02 00 D0 02 03 00 6C 31 00 .a.☻.c.♦.☺...☻.☺.♦.☺...☻.╨☻♥.l1. 00002600 02 00 63 00 02 00 01 00 00 00 08 00 00 00 00 00 D0 12 63 41 04 00 01 00 00 00 02 00 00 00 04 00 ☻.c.☻.☺...◘.....╨↕cA♦.☺...☻...♦. 00002620 01 00 00 00 02 00 00 00 02 00 01 00 00 00 08 00 00 00 00 00 D0 12 63 41 02 00 63 00 02 00 63 00 ☺...☻...☻.☺...◘.....╨↕cA☻.c.☻.c. 00002640 04 00 01 00 00 00 02 00 00 00 02 00 61 00 04 00 01 00 00 00 02 00 FF FF 02 00 61 00 02 00 63 00 ♦.☺...☻...☻.a.♦.☺...☻. ☻.a.☻.c. 00002660 02 00 61 00 04 00 63 61 6E 00 02 00 63 00 03 00 6C 32 00 04 00 01 00 00 00 02 00 00 00 78 06 00 ☻.a.♦.can.☻.c.♥.l2.♦.☺...☻...x♠. 00002680 6D 65 64 69 74 00 00 01 00 0C 42 00 12 00 07 00 2A 00 02 00 01 00 01 00 01 00 01 00 01 00 01 00 medit..☺.♀B.↕.•.*.☻.☺.☺.☺.☺.☺.☺. 000026A0 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 000026C0 23 6B 64 20 6D 65 64 69 74 20 6D 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #kd medit m;Lio 000026E0 20 20 20 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 28 28 r#((( 00002700 31 59 6B 64 29 2C 31 55 52 6D 29 59 6D 29 6F 6E 28 43 51 29 6F 6E 28 28 31 55 6B 64 29 2C 30 29 1Ykd),1URm)Ym)on(CQ)on((1Ukd),0) 00002720 55 6D 23 6D 61 74 72 69 78 20 6D 20 48 20 4C 69 6F 23 31 20 20 20 20 24 30 20 20 20 20 20 20 20 Um#matrix m H Lio#1 $0 00002740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00002760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6D 65 64 69 74 20 2D 20 65 64 69 74 20 "medit - edit 00002780 6D 61 74 72 69 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 matrix 000027A0 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 000027C0 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 000027E0 39 37 38 2C 20 69 62 6D 2E 20 22 2D 72 65 74 75 72 6E 73 20 61 20 6D 6F 64 69 66 69 65 64 20 66 978, ibm. "-returns a modified f 00002800 6F 72 6D 20 6F 66 20 73 74 72 75 63 74 75 72 65 20 6D 20 61 73 20 61 20 6D 61 74 72 69 78 2E 20 orm of structure m as a matrix. 00002820 20 20 20 20 20 20 22 2D 6B 64 20 69 73 20 61 20 70 61 69 72 20 6F 66 20 69 6E 74 65 67 65 72 73 "-kd is a pair of integers 00002840 2C 20 74 68 65 20 66 69 72 73 74 2C 20 6B 2C 20 73 69 67 6E 69 66 69 65 73 20 74 68 65 20 20 20 , the first, k, signifies the 00002860 20 20 22 20 6E 75 6D 62 65 72 20 6F 66 20 72 6F 77 73 20 6F 66 20 6D 20 70 72 65 63 65 64 69 6E " number of rows of m precedin 00002880 67 20 74 68 65 20 6F 6E 65 20 74 6F 20 62 65 20 63 68 61 6E 67 65 64 2C 20 20 20 20 20 20 22 20 g the one to be changed, " 000028A0 69 6E 73 65 72 74 65 64 2C 20 6F 72 20 64 65 6C 65 74 65 64 2E 20 74 68 65 20 73 65 63 6F 6E 64 inserted, or deleted. the second 000028C0 2C 20 64 2C 20 69 73 20 74 68 65 20 6C 69 6E 65 20 6E 75 6D 62 65 72 20 20 20 22 20 74 6F 20 62 , d, is the line number " to b 000028E0 65 20 64 65 6C 65 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 e deleted. 00002900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 74 68 65 20 6B 65 79 62 "-the keyb 00002920 6F 61 72 64 20 77 69 6C 6C 20 75 6E 6C 6F 63 6B 20 66 6F 72 20 74 68 65 20 65 78 70 72 65 73 73 oard will unlock for the express 00002940 69 6F 6E 20 74 68 61 74 20 77 69 6C 6C 20 20 20 20 20 22 20 67 65 6E 65 72 61 74 65 20 74 68 65 ion that will " generate the 00002960 20 6C 69 6E 65 28 73 29 20 74 6F 20 62 65 20 69 6E 73 65 72 74 65 64 2E 20 20 20 20 20 20 20 20 line(s) to be inserted. 00002980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 74 68 65 20 69 6E 73 65 72 74 20 6D 61 79 20 62 "-the insert may b 000029A0 65 20 61 6E 20 61 6C 74 65 72 65 64 20 66 6F 72 6D 20 6F 66 20 74 68 65 20 6C 69 6E 65 28 73 29 e an altered form of the line(s) 000029C0 20 64 65 6C 65 74 65 64 2E 20 22 2D 77 68 65 6E 20 6B 3D 64 2C 20 74 68 65 20 69 6E 73 65 72 74 deleted. "-when k=d, the insert 000029E0 20 77 69 6C 6C 20 61 70 70 65 61 72 20 61 66 74 65 72 20 6C 69 6E 65 20 6B 2E 20 20 20 20 20 20 will appear after line k. 00002A00 20 20 20 20 20 20 22 2D 77 68 65 6E 20 6B 3E 64 2C 20 64 2D 6B 20 6C 69 6E 65 73 20 77 69 6C 6C "-when k>d, d-k lines will 00002A20 20 62 65 20 64 65 6C 65 74 65 64 20 62 65 66 6F 72 65 20 61 63 63 65 70 74 69 6E 67 20 74 68 65 be deleted before accepting the 00002A40 20 20 22 20 69 6E 73 65 72 74 2E 20 20 28 69 66 20 6B 3E 64 2C 20 6B 2D 64 20 6F 72 69 67 69 6E " insert. (if k>d, k-d origin 00002A60 61 6C 20 72 6F 77 73 20 77 69 6C 6C 20 61 70 70 65 61 72 20 62 65 66 6F 72 65 20 61 6E 64 22 20 al rows will appear before and" 00002A80 61 66 74 65 72 20 74 68 65 20 69 6E 73 65 72 74 2E 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 after the insert.) 00002AA0 20 20 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 75 73 65 73 "-uses 00002AC0 3A 20 47 6D 61 74 72 69 78 20 47 6F 6E 20 47 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 : Gmatrix Gon GH 00002AE0 20 20 20 20 20 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 0E 00 6. ..φ ♫. 00002B00 00 00 00 00 01 00 CB 54 44 00 24 00 C5 54 1B 00 0D 00 00 00 00 00 01 00 06 00 0E 00 00 00 C5 54 ....☺.╦TD.$.┼T←.♪.....☺.♠.♫...┼T 00002B20 FC FF 0C 00 10 00 B6 50 01 00 08 00 C5 54 48 00 C5 54 FC FF 06 00 0A 00 9D 50 01 00 CE 54 08 00 ⁿ ♀.►.╢P☺.◘.┼TH.┼Tⁿ ♠.◙.¥P☺.╬T◘. 00002B40 24 00 C5 54 FC FF 03 00 10 00 8F 50 01 00 00 00 0C 00 6C 00 C5 54 03 00 02 00 00 00 00 00 01 00 $.┼Tⁿ ♥.►.ÅP☺...♀.l.┼T♥.☻.....☺. 00002B60 24 10 08 00 48 00 C5 54 FC FF 01 00 0A 00 8F 50 01 00 DB 54 D6 00 90 00 C5 54 FD FF 38 00 04 00 $►◘.H.┼Tⁿ ☺.◙.ÅP☺.█T╓.É.┼T² 8.♦. 00002B80 F1 51 01 00 7A 00 31 55 A2 00 C5 54 03 00 37 00 00 00 00 00 01 00 1C 00 CE 54 B4 00 C5 54 ED FF ±Q☺.z.1Uó.┼T♥.7.....☺.∟.╬T┤.┼Tφ 00002BA0 34 00 00 00 00 00 01 00 6A 6B 6C 6D C6 00 C5 54 FC FF 32 00 08 00 23 51 01 00 60 5F 60 61 D8 00 4.....☺.jklm╞.┼Tⁿ 2.◘.#Q☺.`_`a╪. 00002BC0 C5 54 FC FF 30 00 10 00 19 51 01 00 60 6A 60 6B EA 00 C5 54 FC FF 29 00 0E 00 22 51 01 00 60 73 ┼Tⁿ 0.►.↓Q☺.`j`kΩ.┼Tⁿ ).♫."Q☺.`s 00002BE0 60 74 FC 00 C5 54 03 00 28 00 00 00 00 00 01 00 31 32 33 34 0E 01 C5 54 FC FF 27 00 0A 00 15 51 `tⁿ.┼T♥.(.....☺.1234♫☺┼Tⁿ '.◙.§Q 00002C00 01 00 DB 54 46 00 20 01 C5 54 35 00 26 00 00 00 00 00 01 00 00 00 02 00 32 01 C5 54 09 00 25 00 ☺.█TF. ☺┼T5.&.....☺...☻.2☺┼T○.%. 00002C20 00 00 00 00 01 00 93 00 13 00 44 01 C5 54 FD FF 24 00 0C 00 DD 51 01 00 B2 55 0A 00 56 01 C5 54 ....☺.ô.‼.D☺┼T² $.♀.▌Q☺.▓U◙.V☺┼T 00002C40 0C 00 23 00 00 00 00 00 01 00 0E 00 0C 00 68 01 C5 54 09 00 22 00 00 00 00 00 01 00 E9 54 D8 00 ♀.#.....☺.♫.♀.h☺┼T○.".....☺.ΘT╪. 00002C60 7A 01 C5 54 FC FF 20 00 0A 00 12 51 01 00 E2 54 48 00 8C 01 C5 54 35 00 1F 00 00 00 00 00 01 00 z☺┼Tⁿ .◙.↕Q☺.ΓTH.î☺┼T5.▼.....☺. 00002C80 01 00 08 00 9E 01 C5 54 FD FF 1E 00 0A 00 D3 51 01 00 02 00 01 00 B0 01 C5 54 08 00 1D 00 00 00 ☺.◘.₧☺┼T² ▲.◙.╙Q☺.☻.☺.░☺┼T◘.↔... 00002CA0 00 00 01 00 08 00 E2 54 C2 01 C5 54 08 00 1C 00 00 00 00 00 01 00 E1 54 06 00 D4 01 C5 54 FC FF ..☺.◘.ΓT┬☺┼T◘.∟.....☺.ßT♠.╘☺┼Tⁿ 00002CC0 1A 00 04 00 12 51 01 00 06 00 EA 54 E6 01 C5 54 09 00 19 00 00 00 00 00 01 00 01 00 12 00 F8 01 →.♦.↕Q☺.♠.ΩTµ☺┼T○.↓.....☺.☺.↕.°☺ 00002CE0 C5 54 31 00 18 00 00 00 00 00 01 00 0A 00 E8 54 0A 02 C5 54 23 00 17 00 00 00 00 00 01 00 65 62 ┼T1.↑.....☺.◙.ΦT◙☻┼T#.↨.....☺.eb 00002D00 74 00 1C 02 C5 54 08 00 16 00 00 00 00 00 01 00 00 00 02 00 2E 02 C5 54 FC FF 14 00 06 00 10 51 t.∟☻┼T◘.▬.....☺...☻..☻┼Tⁿ ¶.♠.►Q 00002D20 01 00 14 00 06 00 40 02 C5 54 09 00 13 00 00 00 00 00 01 00 E9 54 0A 00 52 02 C5 54 FC FF 12 00 ☺.¶.♠.@☻┼T○.‼.....☺.ΘT◙.R☻┼Tⁿ ↕. 00002D40 10 00 0F 51 01 00 0C 00 98 55 64 02 C5 54 39 00 11 00 00 00 00 00 01 00 09 00 96 05 76 02 C5 54 ►.☼Q☺.♀.ÿUd☻┼T9.◄.....☺.○.û♣v☻┼T 00002D60 09 00 10 00 00 00 00 00 01 00 20 23 20 6E 88 02 C5 54 FC FF 0F 00 0A 00 0B 51 01 00 20 20 20 20 ○.►.....☺. # nê☻┼Tⁿ ☼.◙.♂Q☺. 00002D80 9A 02 C5 54 32 00 0E 00 00 00 00 00 01 00 20 20 20 20 AC 02 C5 54 35 00 0D 00 00 00 00 00 01 00 Ü☻┼T2.♫.....☺. ¼☻┼T5.♪.....☺. 00002DA0 20 20 20 20 BE 02 C5 54 FD FF 0C 00 0A 00 42 51 01 00 20 61 6C 74 D0 02 C5 54 0C 00 0B 00 00 00 ╛☻┼T² ♀.◙.BQ☺. alt╨☻┼T♀.♂... 00002DC0 00 00 01 00 66 20 61 20 E2 02 C5 54 09 00 0A 00 00 00 00 00 01 00 69 70 72 65 F4 02 C5 54 FC FF ..☺.f a Γ☻┼T○.◙.....☺.ipre⌠☻┼Tⁿ 00002DE0 08 00 04 00 0B 51 01 00 20 20 22 66 06 03 C5 54 39 00 07 00 00 00 00 00 01 00 61 6E 64 62 18 03 ◘.♦.♂Q☺. "f♠♥┼T9.•.....☺.andb↑♥ 00002E00 C5 54 FD FF 06 00 02 00 3B 51 01 00 75 65 73 27 2A 03 C5 54 08 00 05 00 00 00 00 00 01 00 38 2C ┼T² ♠.☻.;Q☺.ues'*♥┼T◘.♣.....☺.8, 00002E20 20 69 3C 03 C5 54 08 00 04 00 00 00 00 00 01 00 20 78 20 61 4E 03 C5 54 08 00 03 00 00 00 00 00 i<♥┼T◘.♦.....☺. x aN♥┼T◘.♥..... 00002E40 01 00 74 69 70 72 60 03 C5 54 03 00 02 00 00 00 00 00 01 00 72 20 6F 72 FF FF 00 00 FC FF 01 00 ☺.tipr`♥┼T♥.☻.....☺.r or ..ⁿ ☺. 00002E60 0E 00 0A 51 01 00 74 20 20 20 84 03 C5 54 FD FF 02 00 02 00 0D 52 01 00 70 72 65 63 FF FF 00 00 ♫.◙Q☺.t ä♥┼T² ☻.☻.♪R☺.prec .. 00002E80 04 00 01 00 00 00 00 00 01 00 28 72 78 29 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 62 65 20 73 ♦.☺.....☺.(rx) ..☻.......☺.be s 00002EA0 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 66 6C 6F FF FF 00 00 02 00 00 00 00 00 00 00 01 00 ..☻.......☺. flo ..☻.......☺. 00002EC0 6D 62 65 72 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 6D 2B 6E 20 FF FF 00 00 02 00 00 00 00 00 mber ..☻.......☺.m+n ..☻..... 00002EE0 00 00 01 00 20 74 68 65 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 73 20 6F 72 FF FF 00 00 02 00 ..☺. the ..☻.......☺.s or ..☻. 00002F00 00 00 00 00 00 00 01 00 6D 20 74 68 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 6C 61 72 73 FF FF ......☺.m th ..☻.......☺.lars 00002F20 00 00 02 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 69 73 ..☻.......☺. " ..☻.......☺.is 00002F40 69 6F 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 io ..☻.......☺. ..☻....... 00002F60 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 62 72 69 FF FF 00 00 02 00 00 00 ☺. ..☻.......☺. bri ..☻... 00002F80 00 00 00 00 01 00 64 65 64 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 69 74 68 20 00 00 7E 00 ....☺.ded ..☻.......☺.ith ..~. 00002FA0 72 03 96 03 A8 03 BA 03 CC 03 DE 03 F0 03 02 04 14 04 26 04 38 04 4A 04 5C 04 6E 04 80 04 92 04 r♥û♥¿♥║♥╠♥▐♥≡♥☻♦¶♦&♦8♦J♦\♦n♦Ç♦Æ♦ 00002FC0 6C 00 FF FF 02 00 6D 00 06 00 6D 65 64 69 74 00 03 00 6B 64 00 02 00 72 00 04 00 01 00 00 00 02 l. ☻.m.♠.medit.♥.kd.☻.r.♦.☺...☻ 00002FE0 00 01 00 02 00 48 00 02 00 6D 00 07 00 6D 61 74 72 69 78 00 02 00 6D 00 04 00 01 00 00 00 02 00 .☺.☻.H.☻.m.•.matrix.☻.m.♦.☺...☻. 00003000 00 00 03 00 6B 64 00 04 00 01 00 00 00 02 00 01 00 03 00 6F 6E 00 03 00 6F 6E 00 02 00 6D 00 02 ..♥.kd.♦.☺...☻.☺.♥.on.♥.on.☻.m.☻ 00003020 00 6D 00 04 00 01 00 00 00 02 00 01 00 03 00 6B 64 00 04 00 01 00 00 00 02 00 01 00 02 00 72 00 .m.♦.☺...☻.☺.♥.kd.♦.☺...☻.☺.☻.r. 00003040 04 00 01 00 00 00 02 00 00 00 78 06 00 6E 66 6F 72 6D 00 00 01 00 0C 1A 00 05 00 07 00 0F 00 02 ♦.☺...☻...x♠.nform..☺.♀→.♣.•.☼.☻ 00003060 00 01 00 01 00 08 00 2C 01 02 00 01 00 05 00 3C 00 20 6E 20 23 20 63 20 6E 66 6F 72 6D 20 6B 3B .☺.☺.◘.,☺☻.☺.♣.<. n # c nform k; 00003080 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 20 20 20 20 Lio 000030A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 20 23 20 28 52 63 29 42 63 49 54 6B 20 48 20 4C 69 n # (Rc)BcITk H Li 000030C0 6F 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 20 20 20 o#0 000030E0 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 00003100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003120 20 20 20 20 20 22 6E 66 6F 72 6D 20 69 73 20 75 73 65 64 20 62 79 20 65 2E 67 2E 20 67 72 61 64 "nform is used by e.g. grad 00003140 65 75 70 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 eup. 00003160 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 00003180 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 36 00 FF niques' copyright 1978, ibm. 6. 000031A0 FF 00 00 ED FF 0F 00 00 00 00 00 01 00 30 30 29 2C 24 00 32 55 1B 00 0E 00 00 00 00 00 01 00 63 ..φ ☼.....☺.00),$.2U←.♫.....☺.c 000031C0 20 20 20 00 00 32 55 FC FF 0D 00 0C 00 0F 52 01 00 20 20 20 20 48 00 32 55 FC FF 07 00 0C 00 F6 ..2Uⁿ ♪.♀.☼R☺. H.2Uⁿ •.♀.÷ 000031E0 51 01 00 2B 60 2F 28 24 00 32 55 FC FF 05 00 0E 00 DC 51 01 00 52 61 29 2C 6C 00 32 55 03 00 03 Q☺.+`/($.2Uⁿ ♣.♫.▄Q☺.Ra),l.2U♥.♥ 00003200 00 00 00 00 00 01 00 20 20 20 20 48 00 32 55 FC FF 01 00 04 00 39 51 01 00 30 20 20 20 90 00 32 .....☺. H.2Uⁿ ☺.♦.9Q☺.0 É.2 00003220 55 FD FF 15 00 04 00 64 52 01 00 20 20 20 20 A2 00 32 55 03 00 14 00 00 00 00 00 01 00 20 20 20 U² §.♦.dR☺. ó.2U♥.¶.....☺. 00003240 20 B4 00 32 55 ED FF 11 00 00 00 00 00 01 00 20 20 20 20 C6 00 32 55 FC FF 0F 00 10 00 57 52 01 ┤.2Uφ ◄.....☺. ╞.2Uⁿ ☼.►.WR☺ 00003260 00 65 63 69 73 D8 00 32 55 FC FF 0D 00 02 00 52 52 01 00 6C 74 69 70 EA 00 32 55 34 00 0C 00 00 .ecis╪.2Uⁿ ♪.☻.RR☺.ltipΩ.2U4.♀.. 00003280 00 00 00 01 00 20 20 20 20 FC 00 32 55 29 00 0B 00 00 00 00 00 01 00 68 65 20 61 0E 01 32 55 FC ...☺. ⁿ.2U).♂.....☺.he a♫☺2Uⁿ 000032A0 FF 0A 00 04 00 4F 52 01 00 20 74 65 63 20 01 32 55 22 00 09 00 00 00 00 00 01 00 69 67 68 74 32 ◙.♦.OR☺. tec ☺2U".○.....☺.ight2 000032C0 01 32 55 09 00 08 00 00 00 00 00 01 00 61 20 69 73 44 01 32 55 FC FF 07 00 10 00 12 52 01 00 20 ☺2U○.◘.....☺.a isD☺2Uⁿ •.►.↕R☺. 000032E0 62 2C 20 56 01 32 55 32 00 06 00 00 00 00 00 01 00 67 20 6D 75 68 01 32 55 08 00 05 00 00 00 00 b, V☺2U2.♠.....☺.g muh☺2U◘.♣.... 00003300 00 01 00 20 20 20 20 7A 01 32 55 03 00 03 00 00 00 00 00 01 00 68 6D 65 74 FF FF 00 00 FC FF 01 .☺. z☺2U♥.♥.....☺.hmet ..ⁿ ☺ 00003320 00 0A 00 12 52 01 00 79 20 62 65 9E 01 32 55 FD FF 02 00 0A 00 65 52 01 00 63 20 66 6F FF FF 00 .◙.↕R☺.y be₧☺2U² ☻.◙.eR☺.c fo . 00003340 00 04 00 01 00 00 00 00 00 01 00 65 20 64 65 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 72 20 47 .♦.☺.....☺.e de ..☻.......☺.r G 00003360 61 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 00 00 7E 00 8C 01 B0 01 C2 01 6C 00 FF a ..☻.......☺. ..~.î☺░☺┬☺l. 00003380 FF 02 00 6B 00 06 00 6E 66 6F 72 6D 00 02 00 63 00 02 00 6E 00 04 00 01 00 00 00 02 00 00 00 02 ☻.k.♠.nform.☻.c.☻.n.♦.☺...☻...☻ 000033A0 00 48 00 02 00 6B 00 02 00 63 00 02 00 63 00 02 00 6E 00 04 00 01 00 00 00 02 00 00 00 78 03 00 .H.☻.k.☻.c.☻.c.☻.n.♦.☺...☻...x♥. 000033C0 6F 6E 00 00 01 00 0C 4A 00 10 00 07 00 01 00 13 00 22 00 01 00 02 00 01 00 01 00 01 00 01 00 01 on..☺.♀J.►.•.☺.‼.".☺.☻.☺.☺.☺.☺.☺ 000033E0 00 01 00 01 00 01 00 01 00 01 00 08 00 C0 03 02 00 01 00 10 00 3C 00 20 7A 23 61 20 6F 6E 20 62 .☺.☺.☺.☺.☺.◘.└♥☻.☺.►.<. z#a on b 00003400 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 20 20 20 ;Lio 00003420 20 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 cformat 00003440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7A 23 28 2D 31 59 52 61 23 6D 61 74 72 69 78 20 z#(-1YRa#matrix 00003480 61 29 53 2D 31 59 52 62 23 6D 61 74 72 69 78 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a)S-1YRb#matrix b 000034A0 20 20 20 20 20 20 20 20 20 20 20 20 7A 23 28 28 28 31 59 52 61 29 2C 7A 29 59 61 29 2C 5B 4C 69 z#(((1YRa),z)Ya),[Li 000034C0 6F 23 30 5D 28 28 31 59 52 62 29 2C 7A 29 59 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 o#0]((1YRb),z)Yb 000034E0 20 20 20 20 20 20 20 22 69 6E 20 63 61 73 65 20 6F 70 65 72 61 6E 64 20 77 61 73 20 65 6D 70 74 "in case operand was empt 00003500 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 y 00003520 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 00003540 20 20 20 20 20 20 20 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 " 00003560 6F 6E 20 2D 20 63 6F 6E 66 6F 72 6D 20 61 6E 64 20 63 61 74 65 6E 61 74 65 20 61 6E 79 20 73 74 on - conform and catenate any st 00003580 72 75 63 74 75 72 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D ructures "from 000035A0 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 000035C0 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 6E 61 6D 65 73 20 6F ' copyright 1978, ibm. "-names o 000035E0 72 20 6E 75 6D 62 65 72 73 20 6D 61 79 20 62 65 20 61 64 64 65 64 20 74 6F 20 6C 69 73 74 73 20 r numbers may be added to lists 00003600 6F 6E 20 61 6E 79 20 73 68 61 70 65 20 6F 72 20 20 20 20 22 20 63 68 61 72 61 63 74 65 72 2C 20 on any shape or " character, 00003620 61 74 20 65 69 74 68 65 72 20 65 6E 64 2E 20 20 74 68 65 20 6F 75 74 70 75 74 20 69 73 20 61 20 at either end. the output is a 00003640 6D 61 74 72 69 78 2E 20 20 20 20 20 20 20 20 22 2D 6E 75 6D 65 72 69 63 20 6D 61 74 72 69 63 65 matrix. "-numeric matrice 00003660 73 20 77 69 6C 6C 20 62 65 20 70 61 64 64 65 64 20 77 69 74 68 20 7A 65 72 6F 73 20 69 66 20 74 s will be padded with zeros if t 00003680 68 65 79 20 20 20 20 20 20 20 20 22 20 72 65 6D 61 69 6E 20 6E 75 6D 65 72 69 63 2E 20 20 20 20 hey " remain numeric. 000036A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000036C0 20 20 20 20 20 20 20 22 2D 63 68 61 72 61 63 74 65 72 20 6D 61 74 72 69 63 65 73 20 77 69 6C 6C "-character matrices will 000036E0 20 62 65 20 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 be padded with blanks. 00003700 20 20 20 22 2D 61 6E 79 20 6F 70 65 72 61 6E 64 20 6D 61 79 20 68 61 76 65 20 61 6E 79 20 73 74 "-any operand may have any st 00003720 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 20 20 22 ructure. " 00003740 2D 75 73 65 20 47 63 65 6E 74 65 72 6F 6E 20 69 66 20 6C 65 66 74 2D 6A 75 73 74 69 66 69 63 61 -use Gcenteron if left-justifica 00003760 74 69 6F 6E 20 69 73 20 6E 6F 74 20 64 65 73 69 72 65 64 2E 20 20 20 20 20 20 20 22 2D 75 73 65 tion is not desired. "-use 00003780 73 3A 20 47 63 66 6F 72 6D 61 74 20 47 6D 61 74 72 69 78 20 20 20 20 20 20 20 20 20 20 20 20 20 s: Gcformat Gmatrix 000037A0 20 20 20 20 20 20 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 0A 6. ..φ ◙ 000037C0 00 00 00 00 00 01 00 08 00 0E 52 24 00 20 57 1B 00 09 00 00 00 00 00 01 00 00 00 00 00 00 00 20 .....☺.◘.♫R$. W←.○.....☺....... 000037E0 57 FC FF 08 00 0C 00 51 52 01 00 00 00 00 00 48 00 20 57 FC FF 05 00 06 00 47 52 01 00 06 00 F4 Wⁿ ◘.♀.QR☺.....H. Wⁿ ♣.♠.GR☺.♠.⌠ 00003800 52 24 00 20 57 FC FF 03 00 04 00 0C 52 01 00 00 00 00 00 6C 00 20 57 03 00 02 00 00 00 00 00 01 R$. Wⁿ ♥.♦.♀R☺.....l. W♥.☻.....☺ 00003820 00 00 00 00 00 48 00 20 57 FC FF 01 00 0E 00 0B 52 01 00 00 00 00 00 FF FF 00 00 FC FF 01 00 04 .....H. Wⁿ ☺.♫.♂R☺..... ..ⁿ ☺.♦ 00003840 00 68 52 01 00 02 00 E7 52 A2 00 20 57 FC FF 21 00 0C 00 95 52 01 00 00 00 00 00 B4 00 20 57 FC .hR☺.☻.τRó. Wⁿ !.♀.òR☺.....┤. Wⁿ 00003860 FF 1A 00 10 00 98 52 01 00 00 00 00 00 C6 00 20 57 03 00 19 00 00 00 00 00 01 00 0C 00 0C 52 D8 →.►.ÿR☺.....╞. W♥.↓.....☺.♀.♀R╪ 00003880 00 20 57 FC FF 18 00 02 00 94 52 01 00 00 00 00 00 EA 00 20 57 32 00 17 00 00 00 00 00 01 00 04 . Wⁿ ↑.☻.öR☺.....Ω. W2.↨.....☺.♦ 000038A0 00 AB 52 FC 00 20 57 39 00 16 00 00 00 00 00 01 00 00 00 00 00 0E 01 20 57 FD FF 14 00 0A 00 97 .½Rⁿ. W9.▬.....☺.....♫☺ W² ¶.◙.ù 000038C0 52 01 00 00 00 00 00 20 01 20 57 33 00 13 00 00 00 00 00 01 00 00 00 00 00 32 01 20 57 09 00 12 R☺..... ☺ W3.‼.....☺.....2☺ W○.↕ 000038E0 00 00 00 00 00 01 00 00 00 00 00 44 01 20 57 FC FF 11 00 0C 00 7B 52 01 00 04 00 99 52 56 01 20 .....☺.....D☺ Wⁿ ◄.♀.{R☺.♦.ÖRV☺ 00003900 57 FC FF 0A 00 02 00 7B 52 01 00 00 00 00 00 68 01 20 57 03 00 09 00 00 00 00 00 01 00 00 00 00 Wⁿ ◙.☻.{R☺.....h☺ W♥.○.....☺.... 00003920 00 7A 01 20 57 FC FF 08 00 02 00 78 52 01 00 06 00 0C 52 8C 01 20 57 32 00 07 00 00 00 00 00 01 .z☺ Wⁿ ◘.☻.xR☺.♠.♀Rî☺ W2.•.....☺ 00003940 00 00 00 00 00 9E 01 20 57 39 00 06 00 00 00 00 00 01 00 0C 00 FE 51 B0 01 20 57 FD FF 04 00 04 .....₧☺ W9.♠.....☺.♀.■Q░☺ W² ♦.♦ 00003960 00 7C 52 01 00 00 00 00 00 C2 01 20 57 08 00 03 00 00 00 00 00 01 00 10 00 FC 51 D4 01 20 57 03 .|R☺.....┬☺ W◘.♥.....☺.►.ⁿQ╘☺ W♥ 00003980 00 02 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 FC FF 01 00 02 00 72 52 01 00 0A 00 FC 51 F8 .☻.....☺..... ..ⁿ ☺.☻.rR☺.◙.ⁿQ° 000039A0 01 20 57 FC FF 24 00 0E 00 A8 52 01 00 08 00 10 53 0A 02 20 57 39 00 23 00 00 00 00 00 01 00 00 ☺ Wⁿ $.♫.¿R☺.◘.►S◙☻ W9.#.....☺.. 000039C0 00 00 00 1C 02 20 57 09 00 22 00 00 00 00 00 01 00 00 00 00 00 2E 02 20 57 FC FF 21 00 08 00 A8 ...∟☻ W○.".....☺......☻ Wⁿ !.◘.¿ 000039E0 52 01 00 00 00 00 00 40 02 20 57 0C 00 20 00 00 00 00 00 01 00 00 00 00 00 52 02 20 57 09 00 1F R☺.....@☻ W♀. .....☺.....R☻ W○.▼ 00003A00 00 00 00 00 00 01 00 00 00 00 00 64 02 20 57 FC FF 1E 00 04 00 A4 52 01 00 00 00 00 00 76 02 20 .....☺.....d☻ Wⁿ ▲.♦.ñR☺.....v☻ 00003A20 57 32 00 1D 00 00 00 00 00 01 00 00 00 00 00 88 02 20 57 39 00 1C 00 00 00 00 00 01 00 00 00 00 W2.↔.....☺.....ê☻ W9.∟.....☺.... 00003A40 00 9A 02 20 57 FD FF 1B 00 08 00 F6 52 01 00 00 00 00 00 AC 02 20 57 08 00 1A 00 00 00 00 00 01 .Ü☻ W² ←.◘.÷R☺.....¼☻ W◘.→.....☺ 00003A60 00 00 00 00 00 BE 02 20 57 08 00 19 00 00 00 00 00 01 00 00 00 00 00 D0 02 20 57 3D 00 18 00 00 .....╛☻ W◘.↓.....☺.....╨☻ W=.↑.. 00003A80 00 00 00 01 00 00 00 00 00 E2 02 20 57 FD FF 17 00 06 00 F0 52 01 00 00 00 00 00 F4 02 20 57 03 ...☺.....Γ☻ W² ↨.♠.≡R☺.....⌠☻ W♥ 00003AA0 00 16 00 00 00 00 00 01 00 00 00 00 00 06 03 20 57 ED FF 13 00 00 00 00 00 01 00 08 00 0A 00 18 .▬.....☺.....♠♥ Wφ ‼.....☺.◘.◙.↑ 00003AC0 03 20 57 3B 00 12 00 00 00 00 00 01 00 03 00 04 00 2A 03 20 57 0C 00 11 00 00 00 00 00 01 00 02 ♥ W;.↕.....☺.♥.♦.*♥ W♀.◄.....☺.☻ 00003AE0 00 00 00 3C 03 20 57 09 00 10 00 00 00 00 00 01 00 01 00 0E 00 4E 03 20 57 FC FF 0F 00 0E 00 A3 ...<♥ W○.►.....☺.☺.♫.N♥ Wⁿ ☼.♫.ú 00003B00 52 01 00 16 00 02 00 60 03 20 57 39 00 0E 00 00 00 00 00 01 00 15 00 00 00 72 03 20 57 09 00 0D R☺.▬.☻.`♥ W9.♫.....☺.§...r♥ W○.♪ 00003B20 00 00 00 00 00 01 00 14 00 00 00 84 03 20 57 FC FF 0C 00 08 00 A3 52 01 00 13 00 10 00 96 03 20 .....☺.¶...ä♥ Wⁿ ♀.◘.úR☺.‼.►.û♥ 00003B40 57 0C 00 0B 00 00 00 00 00 01 00 11 00 00 00 A8 03 20 57 09 00 0A 00 00 00 00 00 01 00 10 00 08 W♀.♂.....☺.◄...¿♥ W○.◙.....☺.►.◘ 00003B60 00 BA 03 20 57 FC FF 09 00 0E 00 9D 52 01 00 0F 00 00 00 CC 03 20 57 32 00 08 00 00 00 00 00 01 .║♥ Wⁿ ○.♫.¥R☺.☼...╠♥ W2.◘.....☺ 00003B80 00 0E 00 00 00 DE 03 20 57 39 00 07 00 00 00 00 00 01 00 0D 00 00 00 F0 03 20 57 FD FF 06 00 0A .♫...▐♥ W9.•.....☺.♪...≡♥ W² ♠.◙ 00003BA0 00 D7 52 01 00 0B 00 10 00 02 04 20 57 08 00 05 00 00 00 00 00 01 00 0A 00 00 00 14 04 20 57 08 .╫R☺.♂.►.☻♦ W◘.♣.....☺.◙...¶♦ W◘ 00003BC0 00 04 00 00 00 00 00 01 00 09 00 00 00 26 04 20 57 08 00 03 00 00 00 00 00 01 00 08 00 06 00 38 .♦.....☺.○...&♦ W◘.♥.....☺.◘.♠.8 00003BE0 04 20 57 03 00 02 00 00 00 00 00 01 00 07 00 00 00 FF FF 00 00 FC FF 01 00 0A 00 99 52 01 00 06 ♦ W♥.☻.....☺.•... ..ⁿ ☺.◙.ÖR☺.♠ 00003C00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 05 00 00 00 6E 04 20 57 FD FF 02 00 0A 00 0A ... ..☻.......☺.♣...n♦ W² ☻.◙.◙ 00003C20 53 01 00 04 00 00 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 03 00 00 00 FF FF 00 00 02 00 00 S☺.♦... ..♦.☺.....☺.♥... ..☻.. 00003C40 00 00 00 00 00 01 00 02 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 10 00 FF FF 00 .....☺.☻... ..☻.......☺.☺.►. . 00003C60 00 02 00 00 00 00 00 00 00 01 00 02 00 0A 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 00 .☻.......☺.☻.◙. ..☻.......☺.☺.. 00003C80 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 . ..☻.......☺..... ..☻.......☺ 00003CA0 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 ..... ..☻.......☺..... ..☻.... 00003CC0 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 ...☺..... ..☻.......☺..... ..☻ 00003CE0 00 00 00 00 00 00 00 01 00 01 00 01 00 00 00 7E 00 90 00 E6 01 4A 04 5C 04 80 04 92 04 A4 04 B6 .......☺.☺.☺...~.É.µ☺J♦\♦Ç♦Æ♦ñ♦╢ 00003D00 04 C8 04 DA 04 EC 04 FE 04 10 05 22 05 6C 00 FF FF 02 00 62 00 03 00 6F 6E 00 02 00 61 00 02 00 ♦╚♦┌♦∞♦■♦►♣"♣l. ☻.b.♥.on.☻.a.☻. 00003D20 7A 00 08 00 63 66 6F 72 6D 61 74 00 02 00 62 00 07 00 6D 61 74 72 69 78 00 02 00 62 00 04 00 01 z.◘.cformat.☻.b.•.matrix.☻.b.♦.☺ 00003D40 00 00 00 02 00 FF FF 02 00 61 00 07 00 6D 61 74 72 69 78 00 02 00 61 00 04 00 01 00 00 00 02 00 ...☻. ☻.a.•.matrix.☻.a.♦.☺...☻. 00003D60 FF FF 02 00 7A 00 02 00 62 00 02 00 7A 00 02 00 62 00 04 00 01 00 00 00 02 00 01 00 04 00 01 00 ☻.z.☻.b.☻.z.☻.b.♦.☺...☻.☺.♦.☺. 00003D80 00 00 02 00 00 00 02 00 61 00 02 00 7A 00 02 00 61 00 04 00 01 00 00 00 02 00 01 00 02 00 7A 00 ..☻...☻.a.☻.z.☻.a.♦.☺...☻.☺.☻.z. 00003DA0 04 00 01 00 00 00 02 00 00 00 78 07 00 6F 75 74 70 75 74 00 00 01 00 0C 99 00 13 00 15 00 01 00 ♦.☺...☻...x•.output..☺.♀Ö.‼.§.☺. 00003DC0 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 19 00 05 00 12 00 1A 00 10 00 0A 00 ☺.☺.☺.☺.☺.☺.☺.☺.☺.☺.↓.♣.↕.→.►.◙. 00003DE0 11 00 08 00 AD 04 02 00 01 00 13 00 3F 00 20 6D 61 74 23 68 65 61 64 69 6E 67 73 20 6F 75 74 70 ◄.◘.¡♦☻.☺.‼.?. mat#headings outp 00003E00 75 74 20 6D 61 74 72 69 78 3B 73 3B 69 3B 61 3B 60 61 3B 76 3B 77 3B 68 3B 4C 69 6F 20 20 20 20 ut matrix;s;i;a;`a;v;w;h;Lio 00003E20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6F 75 74 70 75 74 20 2D 20 63 65 6E 74 65 72 20 68 65 "output - center he 00003E40 61 64 69 6E 67 73 20 6F 76 65 72 20 66 6F 72 6D 61 74 74 65 64 20 63 6F 6C 75 6D 6E 73 2E 20 20 adings over formatted columns. 00003E60 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 64 62 "from 'the apl handb 00003E80 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 ook of techniques' copyright 197 00003EA0 38 2C 20 69 62 6D 2E 20 20 20 20 22 2D 68 65 61 64 69 6E 67 73 2C 20 61 20 63 68 61 72 61 63 74 8, ibm. "-headings, a charact 00003EC0 65 72 20 76 65 63 74 6F 72 20 77 69 74 68 20 62 6C 61 6E 6B 20 64 65 6C 69 6D 69 74 65 72 73 2C er vector with blank delimiters, 00003EE0 20 77 69 6C 6C 20 62 65 20 20 22 20 63 65 6E 74 65 72 65 64 20 6F 76 65 72 20 74 68 65 20 61 70 will be " centered over the ap 00003F00 70 72 6F 70 72 69 61 74 65 20 63 6F 6C 75 6D 6E 73 2C 20 61 6E 64 20 75 6E 65 72 73 63 6F 72 65 propriate columns, and unerscore 00003F20 64 20 74 6F 20 20 20 20 20 22 20 74 68 65 20 66 75 6C 6C 20 77 69 64 74 68 20 6F 66 20 74 68 6F d to " the full width of tho 00003F40 73 65 20 63 6F 6C 75 6D 6E 73 20 69 6E 20 74 68 65 20 70 72 65 66 6F 72 6D 61 74 74 65 64 20 6D se columns in the preformatted m 00003F60 61 74 72 69 78 2E 20 20 22 2D 61 6E 79 20 68 65 61 64 69 6E 67 20 74 6F 6F 20 77 69 64 65 20 66 atrix. "-any heading too wide f 00003F80 6F 72 20 69 74 73 20 63 6F 6C 75 6D 6E 73 20 77 69 6C 6C 20 62 65 20 6E 6F 74 65 64 2E 20 20 20 or its columns will be noted. 00003FA0 20 20 20 20 20 20 20 22 2D 61 6E 79 20 69 6E 73 75 66 66 69 63 69 65 6E 74 20 6E 75 6D 62 65 72 "-any insufficient number 00003FC0 20 6F 66 20 68 65 61 64 69 6E 67 73 20 77 69 6C 6C 20 63 61 75 73 65 20 6C 65 6E 67 74 68 20 65 of headings will cause length e 00003FE0 72 72 6F 72 2E 20 22 2D 6F 6E 6C 79 20 74 68 65 20 6C 65 66 74 6D 6F 73 74 20 68 65 61 64 69 6E rror. "-only the leftmost headin 00004000 67 73 20 77 69 6C 6C 20 62 65 20 75 73 65 64 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 gs will be used. 00004020 20 20 20 20 20 22 2D 75 73 65 73 3A 20 68 64 6D 61 20 68 6E 65 78 74 60 61 20 68 63 6E 74 72 20 "-uses: hdma hnext`a hcntr 00004040 68 77 69 64 74 68 20 68 64 6C 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 hwidth hdlb 00004060 20 20 20 20 22 2D 67 65 6E 65 72 61 74 65 73 20 61 20 67 6C 6F 62 61 6C 20 76 61 72 69 61 62 6C "-generates a global variabl 00004080 65 2C 20 60 62 2C 20 77 68 69 63 68 20 63 61 6E 20 62 65 20 75 73 65 64 20 74 6F 20 72 65 64 75 e, `b, which can be used to redu 000040A0 63 65 20 22 20 28 74 68 65 6E 20 65 78 70 61 6E 64 29 20 74 68 65 20 72 65 73 75 6C 74 20 62 79 ce " (then expand) the result by 000040C0 20 65 6C 69 6D 69 6E 61 74 69 6E 67 20 62 6C 61 6E 6B 20 63 6F 6C 75 6D 6E 73 2E 20 20 20 20 20 eliminating blank columns. 000040E0 20 20 20 6D 61 74 23 28 31 55 52 6D 61 74 72 69 78 29 52 27 20 27 2C 73 23 28 69 23 7E 4C 69 6F mat#(1URmatrix)R' ',s#(i#~Lio 00004100 23 31 29 52 60 61 23 68 65 61 64 69 6E 67 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #1)R`a#headings 00004120 20 20 77 23 27 60 62 27 77 69 64 74 68 20 6D 61 74 72 69 78 20 20 20 20 20 20 20 20 20 20 20 20 w#'`b'width matrix 00004140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004160 62 61 63 6B 3A 24 28 28 69 3D 52 77 29 56 30 3D 52 68 23 6E 65 78 74 60 61 29 2F 66 69 6E 61 6C back:$((i=Rw)V0=Rh#next`a)/final 00004180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000041A0 24 28 30 5E 3D 52 61 20 48 20 73 23 73 2C 61 23 77 5B 69 23 69 2B 31 5D 63 6E 74 72 20 68 29 2F $(0^=Ra H s#s,a#w[i#i+1]cntr h)/ 000041C0 62 61 63 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 24 back $ 000041E0 30 2C 52 4C 23 27 63 6F 6C 75 6D 6E 20 77 69 64 74 68 20 28 27 2C 28 46 77 29 2C 27 29 20 74 6F 0,RL#'column width (',(Fw),') to 00004200 6F 20 6E 61 72 72 6F 77 20 66 6F 72 20 27 2C 68 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6E o narrow for ',h fin 00004220 61 6C 3A 6D 61 74 5B 60 62 2F 49 52 60 62 5D 23 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 al:mat[`b/IR`b]#s 00004240 20 20 20 20 20 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 61 74 mat 00004260 23 28 6D 61 74 2C 5B 30 2E 31 5D 60 62 5C 27 2D 27 29 2C 5B 31 5D 6D 61 74 72 69 78 20 20 20 20 #(mat,[0.1]`b\'-'),[1]matrix 00004280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 01 FF FF 00 2☺ . 000042A0 00 ED FF 2B 00 00 00 00 00 01 00 9C 01 C3 5E 24 00 A1 5B 1B 00 2A 00 00 00 00 00 01 00 C3 5E A2 .φ +.....☺.£☺├^$.í[←.*.....☺.├^ó 000042C0 04 00 00 A1 5B FC FF 29 00 0E 00 D2 52 01 00 A5 5B 14 00 48 00 A1 5B 1B 00 28 00 00 00 00 00 01 ♦..í[ⁿ ).♫.╥R☺.Ñ[¶.H.í[←.(.....☺ 000042E0 00 0A 00 87 5C 24 00 A1 5B FC FF 27 00 10 00 D0 52 01 00 01 00 01 00 6C 00 A1 5B 1B 00 26 00 00 .◙.ç\$.í[ⁿ '.►.╨R☺.☺.☺.l.í[←.&.. 00004300 00 00 00 01 00 0A 00 87 5C 48 00 A1 5B FC FF 25 00 04 00 AD 52 01 00 72 61 63 00 90 00 A1 5B 1B ...☺.◙.ç\H.í[ⁿ %.♦.¡R☺.rac.É.í[← 00004320 00 24 00 00 00 00 00 01 00 06 00 0E 00 6C 00 A1 5B FC FF 22 00 04 00 92 52 01 00 00 20 0A 00 B4 .$.....☺.♠.♫.l.í[ⁿ ".♦.ÆR☺.. ◙.┤ 00004340 00 A1 5B 1B 00 21 00 00 00 00 00 01 00 01 00 0D 00 90 00 A1 5B FC FF 20 00 08 00 8A 52 01 00 4C .í[←.!.....☺.☺.♪.É.í[ⁿ .◘.èR☺.L 00004360 69 6F 20 D8 00 A1 5B 1B 00 1F 00 00 00 00 00 01 00 20 20 20 20 B4 00 A1 5B FC FF 1E 00 06 00 85 io ╪.í[←.▼.....☺. ┤.í[ⁿ ▲.♠.à 00004380 52 01 00 20 20 20 20 FC 00 A1 5B 1B 00 1D 00 00 00 00 00 01 00 20 73 69 6E D8 00 A1 5B FC FF 1C R☺. ⁿ.í[←.↔.....☺. sin╪.í[ⁿ ∟ 000043A0 00 0E 00 46 52 01 00 74 6F 20 62 20 01 A1 5B 1B 00 1B 00 00 00 00 00 01 00 64 69 6E 67 FC 00 A1 .♫.FR☺.to b ☺í[←.←.....☺.dingⁿ.í 000043C0 5B FC FF 15 00 0A 00 91 52 01 00 22 20 6F 66 44 01 A1 5B FC FF 0E 00 0E 00 89 52 01 00 20 20 20 [ⁿ §.◙.æR☺." ofD☺í[ⁿ ♫.♫.ëR☺. 000043E0 20 20 01 A1 5B FC FF 05 00 0A 00 84 52 01 00 20 20 20 20 68 01 A1 5B 03 00 04 00 00 00 00 00 01 ☺í[ⁿ ♣.◙.äR☺. h☺í[♥.♦.....☺ 00004400 00 20 20 20 20 44 01 A1 5B FC FF 01 00 08 00 46 52 01 00 27 48 20 4C FF FF 00 00 02 00 00 00 00 . D☺í[ⁿ ☺.◘.FR☺.'H L ..☻.... 00004420 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 FF FF 00 00 02 ...☺. ..☻.......☺. ..☻ 00004440 00 00 00 00 00 00 00 01 00 73 69 6E 2C FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF .......☺.sin, ..☻.......☺. 00004460 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 ..☻.......☺. ..☻.......☺. 00004480 72 23 28 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 r#( ..☻.......☺. ..☻...... 000044A0 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 .☺. ..☻.......☺. ..☻.. 000044C0 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 20 52 02 A1 .....☺. ..☻.......☺. R☻í 000044E0 5B FC FF 25 00 02 00 F9 52 01 00 20 20 20 20 64 02 A1 5B 03 00 24 00 00 00 00 00 01 00 2D 20 62 [ⁿ %.☻.∙R☺. d☻í[♥.$.....☺.- b 00004500 75 76 02 A1 5B FC FF 22 00 08 00 F5 52 01 00 61 72 72 61 88 02 A1 5B 32 00 21 00 00 00 00 00 01 uv☻í[ⁿ ".◘.⌡R☺.arraê☻í[2.!.....☺ 00004520 00 61 74 74 65 9A 02 A1 5B 09 00 20 00 00 00 00 00 01 00 22 66 72 6F AC 02 A1 5B FD FF 1F 00 0C .atteÜ☻í[○. .....☺."fro¼☻í[² ▼.♀ 00004540 00 4E 53 01 00 64 62 6F 6F BE 02 A1 5B 03 00 1E 00 00 00 00 00 01 00 73 27 20 63 D0 02 A1 5B ED .NS☺.dboo╛☻í[♥.▲.....☺.s' c╨☻í[φ 00004560 FF 1B 00 00 00 00 00 01 00 20 69 62 6D E2 02 A1 5B 84 00 1A 00 00 00 00 00 01 00 72 20 6F 74 F4 ←.....☺. ibmΓ☻í[ä.→.....☺.r ot⌠ 00004580 02 A1 5B 03 00 19 00 00 00 00 00 01 00 20 63 61 6E 06 03 A1 5B FC FF 18 00 0C 00 EA 52 01 00 66 ☻í[♥.↓.....☺. can♠♥í[ⁿ ↑.♀.ΩR☺.f 000045A0 72 6F 6D 18 03 A1 5B 08 00 17 00 00 00 00 00 01 00 63 61 6C 20 2A 03 A1 5B 03 00 16 00 00 00 00 rom↑♥í[◘.↨.....☺.cal *♥í[♥.▬.... 000045C0 00 01 00 75 63 74 75 3C 03 A1 5B FC FF 15 00 0A 00 D9 52 01 00 62 65 20 6F 4E 03 A1 5B 0C 00 14 .☺.uctu<♥í[ⁿ §.◙.┘R☺.be oN♥í[♀.¶ 000045E0 00 00 00 00 00 01 00 22 20 47 66 60 03 A1 5B 07 00 11 00 0E 00 20 53 01 00 20 20 20 20 72 03 A1 .....☺." Gf`♥í[•.◄.♫. S☺. r♥í 00004600 5B 32 00 10 00 00 00 00 00 01 00 20 20 20 20 84 03 A1 5B 09 00 0F 00 00 00 00 00 01 00 20 20 20 [2.►.....☺. ä♥í[○.☼.....☺. 00004620 20 96 03 A1 5B FC FF 09 00 10 00 D8 52 01 00 73 69 6E 20 A8 03 A1 5B 32 00 08 00 00 00 00 00 01 û♥í[ⁿ ○.►.╪R☺.sin ¿♥í[2.◘.....☺ 00004640 00 20 20 20 20 BA 03 A1 5B 35 00 07 00 00 00 00 00 01 00 20 20 20 20 CC 03 A1 5B FD FF 06 00 06 . ║♥í[5.•.....☺. ╠♥í[² ♠.♠ 00004660 00 10 53 01 00 50 03 ED FF DE 03 A1 5B 08 00 05 00 00 00 00 00 01 00 DD 5B 1B 00 F0 03 A1 5B 03 .►S☺.P♥φ ▐♥í[◘.♣.....☺.▌[←.≡♥í[♥ 00004680 00 04 00 00 00 00 00 01 00 DD 5B FC FF FF FF 00 00 FC FF 01 00 04 00 D3 52 01 00 DD 5B FC FF 14 .♦.....☺.▌[ⁿ ..ⁿ ☺.♦.╙R☺.▌[ⁿ ¶ 000046A0 04 A1 5B FC FF 0D 00 0E 00 4D 53 01 00 DD 5B FC FF 26 04 A1 5B FC FF 07 00 10 00 0B 53 01 00 DD ♦í[ⁿ ♪.♫.MS☺.▌[ⁿ &♦í[ⁿ •.►.♂S☺.▌ 000046C0 5B 03 00 38 04 A1 5B 07 00 03 00 0E 00 11 54 01 00 DD 5B FC FF 4A 04 A1 5B 03 00 02 00 00 00 00 [♥.8♦í[•.♥.♫.◄T☺.▌[ⁿ J♦í[♥.☻.... 000046E0 00 01 00 00 00 02 00 FF FF 00 00 FC FF 01 00 0E 00 F5 52 01 00 00 00 02 00 6E 04 A1 5B FC FF 1B .☺...☻. ..ⁿ ☺.♫.⌡R☺...☻.n♦í[ⁿ ← 00004700 00 04 00 B6 54 01 00 DD 5B FD FF 80 04 A1 5B 0F 00 1A 00 00 00 00 00 01 00 DD 5B 03 00 92 04 A1 .♦.╢T☺.▌[² Ç♦í[☼.→.....☺.▌[♥.Æ♦í 00004720 5B 09 00 19 00 00 00 00 00 01 00 DD 5B ED FF A4 04 A1 5B FC FF 13 00 0A 00 B5 54 01 00 DD 5B FC [○.↓.....☺.▌[φ ñ♦í[ⁿ ‼.◙.╡T☺.▌[ⁿ 00004740 FF B6 04 A1 5B 03 00 12 00 00 00 00 00 01 00 DD 5B 07 00 C8 04 A1 5B FC FF 11 00 0C 00 9F 54 01 ╢♦í[♥.↕.....☺.▌[•.╚♦í[ⁿ ◄.♀.ƒT☺ 00004760 00 DD 5B 32 00 DA 04 A1 5B 32 00 10 00 00 00 00 00 01 00 DD 5B 09 00 EC 04 A1 5B 1D 00 0F 00 00 .▌[2.┌♦í[2.►.....☺.▌[○.∞♦í[↔.☼.. 00004780 00 00 00 01 00 DD 5B FC FF FE 04 A1 5B FD FF 0E 00 0C 00 B6 54 01 00 DD 5B 32 00 10 05 A1 5B 36 ...☺.▌[ⁿ ■♦í[² ♫.♀.╢T☺.▌[2.►♣í[6 000047A0 00 0D 00 00 00 00 00 01 00 DD 5B 0F 00 22 05 A1 5B 09 00 0C 00 00 00 00 00 01 00 DD 5B 38 00 34 .♪.....☺.▌[☼."♣í[○.♀.....☺.▌[8.4 000047C0 05 A1 5B FC FF 0B 00 0E 00 97 54 01 00 DD 5B 08 00 46 05 A1 5B 32 00 0A 00 00 00 00 00 01 00 DD ♣í[ⁿ ♂.♫.ùT☺.▌[◘.F♣í[2.◙.....☺.▌ 000047E0 5B 03 00 58 05 A1 5B 1D 00 09 00 00 00 00 00 01 00 00 00 FC FF 6A 05 A1 5B FC FF 08 00 02 00 53 [♥.X♣í[↔.○.....☺...ⁿ j♣í[ⁿ ◘.☻.S 00004800 53 01 00 DD 5B FC FF 7C 05 A1 5B 08 00 07 00 00 00 00 00 01 00 DD 5B 03 00 8E 05 A1 5B 08 00 06 S☺.▌[ⁿ |♣í[◘.•.....☺.▌[♥.Ä♣í[◘.♠ 00004820 00 00 00 00 00 01 00 DD 5B 3D 00 A0 05 A1 5B 04 00 05 00 00 00 00 00 01 00 DD 5B FC FF B2 05 A1 .....☺.▌[=.á♣í[♦.♣.....☺.▌[ⁿ ▓♣í 00004840 5B 1A 00 04 00 00 00 00 00 01 00 DD 5B 0C 00 7E 09 A1 5B FC FF 0E 00 0A 00 52 53 01 00 DD 5B FC [→.♦.....☺.▌[♀.~○í[ⁿ ♫.◙.RS☺.▌[ⁿ 00004860 FF D6 05 A1 5B FC FF 21 00 04 00 F6 55 01 00 DD 5B 3B 00 E8 05 A1 5B 0F 00 20 00 00 00 00 00 01 ╓♣í[ⁿ !.♦.÷U☺.▌[;.Φ♣í[☼. .....☺ 00004880 00 00 00 FC FF FA 05 A1 5B 09 00 1F 00 00 00 00 00 01 00 DD 5B FC FF 0C 06 A1 5B FC FF 1E 00 02 ...ⁿ ·♣í[○.▼.....☺.▌[ⁿ ♀♠í[ⁿ ▲.☻ 000048A0 00 F2 55 01 00 DD 5B 32 00 1E 06 A1 5B FC FF 19 00 0A 00 ED 55 01 00 DD 5B 09 00 30 06 A1 5B 3D .≥U☺.▌[2.▲♠í[ⁿ ↓.◙.φU☺.▌[○.0♠í[= 000048C0 00 18 00 00 00 00 00 01 00 DD 5B FC FF 42 06 A1 5B FD FF 17 00 0C 00 F0 55 01 00 DD 5B 32 00 54 .↑.....☺.▌[ⁿ B♠í[² ↨.♀.≡U☺.▌[2.T 000048E0 06 A1 5B 0B 00 16 00 00 00 00 00 01 00 DD 5B 08 00 66 06 A1 5B FC FF 15 00 04 00 E8 55 01 00 DD ♠í[♂.▬.....☺.▌[◘.f♠í[ⁿ §.♦.ΦU☺.▌ 00004900 5B 03 00 78 06 A1 5B 03 00 14 00 00 00 00 00 01 00 00 00 FC FF 8A 06 A1 5B FC FF 13 00 06 00 E5 [♥.x♠í[♥.¶.....☺...ⁿ è♠í[ⁿ ‼.♠.σ 00004920 55 01 00 DD 5B FD FF 9C 06 A1 5B 3B 00 12 00 00 00 00 00 01 00 00 00 04 00 AE 06 A1 5B FC FF 11 U☺.▌[² £♠í[;.↕.....☺...♦.«♠í[ⁿ ◄ 00004940 00 02 00 D7 55 01 00 00 00 02 00 C0 06 A1 5B 03 00 10 00 00 00 00 00 01 00 00 00 02 00 D2 06 A1 .☻.╫U☺...☻.└♠í[♥.►.....☺...☻.╥♠í 00004960 5B FC FF 0F 00 0C 00 D6 55 01 00 00 00 02 00 E4 06 A1 5B 0C 00 0E 00 00 00 00 00 01 00 00 00 02 [ⁿ ☼.♀.╓U☺...☻.Σ♠í[♀.♫.....☺...☻ 00004980 00 F6 06 A1 5B FC FF 0D 00 06 00 D6 55 01 00 00 00 02 00 08 07 A1 5B 03 00 0C 00 00 00 00 00 01 .÷♠í[ⁿ ♪.♠.╓U☺...☻.◘•í[♥.♀.....☺ 000049A0 00 00 00 02 00 1A 07 A1 5B FC FF 0B 00 06 00 54 55 01 00 F2 5C 70 02 2C 07 A1 5B FC FF 09 00 10 ...☻.→•í[ⁿ ♂.♠.TU☺.≥\p☻,•í[ⁿ ○.► 000049C0 00 53 55 01 00 3C 00 20 72 3E 07 A1 5B FC FF 07 00 0A 00 C3 54 01 00 20 20 20 20 50 07 A1 5B 32 .SU☺.<. r>•í[ⁿ •.◙.├T☺. P•í[2 000049E0 00 06 00 00 00 00 00 01 00 20 20 20 20 62 07 A1 5B 3E 00 04 00 00 00 00 00 01 00 20 20 20 20 74 .♠.....☺. b•í[>.♦.....☺. t 00004A00 07 A1 5B FD FF 03 00 08 00 D7 55 01 00 65 28 7E 72 86 07 A1 5B 08 00 02 00 00 00 00 00 01 00 76 •í[² ♥.◘.╫U☺.e(~rå•í[◘.☻.....☺.v 00004A20 29 2F 72 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 20 20 20 20 AA 07 A1 5B FC FF 31 00 0A 00 12 )/r ..♦.☺.....☺. ¬•í[ⁿ 1.◙.↕ 00004A40 56 01 00 5B 61 76 20 BC 07 A1 5B 0C 00 30 00 00 00 00 00 01 00 20 20 20 20 CE 07 A1 5B 07 00 1D V☺.[av ╝•í[♀.0.....☺. ╬•í[•.↔ 00004A60 00 0C 00 0D 56 01 00 20 20 20 20 E0 07 A1 5B 0C 00 1C 00 00 00 00 00 01 00 20 20 20 24 F2 07 A1 .♀.♪V☺. α•í[♀.∟.....☺. $≥•í 00004A80 5B 09 00 1B 00 00 00 00 00 01 00 20 20 20 20 04 08 A1 5B FC FF 1A 00 08 00 FA 55 01 00 20 20 20 [○.←.....☺. ♦◘í[ⁿ →.◘.·U☺. 00004AA0 20 16 08 A1 5B 26 00 19 00 00 00 00 00 01 00 20 20 20 20 28 08 A1 5B 08 00 18 00 00 00 00 00 01 ▬◘í[&.↓.....☺. (◘í[◘.↑.....☺ 00004AC0 00 78 74 72 61 3A 08 A1 5B 0C 00 17 00 00 00 00 00 01 00 67 73 20 66 4C 08 A1 5B 07 00 07 00 0C .xtra:◘í[♀.↨.....☺.gs fL◘í[•.•.♀ 00004AE0 00 02 56 01 00 61 72 72 61 5E 08 A1 5B 03 00 06 00 00 00 00 00 01 00 6D 20 27 74 70 08 A1 5B 2C .☻V☺.arra^◘í[♥.♠.....☺.m 'tp◘í[, 00004B00 00 05 00 00 00 00 00 01 00 6B 20 6F 66 82 08 A1 5B 32 00 04 00 00 00 00 00 01 00 6F 70 79 72 94 .♣.....☺.k ofé◘í[2.♦.....☺.opyrö 00004B20 08 A1 5B 0C 00 03 00 00 00 00 00 01 00 2E 20 22 2D A6 08 A1 5B FD FF 02 00 02 00 00 56 01 00 2D ◘í[♀.♥.....☺.. "-ª◘í[² ☻.☻..V☺.- 00004B40 62 6C 61 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 2C 20 64 65 CA 08 A1 5B FC FF 13 00 02 00 75 bla ..♦.☺.....☺., de╩◘í[ⁿ ‼.☻.u 00004B60 56 01 00 20 20 20 20 DC 08 A1 5B 03 00 12 00 00 00 00 00 01 00 72 73 20 70 EE 08 A1 5B 3D 00 11 V☺. ▄◘í[♥.↕.....☺.rs pε◘í[=.◄ 00004B80 00 00 00 00 00 01 00 2C 20 77 69 00 09 A1 5B FC FF 0F 00 10 00 70 56 01 00 64 2C 20 73 12 09 A1 .....☺., wi.○í[ⁿ ☼.►.pV☺.d, s↕○í 00004BA0 5B 32 00 0E 00 00 00 00 00 01 00 6D 61 74 72 24 09 A1 5B 29 00 0D 00 00 00 00 00 01 00 2E 20 20 [2.♫.....☺.matr$○í[).♪.....☺.. 00004BC0 20 36 09 A1 5B 0F 00 0C 00 00 00 00 00 01 00 20 20 20 20 48 09 A1 5B FC FF 0A 00 0A 00 6B 56 01 6○í[☼.♀.....☺. H○í[ⁿ ◙.◙.kV☺ 00004BE0 00 20 20 22 2D 5A 09 A1 5B 3B 00 09 00 00 00 00 00 01 00 67 72 61 64 6C 09 A1 5B FC FF 06 00 08 . "-Z○í[;.○.....☺.gradl○í[ⁿ ♠.◘ 00004C00 00 18 56 01 00 6C 20 76 61 7E 09 A1 5B 1A 00 05 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 FC .↑V☺.l va~○í[→.♣.....☺. ..ⁿ 00004C20 FF 11 00 08 00 15 56 01 00 0C 00 0E 00 A2 09 A1 5B FC FF 1A 00 0A 00 90 56 01 00 06 00 02 00 B4 ◄.◘.§V☺.♀.♫.ó○í[ⁿ →.◙.ÉV☺.♠.☻.┤ 00004C40 09 A1 5B 3D 00 19 00 00 00 00 00 01 00 03 00 08 00 C6 09 A1 5B FD FF 18 00 0E 00 91 56 01 00 02 ○í[=.↓.....☺.♥.◘.╞○í[² ↑.♫.æV☺.☻ 00004C60 00 00 00 D8 09 A1 5B 3B 00 17 00 00 00 00 00 01 00 01 00 02 00 EA 09 A1 5B 0C 00 16 00 00 00 00 ...╪○í[;.↨.....☺.☺.☻.Ω○í[♀.▬.... 00004C80 00 01 00 22 00 0E 00 FC 09 A1 5B 09 00 15 00 00 00 00 00 01 00 21 00 00 00 0E 0A A1 5B 07 00 12 .☺.".♫.ⁿ○í[○.§.....☺.!...♫◙í[•.↕ 00004CA0 00 0E 00 87 56 01 00 20 00 00 00 20 0A A1 5B 3C 00 11 00 00 00 00 00 01 00 1F 00 04 00 32 0A A1 .♫.çV☺. ... ◙í[<.◄.....☺.▼.♦.2◙í 00004CC0 5B FC FF 0F 00 0C 00 82 56 01 00 1E 00 00 00 44 0A A1 5B 3D 00 0E 00 00 00 00 00 01 00 1D 00 00 [ⁿ ☼.♀.éV☺.▲...D◙í[=.♫.....☺.↔.. 00004CE0 00 56 0A A1 5B FD FF 0B 00 0E 00 84 56 01 00 1B 00 0E 00 68 0A A1 5B 3B 00 0A 00 00 00 00 00 01 .V◙í[² ♂.♫.äV☺.←.♫.h◙í[;.◙.....☺ 00004D00 00 1A 00 00 00 7A 0A A1 5B 0C 00 09 00 00 00 00 00 01 00 19 00 08 00 8C 0A A1 5B FC FF 06 00 02 .→...z◙í[♀.○.....☺.↓.◘.î◙í[ⁿ ♠.☻ 00004D20 00 7C 56 01 00 18 00 00 00 9E 0A A1 5B 08 00 05 00 00 00 00 00 01 00 16 00 00 00 B0 0A A1 5B 03 .|V☺.↑...₧◙í[◘.♣.....☺.▬...░◙í[♥ 00004D40 00 04 00 00 00 00 00 01 00 15 00 00 00 FF FF 00 00 FC FF 01 00 10 00 77 56 01 00 14 00 00 00 00 .♦.....☺.§... ..ⁿ ☺.►.wV☺.¶.... 00004D60 00 7A 01 8C 01 9E 01 B0 01 C2 01 D4 01 E6 01 F8 01 0A 02 1C 02 2E 02 40 02 02 04 5C 04 C4 05 98 .z☺î☺₧☺░☺┬☺╘☺µ☺°☺◙☻∟☻.☻@☻☻♦\♦─♣ÿ 00004D80 07 B8 08 90 09 68 01 B2 05 02 00 68 00 02 00 77 00 02 00 76 00 03 00 60 61 00 02 00 61 00 02 00 •╕◘É○h☺▓♣☻.h.☻.w.☻.v.♥.`a.☻.a.☻. 00004DA0 69 00 02 00 73 00 07 00 6D 61 74 72 69 78 00 07 00 6F 75 74 70 75 74 00 09 00 68 65 61 64 69 6E i.☻.s.•.matrix.•.output.○.headin 00004DC0 67 73 00 04 00 6D 61 74 00 09 00 68 65 61 64 69 6E 67 73 00 03 00 60 61 00 04 00 01 00 00 00 02 gs.♦.mat.○.headings.♥.`a.♦.☺...☻ 00004DE0 00 01 00 02 00 69 00 02 00 73 00 08 00 01 00 00 00 01 00 20 07 00 6D 61 74 72 69 78 00 04 00 01 .☺.☻.i.☻.s.◘.☺...☺. •.matrix.♦.☺ 00004E00 00 00 00 02 00 01 00 04 00 6D 61 74 00 07 00 6D 61 74 72 69 78 00 06 00 77 69 64 74 68 00 08 00 ...☻.☺.♦.mat.•.matrix.♠.width.◘. 00004E20 02 00 01 00 01 00 02 00 60 62 02 00 77 00 06 00 66 69 6E 61 6C 00 07 00 6E 65 78 74 60 61 00 02 ☻.☺.☺.☻.`b☻.w.♠.final.•.next`a.☻ 00004E40 00 68 00 04 00 01 00 00 00 02 00 00 00 02 00 77 00 02 00 69 00 05 00 62 61 63 6B 00 05 00 62 61 .h.♦.☺...☻...☻.w.☻.i.♣.back.♣.ba 00004E60 63 6B 00 02 00 68 00 05 00 63 6E 74 72 00 04 00 01 00 00 00 02 00 01 00 02 00 69 00 02 00 69 00 ck.☻.h.♣.cntr.♦.☺...☻.☺.☻.i.☻.i. 00004E80 02 00 77 00 02 00 61 00 02 00 73 00 02 00 73 00 02 00 48 00 02 00 61 00 04 00 01 00 00 00 02 00 ☻.w.☻.a.☻.s.☻.s.☻.H.☻.a.♦.☺...☻. 00004EA0 00 00 02 00 68 00 08 00 11 00 01 00 01 00 11 00 29 20 74 6F 6F 20 6E 61 72 72 6F 77 20 66 6F 72 ..☻.h.◘.◄.☺.☺.◄.) too narrow for 00004EC0 20 02 00 77 00 08 00 0E 00 01 00 01 00 0E 00 63 6F 6C 75 6D 6E 20 77 69 64 74 68 20 28 04 00 01 ☻.w.◘.♫.☺.☺.♫.column width (♦.☺ 00004EE0 00 00 00 02 00 00 00 02 00 73 00 03 00 60 62 00 03 00 60 62 00 04 00 6D 61 74 00 06 00 66 69 6E ...☻...☻.s.♥.`b.♥.`b.♦.mat.♠.fin 00004F00 61 6C 00 07 00 6D 61 74 72 69 78 00 04 00 01 00 00 00 02 00 01 00 08 00 01 00 00 00 01 00 2D 03 al.•.matrix.♦.☺...☻.☺.◘.☺...☺.-♥ 00004F20 00 60 62 00 02 00 01 00 00 00 08 00 9A 99 99 99 99 99 B9 3F 04 00 6D 61 74 00 04 00 6D 61 74 00 .`b.☻.☺...◘.ÜÖÖÖÖÖ╣?♦.mat.♦.mat. 00004F40 78 07 00 6F 6E 65 73 69 6E 00 00 01 00 0A 23 00 09 00 06 00 15 00 02 00 01 00 01 00 01 00 01 00 x•.onesin..☺.◙#.○.♠.§.☻.☺.☺.☺.☺. 00004F60 01 00 01 00 08 00 1C 02 02 00 01 00 09 00 3C 00 20 72 23 6F 6E 65 73 69 6E 20 61 3B 4C 69 6F 20 ☺.☺.◘.∟☻☻.☺.○.<. r#onesin a;Lio 00004F80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004FA0 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 28 52 61 29 4E 72 2F 49 52 72 23 2C 31 3D 61 2B 4C r#(Ra)Nr/IRr#,1=a+L 00004FC0 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 20 20 20 20 20 20 20 io#0 00004FE0 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 00005000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005020 20 20 20 20 22 6F 6E 65 73 69 6E 20 2D 20 6C 6F 63 61 74 65 20 6F 6E 65 73 20 69 6E 20 6E 75 6D "onesin - locate ones in num 00005040 65 72 69 63 20 73 74 72 75 63 74 75 72 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 eric structure 00005060 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 00005080 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 61 6E 20 iques' copyright 1978, ibm. "an 000050A0 61 72 72 61 79 20 6F 66 20 6F 6E 65 73 20 61 6E 64 20 7A 65 72 6F 73 20 6D 61 79 20 68 61 76 65 array of ones and zeros may have 000050C0 20 62 65 65 6E 20 74 68 65 20 72 65 73 75 6C 74 20 6F 66 20 61 20 20 20 22 74 65 73 74 20 6F 66 been the result of a "test of 000050E0 20 61 6E 6F 74 68 65 72 20 61 72 72 61 79 2E 20 20 74 68 69 73 20 66 75 6E 63 74 69 6F 6E 20 77 another array. this function w 00005100 69 6C 6C 20 63 6F 6E 76 65 72 74 20 74 68 65 20 6F 6E 65 73 22 74 6F 20 74 68 65 69 72 20 6F 77 ill convert the ones"to their ow 00005120 6E 20 6C 6F 63 61 74 69 6F 6E 73 20 28 4C 69 6F 23 30 29 20 62 79 20 63 6F 6C 75 6D 6E 73 2C 20 n locations (Lio#0) by columns, 00005140 74 68 61 74 20 63 61 6E 20 72 65 61 64 69 6C 79 22 62 65 20 75 73 65 64 20 74 6F 20 67 65 6E 65 that can readily"be used to gene 00005160 72 61 74 65 20 73 75 62 73 63 72 69 70 74 73 20 74 68 61 74 20 72 65 6C 61 74 65 20 74 6F 20 74 rate subscripts that relate to t 00005180 68 65 20 73 6F 75 72 63 65 2E 20 20 36 00 FF FF 00 00 ED FF 0C 00 00 00 00 00 01 00 01 00 13 00 he source. 6. ..φ ♀.....☺.☺.‼. 000051A0 24 00 B4 57 1B 00 0B 00 00 00 00 00 01 00 71 3B 4C 69 00 00 B4 57 FC FF 0A 00 0E 00 22 52 01 00 $.┤W←.♂.....☺.q;Li..┤Wⁿ ◙.♫."R☺. 000051C0 20 20 20 20 48 00 B4 57 FC FF 03 00 10 00 66 52 01 00 20 20 20 20 5A 00 B4 57 03 00 02 00 00 00 H.┤Wⁿ ♥.►.fR☺. Z.┤W♥.☻... 000051E0 00 00 01 00 23 71 5E 3D 24 00 B4 57 FC FF 01 00 08 00 22 52 01 00 2E 27 29 2F 7E 00 B4 57 FD FF ..☺.#q^=$.┤Wⁿ ☺.◘."R☺..')/~.┤W² 00005200 17 00 0C 00 E1 52 01 00 20 20 20 20 90 00 B4 57 03 00 16 00 00 00 00 00 01 00 20 20 20 27 A2 00 ↨.♀.ßR☺. É.┤W♥.▬.....☺. 'ó. 00005220 B4 57 ED FF 13 00 00 00 00 00 01 00 72 27 65 73 B4 00 B4 57 0B 00 12 00 00 00 00 00 01 00 72 23 ┤Wφ ‼.....☺.r'es┤.┤W♂.↕.....☺.r# 00005240 60 64 C6 00 B4 57 FC FF 11 00 0E 00 8A 52 01 00 20 20 20 20 D8 00 B4 57 1D 00 10 00 00 00 00 00 `d╞.┤Wⁿ ◄.♫.èR☺. ╪.┤W↔.►..... 00005260 01 00 45 73 29 58 EA 00 B4 57 FD FF 0F 00 08 00 D1 52 01 00 56 5C 7E 70 FC 00 B4 57 0C 00 0E 00 ☺.Es)XΩ.┤W² ☼.◘.╤R☺.V\~pⁿ.┤W♀.♫. 00005280 00 00 00 00 01 00 6F 23 30 20 0E 01 B4 57 03 00 0D 00 00 00 00 00 01 00 30 20 20 20 20 01 B4 57 ....☺.o#0 ♫☺┤W♥.♪.....☺.0 ☺┤W 000052A0 FC FF 0C 00 0C 00 77 52 01 00 20 20 20 20 32 01 B4 57 32 00 0B 00 00 00 00 00 01 00 20 20 20 20 ⁿ ♀.♀.wR☺. 2☺┤W2.♂.....☺. 000052C0 44 01 B4 57 29 00 0A 00 00 00 00 00 01 00 20 20 20 20 56 01 B4 57 0F 00 09 00 00 00 00 00 01 00 D☺┤W).◙.....☺. V☺┤W☼.○.....☺. 000052E0 74 20 74 6F 68 01 B4 57 FC FF 08 00 06 00 77 52 01 00 20 20 20 20 7A 01 B4 57 2E 00 07 00 00 00 t toh☺┤Wⁿ ◘.♠.wR☺. z☺┤W..•... 00005300 00 00 01 00 20 20 20 20 8C 01 B4 57 09 00 06 00 00 00 00 00 01 00 27 74 68 65 9E 01 B4 57 FC FF ..☺. î☺┤W○.♠.....☺.'the₧☺┤Wⁿ 00005320 05 00 10 00 76 52 01 00 6F 66 20 74 B0 01 B4 57 32 00 04 00 00 00 00 00 01 00 79 72 69 67 C2 01 ♣.►.vR☺.of t░☺┤W2.♦.....☺.yrig┬☺ 00005340 B4 57 08 00 03 00 00 00 00 00 01 00 20 22 2D 63 D4 01 B4 57 03 00 02 00 00 00 00 00 01 00 72 73 ┤W◘.♥.....☺. "-c╘☺┤W♥.☻.....☺.rs 00005360 20 62 FF FF 00 00 FC FF 01 00 0A 00 67 52 01 00 65 20 67 6C F8 01 B4 57 FD FF 02 00 02 00 E3 52 b ..ⁿ ☺.◙.gR☺.e gl°☺┤W² ☻.☻.πR 00005380 01 00 74 60 73 2C FF FF 00 00 04 00 01 00 00 00 00 00 01 00 72 65 73 65 FF FF 00 00 02 00 00 00 ☺.t`s, ..♦.☺.....☺.rese ..☻... 000053A0 00 00 00 00 01 00 75 6D 62 65 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 2C 20 77 69 FF FF 00 00 ....☺.umbe ..☻.......☺., wi .. 000053C0 02 00 00 00 00 00 00 00 01 00 6F 20 62 65 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 74 68 65 69 ☻.......☺.o be ..☻.......☺.thei 000053E0 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 65 73 2C 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 ..☻.......☺.es, ..☻.......☺. 00005400 20 20 20 20 00 00 6C 00 E6 01 0A 02 1C 02 2E 02 40 02 52 02 64 02 5A 00 FF FF 02 00 61 00 07 00 ..l.µ☺◙☻∟☻.☻@☻R☻d☻Z. ☻.a.•. 00005420 6F 6E 65 73 69 6E 00 02 00 72 00 04 00 01 00 00 00 02 00 00 00 02 00 61 00 04 00 01 00 00 00 02 onesin.☻.r.♦.☺...☻...☻.a.♦.☺...☻ 00005440 00 01 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 00 78 0D 00 .☺.☻.r.☻.r.☻.a.☻.r.♦.☺...☻...x♪. 00005460 6E 75 6D 62 6C 61 6E 6B 63 6F 6C 73 00 00 01 00 0A 2B 00 08 00 04 00 09 00 18 00 02 00 01 00 01 numblankcols..☺.◙+.◘.♦.○.↑.☻.☺.☺ 00005480 00 01 00 01 00 08 00 E0 01 02 00 01 00 08 00 3C 00 20 7A 23 6E 75 6D 62 6C 61 6E 6B 63 6F 6C 73 .☺.☺.◘.α☺☻.☺.◘.<. z#numblankcols 000054A0 20 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a 000054C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 23 26 60 2F 27 20 27 3D 46 6D 61 74 72 69 78 20 61 a#&`/' '=Fmatrix a 000054E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005500 20 20 20 20 20 20 20 20 20 20 7A 23 28 52 61 29 7C 28 5F 4C 69 6F 29 2B 28 61 49 30 29 2C 28 60 z#(Ra)|(_Lio)+(aI0),(` 00005520 4F 61 29 49 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 Oa)I0 00005540 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 00005560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005580 20 22 6E 75 6D 62 6C 61 6E 6B 63 6F 6C 73 20 2D 20 63 6F 75 6E 74 73 20 62 6C 61 6E 6B 20 63 6F "numblankcols - counts blank co 000055A0 6C 75 6D 6E 73 20 61 74 20 73 69 64 65 73 20 6F 66 20 73 74 72 75 63 74 75 72 65 20 20 22 66 72 lumns at sides of structure "fr 000055C0 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 000055E0 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 72 65 74 75 72 es' copyright 1978, ibm. "-retur 00005600 6E 73 20 61 20 74 77 6F 2D 65 6C 65 6D 65 6E 74 20 76 65 63 74 6F 72 20 72 65 70 72 65 73 65 6E ns a two-element vector represen 00005620 74 69 6E 67 20 63 6F 6C 75 6D 6E 73 20 6F 66 20 20 20 20 20 20 22 20 73 75 63 63 65 73 73 69 76 ting columns of " successiv 00005640 65 20 62 6C 61 6E 6B 73 20 6F 6E 20 74 68 65 20 6C 65 66 74 20 61 6E 64 20 72 69 67 68 74 20 73 e blanks on the left and right s 00005660 69 64 65 20 6F 66 20 73 74 72 75 63 74 75 72 65 2E 12 00 FF FF 00 00 FC FF 10 00 0C 00 56 51 01 ide of structure.↕. ..ⁿ ►.♀.VQ☺ 00005680 00 00 75 04 3B 24 00 3B 56 FC FF 03 00 06 00 23 52 01 00 75 D8 FF 76 36 00 3B 56 03 00 02 00 00 ..u♦;$.;Vⁿ ♥.♠.#R☺.u╪ v6.;V♥.☻.. 000056A0 00 00 00 01 00 83 C4 08 09 00 00 3B 56 FC FF 01 00 06 00 56 51 01 00 31 C0 50 50 5A 00 3B 56 FC ...☺.â─◘○..;Vⁿ ☺.♠.VQ☺.1└PPZ.;Vⁿ 000056C0 FF 12 00 10 00 E6 51 01 00 9A 86 41 29 6C 00 3B 56 FC FF 0B 00 08 00 5D 52 01 00 5D C2 04 00 7E ↕.►.µQ☺.ÜåA)l.;Vⁿ ♂.◘.]R☺.]┬♦.~ 000056E0 00 3B 56 26 00 0A 00 00 00 00 00 01 00 00 52 50 B8 90 00 3B 56 1D 00 09 00 00 00 00 00 01 00 E9 .;V&.◙.....☺..RP╕É.;V↔.○.....☺.Θ 00005700 BB 00 1E A2 00 3B 56 07 00 06 00 0C 00 56 52 01 00 14 83 FE 01 B4 00 3B 56 40 00 04 00 00 00 00 ╗.▲ó.;V•.♠.♀.VR☺.¶â■☺┤.;V@.♦.... 00005720 00 01 00 E9 97 00 C7 C6 00 3B 56 06 00 03 00 00 00 00 00 01 00 31 FF EB 3F D8 00 3B 56 03 00 02 .☺.Θù.╟╞.;V♠.♥.....☺.1 δ?╪.;V♥.☻ 00005740 00 00 00 00 00 01 00 B8 01 00 50 FF FF 00 00 FC FF 01 00 0A 00 E6 51 01 00 09 C0 74 60 FC 00 3B .....☺.╕☺.P ..ⁿ ☺.◙.µQ☺.○└t`ⁿ.; 00005760 56 FD FF 1B 00 04 00 96 52 01 00 50 40 50 9A 0E 01 3B 56 29 00 1A 00 00 00 00 00 01 00 16 8D 46 V² ←.♦.ûR☺.P@PÜ♫☺;V).→.....☺.▬ìF 00005780 FA 20 01 3B 56 09 00 19 00 00 00 00 00 01 00 D2 0D 90 C7 32 01 3B 56 FC FF 18 00 08 00 5E 52 01 · ☺;V○.↓.....☺.╥♪É╟2☺;Vⁿ ↑.◘.^R☺ 000057A0 00 FE C7 06 90 44 01 3B 56 46 00 16 00 00 00 00 00 01 00 48 5F 5E 8B 56 01 3B 56 08 00 15 00 00 .■╟♠ÉD☺;VF.▬.....☺.H_^ïV☺;V◘.§.. 000057C0 00 00 00 01 00 5E 8B E5 5D 68 01 3B 56 0C 00 14 00 00 00 00 00 01 00 3E B8 30 00 7A 01 3B 56 09 ...☺.^ïσ]h☺;V♀.¶.....☺.>╕0.z☺;V○ 000057E0 00 13 00 00 00 00 00 01 00 00 3B C1 75 8C 01 3B 56 FD FF 12 00 04 00 8B 52 01 00 89 CE 1E B8 9E .‼.....☺..;┴uî☺;V² ↕.♦.ïR☺.ë╬▲╕₧ 00005800 01 3B 56 29 00 11 00 00 00 00 00 01 00 4D 29 34 83 B0 01 3B 56 FC FF 10 00 02 00 5E 52 01 00 90 ☺;V).◄.....☺.M)4â░☺;Vⁿ ►.☻.^R☺.É 00005820 5E 8B E5 C2 01 3B 56 08 00 0F 00 00 00 00 00 01 00 00 45 55 8B D4 01 3B 56 0B 00 0E 00 00 00 00 ^ïσ┬☺;V◘.☼.....☺..EUï╘☺;V♂.♫.... 00005840 00 01 00 52 50 E8 79 E6 01 3B 56 09 00 0D 00 00 00 00 00 01 00 4D CA 04 00 F8 01 3B 56 ED FF 0A .☺.RPΦyµ☺;V○.♪.....☺.M╩♦.°☺;Vφ ◙ 00005860 00 00 00 00 00 01 00 8B 77 16 46 0A 02 3B 56 3F 00 09 00 00 00 00 00 01 00 00 C4 1E 7A 1C 02 3B .....☺.ïw▬F◙☻;V?.○.....☺..─▲z∟☻; 00005880 56 08 00 08 00 00 00 00 00 01 00 3C 2B CE 49 2E 02 3B 56 83 00 07 00 00 00 00 00 01 00 D4 8B 0E V◘.◘.....☺.<+╬I.☻;Vâ.•.....☺.╘ï♫ 000058A0 A6 40 02 3B 56 09 00 06 00 00 00 00 00 01 00 EA 00 57 56 52 02 3B 56 FC FF 05 00 04 00 12 52 01 ª@☻;V○.♠.....☺.Ω.WVR☻;Vⁿ ♣.♦.↕R☺ 000058C0 00 C1 89 56 FE 64 02 3B 56 32 00 04 00 00 00 00 00 01 00 FF 76 FE FF 76 02 3B 56 08 00 03 00 00 .┴ëV■d☻;V2.♦.....☺. v■ v☻;V◘.♥.. 000058E0 00 00 00 01 00 5D 4D CB 45 88 02 3B 56 03 00 02 00 00 00 00 00 01 00 50 B0 4F 50 FF FF 00 00 FC ...☺.]M╦Eê☻;V♥.☻.....☺.P░OP ..ⁿ 00005900 FF 01 00 0C 00 0C 52 01 00 4D CA 04 00 AC 02 3B 56 FD FF 02 00 0A 00 9F 52 01 00 56 FF 36 EC FF ☺.♀.♀R☺.M╩♦.¼☻;V² ☻.◙.ƒR☺.V 6∞ 00005920 FF 00 00 04 00 01 00 00 00 00 00 01 00 50 B0 11 50 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 C1 ..♦.☺.....☺.P░◄P ..☻.......☺.┴ 00005940 75 03 E9 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 9A 00 20 52 FF FF 00 00 02 00 00 00 00 00 00 u♥Θ ..☻.......☺.Ü. R ..☻...... 00005960 00 01 00 EE 00 89 56 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 FF 76 08 00 00 48 00 EA 00 9A .☺.ε.ëV ..☻.......☺.☺ v◘..H.Ω.Ü 00005980 02 BE 02 D0 02 E2 02 F4 02 36 00 FF FF 02 00 61 00 0D 00 6E 75 6D 62 6C 61 6E 6B 63 6F 6C 73 00 ☻╛☻╨☻Γ☻⌠☻6. ☻.a.♪.numblankcols. 000059A0 02 00 7A 00 02 00 61 00 07 00 6D 61 74 72 69 78 00 08 00 01 00 00 00 01 00 20 02 00 61 00 04 00 ☻.z.☻.a.•.matrix.◘.☺...☺. ☻.a.♦. 000059C0 01 00 00 00 02 00 00 00 02 00 61 00 04 00 01 00 00 00 02 00 00 00 02 00 61 00 02 00 61 00 02 00 ☺...☻...☻.a.♦.☺...☻...☻.a.☻.a.☻. 000059E0 7A 00 04 00 01 00 00 00 02 00 00 00 78 07 00 6E 65 78 74 60 61 00 00 01 00 09 1F 00 05 00 05 00 z.♦.☺...☻...x•.next`a..☺.○▼.♣.♣. 00005A00 01 00 01 00 10 00 08 00 08 00 31 01 02 00 01 00 05 00 3D 00 20 77 6F 72 64 23 6E 65 78 74 60 61 ☺.☺.►.◘.◘.1☺☻.☺.♣.=. word#next`a 00005A20 3B 6C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;l 00005A40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6E 65 78 74 60 61 20 75 73 65 64 20 69 6E "next`a used in 00005A60 20 6F 75 74 70 75 74 20 66 75 6E 63 74 69 6F 6E 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 output function. 00005A80 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 00005AA0 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 00005AC0 39 37 38 2C 20 69 62 6D 2E 20 20 20 77 6F 72 64 23 28 6C 23 26 5C 27 20 27 5E 3D 60 61 29 2F 60 978, ibm. word#(l#&\' '^=`a)/` 00005AE0 61 23 64 6C 62 20 60 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 a#dlb `a 00005B00 20 20 20 20 20 20 20 20 20 60 61 23 28 7E 6C 29 2F 60 61 20 20 20 20 20 20 20 20 20 20 20 20 20 `a#(~l)/`a 00005B20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005B40 20 20 20 20 20 24 00 FF FF 00 00 FC FF 0D 00 04 00 57 51 01 00 01 00 12 00 24 00 0F 55 1B 00 0C $. ..ⁿ ♪.♦.WQ☺.☺.↕.$.☼U←.♀ 00005B60 00 00 00 00 00 01 00 20 20 20 20 36 00 0F 55 FC FF 06 00 06 00 D0 51 01 00 20 20 20 20 48 00 0F .....☺. 6.☼Uⁿ ♠.♠.╨Q☺. H.☼ 00005B80 55 03 00 05 00 00 00 00 00 01 00 20 20 20 20 00 00 0F 55 FC FF 01 00 0C 00 27 51 01 00 70 72 65 U♥.♣.....☺. ..☼Uⁿ ☺.♀.'Q☺.pre 00005BA0 63 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 6D 75 6C 74 FF FF 00 00 02 00 00 00 00 00 00 00 01 c ..☻.......☺.mult ..☻.......☺ 00005BC0 00 20 20 20 20 90 00 0F 55 FC FF 1B 00 06 00 E7 51 01 00 22 6D 61 6B A2 00 0F 55 FC FF 17 00 08 . É.☼Uⁿ ←.♠.τQ☺."makó.☼Uⁿ ↨.◘ 00005BE0 00 E2 51 01 00 72 20 6F 66 B4 00 0F 55 03 00 16 00 00 00 00 00 01 00 20 74 6F 20 C6 00 0F 55 FC .ΓQ☺.r of┤.☼U♥.▬.....☺. to ╞.☼Uⁿ 00005C00 FF 14 00 02 00 E2 51 01 00 20 20 20 20 D8 00 0F 55 0F 00 13 00 00 00 00 00 01 00 66 69 78 20 EA ¶.☻.ΓQ☺. ╪.☼U☼.‼.....☺.fix Ω 00005C20 00 0F 55 09 00 12 00 00 00 00 00 01 00 31 20 20 20 FC 00 0F 55 FC FF 10 00 0C 00 E1 51 01 00 20 .☼U○.↕.....☺.1 ⁿ.☼Uⁿ ►.♀.ßQ☺. 00005C40 20 20 20 0E 01 0F 55 3E 00 0E 00 00 00 00 00 01 00 20 20 20 20 20 01 0F 55 07 00 0B 00 0C 00 1E ♫☺☼U>.♫.....☺. ☺☼U•.♂.♀.▲ 00005C60 52 01 00 20 20 20 20 32 01 0F 55 3C 00 0A 00 00 00 00 00 01 00 20 20 20 20 44 01 0F 55 06 00 09 R☺. 2☺☼U<.◙.....☺. D☺☼U♠.○ 00005C80 00 00 00 00 00 01 00 20 61 23 62 56 01 0F 55 03 00 08 00 00 00 00 00 01 00 20 20 20 20 68 01 0F .....☺. a#bV☺☼U♥.◘.....☺. h☺☼ 00005CA0 55 FC FF 07 00 06 00 D8 51 01 00 20 20 20 20 7A 01 0F 55 08 00 06 00 00 00 00 00 01 00 20 20 20 Uⁿ •.♠.╪Q☺. z☺☼U◘.♠.....☺. 00005CC0 20 8C 01 0F 55 03 00 05 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 FC FF 01 00 10 00 D0 51 01 î☺☼U♥.♣.....☺. ..ⁿ ☺.►.╨Q☺ 00005CE0 00 20 20 20 20 B0 01 0F 55 FC FF 09 00 06 00 F6 51 01 00 20 20 20 20 C2 01 0F 55 0F 00 08 00 00 . ░☺☼Uⁿ ○.♠.÷Q☺. ┬☺☼U☼.◘.. 00005D00 00 00 00 01 00 20 66 6F 72 D4 01 0F 55 09 00 07 00 00 00 00 00 01 00 66 6C 6F 77 E6 01 0F 55 FC ...☺. for╘☺☼U○.•.....☺.flowµ☺☼Uⁿ 00005D20 FF 06 00 02 00 E8 51 01 00 25 31 65 37 F8 01 0F 55 84 00 05 00 00 00 00 00 01 00 6C 31 3A 24 0A ♠.☻.ΦQ☺.%1e7°☺☼Uä.♣.....☺.l1:$◙ 00005D40 02 0F 55 08 00 04 00 00 00 00 00 01 00 62 29 2F 6C 1C 02 0F 55 03 00 03 00 00 00 00 00 01 00 20 ☻☼U◘.♦.....☺.b)/l∟☻☼U♥.♥.....☺. 00005D60 20 20 20 FF FF 00 00 FC FF 01 00 0C 00 E7 51 01 00 20 20 20 20 00 00 5A 00 6C 00 7E 00 9E 01 48 ..ⁿ ☺.♀.τQ☺. ..Z.l.~.₧☺H 00005D80 00 FF FF 02 00 6C 00 07 00 6E 65 78 74 60 61 00 05 00 77 6F 72 64 00 03 00 60 61 00 04 00 64 6C . ☻.l.•.next`a.♣.word.♥.`a.♦.dl 00005DA0 62 00 03 00 60 61 00 03 00 60 61 00 08 00 01 00 00 00 01 00 20 02 00 6C 00 05 00 77 6F 72 64 00 b.♥.`a.♥.`a.◘.☺...☺. ☻.l.♣.word. 00005DC0 03 00 60 61 00 02 00 6C 00 03 00 60 61 00 00 ♥.`a.☻.l.♥.`a..