============================================================================================================================================== OFFSET 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 1E 1F ---------------------------------------------------------------------------------------------------------------------------------------------- 00000000 01 00 81 76 49 68 C2 25 3C 3D 01 00 78 02 00 61 00 08 00 2C 01 02 00 01 00 05 00 3C 00 20 72 23 ☺.üvIh┬%<=☺.x☻.a.◘.,☺☻.☺.♣.<. r# 00000020 61 20 69 73 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a is b 00000040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 28 30 5E 3D r#(0^= 00000060 30 5C 30 52 61 29 3D 30 5E 3D 30 5C 30 52 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0\0Ra)=0^=0\0Rb 00000080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 $0 000000A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000000C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 69 73 20 2D 20 74 72 75 65 2C 20 69 66 20 "is - true, if 000000E0 62 6F 74 68 20 6E 75 6D 65 72 69 63 2C 20 6F 72 20 69 66 20 62 6F 74 68 20 63 68 61 72 61 63 74 both numeric, or if both charact 00000100 65 72 2E 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 er. "from 'the apl hand 00000120 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 book of techniques' copyright 19 00000140 37 38 2C 20 69 62 6D 2E 20 78 05 00 68 61 6E 67 00 00 01 00 04 10 00 07 00 03 00 05 00 01 00 03 78, ibm. x♣.hang..☺.♦►.•.♥.♣.☺.♥ 00000160 00 02 00 01 00 01 00 08 00 A4 01 02 00 01 00 07 00 3C 00 20 6D 73 67 20 68 61 6E 67 20 63 6F 6E .☻.☺.☺.◘.ñ☺☻.☺.•.<. msg hang con 00000180 64 69 74 69 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 dition 000001A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 69 66 7E 63 6F 6E 64 69 74 69 6F 6E 20 $0 if~condition 000001C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000001E0 20 20 20 20 20 20 20 20 20 20 20 20 6D 73 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 msg 00000200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000220 20 20 20 20 20 20 20 20 2D 31 2A 30 2E 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -1*0.5 00000240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000260 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00000280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 " 000002A0 68 61 6E 67 20 72 61 69 73 65 73 20 64 6F 6D 61 69 6E 20 65 72 72 6F 72 20 69 66 20 63 6F 6E 64 hang raises domain error if cond 000002C0 69 74 69 6F 6E 20 69 73 20 74 72 75 65 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D ition is true. "from 000002E0 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 00000300 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 12 00 FF FF 00 00 FC FF 0A ' copyright 1978, ibm. ↕. ..ⁿ ◙ 00000320 00 08 00 A2 50 01 00 01 00 05 00 24 00 17 51 FC FF 05 00 0E 00 9E 50 01 00 6E 64 69 74 00 00 17 .◘.óP☺.☺.♣.$.↨Qⁿ ♣.♫.₧P☺.ndit..↨ 00000340 51 FC FF 01 00 06 00 8C 50 01 00 20 20 20 20 48 00 17 51 FC FF 07 00 06 00 AE 50 01 00 20 20 20 Qⁿ ☺.♠.îP☺. H.↨Qⁿ •.♠.«P☺. 00000360 20 5A 00 17 51 84 00 06 00 00 00 00 00 01 00 7E 63 6F 6E 6C 00 17 51 FC FF 04 00 04 00 A3 50 01 Z.↨Qä.♠.....☺.~conl.↨Qⁿ ♦.♦.úP☺ 00000380 00 20 20 20 20 7E 00 17 51 FD FF 02 00 10 00 B5 50 01 00 20 20 20 20 FF FF 00 00 04 00 01 00 00 . ~.↨Q² ☻.►.╡P☺. ..♦.☺.. 000003A0 00 00 00 01 00 20 6D 73 67 FF FF 00 00 FC FF 01 00 08 00 A7 50 01 00 20 20 20 20 B4 00 17 51 FD ...☺. msg ..ⁿ ☺.◘.ºP☺. ┤.↨Q² 000003C0 FF 04 00 0A 00 09 51 01 00 20 20 20 20 C6 00 17 51 0A 00 03 00 00 00 00 00 01 00 20 20 20 20 FF ♦.◙.○Q☺. ╞.↨Q◙.♥.....☺. 000003E0 FF 00 00 FD FF 01 00 0A 00 C2 50 01 00 20 20 20 20 EA 00 17 51 FD FF 02 00 04 00 0F 51 01 00 20 ..² ☺.◙.┬P☺. Ω.↨Q² ☻.♦.☼Q☺. 00000400 20 20 20 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 ..♦.☺.....☺. ..☻...... 00000420 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 00 00 36 00 90 00 A2 .☺. ..☻.......☺. ..6.É.ó 00000440 00 D8 00 FC 00 0E 01 24 00 FF FF 0A 00 63 6F 6E 64 69 74 69 6F 6E 00 05 00 68 61 6E 67 00 04 00 .╪.ⁿ.♫☺$. ◙.condition.♣.hang.♦. 00000460 6D 73 67 00 0A 00 63 6F 6E 64 69 74 69 6F 6E 00 03 00 69 66 00 04 00 01 00 00 00 02 00 00 00 04 msg.◙.condition.♥.if.♦.☺...☻...♦ 00000480 00 6D 73 67 00 02 00 01 00 00 00 08 00 00 00 00 00 00 00 E0 3F 04 00 01 00 00 00 02 00 FF FF 04 .msg.☻.☺...◘.......α?♦.☺...☻. ♦ 000004A0 00 01 00 00 00 02 00 00 00 78 08 00 67 72 61 64 65 75 70 00 00 01 00 0C 16 00 0C 00 05 00 06 00 .☺...☻...x◘.gradeup..☺.♀▬.♀.♣.♠. 000004C0 02 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 01 00 08 00 D0 02 02 00 01 00 0C 00 3C 00 ☻.☺.☺.☺.☺.☺.☺.☺.☺.☺.◘.╨☻☻.☺.♀.<. 000004E0 69 20 23 20 63 20 67 72 61 64 65 75 70 20 6B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 i # c gradeup k 00000500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 20 23 20 i # 00000520 41 20 63 20 6E 66 6F 72 6D 20 6B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A c nform k 00000540 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 00000560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 67 72 61 64 65 75 70 20 2D 20 67 "gradeup - g 000005A0 65 6E 65 72 61 74 65 20 61 73 63 65 6E 64 69 6E 67 20 72 6F 77 20 69 6E 64 69 63 65 73 2E 20 20 enerate ascending row indices. 000005C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 "from 'the apl h 000005E0 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 andbook of techniques' copyright 00000600 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 74 6F 20 73 6F 72 74 20 61 20 6C 65 66 74 2D 6A 75 73 1978, ibm. "-to sort a left-jus 00000620 74 69 66 69 65 64 20 6D 61 74 72 69 78 20 61 6C 70 68 61 62 65 74 69 63 61 6C 6C 79 2E 20 20 20 tified matrix alphabetically. 00000640 20 20 20 20 20 20 20 20 22 2D 63 20 69 73 20 61 20 63 6F 6C 6C 61 74 69 6E 67 20 73 65 71 75 65 "-c is a collating seque 00000660 6E 63 65 3B 20 6B 20 69 73 20 61 20 63 68 61 72 61 63 74 65 72 20 6D 61 74 72 69 78 2E 20 20 20 nce; k is a character matrix. 00000680 20 20 20 20 22 2D 69 66 20 75 6E 69 71 75 65 20 64 69 73 74 69 6E 63 74 69 6F 6E 73 20 6F 63 63 "-if unique distinctions occ 000006A0 75 72 20 6F 6E 6C 79 20 61 74 20 72 69 67 68 74 20 73 69 64 65 2C 20 61 6E 64 20 69 66 20 20 20 ur only at right side, and if 000006C0 22 20 74 68 65 20 63 6F 6C 6C 61 74 69 6E 67 20 73 65 71 75 65 6E 63 65 20 69 73 20 6C 6F 6E 67 " the collating sequence is long 000006E0 2C 20 69 74 20 6D 61 79 20 62 65 20 6E 65 63 65 73 73 61 72 79 20 74 6F 20 20 20 20 22 20 73 6F , it may be necessary to " so 00000700 72 74 20 69 6E 20 6D 6F 72 65 20 74 68 61 6E 20 6F 6E 65 20 70 61 73 73 2C 20 66 69 72 73 74 20 rt in more than one pass, first 00000720 61 63 63 6F 72 64 69 6E 67 20 74 6F 20 74 68 65 20 20 20 20 20 20 20 20 22 20 72 69 67 68 74 6D according to the " rightm 00000740 6F 73 74 20 63 6F 6C 75 6D 6E 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ost columns. 00000760 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 48 6E 66 6F "-uses: Hnfo 00000780 72 6D 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rm. 000007A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF 0E 00 10 00 8E 50 01 00 ↕. ..ⁿ ♫.►.ÄP☺. 000007C0 02 00 01 00 24 00 F8 51 FC FF 06 00 02 00 9B 50 01 00 AB 59 4C 01 00 00 F8 51 FC FF 04 00 0A 00 ☻.☺.$.°Qⁿ ♠.☻.¢P☺.½YL☺..°Qⁿ ♦.◙. 000007E0 8E 50 01 00 08 00 FC 51 48 00 F8 51 03 00 02 00 00 00 00 00 01 00 06 52 62 00 24 00 F8 51 FC FF ÄP☺.◘.ⁿQH.°Q♥.☻.....☺.♠Rb.$.°Qⁿ 00000800 00 00 10 00 8B 50 01 00 00 00 02 00 6C 00 F8 51 FC FF 0E 00 02 00 A7 50 01 00 40 00 05 00 7E 00 ..►.ïP☺...☻.l.°Qⁿ ♫.☻.ºP☺.@.♣.~. 00000820 F8 51 FC FF 08 00 10 00 A3 50 01 00 0A 00 06 52 90 00 F8 51 FC FF 06 00 0A 00 A3 50 01 00 06 00 °Qⁿ ◘.►.úP☺.◙.♠RÉ.°Qⁿ ♠.◙.úP☺.♠. 00000840 28 53 A2 00 F8 51 21 00 04 00 00 00 00 00 01 00 38 53 00 00 B4 00 F8 51 03 00 02 00 00 00 00 00 (Só.°Q!.♦.....☺.8S..┤.°Q♥.☻..... 00000860 01 00 0A 00 06 52 FF FF 00 00 FC FF 00 00 08 00 9F 50 01 00 12 52 CC 00 D8 00 F8 51 FD FF 01 00 ☺.◙.♠R ..ⁿ ..◘.ƒP☺.↕R╠.╪.°Q² ☺. 00000880 0A 00 B4 50 01 00 00 00 00 00 FF FF 00 00 04 00 00 00 00 00 00 00 01 00 01 00 00 00 FF FF 00 00 ◙.┤P☺..... ..♦.......☺.☺... .. 000008A0 02 00 00 00 00 00 00 00 01 00 1C 00 03 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 99 99 99 99 ☻.......☺.∟.♥. ..☻.......☺.ÖÖÖÖ 000008C0 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 F5 52 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 ..☻.......☺.⌡R.. ..☻.......☺. 000008E0 6A 00 2A 58 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 0F 52 28 00 FF FF 00 00 02 00 00 00 00 00 j.*X ..☻.......☺.☼R(. ..☻..... 00000900 00 00 01 00 00 00 02 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 06 00 08 00 FF FF 00 00 02 00 ..☺...☻. ..☻.......☺.♠.◘. ..☻. 00000920 00 00 00 00 00 00 01 00 01 00 1A 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 12 52 06 00 00 00 ......☺.☺.→. ..☻.......☺.↕R♠... 00000940 5A 00 C6 00 EA 00 FC 00 0E 01 20 01 32 01 44 01 56 01 68 01 7A 01 48 00 FF FF 02 00 6B 00 08 00 Z.╞.Ω.ⁿ.♫☺ ☺2☺D☺V☺h☺z☺H. ☻.k.◘. 00000960 67 72 61 64 65 75 70 00 02 00 63 00 02 00 69 00 02 00 6B 00 06 00 6E 66 6F 72 6D 00 02 00 63 00 gradeup.☻.c.☻.i.☻.k.♠.nform.☻.c. 00000980 02 00 69 00 04 00 01 00 00 00 02 00 00 00 78 03 00 69 66 00 00 01 00 0C 0C 00 04 00 05 00 01 00 ☻.i.♦.☺...☻...x♥.if..☺.♀♀.♦.♣.☺. 000009A0 01 00 05 00 08 00 F0 00 02 00 01 00 04 00 3C 00 72 20 23 20 61 20 69 66 20 62 20 20 20 20 20 20 ☺.♣.◘.≡.☻.☺.♦.<.r # a if b 000009C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000009E0 20 20 20 20 20 20 20 20 20 20 20 20 22 69 66 20 2D 20 63 6F 6E 64 69 74 69 6F 6E 20 61 73 73 69 "if - condition assi 00000A00 67 6E 6D 65 6E 74 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 gnment. 00000A20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 "from 'the apl handbook 00000A40 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 of techniques' copyright 1978, i 00000A60 62 6D 2E 20 20 72 20 23 20 62 20 60 2F 20 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 bm. r # b `/ a 00000A80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000AA0 12 00 FF FF 00 00 FC FF 09 00 0A 00 10 51 01 00 01 00 02 00 24 00 71 52 FC FF 06 00 0E 00 C0 50 ↕. ..ⁿ ○.◙.►Q☺.☺.☻.$.qRⁿ ♠.♫.└P 00000AC0 01 00 20 20 20 20 00 00 71 52 FC FF 04 00 02 00 AA 50 01 00 20 20 20 20 48 00 71 52 03 00 02 00 ☺. ..qRⁿ ♦.☻.¬P☺. H.qR♥.☻. 00000AE0 00 00 00 00 01 00 20 20 20 20 24 00 71 52 FC FF 00 00 0C 00 9A 50 01 00 63 6F 6E 64 FF FF 00 00 ....☺. $.qRⁿ ..♀.ÜP☺.cond .. 00000B00 02 00 00 00 00 00 00 00 01 00 6E 74 2E 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 ☻.......☺.nt. ..☻.......☺. 00000B20 90 00 71 52 FC FF 0A 00 04 00 2C 51 01 00 00 20 0E 00 A2 00 71 52 40 00 07 00 00 00 00 00 01 00 É.qRⁿ ◙.♦.,Q☺.. ♫.ó.qR@.•.....☺. 00000B40 20 20 20 20 B4 00 71 52 FC FF 05 00 0A 00 12 51 01 00 20 20 20 20 C6 00 71 52 03 00 03 00 00 00 ┤.qRⁿ ♣.◙.↕Q☺. ╞.qR♥.♥... 00000B60 00 00 01 00 20 20 20 20 FF FF 00 00 FC FF 01 00 04 00 12 51 01 00 20 20 20 20 00 00 5A 00 6C 00 ..☺. ..ⁿ ☺.♦.↕Q☺. ..Z.l. 00000B80 7E 00 48 00 FF FF 02 00 62 00 03 00 69 66 00 02 00 61 00 02 00 72 00 02 00 61 00 02 00 62 00 02 ~.H. ☻.b.♥.if.☻.a.☻.r.☻.a.☻.b.☻ 00000BA0 00 72 00 78 06 00 69 6E 64 65 78 00 00 01 00 0C 1A 00 08 00 05 00 01 00 01 00 01 00 01 00 01 00 .r.x♠.index..☺.♀→.◘.♣.☺.☺.☺.☺.☺. 00000BC0 01 00 0F 00 08 00 08 02 02 00 01 00 08 00 41 00 7A 20 23 20 61 20 69 6E 64 65 78 20 62 20 20 20 ☺.☼.◘.◘☻☻.☺.◘.A.z # a index b 00000BE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000C00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 69 6E 64 65 78 20 2D 20 63 6F 6C 75 6D 6E "index - column 00000C20 20 69 6E 64 65 78 20 69 6E 20 6D 61 74 72 69 78 20 62 20 77 68 6F 73 65 20 6D 65 6D 62 65 72 73 index in matrix b whose members 00000C40 20 61 6C 6C 20 62 65 6C 6F 6E 67 20 74 6F 20 61 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C all belong to a "from 'the apl 00000C60 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 handbook of techniques' copyrig 00000C80 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 20 20 20 20 22 2D 72 65 74 75 72 6E 73 20 74 68 65 ht 1978, ibm. "-returns the 00000CA0 20 69 6E 64 65 78 20 70 6F 73 69 74 69 6F 6E 20 6F 66 20 65 61 63 68 20 63 6F 6C 75 6D 6E 20 6F index position of each column o 00000CC0 66 20 62 20 61 6C 6C 20 6F 66 20 77 68 6F 73 65 20 20 20 20 22 20 65 6C 65 6D 65 6E 74 73 20 61 f b all of whose " elements a 00000CE0 72 65 20 69 6E 20 61 2E 20 20 62 20 6D 75 73 74 20 62 65 20 61 20 6D 61 74 72 69 78 2E 20 20 74 re in a. b must be a matrix. t 00000D00 68 65 20 73 68 61 70 73 20 6F 66 20 61 20 69 73 20 20 20 20 20 22 20 6E 6F 74 20 72 65 73 74 72 he shaps of a is " not restr 00000D20 69 63 74 65 64 2E 20 20 74 68 65 20 61 72 67 75 6D 65 6E 74 73 20 6D 61 79 20 62 65 20 65 69 74 icted. the arguments may be eit 00000D40 68 65 72 20 63 68 61 72 61 63 74 65 72 20 6F 72 20 20 20 20 20 20 22 20 6E 75 6D 65 72 69 63 2E her character or " numeric. 00000D60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000D80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7A 23 28 26 60 2F 62 45 z#(&`/bE 00000DA0 61 29 2F 49 31 55 52 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a)/I1URb 00000DC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 00 FF FF 00 00 FC FF ↕. ..ⁿ 00000DE0 0C 00 0C 00 56 51 01 00 01 00 06 00 24 00 EC 52 FC FF 06 00 04 00 56 51 01 00 62 20 20 20 00 00 ♀.♀.VQ☺.☺.♠.$.∞Rⁿ ♠.♦.VQ☺.b .. 00000E00 EC 52 FC FF 04 00 02 00 BF 50 01 00 20 20 20 20 48 00 EC 52 03 00 02 00 00 00 00 00 01 00 20 20 ∞Rⁿ ♦.☻.┐P☺. H.∞R♥.☻.....☺. 00000E20 20 20 24 00 EC 52 FC FF 00 00 0C 00 BE 50 01 00 69 6E 64 65 FF FF 00 00 02 00 00 00 00 00 00 00 $.∞Rⁿ ..♀.╛P☺.inde ..☻....... 00000E40 01 00 65 78 20 69 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 73 65 20 6D FF FF 00 00 02 00 00 00 ☺.ex i ..☻.......☺.se m ..☻... 00000E60 00 00 00 00 01 00 6F 6E 67 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 68 65 20 61 FF FF 00 00 ....☺.ong ..☻.......☺.he a .. 00000E80 02 00 00 00 00 00 00 00 01 00 20 74 65 63 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 69 67 68 74 ☻.......☺. tec ..☻.......☺.ight 00000EA0 D8 00 EC 52 FC FF 10 00 0A 00 CC 51 01 00 20 20 20 22 EA 00 EC 52 32 00 0F 00 00 00 00 00 01 00 ╪.∞Rⁿ ►.◙.╠Q☺. "Ω.∞R2.☼.....☺. 00000EC0 6E 64 65 78 FC 00 EC 52 35 00 0E 00 00 00 00 00 01 00 61 63 68 20 0E 01 EC 52 FD FF 0D 00 0C 00 ndexⁿ.∞R5.♫.....☺.ach ♫☺∞R² ♪.♀. 00000EE0 31 52 01 00 6C 20 6F 66 20 01 EC 52 29 00 0C 00 00 00 00 00 01 00 65 6D 65 6E 32 01 EC 52 0F 00 1R☺.l of ☺∞R).♀.....☺.emen2☺∞R☼. 00000F00 0B 00 00 00 00 00 01 00 62 20 6D 75 44 01 EC 52 09 00 0A 00 00 00 00 00 01 00 2E 20 20 74 56 01 ♂.....☺.b muD☺∞R○.◙.....☺.. tV☺ 00000F20 EC 52 FC FF 09 00 04 00 CC 51 01 00 69 73 20 20 68 01 EC 52 25 00 08 00 00 00 00 00 01 00 69 63 ∞Rⁿ ○.♦.╠Q☺.is h☺∞R%.◘.....☺.ic 00000F40 74 65 7A 01 EC 52 FC FF 07 00 0E 00 CB 51 01 00 6E 74 73 20 8C 01 EC 52 40 00 05 00 00 00 00 00 tez☺∞Rⁿ •.♫.╦Q☺.nts î☺∞R@.♣..... 00000F60 01 00 63 68 61 72 9E 01 EC 52 06 00 04 00 00 00 00 00 01 00 00 00 0C 00 B0 01 EC 52 08 00 03 00 ☺.char₧☺∞R♠.♦.....☺...♀.░☺∞R◘.♥. 00000F80 00 00 00 00 01 00 06 00 10 53 C2 01 EC 52 03 00 02 00 00 00 00 00 01 00 01 00 02 00 FF FF 00 00 ....☺.♠.►S┬☺∞R♥.☻.....☺.☺.☻. .. 00000FA0 FC FF 01 00 02 00 57 51 01 00 00 00 02 00 00 00 5A 00 6C 00 7E 00 90 00 A2 00 B4 00 C6 00 48 00 ⁿ ☺.☻.WQ☺...☻...Z.l.~.É.ó.┤.╞.H. 00000FC0 FF FF 02 00 62 00 06 00 69 6E 64 65 78 00 02 00 61 00 02 00 7A 00 02 00 62 00 04 00 01 00 00 00 ☻.b.♠.index.☻.a.☻.z.☻.b.♦.☺... 00000FE0 02 00 01 00 02 00 61 00 02 00 62 00 02 00 7A 00 78 03 00 69 73 00 00 01 00 0C 1C 00 05 00 05 00 ☻.☺.☻.a.☻.b.☻.z.x♥.is..☺.♀∟.♣.♣. 00001000 13 00 02 00 01 00 01 00 08 00 2C 01 02 00 01 00 05 00 3C 00 20 72 23 61 20 69 73 20 62 20 20 20 ‼.☻.☺.☺.◘.,☺☻.☺.♣.<. r#a is b 00001020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 28 30 5E 3D 30 5C 30 52 61 29 3D 30 5E r#(0^=0\0Ra)=0^ 00001060 3D 30 5C 30 52 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 =0\0Rb 00001080 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 000010A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000010C0 20 20 20 20 20 20 20 20 22 69 73 20 2D 20 74 72 75 65 2C 20 69 66 20 62 6F 74 68 20 6E 75 6D 65 "is - true, if both nume 000010E0 72 69 63 2C 20 6F 72 20 69 66 20 62 6F 74 68 20 63 68 61 72 61 63 74 65 72 2E 20 20 20 20 20 20 ric, or if both character. 00001100 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 "from 'the apl handbook of t 00001120 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 echniques' copyright 1978, ibm. 00001140 12 00 FF FF 00 00 FC FF 08 00 0E 00 E1 51 01 00 01 00 20 20 24 00 7E 54 FC FF 05 00 0E 00 D3 51 ↕. ..ⁿ ◘.♫.ßQ☺.☺. $.~Tⁿ ♣.♫.╙Q 00001160 01 00 01 00 20 22 00 00 7E 54 FC FF 03 00 08 00 D3 51 01 00 01 00 6E 64 48 00 7E 54 03 00 02 00 ☺.☺. "..~Tⁿ ♥.◘.╙Q☺.☺.ndH.~T♥.☻. 00001180 00 00 00 00 01 00 01 00 65 73 24 00 7E 54 FC FF 01 00 02 00 D3 51 01 00 01 00 2C 20 6C 00 7E 54 ....☺.☺.es$.~Tⁿ ☺.☻.╙Q☺.☺., l.~T 000011A0 FC FF 15 00 0C 00 E4 51 01 00 01 00 6E 75 7E 00 7E 54 32 00 14 00 00 00 00 00 01 00 01 00 6D 61 ⁿ §.♀.ΣQ☺.☺.nu~.~T2.¶.....☺.☺.ma 000011C0 90 00 7E 54 FD FF 13 00 06 00 64 52 01 00 01 00 3A 20 A2 00 7E 54 3C 00 12 00 00 00 00 00 01 00 É.~T² ‼.♠.dR☺.☺.: ó.~T<.↕.....☺. 000011E0 01 00 65 61 B4 00 7E 54 FD FF 11 00 10 00 62 52 01 00 01 00 61 79 C6 00 7E 54 3E 00 0F 00 00 00 ☺.ea┤.~T² ◄.►.bR☺.☺.ay╞.~T>.☼... 00001200 00 00 01 00 01 00 72 20 D8 00 7E 54 FD FF 0E 00 0E 00 59 52 01 00 01 00 20 6F EA 00 7E 54 1D 00 ..☺.☺.r ╪.~T² ♫.♫.YR☺.☺. oΩ.~T↔. 00001220 0D 00 00 00 00 00 01 00 01 00 2F 31 FC 00 7E 54 09 00 0C 00 00 00 00 00 01 00 01 00 73 20 0E 01 ♪.....☺.☺./1ⁿ.~T○.♀.....☺.☺.s ♫☺ 00001240 7E 54 FC FF 0B 00 0A 00 E2 51 01 00 01 00 20 63 20 01 7E 54 32 00 0A 00 00 00 00 00 01 00 01 00 ~Tⁿ ♂.◙.ΓQ☺.☺. c ☺~T2.◙.....☺.☺. 00001260 65 65 32 01 7E 54 FD FF 09 00 02 00 45 52 01 00 01 00 61 6C 44 01 7E 54 3C 00 08 00 00 00 00 00 ee2☺~T² ○.☻.ER☺.☺.alD☺~T<.◘..... 00001280 01 00 01 00 73 20 56 01 7E 54 FD FF 07 00 06 00 4A 52 01 00 01 00 22 20 68 01 7E 54 3E 00 05 00 ☺.☺.s V☺~T² •.♠.JR☺.☺." h☺~T>.♣. 000012A0 00 00 00 00 01 00 01 00 65 70 7A 01 7E 54 FD FF 04 00 0A 00 3A 52 01 00 01 00 29 20 8C 01 7E 54 ....☺.☺.epz☺~T² ♦.◙.:R☺.☺.) î☺~T 000012C0 08 00 03 00 00 00 00 00 01 00 01 00 63 74 9E 01 7E 54 03 00 02 00 00 00 00 00 01 00 01 00 6F 2E ◘.♥.....☺.☺.ct₧☺~T♥.☻.....☺.☺.o. 000012E0 FF FF 00 00 FC FF 01 00 04 00 E2 51 01 00 01 00 2C 20 C2 01 7E 54 FD FF 02 00 04 00 6C 52 01 00 ..ⁿ ☺.♦.ΓQ☺.☺., ┬☺~T² ☻.♦.lR☺. 00001300 01 00 61 79 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 08 00 9D 54 FF FF 00 00 02 00 00 00 00 00 ☺.ay ..♦.☺.....☺.◘.¥T ..☻..... 00001320 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 01 00 00 00 00 00 5A 00 B0 01 ..☺..... ..☻.......☺.☺.....Z.░☺ 00001340 D4 01 E6 01 48 00 FF FF 02 00 62 00 03 00 69 73 00 02 00 61 00 02 00 72 00 02 00 62 00 04 00 01 ╘☺µ☺H. ☻.b.♥.is.☻.a.☻.r.☻.b.♦.☺ 00001360 00 00 00 02 00 00 00 04 00 01 00 00 00 02 00 00 00 04 00 01 00 00 00 02 00 00 00 02 00 61 00 04 ...☻...♦.☺...☻...♦.☺...☻...☻.a.♦ 00001380 00 01 00 00 00 02 00 00 00 04 00 01 00 00 00 02 00 00 00 04 00 01 00 00 00 02 00 00 00 02 00 72 .☺...☻...♦.☺...☻...♦.☺...☻...☻.r 000013A0 00 04 00 01 00 00 00 02 00 00 00 78 08 00 69 6E 74 65 67 65 72 00 00 01 00 0A 1B 00 06 00 04 00 .♦.☺...☻...x◘.integer..☺.◙←.♠.♦. 000013C0 09 00 0A 00 02 00 01 00 01 00 08 00 68 01 02 00 01 00 06 00 3C 00 20 74 23 69 6E 74 65 67 65 72 ○.◙.☻.☺.☺.◘.h☺☻.☺.♠.<. t#integer 000013E0 20 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a 00001400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 28 63 68 61 72 61 63 74 65 72 20 61 $(character a 00001420 29 2F 74 23 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )/t#0 00001440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 23 30 26 2E 3D 31 7C 2C 61 20 20 20 20 20 20 20 t#0&.=1|,a 00001460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001480 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 000014A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000014C0 20 20 20 20 20 20 22 69 6E 74 65 67 65 72 20 2D 20 72 65 74 75 72 6E 73 20 31 20 69 66 20 73 74 "integer - returns 1 if st 000014E0 72 75 63 74 75 72 65 20 63 6F 6E 74 61 69 6E 73 20 6F 6E 6C 79 20 69 6E 74 65 67 65 72 73 2E 20 ructure contains only integers. 00001500 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 00001520 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 12 00 hniques' copyright 1978, ibm. ↕. 00001540 FF FF 00 00 FC FF 0B 00 08 00 39 51 01 00 20 20 20 20 24 00 4B 54 FC FF 03 00 0A 00 CE 51 01 00 ..ⁿ ♂.◘.9Q☺. $.KTⁿ ♥.◙.╬Q☺. 00001560 66 72 6F 6D 36 00 4B 54 03 00 02 00 00 00 00 00 01 00 62 6F 6F 6B 00 00 4B 54 FC FF 01 00 02 00 from6.KT♥.☻.....☺.book..KTⁿ ☺.☻. 00001580 39 51 01 00 27 20 63 6F 5A 00 4B 54 FD FF 12 00 0A 00 34 52 01 00 69 62 6D 2E 6C 00 4B 54 03 00 9Q☺.' coZ.KT² ↕.◙.4R☺.ibm.l.KT♥. 000015A0 11 00 00 00 00 00 01 00 69 61 6E 20 7E 00 4B 54 FC FF 10 00 0C 00 DD 51 01 00 61 74 65 20 90 00 ◄.....☺.ian ~.KTⁿ ►.♀.▌Q☺.ate É. 000015C0 4B 54 0F 00 0F 00 00 00 00 00 01 00 20 61 72 72 A2 00 4B 54 09 00 0E 00 00 00 00 00 01 00 65 20 KT☼.☼.....☺. arró.KT○.♫.....☺.e 000015E0 72 6F B4 00 4B 54 FC FF 0D 00 04 00 CF 51 01 00 61 79 2C 79 C6 00 4B 54 FC FF 03 00 0C 00 D1 51 ro┤.KTⁿ ♪.♦.╧Q☺.ay,y╞.KTⁿ ♥.♀.╤Q 00001600 01 00 79 6C 65 20 D8 00 4B 54 08 00 02 00 00 00 00 00 01 00 20 20 22 6C FF FF 00 00 04 00 01 00 ☺.yle ╪.KT◘.☻.....☺. "l ..♦.☺. 00001620 00 00 00 00 01 00 20 31 20 69 FC 00 4B 54 FC FF 0A 00 08 00 DE 51 01 00 65 20 28 67 0E 01 4B 54 ....☺. 1 iⁿ.KTⁿ ◙.◘.▐Q☺.e (g♫☺KT 00001640 0C 00 09 00 00 00 00 00 01 00 6E 64 61 72 20 01 4B 54 83 00 08 00 00 00 00 00 01 00 65 20 75 73 ♀.○.....☺.ndar ☺KTâ.◘.....☺.e us 00001660 32 01 4B 54 FD FF 07 00 08 00 3D 52 01 00 6E 20 64 61 44 01 4B 54 1D 00 06 00 00 00 00 00 01 00 2☺KT² •.◘.=R☺.n daD☺KT↔.♠.....☺. 00001680 6F 75 73 20 56 01 4B 54 0E 00 05 00 00 00 00 00 01 00 65 67 61 6E 68 01 4B 54 06 00 04 00 00 00 ous V☺KT♫.♣.....☺.eganh☺KT♠.♦... 000016A0 00 00 01 00 20 31 2F 31 7A 01 4B 54 FD FF 03 00 0C 00 37 52 01 00 37 31 33 20 8C 01 4B 54 03 00 ..☺. 1/1z☺KT² ♥.♀.7R☺.713 î☺KT♥. 000016C0 02 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 FC FF 01 00 02 00 DE 51 01 00 20 00 64 54 B0 01 ☻.....☺. ..ⁿ ☺.☻.▐Q☺. .dT░☺ 000016E0 4B 54 FD FF 02 00 10 00 48 52 01 00 20 20 20 20 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 20 20 KT² ☻.►.HR☺. ..♦.☺.....☺. 00001700 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 20 20 20 20 FF FF 00 00 02 00 00 00 00 00 00 00 ..☻.......☺. ..☻....... 00001720 01 00 23 28 61 5E 00 00 48 00 EA 00 9E 01 C2 01 D4 01 36 00 FF FF 02 00 61 00 08 00 69 6E 74 65 ☺.#(a^..H.Ω.₧☺┬☺╘☺6. ☻.a.◘.inte 00001740 67 65 72 00 02 00 74 00 04 00 01 00 00 00 02 00 00 00 02 00 74 00 02 00 61 00 0A 00 63 68 61 72 ger.☻.t.♦.☺...☻...☻.t.☻.a.◙.char 00001760 61 63 74 65 72 00 02 00 61 00 04 00 01 00 00 00 02 00 01 00 04 00 01 00 00 00 02 00 00 00 02 00 acter.☻.a.♦.☺...☻.☺.♦.☺...☻...☻. 00001780 74 00 04 00 01 00 00 00 02 00 00 00 78 03 00 69 6E 00 00 01 00 0C 1E 00 06 00 05 00 07 00 0E 00 t.♦.☺...☻...x♥.in..☺.♀▲.♠.♣.•.♫. 000017A0 02 00 01 00 01 00 08 00 68 01 02 00 01 00 06 00 3C 00 20 7A 23 62 20 69 6E 20 6D 20 20 20 20 20 ☻.☺.☺.◘.h☺☻.☺.♠.<. z#b in m 000017C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000017E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 7A 65 72 6F 20 69 73 20 69 6E 76 61 6C 69 64 20 'zero is invalid 00001800 61 72 67 75 6D 65 6E 74 27 68 61 6E 67 20 30 3D 31 59 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 argument'hang 0=1Ym 00001820 20 20 20 20 20 20 20 20 20 20 20 7A 23 28 31 20 31 2C 52 7A 29 52 7A 23 62 2C 6D 20 20 20 20 20 z#(1 1,Rz)Rz#b,m 00001840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001860 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 00001880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000018A0 20 20 22 69 6E 20 2D 20 73 65 65 20 47 74 6F 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "in - see Gto. 000018C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 "f 000018E0 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 00001900 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 12 00 FF FF 00 00 ues' copyright 1978, ibm. ↕. .. 00001920 FC FF 08 00 10 00 2C 51 01 00 01 00 0A 00 24 00 54 53 FC FF 05 00 0A 00 2C 51 01 00 6E 20 62 3B ⁿ ◘.►.,Q☺.☺.◙.$.TSⁿ ♣.◙.,Q☺.n b; 00001940 00 00 54 53 FC FF 03 00 10 00 C5 50 01 00 20 20 20 20 48 00 54 53 03 00 02 00 00 00 00 00 01 00 ..TSⁿ ♥.►.┼P☺. H.TS♥.☻.....☺. 00001960 20 20 20 20 24 00 54 53 FC FF 01 00 0A 00 C5 50 01 00 52 61 23 70 6C 00 54 53 FC FF 24 00 0E 00 $.TSⁿ ☺.◙.┼P☺.Ra#pl.TSⁿ $.♫. 00001980 32 51 01 00 23 31 20 20 7E 00 54 53 39 00 23 00 00 00 00 00 01 00 20 20 20 20 90 00 54 53 FD FF 2Q☺.#1 ~.TS9.#.....☺. É.TS² 000019A0 22 00 10 00 C7 51 01 00 20 6A 23 2D A2 00 54 53 1D 00 21 00 00 00 00 00 01 00 20 20 20 20 B4 00 ".►.╟Q☺. j#-ó.TS↔.!.....☺. ┤. 000019C0 54 53 FD FF 20 00 02 00 52 51 01 00 20 20 20 20 C6 00 54 53 FC FF 1B 00 06 00 32 51 01 00 20 20 TS² .☻.RQ☺. ╞.TSⁿ ←.♠.2Q☺. 000019E0 20 20 FF FF 00 00 07 00 01 00 04 00 45 51 01 00 69 66 20 69 EA 00 54 53 FC FF 10 00 08 00 55 51 ..•.☺.♦.EQ☺.if iΩ.TSⁿ ►.◘.UQ 00001A00 01 00 20 20 20 20 FC 00 54 53 0C 00 0F 00 00 00 00 00 01 00 20 20 20 20 0E 01 54 53 FC FF 0E 00 ☺. ⁿ.TS♀.☼.....☺. ♫☺TSⁿ ♫. 00001A20 02 00 55 51 01 00 2C 52 62 23 20 01 54 53 03 00 0D 00 00 00 00 00 01 00 63 6F 6C 73 32 01 54 53 ☻.UQ☺.,Rb# ☺TS♥.♪.....☺.cols2☺TS 00001A40 FC FF 0C 00 0C 00 54 51 01 00 20 20 20 20 44 01 54 53 32 00 0B 00 00 00 00 00 01 00 6C 31 3A 61 ⁿ ♀.♀.TQ☺. D☺TS2.♂.....☺.l1:a 00001A60 56 01 54 53 09 00 0A 00 00 00 00 00 01 00 64 63 6F 6C 68 01 54 53 FC FF 09 00 08 00 48 51 01 00 V☺TS○.◙.....☺.dcolh☺TSⁿ ○.◘.HQ☺. 00001A80 20 20 20 20 7A 01 54 53 32 00 08 00 00 00 00 00 01 00 20 20 20 20 8C 01 54 53 0C 00 07 00 00 00 z☺TS2.◘.....☺. î☺TS♀.•... 00001AA0 00 00 01 00 64 6A 75 73 9E 01 54 53 FD FF 04 00 04 00 D0 51 01 00 75 73 74 64 B0 01 54 53 08 00 ..☺.djus₧☺TS² ♦.♦.╨Q☺.ustd░☺TS◘. 00001AC0 03 00 00 00 00 00 01 00 20 20 20 20 C2 01 54 53 03 00 02 00 00 00 00 00 01 00 20 20 20 20 FF FF ♥.....☺. ┬☺TS♥.☻.....☺. 00001AE0 00 00 FC FF 01 00 02 00 48 51 01 00 20 20 20 20 E6 01 54 53 FD FF 02 00 04 00 F1 51 01 00 20 20 ..ⁿ ☺.☻.HQ☺. µ☺TS² ☻.♦.±Q☺. 00001B00 20 20 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 22 68 65 61 FF FF 00 00 02 00 00 00 00 00 00 00 ..♦.☺.....☺."hea ..☻....... 00001B20 01 00 20 68 65 61 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 72 74 20 20 00 00 5A 00 D8 00 D4 01 ☺. hea ..☻.......☺.rt ..Z.╪.╘☺ 00001B40 F8 01 0A 02 48 00 FF FF 02 00 6D 00 03 00 69 6E 00 02 00 62 00 02 00 7A 00 02 00 6D 00 04 00 01 °☺◙☻H. ☻.m.♥.in.☻.b.☻.z.☻.m.♦.☺ 00001B60 00 00 00 02 00 01 00 04 00 01 00 00 00 02 00 00 00 05 00 68 61 6E 67 00 08 00 18 00 01 00 01 00 ...☻.☺.♦.☺...☻...♣.hang.◘.↑.☺.☺. 00001B80 18 00 7A 65 72 6F 20 69 73 20 69 6E 76 61 6C 69 64 20 61 72 67 75 6D 65 6E 74 02 00 6D 00 02 00 ↑.zero is invalid argument☻.m.☻. 00001BA0 62 00 02 00 7A 00 02 00 7A 00 04 00 02 00 01 00 02 00 02 00 01 00 01 00 02 00 7A 00 04 00 01 00 b.☻.z.☻.z.♦.☻.☺.☻.☻.☺.☺.☻.z.♦.☺. 00001BC0 00 00 02 00 00 00 78 09 00 68 65 61 64 65 72 6F 6E 00 00 01 00 0C 62 00 0A 00 0B 00 0D 00 09 00 ..☻...x○.headeron..☺.♀b.◙.♂.♪.○. 00001BE0 0C 00 0E 00 0A 00 15 00 02 00 01 00 01 00 08 00 58 02 02 00 01 00 0A 00 3C 00 20 7A 23 61 20 68 ♀.♫.◙.§.☻.☺.☺.◘.X☻☻.☺.◙.<. z#a h 00001C00 65 61 64 65 72 6F 6E 20 62 3B 69 3B 6A 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 eaderon b;i;j;Lio 00001C20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 23 2D 31 59 52 61 23 70 i#-1YRa#p 00001C40 72 65 70 61 72 65 20 61 20 48 20 4C 69 6F 23 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 repare a H Lio#1 00001C60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6A 23 2D 31 59 52 62 23 70 72 65 70 61 j#-1YRb#prepa 00001C80 72 65 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 re b 00001CA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 28 6C 31 2C 6C 32 2C 6C 30 29 69 66 20 69 20 63 $(l1,l2,l0)if i c 00001CC0 6F 6D 70 61 72 65 20 6A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ompare j 00001CE0 20 20 20 20 20 20 20 20 20 20 6C 30 3A 24 6C 32 2C 52 62 23 63 65 6E 74 65 72 28 6A 2D 69 29 61 l0:$l2,Rb#center(j-i)a 00001D00 64 64 63 6F 6C 73 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ddcols b 00001D20 20 20 20 20 20 20 6C 31 3A 61 23 63 65 6E 74 65 72 28 69 2D 6A 29 61 64 64 63 6F 6C 73 20 61 20 l1:a#center(i-j)addcols a 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 7A 23 28 31 2B 31 59 52 61 29 61 64 6A 75 73 74 75 70 28 31 2B 31 59 52 61 29 61 64 6A z#(1+1YRa)adjustup(1+1YRa)adj 00001D80 75 73 74 64 6F 77 6E 20 7A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 ustdown z $ 00001DA0 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 20 0 00001DC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 68 65 61 64 65 "heade 00001DE0 72 6F 6E 20 2D 20 70 75 74 73 20 61 20 68 65 61 64 69 6E 67 20 6F 6E 20 61 20 72 65 70 6F 72 74 ron - puts a heading on a report 00001E00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 "from 'the 00001E20 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 70 apl handbook of techniques' cop 00001E40 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 7E 00 FF FF 00 00 ED FF 14 00 00 00 00 00 yright 1978, ibm. ~. ..φ ¶..... 00001E60 01 00 00 00 00 00 24 00 7B 53 1B 00 13 00 00 00 00 00 01 00 00 00 00 00 00 00 7B 53 FC FF 12 00 ☺.....$.{S←.‼.....☺.......{Sⁿ ↕. 00001E80 06 00 BC 50 01 00 00 00 00 00 48 00 7B 53 1B 00 11 00 00 00 00 00 01 00 00 00 00 00 24 00 7B 53 ♠.╝P☺.....H.{S←.◄.....☺.....$.{S 00001EA0 FC FF 10 00 02 00 AF 50 01 00 00 00 00 00 6C 00 7B 53 1B 00 0F 00 00 00 00 00 01 00 00 00 00 00 ⁿ ►.☻.»P☺.....l.{S←.☼.....☺..... 00001EC0 48 00 7B 53 FC FF 0E 00 10 00 AD 50 01 00 02 00 28 51 90 00 7B 53 FC FF 05 00 04 00 AD 50 01 00 H.{Sⁿ ♫.►.¡P☺.☻.(QÉ.{Sⁿ ♣.♦.¡P☺. 00001EE0 00 00 00 00 6C 00 7B 53 FC FF 03 00 0E 00 8F 50 01 00 0C 00 27 51 B4 00 7B 53 03 00 02 00 00 00 ....l.{Sⁿ ♥.♫.ÅP☺.♀.'Q┤.{S♥.☻... 00001F00 00 00 01 00 00 00 00 00 90 00 7B 53 FC FF 01 00 08 00 8F 50 01 00 08 00 28 51 D8 00 7B 53 FD FF ..☺.....É.{Sⁿ ☺.◘.ÅP☺.◘.(Q╪.{S² 00001F20 19 00 0A 00 42 51 01 00 00 00 00 00 EA 00 7B 53 03 00 18 00 00 00 00 00 01 00 0E 00 15 51 FC 00 ↓.◙.BQ☺.....Ω.{S♥.↑.....☺.♫.§Qⁿ. 00001F40 7B 53 ED FF 15 00 00 00 00 00 01 00 00 00 00 00 0E 01 7B 53 FC FF 13 00 0C 00 2D 51 01 00 00 00 {Sφ §.....☺.....♫☺{Sⁿ ‼.♀.-Q☺... 00001F60 00 00 20 01 7B 53 FC FF 11 00 06 00 2D 51 01 00 00 00 00 00 32 01 7B 53 FC FF 09 00 0A 00 15 51 .. ☺{Sⁿ ◄.♠.-Q☺.....2☺{Sⁿ ○.◙.§Q 00001F80 01 00 0C 00 1F 51 44 01 7B 53 03 00 08 00 00 00 00 00 01 00 00 00 00 00 56 01 7B 53 FC FF 07 00 ☺.♀.▼QD☺{S♥.◘.....☺.....V☺{Sⁿ •. 00001FA0 02 00 BD 50 01 00 08 00 15 51 68 01 7B 53 32 00 06 00 00 00 00 00 01 00 00 00 00 00 7A 01 7B 53 ☻.╜P☺.◘.§Qh☺{S2.♠.....☺.....z☺{S 00001FC0 39 00 05 00 00 00 00 00 01 00 00 00 00 00 8C 01 7B 53 FD FF 03 00 08 00 33 51 01 00 00 00 00 00 9.♣.....☺.....î☺{S² ♥.◘.3Q☺..... 00001FE0 9E 01 7B 53 03 00 02 00 00 00 00 00 01 00 08 00 17 51 FF FF 00 00 FC FF 01 00 0C 00 BC 50 01 00 ₧☺{S♥.☻.....☺.◘.↨Q ..ⁿ ☺.♀.╝P☺. 00002000 00 00 00 00 C2 01 7B 53 FC FF 11 00 0E 00 55 51 01 00 0A 00 0D 51 D4 01 7B 53 FC FF 09 00 06 00 ....┬☺{Sⁿ ◄.♫.UQ☺.◙.♪Q╘☺{Sⁿ ○.♠. 00002020 49 51 01 00 00 00 00 00 E6 01 7B 53 03 00 08 00 00 00 00 00 01 00 00 00 00 00 F8 01 7B 53 FC FF IQ☺.....µ☺{S♥.◘.....☺.....°☺{Sⁿ 00002040 07 00 10 00 48 51 01 00 0A 00 BA 50 0A 02 7B 53 32 00 06 00 00 00 00 00 01 00 02 00 AB 51 1C 02 •.►.HQ☺.◙.║P◙☻{S2.♠.....☺.☻.½Q∟☻ 00002060 7B 53 39 00 05 00 00 00 00 00 01 00 00 00 00 00 2E 02 7B 53 FD FF 03 00 02 00 4A 51 01 00 00 00 {S9.♣.....☺......☻{S² ♥.☻.JQ☺... 00002080 00 00 40 02 7B 53 03 00 02 00 00 00 00 00 01 00 06 00 55 51 FF FF 00 00 FC FF 01 00 02 00 2E 51 ..@☻{S♥.☻.....☺.♠.UQ ..ⁿ ☺.☻..Q 000020A0 01 00 00 00 00 00 64 02 7B 53 FC FF 19 00 0E 00 D7 51 01 00 04 00 3F 51 76 02 7B 53 FC FF 11 00 ☺.....d☻{Sⁿ ↓.♫.╫Q☺.♦.?Qv☻{Sⁿ ◄. 000020C0 10 00 D5 51 01 00 00 00 00 00 88 02 7B 53 FC FF 0F 00 06 00 D4 51 01 00 0E 00 3E 51 9A 02 7B 53 ►.╒Q☺.....ê☻{Sⁿ ☼.♠.╘Q☺.♫.>QÜ☻{S 000020E0 FC FF 0C 00 0C 00 D2 51 01 00 00 00 00 00 AC 02 7B 53 09 00 0B 00 00 00 00 00 01 00 00 00 00 00 ⁿ ♀.♀.╥Q☺.....¼☻{S○.♂.....☺..... 00002100 BE 02 7B 53 FC FF 09 00 0E 00 CF 51 01 00 00 00 00 00 D0 02 7B 53 0C 00 08 00 00 00 00 00 01 00 ╛☻{Sⁿ ○.♫.╧Q☺.....╨☻{S♀.◘.....☺. 00002120 10 00 2D 51 E2 02 7B 53 FC FF 06 00 10 00 CC 51 01 00 08 00 57 51 F4 02 7B 53 0C 00 05 00 00 00 ►.-QΓ☻{Sⁿ ♠.►.╠Q☺.◘.WQ⌠☻{S♀.♣... 00002140 00 00 01 00 00 00 00 00 06 03 7B 53 FC FF 03 00 08 00 57 51 01 00 04 00 CE 51 18 03 7B 53 08 00 ..☺.....♠♥{Sⁿ ♥.◘.WQ☺.♦.╬Q↑♥{S◘. 00002160 02 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 00 00 00 00 3C 03 ☻.....☺..... ..♦.☺.....☺.....<♥ 00002180 7B 53 FC FF 1D 00 0E 00 F6 51 01 00 00 00 00 00 4E 03 7B 53 FC FF 15 00 10 00 F4 51 01 00 10 00 {Sⁿ ↔.♫.÷Q☺.....N♥{Sⁿ §.►.⌠Q☺.►. 000021A0 C7 51 60 03 7B 53 09 00 14 00 00 00 00 00 01 00 00 00 00 00 72 03 7B 53 FC FF 13 00 02 00 E8 51 ╟Q`♥{S○.¶.....☺.....r♥{Sⁿ ‼.☻.ΦQ 000021C0 01 00 02 00 57 51 84 03 7B 53 0D 00 12 00 00 00 00 00 01 00 00 00 00 00 96 03 7B 53 FC FF 11 00 ☺.☻.WQä♥{S♪.↕.....☺.....û♥{Sⁿ ◄. 000021E0 0C 00 E7 51 01 00 00 00 00 00 A8 03 7B 53 08 00 10 00 00 00 00 00 01 00 00 00 00 00 BA 03 7B 53 ♀.τQ☺.....¿♥{S◘.►.....☺.....║♥{S 00002200 FC FF 0A 00 0E 00 E5 51 01 00 0E 00 54 51 CC 03 7B 53 03 00 09 00 00 00 00 00 01 00 00 00 00 00 ⁿ ◙.♫.σQ☺.♫.TQ╠♥{S♥.○.....☺..... 00002220 DE 03 7B 53 FC FF 08 00 10 00 E2 51 01 00 08 00 BC 51 F0 03 7B 53 32 00 07 00 00 00 00 00 01 00 ▐♥{Sⁿ ◘.►.ΓQ☺.◘.╝Q≡♥{S2.•.....☺. 00002240 00 00 00 00 02 04 7B 53 0C 00 06 00 00 00 00 00 01 00 00 00 00 00 14 04 7B 53 FC FF 04 00 0E 00 ....☻♦{S♀.♠.....☺.....¶♦{Sⁿ ♦.♫. 00002260 DE 51 01 00 00 00 00 00 26 04 7B 53 04 00 03 00 00 00 00 00 01 00 08 00 54 51 38 04 7B 53 1A 00 ▐Q☺.....&♦{S♦.♥.....☺.◘.TQ8♦{S→. 00002280 02 00 00 00 00 00 01 00 00 00 00 00 10 05 7B 53 FC FF 04 00 0C 00 DA 51 01 00 00 00 00 00 5C 04 ☻.....☺.....►♣{Sⁿ ♦.♀.┌Q☺.....\♦ 000022A0 7B 53 FC FF 18 00 0E 00 41 52 01 00 00 00 00 00 6E 04 7B 53 FC FF 10 00 10 00 3F 52 01 00 00 00 {Sⁿ ↑.♫.AR☺.....n♦{Sⁿ ►.►.?R☺... 000022C0 00 00 80 04 7B 53 09 00 0F 00 00 00 00 00 01 00 06 00 4B 51 92 04 7B 53 FC FF 0E 00 02 00 3D 52 ..Ç♦{S○.☼.....☺.♠.KQÆ♦{Sⁿ ♫.☻.=R 000022E0 01 00 00 00 00 00 A4 04 7B 53 0D 00 0D 00 00 00 00 00 01 00 0A 00 3F 51 B6 04 7B 53 FC FF 0C 00 ☺.....ñ♦{S♪.♪.....☺.◙.?Q╢♦{Sⁿ ♀. 00002300 04 00 3A 52 01 00 06 00 E5 51 C8 04 7B 53 08 00 0B 00 00 00 00 00 01 00 00 00 00 00 DA 04 7B 53 ♦.:R☺.♠.σQ╚♦{S◘.♂.....☺.....┌♦{S 00002320 FC FF 05 00 02 00 37 52 01 00 00 00 00 00 EC 04 7B 53 03 00 04 00 00 00 00 00 01 00 08 00 DF 51 ⁿ ♣.☻.7R☺.....∞♦{S♥.♦.....☺.◘.▀Q 00002340 FE 04 7B 53 FC FF 03 00 04 00 34 52 01 00 00 00 00 00 10 05 7B 53 1A 00 02 00 00 00 00 00 01 00 ■♦{Sⁿ ♥.♦.4R☺.....►♣{S→.☻.....☺. 00002360 02 00 CD 51 FF FF 00 00 FC FF 05 00 0E 00 12 52 01 00 00 00 00 00 34 05 7B 53 FC FF 26 00 02 00 ☻.═Q ..ⁿ ♣.♫.↕R☺.....4♣{Sⁿ &.☻. 00002380 52 52 01 00 00 00 00 00 46 05 7B 53 FC FF 1B 00 06 00 66 52 01 00 00 00 00 00 58 05 7B 53 09 00 RR☺.....F♣{Sⁿ ←.♠.fR☺.....X♣{S○. 000023A0 1A 00 00 00 00 00 01 00 0E 00 BB 51 6A 05 7B 53 FC FF 19 00 0C 00 51 52 01 00 0C 00 D8 51 7C 05 →.....☺.♫.╗Qj♣{Sⁿ ↓.♀.QR☺.♀.╪Q|♣ 000023C0 7B 53 32 00 18 00 00 00 00 00 01 00 00 00 00 00 8E 05 7B 53 39 00 17 00 00 00 00 00 01 00 10 00 {S2.↑.....☺.....Ä♣{S9.↨.....☺.►. 000023E0 49 52 A0 05 7B 53 FD FF 16 00 06 00 5D 52 01 00 00 00 00 00 B2 05 7B 53 0B 00 15 00 00 00 00 00 IRá♣{S² ▬.♠.]R☺.....▓♣{S♂.§..... 00002400 01 00 00 00 00 00 C4 05 7B 53 FD FF 14 00 10 00 5B 52 01 00 04 00 F1 51 D6 05 7B 53 08 00 13 00 ☺.....─♣{S² ¶.►.[R☺.♦.±Q╓♣{S◘.‼. 00002420 00 00 00 00 01 00 00 00 00 00 E8 05 7B 53 FC FF 0B 00 02 00 4D 52 01 00 0E 00 CD 51 FA 05 7B 53 ....☺.....Φ♣{Sⁿ ♂.☻.MR☺.♫.═Q·♣{S 00002440 09 00 0A 00 00 00 00 00 01 00 00 00 00 00 0C 06 7B 53 FC FF 09 00 0C 00 4C 52 01 00 08 00 CD 51 ○.◙.....☺.....♀♠{Sⁿ ○.♀.LR☺.◘.═Q 00002460 1E 06 7B 53 32 00 08 00 00 00 00 00 01 00 0C 00 61 52 30 06 7B 53 39 00 07 00 00 00 00 00 01 00 ▲♠{S2.◘.....☺.♀.aR0♠{S9.•.....☺. 00002480 00 00 00 00 42 06 7B 53 FD FF 06 00 0E 00 52 52 01 00 0A 00 E4 51 54 06 7B 53 0B 00 05 00 00 00 ....B♠{S² ♠.♫.RR☺.◙.ΣQT♠{S♂.♣... 000024A0 00 00 01 00 00 00 00 00 66 06 7B 53 FD FF 04 00 0E 00 4D 52 01 00 00 00 00 00 78 06 7B 53 08 00 ..☺.....f♠{S² ♦.♫.MR☺.....x♠{S◘. 000024C0 03 00 00 00 00 00 01 00 0E 00 DE 51 8A 06 7B 53 03 00 02 00 00 00 00 00 01 00 00 00 00 00 FF FF ♥.....☺.♫.▐Qè♠{S♥.☻.....☺..... 000024E0 00 00 FC FF 01 00 08 00 43 52 01 00 0E 00 56 52 AE 06 7B 53 FD FF 02 00 10 00 6F 52 01 00 00 00 ..ⁿ ☺.◘.CR☺.♫.VR«♠{S² ☻.►.oR☺... 00002500 00 00 FF FF 00 00 04 00 01 00 00 00 00 00 01 00 00 00 00 00 FF FF 00 00 02 00 00 00 00 00 00 00 .. ..♦.☺.....☺..... ..☻....... 00002520 01 00 08 00 DE 51 FF FF 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 C6 00 B0 01 52 02 ☺.◘.▐Q ..☻.......☺.......╞.░☺R☻ 00002540 2A 03 4A 04 22 05 9C 06 C0 06 D2 06 B4 00 38 04 02 00 6A 00 02 00 69 00 02 00 62 00 09 00 68 65 *♥J♦"♣£♠└♠╥♠┤.8♦☻.j.☻.i.☻.b.○.he 00002560 61 64 65 72 6F 6E 00 02 00 61 00 02 00 7A 00 04 00 01 00 00 00 02 00 01 00 02 00 48 00 02 00 61 aderon.☻.a.☻.z.♦.☺...☻.☺.☻.H.☻.a 00002580 00 08 00 70 72 65 70 61 72 65 00 02 00 61 00 04 00 01 00 00 00 02 00 FF FF 02 00 69 00 02 00 62 .◘.prepare.☻.a.♦.☺...☻. ☻.i.☻.b 000025A0 00 08 00 70 72 65 70 61 72 65 00 02 00 62 00 04 00 01 00 00 00 02 00 FF FF 02 00 6A 00 02 00 6A .◘.prepare.☻.b.♦.☺...☻. ☻.j.☻.j 000025C0 00 08 00 63 6F 6D 70 61 72 65 00 02 00 69 00 03 00 69 66 00 03 00 6C 30 00 03 00 6C 32 00 03 00 .◘.compare.☻.i.♥.if.♥.l0.♥.l2.♥. 000025E0 6C 31 00 02 00 62 00 08 00 61 64 64 63 6F 6C 73 00 02 00 69 00 02 00 6A 00 07 00 63 65 6E 74 65 l1.☻.b.◘.addcols.☻.i.☻.j.•.cente 00002600 72 00 02 00 62 00 03 00 6C 32 00 03 00 6C 30 00 02 00 61 00 08 00 61 64 64 63 6F 6C 73 00 02 00 r.☻.b.♥.l2.♥.l0.☻.a.◘.addcols.☻. 00002620 6A 00 02 00 69 00 07 00 63 65 6E 74 65 72 00 02 00 61 00 03 00 6C 31 00 02 00 7A 00 0B 00 61 64 j.☻.i.•.center.☻.a.♥.l1.☻.z.♂.ad 00002640 6A 75 73 74 64 6F 77 6E 00 02 00 61 00 04 00 01 00 00 00 02 00 01 00 04 00 01 00 00 00 02 00 01 justdown.☻.a.♦.☺...☻.☺.♦.☺...☻.☺ 00002660 00 09 00 61 64 6A 75 73 74 75 70 00 02 00 61 00 04 00 01 00 00 00 02 00 01 00 04 00 01 00 00 00 .○.adjustup.☻.a.♦.☺...☻.☺.♦.☺... 00002680 02 00 01 00 02 00 7A 00 04 00 01 00 00 00 02 00 00 00 00 ☻.☺.☻.z.♦.☺...☻....