============================================================================================================================================== 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 00 00 82 76 49 68 C2 25 3C 3D 01 00 00 00 78 02 00 00 00 03 00 08 00 00 00 05 00 00 00 01 ☺...évIh┬%<=☺...x☻...♥.◘...♣...☺ 00000020 00 00 00 01 00 00 00 05 00 00 00 2E 2C 2A 30 5F 78 04 00 00 00 6D 32 76 00 00 01 00 00 00 0A 00 ...☺...♣....,*0_x♦...m2v..☺...◙. 00000040 00 29 00 00 00 11 00 00 00 04 00 00 00 15 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 01 00 00 .)...◄...♦...§...☻...☺...☺...☺.. 00000060 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 .☺...☺...☺...☺...☺...☺...☺...☺.. 00000080 00 01 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 FC 03 00 00 02 00 00 00 01 00 00 00 11 00 00 .☺...☺...☺...◘...ⁿ♥..☻...☺...◄.. 000000A0 00 3C 00 00 00 20 76 23 6D 32 76 20 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .<... v#m2v m 000000C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000000E0 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 2C 60 63 60 72 v#-1U(,`O1,V\' '^=`Om)/,m,`c`r 00000100 20 20 20 20 20 20 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 00000120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6D 32 76 20 2D 20 "m2v - 00000160 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 20 20 20 20 20 compress character matrix 00000180 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 000001A0 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 000001C0 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 70 6C 65 6D 65 right 1978, ibm. "these compleme 000001E0 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 61 79 20 63 6F ntary functions allow two-way co 00000200 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 63 74 65 72 20 nversion "between character 00000220 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 6F 72 73 2E 20 matrices and character vectors. 00000240 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 68 61 72 61 63 "m2v: converts a charac 00000260 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 20 76 65 63 74 ter matrix m to a character vect 00000280 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 69 74 68 20 74 or v." each row of m, with t 000002A0 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 6F 6D 65 73 20 railing blanks omitted, becomes 000002C0 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 20 62 79 20 61 " a 'line' in v, ended by a 000002E0 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 20 20 22 76 32 carriage return. "v2 00000300 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 74 6F 72 20 76 m: converts a character vector v 00000320 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 20 20 20 20 65 to a character matrix m." e 00000340 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 69 6E 67 20 65 ach 'line' (a character string e 00000360 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 72 65 74 75 72 nding in a carriage " retur 00000380 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 20 70 61 64 64 n) becomes a row of m, with padd 000003A0 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 64 20 6D 20 77 ing as required. "both v and m w 000003C0 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 73 70 6C 61 79 ill appear the same when display 000003E0 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 65 6E 74 61 74 ed, but the "vector representat 00000400 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 63 61 6C 20 69 ion is usually more economical i 00000420 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 62 61 6C 20 60 n "storage. the global ` 00000440 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 20 28 73 65 65 c`r must exist in workspace (see 00000460 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 20 20 20 20 20 "Gtcc). 00000480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000004A0 20 18 00 00 00 FF FF FF FF FC FF FF FF 07 00 00 00 60 2C 04 00 01 00 00 00 01 00 00 00 30 00 00 ↑... ⁿ •...`,♦.☺...☺...0.. 000004C0 00 FC FF FF FF 03 00 00 00 D0 2D 04 00 01 00 00 00 20 20 20 20 48 00 00 00 03 00 00 00 02 00 00 .ⁿ ♥...╨-♦.☺... H...♥...☻.. 000004E0 00 00 00 00 00 01 00 00 00 20 20 20 20 00 00 00 00 FC FF FF FF 01 00 00 00 C8 2D 04 00 01 00 00 .....☺... ....ⁿ ☺...╚-♦.☺.. 00000500 00 20 76 23 2D 78 00 00 00 FC FF FF FF 1B 00 00 00 60 2D 04 00 01 00 00 00 2C 6D 2C 60 90 00 00 . v#-x...ⁿ ←...`-♦.☺...,m,`É.. 00000520 00 0C 00 00 00 1A 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 A8 00 00 00 FC FF FF FF 19 00 00 .♀...→.......☺... ¿...ⁿ ↓.. 00000540 00 B0 2E 04 00 01 00 00 00 20 20 20 20 C0 00 00 00 0C 00 00 00 18 00 00 00 00 00 00 00 01 00 00 .░.♦.☺... └...♀...↑.......☺.. 00000560 00 20 20 20 20 D8 00 00 00 0F 00 00 00 17 00 00 00 00 00 00 00 01 00 00 00 22 6D 32 76 F0 00 00 . ╪...☼...↨.......☺..."m2v≡.. 00000580 00 09 00 00 00 16 00 00 00 00 00 00 00 01 00 00 00 72 20 6D 61 08 01 00 00 FC FF FF FF 15 00 00 .○...▬.......☺...r ma◘☺..ⁿ §.. 000005A0 00 98 2D 04 00 01 00 00 00 20 20 20 20 20 01 00 00 46 00 00 00 13 00 00 00 00 00 00 00 01 00 00 .ÿ-♦.☺... ☺..F...‼.......☺.. 000005C0 00 70 6C 20 68 38 01 00 00 3E 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 73 27 20 63 50 01 00 .pl h8☺..>...◄.......☺...s' cP☺. 000005E0 00 07 00 00 00 0E 00 00 00 40 8F 04 00 01 00 00 00 22 74 68 65 68 01 00 00 3C 00 00 00 0D 00 00 .•...♫...@Å♦.☺..."theh☺..<...♪.. 00000600 00 00 00 00 00 01 00 00 00 63 74 69 6F 80 01 00 00 36 00 00 00 0C 00 00 00 00 00 00 00 01 00 00 .....☺...ctioÇ☺..6...♀.......☺.. 00000620 00 76 65 72 73 98 01 00 00 0C 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 72 61 63 74 B0 01 00 .versÿ☺..♀...♂.......☺...ract░☺. 00000640 00 FD FF FF FF 0A 00 00 00 60 80 04 00 01 00 00 00 61 63 74 65 C8 01 00 00 46 00 00 00 08 00 00 .² ◙...`Ç♦.☺...acte╚☺..F...◘.. 00000660 00 00 00 00 00 01 00 00 00 22 6D 32 76 E0 01 00 00 0C 00 00 00 07 00 00 00 00 00 00 00 01 00 00 .....☺..."m2vα☺..♀...•.......☺.. 00000680 00 65 72 20 6D F8 01 00 00 08 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 65 72 20 76 10 02 00 .er m°☺..◘...♠.......☺...er v►☻. 000006A0 00 35 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 6F 77 20 6F 28 02 00 00 FD FF FF FF 03 00 00 .5...♣.......☺...ow o(☻..² ♥.. 000006C0 00 00 B1 05 00 01 00 00 00 6C 61 6E 6B 40 02 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 ..▒♣.☺...lank@☻..♥...☻.......☺.. 000006E0 00 22 20 20 20 FF FF FF FF FC FF FF FF 01 00 00 00 70 2D 04 00 01 00 00 00 65 64 20 62 70 02 00 ." ⁿ ☺...p-♦.☺...ed bp☻. 00000700 00 FD FF FF FF 02 00 00 00 20 8B 04 00 01 00 00 00 20 20 20 20 FF FF FF FF 04 00 00 00 01 00 00 .² ☻... ï♦.☺... ♦...☺.. 00000720 00 00 00 00 00 01 00 00 00 74 73 20 61 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 .....☺...ts a ☻...........☺.. 00000740 00 74 6F 20 61 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 22 20 20 20 FF FF FF .to a ☻...........☺..." 00000760 FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 72 61 63 74 FF FF FF FF 02 00 00 00 00 00 00 ☻...........☺...ract ☻...... 00000780 00 00 00 00 00 01 00 00 00 61 20 63 61 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 .....☺...a ca ☻...........☺.. 000007A0 00 29 20 62 65 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 74 68 20 70 FF FF FF .) be ☻...........☺...th p 000007C0 FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 22 62 6F 74 FF FF FF FF 02 00 00 00 00 00 00 ☻...........☺..."bot ☻...... 000007E0 00 00 00 00 00 01 00 00 00 72 20 74 68 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 .....☺...r th ☻...........☺.. 00000800 00 64 2C 20 62 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 20 22 20 FF FF FF .d, b ☻...........☺... " 00000820 FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 ☻...........☺... ☻...... 00000840 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 .....☺... ☻...........☺.. 00000860 00 20 74 6F 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 72 69 61 62 00 00 00 . to ☻...........☺...riab... 00000880 00 60 00 00 00 58 02 00 00 88 02 00 00 A0 02 00 00 B8 02 00 00 D0 02 00 00 E8 02 00 00 00 03 00 .`...X☻..ê☻..á☻..╕☻..╨☻..Φ☻...♥. 000008A0 00 18 03 00 00 30 03 00 00 48 03 00 00 60 03 00 00 78 03 00 00 90 03 00 00 A8 03 00 00 C0 03 00 .↑♥..0♥..H♥..`♥..x♥..É♥..¿♥..└♥. 000008C0 00 48 00 00 00 FF FF FF FF 02 00 00 00 6D 00 04 00 00 00 6D 32 76 00 02 00 00 00 76 00 05 00 00 .H... ☻...m.♦...m2v.☻...v.♣.. 000008E0 00 60 63 60 72 00 02 00 00 00 6D 00 02 00 00 00 6D 00 08 00 00 00 01 00 00 00 00 00 00 00 01 00 .`c`r.☻...m.☻...m.◘...☺.......☺. 00000900 00 00 20 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 00 00 00 01 00 00 00 00 .. ♦...☺.......♦...☺...☻...☺.... 00000920 00 00 00 08 00 00 00 00 00 00 00 00 00 F0 BF 02 00 00 00 76 00 04 00 00 00 01 00 00 00 00 00 00 ...◘.........≡┐☻...v.♦...☺...... 00000940 00 04 00 00 00 00 00 00 00 78 02 00 00 00 61 00 08 00 00 00 AD 04 00 00 02 00 00 00 01 00 00 00 .♦.......x☻...a.◘...¡♦..☻...☺... 00000960 13 00 00 00 3F 00 00 00 20 6D 61 74 23 68 65 61 64 69 6E 67 73 20 6F 75 74 70 75 74 20 6D 61 74 ‼...?... mat#headings output mat 00000980 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 20 20 20 20 20 20 rix;s;i;a;`a;v;w;h;Lio 000009A0 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 61 64 69 6E 67 73 "output - center headings 000009C0 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 20 20 20 20 20 20 over formatted columns. 000009E0 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 "from 'the apl handbook of 00000A00 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D techniques' copyright 1978, ibm 00000A20 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 65 72 20 76 65 63 . "-headings, a character vec 00000A40 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 20 77 69 6C 6C 20 tor with blank delimiters, will 00000A60 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 70 72 6F 70 72 69 be " centered over the appropri 00000A80 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 64 20 74 6F 20 20 ate columns, and unerscored to 00000AA0 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 73 65 20 63 6F 6C " the full width of those col 00000AC0 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 61 74 72 69 78 2E umns in the preformatted matrix. 00000AE0 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 6F 72 20 69 74 73 "-any heading too wide for its 00000B00 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 20 20 20 20 20 20 columns will be noted. 00000B20 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 20 6F 66 20 68 65 "-any insufficient number of he 00000B40 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 72 72 6F 72 2E 20 adings will cause length error. 00000B60 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 67 73 20 77 69 6C "-only the leftmost headings wil 00000B80 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 20 20 20 20 20 22 l be used. " 00000BA0 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 68 77 69 64 74 68 -uses: hdma hnext`a hcntr hwidth 00000BC0 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 20 20 20 20 22 2D hdlb "- 00000BE0 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 65 2C 20 60 62 2C generates a global variable, `b, 00000C00 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 63 65 20 22 20 28 which can be used to reduce " ( 00000C20 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 20 65 6C 69 6D 69 then expand) the result by elimi 00000C40 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 20 20 20 6D 61 74 nating blank columns. mat 00000C60 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 23 31 29 52 60 61 #(1URmatrix)R' ',s#(i#~Lio#1)R`a 00000C80 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 20 20 77 23 27 60 #headings w#'` 00000CA0 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 20 20 20 20 20 20 b'width matrix 00000CC0 20 20 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 61 63 6B 3A 24 back:$ 00000CE0 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 20 20 20 20 20 20 ((i=Rw)V0=Rh#next`a)/final 00000D00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 28 30 5E 3D 52 $(0^=R 00000D20 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 62 61 63 6B 20 20 a H s#s,a#w[i#i+1]cntr h)/back 00000D40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 2C 52 4C 23 27 $0,RL#' 00000D60 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 6F 20 6E 61 72 72 column width (',(Fw),') too narr 00000D80 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 61 6C 3A 6D 61 74 ow for ',h final:mat 00000DA0 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 20 20 20 20 20 20 [`b/IR`b]#s 00000DC0 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 23 28 6D 61 74 2C mat#(mat, 00000DE0 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 20 20 20 20 20 20 [0.1]`b\'-'),[1]matrix 00000E00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 06 00 00 00 6D 65 64 69 74 00 x♠...medit. 00000E20 00 01 00 00 00 0C 00 00 42 00 00 00 12 00 00 00 07 00 00 00 2A 00 00 00 02 00 00 00 01 00 00 00 .☺...♀..B...↕...•...*...☻...☺... 00000E40 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 ☺...☺...☺...☺...☺...☺...☺...☺... 00000E60 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 38 04 00 00 ☺...☺...☺...☺...☺...☺...◘...8♦.. 00000E80 02 00 00 00 01 00 00 00 12 00 00 00 3C 00 00 00 20 72 23 6B 64 20 6D 65 64 69 74 20 6D 3B 4C 69 ☻...☺...↕...<... r#kd medit m;Li 00000EA0 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 20 20 o 00000EC0 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 28 28 28 31 59 6B 64 29 2C 31 55 52 6D 29 59 6D 29 r#(((1Ykd),1URm)Ym) 00000EE0 6F 6E 28 43 51 29 6F 6E 28 28 31 55 6B 64 29 2C 30 29 55 6D 23 6D 61 74 72 69 78 20 6D 20 48 20 on(CQ)on((1Ukd),0)Um#matrix m H 00000F00 4C 69 6F 23 31 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 Lio#1 $0 00000F20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000F40 20 20 20 20 22 6D 65 64 69 74 20 2D 20 65 64 69 74 20 6D 61 74 72 69 78 20 20 20 20 20 20 20 20 "medit - edit matrix 00000F60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000F80 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 00000FA0 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 72 65 iques' copyright 1978, ibm. "-re 00000FC0 74 75 72 6E 73 20 61 20 6D 6F 64 69 66 69 65 64 20 66 6F 72 6D 20 6F 66 20 73 74 72 75 63 74 75 turns a modified form of structu 00000FE0 72 65 20 6D 20 61 73 20 61 20 6D 61 74 72 69 78 2E 20 20 20 20 20 20 20 22 2D 6B 64 20 69 73 20 re m as a matrix. "-kd is 00001000 61 20 70 61 69 72 20 6F 66 20 69 6E 74 65 67 65 72 73 2C 20 74 68 65 20 66 69 72 73 74 2C 20 6B a pair of integers, the first, k 00001020 2C 20 73 69 67 6E 69 66 69 65 73 20 74 68 65 20 20 20 20 20 22 20 6E 75 6D 62 65 72 20 6F 66 20 , signifies the " number of 00001040 72 6F 77 73 20 6F 66 20 6D 20 70 72 65 63 65 64 69 6E 67 20 74 68 65 20 6F 6E 65 20 74 6F 20 62 rows of m preceding the one to b 00001060 65 20 63 68 61 6E 67 65 64 2C 20 20 20 20 20 20 22 20 69 6E 73 65 72 74 65 64 2C 20 6F 72 20 64 e changed, " inserted, or d 00001080 65 6C 65 74 65 64 2E 20 74 68 65 20 73 65 63 6F 6E 64 2C 20 64 2C 20 69 73 20 74 68 65 20 6C 69 eleted. the second, d, is the li 000010A0 6E 65 20 6E 75 6D 62 65 72 20 20 20 22 20 74 6F 20 62 65 20 64 65 6C 65 74 65 64 2E 20 20 20 20 ne number " to be deleted. 000010C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000010E0 20 20 20 20 20 20 20 20 22 2D 74 68 65 20 6B 65 79 62 6F 61 72 64 20 77 69 6C 6C 20 75 6E 6C 6F "-the keyboard will unlo 00001100 63 6B 20 66 6F 72 20 74 68 65 20 65 78 70 72 65 73 73 69 6F 6E 20 74 68 61 74 20 77 69 6C 6C 20 ck for the expression that will 00001120 20 20 20 20 22 20 67 65 6E 65 72 61 74 65 20 74 68 65 20 6C 69 6E 65 28 73 29 20 74 6F 20 62 65 " generate the line(s) to be 00001140 20 69 6E 73 65 72 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 inserted. 00001160 22 2D 74 68 65 20 69 6E 73 65 72 74 20 6D 61 79 20 62 65 20 61 6E 20 61 6C 74 65 72 65 64 20 66 "-the insert may be an altered f 00001180 6F 72 6D 20 6F 66 20 74 68 65 20 6C 69 6E 65 28 73 29 20 64 65 6C 65 74 65 64 2E 20 22 2D 77 68 orm of the line(s) deleted. "-wh 000011A0 65 6E 20 6B 3D 64 2C 20 74 68 65 20 69 6E 73 65 72 74 20 77 69 6C 6C 20 61 70 70 65 61 72 20 61 en k=d, the insert will appear a 000011C0 66 74 65 72 20 6C 69 6E 65 20 6B 2E 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 77 68 65 6E 20 6B fter line k. "-when k 000011E0 3E 64 2C 20 64 2D 6B 20 6C 69 6E 65 73 20 77 69 6C 6C 20 62 65 20 64 65 6C 65 74 65 64 20 62 65 >d, d-k lines will be deleted be 00001200 66 6F 72 65 20 61 63 63 65 70 74 69 6E 67 20 74 68 65 20 20 22 20 69 6E 73 65 72 74 2E 20 20 28 fore accepting the " insert. ( 00001220 69 66 20 6B 3E 64 2C 20 6B 2D 64 20 6F 72 69 67 69 6E 61 6C 20 72 6F 77 73 20 77 69 6C 6C 20 61 if k>d, k-d original rows will a 00001240 70 70 65 61 72 20 62 65 66 6F 72 65 20 61 6E 64 22 20 61 66 74 65 72 20 74 68 65 20 69 6E 73 65 ppear before and" after the inse 00001260 72 74 2E 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rt.) 00001280 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 6D 61 74 72 69 78 20 47 6F 6E 20 "-uses: Gmatrix Gon 000012A0 47 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 GH 000012C0 20 20 20 20 20 20 20 20 48 00 00 00 FF FF FF FF ED FF FF FF 0E 00 00 00 00 00 00 00 01 00 00 00 H... φ ♫.......☺... 000012E0 00 00 00 00 30 00 00 00 1B 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 ....0...←...♪.......☺........... 00001300 FC FF FF FF 0C 00 00 00 40 2C 04 00 01 00 00 00 00 A9 04 00 60 00 00 00 FC FF FF FF 06 00 00 00 ⁿ ♀...@,♦.☺....⌐♦.`...ⁿ ♠... 00001320 80 2C 04 00 01 00 00 00 0B 00 00 00 30 00 00 00 FC FF FF FF 03 00 00 00 20 2D 04 00 01 00 00 00 Ç,♦.☺...♂...0...ⁿ ♥... -♦.☺... 00001340 00 00 00 00 90 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 60 00 00 00 ....É...♥...☻.......☺.......`... 00001360 FC FF FF FF 01 00 00 00 78 2C 04 00 01 00 00 00 C0 A8 04 00 C0 00 00 00 FD FF FF FF 38 00 00 00 ⁿ ☺...x,♦.☺...└¿♦.└...² 8... 00001380 E0 88 04 00 01 00 00 00 FC FF FF FF D8 00 00 00 03 00 00 00 37 00 00 00 00 00 00 00 01 00 00 00 αê♦.☺...ⁿ ╪...♥...7.......☺... 000013A0 00 00 00 00 F0 00 00 00 ED FF FF FF 34 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 08 01 00 00 ....≡...φ 4.......☺.......◘☺.. 000013C0 FC FF FF FF 32 00 00 00 48 2F 04 00 01 00 00 00 E0 A9 04 00 20 01 00 00 FC FF FF FF 30 00 00 00 ⁿ 2...H/♦.☺...α⌐♦. ☺..ⁿ 0... 000013E0 F8 2E 04 00 01 00 00 00 02 00 00 00 38 01 00 00 FC FF FF FF 29 00 00 00 78 2F 04 00 01 00 00 00 °.♦.☺...☻...8☺..ⁿ )...x/♦.☺... 00001400 00 00 00 00 50 01 00 00 03 00 00 00 28 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 68 01 00 00 ....P☺..♥...(.......☺.......h☺.. 00001420 FC FF FF FF 27 00 00 00 D8 2E 04 00 01 00 00 00 80 A9 04 00 80 01 00 00 35 00 00 00 26 00 00 00 ⁿ '...╪.♦.☺...Ç⌐♦.Ç☺..5...&... 00001440 00 00 00 00 01 00 00 00 65 6E 74 29 98 01 00 00 09 00 00 00 25 00 00 00 00 00 00 00 01 00 00 00 ....☺...ent)ÿ☺..○...%.......☺... 00001460 00 00 00 00 B0 01 00 00 FD FF FF FF 24 00 00 00 E0 8A 04 00 01 00 00 00 00 00 00 00 C8 01 00 00 ....░☺..² $...αè♦.☺.......╚☺.. 00001480 0C 00 00 00 23 00 00 00 00 00 00 00 01 00 00 00 20 AA 04 00 E0 01 00 00 09 00 00 00 22 00 00 00 ♀...#.......☺... ¬♦.α☺..○..."... 000014A0 00 00 00 00 01 00 00 00 20 20 20 20 F8 01 00 00 FC FF FF FF 20 00 00 00 98 2F 04 00 01 00 00 00 ....☺... °☺..ⁿ ...ÿ/♦.☺... 000014C0 04 00 00 00 10 02 00 00 35 00 00 00 1F 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 28 02 00 00 ♦...►☻..5...▼.......☺.......(☻.. 000014E0 FD FF FF FF 1E 00 00 00 C0 82 04 00 01 00 00 00 40 AA 04 00 40 02 00 00 08 00 00 00 1D 00 00 00 ² ▲...└é♦.☺...@¬♦.@☻..◘...↔... 00001500 00 00 00 00 01 00 00 00 00 00 00 00 58 02 00 00 08 00 00 00 1C 00 00 00 00 00 00 00 01 00 00 00 ....☺.......X☻..◘...∟.......☺... 00001520 00 00 00 00 70 02 00 00 FC FF FF FF 1A 00 00 00 D0 2E 04 00 01 00 00 00 00 00 00 00 88 02 00 00 ....p☻..ⁿ →...╨.♦.☺.......ê☻.. 00001540 09 00 00 00 19 00 00 00 00 00 00 00 01 00 00 00 C0 AA 04 00 A0 02 00 00 31 00 00 00 18 00 00 00 ○...↓.......☺...└¬♦.á☻..1...↑... 00001560 00 00 00 00 01 00 00 00 00 00 00 00 B8 02 00 00 23 00 00 00 17 00 00 00 00 00 00 00 01 00 00 00 ....☺.......╕☻..#...↨.......☺... 00001580 04 00 00 00 D0 02 00 00 08 00 00 00 16 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 E8 02 00 00 ♦...╨☻..◘...▬.......☺.......Φ☻.. 000015A0 FC FF FF FF 14 00 00 00 F8 2B 04 00 01 00 00 00 C0 AB 04 00 00 03 00 00 09 00 00 00 13 00 00 00 ⁿ ¶...°+♦.☺...└½♦..♥..○...‼... 000015C0 00 00 00 00 01 00 00 00 03 00 00 00 18 03 00 00 FC FF FF FF 12 00 00 00 B8 2E 04 00 01 00 00 00 ....☺...♥...↑♥..ⁿ ↕...╕.♦.☺... 000015E0 00 00 00 00 30 03 00 00 39 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 48 03 00 00 ....0♥..9...◄.......☺.......H♥.. 00001600 09 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 60 AB 04 00 60 03 00 00 FC FF FF FF 0F 00 00 00 ○...►.......☺...`½♦.`♥..ⁿ ☼... 00001620 E0 2C 04 00 01 00 00 00 00 00 00 00 78 03 00 00 32 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 α,♦.☺.......x♥..2...♫.......☺... 00001640 00 00 00 00 90 03 00 00 35 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 A8 03 00 00 ....É♥..5...♪.......☺.......¿♥.. 00001660 FD FF FF FF 0C 00 00 00 C0 84 04 00 01 00 00 00 20 AC 04 00 C0 03 00 00 0C 00 00 00 0B 00 00 00 ² ♀...└ä♦.☺... ¼♦.└♥..♀...♂... 00001680 00 00 00 00 01 00 00 00 00 00 00 00 D8 03 00 00 09 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 ....☺.......╪♥..○...◙.......☺... 000016A0 01 00 00 00 F0 03 00 00 FC FF FF FF 08 00 00 00 B8 2F 04 00 01 00 00 00 00 00 00 00 08 04 00 00 ☺...≡♥..ⁿ ◘...╕/♦.☺.......◘♦.. 000016C0 39 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 A0 AC 04 00 20 04 00 00 FD FF FF FF 06 00 00 00 9...•.......☺...á¼♦. ♦..² ♠... 000016E0 00 8A 04 00 01 00 00 00 01 00 00 00 38 04 00 00 08 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 .è♦.☺...☺...8♦..◘...♣.......☺... 00001700 00 00 00 00 50 04 00 00 08 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 68 04 00 00 ....P♦..◘...♦.......☺.......h♦.. 00001720 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 80 AC 04 00 80 04 00 00 03 00 00 00 02 00 00 00 ◘...♥.......☺...Ǽ♦.Ç♦..♥...☻... 00001740 00 00 00 00 01 00 00 00 69 71 75 65 FF FF FF FF FC FF FF FF 01 00 00 00 C0 2F 04 00 01 00 00 00 ....☺...ique ⁿ ☺...└/♦.☺... 00001760 00 00 00 00 B0 04 00 00 FD FF FF FF 02 00 00 00 60 88 04 00 01 00 00 00 00 00 00 00 FF FF FF FF ....░♦..² ☻...`ê♦.☺....... 00001780 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 E0 AC 04 00 FF FF FF FF 02 00 00 00 00 00 00 00 ♦...☺.......☺...α¼♦. ☻....... 000017A0 00 00 00 00 01 00 00 00 72 69 78 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 ....☺...rix ☻...........☺... 000017C0 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF .... ☻...........☺....... 000017E0 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 60 AD 04 00 FF FF FF FF 02 00 00 00 00 00 00 00 ☻...........☺...`¡♦. ☻....... 00001800 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 ....☺... ☻...........☺... 00001820 04 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF ♦... ☻...........☺....... 00001840 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 E0 AD 04 00 FF FF FF FF 02 00 00 00 00 00 00 00 ☻...........☺...α¡♦. ☻....... 00001860 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 ....☺... ☻...........☺... 00001880 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF .... ☻...........☺....... 000018A0 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 A0 AD 04 00 FF FF FF FF 02 00 00 00 00 00 00 00 ☻...........☺...á¡♦. ☻....... 000018C0 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 ....☺... ☻...........☺... 000018E0 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 .... ☻...........☺........... 00001900 A8 00 00 00 98 04 00 00 C8 04 00 00 E0 04 00 00 F8 04 00 00 10 05 00 00 28 05 00 00 40 05 00 00 ¿...ÿ♦..╚♦..α♦..°♦..►♣..(♣..@♣.. 00001920 58 05 00 00 70 05 00 00 88 05 00 00 A0 05 00 00 B8 05 00 00 D0 05 00 00 E8 05 00 00 00 06 00 00 X♣..p♣..ê♣..á♣..╕♣..╨♣..Φ♣...♠.. 00001940 18 06 00 00 90 00 00 00 FF FF FF FF 02 00 00 00 6D 00 06 00 00 00 6D 65 64 69 74 00 03 00 00 00 ↑♠..É... ☻...m.♠...medit.♥... 00001960 6B 64 00 02 00 00 00 72 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 00 00 kd.☻...r.♦...☺.......♦...☺...☻.. 00001980 00 48 00 02 00 00 00 6D 00 07 00 00 00 6D 61 74 72 69 78 00 02 00 00 00 6D 00 04 00 00 00 01 00 .H.☻...m.•...matrix.☻...m.♦...☺. 000019A0 00 00 00 00 00 00 04 00 00 00 00 00 00 00 03 00 00 00 6B 64 00 04 00 00 00 01 00 00 00 00 00 00 ......♦.......♥...kd.♦...☺...... 000019C0 00 04 00 00 00 01 00 00 00 03 00 00 00 6F 6E 00 03 00 00 00 6F 6E 00 02 00 00 00 6D 00 02 00 00 .♦...☺...♥...on.♥...on.☻...m.☻.. 000019E0 00 6D 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 03 00 00 00 6B 64 00 04 00 .m.♦...☺.......♦...☺...♥...kd.♦. 00001A00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 00 00 00 72 00 04 00 00 00 01 00 00 00 ..☺.......♦...☺...☻...r.♦...☺... 00001A20 00 00 00 00 04 00 00 00 00 00 00 00 78 04 00 00 00 6D 75 6C 00 00 01 00 00 00 0C 00 00 73 00 00 ....♦.......x♦...mul..☺...♀..s.. 00001A40 00 12 00 00 00 05 00 00 00 01 00 00 00 01 00 00 00 17 00 00 00 03 00 00 00 03 00 00 00 03 00 00 .↕...♣...☺...☺...↨...♥...♥...♥.. 00001A60 00 01 00 00 00 11 00 00 00 12 00 00 00 1C 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 01 00 00 .☺...◄...↕...∟...☻...☺...☺...☺.. 00001A80 00 01 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 38 04 00 00 02 00 00 00 01 00 00 00 12 00 00 .☺...☺...☺...◘...8♦..☻...☺...↕.. 00001AA0 00 3C 00 00 00 20 63 23 61 20 6D 75 6C 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .<... c#a mul b 00001AC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001AE0 20 22 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 74 69 70 6C "multiprecision integer multipl 00001B00 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6D 61 y "ma 00001B20 6B 65 20 61 20 74 68 65 20 73 68 6F 72 74 65 72 20 6F 66 20 74 68 65 20 61 72 67 75 6D 65 6E 74 ke a the shorter of the argument 00001B40 73 20 74 6F 20 73 61 76 65 20 73 70 61 63 65 20 20 20 20 20 20 20 20 20 20 20 24 28 28 52 61 29 s to save space $((Ra) 00001B60 3D 28 52 61 23 66 69 78 20 61 29 44 52 62 23 66 69 78 20 62 29 2F 6C 31 20 20 20 20 20 20 20 20 =(Ra#fix a)DRb#fix b)/l1 00001B80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 23 61 20 20 20 20 20 20 20 c#a 00001BA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001BC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 23 62 20 20 20 20 20 20 20 20 20 20 20 a#b 00001BE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001C00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 23 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 b#c 00001C20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001C40 20 20 20 20 20 20 20 20 20 22 63 68 65 63 6B 20 66 6F 72 20 70 6F 73 73 69 62 6C 65 20 6F 76 65 "check for possible ove 00001C60 72 66 6C 6F 77 20 28 37 32 30 20 3D 20 28 32 2A 35 36 29 25 31 65 37 2A 32 29 2E 20 20 20 20 20 rflow (720 = (2*56)%1e7*2). 00001C80 20 20 20 20 20 6C 31 3A 24 28 37 32 30 3E 31 59 52 63 23 61 4A 2E 58 62 29 2F 6C 32 20 20 20 20 l1:$(720>1YRc#aJ.Xb)/l2 00001CA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001CC0 20 20 63 23 28 28 44 63 25 31 30 30 30 30 30 30 30 29 2C 30 29 2B 30 2C 31 30 30 30 30 30 30 30 c#((Dc%10000000),0)+0,10000000 00001CE0 7C 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6C 32 3A |c l2: 00001D00 63 23 63 61 6E 2B 60 2F 28 4C 69 6F 5F 49 52 61 29 60 4F 63 2C 28 28 52 61 29 2C 2D 31 2B 52 61 c#can+`/(Lio_IRa)`Oc,((Ra),-1+Ra 00001D20 29 52 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 )R0 $0 00001D40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001D60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6D 75 6C 20 2D 20 6D 75 6C 74 "mul - mult 00001D80 69 70 72 65 63 69 73 69 6F 6E 20 69 6E 74 65 67 65 72 20 6D 75 6C 74 69 70 6C 69 63 61 74 69 6F iprecision integer multiplicatio 00001DA0 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 n "from 'the apl 00001DC0 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 handbook of techniques' copyrigh 00001DE0 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 61 20 69 73 20 6D 75 6C 74 69 70 6C 69 65 64 20 62 t 1978, ibm. "-a is multiplied b 00001E00 79 20 62 2C 20 67 69 76 69 6E 67 20 63 2C 20 75 73 69 6E 67 20 6D 75 6C 74 69 70 72 65 63 69 73 y b, giving c, using multiprecis 00001E20 69 6F 6E 20 20 20 20 20 20 22 20 69 6E 74 65 67 65 72 20 61 72 69 74 68 6D 65 74 69 63 3B 20 61 ion " integer arithmetic; a 00001E40 20 61 6E 64 20 62 20 6D 61 79 20 62 65 20 69 6E 20 61 6E 79 20 6E 75 6D 65 72 69 63 20 66 6F 72 and b may be in any numeric for 00001E60 6D 61 74 20 20 22 2D 73 65 65 20 74 68 65 20 64 65 73 63 72 69 70 74 69 6F 6E 20 75 6E 64 65 72 mat "-see the description under 00001E80 20 47 61 64 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 Gadd 00001EA0 20 22 2D 75 73 65 73 3A 20 47 66 69 78 20 47 63 61 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "-uses: Gfix Gcan 00001EC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 18 00 00 ↑.. 00001EE0 00 FF FF FF FF FC FF FF FF 09 00 00 00 50 2F 04 00 01 00 00 00 01 00 00 00 30 00 00 00 FC FF FF . ⁿ ○...P/♦.☺...☺...0...ⁿ 00001F00 FF 05 00 00 00 E0 2F 04 00 01 00 00 00 20 20 20 20 00 00 00 00 FC FF FF FF 03 00 00 00 00 2C 04 ♣...α/♦.☺... ....ⁿ ♥....,♦ 00001F20 00 01 00 00 00 20 20 20 20 60 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 20 72 23 .☺... `...♥...☻.......☺... r# 00001F40 28 30 00 00 00 FC FF FF FF 01 00 00 00 D8 2F 04 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 (0...ⁿ ☺...╪/♦.☺... ☻.. 00001F60 00 00 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 .........☺... ☻.......... 00001F80 00 01 00 00 00 20 20 20 20 C0 00 00 00 FC FF FF FF 1D 00 00 00 78 2E 04 00 01 00 00 00 20 20 20 .☺... └...ⁿ ↔...x.♦.☺... 00001FA0 20 D8 00 00 00 0F 00 00 00 1C 00 00 00 00 00 00 00 01 00 00 00 22 6C 6A 75 F0 00 00 00 09 00 00 ╪...☼...∟.......☺..."lju≡...○.. 00001FC0 00 1B 00 00 00 00 00 00 00 01 00 00 00 79 20 61 72 08 01 00 00 FC FF FF FF 1A 00 00 00 C0 2E 04 .←.......☺...y ar◘☺..ⁿ →...└.♦ 00001FE0 00 01 00 00 00 20 20 20 20 20 01 00 00 FC FF FF FF 16 00 00 00 E8 2F 04 00 01 00 00 00 70 6C 20 .☺... ☺..ⁿ ▬...Φ/♦.☺...pl 00002000 68 38 01 00 00 03 00 00 00 15 00 00 00 00 00 00 00 01 00 00 00 73 27 20 63 50 01 00 00 FC FF FF h8☺..♥...§.......☺...s' cP☺..ⁿ 00002020 FF 14 00 00 00 68 2F 04 00 01 00 00 00 22 2D 74 6F 68 01 00 00 32 00 00 00 13 00 00 00 00 00 00 ¶...h/♦.☺..."-toh☺..2...‼...... 00002040 00 01 00 00 00 68 61 72 61 80 01 00 00 24 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 75 65 73 .☺...haraÇ☺..$...↕.......☺...ues 00002060 20 98 01 00 00 09 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 6F 73 69 74 B0 01 00 00 FC FF FF ÿ☺..○...◄.......☺...osit░☺..ⁿ 00002080 FF 10 00 00 00 80 2F 04 00 01 00 00 00 20 20 20 20 C8 01 00 00 FC FF FF FF 0C 00 00 00 F0 2F 04 ►...Ç/♦.☺... ╚☺..ⁿ ♀...≡/♦ 000020A0 00 01 00 00 00 22 2D 69 6E E0 01 00 00 03 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 72 20 63 .☺..."-inα☺..♥...♂.......☺...r c 000020C0 68 F8 01 00 00 FC FF FF FF 0A 00 00 00 30 2D 04 00 01 00 00 00 20 69 6E 20 10 02 00 00 32 00 00 h°☺..ⁿ ◙...0-♦.☺... in ►☻..2.. 000020E0 00 09 00 00 00 00 00 00 00 01 00 00 00 65 20 74 72 28 02 00 00 08 00 00 00 08 00 00 00 00 00 00 .○.......☺...e tr(☻..◘...◘...... 00002100 00 01 00 00 00 20 20 20 20 40 02 00 00 1D 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 22 2D 72 .☺... @☻..↔...•.......☺..."-r 00002120 69 58 02 00 00 09 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 20 74 68 65 70 02 00 00 FC FF FF iX☻..○...♠.......☺... thep☻..ⁿ 00002140 FF 05 00 00 00 00 20 04 00 01 00 00 00 73 74 69 66 88 02 00 00 32 00 00 00 04 00 00 00 00 00 00 ♣.... ♦.☺...stifê☻..2...♦...... 00002160 00 01 00 00 00 00 00 00 00 A0 02 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺.......á☻..◘...♥.......☺...... 00002180 00 B8 02 00 00 08 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF 04 00 00 .╕☻..◘...☻.......☺....... ♦.. 000021A0 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 E8 02 00 00 FC FF FF FF 03 00 00 00 A8 2C 04 .☺.......☺.......Φ☻..ⁿ ♥...¿,♦ 000021C0 00 01 00 00 00 00 00 00 00 00 03 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺........♥..♥...☻.......☺...... 000021E0 00 FF FF FF FF FC FF FF FF 01 00 00 00 38 2F 04 00 01 00 00 00 00 00 00 00 30 03 00 00 FC FF FF . ⁿ ☺...8/♦.☺.......0♥..ⁿ 00002200 FF 03 00 00 00 A0 2C 04 00 01 00 00 00 00 00 00 00 48 03 00 00 03 00 00 00 02 00 00 00 00 00 00 ♥...á,♦.☺.......H♥..♥...☻...... 00002220 00 01 00 00 00 00 00 00 00 FF FF FF FF FC FF FF FF 01 00 00 00 88 2C 04 00 01 00 00 00 00 00 00 .☺....... ⁿ ☺...ê,♦.☺...... 00002240 00 78 03 00 00 FC FF FF FF 03 00 00 00 40 2F 04 00 01 00 00 00 00 00 00 00 90 03 00 00 03 00 00 .x♥..ⁿ ♥...@/♦.☺.......É♥..♥.. 00002260 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF FC FF FF FF 01 00 00 00 58 2C 04 .☻.......☺....... ⁿ ☺...X,♦ 00002280 00 01 00 00 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺....... ☻...........☺...... 000022A0 00 D8 03 00 00 FC FF FF FF 15 00 00 00 68 2C 04 00 01 00 00 00 00 00 00 00 F0 03 00 00 0F 00 00 .╪♥..ⁿ §...h,♦.☺.......≡♥..☼.. 000022C0 00 14 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 08 04 00 00 09 00 00 00 13 00 00 00 00 00 00 .¶.......☺.......◘♦..○...‼...... 000022E0 00 01 00 00 00 00 04 04 00 20 04 00 00 FC FF FF FF 12 00 00 00 20 2C 04 00 01 00 00 00 00 00 00 .☺....♦♦. ♦..ⁿ ↕... ,♦.☺...... 00002300 00 38 04 00 00 38 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 50 04 00 00 0E 00 00 .8♦..8...◄.......☺.......P♦..♫.. 00002320 00 10 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 68 04 00 00 2A 00 00 00 0F 00 00 00 00 00 00 .►.......☺.......h♦..*...☼...... 00002340 00 01 00 00 00 00 00 00 00 80 04 00 00 FC FF FF FF 0E 00 00 00 A8 2D 04 00 01 00 00 00 00 00 00 .☺.......Ç♦..ⁿ ♫...¿-♦.☺...... 00002360 00 98 04 00 00 03 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 B0 04 00 00 FC FF FF .ÿ♦..♥...♪.......☺.......░♦..ⁿ 00002380 FF 0C 00 00 00 08 2F 04 00 01 00 00 00 00 00 00 00 C8 04 00 00 32 00 00 00 0B 00 00 00 00 00 00 ♀...◘/♦.☺.......╚♦..2...♂...... 000023A0 00 01 00 00 00 00 00 00 00 E0 04 00 00 39 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺.......α♦..9...◙.......☺...... 000023C0 00 F8 04 00 00 FD FF FF FF 09 00 00 00 00 80 04 00 01 00 00 00 00 00 00 00 10 05 00 00 1E 00 00 .°♦..² ○....Ç♦.☺.......►♣..▲.. 000023E0 00 08 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 28 05 00 00 FD FF FF FF 05 00 00 00 60 87 04 .◘.......☺.......(♣..² ♣...`ç♦ 00002400 00 01 00 00 00 00 00 00 00 40 05 00 00 08 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺.......@♣..◘...♦.......☺...... 00002420 00 58 05 00 00 04 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 70 05 00 00 1A 00 00 .X♣..♦...♥.......☺.......p♣..→.. 00002440 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F0 09 00 00 FC FF FF FF 08 00 00 00 28 2F 04 .☻.......☺.......≡○..ⁿ ◘...(/♦ 00002460 00 01 00 00 00 00 00 00 00 A0 05 00 00 FC FF FF FF 20 00 00 00 B0 2D 04 00 01 00 00 00 00 00 00 .☺.......á♣..ⁿ ...░-♦.☺...... 00002480 00 B8 05 00 00 83 00 00 00 1F 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 D0 05 00 00 FD FF FF .╕♣..â...▼.......☺.......╨♣..² 000024A0 FF 17 00 00 00 00 89 04 00 01 00 00 00 00 00 00 00 E8 05 00 00 0C 00 00 00 16 00 00 00 00 00 00 ↨....ë♦.☺.......Φ♣..♀...▬...... 000024C0 00 01 00 00 00 00 00 00 00 00 06 00 00 FD FF FF FF 15 00 00 00 40 87 04 00 01 00 00 00 00 00 00 .☺........♠..² §...@ç♦.☺...... 000024E0 00 18 06 00 00 0B 00 00 00 14 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 30 06 00 00 09 00 00 .↑♠..♂...¶.......☺.......0♠..○.. 00002500 00 13 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 48 06 00 00 FD FF FF FF 12 00 00 00 E0 83 04 .‼.......☺.......H♠..² ↕...αâ♦ 00002520 00 01 00 00 00 00 00 00 00 60 06 00 00 0C 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺.......`♠..♀...◄.......☺...... 00002540 00 78 06 00 00 09 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 90 06 00 00 FD FF FF .x♠..○...►.......☺.......É♠..² 00002560 FF 08 00 00 00 E0 84 04 00 01 00 00 00 00 00 00 00 A8 06 00 00 05 00 00 00 07 00 00 00 00 00 00 ◘...αä♦.☺.......¿♠..♣...•...... 00002580 00 01 00 00 00 00 00 00 00 C0 06 00 00 FC FF FF FF 06 00 00 00 58 2F 04 00 01 00 00 00 00 00 00 .☺.......└♠..ⁿ ♠...X/♦.☺...... 000025A0 00 D8 06 00 00 24 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F0 06 00 00 08 00 00 .╪♠..$...♣.......☺.......≡♠..◘.. 000025C0 00 04 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 08 07 00 00 08 00 00 00 03 00 00 00 00 00 00 .♦.......☺.......◘•..◘...♥...... 000025E0 00 01 00 00 00 00 00 00 00 20 07 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺....... •..♥...☻.......☺...... 00002600 00 FF FF FF FF FC FF FF FF 01 00 00 00 10 2F 04 00 01 00 00 00 00 00 00 00 50 07 00 00 FD FF FF . ⁿ ☺...►/♦.☺.......P•..² 00002620 FF 25 00 00 00 00 CF 04 00 01 00 00 00 00 00 00 00 68 07 00 00 32 00 00 00 24 00 00 00 00 00 00 %....╧♦.☺.......h•..2...$...... 00002640 00 01 00 00 00 00 00 00 00 80 07 00 00 09 00 00 00 23 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺.......Ç•..○...#.......☺...... 00002660 00 98 07 00 00 FC FF FF FF 22 00 00 00 E0 2E 04 00 01 00 00 00 00 00 00 00 B0 07 00 00 32 00 00 .ÿ•..ⁿ "...α.♦.☺.......░•..2.. 00002680 00 21 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 C8 07 00 00 0B 00 00 00 20 00 00 00 00 00 00 .!.......☺.......╚•..♂... ...... 000026A0 00 01 00 00 00 00 00 00 00 E0 07 00 00 FD FF FF FF 1E 00 00 00 80 B4 05 00 01 00 00 00 00 00 00 .☺.......α•..² ▲...Ç┤♣.☺...... 000026C0 00 F8 07 00 00 0C 00 00 00 1D 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 10 08 00 00 09 00 00 .°•..♀...↔.......☺.......►◘..○.. 000026E0 00 1C 00 00 00 00 00 00 00 01 00 00 00 02 00 00 00 28 08 00 00 FC FF FF FF 1B 00 00 00 30 2F 04 .∟.......☺...☻...(◘..ⁿ ←...0/♦ 00002700 00 01 00 00 00 20 6C 6F 63 40 08 00 00 32 00 00 00 1A 00 00 00 00 00 00 00 01 00 00 00 20 20 20 .☺... loc@◘..2...→.......☺... 00002720 20 58 08 00 00 08 00 00 00 19 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 70 08 00 00 08 00 00 X◘..◘...↓.......☺... p◘..◘.. 00002740 00 18 00 00 00 00 00 00 00 01 00 00 00 70 29 60 4F 88 08 00 00 0C 00 00 00 17 00 00 00 00 00 00 .↑.......☺...p)`Oê◘..♀...↨...... 00002760 00 01 00 00 00 69 6F 23 30 A0 08 00 00 FC FF FF FF 16 00 00 00 D8 2D 04 00 01 00 00 00 20 20 20 .☺...io#0á◘..ⁿ ▬...╪-♦.☺... 00002780 20 B8 08 00 00 46 00 00 00 14 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 D0 08 00 00 09 00 00 ╕◘..F...¶.......☺... ╨◘..○.. 000027A0 00 13 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 E8 08 00 00 FC FF FF FF 12 00 00 00 80 2E 04 .‼.......☺... Φ◘..ⁿ ↕...Ç.♦ 000027C0 00 01 00 00 00 72 75 63 74 00 09 00 00 32 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 20 20 20 .☺...ruct.○..2...◄.......☺... 000027E0 20 18 09 00 00 29 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 6D 20 27 74 30 09 00 00 3F 00 00 ↑○..)...►.......☺...m 't0○..?.. 00002800 00 0F 00 00 00 00 00 00 00 01 00 00 00 65 63 68 6E 48 09 00 00 ED FF FF FF 0C 00 00 00 00 00 00 .☼.......☺...echnH○..φ ♀...... 00002820 00 01 00 00 00 38 2C 20 69 60 09 00 00 08 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 74 72 69 .☺...8, i`○..◘...♂.......☺...tri 00002840 78 78 09 00 00 40 00 00 00 09 00 00 00 00 00 00 00 01 00 00 00 61 74 69 6F 90 09 00 00 0B 00 00 xx○..@...○.......☺...atioÉ○..♂.. 00002860 00 08 00 00 00 00 00 00 00 01 00 00 00 20 74 68 65 A8 09 00 00 FC FF FF FF 05 00 00 00 B8 2D 04 .◘.......☺... the¿○..ⁿ ♣...╕-♦ 00002880 00 01 00 00 00 73 20 66 6F C0 09 00 00 03 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 20 20 20 .☺...s fo└○..♥...♦.......☺... 000028A0 20 D8 09 00 00 FC FF FF FF 03 00 00 00 18 2F 04 00 01 00 00 00 68 20 61 72 F0 09 00 00 1A 00 00 ╪○..ⁿ ♥...↑/♦.☺...h ar≡○..→.. 000028C0 00 02 00 00 00 00 00 00 00 01 00 00 00 29 20 20 20 FF FF FF FF FC FF FF FF 0A 00 00 00 20 2F 04 .☻.......☺...) ⁿ ◙... /♦ 000028E0 00 01 00 00 00 65 73 3A 20 20 0A 00 00 FD FF FF FF 02 00 00 00 A0 CE 04 00 01 00 00 00 20 20 20 .☺...es: ◙..² ☻...á╬♦.☺... 00002900 20 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 ♦...☺.......☺... ☻.. 00002920 00 00 00 00 00 00 00 00 00 01 00 00 00 6E 73 20 61 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 .........☺...ns a ☻.......... 00002940 00 01 00 00 00 20 66 75 6C FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 20 20 .☺... ful ☻...........☺... 00002960 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 75 6C 61 74 FF FF FF FF 02 00 00 ☻...........☺...ulat ☻.. 00002980 00 00 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 .........☺... ☻.......... 000029A0 00 01 00 00 00 73 3A 20 48 00 00 00 00 78 00 00 00 90 00 00 00 A8 00 00 00 D0 02 00 00 18 03 00 .☺...s: H....x...É...¿...╨☻..↑♥. 000029C0 00 60 03 00 00 A8 03 00 00 C0 03 00 00 88 05 00 00 38 07 00 00 08 0A 00 00 38 0A 00 00 50 0A 00 .`♥..¿♥..└♥..ê♣..8•..◘◙..8◙..P◙. 000029E0 00 68 0A 00 00 80 0A 00 00 98 0A 00 00 B0 0A 00 00 60 00 00 00 70 05 00 00 02 00 00 00 62 00 04 .h◙..Ç◙..ÿ◙..░◙..`...p♣..☻...b.♦ 00002A00 00 00 00 6D 75 6C 00 02 00 00 00 61 00 02 00 00 00 63 00 03 00 00 00 6C 31 00 02 00 00 00 62 00 ...mul.☻...a.☻...c.♥...l1.☻...b. 00002A20 04 00 00 00 66 69 78 00 02 00 00 00 62 00 02 00 00 00 61 00 04 00 00 00 66 69 78 00 02 00 00 00 ♦...fix.☻...b.☻...a.♦...fix.☻... 00002A40 61 00 02 00 00 00 61 00 02 00 00 00 61 00 02 00 00 00 63 00 02 00 00 00 62 00 02 00 00 00 61 00 a.☻...a.☻...a.☻...c.☻...b.☻...a. 00002A60 02 00 00 00 63 00 02 00 00 00 62 00 03 00 00 00 6C 32 00 02 00 00 00 62 00 02 00 00 00 61 00 02 ☻...c.☻...b.♥...l2.☻...b.☻...a.☻ 00002A80 00 00 00 63 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 04 00 00 00 01 00 00 ...c.♦...☺.......♦...☺...♦...☺.. 00002AA0 00 00 00 00 00 04 00 00 00 D0 02 00 00 03 00 00 00 6C 31 00 02 00 00 00 63 00 04 00 00 00 01 00 .....♦...╨☻..♥...l1.☻...c.♦...☺. 00002AC0 00 00 00 00 00 00 04 00 00 00 80 96 98 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 ......♦...Çûÿ.♦...☺.......♦..... 00002AE0 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 00 00 ..♦...☺.......♦.......♦...☺..... 00002B00 00 00 04 00 00 00 80 96 98 00 02 00 00 00 63 00 02 00 00 00 63 00 04 00 00 00 01 00 00 00 00 00 ..♦...Çûÿ.☻...c.☻...c.♦...☺..... 00002B20 00 00 04 00 00 00 00 00 00 00 02 00 00 00 61 00 02 00 00 00 01 00 00 00 00 00 00 00 08 00 00 00 ..♦.......☻...a.☻...☺.......◘... 00002B40 00 00 00 00 00 00 F0 BF 02 00 00 00 61 00 02 00 00 00 63 00 02 00 00 00 61 00 04 00 00 00 63 61 ......≡┐☻...a.☻...c.☻...a.♦...ca 00002B60 6E 00 02 00 00 00 63 00 03 00 00 00 6C 32 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 n.☻...c.♥...l2.♦...☺.......♦.... 00002B80 00 00 00 78 0A 00 00 00 6D 6F 6F 6E 70 68 61 73 65 00 00 01 00 00 00 0A 00 00 16 00 00 00 06 00 ...x◙...moonphase..☺...◙..▬...♠. 00002BA0 00 00 04 00 00 00 0D 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 68 01 ..♦...♪...☻...☺...☺...☺...◘...h☺ 00002BC0 00 00 02 00 00 00 01 00 00 00 06 00 00 00 3C 00 00 00 20 72 23 6D 6F 6F 6E 70 68 61 73 65 20 6D ..☻...☺...♠...<... r#moonphase m 00002BE0 64 79 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 dys 00002C00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 32 46 31 7C 25 32 39 2E 35 33 30 35 39 25 2D r#2F1|%29.53059%- 00002C20 39 2B 64 61 79 6E 6F 20 6D 64 79 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9+dayno mdys 00002C40 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00002C60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00002C80 20 20 20 20 20 20 22 6D 6F 6F 6E 70 68 61 73 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "moonphase 00002CA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00002CC0 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 "from 'the apl handbook of tec 00002CE0 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 30 hniques' copyright 1978, ibm. "0 00002D00 2E 30 30 20 69 73 20 6E 65 77 20 6D 6F 6F 6E 3B 20 30 2E 37 35 20 69 73 20 6C 61 73 74 20 71 75 .00 is new moon; 0.75 is last qu 00002D20 61 72 74 65 72 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 18 00 00 00 FF FF arter. ↑... 00002D40 FF FF FC FF FF FF 0D 00 00 00 C8 2E 04 00 01 00 00 00 01 00 00 00 30 00 00 00 FC FF FF FF 03 00 ⁿ ♪...╚.♦.☺...☺...0...ⁿ ♥. 00002D60 00 00 A0 5F 04 00 01 00 00 00 6D 3B 4C 69 48 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 ..á_♦.☺...m;LiH...♥...☻.......☺. 00002D80 00 00 20 20 20 20 00 00 00 00 FC FF FF FF 01 00 00 00 20 27 04 00 01 00 00 00 20 72 23 28 78 00 .. ....ⁿ ☺... '♦.☺... r#(x. 00002DA0 00 00 FC FF FF FF 1A 00 00 00 F0 2E 04 00 01 00 00 00 51 29 6F 6E 90 00 00 00 FC FF FF FF 14 00 ..ⁿ →...≡.♦.☺...Q)onÉ...ⁿ ¶. 00002DC0 00 00 D0 2B 04 00 01 00 00 00 6D 20 48 20 A8 00 00 00 0B 00 00 00 13 00 00 00 00 00 00 00 01 00 ..╨+♦.☺...m H ¿...♂...‼.......☺. 00002DE0 00 00 20 20 20 20 C0 00 00 00 FD FF FF FF 11 00 00 00 00 B2 05 00 01 00 00 00 20 20 20 20 D8 00 .. └...² ◄....▓♣.☺... ╪. 00002E00 00 00 05 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 22 6D 65 64 F0 00 00 00 FD FF FF FF 08 00 ..♣...►.......☺..."med≡...² ◘. 00002E20 00 00 C0 B5 05 00 01 00 00 00 20 20 20 20 08 01 00 00 05 00 00 00 07 00 00 00 00 00 00 00 01 00 ..└╡♣.☺... ◘☺..♣...•.......☺. 00002E40 00 00 20 20 20 20 20 01 00 00 83 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 70 6C 20 68 38 01 .. ☺..â...♠.......☺...pl h8☺ 00002E60 00 00 FD FF FF FF 05 00 00 00 A0 82 04 00 01 00 00 00 73 27 20 63 50 01 00 00 26 00 00 00 04 00 ..² ♣...áé♦.☺...s' cP☺..&...♦. 00002E80 00 00 00 00 00 00 01 00 00 00 22 2D 72 65 68 01 00 00 FD FF FF FF 03 00 00 00 20 8D 04 00 01 00 ......☺..."-reh☺..² ♥... ì♦.☺. 00002EA0 00 00 6D 20 6F 66 80 01 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 74 72 69 78 FF FF ..m ofÇ☺..♥...☻.......☺...trix 00002EC0 FF FF FC FF FF FF 01 00 00 00 F0 28 04 00 01 00 00 00 69 72 20 6F B0 01 00 00 FD FF FF FF 02 00 ⁿ ☺...≡(♦.☺...ir o░☺..² ☻. 00002EE0 00 00 E0 8F 04 00 01 00 00 00 74 2C 20 6B FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 ..αÅ♦.☺...t, k ♦...☺.......☺. 00002F00 00 00 22 20 6E 75 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 65 63 65 64 FF FF .." nu ☻...........☺...eced 00002F20 FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 61 6E 67 65 FF FF FF FF 02 00 00 00 00 00 ☻...........☺...ange ☻..... 00002F40 00 00 00 00 00 00 01 00 00 00 6F 72 20 64 00 00 00 00 60 00 00 00 98 01 00 00 C8 01 00 00 E0 01 ......☺...or d....`...ÿ☺..╚☺..α☺ 00002F60 00 00 F8 01 00 00 48 00 00 00 FF FF FF FF 05 00 00 00 6D 64 79 73 00 0A 00 00 00 6D 6F 6F 6E 70 ..°☺..H... ♣...mdys.◙...moonp 00002F80 68 61 73 65 00 02 00 00 00 72 00 05 00 00 00 6D 64 79 73 00 06 00 00 00 64 61 79 6E 6F 00 02 00 hase.☻...r.♣...mdys.♠...dayno.☻. 00002FA0 00 00 01 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 22 C0 02 00 00 00 01 00 00 00 00 00 ..☺.......◘........."└☻...☺..... 00002FC0 00 00 08 00 00 00 AB 95 09 BF D4 87 3D 40 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 ..◘...½ò○┐╘ç=@♦...☺.......♦...☺. 00002FE0 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 02 00 00 00 02 00 00 00 72 00 04 00 00 00 ..♦...☺.......♦...☻...☻...r.♦... 00003000 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 78 07 00 00 00 6D 61 74 72 69 78 00 00 01 00 00 ☺.......♦.......x•...matrix..☺.. 00003020 00 0A 00 00 1D 00 00 00 04 00 00 00 04 00 00 00 01 00 00 00 01 00 00 00 17 00 00 00 08 00 00 00 .◙..↔...♦...♦...☺...☺...↨...◘... 00003040 F0 00 00 00 02 00 00 00 01 00 00 00 04 00 00 00 3C 00 00 00 7A 20 23 20 6D 61 74 72 69 78 20 61 ≡...☻...☺...♦...<...z # matrix a 00003060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003080 20 20 20 20 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 "matrix - forces 000030A0 20 74 68 65 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 the result to two dimensions. 000030C0 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 000030E0 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 00003100 38 2C 20 69 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 8, ibm. z#((X/-1Uz),-1Yz#1 1,Ra) 00003120 52 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 Ra 00003140 20 20 20 20 18 00 00 00 FF FF FF FF FC FF FF FF 0B 00 00 00 A8 2F 04 00 01 00 00 00 01 00 00 00 ↑... ⁿ ♂...¿/♦.☺...☺... 00003160 30 00 00 00 FC FF FF FF 04 00 00 00 70 2F 04 00 01 00 00 00 20 20 20 20 48 00 00 00 03 00 00 00 0...ⁿ ♦...p/♦.☺... H...♥... 00003180 02 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 00 00 00 00 FC FF FF FF 00 00 00 00 38 2C 04 00 ☻.......☺... ....ⁿ ....8,♦. 000031A0 01 00 00 00 20 76 23 2D FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 2C 6D 2C 60 ☺... v#- ☻...........☺...,m,` 000031C0 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 A8 00 00 00 FC FF FF FF ☻...........☺... ¿...ⁿ 000031E0 19 00 00 00 98 2E 04 00 01 00 00 00 20 20 20 20 C0 00 00 00 32 00 00 00 18 00 00 00 00 00 00 00 ↓...ÿ.♦.☺... └...2...↑....... 00003200 01 00 00 00 20 20 20 20 D8 00 00 00 09 00 00 00 17 00 00 00 00 00 00 00 01 00 00 00 22 6D 32 76 ☺... ╪...○...↨.......☺..."m2v 00003220 F0 00 00 00 FC FF FF FF 16 00 00 00 88 2F 04 00 01 00 00 00 72 20 6D 61 08 01 00 00 32 00 00 00 ≡...ⁿ ▬...ê/♦.☺...r ma◘☺..2... 00003240 15 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 20 01 00 00 0C 00 00 00 14 00 00 00 00 00 00 00 §.......☺... ☺..♀...¶....... 00003260 01 00 00 00 70 6C 20 68 38 01 00 00 FD FF FF FF 13 00 00 00 00 85 04 00 01 00 00 00 73 27 20 63 ☺...pl h8☺..² ‼....à♦.☺...s' c 00003280 50 01 00 00 FD FF FF FF 11 00 00 00 40 85 04 00 01 00 00 00 22 74 68 65 68 01 00 00 03 00 00 00 P☺..² ◄...@à♦.☺..."theh☺..♥... 000032A0 10 00 00 00 00 00 00 00 01 00 00 00 63 74 69 6F 80 01 00 00 FC FF FF FF 0F 00 00 00 90 2F 04 00 ►.......☺...ctioÇ☺..ⁿ ☼...É/♦. 000032C0 01 00 00 00 76 65 72 73 98 01 00 00 39 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 72 61 63 74 ☺...versÿ☺..9...♫.......☺...ract 000032E0 B0 01 00 00 FD FF FF FF 0C 00 00 00 00 B5 05 00 01 00 00 00 61 63 74 65 C8 01 00 00 0C 00 00 00 ░☺..² ♀....╡♣.☺...acte╚☺..♀... 00003300 0B 00 00 00 00 00 00 00 01 00 00 00 22 6D 32 76 E0 01 00 00 09 00 00 00 0A 00 00 00 00 00 00 00 ♂.......☺..."m2vα☺..○...◙....... 00003320 01 00 00 00 65 72 20 6D F8 01 00 00 FC FF FF FF 09 00 00 00 A0 2F 04 00 01 00 00 00 65 72 20 76 ☺...er m°☺..ⁿ ○...á/♦.☺...er v 00003340 10 02 00 00 35 00 00 00 08 00 00 00 00 00 00 00 01 00 00 00 6F 77 20 6F 28 02 00 00 FD FF FF FF ►☻..5...◘.......☺...ow o(☻..² 00003360 06 00 00 00 C0 BF 05 00 01 00 00 00 6C 61 6E 6B 40 02 00 00 0F 00 00 00 05 00 00 00 00 00 00 00 ♠...└┐♣.☺...lank@☻..☼...♣....... 00003380 01 00 00 00 22 20 20 20 58 02 00 00 38 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 65 64 20 62 ☺..." X☻..8...♦.......☺...ed b 000033A0 70 02 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 88 02 00 00 08 00 00 00 p☻..◘...♥.......☺... ê☻..◘... 000033C0 02 00 00 00 00 00 00 00 01 00 00 00 74 73 20 61 A0 02 00 00 03 00 00 00 01 00 00 00 00 00 00 00 ☻.......☺...ts aá☻..♥...☺....... 000033E0 01 00 00 00 74 6F 20 61 FF FF FF FF FC FF FF FF 00 00 00 00 A0 2E 04 00 01 00 00 00 22 20 20 20 ☺...to a ⁿ ....á.♦.☺..." 00003400 00 00 00 00 60 00 00 00 78 00 00 00 90 00 00 00 48 00 00 00 FF FF FF FF 02 00 00 00 61 00 07 00 ....`...x...É...H... ☻...a.•. 00003420 00 00 6D 61 74 72 69 78 00 02 00 00 00 7A 00 02 00 00 00 61 00 02 00 00 00 61 00 04 00 00 00 01 ..matrix.☻...z.☻...a.☻...a.♦...☺ 00003440 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 .......♦...☺...♦...☺.......♦...☺ 00003460 00 00 00 02 00 00 00 7A 00 02 00 00 00 01 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 F0 ...☻...z.☻...☺.......◘.........≡ 00003480 BF 02 00 00 00 7A 00 02 00 00 00 01 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 F0 BF 02 ┐☻...z.☻...☺.......◘.........≡┐☻ 000034A0 00 00 00 7A 00 78 07 00 00 00 6E 65 78 74 60 61 00 00 01 00 00 00 09 00 00 1F 00 00 00 05 00 00 ...z.x•...next`a..☺...○..▼...♣.. 000034C0 00 05 00 00 00 01 00 00 00 01 00 00 00 10 00 00 00 08 00 00 00 08 00 00 00 31 01 00 00 02 00 00 .♣...☺...☺...►...◘...◘...1☺..☻.. 000034E0 00 01 00 00 00 05 00 00 00 3D 00 00 00 20 77 6F 72 64 23 6E 65 78 74 60 61 3B 6C 20 20 20 20 20 .☺...♣...=... word#next`a;l 00003500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003520 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 20 6F 75 74 70 75 74 "next`a used in output 00003540 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 20 20 20 20 20 20 20 function. 00003560 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F "from 'the apl handbook o 00003580 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 f techniques' copyright 1978, ib 000035A0 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 61 23 64 6C 62 20 60 m. word#(l#&\' '^=`a)/`a#dlb ` 000035C0 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 20 a 000035E0 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 20 20 20 20 20 20 20 `a#(~l)/`a 00003600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 00 0. 00003620 00 00 FF FF FF FF FC FF FF FF 0D 00 00 00 A8 2E 04 00 01 00 00 00 01 00 00 00 30 00 00 00 1B 00 .. ⁿ ♪...¿.♦.☺...☺...0...←. 00003640 00 00 0C 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 48 00 00 00 FC FF FF FF 06 00 00 00 50 2D ..♀.......☺... H...ⁿ ♠...P- 00003660 04 00 01 00 00 00 20 20 20 20 60 00 00 00 03 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 22 6D ♦.☺... `...♥...♣.......☺..."m 00003680 75 6C 00 00 00 00 FC FF FF FF 01 00 00 00 68 2D 04 00 01 00 00 00 6D 75 6C 74 FF FF FF FF 02 00 ul....ⁿ ☺...h-♦.☺...mult ☻. 000036A0 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 ..........☺... ☻......... 000036C0 00 00 01 00 00 00 73 68 6F 72 C0 00 00 00 FC FF FF FF 1B 00 00 00 C0 2D 04 00 01 00 00 00 20 74 ..☺...shor└...ⁿ ←...└-♦.☺... t 000036E0 6F 20 D8 00 00 00 FC FF FF FF 17 00 00 00 58 2D 04 00 01 00 00 00 20 24 28 28 F0 00 00 00 03 00 o ╪...ⁿ ↨...X-♦.☺... $((≡...♥. 00003700 00 00 16 00 00 00 00 00 00 00 01 00 00 00 78 20 62 29 08 01 00 00 FC FF FF FF 14 00 00 00 78 2D ..▬.......☺...x b)◘☺..ⁿ ¶...x- 00003720 04 00 01 00 00 00 20 20 20 20 20 01 00 00 0F 00 00 00 13 00 00 00 00 00 00 00 01 00 00 00 20 20 ♦.☺... ☺..☼...‼.......☺... 00003740 20 20 38 01 00 00 09 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 50 01 00 00 FC FF 8☺..○...↕.......☺... P☺..ⁿ 00003760 FF FF 10 00 00 00 80 2D 04 00 01 00 00 00 20 61 23 62 68 01 00 00 3E 00 00 00 0E 00 00 00 00 00 ►...Ç-♦.☺... a#bh☺..>...♫..... 00003780 00 00 01 00 00 00 20 20 20 20 80 01 00 00 07 00 00 00 0B 00 00 00 80 82 04 00 01 00 00 00 20 20 ..☺... Ç☺..•...♂...Çé♦.☺... 000037A0 20 20 98 01 00 00 3C 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 B0 01 00 00 06 00 ÿ☺..<...◙.......☺... ░☺..♠. 000037C0 00 00 09 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 C8 01 00 00 03 00 00 00 08 00 00 00 00 00 ..○.......☺... ╚☺..♥...◘..... 000037E0 00 00 01 00 00 00 22 63 68 65 E0 01 00 00 FC FF FF FF 07 00 00 00 88 2D 04 00 01 00 00 00 66 6C ..☺..."cheα☺..ⁿ •...ê-♦.☺...fl 00003800 6F 77 F8 01 00 00 08 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 29 2E 20 20 10 02 00 00 03 00 ow°☺..◘...♠.......☺...). ►☻..♥. 00003820 00 00 05 00 00 00 00 00 00 00 01 00 00 00 63 23 61 4A FF FF FF FF FC FF FF FF 01 00 00 00 90 2D ..♣.......☺...c#aJ ⁿ ☺...É- 00003840 04 00 01 00 00 00 20 20 20 20 40 02 00 00 FC FF FF FF 09 00 00 00 E0 2D 04 00 01 00 00 00 20 63 ♦.☺... @☻..ⁿ ○...α-♦.☺... c 00003860 23 28 58 02 00 00 0F 00 00 00 08 00 00 00 00 00 00 00 01 00 00 00 30 30 30 30 70 02 00 00 09 00 #(X☻..☼...◘.......☺...0000p☻..○. 00003880 00 00 07 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 88 02 00 00 FC FF FF FF 06 00 00 00 C8 2B ..•.......☺... ê☻..ⁿ ♠...╚+ 000038A0 04 00 01 00 00 00 4C 69 6F 5F A0 02 00 00 84 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 52 30 ♦.☺...Lio_á☻..ä...♣.......☺...R0 000038C0 20 20 B8 02 00 00 08 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 20 24 30 20 D0 02 00 00 03 00 ╕☻..◘...♦.......☺... $0 ╨☻..♥. 000038E0 00 00 03 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF FC FF FF FF 01 00 00 00 18 29 ..♥.......☺... ⁿ ☺...↑) 00003900 04 00 01 00 00 00 20 20 20 20 00 00 00 00 78 00 00 00 90 00 00 00 A8 00 00 00 28 02 00 00 60 00 ♦.☺... ....x...É...¿...(☻..`. 00003920 00 00 FF FF FF FF 02 00 00 00 6C 00 07 00 00 00 6E 65 78 74 60 61 00 05 00 00 00 77 6F 72 64 00 .. ☻...l.•...next`a.♣...word. 00003940 03 00 00 00 60 61 00 04 00 00 00 64 6C 62 00 03 00 00 00 60 61 00 03 00 00 00 60 61 00 08 00 00 ♥...`a.♦...dlb.♥...`a.♥...`a.◘.. 00003960 00 01 00 00 00 00 00 00 00 01 00 00 00 20 02 00 00 00 6C 00 05 00 00 00 77 6F 72 64 00 03 00 00 .☺.......☺... ☻...l.♣...word.♥.. 00003980 00 60 61 00 02 00 00 00 6C 00 03 00 00 00 60 61 00 78 0D 00 00 00 6E 75 6D 62 6C 61 6E 6B 63 6F .`a.☻...l.♥...`a.x♪...numblankco 000039A0 6C 73 00 00 01 00 00 00 0A 00 00 2B 00 00 00 08 00 00 00 04 00 00 00 09 00 00 00 18 00 00 00 02 ls..☺...◙..+...◘...♦...○...↑...☻ 000039C0 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 E0 01 00 00 02 00 00 00 01 ...☺...☺...☺...☺...◘...α☺..☻...☺ 000039E0 00 00 00 08 00 00 00 3C 00 00 00 20 7A 23 6E 75 6D 62 6C 61 6E 6B 63 6F 6C 73 20 61 20 20 20 20 ...◘...<... z#numblankcols a 00003A00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003A20 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 20 20 20 20 20 20 a#&`/' '=Fmatrix a 00003A40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003A60 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 4F 61 29 49 30 20 z#(Ra)|(_Lio)+(aI0),(`Oa)I0 00003A80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003AA0 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00003AC0 20 20 20 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 6E 75 6D 62 "numb 00003AE0 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 6C 75 6D 6E 73 20 lankcols - counts blank columns 00003B00 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 6F 6D 20 27 74 68 at sides of structure "from 'th 00003B20 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F e apl handbook of techniques' co 00003B40 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 6E 73 20 61 20 74 pyright 1978, ibm. "-returns a t 00003B60 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 74 69 6E 67 20 63 wo-element vector representing c 00003B80 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 65 20 62 6C 61 6E olumns of " successive blan 00003BA0 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 69 64 65 20 6F 66 ks on the left and right side of 00003BC0 20 73 74 72 75 63 74 75 72 65 2E 18 00 00 00 FF FF FF FF FC FF FF FF 10 00 00 00 48 29 04 00 01 structure.↑... ⁿ ►...H)♦.☺ 00003BE0 00 00 00 3B 00 00 00 30 00 00 00 FC FF FF FF 03 00 00 00 60 5F 04 00 01 00 00 00 FC FF FF FF 48 ...;...0...ⁿ ♥...`_♦.☺...ⁿ H 00003C00 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 08 00 00 00 00 00 00 00 FC FF FF FF 01 ...♥...☻.......☺...◘.......ⁿ ☺ 00003C20 00 00 00 E0 28 04 00 01 00 00 00 03 00 00 00 78 00 00 00 FC FF FF FF 12 00 00 00 A0 28 04 00 01 ...α(♦.☺...♥...x...ⁿ ↕...á(♦.☺ 00003C40 00 00 00 FC FF FF FF 90 00 00 00 FC FF FF FF 0B 00 00 00 C8 28 04 00 01 00 00 00 32 00 00 00 A8 ...ⁿ É...ⁿ ♂...╚(♦.☺...2...¿ 00003C60 00 00 00 26 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 0B 00 00 00 C0 00 00 00 1D 00 00 00 09 ...&...◙.......☺...♂...└...↔...○ 00003C80 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF D8 00 00 00 07 00 00 00 06 00 00 00 60 85 04 00 01 .......☺...² ╪...•...♠...`à♦.☺ 00003CA0 00 00 00 03 00 00 00 F0 00 00 00 40 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF 08 ...♥...≡...@...♦.......☺...ⁿ ◘ 00003CC0 01 00 00 06 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF 20 01 00 00 03 00 00 00 02 ☺..♠...♥.......☺...² ☺..♥...☻ 00003CE0 00 00 00 00 00 00 00 01 00 00 00 32 00 00 00 FF FF FF FF FC FF FF FF 01 00 00 00 38 2D 04 00 01 .......☺...2... ⁿ ☺...8-♦.☺ 00003D00 00 00 00 09 00 00 00 50 01 00 00 FD FF FF FF 1B 00 00 00 C0 80 04 00 01 00 00 00 FD FF FF FF 68 ...○...P☺..² ←...└Ç♦.☺...² h 00003D20 01 00 00 29 00 00 00 1A 00 00 00 00 00 00 00 01 00 00 00 3F 00 00 00 80 01 00 00 09 00 00 00 19 ☺..)...→.......☺...?...Ç☺..○...↓ 00003D40 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF 98 01 00 00 FC FF FF FF 18 00 00 00 C0 28 04 00 01 .......☺...ⁿ ÿ☺..ⁿ ↑...└(♦.☺ 00003D60 00 00 00 24 00 00 00 B0 01 00 00 46 00 00 00 16 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF C8 ...$...░☺..F...▬.......☺...² ╚ 00003D80 01 00 00 08 00 00 00 15 00 00 00 00 00 00 00 01 00 00 00 33 00 00 00 E0 01 00 00 0C 00 00 00 14 ☺..◘...§.......☺...3...α☺..♀...¶ 00003DA0 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF F8 01 00 00 09 00 00 00 13 00 00 00 00 00 00 00 01 .......☺...² °☺..○...‼.......☺ 00003DC0 00 00 00 08 00 00 00 10 02 00 00 FD FF FF FF 12 00 00 00 60 8D 04 00 01 00 00 00 0C 00 00 00 28 ...◘...►☻..² ↕...`ì♦.☺...♀...( 00003DE0 02 00 00 29 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 09 00 00 00 40 02 00 00 FC FF FF FF 10 ☻..)...◄.......☺...○...@☻..ⁿ ► 00003E00 00 00 00 D8 28 04 00 01 00 00 00 FD FF FF FF 58 02 00 00 08 00 00 00 0F 00 00 00 00 00 00 00 01 ...╪(♦.☺...² X☻..◘...☼.......☺ 00003E20 00 00 00 32 00 00 00 70 02 00 00 0B 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 09 00 00 00 88 ...2...p☻..♂...♫.......☺...○...ê 00003E40 02 00 00 09 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF A0 02 00 00 ED FF FF FF 0A ☻..○...♪.......☺...² á☻..φ ◙ 00003E60 00 00 00 00 00 00 00 01 00 00 00 24 00 00 00 B8 02 00 00 3F 00 00 00 09 00 00 00 00 00 00 00 01 .......☺...$...╕☻..?...○.......☺ 00003E80 00 00 00 FC FF FF FF D0 02 00 00 08 00 00 00 08 00 00 00 00 00 00 00 01 00 00 00 08 00 00 00 E8 ...ⁿ ╨☻..◘...◘.......☺...◘...Φ 00003EA0 02 00 00 83 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 08 00 00 00 00 03 00 00 09 00 00 00 06 ☻..â...•.......☺...◘....♥..○...♠ 00003EC0 00 00 00 00 00 00 00 01 00 00 00 39 00 00 00 18 03 00 00 FC FF FF FF 05 00 00 00 90 28 04 00 01 .......☺...9...↑♥..ⁿ ♣...É(♦.☺ 00003EE0 00 00 00 FC FF FF FF 30 03 00 00 32 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 03 00 00 00 48 ...ⁿ 0♥..2...♦.......☺...♥...H 00003F00 03 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF 60 03 00 00 03 00 00 00 02 ♥..◘...♥.......☺...ⁿ `♥..♥...☻ 00003F20 00 00 00 00 00 00 00 01 00 00 00 07 00 00 00 FF FF FF FF FC FF FF FF 01 00 00 00 98 28 04 00 01 .......☺...•... ⁿ ☺...ÿ(♦.☺ 00003F40 00 00 00 3D 00 00 00 90 03 00 00 FD FF FF FF 02 00 00 00 20 88 04 00 01 00 00 00 FD FF FF FF FF ...=...É♥..² ☻... ê♦.☺...² 00003F60 FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 3B 00 00 00 FF FF FF FF 02 00 00 00 00 ♦...☺.......☺...;... ☻.... 00003F80 00 00 00 00 00 00 00 01 00 00 00 0C 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 .......☺...♀... ☻...........☺ 00003FA0 00 00 00 09 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF FF ...○... ☻...........☺...ⁿ 00003FC0 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 50 86 0C 60 00 00 00 00 60 00 00 00 38 ☻...........☺...På♀`....`...8 00003FE0 01 00 00 78 03 00 00 A8 03 00 00 C0 03 00 00 D8 03 00 00 F0 03 00 00 48 00 00 00 FF FF FF FF 02 ☺..x♥..¿♥..└♥..╪♥..≡♥..H... ☻ 00004000 00 00 00 61 00 0D 00 00 00 6E 75 6D 62 6C 61 6E 6B 63 6F 6C 73 00 02 00 00 00 7A 00 02 00 00 00 ...a.♪...numblankcols.☻...z.☻... 00004020 61 00 07 00 00 00 6D 61 74 72 69 78 00 08 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 20 02 00 a.•...matrix.◘...☺.......☺... ☻. 00004040 00 00 61 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 02 00 00 00 61 00 04 00 ..a.♦...☺.......♦.......☻...a.♦. 00004060 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 02 00 00 00 61 00 02 00 00 00 61 00 02 00 ..☺.......♦.......☻...a.☻...a.☻. 00004080 00 00 7A 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 78 06 00 00 00 6E 66 6F ..z.♦...☺.......♦.......x♠...nfo 000040A0 72 6D 00 00 01 00 00 00 0C 00 00 1A 00 00 00 05 00 00 00 07 00 00 00 0F 00 00 00 02 00 00 00 01 rm..☺...♀..→...♣...•...☼...☻...☺ 000040C0 00 00 00 01 00 00 00 08 00 00 00 2C 01 00 00 02 00 00 00 01 00 00 00 05 00 00 00 3C 00 00 00 20 ...☺...◘...,☺..☻...☺...♣...<... 000040E0 6E 20 23 20 63 20 6E 66 6F 72 6D 20 6B 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n # c nform k;Lio 00004100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 20 23 20 n # 00004120 28 52 63 29 42 63 49 54 6B 20 48 20 4C 69 6F 23 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (Rc)BcITk H Lio#0 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 24 30 20 20 20 20 20 20 $0 00004160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6E 66 6F 72 6D 20 69 73 20 75 73 65 "nform is use 000041A0 64 20 62 79 20 65 2E 67 2E 20 67 72 61 64 65 75 70 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 d by e.g. gradeup. 000041C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 "from 'the apl ha 000041E0 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 ndbook of techniques' copyright 00004200 31 39 37 38 2C 20 69 62 6D 2E 20 48 00 00 00 FF FF FF FF ED FF FF FF 0F 00 00 00 00 00 00 00 01 1978, ibm. H... φ ☼.......☺ 00004220 00 00 00 01 00 00 00 30 00 00 00 1B 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 61 74 65 3B 00 ...☺...0...←...♫.......☺...ate;. 00004240 00 00 00 FC FF FF FF 0D 00 00 00 B8 26 04 00 01 00 00 00 20 20 20 20 60 00 00 00 FC FF FF FF 07 ...ⁿ ♪...╕&♦.☺... `...ⁿ • 00004260 00 00 00 18 2C 04 00 01 00 00 00 20 20 64 61 30 00 00 00 FC FF FF FF 05 00 00 00 B0 27 04 00 01 ...↑,♦.☺... da0...ⁿ ♣...░'♦.☺ 00004280 00 00 00 74 65 20 29 90 00 00 00 03 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 60 ...te )É...♥...♥.......☺... ` 000042A0 00 00 00 FC FF FF FF 01 00 00 00 B0 2F 04 00 01 00 00 00 5B 20 3B 20 C0 00 00 00 FD FF FF FF 15 ...ⁿ ☺...░/♦.☺...[ ; └...² § 000042C0 00 00 00 00 81 04 00 01 00 00 00 20 20 20 20 D8 00 00 00 03 00 00 00 14 00 00 00 00 00 00 00 01 ....ü♦.☺... ╪...♥...¶.......☺ 000042E0 00 00 00 20 20 20 20 F0 00 00 00 ED FF FF FF 11 00 00 00 00 00 00 00 01 00 00 00 20 5D 20 20 08 ... ≡...φ ◄.......☺... ] ◘ 00004300 01 00 00 FC FF FF FF 0F 00 00 00 E8 28 04 00 01 00 00 00 20 20 20 20 20 01 00 00 FC FF FF FF 0D ☺..ⁿ ☼...Φ(♦.☺... ☺..ⁿ ♪ 00004320 00 00 00 C0 29 04 00 01 00 00 00 65 20 5B 20 38 01 00 00 34 00 00 00 0C 00 00 00 00 00 00 00 01 ...└)♦.☺...e [ 8☺..4...♀.......☺ 00004340 00 00 00 20 20 20 20 50 01 00 00 29 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 68 ... P☺..)...♂.......☺... h 00004360 01 00 00 FC FF FF FF 0A 00 00 00 10 2C 04 00 01 00 00 00 5D 20 6D 20 80 01 00 00 22 00 00 00 09 ☺..ⁿ ◙...►,♦.☺...] m Ç☺.."...○ 00004380 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 98 01 00 00 09 00 00 00 08 00 00 00 00 00 00 00 01 .......☺... ÿ☺..○...◘.......☺ 000043A0 00 00 00 7A 3E 31 39 B0 01 00 00 FC FF FF FF 07 00 00 00 48 2D 04 00 01 00 00 00 35 29 20 26 C8 ...z>19░☺..ⁿ •...H-♦.☺...5) &╚ 000043C0 01 00 00 32 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 33 2B 4C 69 E0 01 00 00 08 00 00 00 05 ☺..2...♠.......☺...3+Liα☺..◘...♣ 000043E0 00 00 00 00 00 00 00 01 00 00 00 2B 20 30 2E F8 01 00 00 03 00 00 00 03 00 00 00 00 00 00 00 01 .......☺...+ 0.°☺..♥...♥.......☺ 00004400 00 00 00 5F 20 6A 66 FF FF FF FF FC FF FF FF 01 00 00 00 20 20 04 00 01 00 00 00 20 33 31 2B 28 ..._ jf ⁿ ☺... ♦.☺... 31+( 00004420 02 00 00 FD FF FF FF 02 00 00 00 80 80 04 00 01 00 00 00 5F 20 53 20 FF FF FF FF 04 00 00 00 01 ☻..² ☻...ÇÇ♦.☺..._ S ♦...☺ 00004440 00 00 00 00 00 00 00 01 00 00 00 2B 20 79 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 .......☺...+ y ☻...........☺ 00004460 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 00 ... ☻...........☺... . 00004480 00 00 00 A8 00 00 00 10 02 00 00 40 02 00 00 58 02 00 00 90 00 00 00 FF FF FF FF 02 00 00 00 6B ...¿...►☻..@☻..X☻..É... ☻...k 000044A0 00 06 00 00 00 6E 66 6F 72 6D 00 02 00 00 00 63 00 02 00 00 00 6E 00 04 00 00 00 01 00 00 00 00 .♠...nform.☻...c.☻...n.♦...☺.... 000044C0 00 00 00 04 00 00 00 00 00 00 00 02 00 00 00 48 00 02 00 00 00 6B 00 02 00 00 00 63 00 02 00 00 ...♦.......☻...H.☻...k.☻...c.☻.. 000044E0 00 63 00 02 00 00 00 6E 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 78 07 00 .c.☻...n.♦...☺.......♦.......x•. 00004500 00 00 6F 75 74 70 75 74 00 00 01 00 00 00 0C 00 00 99 00 00 00 13 00 00 00 15 00 00 00 01 00 00 ..output..☺...♀..Ö...‼...§...☺.. 00004520 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 .☺...☺...☺...☺...☺...☺...☺...☺.. 00004540 00 01 00 00 00 01 00 00 00 19 00 00 00 05 00 00 00 12 00 00 00 1A 00 00 00 10 00 00 00 0A 00 00 .☺...☺...↓...♣...↕...→...►...◙.. 00004560 00 11 00 00 00 08 00 00 00 AD 04 00 00 02 00 00 00 01 00 00 00 13 00 00 00 3F 00 00 00 20 6D 61 .◄...◘...¡♦..☻...☺...‼...?... ma 00004580 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;` 000045A0 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 000045C0 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 000045E0 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 00004600 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 00004620 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 00004640 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 00004660 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 00004680 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 000046A0 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 000046C0 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 000046E0 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 00004700 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 00004720 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 00004740 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 00004760 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 00004780 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. 000047A0 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 000047C0 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 000047E0 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 00004800 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 00004820 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 00004840 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 00004860 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 00004880 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 000048A0 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 000048C0 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 000048E0 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 00004900 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 00004920 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 00004940 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 00004960 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 00004980 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 000049A0 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 000049C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000049E0 20 20 20 20 20 20 20 20 20 20 20 20 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\'-' 00004A00 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 00004A20 20 20 20 20 20 20 20 20 20 20 98 01 00 00 FF FF FF FF ED FF FF FF 2B 00 00 00 00 00 00 00 01 00 ÿ☺.. φ +.......☺. 00004A40 00 00 01 00 00 00 30 00 00 00 1B 00 00 00 2A 00 00 00 00 00 00 00 01 00 00 00 71 3B 4C 69 00 00 ..☺...0...←...*.......☺...q;Li.. 00004A60 00 00 FC FF FF FF 29 00 00 00 68 2B 04 00 01 00 00 00 20 20 20 20 60 00 00 00 1B 00 00 00 28 00 ..ⁿ )...h+♦.☺... `...←...(. 00004A80 00 00 00 00 00 00 01 00 00 00 20 20 71 23 30 00 00 00 FC FF FF FF 27 00 00 00 90 2B 04 00 01 00 ......☺... q#0...ⁿ '...É+♦.☺. 00004AA0 00 00 2E 27 29 2F 90 00 00 00 1B 00 00 00 26 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 60 00 ...')/É...←...&.......☺... `. 00004AC0 00 00 FC FF FF FF 25 00 00 00 18 2D 04 00 01 00 00 00 72 20 65 72 C0 00 00 00 1B 00 00 00 24 00 ..ⁿ %...↑-♦.☺...r er└...←...$. 00004AE0 00 00 00 00 00 00 01 00 00 00 72 23 60 64 90 00 00 00 FC FF FF FF 22 00 00 00 F8 2C 04 00 01 00 ......☺...r#`dÉ...ⁿ "...°,♦.☺. 00004B00 00 00 20 20 20 20 F0 00 00 00 1B 00 00 00 21 00 00 00 00 00 00 00 01 00 00 00 53 2D 31 2B C0 00 .. ≡...←...!.......☺...S-1+└. 00004B20 00 00 FC FF FF FF 20 00 00 00 08 2D 04 00 01 00 00 00 6F 23 30 20 20 01 00 00 1B 00 00 00 1F 00 ..ⁿ ...◘-♦.☺...o#0 ☺..←...▼. 00004B40 00 00 00 00 00 00 01 00 00 00 20 20 20 20 F0 00 00 00 FC FF FF FF 1E 00 00 00 48 2B 04 00 01 00 ......☺... ≡...ⁿ ▲...H+♦.☺. 00004B60 00 00 20 20 20 20 50 01 00 00 1B 00 00 00 1D 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 20 01 .. P☺..←...↔.......☺... ☺ 00004B80 00 00 FC FF FF FF 1C 00 00 00 50 2B 04 00 01 00 00 00 65 63 69 6D 80 01 00 00 1B 00 00 00 1B 00 ..ⁿ ∟...P+♦.☺...ecimÇ☺..←...←. 00004BA0 00 00 00 00 00 00 01 00 00 00 20 20 20 20 50 01 00 00 FC FF FF FF 15 00 00 00 A0 2B 04 00 01 00 ......☺... P☺..ⁿ §...á+♦.☺. 00004BC0 00 00 27 74 68 65 B0 01 00 00 FC FF FF FF 0E 00 00 00 88 2B 04 00 01 00 00 00 68 6E 69 71 80 01 ..'the░☺..ⁿ ♫...ê+♦.☺...hniqÇ☺ 00004BE0 00 00 FC FF FF FF 05 00 00 00 B0 5F 04 00 01 00 00 00 20 69 62 6D E0 01 00 00 03 00 00 00 04 00 ..ⁿ ♣...░_♦.☺... ibmα☺..♥...♦. 00004C00 00 00 00 00 00 00 01 00 00 00 72 73 20 62 B0 01 00 00 FC FF FF FF 01 00 00 00 B8 2B 04 00 01 00 ......☺...rs b░☺..ⁿ ☺...╕+♦.☺. 00004C20 00 00 61 6C 20 60 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 2E 27 20 72 FF FF ..al ` ☻...........☺....' r 00004C40 FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 75 6D 62 65 FF FF FF FF 02 00 00 00 00 00 ☻...........☺...umbe ☻..... 00004C60 00 00 00 00 00 00 01 00 00 00 20 73 65 65 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 ......☺... see ☻...........☺. 00004C80 00 00 65 64 20 74 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 65 73 2C 20 FF FF ..ed t ☻...........☺...es, 00004CA0 FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 6F 72 64 69 FF FF FF FF 02 00 00 00 00 00 ☻...........☺...ordi ☻..... 00004CC0 00 00 00 00 00 00 01 00 00 00 6E 20 62 65 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 ......☺...n be ☻...........☺. 00004CE0 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 6E 64 65 72 FF FF .. ☻...........☺...nder 00004D00 FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 74 68 65 20 FF FF FF FF 02 00 00 00 00 00 ☻...........☺...the ☻..... 00004D20 00 00 00 00 00 00 01 00 00 00 22 20 66 72 18 03 00 00 FC FF FF FF 25 00 00 00 50 5F 04 00 01 00 ......☺..." fr↑♥..ⁿ %...P_♦.☺. 00004D40 00 00 74 69 6F 6E 30 03 00 00 03 00 00 00 24 00 00 00 00 00 00 00 01 00 00 00 20 63 6C 6F 48 03 ..tion0♥..♥...$.......☺... cloH♥ 00004D60 00 00 FC FF FF FF 22 00 00 00 B8 2C 04 00 01 00 00 00 74 65 64 2E 60 03 00 00 32 00 00 00 21 00 ..ⁿ "...╕,♦.☺...ted.`♥..2...!. 00004D80 00 00 00 00 00 00 01 00 00 00 78 61 63 74 78 03 00 00 09 00 00 00 20 00 00 00 00 00 00 00 01 00 ......☺...xactx♥..○... .......☺. 00004DA0 00 00 20 20 22 20 90 03 00 00 FD FF FF FF 1F 00 00 00 40 80 04 00 01 00 00 00 20 20 20 20 A8 03 .. " É♥..² ▼...@Ç♦.☺... ¿♥ 00004DC0 00 00 03 00 00 00 1E 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 C0 03 00 00 ED FF FF FF 1B 00 ..♥...▲.......☺... └♥..φ ←. 00004DE0 00 00 00 00 00 00 01 00 00 00 74 69 63 20 D8 03 00 00 84 00 00 00 1A 00 00 00 00 00 00 00 01 00 ......☺...tic ╪♥..ä...→.......☺. 00004E00 00 00 72 74 65 64 F0 03 00 00 03 00 00 00 19 00 00 00 00 00 00 00 01 00 00 00 75 67 68 20 08 04 ..rted≡♥..♥...↓.......☺...ugh ◘♦ 00004E20 00 00 FC FF FF FF 18 00 00 00 C0 2C 04 00 01 00 00 00 20 20 20 20 20 04 00 00 08 00 00 00 17 00 ..ⁿ ↑...└,♦.☺... ♦..◘...↨. 00004E40 00 00 00 00 00 00 01 00 00 00 20 20 20 20 38 04 00 00 03 00 00 00 16 00 00 00 00 00 00 00 01 00 ......☺... 8♦..♥...▬.......☺. 00004E60 00 00 67 60 69 60 50 04 00 00 FC FF FF FF 15 00 00 00 C8 2C 04 00 01 00 00 00 65 73 20 32 68 04 ..g`i`P♦..ⁿ §...╚,♦.☺...es 2h♦ 00004E80 00 00 0C 00 00 00 14 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 80 04 00 00 07 00 00 00 11 00 ..♀...¶.......☺... Ç♦..•...◄. 00004EA0 00 00 C0 8C 04 00 01 00 00 00 20 20 20 20 98 04 00 00 32 00 00 00 10 00 00 00 00 00 00 00 01 00 ..└î♦.☺... ÿ♦..2...►.......☺. 00004EC0 00 00 20 20 20 20 B0 04 00 00 09 00 00 00 0F 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 C8 04 .. ░♦..○...☼.......☺.......╚♦ 00004EE0 00 00 FC FF FF FF 09 00 00 00 D0 2C 04 00 01 00 00 00 00 00 00 00 E0 04 00 00 32 00 00 00 08 00 ..ⁿ ○...╨,♦.☺.......α♦..2...◘. 00004F00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F8 04 00 00 35 00 00 00 07 00 00 00 00 00 00 00 01 00 ......☺.......°♦..5...•.......☺. 00004F20 00 00 00 00 00 00 10 05 00 00 FD FF FF FF 06 00 00 00 80 86 04 00 01 00 00 00 00 00 00 00 28 05 ......►♣..² ♠...Çå♦.☺.......(♣ 00004F40 00 00 08 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 40 05 00 00 03 00 00 00 04 00 ..◘...♣.......☺.......@♣..♥...♦. 00004F60 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF FC FF FF FF 01 00 00 00 60 2B 04 00 01 00 ......☺....... ⁿ ☺...`+♦.☺. 00004F80 00 00 00 00 00 00 70 05 00 00 FC FF FF FF 0D 00 00 00 00 2D 04 00 01 00 00 00 00 00 00 00 88 05 ......p♣..ⁿ ♪....-♦.☺.......ê♣ 00004FA0 00 00 FC FF FF FF 07 00 00 00 A0 2D 04 00 01 00 00 00 00 00 00 00 A0 05 00 00 07 00 00 00 03 00 ..ⁿ •...á-♦.☺.......á♣..•...♥. 00004FC0 00 00 E0 CE 04 00 01 00 00 00 00 00 00 00 B8 05 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 ..α╬♦.☺.......╕♣..♥...☻.......☺. 00004FE0 00 00 00 00 00 00 FF FF FF FF FC FF FF FF 01 00 00 00 B0 2C 04 00 01 00 00 00 00 00 00 00 E8 05 ...... ⁿ ☺...░,♦.☺.......Φ♣ 00005000 00 00 FC FF FF FF 1B 00 00 00 30 2E 04 00 01 00 00 00 00 00 00 00 00 06 00 00 0F 00 00 00 1A 00 ..ⁿ ←...0.♦.☺........♠..☼...→. 00005020 00 00 00 00 00 00 01 00 00 00 00 00 00 00 18 06 00 00 09 00 00 00 19 00 00 00 00 00 00 00 01 00 ......☺.......↑♠..○...↓.......☺. 00005040 00 00 00 00 00 00 30 06 00 00 FC FF FF FF 13 00 00 00 E8 2C 04 00 01 00 00 00 00 00 00 00 48 06 ......0♠..ⁿ ‼...Φ,♦.☺.......H♠ 00005060 00 00 03 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 60 06 00 00 FC FF FF FF 11 00 ..♥...↕.......☺.......`♠..ⁿ ◄. 00005080 00 00 90 2C 04 00 01 00 00 00 00 00 00 00 78 06 00 00 32 00 00 00 10 00 00 00 00 00 00 00 01 00 ..É,♦.☺.......x♠..2...►.......☺. 000050A0 00 00 00 00 00 00 90 06 00 00 1D 00 00 00 0F 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 A8 06 ......É♠..↔...☼.......☺.......¿♠ 000050C0 00 00 FD FF FF FF 0E 00 00 00 E0 CC 04 00 01 00 00 00 00 00 00 00 C0 06 00 00 36 00 00 00 0D 00 ..² ♫...α╠♦.☺.......└♠..6...♪. 000050E0 00 00 00 00 00 00 01 00 00 00 00 00 00 00 D8 06 00 00 09 00 00 00 0C 00 00 00 00 00 00 00 01 00 ......☺.......╪♠..○...♀.......☺. 00005100 00 00 00 00 00 00 F0 06 00 00 FC FF FF FF 0B 00 00 00 D8 2C 04 00 01 00 00 00 00 00 00 00 08 07 ......≡♠..ⁿ ♂...╪,♦.☺.......◘• 00005120 00 00 32 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 20 07 00 00 1D 00 00 00 09 00 ..2...◙.......☺....... •..↔...○. 00005140 00 00 00 00 00 00 01 00 00 00 00 00 00 00 38 07 00 00 FC FF FF FF 08 00 00 00 F0 2C 04 00 01 00 ......☺.......8•..ⁿ ◘...≡,♦.☺. 00005160 00 00 00 00 00 00 50 07 00 00 08 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 68 07 ......P•..◘...•.......☺.......h• 00005180 00 00 08 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 80 07 00 00 04 00 00 00 05 00 ..◘...♠.......☺.......Ç•..♦...♣. 000051A0 00 00 00 00 00 00 01 00 00 00 00 00 00 00 98 07 00 00 1A 00 00 00 04 00 00 00 00 00 00 00 01 00 ......☺.......ÿ•..→...♦.......☺. 000051C0 00 00 00 00 00 00 A8 0C 00 00 FC FF FF FF 0E 00 00 00 10 2D 04 00 01 00 00 00 00 00 00 00 C8 07 ......¿♀..ⁿ ♫...►-♦.☺.......╚• 000051E0 00 00 FC FF FF FF 21 00 00 00 E8 2D 04 00 01 00 00 00 00 00 00 00 E0 07 00 00 0F 00 00 00 20 00 ..ⁿ !...Φ-♦.☺.......α•..☼... . 00005200 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F8 07 00 00 09 00 00 00 1F 00 00 00 00 00 00 00 01 00 ......☺.......°•..○...▼.......☺. 00005220 00 00 00 00 00 00 10 08 00 00 FC FF FF FF 1E 00 00 00 A8 29 04 00 01 00 00 00 02 00 00 00 28 08 ......►◘..ⁿ ▲...¿)♦.☺...☻...(◘ 00005240 00 00 FC FF FF FF 19 00 00 00 08 2E 04 00 01 00 00 00 20 64 69 76 40 08 00 00 3D 00 00 00 18 00 ..ⁿ ↓...◘.♦.☺... div@◘..=...↑. 00005260 00 00 00 00 00 00 01 00 00 00 20 20 20 20 58 08 00 00 FD FF FF FF 17 00 00 00 20 C9 04 00 01 00 ......☺... X◘..² ↨... ╔♦.☺. 00005280 00 00 20 20 20 20 70 08 00 00 0B 00 00 00 16 00 00 00 00 00 00 00 01 00 00 00 69 6E 74 65 88 08 .. p◘..♂...▬.......☺...inteê◘ 000052A0 00 00 FC FF FF FF 15 00 00 00 38 2E 04 00 01 00 00 00 69 6E 64 65 A0 08 00 00 03 00 00 00 14 00 ..ⁿ §...8.♦.☺...indeá◘..♥...¶. 000052C0 00 00 00 00 00 00 01 00 00 00 5E 3D 52 62 B8 08 00 00 FC FF FF FF 13 00 00 00 40 2E 04 00 01 00 ......☺...^=Rb╕◘..ⁿ ‼...@.♦.☺. 000052E0 00 00 20 20 20 20 D0 08 00 00 3B 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 E8 08 .. ╨◘..;...↕.......☺... Φ◘ 00005300 00 00 FC FF FF FF 11 00 00 00 48 2E 04 00 01 00 00 00 72 20 73 70 00 09 00 00 03 00 00 00 10 00 ..ⁿ ◄...H.♦.☺...r sp.○..♥...►. 00005320 00 00 00 00 00 00 01 00 00 00 20 20 20 20 18 09 00 00 FC FF FF FF 0F 00 00 00 68 2E 04 00 01 00 ......☺... ↑○..ⁿ ☼...h.♦.☺. 00005340 00 00 28 32 58 28 30 09 00 00 0C 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 69 78 20 61 48 09 ..(2X(0○..♀...♫.......☺...ix aH○ 00005360 00 00 FC FF FF FF 0D 00 00 00 70 2E 04 00 01 00 00 00 20 20 20 20 60 09 00 00 03 00 00 00 0C 00 ..ⁿ ♪...p.♦.☺... `○..♥...♀. 00005380 00 00 00 00 00 00 01 00 00 00 30 30 30 30 78 09 00 00 FC FF FF FF 0B 00 00 00 88 2E 04 00 01 00 ......☺...0000x○..ⁿ ♂...ê.♦.☺. 000053A0 00 00 20 20 20 20 90 09 00 00 FC FF FF FF 09 00 00 00 90 2E 04 00 01 00 00 00 23 30 2C 74 A8 09 .. É○..ⁿ ○...É.♦.☺...#0,t¿○ 000053C0 00 00 FC FF FF FF 07 00 00 00 E8 2E 04 00 01 00 00 00 20 20 20 20 C0 09 00 00 32 00 00 00 06 00 ..ⁿ •...Φ.♦.☺... └○..2...♠. 000053E0 00 00 00 00 00 00 01 00 00 00 20 20 20 20 D8 09 00 00 3E 00 00 00 04 00 00 00 00 00 00 00 01 00 ......☺... ╪○..>...♦.......☺. 00005400 00 00 20 20 20 20 F0 09 00 00 FD FF FF FF 03 00 00 00 60 CB 04 00 01 00 00 00 20 20 20 20 08 0A .. ≡○..² ♥...`╦♦.☺... ◘◙ 00005420 00 00 08 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 52 63 23 63 FF FF FF FF 04 00 00 00 01 00 ..◘...☻.......☺...Rc#c ♦...☺. 00005440 00 00 00 00 00 00 01 00 00 00 20 20 20 20 38 0A 00 00 FC FF FF FF 31 00 00 00 20 2E 04 00 01 00 ......☺... 8◙..ⁿ 1... .♦.☺. 00005460 00 00 20 20 20 20 50 0A 00 00 0C 00 00 00 30 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 68 0A .. P◙..♀...0.......☺... h◙ 00005480 00 00 07 00 00 00 1D 00 00 00 80 BD 05 00 01 00 00 00 20 20 20 20 80 0A 00 00 0C 00 00 00 1C 00 ..•...↔...Ç╜♣.☺... Ç◙..♀...∟. 000054A0 00 00 00 00 00 00 01 00 00 00 26 2E 3D 27 98 0A 00 00 09 00 00 00 1B 00 00 00 00 00 00 00 01 00 ......☺...&.='ÿ◙..○...←.......☺. 000054C0 00 00 20 20 20 20 B0 0A 00 00 FC FF FF FF 1A 00 00 00 10 2E 04 00 01 00 00 00 20 20 20 20 C8 0A .. ░◙..ⁿ →...►.♦.☺... ╚◙ 000054E0 00 00 26 00 00 00 19 00 00 00 00 00 00 00 01 00 00 00 30 30 42 33 E0 0A 00 00 08 00 00 00 18 00 ..&...↓.......☺...00B3α◙..◘...↑. 00005500 00 00 00 00 00 00 01 00 00 00 20 20 20 20 F8 0A 00 00 0C 00 00 00 17 00 00 00 00 00 00 00 01 00 ......☺... °◙..♀...↨.......☺. 00005520 00 00 20 61 64 64 10 0B 00 00 07 00 00 00 07 00 00 00 40 BD 05 00 01 00 00 00 62 29 59 71 28 0B .. add►♂..•...•...@╜♣.☺...b)Yq(♂ 00005540 00 00 03 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 40 0B 00 00 2C 00 00 00 05 00 ..♥...♠.......☺... @♂..,...♣. 00005560 00 00 00 00 00 00 01 00 00 00 75 6C 20 71 58 0B 00 00 32 00 00 00 04 00 00 00 00 00 00 00 01 00 ......☺...ul qX♂..2...♦.......☺. 00005580 00 00 20 20 20 20 70 0B 00 00 0C 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 28 58 28 52 88 0B .. p♂..♀...♥.......☺...(X(Rê♂ 000055A0 00 00 FD FF FF FF 02 00 00 00 00 C8 04 00 01 00 00 00 20 20 20 20 FF FF FF FF 04 00 00 00 01 00 ..² ☻....╚♦.☺... ♦...☺. 000055C0 00 00 00 00 00 00 01 00 00 00 20 20 20 20 B8 0B 00 00 FC FF FF FF 13 00 00 00 90 29 04 00 01 00 ......☺... ╕♂..ⁿ ‼...É)♦.☺. 000055E0 00 00 7C 31 55 32 D0 0B 00 00 03 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 E8 0B ..|1U2╨♂..♥...↕.......☺... Φ♂ 00005600 00 00 3D 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 00 0C 00 00 FC FF FF FF 0F 00 ..=...◄.......☺... .♀..ⁿ ☼. 00005620 00 00 50 2E 04 00 01 00 00 00 20 20 20 20 18 0C 00 00 32 00 00 00 0E 00 00 00 00 00 00 00 01 00 ..P.♦.☺... ↑♀..2...♫.......☺. 00005640 00 00 20 20 20 20 30 0C 00 00 29 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 69 73 69 6F 48 0C .. 0♀..)...♪.......☺...isioH♀ 00005660 00 00 0F 00 00 00 0C 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 60 0C 00 00 FC FF FF FF 0A 00 ..☼...♀.......☺... `♀..ⁿ ◙. 00005680 00 00 58 2E 04 00 01 00 00 00 6D 20 27 74 78 0C 00 00 3B 00 00 00 09 00 00 00 00 00 00 00 01 00 ..X.♦.☺...m 'tx♀..;...○.......☺. 000056A0 00 00 65 63 68 6E 90 0C 00 00 FC FF FF FF 06 00 00 00 60 2E 04 00 01 00 00 00 38 2C 20 69 A8 0C ..echnÉ♀..ⁿ ♠...`.♦.☺...8, i¿♀ 000056C0 00 00 1A 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 20 67 69 76 FF FF FF FF FC FF FF FF 11 00 ..→...♣.......☺... giv ⁿ ◄. 000056E0 00 00 18 2E 04 00 01 00 00 00 65 63 69 73 D8 0C 00 00 FC FF FF FF 1A 00 00 00 B8 29 04 00 01 00 ..↑.♦.☺...ecis╪♀..ⁿ →...╕)♦.☺. 00005700 00 00 69 74 68 6D F0 0C 00 00 3D 00 00 00 19 00 00 00 00 00 00 00 01 00 00 00 20 69 6E 20 08 0D ..ithm≡♀..=...↓.......☺... in ◘♪ 00005720 00 00 FD FF FF FF 18 00 00 00 A0 C2 04 00 01 00 00 00 63 20 77 69 20 0D 00 00 3B 00 00 00 17 00 ..² ↑...á┬♦.☺...c wi ♪..;...↨. 00005740 00 00 00 00 00 00 01 00 00 00 20 20 73 65 38 0D 00 00 0C 00 00 00 16 00 00 00 00 00 00 00 01 00 ......☺... se8♪..♀...▬.......☺. 00005760 00 00 20 20 20 20 50 0D 00 00 09 00 00 00 15 00 00 00 00 00 00 00 01 00 00 00 65 73 3A 20 68 0D .. P♪..○...§.......☺...es: h♪ 00005780 00 00 07 00 00 00 12 00 00 00 60 C3 04 00 01 00 00 00 47 63 61 6E 80 0D 00 00 3C 00 00 00 11 00 ..•...↕...`├♦.☺...GcanÇ♪..<...◄. 000057A0 00 00 00 00 00 00 01 00 00 00 20 20 20 20 98 0D 00 00 FC FF FF FF 0F 00 00 00 F8 29 04 00 01 00 ......☺... ÿ♪..ⁿ ☼...°)♦.☺. 000057C0 00 00 00 00 00 00 B0 0D 00 00 3D 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 C8 0D ......░♪..=...♫.......☺.......╚♪ 000057E0 00 00 FD FF FF FF 0B 00 00 00 C0 B7 05 00 01 00 00 00 00 00 00 00 E0 0D 00 00 3B 00 00 00 0A 00 ..² ♂...└╖♣.☺.......α♪..;...◙. 00005800 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F8 0D 00 00 0C 00 00 00 09 00 00 00 00 00 00 00 01 00 ......☺.......°♪..♀...○.......☺. 00005820 00 00 00 00 00 00 10 0E 00 00 FC FF FF FF 06 00 00 00 00 2A 04 00 01 00 00 00 00 00 00 00 28 0E ......►♫..ⁿ ♠....*♦.☺.......(♫ 00005840 00 00 08 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 40 0E 00 00 03 00 00 00 04 00 ..◘...♣.......☺.......@♫..♥...♦. 00005860 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF FC FF FF FF 01 00 00 00 F0 29 04 00 01 00 ......☺....... ⁿ ☺...≡)♦.☺. 00005880 00 00 00 00 00 00 00 00 00 00 F8 01 00 00 10 02 00 00 28 02 00 00 40 02 00 00 58 02 00 00 70 02 ..........°☺..►☻..(☻..@☻..X☻..p☻ 000058A0 00 00 88 02 00 00 A0 02 00 00 B8 02 00 00 D0 02 00 00 E8 02 00 00 00 03 00 00 58 05 00 00 D0 05 ..ê☻..á☻..╕☻..╨☻..Φ☻...♥..X♣..╨♣ 000058C0 00 00 B0 07 00 00 20 0A 00 00 A0 0B 00 00 C0 0C 00 00 E0 01 00 00 98 07 00 00 02 00 00 00 68 00 ..░•.. ◙..á♂..└♀..α☺..ÿ•..☻...h. 000058E0 02 00 00 00 77 00 02 00 00 00 76 00 03 00 00 00 60 61 00 02 00 00 00 61 00 02 00 00 00 69 00 02 ☻...w.☻...v.♥...`a.☻...a.☻...i.☻ 00005900 00 00 00 73 00 07 00 00 00 6D 61 74 72 69 78 00 07 00 00 00 6F 75 74 70 75 74 00 09 00 00 00 68 ...s.•...matrix.•...output.○...h 00005920 65 61 64 69 6E 67 73 00 04 00 00 00 6D 61 74 00 09 00 00 00 68 65 61 64 69 6E 67 73 00 03 00 00 eadings.♦...mat.○...headings.♥.. 00005940 00 60 61 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 00 00 00 69 00 02 00 .`a.♦...☺.......♦...☺...☻...i.☻. 00005960 00 00 73 00 08 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 20 07 00 00 00 6D 61 74 72 69 78 00 ..s.◘...☺.......☺... •...matrix. 00005980 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 04 00 00 00 6D 61 74 00 07 00 00 00 ♦...☺.......♦...☺...♦...mat.•... 000059A0 6D 61 74 72 69 78 00 06 00 00 00 77 69 64 74 68 00 08 00 00 00 02 00 00 00 01 00 00 00 01 00 00 matrix.♠...width.◘...☻...☺...☺.. 000059C0 00 02 00 00 00 60 62 02 00 00 00 77 00 06 00 00 00 66 69 6E 61 6C 00 07 00 00 00 6E 65 78 74 60 .☻...`b☻...w.♠...final.•...next` 000059E0 61 00 02 00 00 00 68 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 02 00 00 00 a.☻...h.♦...☺.......♦.......☻... 00005A00 77 00 02 00 00 00 69 00 05 00 00 00 62 61 63 6B 00 05 00 00 00 62 61 63 6B 00 02 00 00 00 68 00 w.☻...i.♣...back.♣...back.☻...h. 00005A20 05 00 00 00 63 6E 74 72 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 00 00 ♣...cntr.♦...☺.......♦...☺...☻.. 00005A40 00 69 00 02 00 00 00 69 00 02 00 00 00 77 00 02 00 00 00 61 00 02 00 00 00 73 00 02 00 00 00 73 .i.☻...i.☻...w.☻...a.☻...s.☻...s 00005A60 00 02 00 00 00 48 00 02 00 00 00 61 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 .☻...H.☻...a.♦...☺.......♦...... 00005A80 00 02 00 00 00 68 00 08 00 00 00 11 00 00 00 01 00 00 00 01 00 00 00 11 00 00 00 29 20 74 6F 6F .☻...h.◘...◄...☺...☺...◄...) too 00005AA0 20 6E 61 72 72 6F 77 20 66 6F 72 20 02 00 00 00 77 00 08 00 00 00 0E 00 00 00 01 00 00 00 01 00 narrow for ☻...w.◘...♫...☺...☺. 00005AC0 00 00 0E 00 00 00 63 6F 6C 75 6D 6E 20 77 69 64 74 68 20 28 04 00 00 00 01 00 00 00 00 00 00 00 ..♫...column width (♦...☺....... 00005AE0 04 00 00 00 00 00 00 00 02 00 00 00 73 00 03 00 00 00 60 62 00 03 00 00 00 60 62 00 04 00 00 00 ♦.......☻...s.♥...`b.♥...`b.♦... 00005B00 6D 61 74 00 06 00 00 00 66 69 6E 61 6C 00 07 00 00 00 6D 61 74 72 69 78 00 04 00 00 00 01 00 00 mat.♠...final.•...matrix.♦...☺.. 00005B20 00 00 00 00 00 04 00 00 00 01 00 00 00 08 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 2D 03 00 .....♦...☺...◘...☺.......☺...-♥. 00005B40 00 00 60 62 00 02 00 00 00 01 00 00 00 00 00 00 00 08 00 00 00 9A 99 99 99 99 99 B9 3F 04 00 00 ..`b.☻...☺.......◘...ÜÖÖÖÖÖ╣?♦.. 00005B60 00 6D 61 74 00 04 00 00 00 6D 61 74 00 78 07 00 00 00 6F 6E 65 73 69 6E 00 00 01 00 00 00 0A 00 .mat.♦...mat.x•...onesin..☺...◙. 00005B80 00 23 00 00 00 09 00 00 00 06 00 00 00 15 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 01 00 00 .#...○...♠...§...☻...☺...☺...☺.. 00005BA0 00 01 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 1C 02 00 00 02 00 00 00 01 00 00 00 09 00 00 .☺...☺...☺...◘...∟☻..☻...☺...○.. 00005BC0 00 3C 00 00 00 20 72 23 6F 6E 65 73 69 6E 20 61 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 .<... r#onesin a;Lio 00005BE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005C00 20 20 72 23 28 52 61 29 4E 72 2F 49 52 72 23 2C 31 3D 61 2B 4C 69 6F 23 30 20 20 20 20 20 20 20 r#(Ra)Nr/IRr#,1=a+Lio#0 00005C20 20 20 20 20 20 20 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 00005C40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00005C60 20 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 6F 6E 65 73 69 6E "onesin 00005C80 20 2D 20 6C 6F 63 61 74 65 20 6F 6E 65 73 20 69 6E 20 6E 75 6D 65 72 69 63 20 73 74 72 75 63 74 - locate ones in numeric struct 00005CA0 75 72 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 ure "from 'the 00005CC0 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 00005CE0 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 61 6E 20 61 72 72 61 79 20 6F 66 20 6F 6E right 1978, ibm. "an array of on 00005D00 65 73 20 61 6E 64 20 7A 65 72 6F 73 20 6D 61 79 20 68 61 76 65 20 62 65 65 6E 20 74 68 65 20 72 es and zeros may have been the r 00005D20 65 73 75 6C 74 20 6F 66 20 61 20 20 20 22 74 65 73 74 20 6F 66 20 61 6E 6F 74 68 65 72 20 61 72 esult of a "test of another ar 00005D40 72 61 79 2E 20 20 74 68 69 73 20 66 75 6E 63 74 69 6F 6E 20 77 69 6C 6C 20 63 6F 6E 76 65 72 74 ray. this function will convert 00005D60 20 74 68 65 20 6F 6E 65 73 22 74 6F 20 74 68 65 69 72 20 6F 77 6E 20 6C 6F 63 61 74 69 6F 6E 73 the ones"to their own locations 00005D80 20 28 4C 69 6F 23 30 29 20 62 79 20 63 6F 6C 75 6D 6E 73 2C 20 74 68 61 74 20 63 61 6E 20 72 65 (Lio#0) by columns, that can re 00005DA0 61 64 69 6C 79 22 62 65 20 75 73 65 64 20 74 6F 20 67 65 6E 65 72 61 74 65 20 73 75 62 73 63 72 adily"be used to generate subscr 00005DC0 69 70 74 73 20 74 68 61 74 20 72 65 6C 61 74 65 20 74 6F 20 74 68 65 20 73 6F 75 72 63 65 2E 20 ipts that relate to the source. 00005DE0 20 48 00 00 00 FF FF FF FF ED FF FF FF 0C 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 30 00 00 H... φ ♀.......☺...☺...0.. 00005E00 00 1B 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 20 61 3B 4C 00 00 00 00 FC FF FF FF 0A 00 00 .←...♂.......☺... a;L....ⁿ ◙.. 00005E20 00 E0 2B 04 00 01 00 00 00 20 20 20 20 60 00 00 00 FC FF FF FF 03 00 00 00 B8 28 04 00 01 00 00 .α+♦.☺... `...ⁿ ♥...╕(♦.☺.. 00005E40 00 22 69 66 20 78 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 77 69 6C 6C 30 00 00 ."if x...♥...☻.......☺...will0.. 00005E60 00 FC FF FF FF 01 00 00 00 D8 2B 04 00 01 00 00 00 20 20 20 20 A8 00 00 00 FD FF FF FF 17 00 00 .ⁿ ☺...╪+♦.☺... ¿...² ↨.. 00005E80 00 40 81 04 00 01 00 00 00 28 73 74 72 C0 00 00 00 03 00 00 00 16 00 00 00 00 00 00 00 01 00 00 .@ü♦.☺...(str└...♥...▬.......☺.. 00005EA0 00 27 27 52 61 D8 00 00 00 ED FF FF FF 13 00 00 00 00 00 00 00 01 00 00 00 20 72 23 28 F0 00 00 .''Ra╪...φ ‼.......☺... r#(≡.. 00005EC0 00 0B 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 08 01 00 00 FC FF FF FF 11 00 00 .♂...↕.......☺... ◘☺..ⁿ ◄.. 00005EE0 00 70 2B 04 00 01 00 00 00 20 20 20 20 20 01 00 00 1D 00 00 00 10 00 00 00 00 00 00 00 01 00 00 .p+♦.☺... ☺..↔...►.......☺.. 00005F00 00 20 20 20 20 38 01 00 00 FD FF FF FF 0F 00 00 00 60 89 04 00 01 00 00 00 20 20 20 20 50 01 00 . 8☺..² ☼...`ë♦.☺... P☺. 00005F20 00 0C 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 22 62 6C 61 68 01 00 00 03 00 00 00 0D 00 00 .♀...♫.......☺..."blah☺..♥...♪.. 00005F40 00 00 00 00 00 01 00 00 00 20 73 74 72 80 01 00 00 FC FF FF FF 0C 00 00 00 78 2B 04 00 01 00 00 .....☺... strÇ☺..ⁿ ♀...x+♦.☺.. 00005F60 00 20 20 20 20 98 01 00 00 32 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 70 6C 20 68 B0 01 00 . ÿ☺..2...♂.......☺...pl h░☺. 00005F80 00 29 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 73 27 20 63 C8 01 00 00 0F 00 00 00 09 00 00 .)...◙.......☺...s' c╚☺..☼...○.. 00005FA0 00 00 00 00 00 01 00 00 00 22 2D 69 66 E0 01 00 00 FC FF FF FF 08 00 00 00 C0 2B 04 00 01 00 00 .....☺..."-ifα☺..ⁿ ◘...└+♦.☺.. 00005FC0 00 72 75 63 74 F8 01 00 00 2E 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 65 64 20 69 10 02 00 .ruct°☺......•.......☺...ed i►☻. 00005FE0 00 09 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 20 63 68 61 28 02 00 00 FC FF FF FF 05 00 00 .○...♠.......☺... cha(☻..ⁿ ♣.. 00006000 00 98 2B 04 00 01 00 00 00 20 65 76 65 40 02 00 00 32 00 00 00 04 00 00 00 00 00 00 00 01 00 00 .ÿ+♦.☺... eve@☻..2...♦.......☺.. 00006020 00 22 20 73 70 58 02 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 62 65 20 72 70 02 00 ." spX☻..◘...♥.......☺...be rp☻. 00006040 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 72 20 62 79 FF FF FF FF FC FF FF FF 01 00 00 .♥...☻.......☺...r by ⁿ ☺.. 00006060 00 B0 2B 04 00 01 00 00 00 6E 75 6D 65 A0 02 00 00 FD FF FF FF 02 00 00 00 C0 8E 04 00 01 00 00 .░+♦.☺...numeá☻..² ☻...└Ä♦.☺.. 00006080 00 20 20 20 20 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 22 75 73 65 FF FF FF . ♦...☺.......☺..."use 000060A0 FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 ☻...........☺... ☻...... 000060C0 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 .....☺... ☻...........☺.. 000060E0 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF ..... ☻...........☺....... 00006100 FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 ☻...........☺....... ☻...... 00006120 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 90 00 00 00 88 02 00 00 B8 02 00 00 D0 02 00 .....☺...........É...ê☻..╕☻..╨☻. 00006140 00 E8 02 00 00 00 03 00 00 18 03 00 00 30 03 00 00 78 00 00 00 FF FF FF FF 02 00 00 00 61 00 07 .Φ☻...♥..↑♥..0♥..x... ☻...a.• 00006160 00 00 00 6F 6E 65 73 69 6E 00 02 00 00 00 72 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 ...onesin.☻...r.♦...☺.......♦... 00006180 00 00 00 00 02 00 00 00 61 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 00 ....☻...a.♦...☺.......♦...☺...☻. 000061A0 00 00 72 00 02 00 00 00 72 00 02 00 00 00 61 00 02 00 00 00 72 00 04 00 00 00 01 00 00 00 00 00 ..r.☻...r.☻...a.☻...r.♦...☺..... 000061C0 00 00 04 00 00 00 00 00 00 00 78 03 00 00 00 6F 6E 00 00 01 00 00 00 0C 00 00 4A 00 00 00 10 00 ..♦.......x♥...on..☺...♀..J...►. 000061E0 00 00 07 00 00 00 01 00 00 00 13 00 00 00 22 00 00 00 01 00 00 00 02 00 00 00 01 00 00 00 01 00 ..•...☺...‼..."...☺...☻...☺...☺. 00006200 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 ..☺...☺...☺...☺...☺...☺...☺...☺. 00006220 00 00 08 00 00 00 C0 03 00 00 02 00 00 00 01 00 00 00 10 00 00 00 3C 00 00 00 20 7A 23 61 20 6F ..◘...└♥..☻...☺...►...<... z#a o 00006240 6E 20 62 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 n b;Lio 00006260 20 20 20 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 cformat 00006280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000062A0 20 20 20 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 z#(-1YRa#matr 000062C0 69 78 20 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 ix a)S-1YRb#matrix b 000062E0 20 20 20 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 z#(((1YRa),z)Ya), 00006300 5B 4C 69 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 [Lio#0]((1YRb),z)Yb 00006320 20 20 20 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 "in case operand was e 00006340 6D 70 74 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 mpty 00006360 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 20 20 $0 00006380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000063A0 20 20 22 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 "on - conform and catenate any 000063C0 20 73 74 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 structures "f 000063E0 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 rom 'the apl handbook of techniq 00006400 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 6E 61 6D 65 ues' copyright 1978, ibm. "-name 00006420 73 20 6F 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 s or numbers may be added to lis 00006440 74 73 20 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 ts on any shape or " characte 00006460 72 2C 20 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 r, at either end. the output is 00006480 20 61 20 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 a matrix. "-numeric matr 000064A0 69 63 65 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 ices will be padded with zeros i 000064C0 66 20 74 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 f they " remain numeric. 000064E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00006500 20 20 20 20 20 20 20 20 20 20 22 2D 63 68 61 72 61 63 74 65 72 20 6D 61 74 72 69 63 65 73 20 77 "-character matrices w 00006520 69 6C 6C 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 ill be padded with blanks. 00006540 20 20 20 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 "-any operand may have any 00006560 20 73 74 72 75 63 74 75 72 65 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 structure. 00006580 20 20 22 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 "-use Gcenteron if left-justif 000065A0 69 63 61 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 ication is not desired. "- 000065C0 75 73 65 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 uses: Gcformat Gmatrix 000065E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 00 00 00 FF FF H... 00006600 FF FF ED FF FF FF 0A 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 30 00 00 00 1B 00 00 00 09 00 φ ◙.......☺.......0...←...○. 00006620 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 FC FF FF FF 08 00 00 00 88 28 04 00 01 00 ......☺...........ⁿ ◘...ê(♦.☺. 00006640 00 00 00 00 00 00 60 00 00 00 FC FF FF FF 05 00 00 00 D0 28 04 00 01 00 00 00 00 00 00 00 30 00 ......`...ⁿ ♣...╨(♦.☺.......0. 00006660 00 00 FC FF FF FF 03 00 00 00 B0 28 04 00 01 00 00 00 00 00 00 00 90 00 00 00 03 00 00 00 02 00 ..ⁿ ♥...░(♦.☺.......É...♥...☻. 00006680 00 00 00 00 00 00 01 00 00 00 00 00 00 00 60 00 00 00 FC FF FF FF 01 00 00 00 50 28 04 00 01 00 ......☺.......`...ⁿ ☺...P(♦.☺. 000066A0 00 00 00 00 00 00 FF FF FF FF FC FF FF FF 01 00 00 00 A8 28 04 00 01 00 00 00 00 00 00 00 D8 00 ...... ⁿ ☺...¿(♦.☺.......╪. 000066C0 00 00 FC FF FF FF 21 00 00 00 F0 2D 04 00 01 00 00 00 00 00 00 00 F0 00 00 00 FC FF FF FF 1A 00 ..ⁿ !...≡-♦.☺.......≡...ⁿ →. 000066E0 00 00 F8 2D 04 00 01 00 00 00 00 00 00 00 08 01 00 00 03 00 00 00 19 00 00 00 00 00 00 00 01 00 ..°-♦.☺.......◘☺..♥...↓.......☺. 00006700 00 00 00 00 00 00 20 01 00 00 FC FF FF FF 18 00 00 00 00 2E 04 00 01 00 00 00 00 00 00 00 38 01 ...... ☺..ⁿ ↑.....♦.☺.......8☺ 00006720 00 00 32 00 00 00 17 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 50 01 00 00 39 00 00 00 16 00 ..2...↨.......☺.......P☺..9...▬. 00006740 00 00 00 00 00 00 01 00 00 00 00 00 00 00 68 01 00 00 FD FF FF FF 14 00 00 00 C0 B0 05 00 01 00 ......☺.......h☺..² ¶...└░♣.☺. 00006760 00 00 00 00 00 00 80 01 00 00 33 00 00 00 13 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 98 01 ......Ç☺..3...‼.......☺.......ÿ☺ 00006780 00 00 09 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 B0 01 00 00 FC FF FF FF 11 00 ..○...↕.......☺.......░☺..ⁿ ◄. 000067A0 00 00 D0 29 04 00 01 00 00 00 00 00 00 00 C8 01 00 00 FC FF FF FF 0A 00 00 00 D8 29 04 00 01 00 ..╨)♦.☺.......╚☺..ⁿ ◙...╪)♦.☺. 000067C0 00 00 00 00 00 00 E0 01 00 00 03 00 00 00 09 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F8 01 ......α☺..♥...○.......☺.......°☺ 000067E0 00 00 FC FF FF FF 08 00 00 00 20 2B 04 00 01 00 00 00 00 00 00 00 10 02 00 00 32 00 00 00 07 00 ..ⁿ ◘... +♦.☺.......►☻..2...•. 00006800 00 00 00 00 00 00 01 00 00 00 00 00 00 00 28 02 00 00 39 00 00 00 06 00 00 00 00 00 00 00 01 00 ......☺.......(☻..9...♠.......☺. 00006820 00 00 00 00 00 00 40 02 00 00 FD FF FF FF 04 00 00 00 80 B0 05 00 01 00 00 00 00 00 00 00 58 02 ......@☻..² ♦...Ç░♣.☺.......X☻ 00006840 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 70 02 00 00 03 00 00 00 02 00 ..◘...♥.......☺.......p☻..♥...☻. 00006860 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF FC FF FF FF 01 00 00 00 28 2E 04 00 01 00 ......☺....... ⁿ ☺...(.♦.☺. 00006880 00 00 00 00 00 00 A0 02 00 00 FC FF FF FF 24 00 00 00 E8 2B 04 00 01 00 00 00 00 00 00 00 B8 02 ......á☻..ⁿ $...Φ+♦.☺.......╕☻ 000068A0 00 00 39 00 00 00 23 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 D0 02 00 00 09 00 00 00 22 00 ..9...#.......☺.......╨☻..○...". 000068C0 00 00 00 00 00 00 01 00 00 00 00 00 00 00 E8 02 00 00 FC FF FF FF 21 00 00 00 48 2C 04 00 01 00 ......☺.......Φ☻..ⁿ !...H,♦.☺. 000068E0 00 00 00 00 00 00 00 03 00 00 0C 00 00 00 20 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 18 03 .......♥..♀... .......☺.......↑♥ 00006900 00 00 09 00 00 00 1F 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 30 03 00 00 FC FF FF FF 1E 00 ..○...▼.......☺.......0♥..ⁿ ▲. 00006920 00 00 08 2A 04 00 01 00 00 00 00 00 00 00 48 03 00 00 32 00 00 00 1D 00 00 00 00 00 00 00 01 00 ..◘*♦.☺.......H♥..2...↔.......☺. 00006940 00 00 00 00 00 00 60 03 00 00 39 00 00 00 1C 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 78 03 ......`♥..9...∟.......☺.......x♥ 00006960 00 00 FD FF FF FF 1B 00 00 00 40 8B 04 00 01 00 00 00 00 00 00 00 90 03 00 00 08 00 00 00 1A 00 ..² ←...@ï♦.☺.......É♥..◘...→. 00006980 00 00 00 00 00 00 01 00 00 00 00 00 00 00 A8 03 00 00 08 00 00 00 19 00 00 00 00 00 00 00 01 00 ......☺.......¿♥..◘...↓.......☺. 000069A0 00 00 00 00 00 00 C0 03 00 00 3D 00 00 00 18 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 D8 03 ......└♥..=...↑.......☺.......╪♥ 000069C0 00 00 FD FF FF FF 17 00 00 00 80 81 04 00 01 00 00 00 00 00 00 00 F0 03 00 00 03 00 00 00 16 00 ..² ↨...Çü♦.☺.......≡♥..♥...▬. 000069E0 00 00 00 00 00 00 01 00 00 00 00 00 00 00 08 04 00 00 ED FF FF FF 13 00 00 00 00 00 00 00 01 00 ......☺.......◘♦..φ ‼.......☺. 00006A00 00 00 00 00 00 00 20 04 00 00 3B 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 38 04 ...... ♦..;...↕.......☺.......8♦ 00006A20 00 00 0C 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 50 04 00 00 09 00 00 00 10 00 ..♀...◄.......☺.......P♦..○...►. 00006A40 00 00 00 00 00 00 01 00 00 00 00 00 00 00 68 04 00 00 FC FF FF FF 0F 00 00 00 88 29 04 00 01 00 ......☺.......h♦..ⁿ ☼...ê)♦.☺. 00006A60 00 00 00 00 00 00 80 04 00 00 39 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 98 04 ......Ç♦..9...♫.......☺.......ÿ♦ 00006A80 00 00 09 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 B0 04 00 00 FC FF FF FF 0C 00 ..○...♪.......☺.......░♦..ⁿ ♀. 00006AA0 00 00 80 29 04 00 01 00 00 00 00 00 00 00 C8 04 00 00 0C 00 00 00 0B 00 00 00 00 00 00 00 01 00 ..Ç)♦.☺.......╚♦..♀...♂.......☺. 00006AC0 00 00 00 00 00 00 E0 04 00 00 09 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F8 04 ......α♦..○...◙.......☺.......°♦ 00006AE0 00 00 FC FF FF FF 09 00 00 00 98 29 04 00 01 00 00 00 00 00 00 00 10 05 00 00 32 00 00 00 08 00 ..ⁿ ○...ÿ)♦.☺.......►♣..2...◘. 00006B00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 28 05 00 00 39 00 00 00 07 00 00 00 00 00 00 00 01 00 ......☺.......(♣..9...•.......☺. 00006B20 00 00 00 00 00 00 40 05 00 00 FD FF FF FF 06 00 00 00 80 8C 04 00 01 00 00 00 00 00 00 00 58 05 ......@♣..² ♠...Çî♦.☺.......X♣ 00006B40 00 00 08 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 70 05 00 00 08 00 00 00 04 00 ..◘...♣.......☺.......p♣..◘...♦. 00006B60 00 00 00 00 00 00 01 00 00 00 00 00 00 00 88 05 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 ......☺.......ê♣..◘...♥.......☺. 00006B80 00 00 00 00 00 00 A0 05 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF ......á♣..♥...☻.......☺....... 00006BA0 FF FF FC FF FF FF 01 00 00 00 A0 29 04 00 01 00 00 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 ⁿ ☺...á)♦.☺....... ☻..... 00006BC0 00 00 00 00 00 00 01 00 00 00 00 00 00 00 E8 05 00 00 FD FF FF FF 02 00 00 00 20 CE 04 00 01 00 ......☺.......Φ♣..² ☻... ╬♦.☺. 00006BE0 00 00 00 00 00 00 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF ...... ♦...☺.......☺....... 00006C00 FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 ☻...........☺....... ☻..... 00006C20 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 ......☺....... ☻...........☺. 00006C40 00 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF ...... ☻...........☺....... 00006C60 FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 ☻...........☺....... ☻..... 00006C80 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 ......☺....... ☻...........☺. 00006CA0 00 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF ...... ☻...........☺....... 00006CC0 FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 FF FF FF FF 02 00 00 00 00 00 ☻...........☺....... ☻..... 00006CE0 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 A8 00 00 00 C0 00 00 00 88 02 00 00 B8 05 ......☺...........¿...└...ê☻..╕♣ 00006D00 00 00 D0 05 00 00 00 06 00 00 18 06 00 00 30 06 00 00 48 06 00 00 60 06 00 00 78 06 00 00 90 06 ..╨♣...♠..↑♠..0♠..H♠..`♠..x♠..É♠ 00006D20 00 00 A8 06 00 00 C0 06 00 00 D8 06 00 00 90 00 00 00 FF FF FF FF 02 00 00 00 62 00 03 00 00 00 ..¿♠..└♠..╪♠..É... ☻...b.♥... 00006D40 6F 6E 00 02 00 00 00 61 00 02 00 00 00 7A 00 08 00 00 00 63 66 6F 72 6D 61 74 00 02 00 00 00 62 on.☻...a.☻...z.◘...cformat.☻...b 00006D60 00 07 00 00 00 6D 61 74 72 69 78 00 02 00 00 00 62 00 02 00 00 00 01 00 00 00 00 00 00 00 08 00 .•...matrix.☻...b.☻...☺.......◘. 00006D80 00 00 00 00 00 00 00 00 F0 BF 02 00 00 00 61 00 07 00 00 00 6D 61 74 72 69 78 00 02 00 00 00 61 ........≡┐☻...a.•...matrix.☻...a 00006DA0 00 02 00 00 00 01 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 F0 BF 02 00 00 00 7A 00 02 .☻...☺.......◘.........≡┐☻...z.☻ 00006DC0 00 00 00 62 00 02 00 00 00 7A 00 02 00 00 00 62 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 ...b.☻...z.☻...b.♦...☺.......♦.. 00006DE0 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 02 00 00 00 61 00 02 .☺...♦...☺.......♦.......☻...a.☻ 00006E00 00 00 00 7A 00 02 00 00 00 61 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 ...z.☻...a.♦...☺.......♦...☺...☻ 00006E20 00 00 00 7A 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 78 07 00 00 00 6E 64 ...z.♦...☺.......♦.......x•...nd 00006E40 61 74 65 73 00 00 01 00 00 00 0A 00 00 34 00 00 00 07 00 00 00 04 00 00 00 1A 00 00 00 11 00 00 ates..☺...◙..4...•...♦...→...◄.. 00006E60 00 02 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 AB 01 00 00 02 00 00 00 01 00 00 .☻...☺...☺...☺...◘...½☺..☻...☺.. 00006E80 00 07 00 00 00 3D 00 00 00 20 72 23 6E 64 61 74 65 73 20 6B 6D 20 20 20 20 20 20 20 20 20 20 20 .•...=... r#ndates km 00006EA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00006EC0 20 20 20 20 20 20 20 72 23 28 28 31 59 52 6B 6D 29 2C 33 29 52 43 2C 31 20 31 20 30 20 31 20 31 r#((1YRkm),3)RC,1 1 0 1 1 00006EE0 20 30 20 31 20 31 20 30 5C 6B 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0 1 1 0\km 00006F00 20 20 20 20 72 5B 3B 4C 69 6F 2B 32 5D 23 72 5B 3B 4C 69 6F 2B 32 5D 2B 31 39 30 30 20 20 20 20 r[;Lio+2]#r[;Lio+2]+1900 00006F20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00006F40 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00006F60 20 20 20 20 20 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 6E 64 "nd 00006F80 61 74 65 73 20 63 6F 6E 76 65 72 74 20 64 61 74 65 73 20 69 6E 20 63 68 61 72 61 63 74 65 72 20 ates convert dates in character 00006FA0 6D 61 74 72 69 63 65 73 2E 20 20 73 65 65 20 47 64 61 79 73 20 20 20 20 20 20 22 66 72 6F 6D 20 matrices. see Gdays "from 00006FC0 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' 00006FE0 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 22 61 73 73 75 6D 65 73 20 copyright 1978, ibm. "assumes 00007000 32 30 74 68 20 63 65 6E 74 75 72 79 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20th century. 00007020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 18 00 00 00 FF FF FF FF FC FF FF FF ↑... ⁿ 00007040 0A 00 00 00 30 2C 04 00 01 00 00 00 01 00 00 00 30 00 00 00 FC FF FF FF 03 00 00 00 60 2F 04 00 ◙...0,♦.☺...☺...0...ⁿ ♥...`/♦. 00007060 01 00 00 00 20 20 20 20 48 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 ☺... H...♥...☻.......☺... 00007080 00 00 00 00 FC FF FF FF 01 00 00 00 D0 2F 04 00 01 00 00 00 22 6D 75 6C 78 00 00 00 FC FF FF FF ....ⁿ ☺...╨/♦.☺..."mulx...ⁿ 000070A0 23 00 00 00 40 2D 04 00 01 00 00 00 6D 75 6C 74 90 00 00 00 3C 00 00 00 22 00 00 00 00 00 00 00 #...@-♦.☺...multÉ...<..."....... 000070C0 01 00 00 00 20 20 20 20 A8 00 00 00 FD FF FF FF 21 00 00 00 40 8C 04 00 01 00 00 00 73 68 6F 72 ☺... ¿...² !...@î♦.☺...shor 000070E0 C0 00 00 00 FD FF FF FF 1F 00 00 00 60 8B 04 00 01 00 00 00 20 74 6F 20 D8 00 00 00 FD FF FF FF └...² ▼...`ï♦.☺... to ╪...² 00007100 1D 00 00 00 A0 8B 04 00 01 00 00 00 20 24 28 28 F0 00 00 00 FD FF FF FF 1B 00 00 00 A0 8E 04 00 ↔...áï♦.☺... $((≡...² ←...áÄ♦. 00007120 01 00 00 00 78 20 62 29 08 01 00 00 FD FF FF FF 19 00 00 00 A0 8D 04 00 01 00 00 00 20 20 20 20 ☺...x b)◘☺..² ↓...áì♦.☺... 00007140 20 01 00 00 FD FF FF FF 17 00 00 00 00 8E 04 00 01 00 00 00 20 20 20 20 38 01 00 00 FD FF FF FF ☺..² ↨....Ä♦.☺... 8☺..² 00007160 15 00 00 00 A0 81 04 00 01 00 00 00 20 20 20 20 50 01 00 00 FD FF FF FF 13 00 00 00 40 84 04 00 §...áü♦.☺... P☺..² ‼...@ä♦. 00007180 01 00 00 00 20 61 23 62 68 01 00 00 FD FF FF FF 11 00 00 00 A0 8A 04 00 01 00 00 00 20 20 20 20 ☺... a#bh☺..² ◄...áè♦.☺... 000071A0 80 01 00 00 0C 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 98 01 00 00 23 00 00 00 Ç☺..♀...►.......☺... ÿ☺..#... 000071C0 0F 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 B0 01 00 00 32 00 00 00 0E 00 00 00 00 00 00 00 ☼.......☺... ░☺..2...♫....... 000071E0 01 00 00 00 20 20 20 20 C8 01 00 00 09 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 22 63 68 65 ☺... ╚☺..○...♪.......☺..."che 00007200 E0 01 00 00 FD FF FF FF 0C 00 00 00 40 8D 04 00 01 00 00 00 66 6C 6F 77 F8 01 00 00 0C 00 00 00 α☺..² ♀...@ì♦.☺...flow°☺..♀... 00007220 0B 00 00 00 00 00 00 00 01 00 00 00 29 2E 20 20 10 02 00 00 09 00 00 00 0A 00 00 00 00 00 00 00 ♂.......☺...). ►☻..○...◙....... 00007240 01 00 00 00 63 23 61 4A 28 02 00 00 FC FF FF FF 08 00 00 00 00 2F 04 00 01 00 00 00 20 20 20 20 ☺...c#aJ(☻..ⁿ ◘..../♦.☺... 00007260 40 02 00 00 32 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 20 63 23 28 58 02 00 00 39 00 00 00 @☻..2...•.......☺... c#(X☻..9... 00007280 06 00 00 00 00 00 00 00 01 00 00 00 30 30 30 30 70 02 00 00 FD FF FF FF 05 00 00 00 40 89 04 00 ♠.......☺...0000p☻..² ♣...@ë♦. 000072A0 01 00 00 00 20 20 20 20 88 02 00 00 08 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 4C 69 6F 5F ☺... ê☻..◘...♦.......☺...Lio_ 000072C0 A0 02 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 52 30 20 20 B8 02 00 00 03 00 00 00 á☻..◘...♥.......☺...R0 ╕☻..♥... 000072E0 02 00 00 00 00 00 00 00 01 00 00 00 20 24 30 20 FF FF FF FF FC FF FF FF 01 00 00 00 70 2C 04 00 ☻.......☺... $0 ⁿ ☺...p,♦. 00007300 01 00 00 00 20 20 20 20 E8 02 00 00 FD FF FF FF 15 00 00 00 20 89 04 00 01 00 00 00 20 20 20 20 ☺... Φ☻..² §... ë♦.☺... 00007320 00 03 00 00 0B 00 00 00 14 00 00 00 00 00 00 00 01 00 00 00 70 72 65 63 18 03 00 00 3D 00 00 00 .♥..♂...¶.......☺...prec↑♥..=... 00007340 13 00 00 00 00 00 00 00 01 00 00 00 6C 69 63 61 30 03 00 00 FD FF FF FF 12 00 00 00 80 88 04 00 ‼.......☺...lica0♥..² ↕...Çê♦. 00007360 01 00 00 00 22 66 72 6F 48 03 00 00 0B 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 6F 66 20 74 ☺..."froH♥..♂...◄.......☺...of t 00007380 60 03 00 00 ED FF FF FF 0E 00 00 00 00 00 00 00 01 00 00 00 20 31 39 37 78 03 00 00 1B 00 00 00 `♥..φ ♫.......☺... 197x♥..←... 000073A0 0D 00 00 00 00 00 00 00 01 00 00 00 70 6C 69 65 90 03 00 00 3B 00 00 00 0C 00 00 00 00 00 00 00 ♪.......☺...plieÉ♥..;...♀....... 000073C0 01 00 00 00 69 6E 67 20 A8 03 00 00 FC FF FF FF 0B 00 00 00 00 29 04 00 01 00 00 00 22 20 69 6E ☺...ing ¿♥..ⁿ ♂....)♦.☺..." in 000073E0 C0 03 00 00 03 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 61 6E 64 20 D8 03 00 00 3D 00 00 00 └♥..♥...◙.......☺...and ╪♥..=... 00007400 09 00 00 00 00 00 00 00 01 00 00 00 72 69 63 20 F0 03 00 00 FD FF FF FF 08 00 00 00 20 81 04 00 ○.......☺...ric ≡♥..² ◘... ü♦. 00007420 01 00 00 00 73 63 72 69 08 04 00 00 0B 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 ☺...scri◘♦..♂...•.......☺... 00007440 20 04 00 00 ED FF FF FF 04 00 00 00 00 00 00 00 01 00 00 00 22 2D 75 73 38 04 00 00 1B 00 00 00 ♦..φ ♦.......☺..."-us8♦..←... 00007460 03 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 50 04 00 00 3B 00 00 00 02 00 00 00 00 00 00 00 ♥.......☺... P♦..;...☻....... 00007480 01 00 00 00 20 20 20 20 FF FF FF FF FC FF FF FF 01 00 00 00 80 2B 04 00 01 00 00 00 FD FF FF FF ☺... ⁿ ☺...Ç+♦.☺...² 000074A0 80 04 00 00 FD FF FF FF 02 00 00 00 80 85 04 00 01 00 00 00 03 00 00 00 FF FF FF FF 04 00 00 00 Ç♦..² ☻...Çà♦.☺...♥... ♦... 000074C0 01 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 ☺.......☺...ⁿ ☻........... 000074E0 01 00 00 00 0F 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 09 00 00 00 ☺...☼... ☻...........☺...○... 00007500 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF 00 00 00 00 60 00 00 00 ☻...........☺...ⁿ ....`... 00007520 D0 02 00 00 68 04 00 00 98 04 00 00 B0 04 00 00 C8 04 00 00 48 00 00 00 FF FF FF FF 03 00 00 00 ╨☻..h♦..ÿ♦..░♦..╚♦..H... ♥... 00007540 6B 6D 00 07 00 00 00 6E 64 61 74 65 73 00 02 00 00 00 72 00 03 00 00 00 6B 6D 00 04 00 00 00 01 km.•...ndates.☻...r.♥...km.♦...☺ 00007560 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 .......♦.......♦...☺.......♦...☺ 00007580 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 ...♦...☺.......♦...☺...♦...☺.... 000075A0 00 00 00 04 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 04 ...♦.......♦...☺.......♦...☺...♦ 000075C0 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 ...☺.......♦...☺...♦...☺.......♦ 000075E0 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 04 00 00 00 01 .......♦...☺.......♦...☺...♦...☺ 00007600 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 03 .......♦...☺...♦...☺.......♦...♥ 00007620 00 00 00 03 00 00 00 6B 6D 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 00 ...♥...km.♦...☺.......♦...☺...☻. 00007640 00 00 72 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 6C 07 00 00 04 00 00 00 01 00 00 00 ..r.♦...☺.......♦...l•..♦...☺... 00007660 00 00 00 00 04 00 00 00 02 00 00 00 02 00 00 00 72 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 ....♦...☻...☻...r.♦...☺.......♦. 00007680 00 00 02 00 00 00 02 00 00 00 72 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 ..☻...☻...r.♦...☺.......♦....... 000076A0 00 .