============================================================================================================================================== 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 70 61 64 00 00 01 00 00 00 0C 00 ...☺...♣....,*0_x♦...pad..☺...♀. 00000040 00 3F 00 00 00 10 00 00 00 05 00 00 00 2B 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 08 00 00 00 C0 03 00 00 02 00 00 00 01 00 00 00 10 00 00 00 3C 00 00 .☺...☺...◘...└♥..☻...☺...►...<.. 000000A0 00 20 7A 23 70 20 70 61 64 20 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 . z#p pad x 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 7A 23 z# 000000E0 28 28 28 7A 3D 30 29 2B 58 7A 23 7A 59 70 29 58 28 7A 59 31 2C 52 78 29 2B 7C 28 7A 23 5F 31 53 (((z=0)+Xz#zYp)X(zY1,Rx)+|(z#_1S 00000100 52 52 78 29 59 70 29 59 78 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 RRx)Yp)Yx $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 22 70 61 64 20 2D 20 70 61 64 73 "pad - pads 00000160 20 61 72 72 61 79 73 20 77 69 74 68 20 62 6C 61 6E 6B 73 20 6F 72 20 7A 65 72 6F 73 20 20 20 20 arrays with blanks or zeros 00000180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 "from 'the apl 000001A0 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 000001C0 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 70 61 64 73 20 61 72 72 61 79 20 78 20 77 69 74 68 t 1978, ibm. "-pads array x with 000001E0 20 62 6C 61 6E 6B 73 20 28 69 66 20 6C 69 74 65 72 61 6C 29 20 6F 72 20 7A 65 72 6F 73 20 28 69 blanks (if literal) or zeros (i 00000200 66 20 20 20 20 20 20 20 20 22 20 6E 75 6D 65 72 69 63 29 2E 20 78 20 63 61 6E 20 62 65 20 61 6E f " numeric). x can be an 00000220 20 61 72 72 61 79 20 6F 66 20 61 6E 79 20 73 68 61 70 65 20 61 6E 64 20 74 79 70 65 2E 20 70 20 array of any shape and type. p 00000240 69 73 20 61 20 22 20 6E 75 6D 65 72 69 63 20 76 65 63 74 6F 72 20 73 70 65 63 69 66 79 69 6E 67 is a " numeric vector specifying 00000260 20 74 68 65 20 61 6D 6F 75 6E 74 20 6F 66 20 70 61 64 64 69 6E 67 20 69 6E 20 65 61 63 68 20 20 the amount of padding in each 00000280 20 22 20 64 69 6D 65 6E 73 69 6F 6E 20 6F 66 20 78 20 28 6F 72 20 74 68 65 20 6C 61 77 73 74 20 " dimension of x (or the lawst 000002A0 52 70 29 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 74 Rp). "-t 000002C0 68 65 20 73 65 6E 73 65 20 6F 66 20 70 61 64 64 69 6E 67 20 28 72 69 67 68 74 20 6F 72 20 6C 65 he sense of padding (right or le 000002E0 66 74 29 2C 20 28 62 6F 74 74 6F 6D 20 6F 72 20 74 6F 70 29 2C 20 20 20 20 22 20 65 74 63 2E 2C ft), (bottom or top), " etc., 00000300 20 69 73 20 64 65 74 65 72 6D 69 6E 65 64 20 62 79 20 74 68 65 20 73 69 67 6E 73 20 6F 66 20 74 is determined by the signs of t 00000320 68 65 20 65 6C 65 6D 65 6E 74 73 20 6F 66 20 70 20 6A 75 73 74 22 20 61 73 20 77 69 74 68 20 74 he elements of p just" as with t 00000340 68 65 20 74 61 6B 65 20 66 75 6E 63 74 69 6F 6E 20 28 59 29 2E 20 20 69 66 20 70 20 69 73 20 6E he take function (Y). if p is n 00000360 6F 74 20 6C 6F 6E 67 20 65 6E 6F 75 67 68 20 74 6F 22 20 6D 61 74 63 68 20 74 68 65 20 72 61 6E ot long enough to" match the ran 00000380 6B 20 6F 66 20 78 2C 20 70 61 64 64 69 6E 67 20 69 73 20 64 6F 6E 65 20 6F 6E 6C 79 20 66 6F 72 k of x, padding is done only for 000003A0 20 74 68 65 20 6C 61 73 74 20 52 70 20 22 20 64 69 6D 65 6E 73 69 6F 6E 73 2E 20 74 68 69 73 20 the last Rp " dimensions. this 000003C0 66 75 6E 63 74 69 6F 6E 20 69 73 20 75 6E 6C 69 6B 65 20 74 68 65 20 74 61 6B 65 20 66 75 6E 63 function is unlike the take func 000003E0 74 69 6F 6E 20 69 6E 20 20 22 20 74 68 61 74 20 74 68 65 20 63 68 61 6E 67 65 20 69 6E 20 73 69 tion in " that the change in si 00000400 7A 65 20 69 73 20 73 70 65 63 69 66 69 65 64 20 61 6E 64 20 69 74 20 64 6F 65 73 20 6E 6F 74 20 ze is specified and it does not 00000420 20 20 20 20 20 22 20 72 65 71 75 69 72 65 64 20 64 65 74 61 69 6C 65 64 20 6B 6E 6F 77 6C 65 64 " required detailed knowled 00000440 67 65 20 6F 66 20 74 68 65 20 64 69 6D 65 6E 73 69 6F 6E 73 20 6F 66 20 78 2E 20 20 20 20 20 20 ge of the dimensions of x. 00000460 20 18 00 00 00 FF FF FF FF FC FF FF FF 09 00 00 00 40 2D 04 00 01 00 00 00 3B 00 00 00 30 00 00 ↑... ⁿ ○...@-♦.☺...;...0.. 00000480 00 FC FF FF FF 05 00 00 00 00 2F 04 00 01 00 00 00 FC FF FF FF 00 00 00 00 FC FF FF FF 03 00 00 .ⁿ ♣..../♦.☺...ⁿ ....ⁿ ♥.. 000004A0 00 70 2C 04 00 01 00 00 00 08 00 00 00 60 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 .p,♦.☺...◘...`...♥...☻.......☺.. 000004C0 00 03 00 00 00 30 00 00 00 FC FF FF FF 01 00 00 00 80 2B 04 00 01 00 00 00 FC FF FF FF 90 00 00 .♥...0...ⁿ ☺...Ç+♦.☺...ⁿ É.. 000004E0 00 FC FF FF FF 2B 00 00 00 E8 2B 04 00 01 00 00 00 32 00 00 00 A8 00 00 00 39 00 00 00 2A 00 00 .ⁿ +...Φ+♦.☺...2...¿...9...*.. 00000500 00 00 00 00 00 01 00 00 00 0B 00 00 00 C0 00 00 00 09 00 00 00 29 00 00 00 00 00 00 00 01 00 00 .....☺...♂...└...○...).......☺.. 00000520 00 FD FF FF FF D8 00 00 00 FC FF FF FF 28 00 00 00 48 2C 04 00 01 00 00 00 03 00 00 00 F0 00 00 .² ╪...ⁿ (...H,♦.☺...♥...≡.. 00000540 00 39 00 00 00 27 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF 08 01 00 00 09 00 00 00 26 00 00 .9...'.......☺...ⁿ ◘☺..○...&.. 00000560 00 00 00 00 00 01 00 00 00 FD FF FF FF 20 01 00 00 FC FF FF FF 25 00 00 00 08 2A 04 00 01 00 00 .....☺...² ☺..ⁿ %...◘*♦.☺.. 00000580 00 32 00 00 00 38 01 00 00 32 00 00 00 24 00 00 00 00 00 00 00 01 00 00 00 09 00 00 00 50 01 00 .2...8☺..2...$.......☺...○...P☺. 000005A0 00 32 00 00 00 23 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF 68 01 00 00 33 00 00 00 22 00 00 .2...#.......☺...² h☺..3...".. 000005C0 00 00 00 00 00 01 00 00 00 3F 00 00 00 80 01 00 00 FD FF FF FF 21 00 00 00 20 8F 04 00 01 00 00 .....☺...?...Ç☺..² !... Å♦.☺.. 000005E0 00 FC FF FF FF 98 01 00 00 3F 00 00 00 20 00 00 00 00 00 00 00 01 00 00 00 24 00 00 00 B0 01 00 .ⁿ ÿ☺..?... .......☺...$...░☺. 00000600 00 03 00 00 00 1F 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF C8 01 00 00 FC FF FF FF 1E 00 00 .♥...▼.......☺...² ╚☺..ⁿ ▲.. 00000620 00 88 29 04 00 01 00 00 00 33 00 00 00 E0 01 00 00 08 00 00 00 1D 00 00 00 00 00 00 00 01 00 00 .ê)♦.☺...3...α☺..◘...↔.......☺.. 00000640 00 FD FF FF FF F8 01 00 00 83 00 00 00 1C 00 00 00 00 00 00 00 01 00 00 00 08 00 00 00 10 02 00 .² °☺..â...∟.......☺...◘...►☻. 00000660 00 0B 00 00 00 1B 00 00 00 00 00 00 00 01 00 00 00 0C 00 00 00 28 02 00 00 09 00 00 00 1A 00 00 .♂...←.......☺...♀...(☻..○...→.. 00000680 00 00 00 00 00 01 00 00 00 09 00 00 00 40 02 00 00 FC FF FF FF 19 00 00 00 80 29 04 00 01 00 00 .....☺...○...@☻..ⁿ ↓...Ç)♦.☺.. 000006A0 00 FD FF FF FF 58 02 00 00 32 00 00 00 18 00 00 00 00 00 00 00 01 00 00 00 32 00 00 00 70 02 00 .² X☻..2...↑.......☺...2...p☻. 000006C0 00 0C 00 00 00 17 00 00 00 00 00 00 00 01 00 00 00 09 00 00 00 88 02 00 00 FD FF FF FF 16 00 00 .♀...↨.......☺...○...ê☻..² ▬.. 000006E0 00 C0 83 04 00 01 00 00 00 FD FF FF FF A0 02 00 00 39 00 00 00 15 00 00 00 00 00 00 00 01 00 00 .└â♦.☺...² á☻..9...§.......☺.. 00000700 00 24 00 00 00 B8 02 00 00 FC FF FF FF 14 00 00 00 98 29 04 00 01 00 00 00 FC FF FF FF D0 02 00 .$...╕☻..ⁿ ¶...ÿ)♦.☺...ⁿ ╨☻. 00000720 00 08 00 00 00 13 00 00 00 00 00 00 00 01 00 00 00 08 00 00 00 E8 02 00 00 38 00 00 00 12 00 00 .◘...‼.......☺...◘...Φ☻..8...↕.. 00000740 00 00 00 00 00 01 00 00 00 08 00 00 00 00 03 00 00 09 00 00 00 11 00 00 00 00 00 00 00 01 00 00 .....☺...◘....♥..○...◄.......☺.. 00000760 00 39 00 00 00 18 03 00 00 FC FF FF FF 10 00 00 00 A0 29 04 00 01 00 00 00 FC FF FF FF 30 03 00 .9...↑♥..ⁿ ►...á)♦.☺...ⁿ 0♥. 00000780 00 39 00 00 00 0F 00 00 00 00 00 00 00 01 00 00 00 03 00 00 00 48 03 00 00 FC FF FF FF 0E 00 00 .9...☼.......☺...♥...H♥..ⁿ ♫.. 000007A0 00 F0 2B 04 00 01 00 00 00 FC FF FF FF 60 03 00 00 03 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 .≡+♦.☺...ⁿ `♥..♥...♪.......☺.. 000007C0 00 07 00 00 00 78 03 00 00 FC FF FF FF 0C 00 00 00 30 2C 04 00 01 00 00 00 3D 00 00 00 90 03 00 .•...x♥..ⁿ ♀...0,♦.☺...=...É♥. 000007E0 00 38 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF A8 03 00 00 0B 00 00 00 0A 00 00 .8...♂.......☺...² ¿♥..♂...◙.. 00000800 00 00 00 00 00 01 00 00 00 3B 00 00 00 C0 03 00 00 09 00 00 00 09 00 00 00 00 00 00 00 01 00 00 .....☺...;...└♥..○...○.......☺.. 00000820 00 0C 00 00 00 D8 03 00 00 FD FF FF FF 08 00 00 00 40 8C 04 00 01 00 00 00 09 00 00 00 F0 03 00 .♀...╪♥..² ◘...@î♦.☺...○...≡♥. 00000840 00 1D 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF 08 04 00 00 FC FF FF FF 06 00 00 .↔...•.......☺...ⁿ ◘♦..ⁿ ♠.. 00000860 00 60 2F 04 00 01 00 00 00 50 86 0C 60 20 04 00 00 08 00 00 00 05 00 00 00 00 00 00 00 01 00 00 .`/♦.☺...På♀` ♦..◘...♣.......☺.. 00000880 00 07 00 00 00 38 04 00 00 08 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 46 00 00 00 50 04 00 .•...8♦..◘...♦.......☺...F...P♦. 000008A0 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF 68 04 00 00 03 00 00 00 02 00 00 .◘...♥.......☺...ⁿ h♦..♥...☻.. 000008C0 00 00 00 00 00 01 00 00 00 0C 00 00 00 FF FF FF FF FC FF FF FF 01 00 00 00 D0 2F 04 00 01 00 00 .....☺...♀... ⁿ ☺...╨/♦.☺.. 000008E0 00 09 00 00 00 98 04 00 00 FD FF FF FF 02 00 00 00 80 8A 04 00 01 00 00 00 07 00 00 00 FF FF FF .○...ÿ♦..² ☻...Çè♦.☺...•... 00000900 FF 04 00 00 00 01 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 ♦...☺.......☺...♀... ☻...... 00000920 00 00 00 00 00 01 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 .....☺...○... ☻...........☺.. 00000940 00 FC FF FF FF FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 29 00 00 00 FF FF FF .ⁿ ☻...........☺...)... 00000960 FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 32 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 ☻...........☺...2... ☻...... 00000980 00 00 00 00 00 01 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 .....☺...○... ☻...........☺.. 000009A0 00 FD FF FF FF FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 0C 00 00 00 FF FF FF .² ☻...........☺...♀... 000009C0 FF 02 00 00 00 00 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 ☻...........☺...ⁿ ☻...... 000009E0 00 00 00 00 00 01 00 00 00 08 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 .....☺...◘... ☻...........☺.. 00000A00 00 26 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF FF FF FF .&... ☻...........☺...² 00000A20 FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF FF FF FF FF 02 00 00 00 00 00 00 ☻...........☺...² ☻...... 00000A40 00 00 00 00 00 01 00 00 00 08 00 00 00 00 00 00 00 78 00 00 00 80 04 00 00 B0 04 00 00 C8 04 00 .....☺...◘.......x...Ç♦..░♦..╚♦. 00000A60 00 E0 04 00 00 F8 04 00 00 10 05 00 00 28 05 00 00 40 05 00 00 58 05 00 00 70 05 00 00 88 05 00 .α♦..°♦..►♣..(♣..@♣..X♣..p♣..ê♣. 00000A80 00 A0 05 00 00 B8 05 00 00 D0 05 00 00 60 00 00 00 FF FF FF FF 02 00 00 00 78 00 04 00 00 00 70 .á♣..╕♣..╨♣..`... ☻...x.♦...p 00000AA0 61 64 00 02 00 00 00 70 00 02 00 00 00 7A 00 02 00 00 00 78 00 02 00 00 00 70 00 02 00 00 00 78 ad.☻...p.☻...z.☻...x.☻...p.☻...x 00000AC0 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 7A 00 02 00 00 00 78 .♦...☺.......♦...☺...☻...z.☻...x 00000AE0 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 7A 00 02 00 00 00 70 .♦...☺.......♦...☺...☻...z.☻...p 00000B00 00 02 00 00 00 7A 00 02 00 00 00 7A 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 .☻...z.☻...z.♦...☺.......♦...... 00000B20 00 02 00 00 00 7A 00 02 00 00 00 7A 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 .☻...z.☻...z.♦...☺.......♦...... 00000B40 00 78 02 00 00 00 61 00 08 00 00 00 F0 00 00 00 02 00 00 00 01 00 00 00 04 00 00 00 3C 00 00 00 .x☻...a.◘...≡...☻...☺...♦...<... 00000B60 72 20 23 20 6E 20 72 6F 77 69 6E 64 69 63 65 73 20 6D 3B 4C 69 6F 20 20 20 20 20 20 20 20 20 20 r # n rowindices m;Lio 00000B80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 6F 77 "row 00000BA0 69 6E 64 69 63 65 73 20 2D 20 66 69 72 73 74 20 6F 72 20 6C 61 73 74 20 6E 20 72 6F 77 6E 75 6D indices - first or last n rownum 00000BC0 62 65 72 73 20 6F 66 20 6D 61 74 72 69 78 2E 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 bers of matrix. "from 't 00000BE0 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 he apl handbook of techniques' c 00000C00 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 72 23 28 72 5E 3D 30 29 2F 72 23 opyright 1978, ibm. r#(r^=0)/r# 00000C20 6E 59 49 31 59 52 6D 20 48 20 4C 69 6F 23 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nYI1YRm H Lio#1 00000C40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 09 00 00 00 70 6F 73 74 65 64 69 74 00 00 01 x○...postedit..☺ 00000C60 00 00 00 0A 00 00 24 00 00 00 08 00 00 00 06 00 00 00 05 00 00 00 0A 00 00 00 07 00 00 00 04 00 ...◙..$...◘...♠...♣...◙...•...♦. 00000C80 00 00 02 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 E0 01 00 00 02 00 00 00 01 00 00 00 08 00 ..☻...☺...☺...◘...α☺..☻...☺...◘. 00000CA0 00 00 3C 00 00 00 20 72 23 70 6F 73 74 65 64 69 74 20 74 6E 61 6D 65 3B 6A 20 20 20 20 20 20 20 ..<... r#postedit tname;j 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 20 20 20 20 20 20 00000CE0 20 20 20 27 6E 6F 74 20 61 20 6E 61 6D 65 27 65 73 63 61 70 65 7E 63 68 61 72 61 63 74 65 72 20 'not a name'escape~character 00000D00 74 6E 61 6D 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 tname ( 00000D20 74 6E 61 6D 65 2C 27 20 6E 6F 74 20 61 20 66 75 6E 63 74 69 6F 6E 27 29 65 73 63 61 70 65 20 33 tname,' not a function')escape 3 00000D40 5E 3D 4C 6E 63 20 74 6E 61 6D 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 31 20 31 ^=Lnc tname r#1 1 00000D60 55 4C 63 72 20 74 6E 61 6D 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ULcr tname 00000D80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6A 23 4C 65 78 20 74 6E 61 j#Lex tna 00000DA0 6D 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 me 00000DC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 $0 00000DE0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00000E00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 6F 73 74 65 64 69 74 20 2D 20 73 65 65 20 47 70 "postedit - see Gp 00000E20 72 65 65 64 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 reedit 00000E40 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F "from 'the apl handboo 00000E60 6B 20 6F 66 20 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C k of techniques' copyright 1978, 00000E80 20 69 62 6D 2E 20 48 00 00 00 FF FF FF FF FC FF FF FF 12 00 00 00 D8 29 04 00 01 00 00 00 01 00 ibm. H... ⁿ ↕...╪)♦.☺...☺. 00000EA0 00 00 30 00 00 00 1B 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 00 00 00 00 FC FF ..0...←...◄.......☺... ....ⁿ 00000EC0 FF FF 0C 00 00 00 E8 2E 04 00 01 00 00 00 20 20 20 20 60 00 00 00 FC FF FF FF 03 00 00 00 B0 5F ♀...Φ.♦.☺... `...ⁿ ♥...░_ 00000EE0 04 00 01 00 00 00 20 72 23 28 78 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 20 20 ♦.☺... r#(x...♥...☻.......☺... 00000F00 20 20 30 00 00 00 FC FF FF FF 01 00 00 00 90 29 04 00 01 00 00 00 20 20 20 20 A8 00 00 00 FC FF 0...ⁿ ☺...É)♦.☺... ¿...ⁿ 00000F20 FF FF 1E 00 00 00 20 2E 04 00 01 00 00 00 20 20 20 20 C0 00 00 00 FC FF FF FF 14 00 00 00 50 5F ▲... .♦.☺... └...ⁿ ¶...P_ 00000F40 04 00 01 00 00 00 20 20 20 20 D8 00 00 00 84 00 00 00 13 00 00 00 00 00 00 00 01 00 00 00 22 6C ♦.☺... ╪...ä...‼.......☺..."l 00000F60 6A 75 F0 00 00 00 FC FF FF FF 0D 00 00 00 90 2E 04 00 01 00 00 00 79 20 61 72 FF FF FF FF 07 00 ju≡...ⁿ ♪...É.♦.☺...y ar •. 00000F80 00 00 01 00 00 00 80 B6 05 00 01 00 00 00 20 20 20 20 20 01 00 00 FC FF FF FF 28 00 00 00 48 2E ..☺...Ç╢♣.☺... ☺..ⁿ (...H. 00000FA0 04 00 01 00 00 00 70 6C 20 68 38 01 00 00 EA FF FF FF 24 00 00 00 00 00 00 00 01 00 00 00 73 27 ♦.☺...pl h8☺..Ω $.......☺...s' 00000FC0 20 63 50 01 00 00 3E 00 00 00 22 00 00 00 00 00 00 00 01 00 00 00 22 2D 74 6F 68 01 00 00 FD FF cP☺..>...".......☺..."-toh☺..² 00000FE0 FF FF 21 00 00 00 40 8D 04 00 01 00 00 00 68 61 72 61 80 01 00 00 FC FF FF FF 1A 00 00 00 68 2E !...@ì♦.☺...haraÇ☺..ⁿ →...h. 00001000 04 00 01 00 00 00 75 65 73 20 98 01 00 00 09 00 00 00 19 00 00 00 00 00 00 00 01 00 00 00 6F 73 ♦.☺...ues ÿ☺..○...↓.......☺...os 00001020 69 74 B0 01 00 00 07 00 00 00 08 00 00 00 40 B0 05 00 01 00 00 00 20 20 20 20 C8 01 00 00 0C 00 it░☺..•...◘...@░♣.☺... ╚☺..♀. 00001040 00 00 07 00 00 00 00 00 00 00 01 00 00 00 22 2D 69 6E E0 01 00 00 FC FF FF FF 02 00 00 00 88 2E ..•.......☺..."-inα☺..ⁿ ☻...ê. 00001060 04 00 01 00 00 00 72 20 63 68 FF FF FF FF 08 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 20 69 ♦.☺...r ch ◘...☺.......☺... i 00001080 6E 20 10 02 00 00 FC FF FF FF 0B 00 00 00 38 2E 04 00 01 00 00 00 65 20 74 72 28 02 00 00 F3 FF n ►☻..ⁿ ♂...8.♦.☺...e tr(☻..≤ 000010A0 FF FF 07 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 40 02 00 00 35 00 00 00 06 00 00 00 00 00 •.......☺... @☻..5...♠..... 000010C0 00 00 01 00 00 00 22 2D 72 69 58 02 00 00 FD FF FF FF 05 00 00 00 60 85 04 00 01 00 00 00 20 74 ..☺..."-riX☻..² ♣...`à♦.☺... t 000010E0 68 65 70 02 00 00 FD FF FF FF 03 00 00 00 40 8F 04 00 01 00 00 00 73 74 69 66 88 02 00 00 03 00 hep☻..² ♥...@Å♦.☺...stifê☻..♥. 00001100 00 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 40 2E ..☻.......☺....... ⁿ ☺...@. 00001120 04 00 01 00 00 00 00 00 00 00 B8 02 00 00 FC FF FF FF 07 00 00 00 A8 29 04 00 01 00 00 00 00 00 ♦.☺.......╕☻..ⁿ •...¿)♦.☺..... 00001140 00 00 D0 02 00 00 F0 FF FF FF 03 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 E8 02 00 00 03 00 ..╨☻..≡ ♥.......☺.......Φ☻..♥. 00001160 00 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 08 2E ..☻.......☺....... ⁿ ☺...◘. 00001180 04 00 01 00 00 00 00 00 00 00 18 03 00 00 FD FF FF FF 02 00 00 00 80 8C 04 00 01 00 00 00 00 00 ♦.☺.......↑♥..² ☻...Çî♦.☺..... 000011A0 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 FF FF 02 00 .. ♦...☺.......☺....... ☻. 000011C0 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 00 00 00 ..........☺....... ☻......... 000011E0 00 00 01 00 00 00 00 00 00 00 00 00 00 00 90 00 00 00 08 01 00 00 F8 01 00 00 A0 02 00 00 00 03 ..☺...........É...◘☺..°☺..á☻...♥ 00001200 00 00 30 03 00 00 48 03 00 00 78 00 00 00 FF FF FF FF 02 00 00 00 6A 00 06 00 00 00 74 6E 61 6D ..0♥..H♥..x... ☻...j.♠...tnam 00001220 65 00 09 00 00 00 70 6F 73 74 65 64 69 74 00 02 00 00 00 72 00 06 00 00 00 74 6E 61 6D 65 00 0A e.○...postedit.☻...r.♠...tname.◙ 00001240 00 00 00 63 68 61 72 61 63 74 65 72 00 07 00 00 00 65 73 63 61 70 65 00 08 00 00 00 0A 00 00 00 ...character.•...escape.◘...◙... 00001260 01 00 00 00 01 00 00 00 0A 00 00 00 6E 6F 74 20 61 20 6E 61 6D 65 06 00 00 00 74 6E 61 6D 65 00 ☺...☺...◙...not a name♠...tname. 00001280 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 03 00 00 00 07 00 00 00 65 73 63 61 70 65 00 08 ♦...☺.......♦...♥...•...escape.◘ 000012A0 00 00 00 0F 00 00 00 01 00 00 00 01 00 00 00 0F 00 00 00 20 6E 6F 74 20 61 20 66 75 6E 63 74 69 ...☼...☺...☺...☼... not a functi 000012C0 6F 6E 06 00 00 00 74 6E 61 6D 65 00 06 00 00 00 74 6E 61 6D 65 00 04 00 00 00 01 00 00 00 00 00 on♠...tname.♠...tname.♦...☺..... 000012E0 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 00 00 00 02 00 ..♦...☺...♦...☺.......♦...☺...☻. 00001300 00 00 72 00 06 00 00 00 74 6E 61 6D 65 00 02 00 00 00 6A 00 04 00 00 00 01 00 00 00 00 00 00 00 ..r.♠...tname.☻...j.♦...☺....... 00001320 04 00 00 00 00 00 00 00 78 08 00 00 00 70 72 65 70 61 72 65 00 00 01 00 00 00 0A 00 00 2E 00 00 ♦.......x◘...prepare..☺...◙..... 00001340 00 0B 00 00 00 04 00 00 00 06 00 00 00 0A 00 00 00 0D 00 00 00 04 00 00 00 02 00 00 00 01 00 00 .♂...♦...♠...◙...♪...♦...☻...☺.. 00001360 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 94 02 00 00 02 00 00 00 01 00 00 .☺...☺...☺...☺...◘...ö☻..☻...☺.. 00001380 00 0B 00 00 00 3C 00 00 00 20 7A 23 70 72 65 70 61 72 65 20 61 20 20 20 20 20 20 20 20 20 20 20 .♂...<... z#prepare a 000013A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000013C0 20 20 20 20 20 20 24 6C 31 20 69 66 20 7E 63 68 61 72 61 63 74 65 72 20 61 20 20 20 20 20 20 20 $l1 if ~character a 000013E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001400 20 20 24 30 20 69 66 20 30 3D 66 72 61 6D 65 74 65 73 74 20 7A 23 6D 61 74 72 69 78 20 61 20 20 $0 if 0=frametest z#matrix a 00001420 20 20 20 20 20 20 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 00001440 2C 52 7A 23 31 20 31 55 2D 31 20 2D 31 55 7A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ,Rz#1 1U-1 -1Uz 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 6C 31 3A 7A 23 74 61 l1:z#ta 00001480 62 75 6C 61 74 65 20 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 bulate a 000014A0 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 000014C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000014E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 72 65 70 61 72 65 20 2D 20 73 74 61 6E "prepare - stan 00001500 64 61 72 64 69 7A 65 20 73 74 72 75 63 74 75 72 65 20 66 6F 72 20 72 65 70 6F 72 74 20 66 6F 72 dardize structure for report for 00001520 6D 61 74 74 69 6E 67 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 matting "from 'the apl hand 00001540 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 00001560 37 38 2C 20 69 62 6D 2E 20 22 2D 61 20 73 75 62 72 6F 75 74 69 6E 65 20 74 68 61 74 20 6E 6F 72 78, ibm. "-a subroutine that nor 00001580 6D 61 6C 69 7A 65 73 20 64 61 74 61 20 66 6F 72 20 74 68 65 20 66 6F 72 6D 61 74 74 69 6E 67 20 malizes data for the formatting 000015A0 20 20 20 20 20 22 20 66 75 6E 63 74 69 6F 6E 73 3A 20 67 62 65 73 69 64 65 20 67 63 65 6E 74 65 " functions: gbeside gcente 000015C0 72 6F 6E 20 67 68 65 61 64 65 72 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ron gheaderon 000015E0 20 22 2D 75 73 65 73 3A 20 47 63 68 61 72 61 63 74 65 72 20 47 66 72 61 6D 65 74 65 73 74 20 47 "-uses: Gcharacter Gframetest G 00001600 6D 61 74 72 69 78 20 47 74 61 62 75 6C 61 74 65 20 47 69 66 20 20 20 20 20 20 20 20 20 18 00 00 matrix Gtabulate Gif ↑.. 00001620 00 FF FF FF FF FC FF FF FF 0B 00 00 00 D8 2C 04 00 01 00 00 00 01 00 00 00 30 00 00 00 FC FF FF . ⁿ ♂...╪,♦.☺...☺...0...ⁿ 00001640 FF 03 00 00 00 C0 2C 04 00 01 00 00 00 61 74 65 3B 48 00 00 00 03 00 00 00 02 00 00 00 00 00 00 ♥...└,♦.☺...ate;H...♥...☻...... 00001660 00 01 00 00 00 20 20 20 20 00 00 00 00 FC FF FF FF 01 00 00 00 C8 2C 04 00 01 00 00 00 20 20 64 .☺... ....ⁿ ☺...╚,♦.☺... d 00001680 61 78 00 00 00 FC FF FF FF 13 00 00 00 A0 2B 04 00 01 00 00 00 74 65 20 29 90 00 00 00 FC FF FF ax...ⁿ ‼...á+♦.☺...te )É...ⁿ 000016A0 FF 09 00 00 00 60 5F 04 00 01 00 00 00 20 20 20 20 A8 00 00 00 84 00 00 00 08 00 00 00 00 00 00 ○...`_♦.☺... ¿...ä...◘...... 000016C0 00 01 00 00 00 5B 20 3B 20 C0 00 00 00 FC FF FF FF 05 00 00 00 88 2B 04 00 01 00 00 00 20 20 20 .☺...[ ; └...ⁿ ♣...ê+♦.☺... 000016E0 20 D8 00 00 00 FC FF FF FF 02 00 00 00 B8 2B 04 00 01 00 00 00 20 20 20 20 FF FF FF FF 04 00 00 ╪...ⁿ ☻...╕+♦.☺... ♦.. 00001700 00 01 00 00 00 00 00 00 00 01 00 00 00 20 5D 20 20 08 01 00 00 FC FF FF FF 1C 00 00 00 F8 2C 04 .☺.......☺... ] ◘☺..ⁿ ∟...°,♦ 00001720 00 01 00 00 00 20 20 20 20 20 01 00 00 FC FF FF FF 15 00 00 00 08 2D 04 00 01 00 00 00 65 20 5B .☺... ☺..ⁿ §...◘-♦.☺...e [ 00001740 20 38 01 00 00 03 00 00 00 14 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 50 01 00 00 FC FF FF 8☺..♥...¶.......☺... P☺..ⁿ 00001760 FF 13 00 00 00 48 2B 04 00 01 00 00 00 20 20 20 20 68 01 00 00 FC FF FF FF 09 00 00 00 70 5E 04 ‼...H+♦.☺... h☺..ⁿ ○...p^♦ 00001780 00 01 00 00 00 5D 20 6D 20 80 01 00 00 1D 00 00 00 08 00 00 00 00 00 00 00 01 00 00 00 20 20 20 .☺...] m Ç☺..↔...◘.......☺... 000017A0 20 98 01 00 00 FD FF FF FF 07 00 00 00 80 88 04 00 01 00 00 00 7A 3E 31 39 B0 01 00 00 FC FF FF ÿ☺..² •...Çê♦.☺...z>19░☺..ⁿ 000017C0 FF 04 00 00 00 50 2B 04 00 01 00 00 00 35 29 20 26 C8 01 00 00 FD FF FF FF 02 00 00 00 A0 80 04 ♦...P+♦.☺...5) &╚☺..² ☻...áÇ♦ 000017E0 00 01 00 00 00 33 2B 4C 69 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 2B 20 30 .☺...3+Li ♦...☺.......☺...+ 0 00001800 2E F8 01 00 00 FC FF FF FF 11 00 00 00 90 2B 04 00 01 00 00 00 5F 20 6A 66 10 02 00 00 35 00 00 .°☺..ⁿ ◄...É+♦.☺..._ jf►☻..5.. 00001820 00 10 00 00 00 00 00 00 00 01 00 00 00 20 33 31 2B 28 02 00 00 FD FF FF FF 0E 00 00 00 00 B5 05 .►.......☺... 31+(☻..² ♫....╡♣ 00001840 00 01 00 00 00 5F 20 53 20 40 02 00 00 FD FF FF FF 0B 00 00 00 00 B9 05 00 01 00 00 00 2B 20 79 .☺..._ S @☻..² ♂....╣♣.☺...+ y 00001860 20 58 02 00 00 35 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 70 02 00 00 FD FF FF X☻..5...◙.......☺... p☻..² 00001880 FF 09 00 00 00 E0 84 04 00 01 00 00 00 20 20 20 20 88 02 00 00 FD FF FF FF 07 00 00 00 60 84 04 ○...αä♦.☺... ê☻..² •...`ä♦ 000018A0 00 01 00 00 00 61 79 6E 6F A0 02 00 00 03 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 74 72 6F .☺...aynoá☻..♥...♠.......☺...tro 000018C0 6E B8 02 00 00 FC FF FF FF 05 00 00 00 18 2D 04 00 01 00 00 00 20 20 20 20 D0 02 00 00 32 00 00 n╕☻..ⁿ ♣...↑-♦.☺... ╨☻..2.. 000018E0 00 04 00 00 00 00 00 00 00 01 00 00 00 6C 20 68 61 E8 02 00 00 0C 00 00 00 03 00 00 00 00 00 00 .♦.......☺...l haΦ☻..♀...♥...... 00001900 00 01 00 00 00 27 20 63 6F 00 03 00 00 FD FF FF FF 02 00 00 00 60 8D 04 00 01 00 00 00 22 63 6F .☺...' co.♥..² ☻...`ì♦.☺..."co 00001920 6D FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 65 72 2E 20 30 03 00 00 FC FF FF m ♦...☺.......☺...er. 0♥..ⁿ 00001940 FF 0E 00 00 00 20 20 04 00 01 00 00 00 20 61 72 72 48 03 00 00 FC FF FF FF 05 00 00 00 60 5E 04 ♫... ♦.☺... arrH♥..ⁿ ♣...`^♦ 00001960 00 01 00 00 00 20 61 72 65 60 03 00 00 03 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 65 2E 20 .☺... are`♥..♥...♦.......☺...e. 00001980 20 78 03 00 00 FC FF FF FF 03 00 00 00 68 29 04 00 01 00 00 00 20 20 22 6C 90 03 00 00 1A 00 00 x♥..ⁿ ♥...h)♦.☺... "lÉ♥..→.. 000019A0 00 02 00 00 00 00 00 00 00 01 00 00 00 74 68 65 20 FF FF FF FF FC FF FF FF 04 00 00 00 68 2B 04 .☻.......☺...the ⁿ ♦...h+♦ 000019C0 00 01 00 00 00 29 20 63 61 C0 03 00 00 FD FF FF FF 02 00 00 00 60 8C 04 00 01 00 00 00 65 20 75 .☺...) ca└♥..² ☻...`î♦.☺...e u 000019E0 73 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 69 73 20 61 FF FF FF FF 02 00 00 s ♦...☺.......☺...is a ☻.. 00001A00 00 00 00 00 00 00 00 00 00 01 00 00 00 61 74 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 .........☺...at ☻.......... 00001A20 00 01 00 00 00 00 E8 04 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 3C 00 00 .☺....Φ♦. ☻...........☺...<.. 00001A40 00 FF FF FF 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 . ☻...........☺... ☻.. 00001A60 00 00 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 00 00 00 00 60 00 00 00 F0 00 00 00 E0 01 00 .........☺... ....`...≡...α☺. 00001A80 00 18 03 00 00 A8 03 00 00 D8 03 00 00 F0 03 00 00 08 04 00 00 20 04 00 00 38 04 00 00 48 00 00 .↑♥..¿♥..╪♥..≡♥..◘♦.. ♦..8♦..H.. 00001AA0 00 90 03 00 00 02 00 00 00 61 00 08 00 00 00 70 72 65 70 61 72 65 00 02 00 00 00 7A 00 02 00 00 .É♥..☻...a.◘...prepare.☻...z.☻.. 00001AC0 00 61 00 0A 00 00 00 63 68 61 72 61 63 74 65 72 00 03 00 00 00 69 66 00 03 00 00 00 6C 31 00 02 .a.◙...character.♥...if.♥...l1.☻ 00001AE0 00 00 00 61 00 07 00 00 00 6D 61 74 72 69 78 00 02 00 00 00 7A 00 0A 00 00 00 66 72 61 6D 65 74 ...a.•...matrix.☻...z.◙...framet 00001B00 65 73 74 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 03 00 00 00 69 66 00 04 est.♦...☺.......♦.......♥...if.♦ 00001B20 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 02 00 00 00 7A 00 02 00 00 00 01 00 00 ...☺.......♦.......☻...z.☻...☺.. 00001B40 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 F0 BF 02 00 00 00 01 00 00 00 00 00 00 00 08 00 00 .....◘.........≡┐☻...☺.......◘.. 00001B60 00 00 00 00 00 00 00 F0 BF 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 04 00 00 .......≡┐♦...☺.......♦...☺...♦.. 00001B80 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 00 00 00 7A 00 04 00 00 00 01 00 00 00 00 .☺.......♦...☺...☻...z.♦...☺.... 00001BA0 00 00 00 04 00 00 00 00 00 00 00 02 00 00 00 61 00 09 00 00 00 74 61 62 75 6C 61 74 65 00 02 00 ...♦.......☻...a.○...tabulate.☻. 00001BC0 00 00 7A 00 03 00 00 00 6C 31 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 78 ..z.♥...l1.♦...☺.......♦.......x 00001BE0 08 00 00 00 70 72 65 65 64 69 74 00 00 01 00 00 00 0C 00 00 22 00 00 00 0C 00 00 00 05 00 00 00 ◘...preedit..☺...♀.."...♀...♣... 00001C00 0A 00 00 00 09 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 ◙...○...☻...☺...☺...☺...☺...☺... 00001C20 01 00 00 00 01 00 00 00 01 00 00 00 08 00 00 00 D0 02 00 00 02 00 00 00 01 00 00 00 0C 00 00 00 ☺...☺...☺...◘...╨☻..☻...☺...♀... 00001C40 3C 00 00 00 20 72 23 74 6E 61 6D 65 20 70 72 65 65 64 69 74 20 6D 20 20 20 20 20 20 20 20 20 20 <... r#tname preedit m 00001C60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001C80 20 28 74 6E 61 6D 65 2C 27 20 69 6E 20 75 73 65 27 29 65 73 63 61 70 65 20 30 5E 3D 4C 6E 63 20 (tname,' in use')escape 0^=Lnc 00001CA0 74 6E 61 6D 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 4C tname r#L 00001CC0 66 78 20 74 6E 61 6D 65 20 6F 6E 27 22 27 2C 46 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 fx tname on'"',Fm 00001CE0 20 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 $0 00001D00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00001D20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 72 65 65 64 69 74 20 2D 20 70 "preedit - p 00001D40 72 65 70 61 72 65 20 6D 61 74 72 69 78 20 66 6F 72 20 66 75 6E 63 74 69 6F 6E 2D 6C 69 6B 65 20 repare matrix for function-like 00001D60 65 64 69 74 69 6E 67 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 editing "from 'the apl h 00001D80 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 00001DA0 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 74 6E 61 6D 65 20 69 73 20 61 20 74 65 6D 70 6F 72 61 1978, ibm. "-tname is a tempora 00001DC0 72 79 20 6E 61 6D 65 20 74 6F 20 62 65 20 61 73 73 69 67 6E 65 64 20 74 6F 20 61 20 63 6F 70 79 ry name to be assigned to a copy 00001DE0 20 6F 66 20 74 68 65 20 22 20 6D 61 74 72 69 78 2C 20 6D 2C 20 73 6F 20 74 68 61 74 20 69 74 20 of the " matrix, m, so that it 00001E00 6D 61 79 20 62 65 20 65 64 69 74 65 64 20 61 73 20 69 66 20 69 74 20 77 65 72 65 20 61 20 20 20 may be edited as if it were a 00001E20 20 20 20 20 22 20 64 65 66 69 6E 65 64 20 66 75 6E 63 74 69 6F 6E 2E 20 20 74 6E 61 6D 65 20 69 " defined function. tname i 00001E40 73 20 61 20 63 68 61 72 61 63 74 65 72 20 73 74 72 69 6E 67 2E 20 20 20 20 20 20 20 20 20 20 20 s a character string. 00001E60 22 2D 77 68 65 6E 20 65 64 69 74 69 6E 67 20 69 73 20 63 6F 6D 70 6C 65 74 65 2C 20 6B 65 79 3A "-when editing is complete, key: 00001E80 20 72 23 70 6F 73 74 65 64 69 74 20 74 6E 61 6D 65 2C 20 77 68 65 72 65 20 72 20 20 22 20 72 20 r#postedit tname, where r " r 00001EA0 63 61 6E 20 62 65 20 74 68 65 20 6F 6C 64 20 6F 72 20 6E 65 77 20 6E 61 6D 65 20 6F 66 20 74 68 can be the old or new name of th 00001EC0 65 20 65 64 69 74 65 64 20 6D 61 74 72 69 78 2E 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 e edited matrix. "-uses: 00001EE0 47 65 73 63 61 70 65 20 47 6F 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 Gescape Gon 00001F00 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 ↑... ⁿ 00001F20 11 00 00 00 F0 2C 04 00 01 00 00 00 01 00 00 00 30 00 00 00 FC FF FF FF 09 00 00 00 E8 2D 04 00 ◄...≡,♦.☺...☺...0...ⁿ ○...Φ-♦. 00001F40 01 00 00 00 65 64 69 74 00 00 00 00 FC FF FF FF 03 00 00 00 10 2E 04 00 01 00 00 00 20 20 20 20 ☺...edit....ⁿ ♥...►.♦.☺... 00001F60 60 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 20 28 74 6E 30 00 00 00 FC FF FF FF `...♥...☻.......☺... (tn0...ⁿ 00001F80 01 00 00 00 10 2D 04 00 01 00 00 00 20 30 5E 3D 90 00 00 00 FC FF FF FF 20 00 00 00 30 2E 04 00 ☺...►-♦.☺... 0^=É...ⁿ ...0.♦. 00001FA0 01 00 00 00 20 20 20 20 A8 00 00 00 EA FF FF FF 1C 00 00 00 00 00 00 00 01 00 00 00 20 6F 6E 27 ☺... ¿...Ω ∟.......☺... on' 00001FC0 C0 00 00 00 3E 00 00 00 1A 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 D8 00 00 00 FD FF FF FF └...>...→.......☺... ╪...² 00001FE0 19 00 00 00 20 87 04 00 01 00 00 00 20 24 30 20 F0 00 00 00 FC FF FF FF 12 00 00 00 E8 2C 04 00 ↓... ç♦.☺... $0 ≡...ⁿ ↕...Φ,♦. 00002000 01 00 00 00 20 20 20 20 08 01 00 00 09 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 ☺... ◘☺..○...◄.......☺... 00002020 20 01 00 00 07 00 00 00 08 00 00 00 40 B1 05 00 01 00 00 00 72 65 70 61 38 01 00 00 0C 00 00 00 ☺..•...◘...@▒♣.☺...repa8☺..♀... 00002040 07 00 00 00 00 00 00 00 01 00 00 00 6F 6E 2D 6C 50 01 00 00 FC FF FF FF 02 00 00 00 90 2C 04 00 •.......☺...on-lP☺..ⁿ ☻...É,♦. 00002060 01 00 00 00 22 66 72 6F FF FF FF FF 08 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 6F 66 20 74 ☺..."fro ◘...☺.......☺...of t 00002080 80 01 00 00 FC FF FF FF 14 00 00 00 60 2B 04 00 01 00 00 00 20 31 39 37 98 01 00 00 26 00 00 00 Ç☺..ⁿ ¶...`+♦.☺... 197ÿ☺..&... 000020A0 13 00 00 00 00 00 00 00 01 00 00 00 20 74 65 6D B0 01 00 00 0C 00 00 00 12 00 00 00 00 00 00 00 ‼.......☺... tem░☺..♀...↕....... 000020C0 01 00 00 00 73 69 67 6E C8 01 00 00 07 00 00 00 0F 00 00 00 00 86 04 00 01 00 00 00 22 20 6D 61 ☺...sign╚☺..•...☼....å♦.☺..." ma 000020E0 E0 01 00 00 FC FF FF FF 0D 00 00 00 00 2D 04 00 01 00 00 00 6D 61 79 20 F8 01 00 00 FC FF FF FF α☺..ⁿ ♪....-♦.☺...may °☺..ⁿ 00002100 07 00 00 00 A0 2D 04 00 01 00 00 00 65 72 65 20 10 02 00 00 EF FF FF FF 03 00 00 00 00 00 00 00 •...á-♦.☺...ere ►☻..∩ ♥....... 00002120 01 00 00 00 6E 63 74 69 28 02 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 61 63 74 65 ☺...ncti(☻..♥...☻.......☺...acte 00002140 FF FF FF FF FC FF FF FF 01 00 00 00 B0 2C 04 00 01 00 00 00 22 2D 77 68 58 02 00 00 FD FF FF FF ⁿ ☺...░,♦.☺..."-whX☻..² 00002160 02 00 00 00 20 85 04 00 01 00 00 00 74 65 2C 20 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 ☻... à♦.☺...te, ♦...☺....... 00002180 01 00 00 00 65 2C 20 77 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 68 65 20 6F ☺...e, w ☻...........☺...he o 000021A0 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 65 20 65 64 FF FF FF FF 02 00 00 00 ☻...........☺...e ed ☻... 000021C0 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 00 00 00 00 00 ........☺....... ☻........... 000021E0 01 00 00 00 75 74 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 ☺...ut ☻...........☺... 00002200 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 72 61 74 FF FF FF FF 02 00 00 00 ☻...........☺... rat ☻... 00002220 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 00 ........☺... ☻........... 00002240 01 00 00 00 20 20 20 20 00 00 00 00 78 00 00 00 68 01 00 00 40 02 00 00 70 02 00 00 88 02 00 00 ☺... ....x...h☺..@☻..p☻..ê☻.. 00002260 A0 02 00 00 B8 02 00 00 D0 02 00 00 E8 02 00 00 00 03 00 00 18 03 00 00 60 00 00 00 FF FF FF FF á☻..╕☻..╨☻..Φ☻...♥..↑♥..`... 00002280 02 00 00 00 6D 00 08 00 00 00 70 72 65 65 64 69 74 00 06 00 00 00 74 6E 61 6D 65 00 02 00 00 00 ☻...m.◘...preedit.♠...tname.☻... 000022A0 72 00 06 00 00 00 74 6E 61 6D 65 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 r.♠...tname.♦...☺.......♦....... 000022C0 07 00 00 00 65 73 63 61 70 65 00 08 00 00 00 07 00 00 00 01 00 00 00 01 00 00 00 07 00 00 00 20 •...escape.◘...•...☺...☺...•... 000022E0 69 6E 20 75 73 65 06 00 00 00 74 6E 61 6D 65 00 02 00 00 00 6D 00 08 00 00 00 01 00 00 00 00 00 in use♠...tname.☻...m.◘...☺..... 00002300 00 00 01 00 00 00 22 03 00 00 00 6F 6E 00 06 00 00 00 74 6E 61 6D 65 00 02 00 00 00 72 00 04 00 ..☺..."♥...on.♠...tname.☻...r.♦. 00002320 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 78 03 00 00 00 70 69 00 00 01 00 00 00 0A ..☺.......♦.......x♥...pi..☺...◙ 00002340 00 00 50 00 00 00 0E 00 00 00 0A 00 00 00 0F 00 00 00 0D 00 00 00 0B 00 00 00 0A 00 00 00 0A 00 ..P...♫...◙...☼...♪...♂...◙...◙. 00002360 00 00 02 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 ..☻...☺...☺...☺...☺...☺...☺...☺. 00002380 00 00 08 00 00 00 48 03 00 00 02 00 00 00 01 00 00 00 0E 00 00 00 3C 00 00 00 20 73 75 6D 23 70 ..◘...H♥..☻...☺...♫...<... sum#p 000023A0 69 20 6E 3B 69 3B 74 65 72 6D 3B 72 65 6D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 i n;i;term;rem 000023C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 75 6D 23 74 65 72 6D 23 sum#term# 000023E0 30 2C 28 6E 2B 69 23 31 29 59 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0,(n+i#1)Y3 00002400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6C 6F 6F 70 3A 74 65 72 6D 23 28 74 65 72 loop:term#(ter 00002420 6D 20 6D 75 6C 20 69 29 64 69 76 20 34 58 69 2B 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 m mul i)div 4Xi+1 00002440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 75 6D 23 73 75 6D 20 61 64 64 20 74 65 72 6D 20 sum#sum add term 00002460 64 69 76 20 69 23 69 2B 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 div i#i+2 00002480 20 20 20 20 20 20 20 20 20 20 20 24 28 56 2F 74 65 72 6D 5E 3D 30 29 2F 6C 6F 6F 70 20 20 20 20 $(V/term^=0)/loop 000024A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000024C0 20 20 20 20 20 20 20 73 75 6D 23 28 5F 6E 29 2C 31 55 73 75 6D 20 20 20 20 20 20 20 20 20 20 20 sum#(_n),1Usum 000024E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00002500 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00002520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 "p 00002540 69 20 2D 20 63 6F 6D 70 75 74 65 20 70 69 20 74 6F 20 61 72 62 69 74 72 61 72 79 20 70 72 65 63 i - compute pi to arbitrary prec 00002560 69 73 69 6F 6E 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 ision "from 00002580 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' 000025A0 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D 63 6F 6D 70 75 74 65 20 copyright 1978, ibm. "-compute 000025C0 70 69 20 28 33 2E 31 34 31 35 39 2B 29 20 74 6F 20 37 58 6E 20 64 65 63 69 6D 61 6C 20 64 69 67 pi (3.14159+) to 7Xn decimal dig 000025E0 69 74 73 20 6F 66 20 70 72 65 63 69 73 69 6F 6E 20 20 22 2D 74 68 65 20 61 72 63 73 69 6E 20 70 its of precision "-the arcsin p 00002600 6F 77 65 72 20 73 65 72 69 65 73 20 28 36 58 2D 31 4F 2E 35 29 20 69 73 20 73 75 6D 6D 65 64 2D ower series (6X-1O.5) is summed- 00002620 2D 6E 6F 74 20 74 68 65 20 20 20 20 20 20 22 20 66 61 73 74 65 73 74 20 6B 6E 6F 77 6E 20 6D 65 -not the " fastest known me 00002640 74 68 6F 64 2C 20 62 75 74 20 66 61 72 20 66 72 6F 6D 20 74 68 65 20 73 6C 6F 77 65 73 74 20 20 thod, but far from the slowest 00002660 20 20 20 20 20 20 20 20 20 20 22 2D 72 75 6E 6E 69 6E 67 20 74 69 6D 65 20 69 73 20 70 72 6F 70 "-running time is prop 00002680 6F 72 74 69 6F 6E 61 6C 20 74 6F 20 6E 2A 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ortional to n*2 000026A0 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 61 64 64 20 47 6D 75 6C 20 47 64 69 76 20 20 20 20 "-uses: Gadd Gmul Gdiv 000026C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000026E0 20 20 A8 00 00 00 FF FF FF FF FC FF FF FF 11 00 00 00 F0 2D 04 00 01 00 00 00 01 00 00 00 30 00 ¿... ⁿ ◄...≡-♦.☺...☺...0. 00002700 00 00 1B 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 00 00 00 00 FC FF FF FF 0C 00 ..←...►.......☺... ....ⁿ ♀. 00002720 00 00 F8 2D 04 00 01 00 00 00 20 20 20 20 60 00 00 00 1B 00 00 00 0B 00 00 00 00 00 00 00 01 00 ..°-♦.☺... `...←...♂.......☺. 00002740 00 00 22 6D 75 6C 30 00 00 00 FC FF FF FF 0A 00 00 00 00 2E 04 00 01 00 00 00 6D 75 6C 74 90 00 .."mul0...ⁿ ◙.....♦.☺...multÉ. 00002760 00 00 1B 00 00 00 09 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 60 00 00 00 FC FF FF FF 08 00 ..←...○.......☺... `...ⁿ ◘. 00002780 00 00 08 2C 04 00 01 00 00 00 73 68 6F 72 C0 00 00 00 FC FF FF FF 05 00 00 00 20 2B 04 00 01 00 ..◘,♦.☺...shor└...ⁿ ♣... +♦.☺. 000027A0 00 00 20 74 6F 20 D8 00 00 00 03 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 20 24 28 28 90 00 .. to ╪...♥...♦.......☺... $((É. 000027C0 00 00 FC FF FF FF 01 00 00 00 28 2E 04 00 01 00 00 00 78 20 62 29 08 01 00 00 FD FF FF FF 14 00 ..ⁿ ☺...(.♦.☺...x b)◘☺..² ¶. 000027E0 00 00 80 81 04 00 01 00 00 00 20 20 20 20 20 01 00 00 39 00 00 00 13 00 00 00 00 00 00 00 01 00 ..Çü♦.☺... ☺..9...‼.......☺. 00002800 00 00 20 20 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 .. 8☺..○...↕.......☺... P☺ 00002820 00 00 FD FF FF FF 11 00 00 00 60 8B 04 00 01 00 00 00 20 61 23 62 68 01 00 00 03 00 00 00 10 00 ..² ◄...`ï♦.☺... a#bh☺..♥...►. 00002840 00 00 00 00 00 00 01 00 00 00 20 20 20 20 80 01 00 00 FC FF FF FF 0F 00 00 00 D0 28 04 00 01 00 ......☺... Ç☺..ⁿ ☼...╨(♦.☺. 00002860 00 00 20 20 20 20 98 01 00 00 0B 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 B0 01 .. ÿ☺..♂...♫.......☺... ░☺ 00002880 00 00 FC FF FF FF 0D 00 00 00 B0 28 04 00 01 00 00 00 20 20 20 20 C8 01 00 00 08 00 00 00 0C 00 ..ⁿ ♪...░(♦.☺... ╚☺..◘...♀. 000028A0 00 00 00 00 00 00 01 00 00 00 22 63 68 65 E0 01 00 00 0C 00 00 00 0B 00 00 00 00 00 00 00 01 00 ......☺..."cheα☺..♀...♂.......☺. 000028C0 00 00 66 6C 6F 77 F8 01 00 00 FD FF FF FF 0A 00 00 00 40 89 04 00 01 00 00 00 29 2E 20 20 10 02 ..flow°☺..² ◙...@ë♦.☺...). ►☻ 000028E0 00 00 03 00 00 00 09 00 00 00 00 00 00 00 01 00 00 00 63 23 61 4A 28 02 00 00 FC FF FF FF 05 00 ..♥...○.......☺...c#aJ(☻..ⁿ ♣. 00002900 00 00 50 28 04 00 01 00 00 00 20 20 20 20 40 02 00 00 03 00 00 00 04 00 00 00 00 00 00 00 01 00 ..P(♦.☺... @☻..♥...♦.......☺. 00002920 00 00 20 63 23 28 FF FF FF FF FC FF FF FF 01 00 00 00 A8 28 04 00 01 00 00 00 30 30 30 30 70 02 .. c#( ⁿ ☺...¿(♦.☺...0000p☻ 00002940 00 00 FD FF FF FF 1E 00 00 00 C0 80 04 00 01 00 00 00 20 20 20 20 88 02 00 00 0B 00 00 00 1D 00 ..² ▲...└Ç♦.☺... ê☻..♂...↔. 00002960 00 00 00 00 00 00 01 00 00 00 4C 69 6F 5F A0 02 00 00 FC FF FF FF 1C 00 00 00 70 2B 04 00 01 00 ......☺...Lio_á☻..ⁿ ∟...p+♦.☺. 00002980 00 00 52 30 20 20 B8 02 00 00 38 00 00 00 1B 00 00 00 00 00 00 00 01 00 00 00 20 24 30 20 D0 02 ..R0 ╕☻..8...←.......☺... $0 ╨☻ 000029A0 00 00 FD FF FF FF 1A 00 00 00 00 8D 04 00 01 00 00 00 20 20 20 20 E8 02 00 00 FC FF FF FF 16 00 ..² →....ì♦.☺... Φ☻..ⁿ ▬. 000029C0 00 00 78 2B 04 00 01 00 00 00 20 20 20 20 00 03 00 00 09 00 00 00 15 00 00 00 00 00 00 00 01 00 ..x+♦.☺... .♥..○...§.......☺. 000029E0 00 00 70 72 65 63 18 03 00 00 FC FF FF FF 14 00 00 00 C0 2B 04 00 01 00 00 00 6C 69 63 61 30 03 ..prec↑♥..ⁿ ¶...└+♦.☺...lica0♥ 00002A00 00 00 FC FF FF FF 10 00 00 00 98 2B 04 00 01 00 00 00 22 66 72 6F 48 03 00 00 FC FF FF FF 0B 00 ..ⁿ ►...ÿ+♦.☺..."froH♥..ⁿ ♂. 00002A20 00 00 B0 2B 04 00 01 00 00 00 6F 66 20 74 60 03 00 00 08 00 00 00 0A 00 00 00 00 00 00 00 01 00 ..░+♦.☺...of t`♥..◘...◙.......☺. 00002A40 00 00 20 31 39 37 78 03 00 00 03 00 00 00 09 00 00 00 00 00 00 00 01 00 00 00 70 6C 69 65 90 03 .. 197x♥..♥...○.......☺...plieÉ♥ 00002A60 00 00 FC FF FF FF 05 00 00 00 58 2B 04 00 01 00 00 00 69 6E 67 20 A8 03 00 00 1A 00 00 00 04 00 ..ⁿ ♣...X+♦.☺...ing ¿♥..→...♦. 00002A80 00 00 00 00 00 00 01 00 00 00 22 20 69 6E FF FF FF FF FC FF FF FF 02 00 00 00 88 28 04 00 01 00 ......☺..." in ⁿ ☻...ê(♦.☺. 00002AA0 00 00 61 6E 64 20 D8 03 00 00 FD FF FF FF 1A 00 00 00 20 8D 04 00 01 00 00 00 72 69 63 20 F0 03 ..and ╪♥..² →... ì♦.☺...ric ≡♥ 00002AC0 00 00 0B 00 00 00 19 00 00 00 00 00 00 00 01 00 00 00 73 63 72 69 08 04 00 00 FC FF FF FF 18 00 ..♂...↓.......☺...scri◘♦..ⁿ ↑. 00002AE0 00 00 F8 29 04 00 01 00 00 00 20 20 20 20 20 04 00 00 03 00 00 00 17 00 00 00 00 00 00 00 01 00 ..°)♦.☺... ♦..♥...↨.......☺. 00002B00 00 00 22 2D 75 73 38 04 00 00 FC FF FF FF 16 00 00 00 00 2A 04 00 01 00 00 00 20 20 20 20 50 04 .."-us8♦..ⁿ ▬....*♦.☺... P♦ 00002B20 00 00 FC FF FF FF 12 00 00 00 F0 29 04 00 01 00 00 00 20 20 20 20 68 04 00 00 FC FF FF FF 0D 00 ..ⁿ ↕...≡)♦.☺... h♦..ⁿ ♪. 00002B40 00 00 28 29 04 00 01 00 00 00 FD FF FF FF 80 04 00 00 FC FF FF FF 09 00 00 00 E0 2B 04 00 01 00 ..()♦.☺...² Ç♦..ⁿ ○...α+♦.☺. 00002B60 00 00 03 00 00 00 98 04 00 00 FC FF FF FF 05 00 00 00 B8 28 04 00 01 00 00 00 FC FF FF FF B0 04 ..♥...ÿ♦..ⁿ ♣...╕(♦.☺...ⁿ ░♦ 00002B80 00 00 03 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 0F 00 00 00 FF FF FF FF FC FF FF FF 01 00 ..♥...♦.......☺...☼... ⁿ ☺. 00002BA0 00 00 D8 2B 04 00 01 00 00 00 09 00 00 00 E0 04 00 00 FC FF FF FF 0E 00 00 00 18 2E 04 00 01 00 ..╪+♦.☺...○...α♦..ⁿ ♫...↑.♦.☺. 00002BC0 00 00 FC FF FF FF F8 04 00 00 0F 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF 10 05 ..ⁿ °♦..☼...♪.......☺...ⁿ ►♣ 00002BE0 00 00 09 00 00 00 0C 00 00 00 00 00 00 00 01 00 00 00 08 00 00 00 28 05 00 00 FD FF FF FF 0B 00 ..○...♀.......☺...◘...(♣..² ♂. 00002C00 00 00 20 8B 04 00 01 00 00 00 04 00 00 00 40 05 00 00 3E 00 00 00 09 00 00 00 00 00 00 00 01 00 .. ï♦.☺...♦...@♣..>...○.......☺. 00002C20 00 00 FC FF FF FF 58 05 00 00 FC FF FF FF 05 00 00 00 B8 29 04 00 01 00 00 00 0C 00 00 00 70 05 ..ⁿ X♣..ⁿ ♣...╕)♦.☺...♀...p♣ 00002C40 00 00 0F 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 83 00 00 00 88 05 00 00 36 00 00 00 03 00 ..☼...♦.......☺...â...ê♣..6...♥. 00002C60 00 00 00 00 00 00 01 00 00 00 FD FF FF FF A0 05 00 00 08 00 00 00 02 00 00 00 00 00 00 00 01 00 ......☺...² á♣..◘...☻.......☺. 00002C80 00 00 1D 00 00 00 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 0E 00 00 00 D0 05 ..↔... ♦...☺.......☺...♫...╨♣ 00002CA0 00 00 FC FF FF FF 0C 00 00 00 50 2E 04 00 01 00 00 00 06 00 00 00 E8 05 00 00 35 00 00 00 0B 00 ..ⁿ ♀...P.♦.☺...♠...Φ♣..5...♂. 00002CC0 00 00 00 00 00 00 01 00 00 00 FD FF FF FF 00 06 00 00 FD FF FF FF 0A 00 00 00 40 82 04 00 01 00 ......☺...² .♠..² ◙...@é♦.☺. 00002CE0 00 00 03 00 00 00 18 06 00 00 0C 00 00 00 09 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF 30 06 ..♥...↑♠..♀...○.......☺...ⁿ 0♠ 00002D00 00 00 09 00 00 00 08 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF 48 06 00 00 FC FF FF FF 07 00 ..○...◘.......☺...² H♠..ⁿ •. 00002D20 00 00 58 2E 04 00 01 00 00 00 04 00 00 00 60 06 00 00 3F 00 00 00 06 00 00 00 00 00 00 00 01 00 ..X.♦.☺...♦...`♠..?...♠.......☺. 00002D40 00 00 02 00 00 00 78 06 00 00 08 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 02 00 00 00 90 06 ..☻...x♠..◘...♣.......☺...☻...É♠ 00002D60 00 00 03 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 30 20 20 20 FF FF FF FF FC FF FF FF 01 00 ..♥...♦.......☺...0 ⁿ ☺. 00002D80 00 00 60 2E 04 00 01 00 00 00 20 20 20 20 C0 06 00 00 FD FF FF FF 02 00 00 00 60 8F 04 00 01 00 ..`.♦.☺... └♠..² ☻...`Å♦.☺. 00002DA0 00 00 44 28 31 30 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 30 30 42 32 FF FF ..D(10 ♦...☺.......☺...00B2 00002DC0 FF 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 ☻...........☺... ☻..... 00002DE0 00 00 00 00 00 00 01 00 00 00 28 52 72 65 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 ......☺...(Rre ☻...........☺. 00002E00 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 73 75 62 FF FF .. ☻...........☺... sub 00002E20 FF 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 ☻...........☺... ☻..... 00002E40 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 00 01 00 ......☺... ☻...........☺. 00002E60 00 00 30 20 20 20 00 00 00 00 F0 00 00 00 58 02 00 00 C0 03 00 00 C8 04 00 00 B8 05 00 00 A8 06 ..0 ....≡...X☻..└♥..╚♦..╕♣..¿♠ 00002E80 00 00 D8 06 00 00 F0 06 00 00 08 07 00 00 20 07 00 00 38 07 00 00 50 07 00 00 68 07 00 00 D8 00 ..╪♠..≡♠..◘•.. •..8•..P•..h•..╪. 00002EA0 00 00 A8 03 00 00 04 00 00 00 72 65 6D 00 05 00 00 00 74 65 72 6D 00 02 00 00 00 69 00 02 00 00 ..¿♥..♦...rem.♣...term.☻...i.☻.. 00002EC0 00 6E 00 03 00 00 00 70 69 00 04 00 00 00 73 75 6D 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 .n.♥...pi.♦...sum.♦...☺.......♦. 00002EE0 00 00 03 00 00 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 ..♥...♦...☺.......♦...☺...☻...i. 00002F00 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 05 00 00 00 74 65 ☻...n.♦...☺.......♦.......♣...te 00002F20 72 6D 00 04 00 00 00 73 75 6D 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 rm.♦...sum.♦...☺.......♦...☺...☻ 00002F40 00 00 00 69 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 04 00 00 00 04 00 00 00 64 69 76 ...i.♦...☺.......♦...♦...♦...div 00002F60 00 02 00 00 00 69 00 04 00 00 00 6D 75 6C 00 05 00 00 00 74 65 72 6D 00 05 00 00 00 74 65 72 6D .☻...i.♦...mul.♣...term.♣...term 00002F80 00 05 00 00 00 6C 6F 6F 70 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 02 00 00 00 02 00 .♣...loop.♦...☺.......♦...☻...☻. 00002FA0 00 00 69 00 02 00 00 00 69 00 04 00 00 00 64 69 76 00 05 00 00 00 74 65 72 6D 00 04 00 00 00 61 ..i.☻...i.♦...div.♣...term.♦...a 00002FC0 64 64 00 04 00 00 00 73 75 6D 00 04 00 00 00 73 75 6D 00 05 00 00 00 6C 6F 6F 70 00 04 00 00 00 dd.♦...sum.♦...sum.♣...loop.♦... 00002FE0 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 05 00 00 00 74 65 72 6D 00 04 00 00 00 73 75 6D ☺.......♦.......♣...term.♦...sum 00003000 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 6E 00 04 00 00 00 73 .♦...☺.......♦...☺...☻...n.♦...s 00003020 75 6D 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 71 70 72 6F um.♦...☺.......♦.......x•...qpro 00003040 62 66 00 00 01 00 00 00 0C 00 00 2C 00 00 00 0A 00 00 00 05 00 00 00 1E 00 00 00 02 00 00 00 01 bf..☺...♀..,...◙...♣...▲...☻...☺ 00003060 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 08 00 00 00 58 ...☺...☺...☺...☺...☺...☺...◘...X 00003080 02 00 00 02 00 00 00 01 00 00 00 0A 00 00 00 3C 00 00 00 20 7A 23 63 68 69 73 71 20 71 70 72 6F ☻..☻...☺...◙...<... z#chisq qpro 000030A0 62 66 20 6E 75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 bf nu 000030C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7A 23 28 2A 5F 63 68 69 73 71 25 32 29 58 28 63 z#(*_chisq%2)X(c 000030E0 68 69 73 71 25 32 29 42 60 4F 25 58 5C 31 53 5F 4C 69 6F 5F 49 44 6E 75 25 32 20 20 20 20 20 20 hisq%2)B`O%X\1S_Lio_IDnu%2 00003100 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00003120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003140 20 20 20 20 20 20 20 22 71 70 72 6F 62 66 20 2D 20 63 6F 6D 70 75 74 65 20 63 68 69 20 73 71 75 "qprobf - compute chi squ 00003160 61 72 65 20 70 72 6F 62 61 62 69 6C 69 74 79 20 66 75 6E 63 74 69 6F 6E 20 20 20 20 20 20 20 20 are probability function 00003180 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 "from 'the apl handbook of te 000031A0 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 chniques' copyright 1978, ibm. " 000031C0 2D 63 6F 6D 70 75 74 65 20 74 68 65 20 70 72 6F 62 61 62 69 6C 69 74 79 20 6F 66 20 61 20 67 69 -compute the probability of a gi 000031E0 76 65 6E 20 63 68 69 20 73 71 75 61 72 65 20 76 61 6C 75 65 20 20 20 20 20 20 20 22 20 6F 63 63 ven chi square value " occ 00003200 75 72 72 69 6E 67 20 66 6F 72 20 61 20 67 69 76 65 6E 20 6E 75 20 28 6E 75 6D 62 65 72 20 6F 66 urring for a given nu (number of 00003220 20 64 65 67 72 65 65 73 20 6F 66 20 66 72 65 65 64 6F 6D 29 20 20 20 22 2D 6E 75 20 69 73 20 72 degrees of freedom) "-nu is r 00003240 6F 75 6E 64 65 64 20 64 6F 77 6E 20 74 6F 20 74 68 65 20 6E 65 78 74 20 6C 6F 77 65 72 20 65 76 ounded down to the next lower ev 00003260 65 6E 20 69 6E 74 65 67 65 72 20 20 20 20 20 20 20 20 20 22 2D 6E 6F 74 65 20 74 68 65 20 65 78 en integer "-note the ex 00003280 74 72 65 6D 65 20 65 6C 65 67 61 6E 63 65 20 77 69 74 68 20 77 68 69 63 68 20 69 74 20 69 73 20 treme elegance with which it is 000032A0 70 6F 73 73 69 62 6C 65 20 69 6E 20 61 70 6C 22 20 74 6F 20 65 78 70 72 65 73 73 20 61 20 70 6F possible in apl" to express a po 000032C0 77 65 72 20 73 65 72 69 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 wer series 000032E0 20 20 20 20 20 20 20 20 20 20 20 18 00 00 00 FF FF FF FF FC FF FF FF 10 00 00 00 C8 2E 04 00 01 ↑... ⁿ ►...╚.♦.☺ 00003300 00 00 00 01 00 00 00 30 00 00 00 FC FF FF FF 09 00 00 00 20 2F 04 00 01 00 00 00 74 20 6D 73 00 ...☺...0...ⁿ ○... /♦.☺...t ms. 00003320 00 00 00 FC FF FF FF 03 00 00 00 D0 2B 04 00 01 00 00 00 20 20 20 20 60 00 00 00 03 00 00 00 02 ...ⁿ ♥...╨+♦.☺... `...♥...☻ 00003340 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 30 00 00 00 FC FF FF FF 01 00 00 00 C0 29 04 00 01 .......☺... 0...ⁿ ☺...└)♦.☺ 00003360 00 00 00 23 72 23 72 90 00 00 00 FD FF FF FF 2A 00 00 00 E0 8B 04 00 01 00 00 00 20 20 20 20 A8 ...#r#rÉ...² *...αï♦.☺... ¿ 00003380 00 00 00 05 00 00 00 29 00 00 00 00 00 00 00 01 00 00 00 20 24 30 20 C0 00 00 00 FC FF FF FF 27 ...♣...).......☺... $0 └...ⁿ ' 000033A0 00 00 00 80 2E 04 00 01 00 00 00 23 72 2C 28 D8 00 00 00 24 00 00 00 26 00 00 00 00 00 00 00 01 ...Ç.♦.☺...#r,(╪...$...&.......☺ 000033C0 00 00 00 20 20 20 20 F0 00 00 00 29 00 00 00 25 00 00 00 00 00 00 00 01 00 00 00 6E 3A 24 65 08 ... ≡...)...%.......☺...n:$e◘ 000033E0 01 00 00 3F 00 00 00 24 00 00 00 00 00 00 00 01 00 00 00 6B 23 6A 45 20 01 00 00 ED FF FF FF 21 ☺..?...$.......☺...k#jE ☺..φ ! 00003400 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 38 01 00 00 3F 00 00 00 20 00 00 00 00 00 00 00 01 .......☺... 8☺..?... .......☺ 00003420 00 00 00 28 64 65 66 50 01 00 00 33 00 00 00 1F 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 68 ...(defP☺..3...▼.......☺... h 00003440 01 00 00 FD FF FF FF 1E 00 00 00 80 83 04 00 01 00 00 00 20 20 20 20 80 01 00 00 3C 00 00 00 1D ☺..² ▲...Çâ♦.☺... Ç☺..<...↔ 00003460 00 00 00 00 00 00 00 01 00 00 00 61 63 74 6C 98 01 00 00 38 00 00 00 1C 00 00 00 00 00 00 00 01 .......☺...actlÿ☺..8...∟.......☺ 00003480 00 00 00 2C 27 20 6E B0 01 00 00 05 00 00 00 1B 00 00 00 00 00 00 00 01 00 00 00 22 20 63 68 C8 ...,' n░☺..♣...←.......☺..." ch╚ 000034A0 01 00 00 46 00 00 00 19 00 00 00 00 00 00 00 01 00 00 00 64 20 6F 72 E0 01 00 00 22 00 00 00 18 ☺..F...↓.......☺...d orα☺.."...↑ 000034C0 00 00 00 00 00 00 00 01 00 00 00 6E 20 20 20 F8 01 00 00 09 00 00 00 17 00 00 00 00 00 00 00 01 .......☺...n °☺..○...↨.......☺ 000034E0 00 00 00 20 20 20 20 10 02 00 00 FD FF FF FF 16 00 00 00 C0 87 04 00 01 00 00 00 20 20 20 20 28 ... ►☻..² ▬...└ç♦.☺... ( 00003500 02 00 00 05 00 00 00 15 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 40 02 00 00 FC FF FF FF 10 ☻..♣...§.......☺... @☻..ⁿ ► 00003520 00 00 00 18 2F 04 00 01 00 00 00 6F 6D 70 74 58 02 00 00 08 00 00 00 0F 00 00 00 00 00 00 00 01 ...↑/♦.☺...omptX☻..◘...☼.......☺ 00003540 00 00 00 65 6E 74 72 70 02 00 00 38 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 88 ...entrp☻..8...♫.......☺... ê 00003560 02 00 00 09 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 64 62 6F 6F A0 02 00 00 FD FF FF FF 0C ☻..○...♪.......☺...dbooá☻..² ♀ 00003580 00 00 00 00 83 04 00 01 00 00 00 79 72 69 67 B8 02 00 00 05 00 00 00 0B 00 00 00 00 00 00 00 01 ....â♦.☺...yrig╕☻..♣...♂.......☺ 000035A0 00 00 00 22 2D 70 72 D0 02 00 00 FC FF FF FF 06 00 00 00 F0 2E 04 00 01 00 00 00 62 6F 61 72 E8 ..."-pr╨☻..ⁿ ♠...≡.♦.☺...boarΦ 000035C0 02 00 00 3F 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 61 63 63 65 00 03 00 00 0A 00 00 00 04 ☻..?...♣.......☺...acce.♥..◙...♦ 000035E0 00 00 00 00 00 00 00 01 00 00 00 69 74 69 63 18 03 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 .......☺...itic↑♥..◘...♥.......☺ 00003600 00 00 00 66 69 65 64 30 03 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 65 63 74 6F FF ...fied0♥..♥...☻.......☺...ecto 00003620 FF FF FF FC FF FF FF 01 00 00 00 50 2C 04 00 01 00 00 00 65 72 69 63 60 03 00 00 FD FF FF FF 02 ⁿ ☺...P,♦.☺...eric`♥..² ☻ 00003640 00 00 00 60 89 04 00 01 00 00 00 64 2C 20 77 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 ...`ë♦.☺...d, w ♦...☺.......☺ 00003660 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 65 64 2C 20 FF ... ☻...........☺...ed, 00003680 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 65 20 73 70 FF FF FF FF 02 00 00 00 00 ☻...........☺...e sp ☻.... 000036A0 00 00 00 00 00 00 00 01 00 00 00 22 2D 6D 73 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 .......☺..."-ms ☻...........☺ 000036C0 00 00 00 69 6E 67 2C FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 6D 65 73 FF ...ing, ☻...........☺... mes 000036E0 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 69 66 20 FF FF FF FF 02 00 00 00 00 ☻...........☺... if ☻.... 00003700 00 00 00 00 00 00 00 01 00 00 00 66 61 75 6C 00 00 00 00 78 00 00 00 48 03 00 00 78 03 00 00 90 .......☺...faul....x...H♥..x♥..É 00003720 03 00 00 A8 03 00 00 C0 03 00 00 D8 03 00 00 F0 03 00 00 08 04 00 00 60 00 00 00 FF FF FF FF 03 ♥..¿♥..└♥..╪♥..≡♥..◘♦..`... ♥ 00003740 00 00 00 6E 75 00 07 00 00 00 71 70 72 6F 62 66 00 06 00 00 00 63 68 69 73 71 00 02 00 00 00 7A ...nu.•...qprobf.♠...chisq.☻...z 00003760 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 02 00 00 00 03 00 00 00 6E 75 00 04 00 00 00 .♦...☺.......♦...☻...♥...nu.♦... 00003780 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 00 00 00 ☺.......♦...☺...♦...☺.......♦... 000037A0 02 00 00 00 06 00 00 00 63 68 69 73 71 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 02 00 ☻...♠...chisq.♦...☺.......♦...☻. 000037C0 00 00 06 00 00 00 63 68 69 73 71 00 02 00 00 00 7A 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 ..♠...chisq.☻...z.♦...☺.......♦. 000037E0 00 00 00 00 00 00 78 05 00 00 00 72 65 70 6C 00 00 01 00 00 00 0C 00 00 29 00 00 00 09 00 00 00 ......x♣...repl..☺...♀..)...○... 00003800 05 00 00 00 15 00 00 00 08 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 ♣...§...◘...☻...☺...☺...☺...☺... 00003820 01 00 00 00 08 00 00 00 1C 02 00 00 02 00 00 00 01 00 00 00 09 00 00 00 3C 00 00 00 20 72 23 76 ☺...◘...∟☻..☻...☺...○...<... r#v 00003840 76 20 72 65 70 6C 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 v repl a 00003860 20 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 5B 28 72 3D 31 59 r[(r=1Y 00003880 76 76 29 2F 49 52 72 23 2C 61 5D 23 31 55 76 76 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 vv)/IRr#,a]#1Uvv 000038A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 28 52 61 29 52 72 20 20 20 r#(Ra)Rr 000038C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000038E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00003900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00003920 20 20 20 20 20 20 20 20 20 20 20 20 22 72 65 70 6C 20 2D 20 72 65 70 6C 61 63 65 20 61 6C 6C 20 "repl - replace all 00003940 6F 63 63 75 72 72 65 6E 63 65 73 20 6F 66 20 65 6C 65 6D 65 6E 74 20 69 6E 20 61 72 72 61 79 20 occurrences of element in array 00003960 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 00003980 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 000039A0 62 6D 2E 20 22 76 76 20 69 73 20 61 20 74 77 6F 2D 70 6F 73 69 74 69 6F 6E 20 63 68 61 72 61 63 bm. "vv is a two-position charac 000039C0 74 65 72 20 6F 72 20 6E 75 6D 65 72 69 63 20 76 65 63 74 6F 72 2C 20 61 20 69 73 20 61 6E 20 20 ter or numeric vector, a is an 000039E0 22 61 72 72 61 79 20 6F 66 20 74 68 65 20 73 61 6D 65 20 74 79 70 65 2E 20 61 6C 6C 20 61 70 70 "array of the same type. all app 00003A00 65 61 72 61 6E 63 65 73 20 6F 66 20 31 59 76 76 20 77 69 6C 6C 20 63 68 61 6E 67 65 22 74 6F 20 earances of 1Yvv will change"to 00003A20 31 55 76 76 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 1Uvv. 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 18 00 00 00 FF FF FF FF ↑... 00003A60 FC FF FF FF 0B 00 00 00 A0 2C 04 00 01 00 00 00 00 00 00 00 30 00 00 00 FC FF FF FF 06 00 00 00 ⁿ ♂...á,♦.☺.......0...ⁿ ♠... 00003A80 68 2C 04 00 01 00 00 00 00 00 00 00 00 00 00 00 FC FF FF FF 03 00 00 00 E0 2E 04 00 01 00 00 00 h,♦.☺...........ⁿ ♥...α.♦.☺... 00003AA0 00 00 00 00 60 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 30 00 00 00 ....`...♥...☻.......☺.......0... 00003AC0 FC FF FF FF 01 00 00 00 58 2C 04 00 01 00 00 00 00 00 00 00 90 00 00 00 FC FF FF FF 16 00 00 00 ⁿ ☺...X,♦.☺.......É...ⁿ ▬... 00003AE0 80 2F 04 00 01 00 00 00 00 00 00 00 A8 00 00 00 35 00 00 00 15 00 00 00 00 00 00 00 01 00 00 00 Ç/♦.☺.......¿...5...§.......☺... 00003B00 00 00 00 00 C0 00 00 00 FD FF FF FF 14 00 00 00 80 8E 04 00 01 00 00 00 00 00 00 00 D8 00 00 00 ....└...² ¶...ÇÄ♦.☺.......╪... 00003B20 03 00 00 00 13 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F0 00 00 00 3D 00 00 00 12 00 00 00 ♥...‼.......☺.......≡...=...↕... 00003B40 00 00 00 00 01 00 00 00 00 00 00 00 08 01 00 00 FC FF FF FF 11 00 00 00 F0 2F 04 00 01 00 00 00 ....☺.......◘☺..ⁿ ◄...≡/♦.☺... 00003B60 00 00 00 00 20 01 00 00 0C 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 38 01 00 00 .... ☺..♀...►.......☺.......8☺.. 00003B80 03 00 00 00 0F 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 50 01 00 00 FC FF FF FF 0E 00 00 00 ♥...☼.......☺.......P☺..ⁿ ♫... 00003BA0 30 2D 04 00 01 00 00 00 00 00 00 00 68 01 00 00 32 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 0-♦.☺.......h☺..2...♪.......☺... 00003BC0 00 00 00 00 80 01 00 00 29 00 00 00 0C 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 98 01 00 00 ....Ç☺..)...♀.......☺.......ÿ☺.. 00003BE0 0F 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 B0 01 00 00 09 00 00 00 0A 00 00 00 ☼...♂.......☺.......░☺..○...◙... 00003C00 00 00 00 00 01 00 00 00 00 00 00 00 C8 01 00 00 FC FF FF FF 08 00 00 00 00 20 04 00 01 00 00 00 ....☺.......╚☺..ⁿ ◘.... ♦.☺... 00003C20 00 00 00 00 E0 01 00 00 39 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F8 01 00 00 ....α☺..9...•.......☺.......°☺.. 00003C40 FD FF FF FF 06 00 00 00 40 81 04 00 01 00 00 00 00 00 00 00 10 02 00 00 1D 00 00 00 05 00 00 00 ² ♠...@ü♦.☺.......►☻..↔...♣... 00003C60 00 00 00 00 01 00 00 00 00 00 00 00 28 02 00 00 FC FF FF FF 04 00 00 00 A8 2C 04 00 01 00 00 00 ....☺.......(☻..ⁿ ♦...¿,♦.☺... 00003C80 00 00 00 00 40 02 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 58 02 00 00 ....@☻..◘...♥.......☺.......X☻.. 00003CA0 3B 00 00 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 ;...☻.......☺....... ⁿ ☺... 00003CC0 38 2F 04 00 01 00 00 00 00 00 00 00 88 02 00 00 FC FF FF FF 08 00 00 00 C0 2E 04 00 01 00 00 00 8/♦.☺.......ê☻..ⁿ ◘...└.♦.☺... 00003CE0 00 00 00 00 A0 02 00 00 32 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 B8 02 00 00 ....á☻..2...•.......☺.......╕☻.. 00003D00 09 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 D0 02 00 00 FC FF FF FF 05 00 00 00 ○...♠.......☺.......╨☻..ⁿ ♣... 00003D20 E8 2F 04 00 01 00 00 00 00 00 00 00 E8 02 00 00 32 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 Φ/♦.☺.......Φ☻..2...♦.......☺... 00003D40 00 00 00 00 00 03 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 18 03 00 00 .....♥..◘...♥.......☺.......↑♥.. 00003D60 03 00 00 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 ♥...☻.......☺....... ⁿ ☺... 00003D80 68 2F 04 00 01 00 00 00 00 00 00 00 48 03 00 00 FD FF FF FF 02 00 00 00 E0 88 04 00 01 00 00 00 h/♦.☺.......H♥..² ☻...αê♦.☺... 00003DA0 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 FF FF .... ♦...☺.......☺....... 00003DC0 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 00 ☻...........☺....... ☻....... 00003DE0 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 00 00 ....☺....... ☻...........☺... 00003E00 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 .... ☻...........☺....... 00003E20 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 78 00 00 00 70 02 00 00 ☻...........☺...........x...p☻.. 00003E40 30 03 00 00 60 03 00 00 78 03 00 00 90 03 00 00 A8 03 00 00 C0 03 00 00 60 00 00 00 FF FF FF FF 0♥..`♥..x♥..É♥..¿♥..└♥..`... 00003E60 02 00 00 00 61 00 05 00 00 00 72 65 70 6C 00 03 00 00 00 76 76 00 02 00 00 00 72 00 03 00 00 00 ☻...a.♣...repl.♥...vv.☻...r.♥... 00003E80 76 76 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 61 00 02 00 00 vv.♦...☺.......♦...☺...☻...a.☻.. 00003EA0 00 72 00 03 00 00 00 76 76 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 00 .r.♥...vv.♦...☺.......♦...☺...☻. 00003EC0 00 00 72 00 02 00 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 ..r.☻...r.☻...r.☻...a.☻...r.♦... 00003EE0 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 78 05 00 00 00 72 63 61 74 00 00 01 00 00 00 0C ☺.......♦.......x♣...rcat..☺...♀ 00003F00 00 00 2A 00 00 00 10 00 00 00 05 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 16 00 ..*...►...♣...☺...☺...☺...☺...▬. 00003F20 00 00 02 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 ..☻...☺...☺...☺...☺...☺...☺...☺. 00003F40 00 00 01 00 00 00 01 00 00 00 08 00 00 00 C0 03 00 00 02 00 00 00 01 00 00 00 10 00 00 00 3C 00 ..☺...☺...◘...└♥..☻...☺...►...<. 00003F60 00 00 20 72 23 61 20 72 63 61 74 20 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .. r#a rcat b 00003F80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 "r 00003FA0 6F 77 20 63 61 74 65 6E 61 74 69 6F 6E 2C 73 63 61 6C 61 72 20 72 65 70 6C 69 63 61 74 69 6F 6E ow catenation,scalar replication 00003FC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 66 6F 72 6D cform 00003FE0 61 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 at 00004000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6D 61 74 72 69 78 20 20 cmatrix 00004020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6F 6C 66 6F 72 6D 20 20 20 20 20 20 colform 00004060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 27 72 23 76 65 72 74 20 61 2C 27 2C 28 28 30 5E C'r#vert a,',((0^ 000040A0 3D 28 52 52 61 29 2B 52 52 62 29 2F 27 5B 4C 69 6F 5D 27 29 2C 27 62 27 20 20 20 20 20 20 20 20 =(RRa)+RRb)/'[Lio]'),'b' 000040C0 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 000040E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004100 20 20 20 20 20 20 22 72 63 61 74 20 2D 20 63 61 74 65 6E 61 74 65 20 62 79 20 72 6F 77 73 2E 20 "rcat - catenate by rows. 00004120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004140 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 00004160 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 2D hniques' copyright 1978, ibm. "- 00004180 6F 76 65 72 2D 75 6E 64 65 72 20 63 61 74 65 6E 61 74 69 6F 6E 20 6F 66 20 67 65 6E 65 72 61 6C over-under catenation of general 000041A0 20 73 74 72 75 63 74 75 72 65 73 20 61 6E 64 20 74 79 70 65 73 2E 20 20 20 20 22 2D 73 63 61 6C structures and types. "-scal 000041C0 61 72 73 20 77 69 6C 6C 20 62 65 20 72 65 70 6C 69 63 61 74 65 64 2E 20 20 20 20 20 20 20 20 20 ars will be replicated. 000041E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 70 61 64 64 69 6E 67 20 "-padding 00004200 77 69 6C 6C 20 62 65 20 62 6C 61 6E 6B 20 66 6F 72 20 63 68 61 72 61 63 74 65 72 73 2C 20 7A 65 will be blank for characters, ze 00004220 72 6F 20 66 6F 72 20 6E 75 6D 62 65 72 73 2E 20 20 20 22 2D 6E 75 6D 65 72 69 63 20 74 79 70 65 ro for numbers. "-numeric type 00004240 73 20 77 69 6C 6C 20 62 65 20 66 6F 72 6D 61 74 74 65 64 20 69 66 20 74 6F 20 62 65 20 63 61 74 s will be formatted if to be cat 00004260 65 6E 61 74 65 64 20 74 6F 20 20 20 20 20 22 2D 63 68 61 72 61 63 74 65 72 20 74 79 70 65 73 2E enated to "-character types. 00004280 20 73 65 65 3A 20 47 6F 6E 20 47 63 63 61 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 see: Gon Gccat 000042A0 20 20 20 20 20 20 20 20 20 20 22 2D 61 20 6D 61 74 72 69 78 20 69 73 20 72 65 74 75 72 6E 65 64 "-a matrix is returned 000042C0 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 . 000042E0 20 20 20 20 20 20 22 75 73 65 73 3A 20 47 63 66 6F 72 6D 61 74 20 43 6D 61 74 72 69 78 20 47 63 "uses: Gcformat Cmatrix Gc 00004300 6F 6C 66 6F 72 6D 20 47 76 65 72 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 olform Gvert 00004320 20 20 18 00 00 00 FF FF FF FF FC FF FF FF 0A 00 00 00 58 2F 04 00 01 00 00 00 01 00 00 00 30 00 ↑... ⁿ ◙...X/♦.☺...☺...0. 00004340 00 00 FC FF FF FF 05 00 00 00 30 2F 04 00 01 00 00 00 20 20 20 20 00 00 00 00 FC FF FF FF 03 00 ..ⁿ ♣...0/♦.☺... ....ⁿ ♥. 00004360 00 00 D8 2D 04 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 ..╪-♦.☺... `...♥...☻.......☺. 00004380 00 00 22 72 6F 77 30 00 00 00 FC FF FF FF 01 00 00 00 20 27 04 00 01 00 00 00 65 70 6C 69 FF FF .."row0...ⁿ ☺... '♦.☺...epli 000043A0 FF 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 FC FF FF FF 01 00 ☻...........☺... ⁿ ☺. 000043C0 00 00 B0 2D 04 00 01 00 00 00 20 20 20 20 FF FF FF FF FC FF FF FF 01 00 00 00 28 2F 04 00 01 00 ..░-♦.☺... ⁿ ☺...(/♦.☺. 000043E0 00 00 20 20 20 20 FF FF FF FF FC FF FF FF 01 00 00 00 08 2F 04 00 01 00 00 00 20 63 6D 61 F0 00 .. ⁿ ☺...◘/♦.☺... cma≡. 00004400 00 00 07 00 00 00 27 00 00 00 A0 89 04 00 01 00 00 00 20 20 20 20 08 01 00 00 0C 00 00 00 26 00 ..•...'...áë♦.☺... ◘☺..♀...&. 00004420 00 00 00 00 00 00 01 00 00 00 20 20 20 20 20 01 00 00 09 00 00 00 25 00 00 00 00 00 00 00 01 00 ......☺... ☺..○...%.......☺. 00004440 00 00 20 20 20 20 38 01 00 00 07 00 00 00 1E 00 00 00 40 BA 05 00 01 00 00 00 20 20 20 20 50 01 .. 8☺..•...▲...@║♣.☺... P☺ 00004460 00 00 0F 00 00 00 1D 00 00 00 00 00 00 00 01 00 00 00 20 43 27 72 68 01 00 00 09 00 00 00 1C 00 ..☼...↔.......☺... C'rh☺..○...∟. 00004480 00 00 00 00 00 00 01 00 00 00 2B 52 52 62 80 01 00 00 FC FF FF FF 1B 00 00 00 20 2C 04 00 01 00 ......☺...+RRbÇ☺..ⁿ ←... ,♦.☺. 000044A0 00 00 20 20 20 20 98 01 00 00 32 00 00 00 1A 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 B0 01 .. ÿ☺..2...→.......☺... ░☺ 000044C0 00 00 32 00 00 00 19 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 C8 01 00 00 0B 00 00 00 18 00 ..2...↓.......☺... ╚☺..♂...↑. 000044E0 00 00 00 00 00 00 01 00 00 00 22 72 63 61 E0 01 00 00 09 00 00 00 17 00 00 00 00 00 00 00 01 00 ......☺..."rcaα☺..○...↨.......☺. 00004500 00 00 2E 20 20 20 F8 01 00 00 FC FF FF FF 16 00 00 00 A8 2D 04 00 01 00 00 00 20 20 20 20 10 02 ... °☺..ⁿ ▬...¿-♦.☺... ►☻ 00004520 00 00 32 00 00 00 15 00 00 00 00 00 00 00 01 00 00 00 70 6C 20 68 28 02 00 00 32 00 00 00 14 00 ..2...§.......☺...pl h(☻..2...¶. 00004540 00 00 00 00 00 00 01 00 00 00 73 27 20 63 40 02 00 00 08 00 00 00 13 00 00 00 00 00 00 00 01 00 ......☺...s' c@☻..◘...‼.......☺. 00004560 00 00 22 2D 6F 76 58 02 00 00 3E 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 6F 66 20 67 70 02 .."-ovX☻..>...◄.......☺...of gp☻ 00004580 00 00 FD FF FF FF 10 00 00 00 E0 82 04 00 01 00 00 00 64 20 74 79 88 02 00 00 08 00 00 00 0F 00 ..² ►...αé♦.☺...d tyê☻..◘...☼. 000045A0 00 00 00 00 00 00 01 00 00 00 6C 6C 20 62 A0 02 00 00 08 00 00 00 0E 00 00 00 00 00 00 00 01 00 ......☺...ll bá☻..◘...♫.......☺. 000045C0 00 00 20 20 20 20 B8 02 00 00 0C 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 22 2D 70 61 D0 02 .. ╕☻..♀...♪.......☺..."-pa╨☻ 000045E0 00 00 07 00 00 00 02 00 00 00 40 B8 05 00 01 00 00 00 66 6F 72 20 FF FF FF FF 23 00 00 00 01 00 ..•...☻...@╕♣.☺...for #...☺. 00004600 00 00 00 00 00 00 01 00 00 00 20 6E 75 6D 00 03 00 00 FD FF FF FF 02 00 00 00 40 85 04 00 01 00 ......☺... num.♥..² ☻...@à♦.☺. 00004620 00 00 70 65 73 20 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 20 74 6F 20 FF FF ..pes ♦...☺.......☺... to 00004640 FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 22 2D 63 68 FF FF FF FF 02 00 00 00 00 00 ☻...........☺..."-ch ☻..... 00004660 00 00 00 00 00 00 01 00 00 00 47 6F 6E 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 ......☺...Gon ☻...........☺. 00004680 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 73 20 72 65 FF FF .. ☻...........☺...s re 000046A0 FF 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 ☻...........☺... ☻..... 000046C0 00 00 00 00 00 00 01 00 00 00 00 FF FF FF FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 ......☺.... ☻...........☺. 000046E0 00 00 03 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 3D 00 00 00 FF FF ..♥... ☻...........☺...=... 00004700 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 78 00 00 00 90 00 ☻...........☺...ⁿ ....x...É. 00004720 00 00 A8 00 00 00 C0 00 00 00 D8 00 00 00 E8 02 00 00 18 03 00 00 30 03 00 00 48 03 00 00 60 03 ..¿...└...╪...Φ☻..↑♥..0♥..H♥..`♥ 00004740 00 00 78 03 00 00 90 03 00 00 A8 03 00 00 C0 03 00 00 D8 03 00 00 60 00 00 00 FF FF FF FF 02 00 ..x♥..É♥..¿♥..└♥..╪♥..`... ☻. 00004760 00 00 62 00 05 00 00 00 72 63 61 74 00 02 00 00 00 61 00 02 00 00 00 72 00 08 00 00 00 63 66 6F ..b.♣...rcat.☻...a.☻...r.◘...cfo 00004780 72 6D 61 74 00 08 00 00 00 63 6D 61 74 72 69 78 00 08 00 00 00 63 6F 6C 66 6F 72 6D 00 08 00 00 rmat.◘...cmatrix.◘...colform.◘.. 000047A0 00 01 00 00 00 00 00 00 00 01 00 00 00 62 08 00 00 00 05 00 00 00 01 00 00 00 01 00 00 00 05 00 .☺.......☺...b◘...♣...☺...☺...♣. 000047C0 00 00 5B 4C 69 6F 5D 02 00 00 00 62 00 02 00 00 00 61 00 04 00 00 00 01 00 00 00 00 00 00 00 04 ..[Lio]☻...b.☻...a.♦...☺.......♦ 000047E0 00 00 00 00 00 00 00 08 00 00 00 09 00 00 00 01 00 00 00 01 00 00 00 09 00 00 00 72 23 76 65 72 .......◘...○...☺...☺...○...r#ver 00004800 74 20 61 2C 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 72 6A 75 t a,♦...☺.......♦.......x♠...rju 00004820 73 74 00 00 01 00 00 00 0C 00 00 15 00 00 00 0A 00 00 00 05 00 00 00 07 00 00 00 02 00 00 00 01 st..☺...♀..§...◙...♣...•...☻...☺ 00004840 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 08 00 00 00 58 ...☺...☺...☺...☺...☺...☺...◘...X 00004860 02 00 00 02 00 00 00 01 00 00 00 0A 00 00 00 3C 00 00 00 20 72 23 76 20 72 6A 75 73 74 20 61 20 ☻..☻...☺...◙...<... r#v rjust a 00004880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000048A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 60 4F 76 20 6C 6A 75 73 74 60 4F 61 20 20 r#`Ov ljust`Oa 000048C0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000048E0 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00004900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004920 20 20 20 20 20 20 20 22 72 6A 75 73 74 20 2D 20 72 69 67 68 74 20 6A 75 73 74 69 66 79 20 61 6E "rjust - right justify an 00004940 79 20 61 72 72 61 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 y array 00004960 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 "from 'the apl handbook of te 00004980 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 22 chniques' copyright 1978, ibm. " 000049A0 2D 74 6F 20 73 68 69 66 74 20 73 69 67 6E 69 66 69 63 61 6E 74 20 63 68 61 72 61 63 74 65 72 73 -to shift significant characters 000049C0 20 6F 72 20 6E 75 6D 65 72 69 63 20 76 61 6C 75 65 73 20 74 6F 20 20 20 20 20 20 22 20 72 69 67 or numeric values to " rig 000049E0 68 74 6D 6F 73 74 20 70 6F 73 69 74 69 6F 6E 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 htmost positions. 00004A00 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 69 6E 73 69 67 6E 69 "-insigni 00004A20 66 69 63 61 6E 74 20 76 61 6C 75 65 73 20 6F 72 20 63 68 61 72 61 63 74 65 72 73 20 61 72 65 20 ficant values or characters are 00004A40 64 65 66 69 6E 65 64 20 69 6E 20 76 2E 20 20 20 20 20 20 22 20 74 68 65 79 20 63 61 6E 20 62 65 defined in v. " they can be 00004A60 20 74 72 75 6E 63 61 74 65 64 20 62 79 20 64 74 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 truncated by dt. 00004A80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 72 69 67 68 74 20 6A 75 73 74 69 66 69 63 61 "-right justifica 00004AA0 74 69 6F 6E 20 69 73 20 74 68 65 20 72 65 76 65 72 73 61 6C 20 6F 66 20 6C 65 66 74 20 6A 75 73 tion is the reversal of left jus 00004AC0 74 69 66 69 63 61 74 69 6F 6E 2E 18 00 00 00 FF FF FF FF FC FF FF FF 0B 00 00 00 70 2D 04 00 01 tification.↑... ⁿ ♂...p-♦.☺ 00004AE0 00 00 00 01 00 00 00 30 00 00 00 FC FF FF FF 05 00 00 00 80 2C 04 00 01 00 00 00 20 20 20 20 00 ...☺...0...ⁿ ♣...Ç,♦.☺... . 00004B00 00 00 00 FC FF FF FF 03 00 00 00 28 2D 04 00 01 00 00 00 20 20 20 20 60 00 00 00 03 00 00 00 02 ...ⁿ ♥...(-♦.☺... `...♥...☻ 00004B20 00 00 00 00 00 00 00 01 00 00 00 20 72 23 60 30 00 00 00 FC FF FF FF 01 00 00 00 78 2E 04 00 01 .......☺... r#`0...ⁿ ☺...x.♦.☺ 00004B40 00 00 00 20 20 20 20 90 00 00 00 FC FF FF FF 0E 00 00 00 C8 2D 04 00 01 00 00 00 20 20 20 20 A8 ... É...ⁿ ♫...╚-♦.☺... ¿ 00004B60 00 00 00 46 00 00 00 0C 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 C0 00 00 00 FC FF FF FF 07 ...F...♀.......☺... └...ⁿ • 00004B80 00 00 00 60 2D 04 00 01 00 00 00 20 20 20 20 D8 00 00 00 FC FF FF FF 05 00 00 00 B0 2E 04 00 01 ...`-♦.☺... ╪...ⁿ ♣...░.♦.☺ 00004BA0 00 00 00 22 72 6A 75 F0 00 00 00 46 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 6E 79 20 61 08 ..."rju≡...F...♥.......☺...ny a◘ 00004BC0 01 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF FC FF FF FF 01 ☺..♥...☻.......☺... ⁿ ☺ 00004BE0 00 00 00 98 2D 04 00 01 00 00 00 70 6C 20 68 38 01 00 00 FD FF FF FF 02 00 00 00 20 89 04 00 01 ...ÿ-♦.☺...pl h8☺..² ☻... ë♦.☺ 00004C00 00 00 00 73 27 20 63 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 00 66 72 6F FF ...s' c ♦...☺.......☺....fro 00004C20 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 6F 66 20 74 FF FF FF FF 02 00 00 00 00 ☻...........☺...of t ☻.... 00004C40 00 00 00 00 00 00 00 01 00 00 00 20 31 39 37 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 .......☺... 197 ☻...........☺ 00004C60 00 00 00 6E 64 73 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 74 68 65 20 FF ...nds ☻...........☺...the 00004C80 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 20 6F 72 FF FF FF FF 02 00 00 00 00 ☻...........☺.... or ☻.... 00004CA0 00 00 00 00 00 00 00 01 00 00 00 6E 20 20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 .......☺...n ☻...........☺ 00004CC0 00 00 00 00 00 00 00 00 00 00 00 78 00 00 00 20 01 00 00 50 01 00 00 68 01 00 00 80 01 00 00 98 ...........x... ☺..P☺..h☺..Ç☺..ÿ 00004CE0 01 00 00 B0 01 00 00 C8 01 00 00 E0 01 00 00 60 00 00 00 FF FF FF FF 02 00 00 00 61 00 06 00 00 ☺..░☺..╚☺..α☺..`... ☻...a.♠.. 00004D00 00 72 6A 75 73 74 00 02 00 00 00 76 00 02 00 00 00 72 00 02 00 00 00 61 00 06 00 00 00 6C 6A 75 .rjust.☻...v.☻...r.☻...a.♠...lju 00004D20 73 74 00 02 00 00 00 76 00 02 00 00 00 72 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 st.☻...v.☻...r.♦...☺.......♦.... 00004D40 00 00 00 78 07 00 00 00 72 6F 75 6E 64 73 00 00 01 00 00 00 0C 00 00 1C 00 00 00 09 00 00 00 05 ...x•...rounds..☺...♀..∟...○...♣ 00004D60 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 10 ...☺...☺...☺...☺...☺...☺...☺...► 00004D80 00 00 00 08 00 00 00 25 02 00 00 02 00 00 00 01 00 00 00 09 00 00 00 3D 00 00 00 20 72 20 23 20 ...◘...%☻..☻...☺...○...=... r # 00004DA0 75 20 72 6F 75 6E 64 73 20 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 u rounds a 00004DC0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 72 6F 75 6E 64 73 20 "rounds 00004DE0 2D 20 73 65 6C 65 63 74 69 76 65 20 73 79 6D 6D 65 74 72 69 63 61 6C 20 72 6F 75 6E 64 69 6E 67 - selective symmetrical rounding 00004E00 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 00004E20 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 00004E40 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 22 2D 74 6F 20 72 6F 75 6E 64 6F 66 66 20 right 1978, ibm. "-to roundoff 00004E60 6E 75 6D 62 65 72 73 20 74 6F 20 61 6E 79 20 67 69 76 65 6E 20 75 6E 69 74 73 20 20 20 20 20 20 numbers to any given units 00004E80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 74 6F 20 72 6F 75 6E 64 20 6E 65 67 61 74 69 "-to round negati 00004EA0 76 65 20 6E 75 6D 62 65 72 73 20 61 77 61 79 20 66 72 6F 6D 20 7A 65 72 6F 20 20 20 20 20 20 20 ve numbers away from zero 00004EC0 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 72 65 73 75 6C 74 20 77 69 6C 6C 20 62 65 20 74 68 65 "-result will be the 00004EE0 20 6E 65 61 72 65 73 74 20 6D 75 6C 74 69 70 6C 65 20 6F 66 20 74 68 65 20 63 6F 72 72 65 73 70 nearest multiple of the corresp 00004F00 6F 6E 64 69 6E 67 20 20 20 22 20 75 6E 69 74 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 onding " unit. 00004F20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004F40 20 20 20 20 20 20 22 75 20 69 73 20 61 20 73 63 61 6C 61 72 20 6F 72 20 63 6F 6E 66 6F 72 6D 61 "u is a scalar or conforma 00004F60 62 6C 65 20 73 74 72 75 63 74 75 72 65 20 6F 66 20 73 70 65 63 69 66 69 65 64 20 75 6E 69 74 73 ble structure of specified units 00004F80 20 20 20 20 72 23 28 58 61 29 58 75 58 44 30 2E 35 2B 7C 61 25 75 20 20 20 20 20 20 20 20 20 20 r#(Xa)XuXD0.5+|a%u 00004FA0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00004FC0 18 00 00 00 FF FF FF FF FC FF FF FF 0E 00 00 00 70 28 04 00 01 00 00 00 00 00 00 00 30 00 00 00 ↑... ⁿ ♫...p(♦.☺.......0... 00004FE0 FC FF FF FF 07 00 00 00 30 28 04 00 01 00 00 00 00 00 00 00 00 00 00 00 FC FF FF FF 05 00 00 00 ⁿ •...0(♦.☺...........ⁿ ♣... 00005000 D0 2D 04 00 01 00 00 00 80 56 05 00 60 00 00 00 03 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 ╨-♦.☺...ÇV♣.`...♥...♥.......☺... 00005020 08 00 00 00 30 00 00 00 FC FF FF FF 01 00 00 00 78 28 04 00 01 00 00 00 04 00 00 00 FF FF FF FF ◘...0...ⁿ ☺...x(♦.☺...♦... 00005040 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 00 ☻...........☺....... ☻....... 00005060 00 00 00 00 01 00 00 00 C0 5B 05 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 ....☺...└[♣. ☻...........☺... 00005080 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 .... ☻...........☺....... 000050A0 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 00 ☻...........☺....... ☻....... 000050C0 00 00 00 00 01 00 00 00 80 5B 05 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 ....☺...Ç[♣. ☻...........☺... 000050E0 00 00 F0 3F 38 01 00 00 FC FF FF FF 12 00 00 00 20 28 04 00 01 00 00 00 04 00 00 00 50 01 00 00 ..≡?8☺..ⁿ ↕... (♦.☺...♦...P☺.. 00005100 05 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 68 01 00 00 FC FF FF FF 10 00 00 00 ♣...◄.......☺.......h☺..ⁿ ►... 00005120 38 28 04 00 01 00 00 00 80 5D 05 00 80 01 00 00 83 00 00 00 0F 00 00 00 00 00 00 00 01 00 00 00 8(♦.☺...Ç]♣.Ç☺..â...☼.......☺... 00005140 01 00 00 00 98 01 00 00 0B 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 B0 01 00 00 ☺...ÿ☺..♂...♫.......☺...♦...░☺.. 00005160 FD FF FF FF 0B 00 00 00 C0 BD 05 00 01 00 00 00 00 00 00 00 C8 01 00 00 24 00 00 00 0A 00 00 00 ² ♂...└╜♣.☺.......╚☺..$...◙... 00005180 00 00 00 00 01 00 00 00 60 57 05 00 E0 01 00 00 38 00 00 00 09 00 00 00 00 00 00 00 01 00 00 00 ....☺...`W♣.α☺..8...○.......☺... 000051A0 00 00 00 00 F8 01 00 00 FC FF FF FF 08 00 00 00 48 28 04 00 01 00 00 00 04 00 00 00 10 02 00 00 ....°☺..ⁿ ◘...H(♦.☺...♦...►☻.. 000051C0 38 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 28 02 00 00 09 00 00 00 06 00 00 00 8...•.......☺.......(☻..○...♠... 000051E0 00 00 00 00 01 00 00 00 60 5B 05 00 40 02 00 00 FC FF FF FF 05 00 00 00 E8 27 04 00 01 00 00 00 ....☺...`[♣.@☻..ⁿ ♣...Φ'♦.☺... 00005200 01 00 00 00 58 02 00 00 38 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 70 02 00 00 ☺...X☻..8...♦.......☺...♦...p☻.. 00005220 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 88 02 00 00 03 00 00 00 02 00 00 00 ◘...♥.......☺.......ê☻..♥...☻... 00005240 00 00 00 00 01 00 00 00 80 51 05 00 FF FF FF FF FC FF FF FF 01 00 00 00 60 28 04 00 01 00 00 00 ....☺...ÇQ♣. ⁿ ☺...`(♦.☺... 00005260 01 00 00 00 00 00 00 00 78 00 00 00 90 00 00 00 A8 00 00 00 C0 00 00 00 D8 00 00 00 F0 00 00 00 ☺.......x...É...¿...└...╪...≡... 00005280 08 01 00 00 20 01 00 00 60 00 00 00 FF FF FF FF 02 00 00 00 61 00 07 00 00 00 72 6F 75 6E 64 73 ◘☺.. ☺..`... ☻...a.•...rounds 000052A0 00 02 00 00 00 75 00 02 00 00 00 72 00 02 00 00 00 75 00 02 00 00 00 61 00 02 00 00 00 01 00 00 .☻...u.☻...r.☻...u.☻...a.☻...☺.. 000052C0 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 E0 3F 02 00 00 00 75 00 02 00 00 00 61 00 02 00 00 .....◘.........α?☻...u.☻...a.☻.. 000052E0 00 72 00 78 0B 00 00 00 72 6F 77 69 6E 64 69 63 65 73 00 00 01 00 00 00 0C 00 00 1E 00 00 00 04 .r.x♂...rowindices..☺...♀..▲...♦ 00005300 00 00 00 07 00 00 00 01 00 00 00 01 00 00 00 15 00 00 00 08 00 00 00 F0 00 00 00 02 00 00 00 01 ...•...☺...☺...§...◘...≡...☻...☺ 00005320 00 00 00 04 00 00 00 3C 00 00 00 72 20 23 20 6E 20 72 6F 77 69 6E 64 69 63 65 73 20 6D 3B 4C 69 ...♦...<...r # n rowindices m;Li 00005340 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 00005360 20 20 20 20 20 20 20 22 72 6F 77 69 6E 64 69 63 65 73 20 2D 20 66 69 72 73 74 20 6F 72 20 6C 61 "rowindices - first or la 00005380 73 74 20 6E 20 72 6F 77 6E 75 6D 62 65 72 73 20 6F 66 20 6D 61 74 72 69 78 2E 20 20 20 20 20 20 st n rownumbers of matrix. 000053A0 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 74 65 "from 'the apl handbook of te 000053C0 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 20 chniques' copyright 1978, ibm. 000053E0 72 23 28 72 5E 3D 30 29 2F 72 23 6E 59 49 31 59 52 6D 20 48 20 4C 69 6F 23 31 20 20 20 20 20 20 r#(r^=0)/r#nYI1YRm H Lio#1 00005400 20 20 20 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 H... 00005420 FF FF FF ED FF FF FF 13 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 30 00 00 00 1B 00 00 00 12 φ ‼.......☺...♦...0...←...↕ 00005440 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 FC FF FF FF 11 00 00 00 78 21 04 00 01 .......☺...☺.......ⁿ ◄...x!♦.☺ 00005460 00 00 00 A0 5D 05 00 60 00 00 00 FC FF FF FF 06 00 00 00 20 5F 04 00 01 00 00 00 00 00 00 00 30 ...á]♣.`...ⁿ ♠... _♦.☺.......0 00005480 00 00 00 FC FF FF FF 04 00 00 00 80 21 04 00 01 00 00 00 04 00 00 00 90 00 00 00 03 00 00 00 02 ...ⁿ ♦...Ç!♦.☺...♦...É...♥...☻ 000054A0 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 60 00 00 00 FC FF FF FF 00 00 00 00 38 29 04 00 01 .......☺.......`...ⁿ ....8)♦.☺ 000054C0 00 00 00 C0 5E 05 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 ...└^♣. ☻...........☺....... 000054E0 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 F0 00 00 00 FD FF FF FF 1A ☻...........☺...♦...≡...² → 00005500 00 00 00 A0 84 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 ...áä♦.☺.......◘☺..♥...↓.......☺ 00005520 00 00 00 40 55 05 00 20 01 00 00 ED FF FF FF 16 00 00 00 00 00 00 00 01 00 00 00 0F 00 00 00 38 ...@U♣. ☺..φ ▬.......☺...☼...8 00005540 01 00 00 FC FF FF FF 14 00 00 00 A8 21 04 00 01 00 00 00 20 F7 05 00 50 01 00 00 FC FF FF FF 12 ☺..ⁿ ¶...¿!♦.☺... ≈♣.P☺..ⁿ ↕ 00005560 00 00 00 B0 21 04 00 01 00 00 00 00 00 00 00 68 01 00 00 32 00 00 00 11 00 00 00 00 00 00 00 01 ...░!♦.☺.......h☺..2...◄.......☺ 00005580 00 00 00 20 52 05 00 80 01 00 00 39 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 98 ... R♣.Ç☺..9...►.......☺.......ÿ 000055A0 01 00 00 FD FF FF FF 0F 00 00 00 20 8E 04 00 01 00 00 00 04 00 00 00 B0 01 00 00 29 00 00 00 0E ☺..² ☼... Ä♦.☺...♦...░☺..)...♫ 000055C0 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 C8 01 00 00 39 00 00 00 0D 00 00 00 00 00 00 00 01 .......☺.......╚☺..9...♪.......☺ 000055E0 00 00 00 20 58 05 00 E0 01 00 00 FC FF FF FF 0C 00 00 00 58 21 04 00 01 00 00 00 00 00 F0 3F F8 ... X♣.α☺..ⁿ ♀...X!♦.☺.....≡?° 00005600 01 00 00 03 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 10 02 00 00 FC FF FF FF 0A ☺..♥...♂.......☺...♦...►☻..ⁿ ◙ 00005620 00 00 00 60 21 04 00 01 00 00 00 00 00 00 00 28 02 00 00 0F 00 00 00 09 00 00 00 00 00 00 00 01 ...`!♦.☺.......(☻..☼...○.......☺ 00005640 00 00 00 80 5A 05 00 40 02 00 00 09 00 00 00 08 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 58 ...ÇZ♣.@☻..○...◘.......☺...☺...X 00005660 02 00 00 FD FF FF FF 07 00 00 00 E0 8A 04 00 01 00 00 00 01 00 00 00 70 02 00 00 3E 00 00 00 05 ☻..² •...αè♦.☺...☺...p☻..>...♣ 00005680 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 88 02 00 00 FC FF FF FF 04 00 00 00 68 21 04 00 01 .......☺.......ê☻..ⁿ ♦...h!♦.☺ 000056A0 00 00 00 60 59 05 00 A0 02 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 B8 ...`Y♣.á☻..◘...♥.......☺.......╕ 000056C0 02 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 FF FF FF FF FC FF FF FF 01 ☻..♥...☻.......☺...♦... ⁿ ☺ 000056E0 00 00 00 70 21 04 00 01 00 00 00 00 00 00 00 00 00 00 00 A8 00 00 00 C0 00 00 00 D8 00 00 00 90 ...p!♦.☺...........¿...└...╪...É 00005700 00 00 00 FF FF FF FF 02 00 00 00 6D 00 0B 00 00 00 72 6F 77 69 6E 64 69 63 65 73 00 02 00 00 00 ... ☻...m.♂...rowindices.☻... 00005720 6E 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 00 n.☻...r.♦...☺.......♦...☺...☻... 00005740 48 00 02 00 00 00 6D 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 H.☻...m.♦...☺.......♦...☺...☻... 00005760 6E 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 02 00 00 00 n.☻...r.♦...☺.......♦.......☻... 00005780 72 00 02 00 00 00 72 00 78 08 00 00 00 72 6F 77 66 6F 72 6D 00 00 01 00 00 00 01 00 00 3D 00 00 r.☻...r.x◘...rowform..☺...☺..=.. 000057A0 00 07 00 00 00 03 00 00 00 0E 00 00 00 27 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 01 00 00 .•...♥...♫...'...☻...☺...☺...☺.. 000057C0 00 08 00 00 00 A4 01 00 00 02 00 00 00 01 00 00 00 07 00 00 00 3C 00 00 00 20 72 6F 77 66 6F 72 .◘...ñ☺..☻...☺...•...<... rowfor 000057E0 6D 3B 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 m;r 00005800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 69 66 20 30 3D 28 52 $0 if 0=(R 00005820 52 61 29 58 52 52 62 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 Ra)XRRb 00005840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 23 28 72 2C 31 55 52 61 29 59 61 20 48 a#(r,1URa)Ya H 00005860 20 62 23 28 28 72 23 28 31 59 52 61 29 53 31 59 52 62 29 2C 31 55 52 62 29 59 62 20 20 20 20 20 b#((r#(1YRa)S1YRb),1URb)Yb 00005880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 000058A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 000058C0 20 20 20 20 20 20 20 20 20 22 72 6F 77 66 6F 72 6D 20 69 73 20 75 73 65 64 20 62 79 20 65 2E 67 "rowform is used by e.g 000058E0 2E 20 63 63 61 74 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 . ccat. 00005900 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 62 6F 6F 6B 20 6F 66 20 "from 'the apl handbook of 00005920 74 65 63 68 6E 69 71 75 65 73 27 20 63 6F 70 79 72 69 67 68 74 20 31 39 37 38 2C 20 69 62 6D 2E techniques' copyright 1978, ibm. 00005940 20 22 61 73 73 75 6D 65 73 20 6C 6F 63 61 6C 69 7A 65 64 20 61 20 61 6E 64 20 62 2E 20 20 20 20 "assumes localized a and b. 00005960 20 20 20 20 20 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 00 0.. 00005980 00 FF FF FF FF FC FF FF FF 09 00 00 00 58 29 04 00 01 00 00 00 01 00 00 00 30 00 00 00 1B 00 00 . ⁿ ○...X)♦.☺...☺...0...←.. 000059A0 00 08 00 00 00 00 00 00 00 01 00 00 00 61 20 20 20 FF FF FF FF FC FF FF FF 01 00 00 00 28 28 04 .◘.......☺...a ⁿ ☺...((♦ 000059C0 00 01 00 00 00 20 20 20 20 60 00 00 00 FC FF FF FF 11 00 00 00 98 27 04 00 01 00 00 00 20 72 23 .☺... `...ⁿ ◄...ÿ'♦.☺... r# 000059E0 27 78 00 00 00 32 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 5C 72 45 6B 90 00 00 00 32 00 00 'x...2...►.......☺...\rEkÉ...2.. 00005A00 00 0F 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 A8 00 00 00 38 00 00 00 0E 00 00 00 00 00 00 .☼.......☺... ¿...8...♫...... 00005A20 00 01 00 00 00 65 75 70 20 C0 00 00 00 09 00 00 00 0D 00 00 00 00 00 00 00 01 00 00 00 20 20 20 .☺...eup └...○...♪.......☺... 00005A40 20 D8 00 00 00 FC FF FF FF 0C 00 00 00 50 29 04 00 01 00 00 00 20 24 30 20 F0 00 00 00 32 00 00 ╪...ⁿ ♀...P)♦.☺... $0 ≡...2.. 00005A60 00 0B 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 08 01 00 00 32 00 00 00 0A 00 00 00 00 00 00 .♂.......☺... ◘☺..2...◙...... 00005A80 00 01 00 00 00 20 20 20 20 20 01 00 00 08 00 00 00 09 00 00 00 00 00 00 00 01 00 00 00 72 61 63 .☺... ☺..◘...○.......☺...rac 00005AA0 74 38 01 00 00 1D 00 00 00 08 00 00 00 00 00 00 00 01 00 00 00 63 68 61 72 50 01 00 00 FD FF FF t8☺..↔...◘.......☺...charP☺..² 00005AC0 FF 07 00 00 00 80 85 04 00 01 00 00 00 22 66 72 6F 68 01 00 00 FC FF FF FF 04 00 00 00 E8 29 04 •...Çà♦.☺..."froh☺..ⁿ ♦...Φ)♦ 00005AE0 00 01 00 00 00 6F 66 20 74 80 01 00 00 FD FF FF FF 02 00 00 00 20 86 04 00 01 00 00 00 20 31 39 .☺...of tÇ☺..² ☻... å♦.☺... 19 00005B00 37 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 20 6E 6F 6E B0 01 00 00 FC FF FF 7 ♦...☺.......☺... non░☺..ⁿ 00005B20 FF 29 00 00 00 B8 21 04 00 01 00 00 00 64 65 6D 61 C8 01 00 00 39 00 00 00 28 00 00 00 00 00 00 )...╕!♦.☺...dema╚☺..9...(...... 00005B40 00 01 00 00 00 22 20 63 68 E0 01 00 00 09 00 00 00 27 00 00 00 00 00 00 00 01 00 00 00 73 20 6B .☺..." chα☺..○...'.......☺...s k 00005B60 76 F8 01 00 00 FC FF FF FF 26 00 00 00 C0 21 04 00 01 00 00 00 20 73 68 61 10 02 00 00 32 00 00 v°☺..ⁿ &...└!♦.☺... sha►☻..2.. 00005B80 00 25 00 00 00 00 00 00 00 01 00 00 00 61 6E 64 20 28 02 00 00 35 00 00 00 24 00 00 00 00 00 00 .%.......☺...and (☻..5...$...... 00005BA0 00 01 00 00 00 20 20 20 20 40 02 00 00 FD FF FF FF 23 00 00 00 20 08 05 00 01 00 00 00 22 2D 75 .☺... @☻..² #... ◘♣.☺..."-u 00005BC0 73 58 02 00 00 0C 00 00 00 22 00 00 00 00 00 00 00 01 00 00 00 28 61 6E 64 70 02 00 00 09 00 00 sX☻..♀...".......☺...(andp☻..○.. 00005BE0 00 21 00 00 00 00 00 00 00 01 00 00 00 22 29 20 20 88 02 00 00 FC FF FF FF 20 00 00 00 C8 21 04 .!.......☺...") ê☻..ⁿ ...╚!♦ 00005C00 00 01 00 00 00 00 00 00 00 A0 02 00 00 32 00 00 00 1F 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺.......á☻..2...▼.......☺...... 00005C20 00 B8 02 00 00 39 00 00 00 1E 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 D0 02 00 00 FD FF FF .╕☻..9...▲.......☺.......╨☻..² 00005C40 FF 1D 00 00 00 00 07 05 00 01 00 00 00 00 00 00 00 E8 02 00 00 33 00 00 00 1C 00 00 00 00 00 00 ↔....•♣.☺.......Φ☻..3...∟...... 00005C60 00 01 00 00 00 00 00 00 00 00 03 00 00 09 00 00 00 1B 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺........♥..○...←.......☺...... 00005C80 00 18 03 00 00 FC FF FF FF 1A 00 00 00 D0 21 04 00 01 00 00 00 00 00 00 00 30 03 00 00 32 00 00 .↑♥..ⁿ →...╨!♦.☺.......0♥..2.. 00005CA0 00 19 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 48 03 00 00 39 00 00 00 18 00 00 00 00 00 00 .↓.......☺.......H♥..9...↑...... 00005CC0 00 01 00 00 00 00 00 00 00 60 03 00 00 FD FF FF FF 17 00 00 00 A0 86 04 00 01 00 00 00 00 00 00 .☺.......`♥..² ↨...áå♦.☺...... 00005CE0 00 78 03 00 00 08 00 00 00 16 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 90 03 00 00 03 00 00 .x♥..◘...▬.......☺.......É♥..♥.. 00005D00 00 15 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 A8 03 00 00 FC FF FF FF 14 00 00 00 D8 21 04 .§.......☺.......¿♥..ⁿ ¶...╪!♦ 00005D20 00 01 00 00 00 00 00 00 00 C0 03 00 00 08 00 00 00 13 00 00 00 00 00 00 00 01 00 00 00 00 00 00 .☺.......└♥..◘...‼.......☺...... 00005D40 00 D8 03 00 00 08 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F0 03 00 00 03 00 00 .╪♥..◘...↕.......☺.......≡♥..♥.. 00005D60 00 11 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 08 04 00 00 FC FF FF FF 10 00 00 00 A0 21 04 .◄.......☺.......◘♦..ⁿ ►...á!♦ 00005D80 00 01 00 00 00 09 00 00 00 20 04 00 00 FC FF FF FF 0E 00 00 00 30 20 04 00 01 00 00 00 3C 00 00 .☺...○... ♦..ⁿ ♫...0 ♦.☺...<.. 00005DA0 00 38 04 00 00 FC FF FF FF 0C 00 00 00 40 29 04 00 01 00 00 00 20 20 20 20 50 04 00 00 39 00 00 .8♦..ⁿ ♀...@)♦.☺... P♦..9.. 00005DC0 00 0B 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 68 04 00 00 09 00 00 00 0A 00 00 00 00 00 00 .♂.......☺... h♦..○...◙...... 00005DE0 00 01 00 00 00 20 20 20 20 80 04 00 00 FC FF FF FF 09 00 00 00 10 27 04 00 01 00 00 00 20 20 20 .☺... Ç♦..ⁿ ○...►'♦.☺... 00005E00 20 98 04 00 00 32 00 00 00 08 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 B0 04 00 00 35 00 00 ÿ♦..2...◘.......☺... ░♦..5.. 00005E20 00 07 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 C8 04 00 00 FD FF FF FF 06 00 00 00 80 86 04 .•.......☺... ╚♦..² ♠...Çå♦ 00005E40 00 01 00 00 00 20 20 20 20 E0 04 00 00 0C 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 30 20 20 .☺... α♦..♀...♣.......☺...0 00005E60 20 F8 04 00 00 FC FF FF FF 04 00 00 00 10 29 04 00 01 00 00 00 20 20 20 20 10 05 00 00 08 00 00 °♦..ⁿ ♦...►)♦.☺... ►♣..◘.. 00005E80 00 03 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 28 05 00 00 03 00 00 00 02 00 00 00 00 00 00 .♥.......☺... (♣..♥...☻...... 00005EA0 00 01 00 00 00 20 20 20 20 FF FF FF FF FC FF FF FF 01 00 00 00 20 29 04 00 01 00 00 00 20 20 20 .☺... ⁿ ☺... )♦.☺... 00005EC0 20 58 05 00 00 FD FF FF FF 02 00 00 00 00 0C 05 00 01 00 00 00 62 75 69 6C FF FF FF FF 04 00 00 X♣..² ☻....♀♣.☺...buil ♦.. 00005EE0 00 01 00 00 00 00 00 00 00 01 00 00 00 69 63 61 6C FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 .☺.......☺...ical ☻.......... 00005F00 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 6F 6F 6B .☺... ☻...........☺...ook 00005F20 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 69 67 68 74 00 00 00 00 48 00 00 ☻...........☺...ight....H.. 00005F40 00 98 01 00 00 40 05 00 00 70 05 00 00 88 05 00 00 A0 05 00 00 00 00 00 00 FF FF FF FF 02 00 00 .ÿ☺..@♣..p♣..ê♣..á♣...... ☻.. 00005F60 00 72 00 08 00 00 00 72 6F 77 66 6F 72 6D 00 02 00 00 00 62 00 02 00 00 00 61 00 04 00 00 00 01 .r.◘...rowform.☻...b.☻...a.♦...☺ 00005F80 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 03 00 00 00 69 66 00 04 00 00 00 01 00 00 00 00 00 .......♦.......♥...if.♦...☺..... 00005FA0 00 00 04 00 00 00 00 00 00 00 02 00 00 00 62 00 02 00 00 00 62 00 04 00 00 00 01 00 00 00 00 00 ..♦.......☻...b.☻...b.♦...☺..... 00005FC0 00 00 04 00 00 00 01 00 00 00 02 00 00 00 62 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 ..♦...☺...☻...b.♦...☺.......♦... 00005FE0 01 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.♦...☺.......♦...☺...☻. 00006000 00 00 72 00 02 00 00 00 62 00 02 00 00 00 48 00 02 00 00 00 61 00 02 00 00 00 61 00 04 00 00 00 ..r.☻...b.☻...H.☻...a.☻...a.♦... 00006020 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 00 02 00 00 00 72 00 02 00 00 00 61 00 04 00 00 00 ☺.......♦...☺...☻...r.☻...a.♦... 00006040 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 78 06 00 00 00 72 6F 6D 61 6E 00 00 01 00 00 00 ☺.......♦.......x♠...roman..☺... 00006060 0A 00 00 6B 00 00 00 0E 00 00 00 08 00 00 00 03 00 00 00 08 00 00 00 10 00 00 00 2C 00 00 00 13 ◙..k...♫...◘...♥...◘...►...,...‼ 00006080 00 00 00 02 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 ...☻...☺...☺...☺...☺...☺...☺...☺ 000060A0 00 00 00 08 00 00 00 48 03 00 00 02 00 00 00 01 00 00 00 0E 00 00 00 3C 00 00 00 20 72 23 72 6F ...◘...H♥..☻...☺...♫...<... r#ro 000060C0 6D 61 6E 20 6E 3B 69 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 man n;i;Lio 000060E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 69 6F 23 30 20 20 20 Lio#0 00006100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00006120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 23 30 20 31 30 30 30 4E 27 27 52 i#0 1000N''R 00006140 6E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n 00006160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 30 20 35 4E 31 30 20 31 30 20 31 30 20 31 r#0 5N10 10 10 1 00006180 30 4E 6E 23 69 5B 31 5D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0Nn#i[1] 000061A0 20 20 20 20 20 20 20 20 20 20 20 20 6E 23 2C 54 28 49 34 29 4A 2E 3C 2C 54 28 30 53 72 5F 31 20 n#,T(I4)J.<,T(0Sr_1 000061C0 33 4A 2E 58 34 3D 72 5B 31 3B 5D 29 2C 5B 30 5D 72 5B 30 3B 5D 60 52 34 3D 72 20 20 20 20 20 20 3J.X4=r[1;]),[0]r[0;]`R4=r 000061E0 20 20 20 20 20 20 20 20 72 23 28 69 5B 30 5D 52 27 6D 27 29 2C 6E 2F 2C 54 34 20 31 36 52 27 58 r#(i[0]R'm'),n/,T4 16R'X 00006200 6D 58 58 64 63 6D 64 6C 78 63 6C 76 69 78 76 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 mXXdcmdlxclvixv' 00006220 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 00006240 20 20 20 20 20 20 20 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 " 00006260 72 6F 6D 61 6E 20 2D 20 63 6F 6E 76 65 72 74 20 69 6E 74 65 67 65 72 20 74 6F 20 72 6F 6D 61 6E roman - convert integer to roman 00006280 20 6E 75 6D 65 72 61 6C 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D numerals "from 000062A0 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 000062C0 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 6F 6D 61 6E 20 6E ' copyright 1978, ibm. "-roman n 000062E0 75 6D 65 72 61 6C 73 20 6D 61 79 20 62 65 20 72 65 71 75 69 72 65 64 20 66 6F 72 20 63 65 72 74 umerals may be required for cert 00006300 61 69 6E 20 74 79 70 65 73 20 6F 66 20 70 61 67 65 20 20 22 20 6F 72 20 70 61 72 61 67 72 61 70 ain types of page " or paragrap 00006320 68 20 6E 75 6D 62 65 72 69 6E 67 2E 20 20 74 68 65 79 20 61 6C 73 6F 20 69 6C 6C 75 73 74 72 61 h numbering. they also illustra 00006340 74 65 20 74 68 61 74 20 74 68 65 72 65 20 20 22 20 69 73 20 61 20 64 69 73 74 69 6E 63 74 69 6F te that there " is a distinctio 00006360 6E 20 62 65 74 77 65 65 6E 20 74 68 65 20 76 61 6C 75 65 20 6F 66 20 61 20 6E 75 6D 62 65 72 20 n between the value of a number 00006380 61 6E 64 20 69 74 73 20 20 20 20 22 20 72 65 70 72 65 73 65 6E 74 61 74 69 6F 6E 2E 20 20 6E 20 and its " representation. n 000063A0 69 73 20 61 6E 20 69 6E 74 65 67 65 72 20 67 72 65 61 74 65 72 20 74 68 61 6E 20 7A 65 72 6F 2E is an integer greater than zero. 000063C0 20 72 20 69 73 20 20 22 20 61 20 63 68 61 72 61 63 74 65 72 20 76 65 63 74 6F 72 20 72 65 70 72 r is " a character vector repr 000063E0 65 73 65 6E 74 69 6E 67 20 6E 20 61 73 20 61 20 72 6F 6D 61 6E 20 6E 75 6D 65 72 61 6C 2E 20 20 esenting n as a roman numeral. 00006400 20 20 20 78 00 00 00 FF FF FF FF ED FF FF FF 0D 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 30 x... φ ♪.......☺...☺...0 00006420 00 00 00 1B 00 00 00 0C 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 00 00 00 00 FC FF FF FF 0B ...←...♀.......☺... ....ⁿ ♂ 00006440 00 00 00 58 28 04 00 01 00 00 00 20 20 20 20 60 00 00 00 1B 00 00 00 0A 00 00 00 00 00 00 00 01 ...X(♦.☺... `...←...◙.......☺ 00006460 00 00 00 22 63 6F 6C 30 00 00 00 FC FF FF FF 09 00 00 00 40 2C 04 00 01 00 00 00 72 20 72 65 90 ..."col0...ⁿ ○...@,♦.☺...r reÉ 00006480 00 00 00 FC FF FF FF 03 00 00 00 08 29 04 00 01 00 00 00 20 20 20 20 A8 00 00 00 03 00 00 00 02 ...ⁿ ♥...◘)♦.☺... ¿...♥...☻ 000064A0 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 60 00 00 00 FC FF FF FF 01 00 00 00 60 2C 04 00 01 .......☺... `...ⁿ ☺...`,♦.☺ 000064C0 00 00 00 20 20 20 20 D8 00 00 00 FD FF FF FF 05 00 00 00 A0 87 04 00 01 00 00 00 20 63 66 6F F0 ... ╪...² ♣...áç♦.☺... cfo≡ 000064E0 00 00 00 03 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF ED FF FF FF 01 ...♥...♦.......☺... φ ☺ 00006500 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 20 01 00 00 FC FF FF FF 0D 00 00 00 10 28 04 00 01 .......☺... ☺..ⁿ ♪...►(♦.☺ 00006520 00 00 00 20 20 20 20 38 01 00 00 32 00 00 00 0C 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 50 ... 8☺..2...♀.......☺... P 00006540 01 00 00 07 00 00 00 0A 00 00 00 20 81 04 00 01 00 00 00 20 72 6F 77 68 01 00 00 2E 00 00 00 09 ☺..•...◙... ü♦.☺... rowh☺......○ 00006560 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 80 01 00 00 FD FF FF FF 05 00 00 00 00 81 04 00 01 .......☺... Ç☺..² ♣....ü♦.☺ 00006580 00 00 00 20 20 20 20 98 01 00 00 FD FF FF FF 03 00 00 00 E0 81 04 00 01 00 00 00 20 20 20 20 B0 ... ÿ☺..² ♥...αü♦.☺... ░ 000065A0 01 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 FF FF FF FF FC FF FF FF 01 ☺..♥...☻.......☺... ⁿ ☺ 000065C0 00 00 00 18 28 04 00 01 00 00 00 20 24 30 20 E0 01 00 00 3D 00 00 00 18 00 00 00 00 00 00 00 01 ...↑(♦.☺... $0 α☺..=...↑.......☺ 000065E0 00 00 00 20 20 20 20 F8 01 00 00 FD FF FF FF 17 00 00 00 80 87 04 00 01 00 00 00 20 20 20 20 10 ... °☺..² ↨...Çç♦.☺... ► 00006600 02 00 00 3B 00 00 00 16 00 00 00 00 00 00 00 01 00 00 00 6E 61 74 65 28 02 00 00 FC FF FF FF 15 ☻..;...▬.......☺...nate(☻..ⁿ § 00006620 00 00 00 78 29 04 00 01 00 00 00 20 20 20 20 40 02 00 00 03 00 00 00 14 00 00 00 00 00 00 00 01 ...x)♦.☺... @☻..♥...¶.......☺ 00006640 00 00 00 22 66 72 6F 58 02 00 00 FC FF FF FF 13 00 00 00 E0 29 04 00 01 00 00 00 6F 66 20 74 70 ..."froX☻..ⁿ ‼...α)♦.☺...of tp 00006660 02 00 00 2E 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 20 31 39 37 88 02 00 00 FD FF FF FF 10 ☻......↕.......☺... 197ê☻..² ► 00006680 00 00 00 20 80 04 00 01 00 00 00 64 65 20 63 A0 02 00 00 FD FF FF FF 0D 00 00 00 C0 81 04 00 01 ... Ç♦.☺...de cá☻..² ♪...└ü♦.☺ 000066A0 00 00 00 20 73 74 72 B8 02 00 00 FD FF FF FF 0A 00 00 00 60 80 04 00 01 00 00 00 22 2D 73 63 D0 ... str╕☻..² ◙...`Ç♦.☺..."-sc╨ 000066C0 02 00 00 FD FF FF FF 07 00 00 00 E0 87 04 00 01 00 00 00 61 74 65 64 E8 02 00 00 2E 00 00 00 06 ☻..² •...αç♦.☺...atedΦ☻......♠ 000066E0 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 00 03 00 00 FD FF FF FF 05 00 00 00 40 86 04 00 01 .......☺... .♥..² ♣...@å♦.☺ 00006700 00 00 00 63 6F 6D 65 18 03 00 00 FD FF FF FF 03 00 00 00 E0 8D 04 00 01 00 00 00 20 62 65 66 30 ...come↑♥..² ♥...αì♦.☺... bef0 00006720 03 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 22 2D 6E 75 FF FF FF FF FC FF FF FF 01 ♥..♥...☻.......☺..."-nu ⁿ ☺ 00006740 00 00 00 70 29 04 00 01 00 00 00 70 61 64 64 60 03 00 00 FC FF FF FF 2E 00 00 00 00 28 04 00 01 ...p)♦.☺...padd`♥..ⁿ .....(♦.☺ 00006760 00 00 00 20 20 20 20 78 03 00 00 1D 00 00 00 2D 00 00 00 00 00 00 00 01 00 00 00 74 79 70 65 90 ... x♥..↔...-.......☺...typeÉ 00006780 03 00 00 FD FF FF FF 2C 00 00 00 80 0D 05 00 01 00 00 00 68 20 62 6C A8 03 00 00 47 00 00 00 2A ♥..² ,...Ç♪♣.☺...h bl¿♥..G...* 000067A0 00 00 00 00 00 00 00 01 00 00 00 22 2D 6E 75 C0 03 00 00 3D 00 00 00 29 00 00 00 00 00 00 00 01 .......☺..."-nu└♥..=...).......☺ 000067C0 00 00 00 66 6F 72 6D D8 03 00 00 1B 00 00 00 28 00 00 00 00 00 00 00 01 00 00 00 61 74 65 64 F0 ...form╪♥..←...(.......☺...ated≡ 000067E0 03 00 00 FD FF FF FF 27 00 00 00 20 0E 05 00 01 00 00 00 74 79 70 65 08 04 00 00 3B 00 00 00 26 ♥..² '... ♫♣.☺...type◘♦..;...& 00006800 00 00 00 00 00 00 00 01 00 00 00 00 40 05 00 20 04 00 00 FC FF FF FF 25 00 00 00 40 28 04 00 01 .......☺....@♣. ♦..ⁿ %...@(♦.☺ 00006820 00 00 00 FC FF FF FF 38 04 00 00 3D 00 00 00 24 00 00 00 00 00 00 00 01 00 00 00 03 00 00 00 50 ...ⁿ 8♦..=...$.......☺...♥...P 00006840 04 00 00 FD FF FF FF 23 00 00 00 00 0F 05 00 01 00 00 00 FC FF FF FF 68 04 00 00 3B 00 00 00 22 ♦..² #....☼♣.☺...ⁿ h♦..;..." 00006860 00 00 00 00 00 00 00 01 00 00 00 02 00 00 00 80 04 00 00 0C 00 00 00 21 00 00 00 00 00 00 00 01 .......☺...☻...Ç♦..♀...!.......☺ 00006880 00 00 00 02 00 00 00 98 04 00 00 09 00 00 00 20 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF B0 ...☻...ÿ♦..○... .......☺...ⁿ ░ 000068A0 04 00 00 3D 00 00 00 1F 00 00 00 00 00 00 00 01 00 00 00 0C 00 00 00 C8 04 00 00 1B 00 00 00 1E ♦..=...▼.......☺...♀...╚♦..←...▲ 000068C0 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF E0 04 00 00 FD FF FF FF 1D 00 00 00 E0 0A 05 00 01 .......☺...² α♦..² ↔...α◙♣.☺ 000068E0 00 00 00 0C 00 00 00 F8 04 00 00 3B 00 00 00 1C 00 00 00 00 00 00 00 01 00 00 00 03 00 00 00 10 ...♀...°♦..;...∟.......☺...♥...► 00006900 05 00 00 FC FF FF FF 1B 00 00 00 F8 27 04 00 01 00 00 00 FC FF FF FF 28 05 00 00 1D 00 00 00 1A ♣..ⁿ ←...°'♦.☺...ⁿ (♣..↔...→ 00006920 00 00 00 00 00 00 00 01 00 00 00 0F 00 00 00 40 05 00 00 FD FF FF FF 19 00 00 00 E0 09 05 00 01 .......☺...☼...@♣..² ↓...α○♣.☺ 00006940 00 00 00 09 00 00 00 58 05 00 00 38 00 00 00 18 00 00 00 00 00 00 00 01 00 00 00 FD FF FF FF 70 ...○...X♣..8...↑.......☺...² p 00006960 05 00 00 0E 00 00 00 17 00 00 00 00 00 00 00 01 00 00 00 3E 00 00 00 88 05 00 00 2A 00 00 00 16 ♣..♫...↨.......☺...>...ê♣..*...▬ 00006980 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF A0 05 00 00 FD FF FF FF 15 00 00 00 40 09 05 00 01 .......☺...ⁿ á♣..² §...@○♣.☺ 000069A0 00 00 00 03 00 00 00 B8 05 00 00 FD FF FF FF 13 00 00 00 A0 08 05 00 01 00 00 00 FC FF FF FF D0 ...♥...╕♣..² ‼...á◘♣.☺...ⁿ ╨ 000069C0 05 00 00 3F 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 46 00 00 00 E8 05 00 00 FC FF FF FF 11 ♣..?...↕.......☺...F...Φ♣..ⁿ ◄ 000069E0 00 00 00 08 28 04 00 01 00 00 00 FD FF FF FF 00 06 00 00 33 00 00 00 10 00 00 00 00 00 00 00 01 ...◘(♦.☺...² .♠..3...►.......☺ 00006A00 00 00 00 36 00 00 00 18 06 00 00 FD FF FF FF 0F 00 00 00 40 8B 04 00 01 00 00 00 FC FF FF FF 30 ...6...↑♠..² ☼...@ï♦.☺...ⁿ 0 00006A20 06 00 00 08 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 08 00 00 00 48 06 00 00 34 00 00 00 0D ♠..◘...♫.......☺...◘...H♠..4...♪ 00006A40 00 00 00 00 00 00 00 01 00 00 00 35 00 00 00 60 06 00 00 0C 00 00 00 0C 00 00 00 00 00 00 00 01 .......☺...5...`♠..♀...♀.......☺ 00006A60 00 00 00 FD FF FF FF 78 06 00 00 1C 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 03 00 00 00 90 ...² x♠..∟...♂.......☺...♥...É 00006A80 06 00 00 0E 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF A8 06 00 00 2A 00 00 00 09 ♠..♫...◙.......☺...ⁿ ¿♠..*...○ 00006AA0 00 00 00 00 00 00 00 01 00 00 00 20 62 2E 20 C0 06 00 00 09 00 00 00 08 00 00 00 00 00 00 00 01 .......☺... b. └♠..○...◘.......☺ 00006AC0 00 00 00 47 69 66 20 D8 06 00 00 FD FF FF FF 07 00 00 00 00 8A 04 00 01 00 00 00 65 6E 74 65 F0 ...Gif ╪♠..² •....è♦.☺...ente≡ 00006AE0 06 00 00 29 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 08 07 00 00 08 00 00 00 05 ♠..)...♠.......☺... ◘•..◘...♣ 00006B00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 20 07 00 00 34 00 00 00 04 00 00 00 00 00 00 00 01 .......☺....... •..4...♦.......☺ 00006B20 00 00 00 00 00 00 00 38 07 00 00 0C 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 50 .......8•..♀...♥.......☺.......P 00006B40 07 00 00 03 00 00 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 •..♥...☻.......☺....... ⁿ ☺ 00006B60 00 00 00 F0 27 04 00 01 00 00 00 00 00 00 00 80 07 00 00 07 00 00 00 17 00 00 00 80 BC 05 00 01 ...≡'♦.☺.......Ç•..•...↨...Ç╝♣.☺ 00006B80 00 00 00 00 00 00 00 98 07 00 00 32 00 00 00 16 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 B0 .......ÿ•..2...▬.......☺.......░ 00006BA0 07 00 00 FD FF FF FF 14 00 00 00 60 08 05 00 01 00 00 00 00 00 00 00 C8 07 00 00 FD FF FF FF 12 •..² ¶...`◘♣.☺.......╚•..² ↕ 00006BC0 00 00 00 A0 0F 05 00 01 00 00 00 00 00 00 00 E0 07 00 00 34 00 00 00 11 00 00 00 00 00 00 00 01 ...á☼♣.☺.......α•..4...◄.......☺ 00006BE0 00 00 00 00 00 00 00 F8 07 00 00 0C 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 10 .......°•..♀...►.......☺.......► 00006C00 08 00 00 0F 00 00 00 0F 00 00 00 00 00 00 00 01 00 00 00 40 29 04 00 28 08 00 00 FC FF FF FF 0E ◘..☼...☼.......☺...@)♦.(◘..ⁿ ♫ 00006C20 00 00 00 80 28 04 00 01 00 00 00 00 00 00 00 40 08 00 00 0C 00 00 00 0D 00 00 00 00 00 00 00 01 ...Ç(♦.☺.......@◘..♀...♪.......☺ 00006C40 00 00 00 10 27 04 00 58 08 00 00 09 00 00 00 0C 00 00 00 00 00 00 00 01 00 00 00 10 29 04 00 70 ...►'♦.X◘..○...♀.......☺...►)♦.p 00006C60 08 00 00 07 00 00 00 09 00 00 00 E0 0B 05 00 01 00 00 00 00 00 00 00 88 08 00 00 32 00 00 00 08 ◘..•...○...α♂♣.☺.......ê◘..2...◘ 00006C80 00 00 00 00 00 00 00 01 00 00 00 20 29 04 00 A0 08 00 00 3D 00 00 00 07 00 00 00 00 00 00 00 01 .......☺... )♦.á◘..=...•.......☺ 00006CA0 00 00 00 98 27 04 00 B8 08 00 00 FD FF FF FF 06 00 00 00 40 0C 05 00 01 00 00 00 00 00 00 00 D0 ...ÿ'♦.╕◘..² ♠...@♀♣.☺.......╨ 00006CC0 08 00 00 3B 00 00 00 05 00 00 00 00 00 00 00 01 00 00 00 00 87 04 00 E8 08 00 00 FC FF FF FF 04 ◘..;...♣.......☺....ç♦.Φ◘..ⁿ ♦ 00006CE0 00 00 00 E0 27 04 00 01 00 00 00 00 00 00 00 00 09 00 00 08 00 00 00 03 00 00 00 00 00 00 00 01 ...α'♦.☺........○..◘...♥.......☺ 00006D00 00 00 00 00 00 00 00 18 09 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 50 29 04 00 FF .......↑○..♥...☻.......☺...P)♦. 00006D20 FF FF FF FC FF FF FF 01 00 00 00 D8 27 04 00 01 00 00 00 00 00 00 00 48 09 00 00 FD FF FF FF 02 ⁿ ☺...╪'♦.☺.......H○..² ☻ 00006D40 00 00 00 C0 07 05 00 01 00 00 00 00 00 00 00 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 ...└•♣.☺....... ♦...☺.......☺ 00006D60 00 00 00 80 82 04 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 ...Çé♦. ☻...........☺....... 00006D80 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 60 29 04 00 FF FF FF FF 02 00 00 00 00 ☻...........☺...`)♦. ☻.... 00006DA0 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 00 00 00 00 00 01 .......☺....... ☻...........☺ 00006DC0 00 00 00 E8 29 04 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 ...Φ)♦. ☻...........☺....... 00006DE0 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 A0 83 04 00 FF FF FF FF 02 00 00 00 00 ☻...........☺...áâ♦. ☻.... 00006E00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 C0 00 00 00 08 01 00 00 C8 01 00 00 48 .......☺...........└...◘☺..╚☺..H 00006E20 03 00 00 68 07 00 00 30 09 00 00 60 09 00 00 78 09 00 00 90 09 00 00 A8 09 00 00 C0 09 00 00 D8 ♥..h•..0○..`○..x○..É○..¿○..└○..╪ 00006E40 09 00 00 F0 09 00 00 A8 00 00 00 FF FF FF FF 02 00 00 00 69 00 02 00 00 00 6E 00 06 00 00 00 72 ○..≡○..¿... ☻...i.☻...n.♠...r 00006E60 6F 6D 61 6E 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 02 oman.☻...r.♦...☺.......♦.......☻ 00006E80 00 00 00 6E 00 08 00 00 00 00 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 00 00 ...n.◘.......☺...☺.......♦...☺.. 00006EA0 00 00 00 00 00 04 00 00 00 E8 03 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 .....♦...Φ♥..♦...☺.......♦...... 00006EC0 00 02 00 00 00 69 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 .☻...i.♦...☺.......♦...☺...☻...i 00006EE0 00 02 00 00 00 6E 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 0A 00 00 00 04 00 00 00 01 .☻...n.♦...☺.......♦...◙...♦...☺ 00006F00 00 00 00 00 00 00 00 04 00 00 00 0A 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 0A .......♦...◙...♦...☺.......♦...◙ 00006F20 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 0A 00 00 00 04 00 00 00 01 00 00 00 00 ...♦...☺.......♦...◙...♦...☺.... 00006F40 00 00 00 04 00 00 00 05 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 02 ...♦...♣...♦...☺.......♦.......☻ 00006F60 00 00 00 72 00 02 00 00 00 72 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 04 00 00 00 04 ...r.☻...r.♦...☺.......♦...♦...♦ 00006F80 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 02 00 00 00 72 00 04 00 00 00 01 00 00 ...☺.......♦.......☻...r.♦...☺.. 00006FA0 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 00 00 .....♦.......♦...☺.......♦...☺.. 00006FC0 00 02 00 00 00 72 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 04 00 00 00 04 00 00 00 01 .☻...r.♦...☺.......♦...♦...♦...☺ 00006FE0 00 00 00 00 00 00 00 04 00 00 00 03 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 01 .......♦...♥...♦...☺.......♦...☺ 00007000 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 04 00 00 ...☻...r.♦...☺.......♦.......♦.. 00007020 00 01 00 00 00 00 00 00 00 04 00 00 00 04 00 00 00 02 00 00 00 6E 00 08 00 00 00 10 00 00 00 01 .☺.......♦...♦...☻...n.◘...►...☺ 00007040 00 00 00 01 00 00 00 10 00 00 00 58 6D 58 58 64 63 6D 64 6C 78 63 6C 76 69 78 76 04 00 00 00 01 ...☺...►...XmXXdcmdlxclvixv♦...☺ 00007060 00 00 00 00 00 00 00 04 00 00 00 10 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 04 .......♦...►...♦...☺.......♦...♦ 00007080 00 00 00 02 00 00 00 6E 00 08 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 6D 04 00 00 00 01 00 ...☻...n.◘...☺.......☺...m♦...☺. 000070A0 00 00 00 00 00 00 04 00 00 00 00 00 00 00 02 00 00 00 69 00 02 00 00 00 72 00 04 00 00 00 01 00 ......♦.......☻...i.☻...r.♦...☺. 000070C0 00 00 00 00 00 00 04 00 00 00 00 00 00 00 78 06 00 00 00 72 69 6F 74 61 00 00 01 00 00 00 0C 00 ......♦.......x♠...riota..☺...♀. 000070E0 00 47 00 00 00 10 00 00 00 05 00 00 00 09 00 00 00 2B 00 00 00 02 00 00 00 01 00 00 00 01 00 00 .G...►...♣...○...+...☻...☺...☺.. 00007100 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 .☺...☺...☺...☺...☺...☺...☺...☺.. 00007120 00 01 00 00 00 01 00 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 .☺...☺...◘...└♥..☻...☺...►...<.. 00007140 00 20 72 23 78 20 72 69 6F 74 61 20 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 . r#x riota y 00007160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 79 23 y# 00007180 6D 61 74 72 69 78 20 79 20 48 20 78 23 6D 61 74 72 69 78 20 78 20 20 20 20 20 20 20 20 20 20 20 matrix y H x#matrix x 000071A0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 23 4C 69 6F 2B r#Lio+ 000071C0 2B 2F 7E 56 5C 28 28 28 30 20 31 58 52 78 29 53 52 79 29 59 79 29 26 2E 3D 54 28 28 30 20 31 58 +/~V\(((0 1XRx)SRy)Yy)&.=T((0 1X 000071E0 52 79 29 53 52 78 29 59 78 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 Ry)SRx)Yx $0 00007200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00007220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 " 00007240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00007260 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 68 61 6E 64 "from 'the apl hand 00007280 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 000072A0 37 38 2C 20 69 62 6D 2E 20 22 2D 72 69 6F 74 61 20 65 78 74 65 6E 64 73 20 74 6F 20 6D 61 74 72 78, ibm. "-riota extends to matr 000072C0 69 78 20 61 72 67 75 6D 65 6E 74 73 20 74 68 65 20 66 75 6E 63 74 69 6F 6E 20 6F 66 20 64 79 61 ix arguments the function of dya 000072E0 64 69 63 20 20 22 20 49 20 28 61 49 62 2E 2E 2E 74 68 65 20 6C 65 61 73 74 20 69 6E 64 65 78 20 dic " I (aIb...the least index 00007300 69 6E 20 76 65 63 74 6F 72 20 61 20 6F 66 20 74 68 65 20 65 6C 65 6D 65 6E 74 28 73 29 20 69 6E in vector a of the element(s) in 00007320 20 22 20 73 63 61 6C 61 72 20 6F 72 20 76 65 63 74 6F 72 20 62 29 2E 20 20 20 20 20 20 20 20 20 " scalar or vector b). 00007340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2D 74 "-t 00007360 68 65 20 72 65 73 75 6C 74 20 72 20 69 73 20 61 20 76 65 63 74 6F 72 20 6F 66 20 74 68 65 20 72 he result r is a vector of the r 00007380 65 73 70 65 63 74 69 76 65 20 72 6F 77 20 69 6E 64 69 63 65 73 20 6F 66 20 22 20 74 68 65 20 66 espective row indices of " the f 000073A0 69 72 73 74 20 6F 63 63 75 72 72 65 6E 63 65 20 6F 66 20 74 68 65 20 72 6F 77 73 20 6F 66 20 79 irst occurrence of the rows of y 000073C0 20 69 6E 20 78 2C 20 69 67 6E 6F 72 69 6E 67 20 20 20 20 20 20 22 20 74 72 61 69 6C 69 6E 67 20 in x, ignoring " trailing 000073E0 62 6C 61 6E 6B 73 2E 20 20 69 66 20 61 20 72 6F 77 20 6F 66 20 79 20 64 6F 65 73 20 6E 6F 74 20 blanks. if a row of y does not 00007400 6F 63 63 75 72 20 69 6E 20 78 2C 20 74 68 65 20 20 22 20 63 6F 72 72 65 73 70 6F 6E 64 69 6E 67 occur in x, the " corresponding 00007420 20 65 6C 65 6D 65 6E 74 20 6F 66 20 72 20 69 73 20 73 65 74 20 74 6F 20 31 2B 31 59 52 78 2E 20 element of r is set to 1+1YRx. 00007440 20 6E 6F 6E 2D 6D 61 74 72 69 78 20 20 22 20 61 72 67 75 6D 65 6E 74 73 20 61 72 65 20 72 65 73 non-matrix " arguments are res 00007460 68 61 70 65 64 2C 20 73 63 61 6C 61 72 20 61 6E 64 20 76 65 63 74 6F 72 20 61 72 67 75 6D 65 6E haped, scalar and vector argumen 00007480 74 73 20 61 72 65 20 20 20 22 20 74 72 65 61 74 65 64 20 61 73 20 31 2D 72 6F 77 20 6D 61 74 72 ts are " treated as 1-row matr 000074A0 69 63 65 73 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ices. 000074C0 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 6D 61 74 72 69 78 20 47 68 20 20 20 20 20 20 20 20 20 "-uses: Gmatrix Gh 000074E0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00007500 20 18 00 00 00 FF FF FF FF FC FF FF FF 0B 00 00 00 50 2F 04 00 01 00 00 00 01 00 00 00 30 00 00 ↑... ⁿ ♂...P/♦.☺...☺...0.. 00007520 00 FC FF FF FF 05 00 00 00 00 2C 04 00 01 00 00 00 73 20 6F 75 00 00 00 00 FC FF FF FF 03 00 00 .ⁿ ♣....,♦.☺...s ou....ⁿ ♥.. 00007540 00 D8 2F 04 00 01 00 00 00 3B 76 3B 77 60 00 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 .╪/♦.☺...;v;w`...♥...☻.......☺.. 00007560 00 20 20 20 22 30 00 00 00 FC FF FF FF 01 00 00 00 40 2F 04 00 01 00 00 00 69 6E 67 73 90 00 00 . "0...ⁿ ☺...@/♦.☺...ingsÉ.. 00007580 00 FC FF FF FF 17 00 00 00 D0 2E 04 00 01 00 00 00 6D 6E 73 2E A8 00 00 00 FC FF FF FF 10 00 00 .ⁿ ↨...╨.♦.☺...mns.¿...ⁿ ►.. 000075A0 00 F8 2B 04 00 01 00 00 00 27 74 68 65 C0 00 00 00 03 00 00 00 0F 00 00 00 00 00 00 00 01 00 00 .°+♦.☺...'the└...♥...☼.......☺.. 000075C0 00 68 6E 69 71 D8 00 00 00 FC FF FF FF 0E 00 00 00 B8 2E 04 00 01 00 00 00 20 69 62 6D F0 00 00 .hniq╪...ⁿ ♫...╕.♦.☺... ibm≡.. 000075E0 00 FC FF FF FF 0C 00 00 00 E0 2C 04 00 01 00 00 00 68 61 72 61 08 01 00 00 FC FF FF FF 0A 00 00 .ⁿ ♀...α,♦.☺...hara◘☺..ⁿ ◙.. 00007600 00 B8 2F 04 00 01 00 00 00 6E 6B 20 64 20 01 00 00 FC FF FF FF 03 00 00 00 C0 2F 04 00 01 00 00 .╕/♦.☺...nk d ☺..ⁿ ♥...└/♦.☺.. 00007620 00 22 20 63 65 38 01 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 00 6F 70 72 69 FF FF FF ." ce8☺..♥...☻.......☺...opri 00007640 FF FC FF FF FF 01 00 00 00 70 27 04 00 01 00 00 00 72 73 63 6F 68 01 00 00 FC FF FF FF 2F 00 00 ⁿ ☺...p'♦.☺...rscoh☺..ⁿ /.. 00007660 00 20 2D 04 00 01 00 00 00 6C 20 77 69 80 01 00 00 39 00 00 00 2E 00 00 00 00 00 00 00 01 00 00 . -♦.☺...l wiÇ☺..9...........☺.. 00007680 00 20 69 6E 20 98 01 00 00 09 00 00 00 2D 00 00 00 00 00 00 00 01 00 00 00 72 69 78 2E B0 01 00 . in ÿ☺..○...-.......☺...rix.░☺. 000076A0 00 FC FF FF FF 2C 00 00 00 78 2C 04 00 01 00 00 00 77 69 64 65 C8 01 00 00 32 00 00 00 2B 00 00 .ⁿ ,...x,♦.☺...wide╚☺..2...+.. 000076C0 00 00 00 00 00 01 00 00 00 6C 20 62 65 E0 01 00 00 33 00 00 00 2A 00 00 00 00 00 00 00 01 00 00 .....☺...l beα☺..3...*.......☺.. 000076E0 00 6E 79 20 69 F8 01 00 00 09 00 00 00 29 00 00 00 00 00 00 00 01 00 00 00 66 20 68 65 10 02 00 .ny i°☺..○...).......☺...f he►☻. 00007700 00 FC FF FF FF 28 00 00 00 48 2F 04 00 01 00 00 00 6E 67 74 68 28 02 00 00 32 00 00 00 27 00 00 .ⁿ (...H/♦.☺...ngth(☻..2...'.. 00007720 00 00 00 00 00 01 00 00 00 65 66 74 6D 40 02 00 00 38 00 00 00 26 00 00 00 00 00 00 00 01 00 00 .....☺...eftm@☻..8...&.......☺.. 00007740 00 20 75 73 65 58 02 00 00 FD FF FF FF 25 00 00 00 C0 8E 04 00 01 00 00 00 20 20 20 22 70 02 00 . useX☻..² %...└Ä♦.☺... "p☻. 00007760 00 FD FF FF FF 23 00 00 00 C0 8F 04 00 01 00 00 00 68 63 6E 74 88 02 00 00 08 00 00 00 22 00 00 .² #...└Å♦.☺...hcntê☻..◘...".. 00007780 00 00 00 00 00 01 00 00 00 20 20 20 20 A0 02 00 00 08 00 00 00 21 00 00 00 00 00 00 00 01 00 00 .....☺... á☻..◘...!.......☺.. 000077A0 00 72 61 74 65 B8 02 00 00 34 00 00 00 20 00 00 00 00 00 00 00 01 00 00 00 20 60 62 2C D0 02 00 .rate╕☻..4... .......☺... `b,╨☻. 000077C0 00 1D 00 00 00 1F 00 00 00 00 00 00 00 01 00 00 00 6F 20 72 65 E8 02 00 00 0E 00 00 00 1E 00 00 .↔...▼.......☺...o reΦ☻..♫...▲.. 000077E0 00 00 00 00 00 01 00 00 00 20 74 68 65 00 03 00 00 06 00 00 00 1D 00 00 00 00 00 00 00 01 00 00 .....☺... the.♥..♠...↔.......☺.. 00007800 00 6E 67 20 62 18 03 00 00 09 00 00 00 1C 00 00 00 00 00 00 00 01 00 00 00 20 6D 61 74 30 03 00 .ng b↑♥..○...∟.......☺... mat0♥. 00007820 00 FC FF FF FF 1B 00 00 00 F8 2E 04 00 01 00 00 00 69 23 7E 4C 48 03 00 00 39 00 00 00 1A 00 00 .ⁿ ←...°.♦.☺...i#~LH♥..9...→.. 00007840 00 00 00 00 00 01 00 00 00 20 20 20 20 60 03 00 00 09 00 00 00 19 00 00 00 00 00 00 00 01 00 00 .....☺... `♥..○...↓.......☺.. 00007860 00 64 74 68 20 78 03 00 00 FC FF FF FF 18 00 00 00 78 2F 04 00 01 00 00 00 20 20 20 20 90 03 00 .dth x♥..ⁿ ↑...x/♦.☺... É♥. 00007880 00 32 00 00 00 17 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 A8 03 00 00 33 00 00 00 16 00 00 .2...↨.......☺... ¿♥..3...▬.. 000078A0 00 00 00 00 00 01 00 00 00 23 6E 65 78 C0 03 00 00 09 00 00 00 15 00 00 00 00 00 00 00 01 00 00 .....☺...#nex└♥..○...§.......☺.. 000078C0 00 20 20 20 20 D8 03 00 00 FC FF FF FF 14 00 00 00 D8 2E 04 00 01 00 00 00 30 5E 3D 52 F0 03 00 . ╪♥..ⁿ ¶...╪.♦.☺...0^=R≡♥. 000078E0 00 32 00 00 00 13 00 00 00 00 00 00 00 01 00 00 00 74 72 20 68 08 04 00 00 38 00 00 00 12 00 00 .2...‼.......☺...tr h◘♦..8...↕.. 00007900 00 00 00 00 00 01 00 00 00 00 D4 04 00 20 04 00 00 FD FF FF FF 11 00 00 00 60 88 04 00 01 00 00 .....☺....╘♦. ♦..² ◄...`ê♦.☺.. 00007920 00 6D 6E 20 77 38 04 00 00 FD FF FF FF 0F 00 00 00 C0 8D 04 00 01 00 00 00 6E 61 72 72 50 04 00 .mn w8♦..² ☼...└ì♦.☺...narrP♦. 00007940 00 08 00 00 00 0E 00 00 00 00 00 00 00 01 00 00 00 20 20 20 66 68 04 00 00 08 00 00 00 0D 00 00 .◘...♫.......☺... fh♦..◘...♪.. 00007960 00 00 00 00 00 01 00 00 00 20 20 20 20 80 04 00 00 08 00 00 00 0C 00 00 00 00 00 00 00 01 00 00 .....☺... Ç♦..◘...♀.......☺.. 00007980 00 20 20 20 20 98 04 00 00 3C 00 00 00 0B 00 00 00 00 00 00 00 01 00 00 00 6D 61 74 2C B0 04 00 . ÿ♦..<...♂.......☺...mat,░♦. 000079A0 00 36 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 69 78 20 20 C8 04 00 00 84 00 00 00 09 00 00 .6...◙.......☺...ix ╚♦..ä...○.. 000079C0 00 00 00 00 00 01 00 00 00 20 20 20 20 E0 04 00 00 0F 00 00 00 08 00 00 00 00 00 00 00 01 00 00 .....☺... α♦..☼...◘.......☺.. 000079E0 00 3F 00 00 00 F8 04 00 00 0B 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 FC FF FF FF 10 05 00 .?...°♦..♂...•.......☺...ⁿ ►♣. 00007A00 00 0B 00 00 00 06 00 00 00 00 00 00 00 01 00 00 00 08 00 00 00 28 05 00 00 ED FF FF FF 03 00 00 .♂...♠.......☺...◘...(♣..φ ♥.. 00007A20 00 00 00 00 00 01 00 00 00 0B 00 00 00 40 05 00 00 03 00 00 00 02 00 00 00 00 00 00 00 01 00 00 .....☺...♂...@♣..♥...☻.......☺.. 00007A40 00 FC FF FF FF FF FF FF FF FC FF FF FF 01 00 00 00 98 2F 04 00 01 00 00 00 38 00 00 00 70 05 00 .ⁿ ⁿ ☺...ÿ/♦.☺...8...p♣. 00007A60 00 FD FF FF FF 02 00 00 00 40 84 04 00 01 00 00 00 FD FF FF FF FF FF FF FF 04 00 00 00 01 00 00 .² ☻...@ä♦.☺...² ♦...☺.. 00007A80 00 00 00 00 00 01 00 00 00 24 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 .....☺...$... ☻...........☺.. 00007AA0 00 08 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 0B 00 00 00 FF FF FF .◘... ☻...........☺...♂... 00007AC0 FF 02 00 00 00 00 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 ☻...........☺...ⁿ ☻...... 00007AE0 00 00 00 00 00 01 00 00 00 0B 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 .....☺...♂... ☻...........☺.. 00007B00 00 FD FF FF FF FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 03 00 00 00 FF FF FF .² ☻...........☺...♥... 00007B20 FF 02 00 00 00 00 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 ☻...........☺...ⁿ ☻...... 00007B40 00 00 00 00 00 01 00 00 00 FD FF FF FF FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 .....☺...² ☻...........☺.. 00007B60 00 04 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 02 00 00 00 FF FF FF .♦... ☻...........☺...☻... 00007B80 FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 02 00 00 00 FF FF FF FF 02 00 00 00 00 00 00 ☻...........☺...☻... ☻...... 00007BA0 00 00 00 00 00 01 00 00 00 02 00 00 00 00 00 00 00 78 00 00 00 50 01 00 00 58 05 00 00 88 05 00 .....☺...☻.......x...P☺..X♣..ê♣. 00007BC0 00 A0 05 00 00 B8 05 00 00 D0 05 00 00 E8 05 00 00 00 06 00 00 18 06 00 00 30 06 00 00 48 06 00 .á♣..╕♣..╨♣..Φ♣...♠..↑♠..0♠..H♠. 00007BE0 00 60 06 00 00 78 06 00 00 90 06 00 00 60 00 00 00 FF FF FF FF 02 00 00 00 79 00 06 00 00 00 72 .`♠..x♠..É♠..`... ☻...y.♠...r 00007C00 69 6F 74 61 00 02 00 00 00 78 00 02 00 00 00 72 00 02 00 00 00 78 00 07 00 00 00 6D 61 74 72 69 iota.☻...x.☻...r.☻...x.•...matri 00007C20 78 00 02 00 00 00 78 00 02 00 00 00 48 00 02 00 00 00 79 00 07 00 00 00 6D 61 74 72 69 78 00 02 x.☻...x.☻...H.☻...y.•...matrix.☻ 00007C40 00 00 00 79 00 02 00 00 00 78 00 02 00 00 00 78 00 02 00 00 00 79 00 04 00 00 00 01 00 00 00 00 ...y.☻...x.☻...x.☻...y.♦...☺.... 00007C60 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 00 00 00 00 02 ...♦...☺...♦...☺.......♦.......☻ 00007C80 00 00 00 79 00 02 00 00 00 79 00 02 00 00 00 78 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 ...y.☻...y.☻...x.♦...☺.......♦.. 00007CA0 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 72 00 04 .☺...♦...☺.......♦.......☻...r.♦ 00007CC0 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 78 07 00 00 00 70 72 6F 6D 70 74 00 00 ...☺.......♦.......x•...prompt.. 00007CE0 01 00 00 00 0C 00 00 8D 00 00 00 16 00 00 00 09 00 00 00 18 00 00 00 14 00 00 00 11 00 00 00 13 ☺...♀..ì...▬...○...↑...¶...◄...‼ 00007D00 00 00 00 1F 00 00 00 01 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 01 ...▼...☺...☻...☺...☺...☺...☺...☺ 00007D20 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 01 ...☺...☺...☺...☺...☺...☺...☺...☺ 00007D40 00 00 00 01 00 00 00 08 00 00 00 AC 05 00 00 02 00 00 00 01 00 00 00 16 00 00 00 42 00 00 00 20 ...☺...◘...¼♣..☻...☺...▬...B... 00007D60 72 23 64 65 66 20 70 72 6F 6D 70 74 20 6D 73 67 3B 6A 3B 6B 20 20 20 20 20 20 20 20 20 20 20 20 r#def prompt msg;j;k 00007D80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00007DA0 20 20 24 30 20 69 66 20 30 3D 52 2C 64 65 66 20 48 20 6A 23 72 23 72 55 51 48 20 72 23 52 2C 51 $0 if 0=R,def H j#r#rUQH r#R,Q 00007DC0 23 6D 73 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 #msg 00007DE0 20 20 20 20 24 30 20 69 66 20 63 68 61 72 61 63 74 65 72 20 64 65 66 20 48 20 72 23 72 2C 28 30 $0 if character def H r#r,(0 00007E00 3D 52 2C 72 29 2F 46 64 65 66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 =R,r)/Fdef 00007E20 20 20 20 20 20 6E 73 63 72 65 65 6E 3A 24 65 72 72 20 69 66 20 7E 28 7E 65 6D 70 74 79 20 6B 29 nscreen:$err if ~(~empty k) 00007E40 26 26 2F 6B 23 6A 45 27 20 2D 2E 30 31 32 33 34 35 36 37 38 39 65 27 20 20 20 20 20 20 20 20 20 &&/k#jE' -.0123456789e' 00007E60 20 20 20 20 20 20 20 20 24 30 20 69 66 56 2F 64 65 66 3D 28 64 65 66 3E 30 29 58 52 2C 72 23 43 $0 ifV/def=(def>0)XR,r#C 00007E80 6A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 j 00007EA0 20 20 20 20 20 20 20 20 20 65 72 72 3A 24 31 20 48 20 4C 23 27 6E 6F 74 20 65 78 61 63 74 6C 79 err:$1 H L#'not exactly 00007EC0 20 27 2C 28 28 56 2F 64 65 66 3E 30 29 2F 46 64 65 66 29 2C 27 20 6E 75 6D 62 65 72 27 2C 28 56 ',((V/def>0)/Fdef),' number',(V 00007EE0 2F 64 65 66 3E 31 29 2F 27 73 27 22 20 63 68 61 72 61 63 74 65 72 73 20 6D 61 79 20 62 65 20 61 /def>1)/'s'" characters may be a 00007F00 64 64 65 64 20 6F 72 20 64 65 6C 65 74 65 64 20 66 72 6F 6D 20 6E 73 63 72 65 65 6E 20 20 20 20 dded or deleted from nscreen 00007F20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 $0 00007F40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00007F60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 70 72 6F 6D 70 74 20 2D 20 70 72 6F 6D 70 74 20 "prompt - prompt 00007F80 61 6E 64 20 63 68 65 63 6B 20 74 65 72 6D 69 6E 61 6C 20 65 6E 74 72 79 20 6F 72 20 65 6C 73 65 and check terminal entry or else 00007FA0 20 64 65 66 61 75 6C 74 20 20 20 20 20 20 20 20 20 22 66 72 6F 6D 20 27 74 68 65 20 61 70 6C 20 default "from 'the apl 00007FC0 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 00007FE0 74 20 31 39 37 38 2C 20 69 62 6D 2E 20 20 20 20 20 20 20 22 2D 70 72 6F 6D 70 74 20 63 61 6E 20 t 1978, ibm. "-prompt can 00008000 65 78 61 6D 69 6E 65 20 6B 65 79 62 6F 61 72 64 20 65 6E 74 72 79 2C 20 61 6E 64 20 65 69 74 68 examine keyboard entry, and eith 00008020 65 72 20 61 63 63 65 70 74 20 69 74 20 20 20 20 20 20 20 20 20 22 20 75 6E 63 72 69 74 69 63 61 er accept it " uncritica 00008040 6C 6C 79 2C 20 72 65 74 75 72 6E 20 61 20 73 70 65 63 69 66 69 65 64 20 64 65 66 61 75 6C 74 20 lly, return a specified default 00008060 63 68 61 72 61 63 74 65 72 20 76 65 63 74 6F 72 2C 20 20 20 20 20 20 22 20 6F 72 2C 20 69 66 20 character vector, " or, if 00008080 6E 75 6D 65 72 69 63 20 76 61 6C 75 65 73 20 61 72 65 20 72 65 71 75 65 73 74 65 64 2C 20 77 69 numeric values are requested, wi 000080A0 6C 6C 20 63 68 65 63 6B 20 74 68 65 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 63 68 61 72 61 ll check the " chara 000080C0 63 74 65 72 20 73 65 74 20 75 73 65 64 2C 20 61 6E 64 20 63 61 6E 20 63 68 65 63 6B 20 66 6F 72 cter set used, and can check for 000080E0 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6C 65 6E 67 74 68 2E 20 20 20 20 20 22 2D 6D 73 67 the specified length. "-msg 00008100 20 69 73 20 61 20 63 68 61 72 61 63 74 65 72 20 73 74 72 69 6E 67 2C 20 69 2E 65 2E 2C 20 74 68 is a character string, i.e., th 00008120 65 20 70 72 6F 6D 70 74 69 6E 67 20 6D 65 73 73 61 67 65 2E 20 20 20 20 20 20 20 20 20 22 2D 64 e prompting message. "-d 00008140 65 66 2C 20 69 66 20 63 68 61 72 61 63 74 65 72 2C 20 69 73 20 74 68 65 20 64 65 66 61 75 6C 74 ef, if character, is the default 00008160 20 63 68 61 72 61 63 74 65 72 20 73 74 72 69 6E 67 2C 20 6F 72 2C 20 27 27 20 20 20 20 20 20 22 character string, or, '' " 00008180 20 20 20 20 20 20 69 66 20 61 20 73 63 61 6C 61 72 20 6E 75 6D 65 72 69 63 20 76 61 6C 75 65 2C if a scalar numeric value, 000081A0 20 6E 3A 20 20 20 20 20 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: 000081C0 20 22 20 20 20 20 20 20 20 20 20 20 77 69 6C 6C 20 61 63 63 65 70 74 20 61 6E 79 20 6E 75 6D 65 " will accept any nume 000081E0 72 69 63 20 76 65 63 74 6F 72 20 69 66 20 6E 3D 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ric vector if n=0 00008200 20 20 20 22 20 20 20 20 20 20 20 20 20 20 77 69 6C 6C 20 72 65 6A 65 63 74 20 76 65 63 74 6F 72 " will reject vector 00008220 20 75 6E 6C 65 73 73 20 6E 3D 52 76 65 63 74 6F 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 unless n=Rvector 00008240 20 20 20 20 20 22 20 20 20 20 20 20 69 66 20 61 6E 20 69 6E 74 65 67 65 72 20 76 65 63 74 6F 72 " if an integer vector 00008260 2C 20 76 2C 20 77 69 6C 6C 20 61 63 63 65 70 74 20 61 20 6E 75 6D 65 72 69 63 20 20 20 20 20 20 , v, will accept a numeric 00008280 20 20 20 20 20 20 20 22 20 20 20 20 20 20 20 20 20 20 76 65 63 74 6F 72 20 69 66 20 69 74 73 20 " vector if its 000082A0 6C 65 6E 67 74 68 20 69 73 20 6F 6E 65 20 6D 65 6D 62 65 72 20 6F 66 20 76 2E 20 20 20 20 20 20 length is one member of v. 000082C0 20 20 20 20 20 20 20 20 20 22 2D 75 73 65 73 3A 20 47 63 68 61 72 61 63 74 65 72 20 47 65 6D 70 "-uses: Gcharacter Gemp 000082E0 74 79 20 47 69 66 20 47 48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ty Gif GH 00008300 20 20 20 20 20 20 20 20 20 20 20 78 00 00 00 FF FF FF FF FC FF FF FF 14 00 00 00 18 2C 04 00 01 x... ⁿ ¶...↑,♦.☺ 00008320 00 00 00 01 00 00 00 30 00 00 00 1B 00 00 00 13 00 00 00 00 00 00 00 01 00 00 00 73 20 6F 75 00 ...☺...0...←...‼.......☺...s ou. 00008340 00 00 00 FC FF FF FF 12 00 00 00 B0 27 04 00 01 00 00 00 3B 76 3B 77 60 00 00 00 1B 00 00 00 11 ...ⁿ ↕...░'♦.☺...;v;w`...←...◄ 00008360 00 00 00 00 00 00 00 01 00 00 00 20 20 20 22 30 00 00 00 FC FF FF FF 0E 00 00 00 B0 2F 04 00 01 .......☺... "0...ⁿ ♫...░/♦.☺ 00008380 00 00 00 69 6E 67 73 90 00 00 00 FC FF FF FF 07 00 00 00 10 2C 04 00 01 00 00 00 6D 6E 73 2E 60 ...ingsÉ...ⁿ •...►,♦.☺...mns.` 000083A0 00 00 00 FC FF FF FF 03 00 00 00 48 2D 04 00 01 00 00 00 27 74 68 65 C0 00 00 00 03 00 00 00 02 ...ⁿ ♥...H-♦.☺...'the└...♥...☻ 000083C0 00 00 00 00 00 00 00 01 00 00 00 68 6E 69 71 90 00 00 00 FC FF FF FF 01 00 00 00 D0 2C 04 00 01 .......☺...hniqÉ...ⁿ ☺...╨,♦.☺ 000083E0 00 00 00 20 69 62 6D F0 00 00 00 FC FF FF FF 20 00 00 00 E0 28 04 00 01 00 00 00 68 61 72 61 08 ... ibm≡...ⁿ ...α(♦.☺...hara◘ 00008400 01 00 00 03 00 00 00 1F 00 00 00 00 00 00 00 01 00 00 00 6E 6B 20 64 20 01 00 00 31 00 00 00 1E ☺..♥...▼.......☺...nk d ☺..1...▲ 00008420 00 00 00 00 00 00 00 01 00 00 00 22 20 63 65 38 01 00 00 0C 00 00 00 1D 00 00 00 00 00 00 00 01 .......☺..." ce8☺..♀...↔.......☺ 00008440 00 00 00 6F 70 72 69 50 01 00 00 32 00 00 00 1C 00 00 00 00 00 00 00 01 00 00 00 72 73 63 6F 68 ...opriP☺..2...∟.......☺...rscoh 00008460 01 00 00 03 00 00 00 1B 00 00 00 00 00 00 00 01 00 00 00 6C 20 77 69 80 01 00 00 FC FF FF FF 1A ☺..♥...←.......☺...l wiÇ☺..ⁿ → 00008480 00 00 00 A0 28 04 00 01 00 00 00 20 69 6E 20 98 01 00 00 FC FF FF FF 18 00 00 00 C8 28 04 00 01 ...á(♦.☺... in ÿ☺..ⁿ ↑...╚(♦.☺ 000084A0 00 00 00 72 69 78 2E B0 01 00 00 31 00 00 00 17 00 00 00 00 00 00 00 01 00 00 00 77 69 64 65 C8 ...rix.░☺..1...↨.......☺...wide╚ 000084C0 01 00 00 35 00 00 00 16 00 00 00 00 00 00 00 01 00 00 00 6C 20 62 65 E0 01 00 00 FC FF FF FF 15 ☺..5...▬.......☺...l beα☺..ⁿ § 000084E0 00 00 00 38 2D 04 00 01 00 00 00 6E 79 20 69 F8 01 00 00 03 00 00 00 14 00 00 00 00 00 00 00 01 ...8-♦.☺...ny i°☺..♥...¶.......☺ 00008500 00 00 00 66 20 68 65 10 02 00 00 FC FF FF FF 13 00 00 00 C0 28 04 00 01 00 00 00 6E 67 74 68 28 ...f he►☻..ⁿ ‼...└(♦.☺...ngth( 00008520 02 00 00 03 00 00 00 12 00 00 00 00 00 00 00 01 00 00 00 65 66 74 6D 40 02 00 00 FC FF FF FF 11 ☻..♥...↕.......☺...eftm@☻..ⁿ ◄ 00008540 00 00 00 D8 28 04 00 01 00 00 00 20 75 73 65 58 02 00 00 FC FF FF FF 0F 00 00 00 90 28 04 00 01 ...╪(♦.☺... useX☻..ⁿ ☼...É(♦.☺ 00008560 00 00 00 20 20 20 22 70 02 00 00 FC FF FF FF 0B 00 00 00 98 28 04 00 01 00 00 00 68 63 6E 74 88 ... "p☻..ⁿ ♂...ÿ(♦.☺...hcntê 00008580 02 00 00 0C 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 A0 02 00 00 32 00 00 00 09 ☻..♀...◙.......☺... á☻..2...○ 000085A0 00 00 00 00 00 00 00 01 00 00 00 72 61 74 65 B8 02 00 00 1D 00 00 00 08 00 00 00 00 00 00 00 01 .......☺...rate╕☻..↔...◘.......☺ 000085C0 00 00 00 20 60 62 2C D0 02 00 00 FD FF FF FF 07 00 00 00 80 82 04 00 01 00 00 00 6F 20 72 65 E8 ... `b,╨☻..² •...Çé♦.☺...o reΦ 000085E0 02 00 00 FC FF FF FF 04 00 00 00 B8 26 04 00 01 00 00 00 20 74 68 65 00 03 00 00 FD FF FF FF 02 ☻..ⁿ ♦...╕&♦.☺... the.♥..² ☻ 00008600 00 00 00 20 88 04 00 01 00 00 00 6E 67 20 62 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 ... ê♦.☺...ng b ♦...☺.......☺ 00008620 00 00 00 20 6D 61 74 30 03 00 00 FC FF FF FF 24 00 00 00 88 2D 04 00 01 00 00 00 69 23 7E 4C 48 ... mat0♥..ⁿ $...ê-♦.☺...i#~LH 00008640 03 00 00 26 00 00 00 23 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 60 03 00 00 0F 00 00 00 22 ♥..&...#.......☺... `♥..☼..." 00008660 00 00 00 00 00 00 00 01 00 00 00 64 74 68 20 78 03 00 00 09 00 00 00 21 00 00 00 00 00 00 00 01 .......☺...dth x♥..○...!.......☺ 00008680 00 00 00 20 20 20 20 90 03 00 00 FC FF FF FF 20 00 00 00 90 2D 04 00 01 00 00 00 20 20 20 20 A8 ... É♥..ⁿ ...É-♦.☺... ¿ 000086A0 03 00 00 0C 00 00 00 1F 00 00 00 00 00 00 00 01 00 00 00 23 6E 65 78 C0 03 00 00 32 00 00 00 1E ♥..♀...▼.......☺...#nex└♥..2...▲ 000086C0 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 D8 03 00 00 1D 00 00 00 1D 00 00 00 00 00 00 00 01 .......☺... ╪♥..↔...↔.......☺ 000086E0 00 00 00 30 5E 3D 52 F0 03 00 00 FD FF FF FF 1C 00 00 00 A0 83 04 00 01 00 00 00 74 72 20 68 08 ...0^=R≡♥..² ∟...áâ♦.☺...tr h◘ 00008700 04 00 00 08 00 00 00 1B 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 20 04 00 00 0C 00 00 00 1A ♦..◘...←.......☺... ♦..♀...→ 00008720 00 00 00 00 00 00 00 01 00 00 00 6D 6E 20 77 38 04 00 00 FC FF FF FF 19 00 00 00 E0 2D 04 00 01 .......☺...mn w8♦..ⁿ ↓...α-♦.☺ 00008740 00 00 00 6E 61 72 72 50 04 00 00 03 00 00 00 18 00 00 00 00 00 00 00 01 00 00 00 20 20 20 66 68 ...narrP♦..♥...↑.......☺... fh 00008760 04 00 00 FC FF FF FF 17 00 00 00 C8 2B 04 00 01 00 00 00 20 20 20 20 80 04 00 00 FC FF FF FF 15 ♦..ⁿ ↨...╚+♦.☺... Ç♦..ⁿ § 00008780 00 00 00 18 29 04 00 01 00 00 00 20 20 20 20 98 04 00 00 FC FF FF FF 11 00 00 00 50 27 04 00 01 ...↑)♦.☺... ÿ♦..ⁿ ◄...P'♦.☺ 000087A0 00 00 00 6D 61 74 2C B0 04 00 00 FC FF FF FF 07 00 00 00 80 5F 04 00 01 00 00 00 69 78 20 20 C8 ...mat,░♦..ⁿ •...Ç_♦.☺...ix ╚ 000087C0 04 00 00 FC FF FF FF 04 00 00 00 48 29 04 00 01 00 00 00 20 20 20 20 E0 04 00 00 FD FF FF FF 02 ♦..ⁿ ♦...H)♦.☺... α♦..² ☻ 000087E0 00 00 00 20 83 04 00 01 00 00 00 3B 20 61 20 FF FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 ... â♦.☺...; a ♦...☺.......☺ 00008800 00 00 00 6E 75 6D 65 10 05 00 00 07 00 00 00 22 00 00 00 80 B3 05 00 01 00 00 00 22 20 62 65 28 ...nume►♣..•..."...Ç│♣.☺..." be( 00008820 05 00 00 25 00 00 00 21 00 00 00 00 00 00 00 01 00 00 00 64 64 2E 20 40 05 00 00 FC FF FF FF 20 ♣..%...!.......☺...dd. @♣..ⁿ 00008840 00 00 00 A8 2E 04 00 01 00 00 00 20 20 20 20 58 05 00 00 03 00 00 00 1F 00 00 00 00 00 00 00 01 ...¿.♦.☺... X♣..♥...▼.......☺ 00008860 00 00 00 20 47 73 75 70 05 00 00 FC FF FF FF 1E 00 00 00 50 2D 04 00 01 00 00 00 20 20 20 20 88 ... Gsup♣..ⁿ ▲...P-♦.☺... ê 00008880 05 00 00 0F 00 00 00 1D 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 A0 05 00 00 06 00 00 00 1C ♣..☼...↔.......☺.......á♣..♠...∟ 000088A0 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 B8 05 00 00 06 00 00 00 1B 00 00 00 00 00 00 00 01 .......☺.......╕♣..♠...←.......☺ 000088C0 00 00 00 00 00 00 00 D0 05 00 00 09 00 00 00 1A 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 E8 .......╨♣..○...→.......☺.......Φ 000088E0 05 00 00 FC FF FF FF 19 00 00 00 68 2D 04 00 01 00 00 00 00 00 00 00 00 06 00 00 FC FF FF FF 13 ♣..ⁿ ↓...h-♦.☺........♠..ⁿ ‼ 00008900 00 00 00 C0 2D 04 00 01 00 00 00 00 00 00 00 18 06 00 00 84 00 00 00 12 00 00 00 00 00 00 00 01 ...└-♦.☺.......↑♠..ä...↕.......☺ 00008920 00 00 00 00 00 00 00 30 06 00 00 08 00 00 00 11 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 48 .......0♠..◘...◄.......☺.......H 00008940 06 00 00 84 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 60 06 00 00 FC FF FF FF 0D ♠..ä...►.......☺.......`♠..ⁿ ♪ 00008960 00 00 00 58 2D 04 00 01 00 00 00 00 00 00 00 78 06 00 00 FC FF FF FF 09 00 00 00 78 2D 04 00 01 ...X-♦.☺.......x♠..ⁿ ○...x-♦.☺ 00008980 00 00 00 00 00 00 00 90 06 00 00 04 00 00 00 08 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 A8 .......É♠..♦...◘.......☺.......¿ 000089A0 06 00 00 1A 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 88 0B 00 00 FC FF FF FF 03 ♠..→...•.......☺.......ê♂..ⁿ ♥ 000089C0 00 00 00 80 2D 04 00 01 00 00 00 00 00 00 00 D8 06 00 00 FC FF FF FF 19 00 00 00 88 2F 04 00 01 ...Ç-♦.☺.......╪♠..ⁿ ↓...ê/♦.☺ 000089E0 00 00 00 00 00 00 00 F0 06 00 00 23 00 00 00 18 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 08 .......≡♠..#...↑.......☺.......◘ 00008A00 07 00 00 03 00 00 00 17 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 20 07 00 00 FC FF FF FF 16 •..♥...↨.......☺....... •..ⁿ ▬ 00008A20 00 00 00 90 2F 04 00 01 00 00 00 00 00 00 00 38 07 00 00 0C 00 00 00 15 00 00 00 00 00 00 00 01 ...É/♦.☺.......8•..♀...§.......☺ 00008A40 00 00 00 00 00 00 00 50 07 00 00 32 00 00 00 14 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 68 .......P•..2...¶.......☺.......h 00008A60 07 00 00 38 00 00 00 13 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 80 07 00 00 09 00 00 00 12 •..8...‼.......☺.......Ç•..○...↕ 00008A80 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 98 07 00 00 FD FF FF FF 11 00 00 00 40 8E 04 00 01 .......☺.......ÿ•..² ◄...@Ä♦.☺ 00008AA0 00 00 00 00 00 00 00 B0 07 00 00 1E 00 00 00 10 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 C8 .......░•..▲...►.......☺.......╚ 00008AC0 07 00 00 FC FF FF FF 0D 00 00 00 A0 2F 04 00 01 00 00 00 00 00 00 00 E0 07 00 00 08 00 00 00 0C •..ⁿ ♪...á/♦.☺.......α•..◘...♀ 00008AE0 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 F8 07 00 00 1D 00 00 00 0B 00 00 00 00 00 00 00 01 .......☺.......°•..↔...♂.......☺ 00008B00 00 00 00 00 00 00 00 10 08 00 00 FC FF FF FF 08 00 00 00 A0 2E 04 00 01 00 00 00 02 00 00 00 28 .......►◘..ⁿ ◘...á.♦.☺...☻...( 00008B20 08 00 00 0F 00 00 00 07 00 00 00 00 00 00 00 01 00 00 00 61 74 65 20 40 08 00 00 36 00 00 00 06 ◘..☼...•.......☺...ate @◘..6...♠ 00008B40 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 58 08 00 00 FC FF FF FF 04 00 00 00 28 2C 04 00 01 .......☺... X◘..ⁿ ♦...(,♦.☺ 00008B60 00 00 00 20 20 20 20 70 08 00 00 FD FF FF FF 02 00 00 00 00 8F 04 00 01 00 00 00 31 29 52 6A FF ... p◘..² ☻....Å♦.☺...1)Rj 00008B80 FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 A0 08 00 00 07 00 00 00 3F ♦...☺.......☺... á◘..•...? 00008BA0 00 00 00 00 0B 05 00 01 00 00 00 23 28 6A 3E B8 08 00 00 0F 00 00 00 3E 00 00 00 00 00 00 00 01 ....♂♣.☺...#(j>╕◘..☼...>.......☺ 00008BC0 00 00 00 26 28 6A 73 D0 08 00 00 09 00 00 00 3D 00 00 00 00 00 00 00 01 00 00 00 5B 3B 4C 69 E8 ...&(js╨◘..○...=.......☺...[;LiΦ 00008BE0 08 00 00 FD FF FF FF 3C 00 00 00 60 0B 05 00 01 00 00 00 35 39 35 29 00 09 00 00 1E 00 00 00 3B ◘..² <...`♂♣.☺...595).○..▲...; 00008C00 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 18 09 00 00 FC FF FF FF 38 00 00 00 F0 28 04 00 01 .......☺... ↑○..ⁿ 8...≡(♦.☺ 00008C20 00 00 00 20 6A 23 6A 30 09 00 00 0F 00 00 00 37 00 00 00 00 00 00 00 01 00 00 00 33 36 35 32 48 ... j#j0○..☼...7.......☺...3652H 00008C40 09 00 00 36 00 00 00 36 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 60 09 00 00 08 00 00 00 35 ○..6...6.......☺... `○..◘...5 00008C60 00 00 00 00 00 00 00 01 00 00 00 36 35 2E 32 78 09 00 00 0C 00 00 00 34 00 00 00 00 00 00 00 01 .......☺...65.2x○..♀...4.......☺ 00008C80 00 00 00 20 20 20 20 90 09 00 00 07 00 00 00 2B 00 00 00 80 B8 05 00 01 00 00 00 20 20 20 6A A8 ... É○..•...+...Ç╕♣.☺... j¿ 00008CA0 09 00 00 0C 00 00 00 2A 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 C0 09 00 00 09 00 00 00 29 ○..♀...*.......☺... └○..○...) 00008CC0 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 D8 09 00 00 FC FF FF FF 26 00 00 00 A8 2F 04 00 01 .......☺... ╪○..ⁿ &...¿/♦.☺ 00008CE0 00 00 00 35 38 37 35 F0 09 00 00 26 00 00 00 25 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 08 ...5875≡○..&...%.......☺... ◘ 00008D00 0A 00 00 0F 00 00 00 24 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 20 0A 00 00 09 00 00 00 23 ◙..☼...$.......☺... ◙..○...# 00008D20 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 38 0A 00 00 FD FF FF FF 22 00 00 00 40 0D 05 00 01 .......☺... 8◙..² "...@♪♣.☺ 00008D40 00 00 00 20 20 20 20 50 0A 00 00 1E 00 00 00 21 00 00 00 00 00 00 00 01 00 00 00 28 6A 2B 79 68 ... P◙..▲...!.......☺...(j+yh 00008D60 0A 00 00 FC FF FF FF 1E 00 00 00 70 2F 04 00 01 00 00 00 20 20 20 20 80 0A 00 00 0F 00 00 00 1D ◙..ⁿ ▲...p/♦.☺... Ç◙..☼...↔ 00008D80 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 98 0A 00 00 36 00 00 00 1C 00 00 00 00 00 00 00 01 .......☺... ÿ◙..6...∟.......☺ 00008DA0 00 00 00 20 20 20 20 B0 0A 00 00 08 00 00 00 1B 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 C8 ... ░◙..◘...←.......☺... ╚ 00008DC0 0A 00 00 08 00 00 00 1A 00 00 00 00 00 00 00 01 00 00 00 20 2D 20 63 E0 0A 00 00 0C 00 00 00 19 ◙..◘...→.......☺... - cα◙..♀...↓ 00008DE0 00 00 00 00 00 00 00 01 00 00 00 72 6F 6D 20 F8 0A 00 00 07 00 00 00 0B 00 00 00 C0 B1 05 00 01 .......☺...rom °◙..•...♂...└▒♣.☺ 00008E00 00 00 00 62 65 72 20 10 0B 00 00 03 00 00 00 0A 00 00 00 00 00 00 00 01 00 00 00 61 6E 64 62 28 ...ber ►♂..♥...◙.......☺...andb( 00008E20 0B 00 00 2C 00 00 00 09 00 00 00 00 00 00 00 01 00 00 00 6F 70 79 72 40 0B 00 00 FC FF FF FF 07 ♂..,...○.......☺...opyr@♂..ⁿ • 00008E40 00 00 00 38 2C 04 00 01 00 00 00 65 74 75 72 58 0B 00 00 FD FF FF FF 05 00 00 00 E0 0E 05 00 01 ...8,♦.☺...eturX♂..² ♣...α♫♣.☺ 00008E60 00 00 00 20 73 74 79 70 0B 00 00 04 00 00 00 04 00 00 00 00 00 00 00 01 00 00 00 20 20 20 20 88 ... styp♂..♦...♦.......☺... ê 00008E80 0B 00 00 1A 00 00 00 03 00 00 00 00 00 00 00 01 00 00 00 6C 69 61 6E FF FF FF FF FC FF FF FF 05 ♂..→...♥.......☺...lian ⁿ ♣ 00008EA0 00 00 00 98 2E 04 00 01 00 00 00 20 62 65 20 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 ...ÿ.♦.☺... be ☻...........☺ 00008EC0 00 00 00 2D 6A 73 20 D0 0B 00 00 FD FF FF FF 02 00 00 00 60 0A 05 00 01 00 00 00 65 20 6F 72 FF ...-js ╨♂..² ☻...`◙♣.☺...e or 00008EE0 FF FF FF 04 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 6C 79 2C 20 FF FF FF FF 02 00 00 00 00 ♦...☺.......☺...ly, ☻.... 00008F00 00 00 00 00 00 00 00 01 00 00 00 79 20 6F 66 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 .......☺...y of ☻...........☺ 00008F20 00 00 00 68 65 20 73 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 20 22 20 31 FF ...he s ☻...........☺... " 1 00008F40 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 75 6C 69 61 FF FF FF FF 02 00 00 00 00 ☻...........☺...ulia ☻.... 00008F60 00 00 00 00 00 00 00 01 00 00 00 64 20 28 30 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 .......☺...d (0 ☻...........☺ 00008F80 00 00 00 6E 64 61 72 FF FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 6C 79 2C 20 FF ...ndar ☻...........☺...ly, 00008FA0 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 65 64 20 22 FF FF FF FF 02 00 00 00 00 ☻...........☺...ed " ☻.... 00008FC0 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 00 01 .......☺... ☻...........☺ 00008FE0 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 80 29 04 00 FF ... ☻...........☺...Ç)♦. 00009000 FF FF FF 02 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 60 34 04 00 FF FF FF FF 02 00 00 00 00 ☻...........☺...`4♦. ☻.... 00009020 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 00 00 00 00 00 01 .......☺....... ☻...........☺ 00009040 00 00 00 00 00 00 00 00 00 00 00 D8 00 00 00 18 03 00 00 F8 04 00 00 C0 06 00 00 88 08 00 00 A0 ...........╪...↑♥..°♦..└♠..ê◘..á 00009060 0B 00 00 B8 0B 00 00 E8 0B 00 00 00 0C 00 00 18 0C 00 00 30 0C 00 00 48 0C 00 00 60 0C 00 00 78 ♂..╕♂..Φ♂...♀..↑♀..0♀..H♀..`♀..x 00009080 0C 00 00 90 0C 00 00 A8 0C 00 00 C0 0C 00 00 D8 0C 00 00 F0 0C 00 00 08 0D 00 00 20 0D 00 00 C0 ♀..É♀..¿♀..└♀..╪♀..≡♀..◘♪.. ♪..└ 000090A0 00 00 00 A8 06 00 00 02 00 00 00 6B 00 02 00 00 00 6A 00 04 00 00 00 6D 73 67 00 07 00 00 00 70 ...¿♠..☻...k.☻...j.♦...msg.•...p 000090C0 72 6F 6D 70 74 00 04 00 00 00 64 65 66 00 02 00 00 00 72 00 04 00 00 00 6D 73 67 00 02 00 00 00 rompt.♦...def.☻...r.♦...msg.☻... 000090E0 72 00 02 00 00 00 48 00 02 00 00 00 72 00 02 00 00 00 72 00 02 00 00 00 6A 00 02 00 00 00 48 00 r.☻...H.☻...r.☻...r.☻...j.☻...H. 00009100 04 00 00 00 64 65 66 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 03 00 00 00 ♦...def.♦...☺.......♦.......♥... 00009120 69 66 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 64 65 66 00 02 if.♦...☺.......♦.......♦...def.☻ 00009140 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 02 00 00 00 72 00 02 ...r.♦...☺.......♦.......☻...r.☻ 00009160 00 00 00 72 00 02 00 00 00 48 00 04 00 00 00 64 65 66 00 0A 00 00 00 63 68 61 72 61 63 74 65 72 ...r.☻...H.♦...def.◙...character 00009180 00 03 00 00 00 69 66 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 08 00 00 00 .♥...if.♦...☺.......♦.......◘... 000091A0 0E 00 00 00 01 00 00 00 01 00 00 00 0E 00 00 00 20 2D 2E 30 31 32 33 34 35 36 37 38 39 65 02 00 ♫...☺...☺...♫... -.0123456789e☻. 000091C0 00 00 6A 00 02 00 00 00 6B 00 02 00 00 00 6B 00 06 00 00 00 65 6D 70 74 79 00 03 00 00 00 69 66 ..j.☻...k.☻...k.♠...empty.♥...if 000091E0 00 04 00 00 00 65 72 72 00 08 00 00 00 6E 73 63 72 65 65 6E 00 02 00 00 00 6A 00 02 00 00 00 72 .♦...err.◘...nscreen.☻...j.☻...r 00009200 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 64 65 66 00 04 00 00 .♦...☺.......♦.......♦...def.♦.. 00009220 00 64 65 66 00 03 00 00 00 69 66 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00 .def.♥...if.♦...☺.......♦....... 00009240 08 00 00 00 01 00 00 00 00 00 00 00 01 00 00 00 73 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 ◘...☺.......☺...s♦...☺.......♦.. 00009260 00 01 00 00 00 04 00 00 00 64 65 66 00 08 00 00 00 07 00 00 00 01 00 00 00 01 00 00 00 07 00 00 .☺...♦...def.◘...•...☺...☺...•.. 00009280 00 20 6E 75 6D 62 65 72 04 00 00 00 64 65 66 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 . number♦...def.♦...☺.......♦... 000092A0 00 00 00 00 04 00 00 00 64 65 66 00 08 00 00 00 0C 00 00 00 01 00 00 00 01 00 00 00 0C 00 00 00 ....♦...def.◘...♀...☺...☺...♀... 000092C0 6E 6F 74 20 65 78 61 63 74 6C 79 20 02 00 00 00 48 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 not exactly ☻...H.♦...☺.......♦. 000092E0 00 00 01 00 00 00 04 00 00 00 65 72 72 00 04 00 00 00 01 00 00 00 00 00 00 00 04 00 00 00 00 00 ..☺...♦...err.♦...☺.......♦..... 00009300 00 00 00 ...