/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / f / family2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 44 01 00 00 54 03 00 00 |Archive.|D...T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 46 61 6d 69 6c 79 | 00 00 00 00 ff ff ff ff |.!Family|........|
|00000070| 47 ff ff ff de 35 b7 9c | 30 00 00 00 ff ff ff ff |G....5..|0.......|
|00000080| d8 00 00 80 82 21 42 6f | 6f 74 00 ff ff ff a2 00 |.....!Bo|ot......|
|00000090| b1 00 00 00 44 eb ff ff | 70 83 ad 46 03 00 6a 43 |....D...|p..F..jC|
|000000a0| b1 00 00 00 24 00 00 00 | 83 21 52 75 6e 00 cc ff |....$...|.!Run...|
|000000b0| ff ff a2 00 db 00 00 00 | 43 eb ff ff 87 a2 46 33 |........|C.....F3|
|000000c0| 03 00 ef c6 da 00 00 00 | f9 00 00 00 83 21 52 55 |........|.....!RU|
|000000d0| 4e 49 4d 41 47 45 00 00 | 41 cf 00 00 43 fb ff ff |NIMAGE..|A...C...|
|000000e0| c5 7f 4f 33 03 00 00 00 | a5 cd 00 00 f7 01 00 00 |..O3....|........|
|000000f0| 83 21 53 70 72 69 74 65 | 73 00 a2 00 80 0b 00 00 |.!Sprite|s.......|
|00000100| 42 f9 ff ff 1f 12 ca b7 | 03 00 e5 10 84 07 00 00 |B.......|........|
|00000110| c0 cf 00 00 00 00 3a 00 | 00 00 cc ff ff ff a2 00 |......:.|........|
|00000120| 00 00 fc ff ff ff 19 60 | 00 c7 4e 61 6d 65 3a 0d |.......`|..Name:.|
|00000130| 61 6d 65 3a b9 7b 10 00 | 83 41 63 6f 72 6e 54 72 |ame:.{..|.AcornTr|
|00000140| 65 65 00 00 41 42 00 00 | 43 00 f0 ff 0a e7 40 33 |ee..AB..|C.....@3|
|00000150| 03 00 00 00 dc 11 00 00 | 68 d7 00 00 83 52 6f 79 |........|h....Roy|
|00000160| 61 6c 00 00 00 00 00 00 | ed ab 00 00 43 00 f0 ff |al......|....C...|
|00000170| fd e1 54 33 03 00 00 00 | b6 21 00 00 68 e9 00 00 |..T3....|.!..h...|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 21 42 6f |....File|Data.!Bo|
|00000360| 6f 74 00 ff ff ff a2 00 | b1 00 00 00 44 eb ff ff |ot......|....D...|
|00000370| 70 83 ad 46 03 00 6a 43 | 7c 20 3e 20 21 46 41 4d |p..F..jC|| > !FAM|
|00000380| 49 4c 59 2e 21 42 6f 6f | 74 0a 7c 0a 7c 20 42 6f |ILY.!Boo|t.|.| Bo|
|00000390| 6f 74 20 66 69 6c 65 20 | 66 6f 72 20 46 61 6d 69 |ot file |for Fami|
|000003a0| 6c 79 0a 7c 0a 49 63 6f | 6e 53 70 72 69 74 65 73 |ly.|.Ico|nSprites|
|000003b0| 20 3c 4f 62 65 79 24 44 | 69 72 3e 2e 21 53 70 72 | <Obey$D|ir>.!Spr|
|000003c0| 69 74 65 73 0a 53 65 74 | 20 41 6c 69 61 73 24 40 |ites.Set| Alias$@|
|000003d0| 52 75 6e 54 79 70 65 5f | 30 30 30 20 2f 3c 4f 62 |RunType_|000 /<Ob|
|000003e0| 65 79 24 44 69 72 3e 2e | 21 52 75 6e 20 25 25 2a |ey$Dir>.|!Run %%*|
|000003f0| 30 0a 53 65 74 20 46 69 | 6c 65 24 54 79 70 65 5f |0.Set Fi|le$Type_|
|00000400| 30 30 30 20 46 61 6d 69 | 6c 79 46 69 6c 65 0a 53 |000 Fami|lyFile.S|
|00000410| 65 74 20 46 69 6c 65 24 | 54 79 70 65 5f 43 44 45 |et File$|Type_CDE|
|00000420| 20 43 53 56 46 69 6c 65 | 0a 46 69 6c 65 44 61 74 | CSVFile|.FileDat|
|00000430| 61 83 21 52 75 6e 00 cc | ff ff ff a2 00 db 00 00 |a.!Run..|........|
|00000440| 00 43 eb ff ff 87 a2 46 | 33 03 00 ef c6 0a 7c 20 |.C.....F|3.....| |
|00000450| 21 52 75 6e 20 66 69 6c | 65 20 66 6f 72 20 21 46 |!Run fil|e for !F|
|00000460| 61 6d 69 6c 79 20 70 72 | 6f 67 72 61 6d 0a 0a 57 |amily pr|ogram..W|
|00000470| 69 6d 70 53 6c 6f 74 20 | 2d 6d 69 6e 20 32 30 30 |impSlot |-min 200|
|00000480| 4b 0a 49 63 6f 6e 53 70 | 72 69 74 65 73 20 3c 4f |K.IconSp|rites <O|
|00000490| 62 65 79 24 44 69 72 3e | 2e 21 53 70 72 69 74 65 |bey$Dir>|.!Sprite|
|000004a0| 73 0a 73 65 74 20 46 61 | 6d 69 6c 79 24 64 69 72 |s.set Fa|mily$dir|
|000004b0| 20 3c 6f 62 65 79 24 64 | 69 72 3e 0a 53 65 74 20 | <obey$d|ir>.Set |
|000004c0| 46 69 6c 65 24 54 79 70 | 65 5f 30 90 03 20 46 61 |File$Typ|e_0.. Fa|
|000004d0| 6d 69 6c 79 46 69 6c 65 | 0a 53 65 74 20 41 6c 69 |milyFile|.Set Ali|
|000004e0| 61 73 24 40 52 75 6e 54 | 79 70 65 5f 30 90 03 20 |as$@RunT|ype_0.. |
|000004f0| 2f 3c 4f 62 65 79 24 44 | 69 72 3e 2e 21 52 75 6e |/<Obey$D|ir>.!Run|
|00000500| 20 25 25 2a 30 0a 52 55 | 4e 20 22 3c 4f 62 65 79 | %%*0.RU|N "<Obey|
|00000510| 24 64 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 22 |$dir>.!R|unImage"|
|00000520| 20 25 2a 30 0a 90 04 46 | 69 6c 65 44 61 74 61 83 | %*0...F|ileData.|
|00000530| 21 52 55 4e 49 4d 41 47 | 45 00 00 41 cf 00 00 47 |!RUNIMAG|E..A...G|
|00000540| fd ff ff 44 36 b7 9c 03 | 00 00 00 0d 00 0a 18 f4 |...D6...|........|
|00000550| 20 3e 21 46 41 4d 49 4c | 59 2e 21 52 55 4e 49 4d | >!FAMIL|Y.!RUNIM|
|00000560| 41 47 45 0d 00 14 05 3a | 0d 00 1e 09 66 24 3d 22 |AGE....:|....f$="|
|00000570| 22 0d 00 28 1c c8 99 20 | 22 4f 53 5f 47 65 74 45 |"..(... |"OS_GetE|
|00000580| 6e 76 22 20 b8 20 45 6e | 76 53 74 72 24 0d 00 32 |nv" . En|vStr$..2|
|00000590| 1b e7 20 a7 45 6e 76 53 | 74 72 24 2c 22 20 2d 71 |.. .EnvS|tr$," -q|
|000005a0| 75 69 74 20 22 29 20 8c | 0d 00 3c 16 20 49 25 3d |uit ") .|..<. I%=|
|000005b0| a7 45 6e 76 53 74 72 24 | 2c 22 90 04 29 0d 00 46 |.EnvStr$|,"..)..F|
|000005c0| 1b 20 49 25 3d a7 45 6e | 76 53 74 72 24 2c 22 90 |. I%=.En|vStr$,".|
|000005d0| 04 2c 49 25 2b 31 29 0d | 00 50 20 20 f5 49 25 2b |.,I%+1).|.P  .I%+|
|000005e0| 3d 31 3a fd c1 45 6e 76 | 53 74 72 24 2c 49 25 2c |=1:..Env|Str$,I%,|
|000005f0| 31 29 3c 3e 22 20 22 0d | 00 5a 14 20 66 24 3d c1 |1)<>" ".|.Z. f$=.|
|00000600| 45 6e 76 53 74 72 24 2c | 49 25 29 0d 00 64 05 cd |EnvStr$,|I%)..d..|
|00000610| 0d 00 6e 05 3a 0d 00 78 | 05 3a 0d 00 82 0e ee 20 |..n.:..x|.:..... |
|00000620| 85 20 f2 65 72 72 6f 72 | 0d 00 8c 0a f2 73 65 74 |. .error|.....set|
|00000630| 75 70 0d 00 96 11 f2 6c | 6f 61 64 66 69 6c 65 28 |up.....l|oadfile(|
|00000640| 66 24 29 0d 00 a0 09 f2 | 6d 61 69 6e 0d 00 aa 0b |f$).....|main....|
|00000650| f2 66 69 6e 69 73 68 0d | 00 b4 05 e0 0d 00 be 05 |.finish.|........|
|00000660| 3a 0d 00 c8 0b dd f2 73 | 65 74 75 70 0d 00 d2 19 |:......s|etup....|
|00000670| 61 6c 69 61 73 24 3d 22 | 3c 46 61 6d 69 6c 79 24 |alias$="|<Family$|
|00000680| 44 69 72 3e 22 0d 00 dc | 1d 74 72 65 65 66 69 6c |Dir>"...|.treefil|
|00000690| 65 25 3d 30 3a 63 73 76 | 66 69 6c 65 25 3d 26 43 |e%=0:csv|file%=&C|
|000006a0| 44 45 0d 00 e6 2a 6e 69 | 6c 25 3d 26 46 90 08 3a |DE...*ni|l%=&F..:|
|000006b0| 72 6f 6f 74 25 3d 6e 69 | 6c 25 3a 64 65 6c 65 74 |root%=ni|l%:delet|
|000006c0| 65 25 3d 6e 69 6c 25 0d | 00 f0 14 63 75 72 72 65 |e%=nil%.|...curre|
|000006d0| 6e 74 5f 6d 65 6e 75 24 | 3d 22 22 0d 00 fa 10 61 |nt_menu$|=""....a|
|000006e0| 64 64 73 74 61 74 75 73 | 25 3d a3 0d 01 04 1c 61 |ddstatus|%=.....a|
|000006f0| 64 64 6d 65 6e 75 24 3d | 22 22 3a 66 69 6c 65 73 |ddmenu$=|"":files|
|00000700| 61 76 65 25 3d 2d 31 0d | 01 0e 18 75 70 64 61 74 |ave%=-1.|...updat|
|00000710| 65 25 3d a3 3a 73 70 6c | 69 74 24 3d 22 2f 22 0d |e%=.:spl|it$="/".|
|00000720| 01 18 23 73 61 76 65 73 | 74 61 74 75 73 25 3d 30 |..#saves|tatus%=0|
|00000730| 3a 63 68 61 72 73 70 63 | 25 3d 34 30 39 36 2a 31 |:charspc|%=4096*1|
|00000740| 2e 35 0d 01 22 1f 70 65 | 72 73 6f 6e 6e 6f 64 65 |.5..".pe|rsonnode|
|00000750| 25 3d 6e 69 6c 25 3a 73 | 70 6f 75 73 65 64 25 3d |%=nil%:s|poused%=|
|00000760| a3 0d 01 2c 2d 6f 76 65 | 72 76 69 65 77 25 3d a3 |...,-ove|rview%=.|
|00000770| 3a 6d 61 78 67 65 6e 25 | 3d 33 30 3a de 20 63 6f |:maxgen%|=30:. co|
|00000780| 6c 75 6d 6e 25 28 6d 61 | 78 67 65 6e 25 29 0d 01 |lumn%(ma|xgen%)..|
|00000790| 36 0f 64 61 74 61 76 69 | 65 77 25 3d a3 0d 01 40 |6.datavi|ew%=...@|
|000007a0| 1b de 20 73 63 61 6c 65 | 25 20 31 30 3a 24 73 63 |.. scale|% 10:$sc|
|000007b0| 61 6c 65 25 3d 22 31 22 | 0d 01 4a 0f 73 63 61 6c |ale%="1"|..J.scal|
|000007c0| 65 6f 76 65 72 3d 31 0d | 01 54 37 de 20 71 25 20 |eover=1.|.T7. q% |
|000007d0| 31 30 30 2c 20 62 6c 6f | 63 6b 25 20 32 30 90 03 |100, blo|ck% 20..|
|000007e0| 2c 20 6d 65 6e 62 6c 6b | 25 20 31 30 90 04 2c 63 |, menblk|% 10..,c|
|000007f0| 68 65 63 6b 64 61 74 61 | 25 20 31 30 30 0d 01 5e |heckdata|% 100..^|
|00000800| 2f de 76 64 61 74 61 25 | 20 33 30 2c 61 75 25 20 |/.vdata%| 30,au% |
|00000810| 33 30 2c 70 75 72 25 20 | 34 30 2c 70 6e 61 6d 65 |30,pur% |40,pname|
|00000820| 25 20 33 30 2c 69 63 77 | 25 20 33 30 0d 01 68 1f |% 30,icw|% 30..h.|
|00000830| 76 65 72 73 69 6f 6e 24 | 3d 22 32 2e 34 30 20 20 |version$|="2.40  |
|00000840| 3c 31 38 2e 30 36 2e 39 | 31 3e 22 0d 01 72 32 de |<18.06.9|1>"..r2.|
|00000850| 20 69 63 6f 6e 62 6c 6b | 25 20 32 30 30 2c 66 69 | iconblk|% 200,fi|
|00000860| 6e 64 69 63 6f 6e 25 20 | 34 30 30 2c 20 67 65 6e |ndicon% |400, gen|
|00000870| 70 6f 69 6e 74 65 72 73 | 25 20 31 30 30 0d 01 7c |pointers|% 100..||
|00000880| 13 de 20 66 69 6c 65 69 | 63 6f 6e 25 20 34 30 30 |.. filei|con% 400|
|00000890| 0d 01 86 18 de 20 66 69 | 6e 64 5f 69 63 6f 6e 5f |..... fi|nd_icon_|
|000008a0| 6e 75 6d 28 36 2c 36 29 | 0d 01 90 00 13 de 20 66 |num(6,6)|...... f|
|000008b0| 69 6c 65 5f 64 61 74 25 | 20 32 35 35 0d 01 9a 21 |ile_dat%| 255...!|
|000008c0| 20 de 20 64 61 74 61 6d | 61 73 6b 24 28 31 36 29 | . datam|ask$(16)|
|000008d0| 2c 64 61 74 61 73 65 74 | 24 28 31 36 29 0d 01 a4 |,dataset|$(16)...|
|000008e0| 11 f2 64 61 74 61 76 69 | 65 77 69 6e 69 74 0d 01 |..datavi|ewinit..|
|000008f0| ae 19 64 61 74 61 73 65 | 74 24 28 29 3d c4 36 30 |..datase|t$()=.60|
|00000900| 2c bd 28 33 32 29 29 0d | 01 b8 2b 74 69 74 66 63 |,.(32)).|..+titfc|
|00000910| 6f 6c 25 3d 37 3a 74 69 | 74 62 63 6f 6c 25 3d 32 |ol%=7:ti|tbcol%=2|
|00000920| 3a 66 67 63 6f 6c 25 3d | 37 3a 62 67 63 6f 6c 25 |:fgcol%=|7:bgcol%|
|00000930| 3d 30 0d 01 c2 22 73 63 | 72 62 63 6f 6c 25 3d 33 |=0..."sc|rbcol%=3|
|00000940| 3a 73 63 72 66 63 6f 6c | 25 3d 31 3a 68 69 67 68 |:scrfcol|%=1:high|
|00000950| 25 3d 31 32 0d 01 cc 16 | 63 75 72 72 65 6e 74 5f |%=12....|current_|
|00000960| 70 65 72 25 3d 72 6f 6f | 74 25 0d 01 d6 0c f2 6f |per%=roo|t%.....o|
|00000970| 66 66 73 65 74 73 0d 01 | e0 30 de 20 70 65 72 73 |ffsets..|.0. pers|
|00000980| 64 25 20 70 65 72 73 6f | 6e 6c 65 6e 67 74 68 25 |d% perso|nlength%|
|00000990| 2c 66 70 65 72 73 64 25 | 20 70 65 72 73 6f 6e 6c |,fpersd%| personl|
|000009a0| 65 6e 67 74 68 25 0d 01 | ea 17 66 69 6e 64 62 6c |ength%..|..findbl|
|000009b0| 6b 25 3d a4 64 69 6d 70 | 65 72 73 6f 6e 0d 01 f4 |k%=.dimp|erson...|
|000009c0| 0e 24 71 25 3d 22 54 41 | 53 4b 22 0d 01 fe 34 c8 |.$q%="TA|SK"...4.|
|000009d0| 99 20 22 57 69 6d 70 5f | 49 6e 69 74 69 61 6c 69 |. "Wimp_|Initiali|
|000009e0| 73 65 22 2c 32 30 30 2c | 21 71 25 2c 22 46 61 6d |se",200,|!q%,"Fam|
|000009f0| 69 6c 79 22 20 b8 20 2c | 68 61 6e 64 6c 65 25 0d |ily" . ,|handle%.|
|00000a00| 02 08 20 f2 73 70 72 69 | 74 65 73 28 61 6c 69 61 |.. .spri|tes(alia|
|00000a10| 73 24 2b 22 2e 21 53 70 | 72 69 74 65 73 22 29 0d |s$+".!Sp|rites").|
|00000a20| 02 12 1e 69 63 6f 6e 68 | 25 3d a4 69 63 6f 6e 62 |...iconh|%=.iconb|
|00000a30| 61 72 28 22 21 46 61 6d | 69 6c 79 22 29 0d 02 1c |ar("!Fam|ily")...|
|00000a40| 17 6f 6c 64 74 72 65 65 | 24 3d 22 74 72 65 65 66 |.oldtree|$="treef|
|00000a50| 69 6c 65 22 0d 02 26 17 | 6f 6c 64 64 72 61 77 24 |ile"..&.|olddraw$|
|00000a60| 3d 22 64 72 61 77 66 69 | 6c 65 22 0d 02 30 15 6f |="drawfi|le"..0.o|
|00000a70| 6c 64 63 73 76 24 3d 22 | 63 73 76 66 69 6c 65 22 |ldcsv$="|csvfile"|
|00000a80| 0d 02 3a 0c f2 77 69 6e | 64 6f 77 73 0d 02 44 17 |..:..win|dows..D.|
|00000a90| 64 61 74 61 73 78 25 3d | 30 3a 64 61 74 61 73 79 |datasx%=|0:datasy|
|00000aa0| 25 3d 30 0d 02 4e 17 64 | 61 74 61 74 78 25 3d 30 |%=0..N.d|atatx%=0|
|00000ab0| 3a 64 61 74 61 74 79 25 | 3d 30 0d 02 58 05 e1 0d |:dataty%|=0..X...|
|00000ac0| 02 62 05 3a 0d 02 6c 0a | dd f2 6d 61 69 6e 0d 02 |.b.:..l.|..main..|
|00000ad0| 76 05 f5 0d 02 80 20 f2 | 70 6f 6c 6c 28 25 31 30 |v..... .|poll(%10|
|00000ae0| 30 31 90 07 30 31 31 30 | 31 31 30 30 31 31 29 0d |01..0110|110011).|
|00000af0| 02 8a 2d fd 20 28 72 65 | 61 73 6f 6e 25 3d 31 37 |..-. (re|ason%=17|
|00000b00| 20 84 20 72 65 61 73 6f | 6e 25 3d 31 38 29 20 80 | . reaso|n%=18) .|
|00000b10| 20 62 6c 6f 63 6b 25 21 | 31 36 3d 30 0d 02 94 05 | block%!|16=0....|
|00000b20| e1 0d 02 9e 05 3a 0d 02 | a8 16 dd a4 69 63 6f 6e |.....:..|....icon|
|00000b30| 62 61 72 28 73 70 6e 61 | 6d 65 24 29 0d 02 b2 0e |bar(spna|me$)....|
|00000b40| 21 62 6c 6f 63 6b 25 3d | 2d 31 0d 02 bc 0e 62 6c |!block%=|-1....bl|
|00000b50| 6f 63 6b 25 21 34 3d 30 | 0d 02 c6 0e 62 6c 6f 63 |ock%!4=0|....bloc|
|00000b60| 6b 25 21 38 3d 30 0d 02 | d0 10 62 6c 6f 63 6b 25 |k%!8=0..|..block%|
|00000b70| 21 31 32 3d 36 33 0d 02 | da 10 62 6c 6f 63 6b 25 |!12=63..|..block%|
|00000b80| 21 31 36 3d 36 34 0d 02 | e4 13 62 6c 6f 63 6b 25 |!16=64..|..block%|
|00000b90| 21 32 30 3d 26 32 31 30 | 32 0d 02 ee 1c de 20 62 |!20=&210|2..... b|
|00000ba0| 6c 6f 63 6b 25 21 32 34 | 20 28 a9 73 70 6e 61 6d |lock%!24| (.spnam|
|00000bb0| 65 24 2b 31 29 0d 02 f8 | 18 24 28 62 6c 6f 63 6b |e$+1)...|.$(block|
|00000bc0| 25 21 32 34 29 3d 73 70 | 6e 61 6d 65 24 0d 03 02 |%!24)=sp|name$...|
|00000bd0| 15 62 6c 6f 63 6b 25 21 | 32 38 3d 73 70 72 69 74 |.block%!|28=sprit|
|00000be0| 65 25 0d 03 0c 1a 62 6c | 6f 63 6b 25 21 33 32 3d |e%....bl|ock%!32=|
|00000bf0| 28 a9 73 70 6e 61 6d 65 | 24 2b 31 29 0d 03 16 28 |(.spname|$+1)...(|
|00000c00| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |.. "Wimp|_CreateI|
|00000c10| 63 6f 6e 22 2c 2c 62 6c | 6f 63 6b 25 20 b8 20 69 |con",,bl|ock% . i|
|00000c20| 63 6f 6e 25 0d 03 20 0a | 3d 69 63 6f 6e 25 0d 03 |con%.. .|=icon%..|
|00000c30| 2a 05 3a 0d 03 34 14 dd | f2 73 70 72 69 74 65 73 |*.:..4..|.sprites|
|00000c40| 28 66 69 6c 65 24 29 0d | 03 3e 0f 73 70 3d 8e 28 |(file$).|.>.sp=.(|
|00000c50| 66 69 6c 65 24 29 0d 03 | 48 10 64 69 6d 25 3d a2 |file$)..|H.dim%=.|
|00000c60| 23 73 70 2b 31 36 0d 03 | 52 08 d9 23 73 70 0d 03 |#sp+16..|R..#sp..|
|00000c70| 5c 12 de 20 73 70 72 69 | 74 65 25 20 64 69 6d 25 |\.. spri|te% dim%|
|00000c80| 0d 03 66 11 21 73 70 72 | 69 74 65 25 3d 64 69 6d |..f.!spr|ite%=dim|
|00000c90| 25 0d 03 70 0f 73 70 72 | 69 74 65 25 21 34 3d 30 |%..p.spr|ite%!4=0|
|00000ca0| 0d 03 7a 10 73 70 72 69 | 74 65 25 21 38 3d 31 36 |..z.spri|te%!8=16|
|00000cb0| 0d 03 84 11 73 70 72 69 | 74 65 25 21 31 32 3d 31 |....spri|te%!12=1|
|00000cc0| 36 0d 03 8e 29 c8 99 20 | 22 4f 53 5f 53 70 72 69 |6...).. |"OS_Spri|
|00000cd0| 74 65 4f 70 22 2c 32 35 | 36 2b 31 30 2c 73 70 72 |teOp",25|6+10,spr|
|00000ce0| 69 74 65 25 2c 66 69 6c | 65 24 0d 03 98 05 e1 0d |ite%,fil|e$......|
|00000cf0| 03 a2 05 3a 0d 03 ac 11 | dd f2 70 6f 6c 6c 28 6d |...:....|..poll(m|
|00000d00| 61 73 6b 25 29 0d 03 b6 | 11 21 62 6c 6f 63 6b 25 |ask%)...|.!block%|
|00000d10| 3d 6d 61 73 6b 25 0d 03 | c0 25 c8 99 20 22 57 69 |=mask%..|.%.. "Wi|
|00000d20| 6d 70 5f 50 6f 6c 6c 22 | 2c 30 2c 62 6c 6f 63 6b |mp_Poll"|,0,block|
|00000d30| 25 20 b8 20 72 65 61 73 | 6f 6e 25 0d 03 ca 1e e7 |% . reas|on%.....|
|00000d40| 20 72 65 61 73 6f 6e 25 | 20 f2 61 63 74 69 6f 6e | reason%| .action|
|00000d50| 28 72 65 61 73 6f 6e 25 | 29 0d 03 d4 05 e1 0d 03 |(reason%|).......|
|00000d60| de 05 3a 0d 03 e8 15 dd | f2 61 63 74 69 6f 6e 28 |..:.....|.action(|
|00000d70| 72 65 61 73 6f 6e 25 29 | 0d 03 f2 10 c8 8e 20 72 |reason%)|...... r|
|00000d80| 65 61 73 6f 6e 25 20 ca | 0d 03 fc 1e c9 20 31 20 |eason% .|..... 1 |
|00000d90| 3a 20 f2 72 65 64 72 61 | 77 77 69 6e 28 62 6c 6f |: .redra|wwin(blo|
|00000da0| 63 6b 25 21 30 29 0d 04 | 06 0f c9 20 32 20 3a 20 |ck%!0)..|... 2 : |
|00000db0| f2 6f 70 65 6e 0d 04 10 | 10 c9 20 33 20 3a 20 f2 |.open...|.. 3 : .|
|00000dc0| 63 6c 6f 73 65 0d 04 1a | 3b c9 20 36 20 3a 20 f2 |close...|;. 6 : .|
|00000dd0| 63 68 65 63 6b 5f 6d 6f | 75 73 65 28 21 62 6c 6f |check_mo|use(!blo|
|00000de0| 63 6b 25 2c 62 6c 6f 63 | 6b 25 21 34 2c 62 6c 6f |ck%,bloc|k%!4,blo|
|00000df0| 63 6b 25 21 38 2c 62 6c | 6f 63 6b 25 21 31 32 29 |ck%!8,bl|ock%!12)|
|00000e00| 0d 04 24 12 c9 20 37 20 | 3a 20 f2 64 72 61 67 65 |..$.. 7 |: .drage|
|00000e10| 6e 64 0d 04 2e 12 c9 20 | 38 20 3a 20 f2 63 68 61 |nd..... |8 : .cha|
|00000e20| 72 65 6e 74 0d 04 38 16 | c9 20 39 20 3a 20 f2 6d |rent..8.|. 9 : .m|
|00000e30| 65 6e 75 5f 73 65 6c 65 | 63 74 0d 04 42 1e c9 20 |enu_sele|ct..B.. |
|00000e40| 31 37 2c 31 38 20 3a 20 | f2 6d 65 73 73 61 67 65 |17,18 : |.message|
|00000e50| 28 62 6c 6f 63 6b 25 29 | 0d 04 4c 05 cb 0d 04 56 |(block%)|..L....V|
|00000e60| 05 e1 0d 04 60 05 3a 0d | 04 6a 24 dd f2 63 68 65 |....`.:.|.j$..che|
|00000e70| 63 6b 5f 6d 6f 75 73 65 | 28 6d 78 25 2c 6d 79 25 |ck_mouse|(mx%,my%|
|00000e80| 2c 62 75 74 25 2c 68 6e | 64 25 29 0d 04 74 0d c8 |,but%,hn|d%)..t..|
|00000e90| 8e 20 62 75 74 25 20 ca | 0d 04 7e 1b c9 20 32 20 |. but% .|..~.. 2 |
|00000ea0| 3a 20 6d 78 25 2d 3d 36 | 34 3a c8 8e 20 68 6e 64 |: mx%-=6|4:.. hnd|
|00000eb0| 25 20 ca 0d 04 88 25 20 | c9 20 2d 32 20 3a f2 63 |% ....% |. -2 :.c|
|00000ec0| 72 65 61 74 65 5f 69 63 | 6f 6e 5f 6d 65 6e 75 28 |reate_ic|on_menu(|
|00000ed0| 6d 78 25 2c 6d 79 25 29 | 0d 04 92 24 20 c9 20 6d |mx%,my%)|...$ . m|
|00000ee0| 61 69 6e 25 20 3a 20 f2 | 63 72 65 61 74 65 5f 6d |ain% : .|create_m|
|00000ef0| 65 6e 75 28 6d 78 25 2c | 6d 79 25 29 0d 04 9c 24 |enu(mx%,|my%)...$|
|00000f00| 20 c9 20 6f 76 65 72 25 | 20 3a 20 f2 63 72 65 61 | . over%| : .crea|
|00000f10| 74 65 5f 6f 76 65 72 28 | 6d 78 25 2c 6d 79 25 29 |te_over(|mx%,my%)|
|00000f20| 0d 04 a6 2a 20 c9 20 64 | 61 74 61 77 69 6e 64 6f |...* . d|atawindo|
|00000f30| 77 25 20 3a 20 f2 63 72 | 65 61 74 65 5f 64 61 74 |w% : .cr|eate_dat|
|00000f40| 61 28 6d 78 25 2c 6d 79 | 25 29 0d 04 b0 05 cb 0d |a(mx%,my|%)......|
|00000f50| 04 ba 13 c9 20 34 20 3a | 20 c8 8e 20 68 6e 64 25 |.... 4 :| .. hnd%|
|00000f60| 20 ca 0d 04 c4 19 c9 20 | 2d 32 20 3a 20 f2 63 72 | ...... |-2 : .cr|
|00000f70| 65 61 74 65 5f 77 69 6e | 64 6f 77 0d 04 ce 2e c9 |eate_win|dow.....|
|00000f80| 20 64 61 74 61 77 69 6e | 64 6f 77 25 20 3a 20 f2 | datawin|dow% : .|
|00000f90| 70 75 74 63 61 72 65 74 | 69 6e 74 6f 64 61 74 61 |putcaret|intodata|
|00000fa0| 28 6d 78 25 2c 6d 79 25 | 29 0d 04 d8 29 c9 20 6d |(mx%,my%|)...). m|
|00000fb0| 61 69 6e 25 20 3a 20 61 | 64 64 73 74 61 74 75 73 |ain% : a|ddstatus|
|00000fc0| 25 3d a3 3a c8 8e 20 62 | 6c 6f 63 6b 25 21 31 36 |%=.:.. b|lock%!16|
|00000fd0| 20 ca 0d 04 e2 44 20 c9 | 20 6f 6b 25 20 3a 20 61 | ....D .| ok% : a|
|00000fe0| 64 64 73 74 61 74 75 73 | 25 3d b9 3a ef 37 3a e7 |ddstatus|%=.:.7:.|
|00000ff0| 20 72 6f 6f 74 25 3d 6e | 69 6c 25 20 8c 20 f2 6e | root%=n|il% . .n|
|00001000| 65 77 74 72 65 65 20 8b | 20 f2 72 65 73 6f 72 74 |ewtree .| .resort|
|00001010| 62 72 61 6e 63 68 0d 04 | ec 18 20 c9 20 69 6c 65 |branch..|.. . ile|
|00001020| 66 74 25 20 3a 20 f2 6c | 65 66 74 73 69 62 0d 04 |ft% : .l|eftsib..|
|00001030| f6 1a 20 c9 20 69 72 69 | 67 68 74 25 20 3a 20 f2 |.. . iri|ght% : .|
|00001040| 72 69 67 68 74 73 69 62 | 0d 05 00 16 20 c9 20 69 |rightsib|.... . i|
|00001050| 64 6f 77 6e 25 20 3a 20 | f2 63 68 69 6c 64 0d 05 |down% : |.child..|
|00001060| 0a 15 20 c9 20 69 75 70 | 25 20 3a 20 f2 70 61 72 |.. . iup|% : .par|
|00001070| 65 6e 74 0d 05 14 19 20 | c9 20 69 73 70 6f 75 73 |ent.... |. ispous|
|00001080| 65 25 20 3a 20 f2 73 70 | 6f 75 73 65 0d 05 1e 06 |e% : .sp|ouse....|
|00001090| 20 cb 0d 05 28 40 20 e7 | 20 62 6c 6f 63 6b 25 21 | ...(@ .| block%!|
|000010a0| 31 36 3c 3e 2d 31 20 8c | 20 c8 99 20 22 57 69 6d |16<>-1 .| .. "Wim|
|000010b0| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 6f |p_ForceR|edraw",o|
|000010c0| 76 65 72 25 2c 30 2c 30 | 2c 31 32 38 30 2c 31 30 |ver%,0,0|,1280,10|
|000010d0| 32 34 0d 05 32 27 c9 20 | 63 68 65 63 6b 25 20 3a |24..2'. |check% :|
|000010e0| 20 f2 64 65 6c 65 74 65 | 70 65 72 73 6f 6e 28 62 | .delete|person(b|
|000010f0| 6c 6f 63 6b 25 21 31 36 | 29 0d 05 3c 1c c9 20 66 |lock%!16|)..<.. f|
|00001100| 69 6e 64 77 69 6e 64 25 | 20 3a 20 f2 66 69 6e 64 |indwind%| : .find|
|00001110| 63 6c 69 63 6b 0d 05 46 | 22 c9 20 6f 76 65 72 25 |click..F|". over%|
|00001120| 20 3a 20 f2 67 6f 74 6f | 70 65 72 73 6f 6e 28 6d | : .goto|person(m|
|00001130| 78 25 2c 6d 79 25 29 0d | 05 50 29 c9 20 66 69 6c |x%,my%).|.P). fil|
|00001140| 65 77 69 6e 64 6f 77 25 | 20 3a 20 e7 20 62 6c 6f |ewindow%| : . blo|
|00001150| 63 6b 25 21 31 36 3d 66 | 69 6c 65 6f 6b 25 20 8c |ck%!16=f|ileok% .|
|00001160| 0d 05 5a 26 20 90 14 c8 | 8e 20 66 69 6c 65 73 61 |..Z& ...|. filesa|
|00001170| 76 65 25 20 ca 0d 05 64 | 3d 20 90 15 c9 20 30 20 |ve% ...d|= ... 0 |
|00001180| 3a 20 6f 25 3d a4 73 61 | 76 65 5f 74 72 65 65 28 |: o%=.sa|ve_tree(|
|00001190| 24 28 66 69 6c 65 69 63 | 6f 6e 25 2b 34 34 29 29 |$(fileic|on%+44))|
|000011a0| 0d 05 6e 3d 20 90 15 c9 | 20 31 20 3a 20 f2 73 61 |..n= ...| 1 : .sa|
|000011b0| 76 65 76 65 72 74 64 72 | 61 77 28 24 28 66 69 6c |vevertdr|aw($(fil|
|000011c0| 65 69 63 6f 6e 25 2b 34 | 34 29 29 0d 05 78 3f 20 |eicon%+4|4))..x? |
|000011d0| 90 15 c9 20 32 20 3a 20 | f2 73 61 76 65 68 6f 72 |... 2 : |.savehor|
|000011e0| 69 64 72 61 77 28 24 28 | 66 69 6c 65 69 63 6f 6e |idraw($(|fileicon|
|000011f0| 25 2b 34 34 29 2c b9 29 | 0d 05 82 38 20 90 15 c9 |%+44),.)|...8 ...|
|00001200| 20 33 20 3a 20 f2 73 61 | 76 65 63 73 76 28 24 28 | 3 : .sa|vecsv($(|
|00001210| 66 69 6c 65 69 63 6f 6e | 25 2b 34 34 29 29 0d 05 |fileicon|%+44))..|
|00001220| 8c 19 20 90 14 cb 0d 05 | 96 2f 20 90 14 c8 99 20 |.. .....|./ .... |
|00001230| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|00001240| 22 2c 2d 31 0d 05 a0 18 | 20 90 13 cd 0d 05 aa 05 |",-1....| .......|
|00001250| cb 0d 05 b4 13 c9 20 31 | 20 3a 20 c8 8e 20 68 6e |...... 1| : .. hn|
|00001260| 64 25 20 ca 0d 05 be 05 | cb 0d 05 c8 15 20 c9 20 |d% .....|..... . |
|00001270| 36 34 20 3a 20 f2 64 72 | 61 67 66 69 6c 65 0d 05 |64 : .dr|agfile..|
|00001280| d2 05 cb 0d 05 dc 05 e1 | 0d 05 e6 05 3a 0d 05 f0 |........|....:...|
|00001290| 1e dd f2 73 65 74 5f 76 | 65 72 73 69 6f 6e 28 70 |...set_v|ersion(p|
|000012a0| 74 25 2c 48 25 2c 76 65 | 72 24 29 0d 05 fa 0b 21 |t%,H%,ve|r$)....!|
|000012b0| 71 25 3d 70 74 25 0d 06 | 04 0b 71 25 21 34 3d 48 |q%=pt%..|..q%!4=H|
|000012c0| 25 0d 06 0e 1e c8 99 20 | 22 57 69 6d 70 5f 47 65 |%...... |"Wimp_Ge|
|000012d0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|000012e0| 06 18 0f 24 71 25 21 32 | 38 3d 76 65 72 24 0d 06 |...$q%!2|8=ver$..|
|000012f0| 22 0a 71 25 21 38 3d 30 | 0d 06 2c 0b 71 25 21 31 |".q%!8=0|..,.q%!1|
|00001300| 32 3d 30 0d 06 36 1e c8 | 99 20 22 57 69 6d 70 5f |2=0..6..|. "Wimp_|
|00001310| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |SetIconS|tate",,q|
|00001320| 25 0d 06 40 05 e1 0d 06 | 4a 05 3a 0d 06 54 0c dd |%..@....|J.:..T..|
|00001330| f2 66 69 6e 69 73 68 0d | 06 5e 23 c8 99 20 22 57 |.finish.|.^#.. "W|
|00001340| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 2c 68 |imp_Clos|eDown",h|
|00001350| 61 6e 64 6c 65 25 2c 21 | 71 25 0d 06 68 05 e0 0d |andle%,!|q%..h...|
|00001360| 06 72 05 e1 0d 06 7c 05 | 3a 0d 06 86 0b dd f2 65 |.r....|.|:......e|
|00001370| 72 72 6f 72 0d 06 90 00 | 18 c8 99 20 22 57 69 6d |rror....|... "Wim|
|00001380| 70 5f 44 72 61 67 42 6f | 78 22 2c 2c 30 0d 06 9a |p_DragBo|x",,0...|
|00001390| 0d 21 62 6c 6f 63 6b 25 | 3d 9f 0d 06 a4 0b 65 72 |.!block%|=.....er|
|000013a0| 72 6f 72 3d a3 0d 06 ae | 0a c8 8e 20 9f 20 ca 0d |ror=....|... . ..|
|000013b0| 06 b8 37 c9 20 32 90 03 | 20 3a 20 24 28 62 6c 6f |..7. 2..| : $(blo|
|000013c0| 63 6b 25 2b 34 29 3d 22 | 54 68 69 73 20 66 69 6c |ck%+4)="|This fil|
|000013d0| 65 20 64 6f 65 73 20 6e | 6f 74 20 65 78 69 73 74 |e does n|ot exist|
|000013e0| 22 2b bd 28 30 29 0d 06 | c2 3a c9 20 32 30 34 20 |"+.(0)..|.:. 204 |
|000013f0| 3a 20 24 28 62 6c 6f 63 | 6b 25 2b 34 29 3d 22 49 |: $(bloc|k%+4)="I|
|00001400| 6e 76 61 6c 69 64 20 46 | 69 6c 65 6e 61 6d 65 20 |nvalid F|ilename |
|00001410| 66 6f 72 20 53 61 76 69 | 6e 67 22 2b bd 28 30 29 |for Savi|ng"+.(0)|
|00001420| 0d 06 cc 05 7f 0d 06 d6 | 36 24 28 62 6c 6f 63 6b |........|6$(block|
|00001430| 25 2b 34 29 3d 22 28 49 | 6e 74 65 72 6e 61 6c 20 |%+4)="(I|nternal |
|00001440| 65 72 72 6f 72 20 63 6f | 64 65 22 2b c3 28 9e 29 |error co|de"+.(.)|
|00001450| 2b 22 29 20 22 2b f6 24 | 2b bd 30 0d 06 e0 05 cb |+") "+.$|+.0.....|
|00001460| 0d 06 ea 0b 66 6c 61 67 | 73 3d 31 0d 06 f4 2f c8 |....flag|s=1.../.|
|00001470| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|00001480| 72 6f 72 22 2c 62 6c 6f | 63 6b 25 2c 66 6c 61 67 |ror",blo|ck%,flag|
|00001490| 73 2c 22 46 61 6d 69 6c | 79 22 0d 06 fe 1f e7 20 |s,"Famil|y"..... |
|000014a0| 65 72 72 6f 72 20 8c 20 | f2 66 69 6e 69 73 68 20 |error . |.finish |
|000014b0| 8b 20 f2 6d 61 69 6e 3a | e0 0d 07 08 05 e1 0d 07 |. .main:|........|
|000014c0| 12 05 3a 0d 07 1c 13 dd | f2 63 72 65 61 74 65 5f |..:.....|.create_|
|000014d0| 77 69 6e 64 6f 77 0d 07 | 26 11 21 62 6c 6f 63 6b |window..|&.!block|
|000014e0| 25 3d 6d 61 69 6e 25 0d | 07 30 10 62 6c 6f 63 6b |%=main%.|.0.block|
|000014f0| 25 21 34 3d 33 30 30 0d | 07 3a 12 62 6c 6f 63 6b |%!4=300.|.:.block|
|00001500| 25 21 31 32 3d 31 33 30 | 30 0d 07 44 11 62 6c 6f |%!12=130|0..D.blo|
|00001510| 63 6b 25 21 31 36 3d 38 | 30 30 0d 07 4e 0f 62 6c |ck%!16=8|00..N.bl|
|00001520| 6f 63 6b 25 21 32 30 3d | 30 0d 07 58 11 62 6c 6f |ock%!20=|0..X.blo|
|00001530| 63 6b 25 21 32 34 3d 35 | 30 30 0d 07 62 10 62 6c |ck%!24=5|00..b.bl|
|00001540| 6f 63 6b 25 21 32 38 3d | 2d 31 0d 07 6c 20 c8 99 |ock%!28=|-1..l ..|
|00001550| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|00001560| 77 22 2c 2c 62 6c 6f 63 | 6b 25 0d 07 76 05 e1 0d |w",,bloc|k%..v...|
|00001570| 07 80 05 3a 0d 07 8a 0b | dd f2 63 6c 6f 73 65 0d |...:....|..close.|
|00001580| 07 94 21 e7 20 21 62 6c | 6f 63 6b 25 3d 6f 76 65 |..!. !bl|ock%=ove|
|00001590| 72 25 20 8c 20 6f 76 65 | 72 76 69 65 77 25 3d a3 |r% . ove|rview%=.|
|000015a0| 0d 07 9e 27 e7 20 21 62 | 6c 6f 63 6b 25 3d 64 61 |...'. !b|lock%=da|
|000015b0| 74 61 77 69 6e 64 6f 77 | 25 20 8c 20 64 61 74 61 |tawindow|% . data|
|000015c0| 76 69 65 77 25 3d a3 0d | 07 a8 21 c8 99 20 22 57 |view%=..|..!.. "W|
|000015d0| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|000015e0| 2c 2c 62 6c 6f 63 6b 25 | 0d 07 b2 05 e1 0d 07 bc |,,block%|........|
|000015f0| 05 3a 0d 07 c6 0a dd f2 | 6f 70 65 6e 0d 07 d0 20 |.:......|open... |
|00001600| c8 99 20 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |.. "Wimp|_OpenWin|
|00001610| 64 6f 77 22 2c 2c 62 6c | 6f 63 6b 25 0d 07 da 05 |dow",,bl|ock%....|
|00001620| e1 0d 07 e4 05 3a 0d 07 | ee 09 dd a4 66 69 6e 0d |.....:..|....fin.|
|00001630| 07 f8 0b f2 66 69 6e 69 | 73 68 0d 08 02 06 3d 30 |....fini|sh....=0|
|00001640| 0d 08 0c 05 3a 0d 08 16 | 56 dd a4 63 72 65 61 74 |....:...|V..creat|
|00001650| 65 77 69 6e 64 6f 77 28 | 74 69 74 6c 65 24 2c 66 |ewindow(|title$,f|
|00001660| 6c 61 67 73 25 2c 66 67 | 63 6f 6c 25 2c 62 67 63 |lags%,fg|col%,bgc|
|00001670| 6f 6c 25 2c 6d 61 78 58 | 25 2c 6d 61 78 59 25 2c |ol%,maxX|%,maxY%,|
|00001680| 77 61 4c 25 2c 77 61 42 | 25 2c 77 61 52 25 2c 77 |waL%,waB|%,waR%,w|
|00001690| 61 54 25 2c 66 69 6c 65 | 72 25 29 0d 08 20 08 ea |aT%,file|r%).. ..|
|000016a0| 20 68 25 0d 08 2a 1f 62 | 6c 6f 63 6b 25 21 30 3d | h%..*.b|lock%!0=|
|000016b0| 77 61 4c 25 3a 62 6c 6f | 63 6b 25 21 34 3d 77 61 |waL%:blo|ck%!4=wa|
|000016c0| 42 25 0d 08 34 20 62 6c | 6f 63 6b 25 21 38 3d 77 |B%..4 bl|ock%!8=w|
|000016d0| 61 52 25 3a 62 6c 6f 63 | 6b 25 21 31 32 3d 77 61 |aR%:bloc|k%!12=wa|
|000016e0| 54 25 0d 08 3e 1f 62 6c | 6f 63 6b 25 21 31 36 3d |T%..>.bl|ock%!16=|
|000016f0| 30 3a 62 6c 6f 63 6b 25 | 21 32 30 3d 6d 61 78 59 |0:block%|!20=maxY|
|00001700| 25 0d 08 48 21 62 6c 6f | 63 6b 25 21 32 34 3d 2d |%..H!blo|ck%!24=-|
|00001710| 31 3a 62 6c 6f 63 6b 25 | 21 32 38 3d 66 6c 61 67 |1:block%|!28=flag|
|00001720| 73 25 0d 08 52 16 62 6c | 6f 63 6b 25 3f 33 32 3d |s%..R.bl|ock%?32=|
|00001730| 74 69 74 66 63 6f 6c 25 | 0d 08 5c 16 62 6c 6f 63 |titfcol%|..\.bloc|
|00001740| 6b 25 3f 33 33 3d 74 69 | 74 62 63 6f 6c 25 0d 08 |k%?33=ti|tbcol%..|
|00001750| 66 14 62 6c 6f 63 6b 25 | 3f 33 34 3d 66 67 63 6f |f.block%|?34=fgco|
|00001760| 6c 25 0d 08 70 14 62 6c | 6f 63 6b 25 3f 33 35 3d |l%..p.bl|ock%?35=|
|00001770| 62 67 63 6f 6c 25 0d 08 | 7a 16 62 6c 6f 63 6b 25 |bgcol%..|z.block%|
|00001780| 3f 33 36 3d 73 63 72 62 | 63 6f 6c 25 0d 08 84 16 |?36=scrb|col%....|
|00001790| 62 6c 6f 63 6b 25 3f 33 | 37 3d 73 63 72 66 63 6f |block%?3|7=scrfco|
|000017a0| 6c 25 0d 08 8e 13 62 6c | 6f 63 6b 25 3f 33 38 3d |l%....bl|ock%?38=|
|000017b0| 68 69 67 68 25 0d 08 98 | 0f c8 8e 20 66 69 6c 65 |high%...|... file|
|000017c0| 72 25 20 ca 0d 08 a2 29 | 20 c9 20 31 20 3a 20 62 |r% ....)| . 1 : b|
|000017d0| 6c 6f 63 6b 25 3f 33 35 | 3d 31 3a 62 6c 6f 63 6b |lock%?35|=1:block|
|000017e0| 25 3f 33 38 3d 74 69 74 | 62 63 6f 6c 25 0d 08 ac |%?38=tit|bcol%...|
|000017f0| 18 20 c9 20 32 20 3a 20 | 62 6c 6f 63 6b 25 3f 32 |. . 2 : |block%?2|
|00001800| 37 3d 26 31 38 0d 08 b6 | 05 cb 0d 08 c0 0f 62 6c |7=&18...|......bl|
|00001810| 6f 63 6b 25 3f 33 39 3d | 30 0d 08 ca 0f 62 6c 6f |ock%?39=|0....blo|
|00001820| 63 6b 25 21 34 30 3d 30 | 0d 08 d4 0f 62 6c 6f 63 |ck%!40=0|....bloc|
|00001830| 6b 25 21 34 34 3d 30 0d | 08 de 13 62 6c 6f 63 6b |k%!44=0.|...block|
|00001840| 25 21 34 38 3d 6d 61 78 | 58 25 0d 08 e8 13 62 6c |%!48=max|X%....bl|
|00001850| 6f 63 6b 25 21 35 32 3d | 6d 61 78 59 25 0d 08 f2 |ock%!52=|maxY%...|
|00001860| 11 62 6c 6f 63 6b 25 21 | 35 36 3d 26 32 44 0d 08 |.block%!|56=&2D..|
|00001870| fc 13 62 6c 6f 63 6b 25 | 21 36 30 3d 26 33 30 90 |..block%|!60=&30.|
|00001880| 03 0d 09 06 0f 62 6c 6f | 63 6b 25 21 36 34 3d 30 |.....blo|ck%!64=0|
|00001890| 0d 09 10 0f 62 6c 6f 63 | 6b 25 21 36 38 3d 30 0d |....bloc|k%!68=0.|
|000018a0| 09 1a 1c 24 28 62 6c 6f | 63 6b 25 2b 37 32 29 3d |...$(blo|ck%+72)=|
|000018b0| c0 74 69 74 6c 65 24 2c | 31 31 29 0d 09 24 0f 62 |.title$,|11)..$.b|
|000018c0| 6c 6f 63 6b 25 21 38 34 | 3d 30 0d 09 2e 28 c8 99 |lock%!84|=0...(..|
|000018d0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e | "Wimp_C|reateWin|
|000018e0| 64 6f 77 22 2c 30 2c 62 | 6c 6f 63 6b 25 20 b8 20 |dow",0,b|lock% . |
|000018f0| 68 25 0d 09 38 07 3d 68 | 25 0d 09 42 05 3a 0d 09 |h%..8.=h|%..B.:..|
|00001900| 4c 0d dd f2 77 69 6e 64 | 6f 77 73 0d 09 56 44 6d |L...wind|ows..VDm|
|00001910| 61 69 6e 25 3d a4 63 72 | 65 61 74 65 77 69 6e 64 |ain%=.cr|eatewind|
|00001920| 6f 77 28 22 46 61 6d 69 | 6c 79 20 54 72 65 65 22 |ow("Fami|ly Tree"|
|00001930| 2c 26 46 2c 37 2c 30 2c | 31 30 90 03 2c 35 30 30 |,&F,7,0,|10..,500|
|00001940| 2c 30 2c 30 2c 35 30 30 | 2c 35 30 30 2c 30 29 0d |,0,0,500|,500,0).|
|00001950| 09 60 44 6f 76 65 72 25 | 3d a4 63 72 65 61 74 65 |.`Dover%|=.create|
|00001960| 77 69 6e 64 6f 77 28 22 | 4f 76 65 72 76 69 65 77 |window("|Overview|
|00001970| 22 2c 26 46 2c 37 2c 30 | 2c 31 32 37 39 2c 31 30 |",&F,7,0|,1279,10|
|00001980| 32 33 2c 35 30 2c 35 30 | 2c 39 35 30 2c 35 35 30 |23,50,50|,950,550|
|00001990| 2c 30 29 0d 09 6a 45 63 | 68 65 63 6b 25 3d a4 63 |,0)..jEc|heck%=.c|
|000019a0| 72 65 61 74 65 77 69 6e | 64 6f 77 28 22 44 65 6c |reatewin|dow("Del|
|000019b0| 65 74 65 22 2c 26 39 31 | 2c 37 2c 30 2c 39 30 30 |ete",&91|,7,0,900|
|000019c0| 2c 34 30 30 2c 31 35 30 | 2c 32 35 30 2c 31 30 35 |,400,150|,250,105|
|000019d0| 30 2c 37 35 30 2c 31 29 | 0d 09 74 4e 66 69 6e 64 |0,750,1)|..tNfind|
|000019e0| 77 69 6e 64 25 3d a4 63 | 72 65 61 74 65 77 69 6e |wind%=.c|reatewin|
|000019f0| 64 6f 77 28 22 46 69 6e | 64 20 50 65 72 73 6f 6e |dow("Fin|d Person|
|00001a00| 22 2c 26 31 46 2c 37 2c | 30 2c 31 30 90 03 2c 35 |",&1F,7,|0,10..,5|
|00001a10| 30 30 2c 32 35 30 2c 32 | 35 30 2c 31 32 35 30 2c |00,250,2|50,1250,|
|00001a20| 37 34 30 2c 30 29 0d 09 | 7e 47 66 69 6c 65 77 69 |740,0)..|~Gfilewi|
|00001a30| 6e 64 6f 77 25 3d a4 63 | 72 65 61 74 65 77 69 6e |ndow%=.c|reatewin|
|00001a40| 64 6f 77 28 22 53 61 76 | 65 20 61 73 3a 22 2c 31 |dow("Sav|e as:",1|
|00001a50| 33 31 2c 37 2c 30 2c 32 | 35 30 2c 31 36 30 2c 30 |31,7,0,2|50,160,0|
|00001a60| 2c 30 2c 36 30 30 2c 31 | 36 30 2c 31 29 0d 09 88 |,0,600,1|60,1)...|
|00001a70| 4a 69 6e 66 6f 77 69 6e | 64 6f 77 25 3d a4 63 72 |Jinfowin|dow%=.cr|
|00001a80| 65 61 74 65 77 69 6e 64 | 6f 77 28 22 49 6e 66 6f |eatewind|ow("Info|
|00001a90| 72 6d 61 74 69 6f 6e 22 | 2c 31 33 31 2c 37 2c 30 |rmation"|,131,7,0|
|00001aa0| 2c 36 32 35 2c 32 35 30 | 2c 30 2c 30 2c 37 30 30 |,625,250|,0,0,700|
|00001ab0| 2c 35 30 30 2c 31 29 0d | 09 92 50 64 61 74 61 77 |,500,1).|..Pdataw|
|00001ac0| 69 6e 64 6f 77 25 3d a4 | 63 72 65 61 74 65 77 69 |indow%=.|createwi|
|00001ad0| 6e 64 6f 77 28 22 50 65 | 72 73 6f 6e 20 44 61 74 |ndow("Pe|rson Dat|
|00001ae0| 61 22 2c 26 31 30 30 46 | 2c 37 2c 30 2c 31 36 2a |a",&100F|,7,0,16*|
|00001af0| 36 30 2c 31 36 2a 33 32 | 2c 30 2c 30 2c 35 30 30 |60,16*32|,0,0,500|
|00001b00| 2c 35 30 30 2c 32 29 0d | 09 9c 26 f4 20 64 61 74 |,500,2).|..&. dat|
|00001b10| 61 77 69 6e 64 6f 77 20 | 69 73 20 34 30 20 78 20 |awindow |is 40 x |
|00001b20| 31 36 20 63 68 61 72 61 | 63 74 65 72 73 0d 09 a6 |16 chara|cters...|
|00001b30| 11 f2 66 69 6c 65 77 69 | 6e 69 63 6f 6e 73 0d 09 |..filewi|nicons..|
|00001b40| b0 0e f2 69 6e 66 6f 69 | 63 6f 6e 73 0d 09 ba 2a |...infoi|cons...*|
|00001b50| 69 6c 65 66 74 25 3d a4 | 70 6c 61 63 65 69 63 6f |ileft%=.|placeico|
|00001b60| 6e 28 6d 61 69 6e 25 2c | 38 32 35 2c 39 35 2c bd |n(main%,|825,95,.|
|00001b70| 28 31 33 36 29 29 0d 09 | c4 29 69 73 70 6f 75 73 |(136))..|.)ispous|
|00001b80| 65 25 3d a4 70 6c 61 63 | 65 69 63 6f 6e 28 6d 61 |e%=.plac|eicon(ma|
|00001b90| 69 6e 25 2c 38 38 30 2c | 39 35 2c 22 53 22 29 0d |in%,880,|95,"S").|
|00001ba0| 09 ce 2b 69 72 69 67 68 | 74 25 3d a4 70 6c 61 63 |..+irigh|t%=.plac|
|00001bb0| 65 69 63 6f 6e 28 6d 61 | 69 6e 25 2c 39 33 35 2c |eicon(ma|in%,935,|
|00001bc0| 39 35 2c bd 28 31 33 37 | 29 29 0d 09 d8 29 69 75 |95,.(137|))...)iu|
|00001bd0| 70 25 3d a4 70 6c 61 63 | 65 69 63 6f 6e 28 6d 61 |p%=.plac|eicon(ma|
|00001be0| 69 6e 25 2c 38 38 30 2c | 31 35 35 2c bd 28 31 33 |in%,880,|155,.(13|
|00001bf0| 39 29 29 0d 09 e2 2a 69 | 64 6f 77 6e 25 3d a4 70 |9))...*i|down%=.p|
|00001c00| 6c 61 63 65 69 63 6f 6e | 28 6d 61 69 6e 25 2c 38 |laceicon|(main%,8|
|00001c10| 38 30 2c 33 35 2c bd 28 | 31 33 38 29 29 0d 09 ec |80,35,.(|138))...|
|00001c20| 1a f2 6d 61 69 6e 69 63 | 6f 6e 73 28 b9 2c 69 63 |..mainic|ons(.,ic|
|00001c30| 6f 6e 62 6c 6b 25 29 0d | 09 f6 1b f2 6d 61 69 6e |onblk%).|....main|
|00001c40| 69 63 6f 6e 73 28 a3 2c | 66 69 6e 64 69 63 6f 6e |icons(.,|findicon|
|00001c50| 25 29 0d 0a 00 0e f2 66 | 69 6e 64 69 63 6f 6e 73 |%).....f|indicons|
|00001c60| 0d 0a 0a 0f f2 63 68 65 | 63 6b 69 63 6f 6e 73 0d |.....che|ckicons.|
|00001c70| 0a 14 05 e1 0d 0a 1e 04 | 0d 0a 28 05 3a 0d 0a 32 |........|..(.:..2|
|00001c80| 0d dd f2 6f 66 66 73 65 | 74 73 0d 0a 3c 0c 66 6e |...offse|ts..<.fn|
|00001c90| 61 6d 65 25 3d 30 0d 0a | 46 0f 73 75 72 6e 61 6d |ame%=0..|F.surnam|
|00001ca0| 65 25 3d 34 30 0d 0a 50 | 11 62 69 72 74 68 64 61 |e%=40..P|.birthda|
|00001cb0| 74 65 25 3d 38 30 0d 0a | 5a 11 64 65 61 74 68 64 |te%=80..|Z.deathd|
|00001cc0| 61 74 65 25 3d 38 34 0d | 0a 64 14 6d 61 72 72 69 |ate%=84.|.d.marri|
|00001cd0| 61 67 65 64 61 74 65 25 | 3d 38 38 0d 0a 6e 13 64 |agedate%|=88..n.d|
|00001ce0| 69 76 6f 72 63 65 64 61 | 74 65 25 3d 39 32 0d 0a |ivorceda|te%=92..|
|00001cf0| 78 0f 73 69 62 6c 69 6e | 67 25 3d 39 36 0d 0a 82 |x.siblin|g%=96...|
|00001d00| 0e 63 68 69 6c 64 25 3d | 31 30 30 0d 0a 8c 0f 73 |.child%=|100....s|
|00001d10| 70 6f 75 73 65 25 3d 31 | 30 34 0d 0a 96 0c 67 65 |pouse%=1|04....ge|
|00001d20| 6e 25 3d 31 30 38 0d 0a | a0 0c 63 6f 6c 25 3d 31 |n%=108..|..col%=1|
|00001d30| 31 32 0d 0a aa 0c 72 6f | 77 25 3d 31 31 36 0d 0a |12....ro|w%=116..|
|00001d40| b4 0c 73 65 78 25 3d 31 | 32 30 0d 0a be 1b 70 65 |..sex%=1|20....pe|
|00001d50| 72 73 6f 6e 6c 65 6e 67 | 74 68 25 3d 32 30 30 2b |rsonleng|th%=200+|
|00001d60| 31 36 2a 36 35 0d 0a c8 | 0b 6e 65 78 74 25 3d 30 |16*65...|.next%=0|
|00001d70| 0d 0a d2 05 e1 0d 0a dc | 05 3a 0d 0a e6 13 dd f2 |........|.:......|
|00001d80| 72 65 64 72 61 77 77 69 | 6e 28 68 25 29 0d 0a f0 |redrawwi|n(h%)...|
|00001d90| 0f 63 6f 6c 75 6d 6e 25 | 28 29 3d 30 0d 0a fa 44 |.column%|()=0...D|
|00001da0| e7 20 61 64 64 73 74 61 | 74 75 73 25 20 8c 20 f2 |. addsta|tus% . .|
|00001db0| 6d 61 6b 65 74 72 65 65 | 28 72 6f 6f 74 25 2c 36 |maketree|(root%,6|
|00001dc0| 34 30 2c 31 30 32 33 2d | 34 30 2c 30 2c 30 2c 20 |40,1023-|40,0,0, |
|00001dd0| 63 75 72 72 65 6e 74 5f | 70 65 72 25 2c 20 b9 29 |current_|per%, .)|
|00001de0| 0d 0b 04 10 61 64 64 73 | 74 61 74 75 73 25 3d a3 |....adds|tatus%=.|
|00001df0| 0d 0b 0e 28 c8 99 20 22 | 57 69 6d 70 5f 52 65 64 |...(.. "|Wimp_Red|
|00001e00| 72 61 77 57 69 6e 64 6f | 77 22 2c 30 2c 62 6c 6f |rawWindo|w",0,blo|
|00001e10| 63 6b 25 20 b8 20 6d 25 | 0d 0b 18 0f 62 25 3d 62 |ck% . m%|....b%=b|
|00001e20| 6c 6f 63 6b 25 2b 34 0d | 0b 22 12 78 30 25 3d 62 |lock%+4.|.".x0%=b|
|00001e30| 25 21 30 2d 62 25 21 31 | 36 0d 0b 2c 13 79 30 25 |%!0-b%!1|6..,.y0%|
|00001e40| 3d 62 25 21 31 32 2d 62 | 25 21 32 30 0d 0b 36 09 |=b%!12-b|%!20..6.|
|00001e50| c8 95 20 6d 25 0d 0b 40 | 0e c8 91 20 78 30 25 2c |.. m%..@|... x0%,|
|00001e60| 79 30 25 0d 0b 4a 10 c8 | 8e 20 21 62 6c 6f 63 6b |y0%..J..|. !block|
|00001e70| 25 20 ca 0d 0b 54 1a 20 | c9 20 6d 61 69 6e 25 20 |% ...T. |. main% |
|00001e80| 3a 20 f2 72 65 64 72 61 | 77 6d 61 69 6e 0d 0b 5e |: .redra|wmain..^|
|00001e90| 1a 20 c9 20 6f 76 65 72 | 25 20 3a 20 f2 72 65 64 |. . over|% : .red|
|00001ea0| 72 61 77 6f 76 65 72 0d | 0b 68 20 20 c9 20 64 61 |rawover.|.h  . da|
|00001eb0| 74 61 77 69 6e 64 6f 77 | 25 20 3a 20 f2 72 65 64 |tawindow|% : .red|
|00001ec0| 72 61 77 64 61 74 61 0d | 0b 72 05 cb 0d 0b 7c 0a |rawdata.|.r....|.|
|00001ed0| c8 91 20 30 2c 30 0d 0b | 86 29 20 c8 99 20 22 57 |.. 0,0..|.) .. "W|
|00001ee0| 69 6d 70 5f 47 65 74 52 | 65 63 74 61 6e 67 6c 65 |imp_GetR|ectangle|
|00001ef0| 22 2c 30 2c 62 6c 6f 63 | 6b 25 20 b8 20 6d 25 0d |",0,bloc|k% . m%.|
|00001f00| 0b 90 00 05 ce 0d 0b 9a | 05 e1 0d 0b a4 05 3a 0d |........|......:.|
|00001f10| 0b ae 10 dd f2 72 65 64 | 72 61 77 6d 61 69 6e 0d |.....red|rawmain.|
|00001f20| 0b b8 1a 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |... .. "|Wimp_Set|
|00001f30| 43 6f 6c 6f 75 72 22 2c | 37 0d 0b c2 16 20 c8 93 |Colour",|7.... ..|
|00001f40| 20 38 31 35 2c 32 35 2c | 31 37 35 2c 31 38 35 0d | 815,25,|175,185.|
|00001f50| 0b cc 05 e1 0d 0b d6 05 | 3a 0d 0b e0 13 dc 20 22 |........|:..... "|
|00001f60| 46 69 72 73 74 20 4e 61 | 6d 65 73 22 0d 0b ea 0f |First Na|mes"....|
|00001f70| dc 20 22 53 75 72 6e 61 | 6d 65 22 0d 0b f4 15 dc |. "Surna|me".....|
|00001f80| 20 22 44 61 74 65 20 6f | 66 20 42 69 72 74 68 22 | "Date o|f Birth"|
|00001f90| 0d 0b fe 15 dc 20 22 44 | 61 74 65 20 6f 66 20 44 |..... "D|ate of D|
|00001fa0| 65 61 74 68 22 0d 0c 08 | 15 dc 20 22 4d 61 72 72 |eath"...|.. "Marr|
|00001fb0| 69 61 67 65 20 44 61 74 | 65 22 0d 0c 12 14 dc 20 |iage Dat|e"..... |
|00001fc0| 22 44 69 76 6f 72 63 65 | 20 44 61 74 65 22 0d 0c |"Divorce| Date"..|
|00001fd0| 1c 05 3a 0d 0c 26 1c dd | a4 70 6c 61 63 65 69 63 |..:..&..|.placeic|
|00001fe0| 6f 6e 28 68 25 2c 78 25 | 2c 79 25 2c 61 24 29 0d |on(h%,x%|,y%,a$).|
|00001ff0| 0c 30 26 21 62 6c 6f 63 | 6b 25 3d 68 25 3a 62 6c |.0&!bloc|k%=h%:bl|
|00002000| 6f 63 6b 25 21 34 3d 78 | 25 3a 62 6c 6f 63 6b 25 |ock%!4=x|%:block%|
|00002010| 21 38 3d 79 25 0d 0c 3a | 2c 62 6c 6f 63 6b 25 21 |!8=y%..:|,block%!|
|00002020| 31 32 3d 78 25 2b a9 28 | 61 24 29 2a 31 36 2b 32 |12=x%+.(|a$)*16+2|
|00002030| 39 3a 62 6c 6f 63 6b 25 | 21 31 36 3d 79 25 2b 35 |9:block%|!16=y%+5|
|00002040| 30 0d 0c 44 17 62 6c 6f | 63 6b 25 21 32 30 3d 26 |0..D.blo|ck%!20=&|
|00002050| 43 37 30 30 34 30 33 44 | 0d 0c 4e 13 24 28 62 6c |C700403D|..N.$(bl|
|00002060| 6f 63 6b 25 2b 32 34 29 | 3d 61 24 0d 0c 58 26 c8 |ock%+24)|=a$..X&.|
|00002070| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 49 63 |. "Wimp_|CreateIc|
|00002080| 6f 6e 22 2c 30 2c 62 6c | 6f 63 6b 25 20 b8 20 68 |on",0,bl|ock% . h|
|00002090| 25 0d 0c 62 08 20 3d 68 | 25 0d 0c 6c 05 3a 0d 0c |%..b. =h|%..l.:..|
|000020a0| 76 0f dd f2 69 6e 66 6f | 69 63 6f 6e 73 0d 0c 80 |v...info|icons...|
|000020b0| 14 ea 20 69 25 2c 59 25 | 2c 61 24 2c 62 24 2c 61 |.. i%,Y%|,a$,b$,a|
|000020c0| 25 0d 0c 8a 0a f7 20 8d | 54 60 4d 0d 0c 94 14 e3 |%..... .|T`M.....|
|000020d0| 59 25 3d 31 30 20 b8 20 | 31 39 30 20 88 36 30 0d |Y%=10 . |190 .60.|
|000020e0| 0c 9e 0e f3 20 61 24 2c | 62 24 2c 61 25 0d 0c a8 |.... a$,|b$,a%...|
|000020f0| 18 e7 59 25 3d 31 30 20 | 8c 20 62 24 3d 76 65 72 |..Y%=10 |. b$=ver|
|00002100| 73 69 6f 6e 24 0d 0c b2 | 37 20 69 25 3d a4 6a 75 |sion$...|7 i%=.ju|
|00002110| 73 74 74 65 78 74 69 28 | 69 6e 66 6f 77 69 6e 64 |sttexti(|infowind|
|00002120| 6f 77 25 2c 31 30 2c 59 | 25 2c 31 35 30 2c 61 24 |ow%,10,Y|%,150,a$|
|00002130| 2c 26 37 30 90 04 31 31 | 2c 30 29 0d 0c bc 39 20 |,&70..11|,0)...9 |
|00002140| 69 25 3d a4 6a 75 73 74 | 74 65 78 74 69 28 69 6e |i%=.just|texti(in|
|00002150| 66 6f 77 69 6e 64 6f 77 | 25 2c 31 35 30 2c 59 25 |fowindow|%,150,Y%|
|00002160| 2c 34 36 35 2c 62 24 2c | 26 37 30 90 03 31 33 44 |,465,b$,|&70..13D|
|00002170| 2c 61 25 29 0d 0c c6 05 | ed 0d 0c d0 05 e1 0d 0c |,a%)....|........|
|00002180| da 05 3a 0d 0c e4 25 dd | a4 6a 75 73 74 74 65 78 |..:...%.|.justtex|
|00002190| 74 69 28 68 25 2c 78 25 | 2c 79 25 2c 77 25 2c 61 |ti(h%,x%|,y%,w%,a|
|000021a0| 24 2c 66 25 2c 61 25 29 | 0d 0c ee 26 21 62 6c 6f |$,f%,a%)|...&!blo|
|000021b0| 63 6b 25 3d 68 25 3a 62 | 6c 6f 63 6b 25 21 34 3d |ck%=h%:b|lock%!4=|
|000021c0| 78 25 3a 62 6c 6f 63 6b | 25 21 38 3d 79 25 0d 0c |x%:block|%!8=y%..|
|000021d0| f8 23 62 6c 6f 63 6b 25 | 21 31 32 3d 78 25 2b 77 |.#block%|!12=x%+w|
|000021e0| 25 3a 62 6c 6f 63 6b 25 | 21 31 36 3d 79 25 2b 35 |%:block%|!16=y%+5|
|000021f0| 30 0d 0d 02 10 62 6c 6f | 63 6b 25 21 32 30 3d 66 |0....blo|ck%!20=f|
|00002200| 25 0d 0d 0c 51 e7 20 61 | 25 3d 30 20 8c 20 24 28 |%...Q. a|%=0 . $(|
|00002210| 62 6c 6f 63 6b 25 2b 32 | 34 29 3d 61 24 20 8b 20 |block%+2|4)=a$ . |
|00002220| 62 6c 6f 63 6b 25 21 32 | 34 3d 61 25 3a 62 6c 6f |block%!2|4=a%:blo|
|00002230| 63 6b 25 21 32 38 3d 2d | 31 3a 62 6c 6f 63 6b 25 |ck%!28=-|1:block%|
|00002240| 21 33 32 3d a9 28 61 24 | 29 2b 31 3a 24 61 25 3d |!32=.(a$|)+1:$a%=|
|00002250| 61 24 0d 0d 16 26 c8 99 | 20 22 57 69 6d 70 5f 43 |a$...&..| "Wimp_C|
|00002260| 72 65 61 74 65 49 63 6f | 6e 22 2c 30 2c 62 6c 6f |reateIco|n",0,blo|
|00002270| 63 6b 25 20 b8 20 68 25 | 0d 0d 20 7f dc 20 22 56 |ck% . h%|.. .. "V|
|00002280| 65 72 73 69 6f 6e 3a 22 | 2c 76 65 72 73 69 6f 6e |ersion:"|,version|
|00002290| 24 2c 76 64 61 74 61 25 | 2c 22 41 75 74 68 6f 72 |$,vdata%|,"Author|
|000022a0| 3a 22 2c 22 44 61 76 69 | 64 20 42 72 65 61 6b 77 |:","Davi|d Breakw|
|000022b0| 65 6c 6c 22 2c 61 75 25 | 2c 22 50 75 72 70 6f 73 |ell",au%|,"Purpos|
|000022c0| 65 3a 22 2c 22 46 61 6d | 69 6c 79 20 54 72 65 65 |e:","Fam|ily Tree|
|000022d0| 20 50 72 6f 67 72 61 6d | 22 2c 70 75 72 25 2c 22 | Program|",pur%,"|
|000022e0| 4e 61 6d 65 3a 22 2c 22 | 21 46 41 4d 49 4c 59 22 |Name:","|!FAMILY"|
|000022f0| 2c 70 6e 61 6d 65 25 0d | 0d 2a 40 dc 20 22 21 46 |,pname%.|.*@. "!F|
|00002300| 41 4d 49 4c 59 22 2c 22 | 46 61 6d 69 6c 79 20 54 |AMILY","|Family T|
|00002310| 72 65 65 20 50 72 6f 67 | 72 61 6d 22 2c 22 44 61 |ree Prog|ram","Da|
|00002320| 76 69 64 20 42 72 65 61 | 6b 77 65 6c 6c 22 2c 76 |vid Brea|kwell",v|
|00002330| 65 72 73 69 6f 6e 24 0d | 0d 34 05 3a 0d 0d 3e 0f |ersion$.|.4.:..>.|
|00002340| dd a4 64 69 6d 70 65 72 | 73 6f 6e 0d 0d 48 0d ea |..dimper|son..H..|
|00002350| 20 70 65 72 73 6f 6e 25 | 0d 0d 52 26 e7 20 93 2d | person%|..R&. .-|
|00002360| e0 3c 70 65 72 73 6f 6e | 6c 65 6e 67 74 68 25 2b |.<person|length%+|
|00002370| 31 30 30 20 8c 20 e0 3d | 93 2b 31 30 32 34 0d 0d |100 . .=|.+1024..|
|00002380| 5c 54 e7 20 64 65 6c 65 | 74 65 25 3d 6e 69 6c 25 |\T. dele|te%=nil%|
|00002390| 20 8c 20 de 20 70 65 72 | 73 6f 6e 25 20 70 65 72 | . . per|son% per|
|000023a0| 73 6f 6e 6c 65 6e 67 74 | 68 25 20 8b 20 70 65 72 |sonlengt|h% . per|
|000023b0| 73 6f 6e 25 3d 64 65 6c | 65 74 65 25 3a 64 65 6c |son%=del|ete%:del|
|000023c0| 65 74 65 25 3d 64 65 6c | 65 74 65 25 21 6e 65 78 |ete%=del|ete%!nex|
|000023d0| 74 25 0d 0d 66 0c 3d 70 | 65 72 73 6f 6e 25 0d 0d |t%..f.=p|erson%..|
|000023e0| 70 05 3a 0d 0d 7a 18 dd | f2 6d 61 69 6e 69 63 6f |p.:..z..|.mainico|
|000023f0| 6e 73 28 4d 25 2c 6d 65 | 6d 25 29 0d 0d 84 0e ea |ns(M%,me|m%).....|
|00002400| 20 69 63 6f 6e 62 6c 6b | 25 0d 0d 8e 11 69 63 6f | iconblk|%....ico|
|00002410| 6e 62 6c 6b 25 3d 6d 65 | 6d 25 0d 0d 98 0a f7 20 |nblk%=me|m%..... |
|00002420| 8d 64 60 4b 0d 0d a2 10 | e3 6c 6f 6f 70 25 3d 31 |.d`K....|.loop%=1|
|00002430| 20 b8 20 36 0d 0d ac 2d | 20 e7 20 4d 25 20 8c 20 | . 6...-| . M% . |
|00002440| 21 62 6c 6f 63 6b 25 3d | 6d 61 69 6e 25 20 8b 20 |!block%=|main% . |
|00002450| 21 62 6c 6f 63 6b 25 3d | 66 69 6e 64 77 69 6e 64 |!block%=|findwind|
|00002460| 25 0d 0d b6 38 20 62 6c | 6f 63 6b 25 21 32 34 3d |%...8 bl|ock%!24=|
|00002470| 28 69 63 6f 6e 62 6c 6b | 25 2b 28 31 37 2a 6c 6f |(iconblk|%+(17*lo|
|00002480| 6f 70 25 29 29 3a 62 6c | 6f 63 6b 25 21 32 38 3d |op%)):bl|ock%!28=|
|00002490| 26 46 90 08 0d 0d c0 18 | 20 62 6c 6f 63 6b 25 21 |&F......| block%!|
|000024a0| 32 30 3d 26 43 37 30 90 | 03 31 32 35 0d 0d ca 41 |20=&C70.|.125...A|
|000024b0| 20 f3 20 24 28 69 63 6f | 6e 62 6c 6b 25 2b 28 31 | . $(ico|nblk%+(1|
|000024c0| 37 2a 6c 6f 6f 70 25 29 | 29 3a 62 6c 6f 63 6b 25 |7*loop%)|):block%|
|000024d0| 21 34 3d 32 30 3a 62 6c | 6f 63 6b 25 21 38 3d 33 |!4=20:bl|ock%!8=3|
|000024e0| 39 30 2d 28 6c 6f 6f 70 | 25 2a 36 30 29 0d 0d d4 |90-(loop|%*60)...|
|000024f0| 26 20 62 6c 6f 63 6b 25 | 21 33 32 3d a9 24 28 69 |& block%|!32=.$(i|
|00002500| 63 6f 6e 62 6c 6b 25 2b | 28 31 37 2a 6c 6f 6f 70 |conblk%+|(17*loop|
|00002510| 25 29 29 0d 0d de 31 20 | 62 6c 6f 63 6b 25 21 31 |%))...1 |block%!1|
|00002520| 32 3d 62 6c 6f 63 6b 25 | 21 34 2b 32 37 30 3a 62 |2=block%|!4+270:b|
|00002530| 6c 6f 63 6b 25 21 31 36 | 3d 62 6c 6f 63 6b 25 21 |lock%!16|=block%!|
|00002540| 38 2b 35 30 0d 0d e8 22 | 20 c8 99 20 22 57 69 6d |8+50..."| .. "Wim|
|00002550| 70 5f 43 72 65 61 74 65 | 49 63 6f 6e 22 2c 30 2c |p_Create|Icon",0,|
|00002560| 62 6c 6f 63 6b 25 0d 0d | f2 24 20 62 6c 6f 63 6b |block%..|.$ block|
|00002570| 25 21 34 3d 33 30 30 3a | 62 6c 6f 63 6b 25 21 32 |%!4=300:|block%!2|
|00002580| 30 3d 26 37 30 30 46 31 | 32 35 0d 0d fc 0f 20 c8 |0=&700F1|25.... .|
|00002590| 8e 20 6c 6f 6f 70 25 20 | ca 0d 0e 06 10 20 20 c9 |. loop% |.....  .|
|000025a0| 20 31 20 3a 20 6c 25 3d | 30 0d 0e 10 11 20 20 c9 | 1 : l%=|0....  .|
|000025b0| 20 32 20 3a 20 6c 25 3d | 34 30 0d 0e 1a 11 20 20 | 2 : l%=|40....  |
|000025c0| c9 20 33 20 3a 20 6c 25 | 3d 38 30 0d 0e 24 11 20 |. 3 : l%|=80..$. |
|000025d0| 20 c9 20 34 20 3a 20 6c | 25 3d 39 31 0d 0e 2e 12 | . 4 : l|%=91....|
|000025e0| 20 20 c9 20 35 20 3a 20 | 6c 25 3d 31 30 32 0d 0e |  . 5 : |l%=102..|
|000025f0| 38 12 20 20 c9 20 36 20 | 3a 20 6c 25 3d 31 31 33 |8.  . 6 |: l%=113|
|00002600| 0d 0e 42 06 20 cb 0d 0e | 4c 36 20 e7 20 4d 25 20 |..B. ...|L6 . M% |
|00002610| 8c 20 62 6c 6f 63 6b 25 | 21 32 34 3d 70 65 72 73 |. block%|!24=pers|
|00002620| 64 25 2b 6c 25 20 8b 20 | 62 6c 6f 63 6b 25 21 32 |d%+l% . |block%!2|
|00002630| 34 3d 66 70 65 72 73 64 | 25 2b 6c 25 0d 0e 56 4b |4=fpersd|%+l%..VK|
|00002640| 20 e7 20 6c 6f 6f 70 25 | 3c 33 20 8c 20 62 6c 6f | . loop%|<3 . blo|
|00002650| 63 6b 25 21 33 32 3d 34 | 31 3a 24 28 62 6c 6f 63 |ck%!32=4|1:$(bloc|
|00002660| 6b 25 21 32 34 29 3d 22 | 22 20 8b 20 62 6c 6f 63 |k%!24)="|" . bloc|
|00002670| 6b 25 21 33 32 3d 31 32 | 3a 21 28 62 6c 6f 63 6b |k%!32=12|:!(block|
|00002680| 25 21 32 34 29 3d 30 0d | 0e 60 28 20 62 6c 6f 63 |%!24)=0.|.`( bloc|
|00002690| 6b 25 21 31 32 3d 62 6c | 6f 63 6b 25 21 34 2b 28 |k%!12=bl|ock%!4+(|
|000026a0| 62 6c 6f 63 6b 25 21 33 | 32 2b 31 29 2a 31 36 0d |block%!3|2+1)*16.|
|000026b0| 0e 6a 27 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |.j' .. "|Wimp_Cre|
|000026c0| 61 74 65 49 63 6f 6e 22 | 2c 30 2c 62 6c 6f 63 6b |ateIcon"|,0,block|
|000026d0| 25 20 b8 20 49 25 0d 0e | 74 20 e7 4d 25 20 80 20 |% . I%..|t .M% . |
|000026e0| 6c 6f 6f 70 25 3d 31 20 | 8c 20 6d 61 69 6e 62 61 |loop%=1 |. mainba|
|000026f0| 73 65 25 3d 49 25 0d 0e | 7e 21 e7 ac 4d 25 20 80 |se%=I%..|~!..M% .|
|00002700| 20 6c 6f 6f 70 25 3d 31 | 20 8c 20 66 69 6e 64 62 | loop%=1| . findb|
|00002710| 61 73 65 25 3d 49 25 0d | 0e 88 05 ed 0d 0e 92 10 |ase%=I%.|........|
|00002720| f2 63 6c 65 61 72 70 65 | 72 73 6f 6e 0d 0e 9c 30 |.clearpe|rson...0|
|00002730| 62 6c 6f 63 6b 25 21 32 | 30 3d 26 43 37 30 90 03 |block%!2|0=&C70..|
|00002740| 31 33 44 3a 62 6c 6f 63 | 6b 25 21 34 3d 32 30 3a |13D:bloc|k%!4=20:|
|00002750| 62 6c 6f 63 6b 25 21 38 | 3d 34 32 30 0d 0e a6 30 |block%!8|=420...0|
|00002760| 62 6c 6f 63 6b 25 21 31 | 32 3d 62 6c 6f 63 6b 25 |block%!1|2=block%|
|00002770| 21 34 2b 39 36 30 3a 62 | 6c 6f 63 6b 25 21 31 36 |!4+960:b|lock%!16|
|00002780| 3d 62 6c 6f 63 6b 25 21 | 38 2b 35 30 0d 0e b0 1d |=block%!|8+50....|
|00002790| 62 6c 6f 63 6b 25 21 32 | 34 3d 28 69 63 6f 6e 62 |block%!2|4=(iconb|
|000027a0| 6c 6b 25 2b 37 2a 31 37 | 29 0d 0e ba 0a e7 20 4d |lk%+7*17|)..... M|
|000027b0| 25 20 8c 0d 0e c4 25 20 | 24 28 69 63 6f 6e 62 6c |% ....% |$(iconbl|
|000027c0| 6b 25 2b 37 2a 31 37 29 | 3d 22 50 65 72 73 6f 6e |k%+7*17)|="Person|
|000027d0| 61 6c 20 44 61 74 61 22 | 0d 0e ce 05 cc 0d 0e d8 |al Data"|........|
|000027e0| 23 20 24 28 69 63 6f 6e | 62 6c 6b 25 2b 37 2a 31 |# $(icon|blk%+7*1|
|000027f0| 37 29 3d 22 46 69 6e 64 | 20 50 65 72 73 6f 6e 22 |7)="Find| Person"|
|00002800| 0d 0e e2 05 cd 0d 0e ec | 21 c8 99 20 22 57 69 6d |........|!.. "Wim|
|00002810| 70 5f 43 72 65 61 74 65 | 49 63 6f 6e 22 2c 30 2c |p_Create|Icon",0,|
|00002820| 62 6c 6f 63 6b 25 0d 0e | f6 30 62 6c 6f 63 6b 25 |block%..|.0block%|
|00002830| 21 34 3d 35 35 30 3a 62 | 6c 6f 63 6b 25 21 32 30 |!4=550:b|lock%!20|
|00002840| 3d 26 43 37 30 30 39 31 | 33 44 3a 62 6c 6f 63 6b |=&C70091|3D:block|
|00002850| 25 21 38 3d 33 30 0d 0f | 00 30 62 6c 6f 63 6b 25 |%!8=30..|.0block%|
|00002860| 21 31 32 3d 62 6c 6f 63 | 6b 25 21 34 2b 32 30 30 |!12=bloc|k%!4+200|
|00002870| 3a 62 6c 6f 63 6b 25 21 | 31 36 3d 62 6c 6f 63 6b |:block%!|16=block|
|00002880| 25 21 38 2b 35 30 0d 0f | 0a 3f 62 6c 6f 63 6b 25 |%!8+50..|.?block%|
|00002890| 21 32 34 3d 28 69 63 6f | 6e 62 6c 6b 25 2b 38 2a |!24=(ico|nblk%+8*|
|000028a0| 31 37 29 3a 24 28 69 63 | 6f 6e 62 6c 6b 25 2b 38 |17):$(ic|onblk%+8|
|000028b0| 2a 31 37 29 3d 22 4f 4b | 22 3a 62 6c 6f 63 6b 25 |*17)="OK|":block%|
|000028c0| 21 33 32 3d 32 0d 0f 14 | 0d e7 20 ac 28 4d 25 29 |!32=2...|.. .(M%)|
|000028d0| 20 8c 0d 0f 1e 1d 20 62 | 6c 6f 63 6b 25 21 34 3d | ..... b|lock%!4=|
|000028e0| 38 38 30 3a 62 6c 6f 63 | 6b 25 21 38 3d 33 30 0d |880:bloc|k%!8=30.|
|000028f0| 0f 28 20 20 62 6c 6f 63 | 6b 25 21 31 32 3d 39 37 |.(  bloc|k%!12=97|
|00002900| 30 3a 62 6c 6f 63 6b 25 | 21 31 36 3d 32 36 30 0d |0:block%|!16=260.|
|00002910| 0f 32 29 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |.2) .. "|Wimp_Cre|
|00002920| 61 74 65 49 63 6f 6e 22 | 2c 30 2c 62 6c 6f 63 6b |ateIcon"|,0,block|
|00002930| 25 20 b8 20 66 6f 6b 25 | 0d 0f 3c 05 cc 0d 0f 46 |% . fok%|..<....F|
|00002940| 28 20 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |( .. "Wi|mp_Creat|
|00002950| 65 49 63 6f 6e 22 2c 30 | 2c 62 6c 6f 63 6b 25 20 |eIcon",0|,block% |
|00002960| b8 20 6f 6b 25 0d 0f 50 | 05 cd 0d 0f 5a 0a e7 20 |. ok%..P|....Z.. |
|00002970| 4d 25 20 8c 0d 0f 64 12 | 20 21 62 6c 6f 63 6b 25 |M% ...d.| !block%|
|00002980| 3d 6d 61 69 6e 25 0d 0f | 6e 1e 20 62 6c 6f 63 6b |=main%..|n. block|
|00002990| 25 21 34 3d 35 35 30 3a | 62 6c 6f 63 6b 25 21 38 |%!4=550:|block%!8|
|000029a0| 3d 32 31 30 0d 0f 78 20 | 20 62 6c 6f 63 6b 25 21 |=210..x | block%!|
|000029b0| 31 32 3d 36 35 30 3a 62 | 6c 6f 63 6b 25 21 31 36 |12=650:b|lock%!16|
|000029c0| 3d 32 36 30 0d 0f 82 18 | 20 62 6c 6f 63 6b 25 21 |=260....| block%!|
|000029d0| 32 30 3d 26 43 37 30 90 | 04 33 44 0d 0f 8c 17 20 |20=&C70.|.3D.... |
|000029e0| 24 28 62 6c 6f 63 6b 25 | 2b 32 34 29 3d 22 53 65 |$(block%|+24)="Se|
|000029f0| 78 22 0d 0f 96 21 20 c8 | 99 20 22 57 69 6d 70 5f |x"...! .|. "Wimp_|
|00002a00| 43 72 65 61 74 65 49 63 | 6f 6e 22 2c 2c 62 6c 6f |CreateIc|on",,blo|
|00002a10| 63 6b 25 0d 0f a0 1f 20 | 62 6c 6f 63 6b 25 21 34 |ck%.... |block%!4|
|00002a20| 3d 36 37 30 3a 62 6c 6f | 63 6b 25 21 31 32 3d 37 |=670:blo|ck%!12=7|
|00002a30| 37 30 0d 0f aa 2b 20 62 | 6c 6f 63 6b 25 21 32 30 |70...+ b|lock%!20|
|00002a40| 3d 25 31 90 03 30 90 08 | 31 90 04 30 90 06 31 90 |=%1..0..|1..0..1.|
|00002a50| 04 30 31 0d 0f b4 14 20 | 24 28 62 6c 6f 63 6b 25 |.01.... |$(block%|
|00002a60| 2b 32 34 29 3d 22 22 0d | 0f be 2e 20 c8 99 20 22 |+24)="".|... .. "|
|00002a70| 57 69 6d 70 5f 43 72 65 | 61 74 65 49 63 6f 6e 22 |Wimp_Cre|ateIcon"|
|00002a80| 2c 2c 62 6c 6f 63 6b 25 | 20 b8 20 70 65 72 73 6f |,,block%| . perso|
|00002a90| 6e 73 65 78 25 0d 0f c8 | 05 cd 0d 0f d2 05 e1 0d |nsex%...|........|
|00002aa0| 0f dc 05 3a 0d 0f e6 0d | dd f2 63 68 61 72 65 6e |...:....|..charen|
|00002ab0| 74 0d 0f f0 08 ea 20 66 | 25 0d 0f fa 28 e7 20 21 |t..... f|%...(. !|
|00002ac0| 62 6c 6f 63 6b 25 3d 64 | 61 74 61 77 69 6e 64 6f |block%=d|atawindo|
|00002ad0| 77 25 20 8c 20 f2 65 6e | 74 65 72 64 61 74 61 3a |w% . .en|terdata:|
|00002ae0| e1 0d 10 04 2d e7 20 21 | 62 6c 6f 63 6b 25 20 3c |....-. !|block% <|
|00002af0| 3e 6d 61 69 6e 25 20 80 | 20 21 62 6c 6f 63 6b 25 |>main% .| !block%|
|00002b00| 20 3c 3e 66 69 6e 64 77 | 69 6e 64 25 20 8c 0d 10 | <>findw|ind% ...|
|00002b10| 0e 23 20 c8 99 20 22 57 | 69 6d 70 5f 50 72 6f 63 |.# .. "W|imp_Proc|
|00002b20| 65 73 73 4b 65 79 22 2c | 62 6c 6f 63 6b 25 21 32 |essKey",|block%!2|
|00002b30| 34 0d 10 18 06 20 e1 0d | 10 22 05 cd 0d 10 2c 12 |4.... ..|."....,.|
|00002b40| c8 8e 20 62 6c 6f 63 6b | 25 21 32 34 20 ca 0d 10 |.. block|%!24 ...|
|00002b50| 36 13 20 c9 20 31 33 20 | 20 3a 20 f7 20 8d 54 7a |6. . 13 | : . .Tz|
|00002b60| 51 0d 10 40 13 20 c9 20 | 33 39 39 20 3a 20 f7 20 |Q..@. . |399 : . |
|00002b70| 8d 44 44 51 0d 10 4a 13 | 20 c9 20 33 39 38 20 3a |.DDQ..J.| . 398 :|
|00002b80| 20 f7 20 8d 54 7a 51 0d | 10 54 27 20 7f 20 3a 20 | . .TzQ.|.T' . : |
|00002b90| c8 99 20 22 57 69 6d 70 | 5f 50 72 6f 63 65 73 73 |.. "Wimp|_Process|
|00002ba0| 4b 65 79 22 2c 62 6c 6f | 63 6b 25 21 32 34 0d 10 |Key",blo|ck%!24..|
|00002bb0| 5e 05 cb 0d 10 68 10 66 | 25 3d 62 6c 6f 63 6b 25 |^....h.f|%=block%|
|00002bc0| 21 32 34 0d 10 72 24 e7 | 20 66 25 3c 3e 31 33 20 |!24..r$.| f%<>13 |
|00002bd0| 80 20 66 25 3c 3e 33 39 | 39 20 80 20 66 25 3c 3e |. f%<>39|9 . f%<>|
|00002be0| 33 39 38 20 8c 20 e1 0d | 10 7c 26 c8 99 20 22 57 |398 . ..|.|&.. "W|
|00002bf0| 69 6d 70 5f 47 65 74 43 | 61 72 65 74 50 6f 73 69 |imp_GetC|aretPosi|
|00002c00| 74 69 6f 6e 22 2c 2c 62 | 6c 6f 63 6b 25 0d 10 86 |tion",,b|lock%...|
|00002c10| 2d e7 20 21 62 6c 6f 63 | 6b 25 3d 66 69 6e 64 77 |-. !bloc|k%=findw|
|00002c20| 69 6e 64 25 20 8c 20 62 | 6c 6f 63 6b 25 21 34 3d |ind% . b|lock%!4=|
|00002c30| 62 6c 6f 63 6b 25 21 34 | 2b 35 0d 10 90 00 05 f5 |block%!4|+5......|
|00002c40| 0d 10 9a 09 20 f3 20 6c | 25 0d 10 a4 11 fd 20 62 |.... . l|%..... b|
|00002c50| 6c 6f 63 6b 25 21 34 3d | 6c 25 0d 10 ae 08 f3 20 |lock%!4=|l%..... |
|00002c60| 6c 25 0d 10 b8 21 e7 20 | 21 62 6c 6f 63 6b 25 3d |l%...!. |!block%=|
|00002c70| 66 69 6e 64 77 69 6e 64 | 25 20 80 20 6c 25 3d 32 |findwind|% . l%=2|
|00002c80| 30 20 8c 0d 10 c2 1c 20 | e7 20 66 25 3d 33 39 39 |0 ..... |. f%=399|
|00002c90| 20 8c 20 6c 25 3d 31 36 | 20 8b 20 6c 25 3d 36 0d | . l%=16| . l%=6.|
|00002ca0| 10 cc 05 cd 0d 10 d6 1f | e7 20 21 62 6c 6f 63 6b |........|. !block|
|00002cb0| 25 3d 66 69 6e 64 77 69 | 6e 64 25 20 8c 20 6c 25 |%=findwi|nd% . l%|
|00002cc0| 2d 3d 35 0d 10 e0 2e c8 | 99 20 22 57 69 6d 70 5f |-=5.....|. "Wimp_|
|00002cd0| 53 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |SetCaret|Position|
|00002ce0| 22 2c 21 62 6c 6f 63 6b | 25 2c 6c 25 2c 90 03 2d |",!block|%,l%,..-|
|00002cf0| 31 0d 10 ea 05 e1 0d 10 | f4 15 e7 20 21 62 6c 6f |1.......|... !blo|
|00002d00| 63 6b 25 3d 6d 61 69 6e | 25 20 8c 0d 10 fe 50 20 |ck%=main|% ....P |
|00002d10| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 43 61 72 65 |.. "Wimp|_SetCare|
|00002d20| 74 50 6f 73 69 74 69 6f | 6e 22 2c 6d 61 69 6e 25 |tPositio|n",main%|
|00002d30| 2c 6d 61 69 6e 62 61 73 | 65 25 2b 28 28 33 33 35 |,mainbas|e%+((335|
|00002d40| 2d 6c 25 29 2f 36 30 29 | 2a 32 2c 62 25 2c 6c 25 |-l%)/60)|*2,b%,l%|
|00002d50| 2c 26 31 30 90 04 32 38 | 2c 30 0d 11 08 05 cc 0d |,&10..28|,0......|
|00002d60| 11 12 54 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |..T .. "|Wimp_Set|
|00002d70| 43 61 72 65 74 50 6f 73 | 69 74 69 6f 6e 22 2c 66 |CaretPos|ition",f|
|00002d80| 69 6e 64 77 69 6e 64 25 | 2c 66 69 6e 64 62 61 73 |indwind%|,findbas|
|00002d90| 65 25 2b 28 28 33 33 35 | 2d 6c 25 29 2f 36 30 29 |e%+((335|-l%)/60)|
|00002da0| 2a 32 2c 62 25 2c 6c 25 | 2c 26 31 30 90 04 32 38 |*2,b%,l%|,&10..28|
|00002db0| 2c 30 0d 11 1c 05 cd 0d | 11 26 05 e1 0d 11 30 05 |,0......|.&....0.|
|00002dc0| 3a 0d 11 3a 1a dc 20 36 | 2c 38 2c 31 30 2c 31 32 |:..:.. 6|,8,10,12|
|00002dd0| 2c 31 34 2c 31 36 2c 32 | 30 2c 36 0d 11 44 1a dc |,14,16,2|0,6..D..|
|00002de0| 20 36 2c 32 30 2c 31 36 | 2c 31 34 2c 31 32 2c 31 | 6,20,16|,14,12,1|
|00002df0| 30 2c 38 2c 36 0d 11 4e | 25 dd a4 63 6f 6e 76 73 |0,8,6..N|%..convs|
|00002e00| 74 72 64 61 74 65 28 64 | 24 29 3a ea 20 6c 25 2c |trdate(d|$):. l%,|
|00002e10| 64 25 2c 64 31 25 2c 64 | 32 25 0d 11 58 11 e7 20 |d%,d1%,d|2%..X.. |
|00002e20| 64 24 3d 22 20 22 20 8c | 20 3d 30 0d 11 62 17 64 |d$=" " .| =0..b.d|
|00002e30| 25 3d a4 6e 75 6d 62 65 | 72 28 64 24 2c 31 2c 6c |%=.numbe|r(d$,1,l|
|00002e40| 25 29 0d 11 6c 1b 64 31 | 25 3d a4 6e 75 6d 62 65 |%)..l.d1|%=.numbe|
|00002e50| 72 28 64 24 2c 6c 25 2b | 31 2c 6c 25 29 0d 11 76 |r(d$,l%+|1,l%)..v|
|00002e60| 1b 64 32 25 3d a4 6e 75 | 6d 62 65 72 28 64 24 2c |.d2%=.nu|mber(d$,|
|00002e70| 6c 25 2b 31 2c 6c 25 29 | 0d 11 80 1f e7 20 64 25 |l%+1,l%)|..... d%|
|00002e80| 3c 31 20 84 20 64 31 25 | 3c 31 20 84 20 64 32 25 |<1 . d1%|<1 . d2%|
|00002e90| 3c 30 20 8c 20 3d 30 0d | 11 8a 19 e7 20 64 25 3e |<0 . =0.|.... d%>|
|00002ea0| 33 31 20 84 20 64 31 25 | 3e 31 32 20 8c 20 3d 30 |31 . d1%|>12 . =0|
|00002eb0| 0d 11 94 0c c8 8e 20 64 | 31 25 20 ca 0d 11 9e 17 |...... d|1% .....|
|00002ec0| 20 c9 20 39 2c 34 2c 36 | 2c 31 31 20 3a 20 6c 25 | . 9,4,6|,11 : l%|
|00002ed0| 3d 33 30 0d 11 a8 17 20 | c9 20 32 20 90 08 3a 20 |=30.... |. 2 ..: |
|00002ee0| 6c 25 3d 32 38 0d 11 b2 | 0e 20 7f 20 3a 20 6c 25 |l%=28...|. . : l%|
|00002ef0| 3d 33 31 0d 11 bc 05 cb | 0d 11 c6 10 e7 20 64 25 |=31.....|..... d%|
|00002f00| 3e 6c 25 20 8c 20 3d 30 | 0d 11 d0 1a 3d 64 25 2b |>l% . =0|....=d%+|
|00002f10| 28 64 31 25 3c 3c 38 29 | 2b 28 64 32 25 3c 3c 31 |(d1%<<8)|+(d2%<<1|
|00002f20| 36 29 0d 11 da 05 3a 0d | 11 e4 15 dd a4 63 6f 6e |6)....:.|.....con|
|00002f30| 76 6e 75 6d 64 61 74 65 | 28 64 25 29 0d 11 ee 0a |vnumdate|(d%)....|
|00002f40| ea 64 24 2c 6c 24 0d 11 | f8 0f 64 24 3d 22 22 3a |.d$,l$..|..d$="":|
|00002f50| 6c 24 3d 22 22 0d 12 02 | 0f e7 20 64 25 3d 30 20 |l$=""...|.. d%=0 |
|00002f60| 8c 3d 22 22 0d 12 0c 25 | 64 24 3d c3 28 64 25 20 |.=""...%|d$=.(d% |
|00002f70| 80 20 26 46 46 29 3a e7 | a9 64 24 3d 31 20 8c 20 |. &FF):.|.d$=1 . |
|00002f80| 64 24 3d 22 30 22 2b 64 | 24 0d 12 16 2d 6c 24 3d |d$="0"+d|$...-l$=|
|00002f90| c3 28 28 64 25 20 80 20 | 26 46 46 30 30 29 3e 3e |.((d% . |&FF00)>>|
|00002fa0| 38 29 3a e7 20 a9 6c 24 | 3d 31 20 8c 20 6c 24 3d |8):. .l$|=1 . l$=|
|00002fb0| 22 30 22 2b 6c 24 0d 12 | 20 13 64 24 3d 64 24 2b |"0"+l$..| .d$=d$+|
|00002fc0| 73 70 6c 69 74 24 2b 6c | 24 0d 12 2a 30 6c 24 3d |split$+l|$..*0l$=|
|00002fd0| c3 28 28 64 25 20 80 20 | 26 46 90 04 30 90 04 29 |.((d% . |&F..0..)|
|00002fe0| 3e 3e 31 36 29 3a 6c 24 | 3d c4 34 2d a9 6c 24 2c |>>16):l$|=.4-.l$,|
|00002ff0| 22 20 22 29 2b 6c 24 0d | 12 34 11 3d 64 24 2b 73 |" ")+l$.|.4.=d$+s|
|00003000| 70 6c 69 74 24 2b 6c 24 | 0d 12 3e 05 3a 0d 12 48 |plit$+l$|..>.:..H|
|00003010| 10 dd f2 63 6f 70 79 74 | 6f 28 68 25 29 0d 12 52 |...copyt|o(h%)..R|
|00003020| 17 f4 20 43 6f 70 79 20 | 68 25 20 54 4f 20 70 65 |.. Copy |h% TO pe|
|00003030| 72 73 64 25 0d 12 5c 0e | e3 20 6f 25 3d 31 20 b8 |rsd%..\.|. o%=1 .|
|00003040| 20 37 0d 12 66 0c 20 c8 | 8e 20 6f 25 20 ca 0d 12 | 7..f. .|. o% ...|
|00003050| 70 17 20 20 c9 20 31 20 | 3a 20 24 70 65 72 73 64 |p.  . 1 |: $persd|
|00003060| 25 3d 24 68 25 0d 12 7a | 26 20 20 c9 20 32 20 3a |%=$h%..z|&  . 2 :|
|00003070| 24 28 70 65 72 73 64 25 | 2b 34 30 29 3d 24 28 68 |$(persd%|+40)=$(h|
|00003080| 25 2b 73 75 72 6e 61 6d | 65 25 29 0d 12 84 34 20 |%+surnam|e%)...4 |
|00003090| 20 c9 20 33 20 3a 20 24 | 28 70 65 72 73 64 25 2b | . 3 : $|(persd%+|
|000030a0| 38 30 29 3d a4 63 6f 6e | 76 6e 75 6d 64 61 74 65 |80)=.con|vnumdate|
|000030b0| 28 68 25 21 62 69 72 74 | 68 64 61 74 65 25 29 0d |(h%!birt|hdate%).|
|000030c0| 12 8e 34 20 20 c9 20 34 | 20 3a 20 24 28 70 65 72 |..4  . 4| : $(per|
|000030d0| 73 64 25 2b 39 31 29 3d | a4 63 6f 6e 76 6e 75 6d |sd%+91)=|.convnum|
|000030e0| 64 61 74 65 28 68 25 21 | 64 65 61 74 68 64 61 74 |date(h%!|deathdat|
|000030f0| 65 25 29 0d 12 98 38 20 | 20 c9 20 35 20 3a 20 24 |e%)...8 | . 5 : $|
|00003100| 28 70 65 72 73 64 25 2b | 31 30 32 29 3d a4 63 6f |(persd%+|102)=.co|
|00003110| 6e 76 6e 75 6d 64 61 74 | 65 28 68 25 21 6d 61 72 |nvnumdat|e(h%!mar|
|00003120| 72 69 61 67 65 64 61 74 | 65 25 29 0d 12 a2 37 20 |riagedat|e%)...7 |
|00003130| 20 c9 20 36 20 3a 20 24 | 28 70 65 72 73 64 25 2b | . 6 : $|(persd%+|
|00003140| 31 31 33 29 3d a4 63 6f | 6e 76 6e 75 6d 64 61 74 |113)=.co|nvnumdat|
|00003150| 65 28 68 25 21 64 69 76 | 6f 72 63 65 64 61 74 65 |e(h%!div|orcedate|
|00003160| 25 29 0d 12 ac a1 20 20 | c9 20 37 20 3a 20 21 69 |%)....  |. 7 : !i|
|00003170| 63 77 25 3d 6d 61 69 6e | 25 3a 69 63 77 25 21 34 |cw%=main|%:icw%!4|
|00003180| 3d 70 65 72 73 6f 6e 73 | 65 78 25 3a c8 99 20 22 |=persons|ex%:.. "|
|00003190| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|000031a0| 65 22 2c 2c 69 63 77 25 | 3a c8 99 20 22 57 69 6d |e",,icw%|:.. "Wim|
|000031b0| 70 5f 44 65 6c 65 74 65 | 49 63 6f 6e 22 2c 2c 69 |p_Delete|Icon",,i|
|000031c0| 63 77 25 3a 24 28 69 63 | 77 25 2b 32 38 29 3d bd |cw%:$(ic|w%+28)=.|
|000031d0| 28 68 25 21 73 65 78 25 | 29 3a 69 63 77 25 21 34 |(h%!sex%|):icw%!4|
|000031e0| 3d 21 69 63 77 25 3a c8 | 99 20 22 57 69 6d 70 5f |=!icw%:.|. "Wimp_|
|000031f0| 43 72 65 61 74 65 49 63 | 6f 6e 22 2c 2c 69 63 77 |CreateIc|on",,icw|
|00003200| 25 2b 34 0d 12 b6 06 20 | cb 0d 12 c0 05 ed 0d 12 |%+4.... |........|
|00003210| ca 0f e3 20 6f 25 3d 30 | 20 b8 20 31 35 0d 12 d4 |... o%=0| . 15...|
|00003220| 35 20 64 61 74 61 73 65 | 74 24 28 6f 25 29 3d 24 |5 datase|t$(o%)=$|
|00003230| 28 68 25 2b 28 70 65 72 | 73 6f 6e 6c 65 6e 67 74 |(h%+(per|sonlengt|
|00003240| 68 25 2d 28 31 36 2a 36 | 35 29 29 2b 6f 25 2a 36 |h%-(16*6|5))+o%*6|
|00003250| 35 29 0d 12 de 05 ed 0d | 12 e8 05 e1 0d 12 f2 05 |5)......|........|
|00003260| 3a 0d 12 fc 17 dd f2 63 | 6f 70 79 66 72 6f 6d 28 |:......c|opyfrom(|
|00003270| 68 25 2c 6d 65 6d 25 29 | 0d 13 06 0e e3 20 6f 25 |h%,mem%)|..... o%|
|00003280| 3d 31 20 b8 20 37 0d 13 | 10 0c 20 c8 8e 20 6f 25 |=1 . 7..|.. .. o%|
|00003290| 20 ca 0d 13 1a 14 20 20 | c9 20 31 20 3a 24 68 25 | .....  |. 1 :$h%|
|000032a0| 3d 24 6d 65 6d 25 0d 13 | 24 2b 20 20 c9 20 32 20 |=$mem%..|$+  . 2 |
|000032b0| 3a 20 24 28 68 25 2b 73 | 75 72 6e 61 6d 65 25 29 |: $(h%+s|urname%)|
|000032c0| 3d 24 28 6d 65 6d 25 2b | 73 75 72 6e 61 6d 65 25 |=$(mem%+|surname%|
|000032d0| 29 0d 13 2e 35 20 20 c9 | 20 33 20 3a 20 21 28 68 |)...5  .| 3 : !(h|
|000032e0| 25 2b 62 69 72 74 68 64 | 61 74 65 25 29 3d a4 63 |%+birthd|ate%)=.c|
|000032f0| 6f 6e 76 73 74 72 64 61 | 74 65 28 24 28 6d 65 6d |onvstrda|te($(mem|
|00003300| 25 2b 38 30 29 29 0d 13 | 38 35 20 20 c9 20 34 20 |%+80))..|85  . 4 |
|00003310| 3a 20 21 28 68 25 2b 64 | 65 61 74 68 64 61 74 65 |: !(h%+d|eathdate|
|00003320| 25 29 3d a4 63 6f 6e 76 | 73 74 72 64 61 74 65 28 |%)=.conv|strdate(|
|00003330| 24 28 6d 65 6d 25 2b 39 | 31 29 29 0d 13 42 39 20 |$(mem%+9|1))..B9 |
|00003340| 20 c9 20 35 20 3a 20 21 | 28 68 25 2b 6d 61 72 72 | . 5 : !|(h%+marr|
|00003350| 69 61 67 65 64 61 74 65 | 25 29 3d a4 63 6f 6e 76 |iagedate|%)=.conv|
|00003360| 73 74 72 64 61 74 65 28 | 24 28 6d 65 6d 25 2b 31 |strdate(|$(mem%+1|
|00003370| 30 32 29 29 0d 13 4c 38 | 20 20 c9 20 36 20 3a 20 |02))..L8|  . 6 : |
|00003380| 21 28 68 25 2b 64 69 76 | 6f 72 63 65 64 61 74 65 |!(h%+div|orcedate|
|00003390| 25 29 3d a4 63 6f 6e 76 | 73 74 72 64 61 74 65 28 |%)=.conv|strdate(|
|000033a0| 24 28 6d 65 6d 25 2b 31 | 31 33 29 29 0d 13 56 61 |$(mem%+1|13))..Va|
|000033b0| 20 20 c9 20 37 20 3a 20 | 21 69 63 77 25 3d 6d 61 |  . 7 : |!icw%=ma|
|000033c0| 69 6e 25 3a 69 63 77 25 | 21 34 3d 70 65 72 73 6f |in%:icw%|!4=perso|
|000033d0| 6e 73 65 78 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |nsex%:..| "Wimp_G|
|000033e0| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 69 63 |etIconSt|ate",,ic|
|000033f0| 77 25 3a 20 68 25 21 73 | 65 78 25 3d 97 28 c0 24 |w%: h%!s|ex%=.(.$|
|00003400| 28 69 63 77 25 2b 32 38 | 29 2c 31 29 29 0d 13 60 |(icw%+28|),1))..`|
|00003410| 06 20 cb 0d 13 6a 05 ed | 0d 13 74 0f e3 20 6f 25 |. ...j..|..t.. o%|
|00003420| 3d 30 20 b8 20 31 35 0d | 13 7e 35 20 24 28 68 25 |=0 . 15.|.~5 $(h%|
|00003430| 2b 28 70 65 72 73 6f 6e | 6c 65 6e 67 74 68 25 2d |+(person|length%-|
|00003440| 28 31 36 2a 36 35 29 29 | 2b 6f 25 2a 36 35 29 3d |(16*65))|+o%*65)=|
|00003450| 64 61 74 61 73 65 74 24 | 28 6f 25 29 0d 13 88 05 |dataset$|(o%)....|
|00003460| ed 0d 13 92 05 e1 0d 13 | 9c 05 3a 0d 13 a6 18 dd |........|..:.....|
|00003470| a4 6e 75 6d 62 65 72 28 | 64 24 2c 4f 25 2c f8 20 |.number(|d$,O%,. |
|00003480| 4f 25 29 0d 13 b0 20 ea | 20 6e 25 2c 6e 24 3a 6e |O%)... .| n%,n$:n|
|00003490| 25 3d 30 3a 6e 24 3d 22 | 30 31 32 33 34 35 36 37 |%=0:n$="|01234567|
|000034a0| 38 39 22 0d 13 ba 24 e7 | 20 a7 6e 24 2c c1 64 24 |89"...$.| .n$,.d$|
|000034b0| 2c 4f 25 2c 31 29 29 3d | 30 20 8c 20 69 25 3d 69 |,O%,1))=|0 . i%=i|
|000034c0| 25 2b 31 3a 3d 2d 31 0d | 13 c4 22 c8 95 20 a7 6e |%+1:=-1.|..".. .n|
|000034d0| 24 2c c1 64 24 2c 4f 25 | 2c 31 29 29 3c 3e 30 20 |$,.d$,O%|,1))<>0 |
|000034e0| 80 20 4f 25 3c 3d a9 64 | 24 0d 13 ce 20 20 6e 25 |. O%<=.d|$...  n%|
|000034f0| 3d 6e 25 2a 31 30 2b 28 | a7 6e 24 2c c1 64 24 2c |=n%*10+(|.n$,.d$,|
|00003500| 4f 25 2c 31 29 29 2d 31 | 29 0d 13 d8 0c 20 4f 25 |O%,1))-1|).... O%|
|00003510| 3d 4f 25 2b 31 0d 13 e2 | 05 ce 0d 13 ec 07 3d 6e |=O%+1...|......=n|
|00003520| 25 0d 13 f6 05 3a 0d 14 | 00 0d dd f2 6e 65 77 74 |%....:..|....newt|
|00003530| 72 65 65 0d 14 0a 3f 72 | 6f 6f 74 25 3d a4 64 69 |ree...?r|oot%=.di|
|00003540| 6d 70 65 72 73 6f 6e 3a | f2 63 6f 70 79 66 72 6f |mperson:|.copyfro|
|00003550| 6d 28 72 6f 6f 74 25 2c | 70 65 72 73 64 25 29 3a |m(root%,|persd%):|
|00003560| 63 75 72 72 65 6e 74 5f | 70 65 72 25 3d 72 6f 6f |current_|per%=roo|
|00003570| 74 25 0d 14 14 3c 72 6f | 6f 74 25 21 73 69 62 6c |t%...<ro|ot%!sibl|
|00003580| 69 6e 67 25 3d 6e 69 6c | 25 3a 72 6f 6f 74 25 21 |ing%=nil|%:root%!|
|00003590| 73 70 6f 75 73 65 25 3d | 6e 69 6c 25 3a 72 6f 6f |spouse%=|nil%:roo|
|000035a0| 74 25 21 63 68 69 6c 64 | 25 3d 6e 69 6c 25 0d 14 |t%!child|%=nil%..|
|000035b0| 1e 10 72 6f 6f 74 25 21 | 67 65 6e 25 3d 30 0d 14 |..root%!|gen%=0..|
|000035c0| 28 15 70 65 72 73 6f 6e | 6e 6f 64 65 25 3d 72 6f |(.person|node%=ro|
|000035d0| 6f 74 25 0d 14 32 05 e1 | 0d 14 3c 05 3a 0d 14 46 |ot%..2..|..<.:..F|
|000035e0| 0e dd a4 6e 65 77 5f 74 | 72 65 65 0d 14 50 12 f2 |...new_t|ree..P..|
|000035f0| 63 72 65 61 74 65 5f 77 | 69 6e 64 6f 77 0d 14 5a |create_w|indow..Z|
|00003600| 0c f2 6e 65 77 74 72 65 | 65 0d 14 64 06 3d 30 0d |..newtre|e..d.=0.|
|00003610| 14 6e 05 3a 0d 14 78 0d | dd a4 61 64 64 5f 73 69 |.n.:..x.|..add_si|
|00003620| 62 0d 14 82 08 ea 20 67 | 25 0d 14 8c 22 f2 63 6f |b..... g|%...".co|
|00003630| 70 79 66 72 6f 6d 28 63 | 75 72 72 65 6e 74 5f 70 |pyfrom(c|urrent_p|
|00003640| 65 72 25 2c 70 65 72 73 | 64 25 29 0d 14 96 34 e7 |er%,pers|d%)...4.|
|00003650| 20 73 70 6f 75 73 65 64 | 25 20 8c 20 63 75 72 72 | spoused|% . curr|
|00003660| 65 6e 74 5f 70 65 72 25 | 3d 70 65 72 73 6f 6e 6e |ent_per%|=personn|
|00003670| 6f 64 65 25 3a 73 70 6f | 75 73 65 64 25 3d a3 0d |ode%:spo|used%=..|
|00003680| 14 a0 22 c8 95 20 63 75 | 72 72 65 6e 74 5f 70 65 |..".. cu|rrent_pe|
|00003690| 72 25 21 73 69 62 6c 69 | 6e 67 25 3c 3e 6e 69 6c |r%!sibli|ng%<>nil|
|000036a0| 25 0d 14 aa 27 20 63 75 | 72 72 65 6e 74 5f 70 65 |%...' cu|rrent_pe|
|000036b0| 72 25 3d 63 75 72 72 65 | 6e 74 5f 70 65 72 25 21 |r%=curre|nt_per%!|
|000036c0| 73 69 62 6c 69 6e 67 25 | 0d 14 b4 05 ce 0d 14 be |sibling%|........|
|000036d0| 24 63 75 72 72 65 6e 74 | 5f 70 65 72 25 21 73 69 |$current|_per%!si|
|000036e0| 62 6c 69 6e 67 25 3d a4 | 64 69 6d 70 65 72 73 6f |bling%=.|dimperso|
|000036f0| 6e 0d 14 c8 33 21 28 63 | 75 72 72 65 6e 74 5f 70 |n...3!(c|urrent_p|
|00003700| 65 72 25 21 73 69 62 6c | 69 6e 67 25 2b 67 65 6e |er%!sibl|ing%+gen|
|00003710| 25 29 3d 63 75 72 72 65 | 6e 74 5f 70 65 72 25 21 |%)=curre|nt_per%!|
|00003720| 67 65 6e 25 0d 14 d2 18 | 67 25 3d 63 75 72 72 65 |gen%....|g%=curre|
|00003730| 6e 74 5f 70 65 72 25 21 | 67 65 6e 25 0d 14 dc 26 |nt_per%!|gen%...&|
|00003740| 63 75 72 72 65 6e 74 5f | 70 65 72 25 3d 63 75 72 |current_|per%=cur|
|00003750| 72 65 6e 74 5f 70 65 72 | 25 21 73 69 62 6c 69 6e |rent_per|%!siblin|
|00003760| 67 25 0d 14 e6 17 f2 6e | 69 6c 73 28 63 75 72 72 |g%.....n|ils(curr|
|00003770| 65 6e 74 5f 70 65 72 25 | 29 0d 14 f0 10 f2 63 6c |ent_per%|).....cl|
|00003780| 65 61 72 70 65 72 73 6f | 6e 0d 14 fa 18 63 75 72 |earperso|n....cur|
|00003790| 72 65 6e 74 5f 70 65 72 | 25 21 67 65 6e 25 3d 67 |rent_per|%!gen%=g|
|000037a0| 25 0d 15 04 2d c8 99 20 | 22 57 69 6d 70 5f 46 6f |%...-.. |"Wimp_Fo|
|000037b0| 72 63 65 52 65 64 72 61 | 77 22 2c 6d 61 69 6e 25 |rceRedra|w",main%|
|000037c0| 2c 30 2c 30 2c 31 32 38 | 30 2c 31 30 32 34 0d 15 |,0,0,128|0,1024..|
|000037d0| 0e 3b e7 20 6f 76 65 72 | 76 69 65 77 25 20 8c 20 |.;. over|view% . |
|000037e0| c8 99 20 22 57 69 6d 70 | 5f 46 6f 72 63 65 52 65 |.. "Wimp|_ForceRe|
|000037f0| 64 72 61 77 22 2c 6f 76 | 65 72 25 2c 30 2c 30 2c |draw",ov|er%,0,0,|
|00003800| 31 32 38 30 2c 31 30 32 | 34 0d 15 18 41 e7 20 64 |1280,102|4...A. d|
|00003810| 61 74 61 76 69 65 77 25 | 20 8c 20 c8 99 20 22 57 |ataview%| . .. "W|
|00003820| 69 6d 70 5f 46 6f 72 63 | 65 52 65 64 72 61 77 22 |imp_Forc|eRedraw"|
|00003830| 2c 64 61 74 61 77 69 6e | 64 6f 77 25 2c 30 2c 30 |,datawin|dow%,0,0|
|00003840| 2c 31 32 38 30 2c 31 30 | 32 34 0d 15 22 06 3d 30 |,1280,10|24..".=0|
|00003850| 0d 15 2c 05 3a 0d 15 36 | 11 dd f2 63 6c 65 61 72 |..,.:..6|...clear|
|00003860| 70 65 72 73 6f 6e 0d 15 | 40 20 24 28 70 65 72 73 |person..|@ $(pers|
|00003870| 64 25 29 3d 22 22 3a 24 | 28 70 65 72 73 64 25 2b |d%)="":$|(persd%+|
|00003880| 34 30 29 3d 22 22 0d 15 | 4a 3a 24 28 70 65 72 73 |40)=""..|J:$(pers|
|00003890| 64 25 2b 38 30 29 3d a4 | 63 6f 6e 76 6e 75 6d 64 |d%+80)=.|convnumd|
|000038a0| 61 74 65 28 30 29 3a 24 | 28 70 65 72 73 64 25 2b |ate(0):$|(persd%+|
|000038b0| 39 31 29 3d 24 28 70 65 | 72 73 64 25 2b 38 30 29 |91)=$(pe|rsd%+80)|
|000038c0| 0d 15 54 39 24 28 70 65 | 72 73 64 25 2b 31 30 32 |..T9$(pe|rsd%+102|
|000038d0| 29 3d 24 28 70 65 72 73 | 64 25 2b 38 30 29 3a 24 |)=$(pers|d%+80):$|
|000038e0| 28 70 65 72 73 64 25 2b | 31 31 33 29 3d 24 28 70 |(persd%+|113)=$(p|
|000038f0| 65 72 73 64 25 2b 38 30 | 29 0d 15 5e 12 70 65 72 |ersd%+80|)..^.per|
|00003900| 73 64 25 21 73 65 78 25 | 3d 33 32 0d 15 68 17 64 |sd%!sex%|=32..h.d|
|00003910| 61 74 61 73 65 74 24 28 | 29 3d c4 36 30 2c 22 20 |ataset$(|)=.60," |
|00003920| 22 29 0d 15 72 05 e1 0d | 15 7c 05 3a 0d 15 86 15 |")..r...|.|.:....|
|00003930| dd f2 67 65 6e 70 6f 69 | 6e 74 65 72 73 28 68 25 |..genpoi|nters(h%|
|00003940| 29 0d 15 90 00 0a ea 73 | 61 76 65 25 0d 15 9a 1f |)......s|ave%....|
|00003950| 73 61 76 65 25 3d b9 3a | f2 74 72 61 76 65 72 73 |save%=.:|.travers|
|00003960| 65 28 68 25 2c 72 6f 6f | 74 25 29 0d 15 a4 05 e1 |e(h%,roo|t%).....|
|00003970| 0d 15 ae 05 3a 0d 15 b8 | 19 dd f2 74 72 61 76 65 |....:...|...trave|
|00003980| 72 73 65 28 68 25 2c 74 | 72 6f 6f 74 25 29 0d 15 |rse(h%,t|root%)..|
|00003990| c2 14 e7 74 72 6f 6f 74 | 25 3d 6e 69 6c 25 20 8c |...troot|%=nil% .|
|000039a0| 20 e1 0d 15 cc 33 e7 20 | 73 61 76 65 25 20 8c 20 | ....3. |save% . |
|000039b0| 67 65 6e 70 6f 69 6e 74 | 65 72 73 25 21 28 28 74 |genpoint|ers%!((t|
|000039c0| 72 6f 6f 74 25 21 67 65 | 6e 25 29 2a 34 29 3d 74 |root%!ge|n%)*4)=t|
|000039d0| 72 6f 6f 74 25 0d 15 d6 | 19 e7 20 74 72 6f 6f 74 |root%...|.. troot|
|000039e0| 25 3d 68 25 20 8c 20 73 | 61 76 65 25 3d a3 0d 15 |%=h% . s|ave%=...|
|000039f0| e0 1f f2 74 72 61 76 65 | 72 73 65 28 68 25 2c 74 |...trave|rse(h%,t|
|00003a00| 72 6f 6f 74 25 21 63 68 | 69 6c 64 25 29 0d 15 ea |root%!ch|ild%)...|
|00003a10| 2b e7 20 73 61 76 65 25 | 20 8c 20 f2 74 72 61 76 |+. save%| . .trav|
|00003a20| 65 72 73 65 28 68 25 2c | 74 72 6f 6f 74 25 21 73 |erse(h%,|troot%!s|
|00003a30| 69 62 6c 69 6e 67 25 29 | 0d 15 f4 05 e1 0d 15 fe |ibling%)|........|
|00003a40| 05 3a 0d 16 08 0d dd f2 | 6c 65 66 74 73 69 62 0d |.:......|leftsib.|
|00003a50| 16 12 13 e7 72 6f 6f 74 | 25 3d 6e 69 6c 25 20 8c |....root|%=nil% .|
|00003a60| 20 e1 0d 16 1c 1d 20 e7 | 20 72 6f 6f 74 25 3d 63 | ..... .| root%=c|
|00003a70| 75 72 72 65 6e 74 5f 70 | 65 72 25 20 8c 20 e1 0d |urrent_p|er% . ..|
|00003a80| 16 26 22 f2 63 6f 70 79 | 66 72 6f 6d 28 63 75 72 |.&".copy|from(cur|
|00003a90| 72 65 6e 74 5f 70 65 72 | 25 2c 70 65 72 73 64 25 |rent_per|%,persd%|
|00003aa0| 29 0d 16 30 74 e7 20 73 | 70 6f 75 73 65 64 25 20 |)..0t. s|poused% |
|00003ab0| 8c 20 63 75 72 72 65 6e | 74 5f 70 65 72 25 3d 70 |. curren|t_per%=p|
|00003ac0| 65 72 73 6f 6e 6e 6f 64 | 65 25 3a 73 70 6f 75 73 |ersonnod|e%:spous|
|00003ad0| 65 64 25 3d a3 3a f2 63 | 6f 70 79 74 6f 28 63 75 |ed%=.:.c|opyto(cu|
|00003ae0| 72 72 65 6e 74 5f 70 65 | 72 25 29 3a c8 99 20 22 |rrent_pe|r%):.. "|
|00003af0| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|00003b00| 22 2c 6d 61 69 6e 25 2c | 30 2c 30 2c 31 32 38 30 |",main%,|0,0,1280|
|00003b10| 2c 31 30 32 34 0d 16 3a | 1e f2 67 65 6e 70 6f 69 |,1024..:|..genpoi|
|00003b20| 6e 74 65 72 73 28 63 75 | 72 72 65 6e 74 5f 70 65 |nters(cu|rrent_pe|
|00003b30| 72 25 29 0d 16 44 5f e7 | 63 75 72 72 65 6e 74 5f |r%)..D_.|current_|
|00003b40| 70 65 72 25 21 67 65 6e | 25 3c 3e 30 20 80 20 21 |per%!gen|%<>0 . !|
|00003b50| 28 67 65 6e 70 6f 69 6e | 74 65 72 73 25 21 28 90 |(genpoin|ters%!(.|
|00003b60| 03 63 75 72 72 65 6e 74 | 5f 70 65 72 25 21 67 65 |.current|_per%!ge|
|00003b70| 6e 25 29 2d 31 29 2a 34 | 29 2b 63 68 69 6c 64 25 |n%)-1)*4|)+child%|
|00003b80| 29 3d 63 75 72 72 65 6e | 74 5f 70 65 72 25 20 8c |)=curren|t_per% .|
|00003b90| 20 e1 0d 16 4e 1b e7 20 | 63 75 72 72 65 6e 74 5f | ...N.. |current_|
|00003ba0| 70 65 72 25 21 67 65 6e | 25 3d 30 20 8c 0d 16 58 |per%!gen|%=0 ...X|
|00003bb0| 32 20 63 75 72 72 65 6e | 74 5f 70 65 72 25 3d a4 |2 curren|t_per%=.|
|00003bc0| 66 69 6e 64 70 72 65 76 | 73 69 62 28 72 6f 6f 74 |findprev|sib(root|
|00003bd0| 25 2c 63 75 72 72 65 6e | 74 5f 70 65 72 25 29 0d |%,curren|t_per%).|
|00003be0| 16 62 05 cc 0d 16 6c 5f | 20 63 75 72 72 65 6e 74 |.b....l_| current|
|00003bf0| 5f 70 65 72 25 3d a4 66 | 69 6e 64 70 72 65 76 73 |_per%=.f|indprevs|
|00003c00| 69 62 28 21 28 67 65 6e | 70 6f 69 6e 74 65 72 73 |ib(!(gen|pointers|
|00003c10| 25 21 28 90 03 63 75 72 | 72 65 6e 74 5f 70 65 72 |%!(..cur|rent_per|
|00003c20| 25 21 67 65 6e 25 29 2d | 31 29 2a 34 29 2b 63 68 |%!gen%)-|1)*4)+ch|
|00003c30| 69 6c 64 25 29 2c 63 75 | 72 72 65 6e 74 5f 70 65 |ild%),cu|rrent_pe|
|00003c40| 72 25 29 0d 16 76 05 cd | 0d 16 80 19 f2 63 6f 70 |r%)..v..|.....cop|
|00003c50| 79 74 6f 28 63 75 72 72 | 65 6e 74 5f 70 65 72 25 |yto(curr|ent_per%|
|00003c60| 29 0d 16 8a 2d c8 99 20 | 22 57 69 6d 70 5f 46 6f |)...-.. |"Wimp_Fo|
|00003c70| 72 63 65 52 65 64 72 61 | 77 22 2c 6d 61 69 6e 25 |rceRedra|w",main%|
|00003c80| 2c 30 2c 30 2c 31 32 38 | 30 2c 31 30 32 34 0d 16 |,0,0,128|0,1024..|
|00003c90| 94 3b e7 20 6f 76 65 72 | 76 69 65 77 25 20 8c 20 |.;. over|view% . |
|00003ca0| c8 99 20 22 57 69 6d 70 | 5f 46 6f 72 63 65 52 65 |.. "Wimp|_ForceRe|
|00003cb0| 64 72 61 77 22 2c 6f 76 | 65 72 25 2c 30 2c 30 2c |draw",ov|er%,0,0,|
|00003cc0| 31 32 38 30 2c 31 30 32 | 34 0d 16 9e 41 e7 20 64 |1280,102|4...A. d|
|00003cd0| 61 74 61 76 69 65 77 25 | 20 8c 20 c8 99 20 22 57 |ataview%| . .. "W|
|00003ce0| 69 6d 70 5f 46 6f 72 63 | 65 52 65 64 72 61 77 22 |imp_Forc|eRedraw"|
|00003cf0| 2c 64 61 74 61 77 69 6e | 64 6f 77 25 2c 30 2c 30 |,datawin|dow%,0,0|
|00003d00| 2c 31 32 38 30 2c 31 30 | 32 34 0d 16 a8 05 e1 0d |,1280,10|24......|
|00003d10| 16 b2 05 3a 0d 16 bc 1f | dd a4 66 69 6e 64 70 72 |...:....|..findpr|
|00003d20| 65 76 73 69 62 28 73 74 | 61 72 74 25 2c 63 6f 6d |evsib(st|art%,com|
|00003d30| 70 25 29 0d 16 c6 1b e7 | 20 63 6f 6d 70 25 3d 73 |p%).....| comp%=s|
|00003d40| 74 61 72 74 25 20 8c 20 | 3d 63 6f 6d 70 25 0d 16 |tart% . |=comp%..|
|00003d50| d0 1d c8 95 20 73 74 61 | 72 74 25 21 73 69 62 6c |.... sta|rt%!sibl|
|00003d60| 69 6e 67 25 3c 3e 63 6f | 6d 70 25 0d 16 da 1b 20 |ing%<>co|mp%.... |
|00003d70| 73 74 61 72 74 25 3d 73 | 74 61 72 74 25 21 73 69 |start%=s|tart%!si|
|00003d80| 62 6c 69 6e 67 25 0d 16 | e4 05 ce 0d 16 ee 0b 3d |bling%..|.......=|
|00003d90| 73 74 61 72 74 25 0d 16 | f8 05 3a 0d 17 02 0e dd |start%..|..:.....|
|00003da0| f2 72 69 67 68 74 73 69 | 62 0d 17 0c 04 0d 17 16 |.rightsi|b.......|
|00003db0| 13 e7 72 6f 6f 74 25 3d | 6e 69 6c 25 20 8c 20 e1 |..root%=|nil% . .|
|00003dc0| 0d 17 20 22 f2 63 6f 70 | 79 66 72 6f 6d 28 63 75 |.. ".cop|yfrom(cu|
|00003dd0| 72 72 65 6e 74 5f 70 65 | 72 25 2c 70 65 72 73 64 |rrent_pe|r%,persd|
|00003de0| 25 29 0d 17 2a 74 e7 20 | 73 70 6f 75 73 65 64 25 |%)..*t. |spoused%|
|00003df0| 20 8c 20 63 75 72 72 65 | 6e 74 5f 70 65 72 25 3d | . curre|nt_per%=|
|00003e00| 70 65 72 73 6f 6e 6e 6f | 64 65 25 3a 73 70 6f 75 |personno|de%:spou|
|00003e10| 73 65 64 25 3d a3 3a f2 | 63 6f 70 79 74 6f 28 63 |sed%=.:.|copyto(c|
|00003e20| 75 72 72 65 6e 74 5f 70 | 65 72 25 29 3a c8 99 20 |urrent_p|er%):.. |
|00003e30| 22 57 69 6d 70 5f 46 6f | 72 63 65 52 65 64 72 61 |"Wimp_Fo|rceRedra|
|00003e40| 77 22 2c 6d 61 69 6e 25 | 2c 30 2c 30 2c 31 32 38 |w",main%|,0,0,128|
|00003e50| 30 2c 31 30 32 33 0d 17 | 34 24 e7 20 63 75 72 72 |0,1023..|4$. curr|
|00003e60| 65 6e 74 5f 70 65 72 25 | 21 73 69 62 6c 69 6e 67 |ent_per%|!sibling|
|00003e70| 25 3d 6e 69 6c 25 20 8c | 20 e1 0d 17 3e 26 63 75 |%=nil% .| ...>&cu|
|00003e80| 72 72 65 6e 74 5f 70 65 | 72 25 3d 63 75 72 72 65 |rrent_pe|r%=curre|
|00003e90| 6e 74 5f 70 65 72 25 21 | 73 69 62 6c 69 6e 67 25 |nt_per%!|sibling%|
|00003ea0| 0d 17 48 19 f2 63 6f 70 | 79 74 6f 28 63 75 72 72 |..H..cop|yto(curr|
|00003eb0| 65 6e 74 5f 70 65 72 25 | 29 0d 17 52 2d c8 99 20 |ent_per%|)..R-.. |
|00003ec0| 22 57 69 6d 70 5f 46 6f | 72 63 65 52 65 64 72 61 |"Wimp_Fo|rceRedra|
|00003ed0| 77 22 2c 6d 61 69 6e 25 | 2c 30 2c 30 2c 31 32 38 |w",main%|,0,0,128|
|00003ee0| 30 2c 31 30 32 33 0d 17 | 5c 3b e7 20 6f 76 65 72 |0,1023..|\;. over|
|00003ef0| 76 69 65 77 25 20 8c 20 | c8 99 20 22 57 69 6d 70 |view% . |.. "Wimp|
|00003f00| 5f 46 6f 72 63 65 52 65 | 64 72 61 77 22 2c 6f 76 |_ForceRe|draw",ov|
|00003f10| 65 72 25 2c 30 2c 30 2c | 31 32 38 30 2c 31 30 32 |er%,0,0,|1280,102|
|00003f20| 34 0d 17 66 41 e7 20 64 | 61 74 61 76 69 65 77 25 |4..fA. d|ataview%|
|00003f30| 20 8c 20 c8 99 20 22 57 | 69 6d 70 5f 46 6f 72 63 | . .. "W|imp_Forc|
|00003f40| 65 52 65 64 72 61 77 22 | 2c 64 61 74 61 77 69 6e |eRedraw"|,datawin|
|00003f50| 64 6f 77 25 2c 30 2c 30 | 2c 31 32 38 30 2c 31 30 |dow%,0,0|,1280,10|
|00003f60| 32 34 0d 17 70 05 e1 0d | 17 7a 05 3a 0d 17 84 10 |24..p...|.z.:....|
|00003f70| dd a4 61 64 64 5f 70 61 | 72 65 6e 74 0d 17 8e 22 |..add_pa|rent..."|
|00003f80| f2 63 6f 70 79 66 72 6f | 6d 28 63 75 72 72 65 6e |.copyfro|m(curren|
|00003f90| 74 5f 70 65 72 25 2c 70 | 65 72 73 64 25 29 0d 17 |t_per%,p|ersd%)..|
|00003fa0| 98 34 e7 20 73 70 6f 75 | 73 65 64 25 20 8c 20 63 |.4. spou|sed% . c|
|00003fb0| 75 72 72 65 6e 74 5f 70 | 65 72 25 3d 70 65 72 73 |urrent_p|er%=pers|
|00003fc0| 6f 6e 6e 6f 64 65 25 3a | 73 70 6f 75 73 65 64 25 |onnode%:|spoused%|
|00003fd0| 3d a3 0d 17 a2 11 73 25 | 3d a4 64 69 6d 70 65 72 |=.....s%|=.dimper|
|00003fe0| 73 6f 6e 0d 17 ac 10 f2 | 63 6c 65 61 72 70 65 72 |son.....|clearper|
|00003ff0| 73 6f 6e 0d 17 b6 0d f2 | 6e 69 6c 73 28 73 25 29 |son.....|nils(s%)|
|00004000| 0d 17 c0 13 73 25 21 63 | 68 69 6c 64 25 3d 72 6f |....s%!c|hild%=ro|
|00004010| 6f 74 25 0d 17 ca 0e 73 | 25 21 67 65 6e 25 3d 2d |ot%....s|%!gen%=-|
|00004020| 31 0d 17 d4 0c 72 6f 6f | 74 25 3d 73 25 0d 17 de |1....roo|t%=s%...|
|00004030| 12 f2 69 6e 63 67 65 6e | 28 72 6f 6f 74 25 29 0d |..incgen|(root%).|
|00004040| 17 e8 16 63 75 72 72 65 | 6e 74 5f 70 65 72 25 3d |...curre|nt_per%=|
|00004050| 72 6f 6f 74 25 0d 17 f2 | 2d c8 99 20 22 57 69 6d |root%...|-.. "Wim|
|00004060| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 6d |p_ForceR|edraw",m|
|00004070| 61 69 6e 25 2c 30 2c 30 | 2c 31 32 38 30 2c 31 30 |ain%,0,0|,1280,10|
|00004080| 32 34 0d 17 fc 3b e7 20 | 6f 76 65 72 76 69 65 77 |24...;. |overview|
|00004090| 25 20 8c 20 c8 99 20 22 | 57 69 6d 70 5f 46 6f 72 |% . .. "|Wimp_For|
|000040a0| 63 65 52 65 64 72 61 77 | 22 2c 6f 76 65 72 25 2c |ceRedraw|",over%,|
|000040b0| 30 2c 30 2c 31 32 38 30 | 2c 31 30 32 34 0d 18 06 |0,0,1280|,1024...|
|000040c0| 41 e7 20 64 61 74 61 76 | 69 65 77 25 20 8c 20 c8 |A. datav|iew% . .|
|000040d0| 99 20 22 57 69 6d 70 5f | 46 6f 72 63 65 52 65 64 |. "Wimp_|ForceRed|
|000040e0| 72 61 77 22 2c 64 61 74 | 61 77 69 6e 64 6f 77 25 |raw",dat|awindow%|
|000040f0| 2c 30 2c 30 2c 31 32 38 | 30 2c 31 30 32 34 0d 18 |,0,0,128|0,1024..|
|00004100| 10 06 3d 30 0d 18 1a 05 | 3a 0d 18 24 13 dd f2 69 |..=0....|:..$...i|
|00004110| 6e 63 67 65 6e 28 72 6f | 6f 74 25 29 0d 18 2e 14 |ncgen(ro|ot%)....|
|00004120| e7 20 72 6f 6f 74 25 3d | 6e 69 6c 25 20 8c 20 e1 |. root%=|nil% . .|
|00004130| 0d 18 38 11 72 6f 6f 74 | 25 21 67 65 6e 25 2b 3d |..8.root|%!gen%+=|
|00004140| 31 0d 18 42 19 f2 69 6e | 63 67 65 6e 28 72 6f 6f |1..B..in|cgen(roo|
|00004150| 74 25 21 63 68 69 6c 64 | 25 29 0d 18 4c 1b f2 69 |t%!child|%)..L..i|
|00004160| 6e 63 67 65 6e 28 72 6f | 6f 74 25 21 73 69 62 6c |ncgen(ro|ot%!sibl|
|00004170| 69 6e 67 25 29 0d 18 56 | 05 e1 0d 18 60 05 3a 0d |ing%)..V|....`.:.|
|00004180| 18 6a 0e dd f2 6e 69 6c | 73 28 73 25 29 0d 18 74 |.j...nil|s(s%)..t|
|00004190| 33 73 25 21 73 69 62 6c | 69 6e 67 25 3d 6e 69 6c |3s%!sibl|ing%=nil|
|000041a0| 25 3a 73 25 21 73 70 6f | 75 73 65 25 3d 6e 69 6c |%:s%!spo|use%=nil|
|000041b0| 25 3a 73 25 21 63 68 69 | 6c 64 25 3d 6e 69 6c 25 |%:s%!chi|ld%=nil%|
|000041c0| 0d 18 7e 05 e1 0d 18 88 | 05 3a 0d 18 92 0c dd f2 |..~.....|.:......|
|000041d0| 70 61 72 65 6e 74 0d 18 | 9c 22 f2 63 6f 70 79 66 |parent..|.".copyf|
|000041e0| 72 6f 6d 28 63 75 72 72 | 65 6e 74 5f 70 65 72 25 |rom(curr|ent_per%|
|000041f0| 2c 70 65 72 73 64 25 29 | 0d 18 a6 1d e7 20 63 75 |,persd%)|..... cu|
|00004200| 72 72 65 6e 74 5f 70 65 | 72 25 21 67 65 6e 25 3d |rrent_pe|r%!gen%=|
|00004210| 30 20 8c 20 e1 0d 18 b0 | 34 e7 20 73 70 6f 75 73 |0 . ....|4. spous|
|00004220| 65 64 25 20 8c 20 63 75 | 72 72 65 6e 74 5f 70 65 |ed% . cu|rrent_pe|
|00004230| 72 25 3d 70 65 72 73 6f | 6e 6e 6f 64 65 25 3a 73 |r%=perso|nnode%:s|
|00004240| 70 6f 75 73 65 64 25 3d | a3 0d 18 ba 1e f2 67 65 |poused%=|......ge|
|00004250| 6e 70 6f 69 6e 74 65 72 | 73 28 63 75 72 72 65 6e |npointer|s(curren|
|00004260| 74 5f 70 65 72 25 29 0d | 18 c4 39 63 75 72 72 65 |t_per%).|..9curre|
|00004270| 6e 74 5f 70 65 72 25 3d | 67 65 6e 70 6f 69 6e 74 |nt_per%=|genpoint|
|00004280| 65 72 73 25 21 28 90 03 | 63 75 72 72 65 6e 74 5f |ers%!(..|current_|
|00004290| 70 65 72 25 21 67 65 6e | 25 29 2d 31 29 2a 34 29 |per%!gen|%)-1)*4)|
|000042a0| 0d 18 ce 19 f2 63 6f 70 | 79 74 6f 28 63 75 72 72 |.....cop|yto(curr|
|000042b0| 65 6e 74 5f 70 65 72 25 | 29 0d 18 d8 2d c8 99 20 |ent_per%|)...-.. |
|000042c0| 22 57 69 6d 70 5f 46 6f | 72 63 65 52 65 64 72 61 |"Wimp_Fo|rceRedra|
|000042d0| 77 22 2c 6d 61 69 6e 25 | 2c 30 2c 30 2c 31 32 38 |w",main%|,0,0,128|
|000042e0| 30 2c 31 30 32 34 0d 18 | e2 3b e7 20 6f 76 65 72 |0,1024..|.;. over|
|000042f0| 76 69 65 77 25 20 8c 20 | c8 99 20 22 57 69 6d 70 |view% . |.. "Wimp|
|00004300| 5f 46 6f 72 63 65 52 65 | 64 72 61 77 22 2c 6f 76 |_ForceRe|draw",ov|
|00004310| 65 72 25 2c 30 2c 30 2c | 31 32 38 30 2c 31 30 32 |er%,0,0,|1280,102|
|00004320| 34 0d 18 ec 41 e7 20 64 | 61 74 61 76 69 65 77 25 |4...A. d|ataview%|
|00004330| 20 8c 20 c8 99 20 22 57 | 69 6d 70 5f 46 6f 72 63 | . .. "W|imp_Forc|
|00004340| 65 52 65 64 72 61 77 22 | 2c 64 61 74 61 77 69 6e |eRedraw"|,datawin|
|00004350| 64 6f 77 25 2c 30 2c 30 | 2c 31 32 38 30 2c 31 30 |dow%,0,0|,1280,10|
|00004360| 32 34 0d 18 f6 05 e1 0d | 19 00 05 3a 0d 19 0a 0b |24......|...:....|
|00004370| dd f2 63 68 69 6c 64 0d | 19 14 13 e7 72 6f 6f 74 |..child.|....root|
|00004380| 25 3d 6e 69 6c 25 20 8c | 20 e1 0d 19 1e 22 f2 63 |%=nil% .| ....".c|
|00004390| 6f 70 79 66 72 6f 6d 28 | 63 75 72 72 65 6e 74 5f |opyfrom(|current_|
|000043a0| 70 65 72 25 2c 70 65 72 | 73 64 25 29 0d 19 28 74 |per%,per|sd%)..(t|
|000043b0| e7 20 73 70 6f 75 73 65 | 64 25 20 8c 20 63 75 72 |. spouse|d% . cur|
|000043c0| 72 65 6e 74 5f 70 65 72 | 25 3d 70 65 72 73 6f 6e |rent_per|%=person|
|000043d0| 6e 6f 64 65 25 3a 73 70 | 6f 75 73 65 64 25 3d a3 |node%:sp|oused%=.|
|000043e0| 3a f2 63 6f 70 79 74 6f | 28 63 75 72 72 65 6e 74 |:.copyto|(current|
|000043f0| 5f 70 65 72 25 29 3a c8 | 99 20 22 57 69 6d 70 5f |_per%):.|. "Wimp_|
|00004400| 46 6f 72 63 65 52 65 64 | 72 61 77 22 2c 6d 61 69 |ForceRed|raw",mai|
|00004410| 6e 25 2c 30 2c 30 2c 31 | 32 38 30 2c 31 30 32 33 |n%,0,0,1|280,1023|
|00004420| 0d 19 32 24 e7 20 63 75 | 72 72 65 6e 74 5f 70 65 |..2$. cu|rrent_pe|
|00004430| 72 25 21 63 68 69 6c 64 | 25 20 3d 20 6e 69 6c 25 |r%!child|% = nil%|
|00004440| 20 8c 20 e1 0d 19 3c 24 | 63 75 72 72 65 6e 74 5f | . ...<$|current_|
|00004450| 70 65 72 25 3d 63 75 72 | 72 65 6e 74 5f 70 65 72 |per%=cur|rent_per|
|00004460| 25 21 63 68 69 6c 64 25 | 0d 19 46 19 f2 63 6f 70 |%!child%|..F..cop|
|00004470| 79 74 6f 28 63 75 72 72 | 65 6e 74 5f 70 65 72 25 |yto(curr|ent_per%|
|00004480| 29 0d 19 50 2d c8 99 20 | 22 57 69 6d 70 5f 46 6f |)..P-.. |"Wimp_Fo|
|00004490| 72 63 65 52 65 64 72 61 | 77 22 2c 6d 61 69 6e 25 |rceRedra|w",main%|
|000044a0| 2c 30 2c 30 2c 31 32 38 | 30 2c 31 30 32 34 0d 19 |,0,0,128|0,1024..|
|000044b0| 5a 3b e7 20 6f 76 65 72 | 76 69 65 77 25 20 8c 20 |Z;. over|view% . |
|000044c0| c8 99 20 22 57 69 6d 70 | 5f 46 6f 72 63 65 52 65 |.. "Wimp|_ForceRe|
|000044d0| 64 72 61 77 22 2c 6f 76 | 65 72 25 2c 30 2c 30 2c |draw",ov|er%,0,0,|
|000044e0| 31 32 38 30 2c 31 30 32 | 34 0d 19 64 41 e7 20 64 |1280,102|4..dA. d|
|000044f0| 61 74 61 76 69 65 77 25 | 20 8c 20 c8 99 20 22 57 |ataview%| . .. "W|
|00004500| 69 6d 70 5f 46 6f 72 63 | 65 52 65 64 72 61 77 22 |imp_Forc|eRedraw"|
|00004510| 2c 64 61 74 61 77 69 6e | 64 6f 77 25 2c 30 2c 30 |,datawin|dow%,0,0|
|00004520| 2c 31 32 38 30 2c 31 30 | 32 34 0d 19 6e 05 e1 0d |,1280,10|24..n...|
|00004530| 19 78 05 3a 0d 19 82 12 | dd f2 72 65 73 6f 72 74 |.x.:....|..resort|
|00004540| 62 72 61 6e 63 68 0d 19 | 8c 11 ea 20 73 25 2c 70 |branch..|... s%,p|
|00004550| 25 2c 65 25 2c 63 25 0d | 19 96 1e f2 67 65 6e 70 |%,e%,c%.|....genp|
|00004560| 6f 69 6e 74 65 72 73 28 | 63 75 72 72 65 6e 74 5f |ointers(|current_|
|00004570| 70 65 72 25 29 0d 19 a0 | 13 63 25 3d 63 75 72 72 |per%)...|.c%=curr|
|00004580| 65 6e 74 5f 70 65 72 25 | 0d 19 aa 18 f2 63 6f 70 |ent_per%|.....cop|
|00004590| 79 66 72 6f 6d 28 63 25 | 2c 70 65 72 73 64 25 29 |yfrom(c%|,persd%)|
|000045a0| 0d 19 b4 1e e7 20 73 70 | 6f 75 73 65 64 25 20 8c |..... sp|oused% .|
|000045b0| 20 f2 73 6f 72 74 73 70 | 6f 75 73 65 3a e1 0d 19 | .sortsp|ouse:...|
|000045c0| be 10 e7 20 63 25 3d 72 | 6f 6f 74 25 20 8c 0d 19 |... c%=r|oot% ...|
|000045d0| c8 1f 20 72 6f 6f 74 25 | 3d 63 25 21 73 69 62 6c |.. root%|=c%!sibl|
|000045e0| 69 6e 67 25 3a 73 25 3d | 72 6f 6f 74 25 0d 19 d2 |ing%:s%=|root%...|
|000045f0| 05 cc 0d 19 dc 12 20 e7 | 20 63 25 21 67 65 6e 25 |...... .| c%!gen%|
|00004600| 3d 30 20 8c 0d 19 e6 16 | 20 20 73 25 3d 72 6f 6f |=0 .....|  s%=roo|
|00004610| 74 25 3a 70 25 3d 6e 69 | 6c 25 0d 19 f0 06 20 cc |t%:p%=ni|l%.... .|
|00004620| 0d 19 fa 36 20 20 70 25 | 3d 28 67 65 6e 70 6f 69 |...6  p%|=(genpoi|
|00004630| 6e 74 65 72 73 25 21 28 | 90 03 63 25 21 67 65 6e |nters%!(|..c%!gen|
|00004640| 25 29 2d 31 29 2a 34 29 | 29 3a 73 25 3d 70 25 21 |%)-1)*4)|):s%=p%!|
|00004650| 63 68 69 6c 64 25 0d 1a | 04 06 20 cd 0d 1a 0e 20 |child%..|.. .... |
|00004660| 20 e7 20 70 25 3c 3e 6e | 69 6c 25 20 80 20 70 25 | . p%<>n|il% . p%|
|00004670| 21 63 68 69 6c 64 25 3d | 63 25 20 8c 0d 1a 18 2a |!child%=|c% ....*|
|00004680| 20 20 70 25 21 63 68 69 | 6c 64 25 3d 63 25 21 73 |  p%!chi|ld%=c%!s|
|00004690| 69 62 6c 69 6e 67 25 3a | 73 25 3d 63 25 21 73 69 |ibling%:|s%=c%!si|
|000046a0| 62 6c 69 6e 67 25 0d 1a | 22 06 20 cc 0d 1a 2c 1c |bling%..|". ...,.|
|000046b0| 20 20 65 25 3d a4 66 69 | 6e 64 70 72 65 76 73 69 |  e%=.fi|ndprevsi|
|000046c0| 62 28 73 25 2c 63 25 29 | 0d 1a 36 1d 20 20 65 25 |b(s%,c%)|..6.  e%|
|000046d0| 21 73 69 62 6c 69 6e 67 | 25 3d 63 25 21 73 69 62 |!sibling|%=c%!sib|
|000046e0| 6c 69 6e 67 25 0d 1a 40 | 06 20 cd 0d 1a 4a 05 cd |ling%..@|. ...J..|
|000046f0| 0d 1a 54 1d e7 20 72 6f | 6f 74 25 3d 6e 69 6c 25 |..T.. ro|ot%=nil%|
|00004700| 20 8c 20 72 6f 6f 74 25 | 3d 63 25 3a e1 0d 1a 5e | . root%|=c%:...^|
|00004710| 1e e7 20 73 25 3d 6e 69 | 6c 25 20 8c 20 70 25 21 |.. s%=ni|l% . p%!|
|00004720| 63 68 69 6c 64 25 3d 63 | 25 3a e1 0d 1a 68 0a 6f |child%=c|%:...h.o|
|00004730| 73 25 3d 73 25 0d 1a 72 | 42 c8 95 20 73 25 21 73 |s%=s%..r|B.. s%!s|
|00004740| 69 62 6c 69 6e 67 25 3c | 3e 6e 69 6c 25 20 80 20 |ibling%<|>nil% . |
|00004750| 21 28 73 25 21 73 69 62 | 6c 69 6e 67 25 2b 62 69 |!(s%!sib|ling%+bi|
|00004760| 72 74 68 64 61 74 65 25 | 29 3c 63 25 21 62 69 72 |rthdate%|)<c%!bir|
|00004770| 74 68 64 61 74 65 25 0d | 1a 7c 13 20 73 25 3d 73 |thdate%.|.|. s%=s|
|00004780| 25 21 73 69 62 6c 69 6e | 67 25 0d 1a 86 05 ce 0d |%!siblin|g%......|
|00004790| 1a 90 00 2c e7 20 6f 73 | 25 3d 73 25 20 80 20 73 |...,. os|%=s% . s|
|000047a0| 25 21 62 69 72 74 68 64 | 61 74 65 25 3e 63 25 21 |%!birthd|ate%>c%!|
|000047b0| 62 69 72 74 68 64 61 74 | 65 25 20 8c 0d 1a 9a 12 |birthdat|e% .....|
|000047c0| 20 e7 20 63 25 21 67 65 | 6e 25 3d 30 20 8c 0d 1a | . c%!ge|n%=0 ...|
|000047d0| a4 20 90 03 63 25 21 73 | 69 62 6c 69 6e 67 25 3d |. ..c%!s|ibling%=|
|000047e0| 72 6f 6f 74 25 3a 72 6f | 6f 74 25 3d 63 25 0d 1a |root%:ro|ot%=c%..|
|000047f0| ae 06 20 cc 0d 1a b8 1b | 20 20 63 25 21 73 69 62 |.. .....|  c%!sib|
|00004800| 6c 69 6e 67 25 3d 70 25 | 21 63 68 69 6c 64 25 0d |ling%=p%|!child%.|
|00004810| 1a c2 12 20 20 70 25 21 | 63 68 69 6c 64 25 3d 63 |...  p%!|child%=c|
|00004820| 25 0d 1a cc 06 20 cd 0d | 1a d6 05 e1 0d 1a e0 05 |%.... ..|........|
|00004830| cd 0d 1a ea 1b 63 25 21 | 73 69 62 6c 69 6e 67 25 |.....c%!|sibling%|
|00004840| 3d 73 25 21 73 69 62 6c | 69 6e 67 25 0d 1a f4 12 |=s%!sibl|ing%....|
|00004850| 73 25 21 73 69 62 6c 69 | 6e 67 25 3d 63 25 0d 1a |s%!sibli|ng%=c%..|
|00004860| fe 05 e1 0d 1b 08 05 3a | 0d 1b 12 0f dd a4 61 64 |.......:|......ad|
|00004870| 64 5f 63 68 69 6c 64 0d | 1b 1c 22 f2 63 6f 70 79 |d_child.|..".copy|
|00004880| 66 72 6f 6d 28 63 75 72 | 72 65 6e 74 5f 70 65 72 |from(cur|rent_per|
|00004890| 25 2c 70 65 72 73 64 25 | 29 0d 1b 26 33 e7 73 70 |%,persd%|)..&3.sp|
|000048a0| 6f 75 73 65 64 25 20 8c | 20 63 75 72 72 65 6e 74 |oused% .| current|
|000048b0| 5f 70 65 72 25 3d 70 65 | 72 73 6f 6e 6e 6f 64 65 |_per%=pe|rsonnode|
|000048c0| 25 3a 73 70 6f 75 73 65 | 64 25 3d a3 0d 1b 30 20 |%:spouse|d%=...0 |
|000048d0| e7 20 63 75 72 72 65 6e | 74 5f 70 65 72 25 21 63 |. curren|t_per%!c|
|000048e0| 68 69 6c 64 25 3d 6e 69 | 6c 25 20 8c 0d 1b 3a 23 |hild%=ni|l% ...:#|
|000048f0| 20 63 75 72 72 65 6e 74 | 5f 70 65 72 25 21 63 68 | current|_per%!ch|
|00004900| 69 6c 64 25 3d a4 64 69 | 6d 70 65 72 73 6f 6e 0d |ild%=.di|mperson.|
|00004910| 1b 44 34 20 21 28 63 75 | 72 72 65 6e 74 5f 70 65 |.D4 !(cu|rrent_pe|
|00004920| 72 25 21 63 68 69 6c 64 | 25 2b 67 65 6e 25 29 3d |r%!child|%+gen%)=|
|00004930| 63 75 72 72 65 6e 74 5f | 70 65 72 25 21 67 65 6e |current_|per%!gen|
|00004940| 25 2b 31 0d 1b 4e 25 20 | 63 75 72 72 65 6e 74 5f |%+1..N% |current_|
|00004950| 70 65 72 25 3d 63 75 72 | 72 65 6e 74 5f 70 65 72 |per%=cur|rent_per|
|00004960| 25 21 63 68 69 6c 64 25 | 0d 1b 58 05 cc 0d 1b 62 |%!child%|..X....b|
|00004970| 25 20 63 75 72 72 65 6e | 74 5f 70 65 72 25 3d 63 |% curren|t_per%=c|
|00004980| 75 72 72 65 6e 74 5f 70 | 65 72 25 21 63 68 69 6c |urrent_p|er%!chil|
|00004990| 64 25 0d 1b 6c 23 20 c8 | 95 20 63 75 72 72 65 6e |d%..l# .|. curren|
|000049a0| 74 5f 70 65 72 25 21 73 | 69 62 6c 69 6e 67 25 3c |t_per%!s|ibling%<|
|000049b0| 3e 6e 69 6c 25 0d 1b 76 | 28 20 20 63 75 72 72 65 |>nil%..v|(  curre|
|000049c0| 6e 74 5f 70 65 72 25 3d | 63 75 72 72 65 6e 74 5f |nt_per%=|current_|
|000049d0| 70 65 72 25 21 73 69 62 | 6c 69 6e 67 25 0d 1b 80 |per%!sib|ling%...|
|000049e0| 06 20 ce 0d 1b 8a 25 20 | 63 75 72 72 65 6e 74 5f |. ....% |current_|
|000049f0| 70 65 72 25 21 73 69 62 | 6c 69 6e 67 25 3d a4 64 |per%!sib|ling%=.d|
|00004a00| 69 6d 70 65 72 73 6f 6e | 0d 1b 94 34 20 21 28 63 |imperson|...4 !(c|
|00004a10| 75 72 72 65 6e 74 5f 70 | 65 72 25 21 73 69 62 6c |urrent_p|er%!sibl|
|00004a20| 69 6e 67 25 2b 67 65 6e | 25 29 3d 63 75 72 72 65 |ing%+gen|%)=curre|
|00004a30| 6e 74 5f 70 65 72 25 21 | 67 65 6e 25 0d 1b 9e 27 |nt_per%!|gen%...'|
|00004a40| 20 63 75 72 72 65 6e 74 | 5f 70 65 72 25 3d 63 75 | current|_per%=cu|
|00004a50| 72 72 65 6e 74 5f 70 65 | 72 25 21 73 69 62 6c 69 |rrent_pe|r%!sibli|
|00004a60| 6e 67 25 0d 1b a8 05 cd | 0d 1b b2 10 f2 63 6c 65 |ng%.....|.....cle|
|00004a70| 61 72 70 65 72 73 6f 6e | 0d 1b bc 17 f2 6e 69 6c |arperson|.....nil|
|00004a80| 73 28 63 75 72 72 65 6e | 74 5f 70 65 72 25 29 0d |s(curren|t_per%).|
|00004a90| 1b c6 2d c8 99 20 22 57 | 69 6d 70 5f 46 6f 72 63 |..-.. "W|imp_Forc|
|00004aa0| 65 52 65 64 72 61 77 22 | 2c 6d 61 69 6e 25 2c 30 |eRedraw"|,main%,0|
|00004ab0| 2c 30 2c 31 32 38 30 2c | 31 30 32 34 0d 1b d0 3b |,0,1280,|1024...;|
|00004ac0| e7 20 6f 76 65 72 76 69 | 65 77 25 20 8c 20 c8 99 |. overvi|ew% . ..|
|00004ad0| 20 22 57 69 6d 70 5f 46 | 6f 72 63 65 52 65 64 72 | "Wimp_F|orceRedr|
|00004ae0| 61 77 22 2c 6f 76 65 72 | 25 2c 30 2c 30 2c 31 32 |aw",over|%,0,0,12|
|00004af0| 38 30 2c 31 30 32 34 0d | 1b da 41 e7 20 64 61 74 |80,1024.|..A. dat|
|00004b00| 61 76 69 65 77 25 20 8c | 20 c8 99 20 22 57 69 6d |aview% .| .. "Wim|
|00004b10| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 64 |p_ForceR|edraw",d|
|00004b20| 61 74 61 77 69 6e 64 6f | 77 25 2c 30 2c 30 2c 31 |atawindo|w%,0,0,1|
|00004b30| 32 38 30 2c 31 30 32 34 | 0d 1b e4 06 3d 30 0d 1b |280,1024|....=0..|
|00004b40| ee 05 3a 0d 1b f8 10 dd | a4 61 64 64 5f 73 70 6f |..:.....|.add_spo|
|00004b50| 75 73 65 0d 1c 02 22 f2 | 63 6f 70 79 66 72 6f 6d |use...".|copyfrom|
|00004b60| 28 63 75 72 72 65 6e 74 | 5f 70 65 72 25 2c 70 65 |(current|_per%,pe|
|00004b70| 72 73 64 25 29 0d 1c 0c | 35 e7 20 ac 73 70 6f 75 |rsd%)...|5. .spou|
|00004b80| 73 65 64 25 20 8c 20 73 | 70 6f 75 73 65 64 25 3d |sed% . s|poused%=|
|00004b90| b9 3a 70 65 72 73 6f 6e | 6e 6f 64 65 25 3d 63 75 |.:person|node%=cu|
|00004ba0| 72 72 65 6e 74 5f 70 65 | 72 25 0d 1c 16 21 c8 95 |rrent_pe|r%...!..|
|00004bb0| 20 63 75 72 72 65 6e 74 | 5f 70 65 72 25 21 73 70 | current|_per%!sp|
|00004bc0| 6f 75 73 65 25 3c 3e 6e | 69 6c 25 0d 1c 20 25 63 |ouse%<>n|il%.. %c|
|00004bd0| 75 72 72 65 6e 74 5f 70 | 65 72 25 3d 63 75 72 72 |urrent_p|er%=curr|
|00004be0| 65 6e 74 5f 70 65 72 25 | 21 73 70 6f 75 73 65 25 |ent_per%|!spouse%|
|00004bf0| 0d 1c 2a 05 ce 0d 1c 34 | 23 63 75 72 72 65 6e 74 |..*....4|#current|
|00004c00| 5f 70 65 72 25 21 73 70 | 6f 75 73 65 25 3d a4 64 |_per%!sp|ouse%=.d|
|00004c10| 69 6d 70 65 72 73 6f 6e | 0d 1c 3e 32 21 28 63 75 |imperson|..>2!(cu|
|00004c20| 72 72 65 6e 74 5f 70 65 | 72 25 21 73 70 6f 75 73 |rrent_pe|r%!spous|
|00004c30| 65 25 2b 67 65 6e 25 29 | 3d 63 75 72 72 65 6e 74 |e%+gen%)|=current|
|00004c40| 5f 70 65 72 25 21 67 65 | 6e 25 0d 1c 48 25 63 75 |_per%!ge|n%..H%cu|
|00004c50| 72 72 65 6e 74 5f 70 65 | 72 25 3d 63 75 72 72 65 |rrent_pe|r%=curre|
|00004c60| 6e 74 5f 70 65 72 25 21 | 73 70 6f 75 73 65 25 0d |nt_per%!|spouse%.|
|00004c70| 1c 52 10 f2 63 6c 65 61 | 72 70 65 72 73 6f 6e 0d |.R..clea|rperson.|
|00004c80| 1c 5c 17 f2 6e 69 6c 73 | 28 63 75 72 72 65 6e 74 |.\..nils|(current|
|00004c90| 5f 70 65 72 25 29 0d 1c | 66 2d c8 99 20 22 57 69 |_per%)..|f-.. "Wi|
|00004ca0| 6d 70 5f 46 6f 72 63 65 | 52 65 64 72 61 77 22 2c |mp_Force|Redraw",|
|00004cb0| 6d 61 69 6e 25 2c 30 2c | 30 2c 31 32 38 30 2c 31 |main%,0,|0,1280,1|
|00004cc0| 30 32 34 0d 1c 70 3b e7 | 20 6f 76 65 72 76 69 65 |024..p;.| overvie|
|00004cd0| 77 25 20 8c 20 c8 99 20 | 22 57 69 6d 70 5f 46 6f |w% . .. |"Wimp_Fo|
|00004ce0| 72 63 65 52 65 64 72 61 | 77 22 2c 6f 76 65 72 25 |rceRedra|w",over%|
|00004cf0| 2c 30 2c 30 2c 31 32 38 | 30 2c 31 30 32 34 0d 1c |,0,0,128|0,1024..|
|00004d00| 7a 41 e7 20 64 61 74 61 | 76 69 65 77 25 20 8c 20 |zA. data|view% . |
|00004d10| c8 99 20 22 57 69 6d 70 | 5f 46 6f 72 63 65 52 65 |.. "Wimp|_ForceRe|
|00004d20| 64 72 61 77 22 2c 64 61 | 74 61 77 69 6e 64 6f 77 |draw",da|tawindow|
|00004d30| 25 2c 30 2c 30 2c 31 32 | 38 30 2c 31 30 32 34 0d |%,0,0,12|80,1024.|
|00004d40| 1c 84 06 3d 30 0d 1c 8e | 05 3a 0d 1c 98 0c dd f2 |...=0...|.:......|
|00004d50| 73 70 6f 75 73 65 0d 1c | a2 13 e7 72 6f 6f 74 25 |spouse..|...root%|
|00004d60| 3d 6e 69 6c 25 20 8c 20 | e1 0d 1c ac 31 e7 20 63 |=nil% . |....1. c|
|00004d70| 75 72 72 65 6e 74 5f 70 | 65 72 25 21 73 70 6f 75 |urrent_p|er%!spou|
|00004d80| 73 65 25 3d 6e 69 6c 25 | 20 80 20 ac 28 73 70 6f |se%=nil%| . .(spo|
|00004d90| 75 73 65 64 25 29 20 8c | 20 e1 0d 1c b6 21 e7 20 |used%) .| ....!. |
|00004da0| 63 75 72 72 65 6e 74 5f | 70 65 72 25 21 73 70 6f |current_|per%!spo|
|00004db0| 75 73 65 25 3d 6e 69 6c | 25 20 8c 0d 1c b7 3d 63 |use%=nil|% ....=c|
|00004dc0| 75 72 72 65 6e 74 5f 70 | 65 72 25 3d 70 65 72 73 |urrent_p|er%=pers|
|00004dd0| 6f 6e 6e 6f 64 65 25 3a | 73 70 6f 75 73 65 64 25 |onnode%:|spoused%|
|00004de0| 3d a3 3a f2 63 6f 70 79 | 74 6f 28 63 75 72 72 65 |=.:.copy|to(curre|
|00004df0| 6e 74 5f 70 65 72 25 29 | 0d 1c b8 05 cc 0d 1c c0 |nt_per%)|........|
|00004e00| 35 e7 20 ac 73 70 6f 75 | 73 65 64 25 20 8c 20 73 |5. .spou|sed% . s|
|00004e10| 70 6f 75 73 65 64 25 3d | b9 3a 70 65 72 73 6f 6e |poused%=|.:person|
|00004e20| 6e 6f 64 65 25 3d 63 75 | 72 72 65 6e 74 5f 70 65 |node%=cu|rrent_pe|
|00004e30| 72 25 0d 1c ca 25 63 75 | 72 72 65 6e 74 5f 70 65 |r%...%cu|rrent_pe|
|00004e40| 72 25 3d 63 75 72 72 65 | 6e 74 5f 70 65 72 25 21 |r%=curre|nt_per%!|
|00004e50| 73 70 6f 75 73 65 25 0d | 1c d4 19 f2 63 6f 70 79 |spouse%.|....copy|
|00004e60| 74 6f 28 63 75 72 72 65 | 6e 74 5f 70 65 72 25 29 |to(curre|nt_per%)|
|00004e70| 0d 1c d5 05 cd 0d 1c de | 2d c8 99 20 22 57 69 6d |........|-.. "Wim|
|00004e80| 70 5f 46 6f 72 63 65 52 | 65 64 72 61 77 22 2c 6d |p_ForceR|edraw",m|
|00004e90| 61 69 6e 25 2c 30 2c 30 | 2c 31 32 38 30 2c 31 30 |ain%,0,0|,1280,10|
|00004ea0| 32 34 0d 1c df 3b e7 20 | 6f 76 65 72 76 69 65 77 |24...;. |overview|
|00004eb0| 25 20 8c 20 c8 99 20 22 | 57 69 6d 70 5f 46 6f 72 |% . .. "|Wimp_For|
|00004ec0| 63 65 52 65 64 72 61 77 | 22 2c 6f 76 65 72 25 2c |ceRedraw|",over%,|
|00004ed0| 30 2c 30 2c 31 32 38 30 | 2c 31 30 32 34 0d 1c e0 |0,0,1280|,1024...|
|00004ee0| 41 e7 20 64 61 74 61 76 | 69 65 77 25 20 8c 20 c8 |A. datav|iew% . .|
|00004ef0| 99 20 22 57 69 6d 70 5f | 46 6f 72 63 65 52 65 64 |. "Wimp_|ForceRed|
|00004f00| 72 61 77 22 2c 64 61 74 | 61 77 69 6e 64 6f 77 25 |raw",dat|awindow%|
|00004f10| 2c 30 2c 30 2c 31 32 38 | 30 2c 31 30 32 34 0d 1c |,0,0,128|0,1024..|
|00004f20| e8 05 e1 0d 1c f2 04 0d | 1c fc 11 20 dd f2 73 6f |........|... ..so|
|00004f30| 72 74 73 70 6f 75 73 65 | 0d 1d 06 0c 20 ea 20 73 |rtspouse|.... . s|
|00004f40| 25 2c 63 25 0d 1d 10 2a | 73 25 3d 70 65 72 73 6f |%,c%...*|s%=perso|
|00004f50| 6e 6e 6f 64 65 25 21 73 | 70 6f 75 73 65 25 3a 63 |nnode%!s|pouse%:c|
|00004f60| 25 3d 63 75 72 72 65 6e | 74 5f 70 65 72 25 0d 1d |%=curren|t_per%..|
|00004f70| 1a 20 e7 73 25 3d 63 25 | 20 80 20 63 25 21 73 70 |. .s%=c%| . c%!sp|
|00004f80| 6f 75 73 65 25 3d 6e 69 | 6c 25 20 8c 20 e1 0d 1d |ouse%=ni|l% . ...|
|00004f90| 24 15 c8 95 20 73 25 21 | 73 70 6f 75 73 65 25 3c |$... s%!|spouse%<|
|00004fa0| 3e 63 25 0d 1d 2e 12 20 | 73 25 3d 73 25 21 73 70 |>c%.... |s%=s%!sp|
|00004fb0| 6f 75 73 65 25 0d 1d 38 | 05 ce 0d 1d 42 19 73 25 |ouse%..8|....B.s%|
|00004fc0| 21 73 70 6f 75 73 65 25 | 3d 63 25 21 73 70 6f 75 |!spouse%|=c%!spou|
|00004fd0| 73 65 25 0d 1d 4c 1a 73 | 25 3d 70 65 72 73 6f 6e |se%..L.s|%=person|
|00004fe0| 6e 6f 64 65 25 21 73 70 | 6f 75 73 65 25 0d 1d 56 |node%!sp|ouse%..V|
|00004ff0| 4f e7 73 25 21 6d 61 72 | 72 69 61 67 65 64 61 74 |O.s%!mar|riagedat|
|00005000| 65 25 3e 63 25 21 6d 61 | 72 72 69 61 67 65 64 61 |e%>c%!ma|rriageda|
|00005010| 74 65 25 20 8c 20 63 25 | 21 73 70 6f 75 73 65 25 |te% . c%|!spouse%|
|00005020| 3d 73 25 3a 70 65 72 73 | 6f 6e 6e 6f 64 65 25 21 |=s%:pers|onnode%!|
|00005030| 73 70 6f 75 73 65 25 3d | 63 25 3a e1 0d 1d 60 46 |spouse%=|c%:...`F|
|00005040| c8 95 20 73 25 21 73 70 | 6f 75 73 65 25 3c 3e 6e |.. s%!sp|ouse%<>n|
|00005050| 69 6c 25 20 80 20 21 28 | 73 25 21 73 70 6f 75 73 |il% . !(|s%!spous|
|00005060| 65 25 2b 6d 61 72 72 69 | 61 67 65 64 61 74 65 25 |e%+marri|agedate%|
|00005070| 29 3c 63 25 21 6d 61 72 | 72 69 61 67 65 64 61 74 |)<c%!mar|riagedat|
|00005080| 65 25 0d 1d 6a 12 20 73 | 25 3d 73 25 21 73 70 6f |e%..j. s|%=s%!spo|
|00005090| 75 73 65 25 0d 1d 74 05 | ce 0d 1d 7e 1f 74 25 3d |use%..t.|...~.t%=|
|000050a0| 73 25 21 73 70 6f 75 73 | 65 25 3a 73 25 21 73 70 |s%!spous|e%:s%!sp|
|000050b0| 6f 75 73 65 25 3d 63 25 | 0d 1d 88 13 63 25 21 73 |ouse%=c%|....c%!s|
|000050c0| 70 6f 75 73 65 25 3d 74 | 25 3a e1 0d 1d 92 05 3a |pouse%=t|%:.....:|
|000050d0| 0d 1d 9c 10 dd f2 63 68 | 65 63 6b 69 63 6f 6e 73 |......ch|eckicons|
|000050e0| 0d 1d a6 07 ea 61 24 0d | 1d b0 29 61 24 3d 22 41 |.....a$.|..)a$="A|
|000050f0| 72 65 20 59 6f 75 20 53 | 75 72 65 20 59 6f 75 20 |re You S|ure You |
|00005100| 77 69 73 68 20 74 6f 20 | 44 65 6c 65 74 65 3f 22 |wish to |Delete?"|
|00005110| 0d 1d ba 13 62 6c 6f 63 | 6b 25 21 30 3d 63 68 65 |....bloc|k%!0=che|
|00005120| 63 6b 25 0d 1d c4 38 62 | 6c 6f 63 6b 25 21 34 3d |ck%...8b|lock%!4=|
|00005130| 31 30 30 3a 62 6c 6f 63 | 6b 25 21 38 3d 35 30 3a |100:bloc|k%!8=50:|
|00005140| 62 6c 6f 63 6b 25 21 31 | 32 3d 34 30 30 3a 62 6c |block%!1|2=400:bl|
|00005150| 6f 63 6b 25 21 31 36 3d | 31 30 30 0d 1d ce 2a 62 |ock%!16=|100...*b|
|00005160| 6c 6f 63 6b 25 21 32 30 | 3d 26 43 37 30 30 39 30 |lock%!20|=&C70090|
|00005170| 33 44 3a 24 28 62 6c 6f | 63 6b 25 2b 32 34 29 3d |3D:$(blo|ck%+24)=|
|00005180| 22 59 45 53 22 0d 1d d8 | 28 c8 99 20 22 57 69 6d |"YES"...|(.. "Wim|
|00005190| 70 5f 43 72 65 61 74 65 | 49 63 6f 6e 22 2c 30 2c |p_Create|Icon",0,|
|000051a0| 62 6c 6f 63 6b 25 20 b8 | 20 64 6f 6b 25 0d 1d e2 |block% .| dok%...|
|000051b0| 1e 62 6c 6f 63 6b 25 21 | 34 3d 35 30 30 3a 62 6c |.block%!|4=500:bl|
|000051c0| 6f 63 6b 25 21 31 32 3d | 38 30 30 0d 1d ec 15 24 |ock%!12=|800....$|
|000051d0| 28 62 6c 6f 63 6b 25 2b | 32 34 29 3d 22 4e 4f 22 |(block%+|24)="NO"|
|000051e0| 0d 1d f6 2c c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...,.. "|Wimp_Cre|
|000051f0| 61 74 65 49 63 6f 6e 22 | 2c 30 2c 62 6c 6f 63 6b |ateIcon"|,0,block|
|00005200| 25 20 b8 20 64 63 61 6e | 63 65 6c 25 0d 1e 00 17 |% . dcan|cel%....|
|00005210| 62 6c 6f 63 6b 25 21 32 | 30 3d 26 31 37 30 90 03 |block%!2|0=&170..|
|00005220| 33 33 39 0d 1e 0a 39 62 | 6c 6f 63 6b 25 21 34 3d |339...9b|lock%!4=|
|00005230| 31 30 30 3a 62 6c 6f 63 | 6b 25 21 38 3d 33 30 30 |100:bloc|k%!8=300|
|00005240| 3a 62 6c 6f 63 6b 25 21 | 31 32 3d 38 30 30 3a 62 |:block%!|12=800:b|
|00005250| 6c 6f 63 6b 25 21 31 36 | 3d 34 30 30 0d 1e 14 2c |lock%!16|=400...,|
|00005260| 62 6c 6f 63 6b 25 21 32 | 34 3d 63 68 65 63 6b 64 |block%!2|4=checkd|
|00005270| 61 74 61 25 3a 62 6c 6f | 63 6b 25 21 32 38 3d 26 |ata%:blo|ck%!28=&|
|00005280| 46 90 08 0d 1e 1e 22 62 | 6c 6f 63 6b 25 21 33 32 |F....."b|lock%!32|
|00005290| 3d a9 28 61 24 29 3a 24 | 63 68 65 63 6b 64 61 74 |=.(a$):$|checkdat|
|000052a0| 61 25 3d 61 24 0d 1e 28 | 1e 6e 61 6d 65 64 61 74 |a%=a$..(|.namedat|
|000052b0| 61 25 3d 63 68 65 63 6b | 64 61 74 61 25 2b a9 61 |a%=check|data%+.a|
|000052c0| 24 2b 32 0d 1e 32 21 c8 | 99 20 22 57 69 6d 70 5f |$+2..2!.|. "Wimp_|
|000052d0| 43 72 65 61 74 65 49 63 | 6f 6e 22 2c 30 2c 62 6c |CreateIc|on",0,bl|
|000052e0| 6f 63 6b 25 0d 1e 3c 2f | 24 28 63 68 65 63 6b 64 |ock%..</|$(checkd|
|000052f0| 61 74 61 25 2b a9 61 24 | 2b 32 29 3d 22 44 61 76 |ata%+.a$|+2)="Dav|
|00005300| 69 64 20 50 65 74 65 72 | 20 42 72 65 61 6b 77 65 |id Peter| Breakwe|
|00005310| 6c 6c 22 0d 1e 46 17 62 | 6c 6f 63 6b 25 21 32 34 |ll"..F.b|lock%!24|
|00005320| 3d 6e 61 6d 65 64 61 74 | 61 25 0d 1e 50 1d 62 6c |=namedat|a%..P.bl|
|00005330| 6f 63 6b 25 21 33 32 3d | a9 28 24 28 6e 61 6d 65 |ock%!32=|.($(name|
|00005340| 64 61 74 61 25 29 29 0d | 1e 5a 1e 62 6c 6f 63 6b |data%)).|.Z.block|
|00005350| 25 21 38 3d 32 30 30 3a | 62 6c 6f 63 6b 25 21 31 |%!8=200:|block%!1|
|00005360| 36 3d 33 30 30 0d 1e 64 | 21 c8 99 20 22 57 69 6d |6=300..d|!.. "Wim|
|00005370| 70 5f 43 72 65 61 74 65 | 49 63 6f 6e 22 2c 30 2c |p_Create|Icon",0,|
|00005380| 62 6c 6f 63 6b 25 0d 1e | 6e 05 e1 0d 1e 78 0c dd |block%..|n....x..|
|00005390| a4 64 65 6c 65 74 65 0d | 1e 82 22 f2 63 6f 70 79 |.delete.|..".copy|
|000053a0| 66 72 6f 6d 28 63 75 72 | 72 65 6e 74 5f 70 65 72 |from(cur|rent_per|
|000053b0| 25 2c 70 65 72 73 64 25 | 29 0d 1e 8c 14 e7 72 6f |%,persd%|).....ro|
|000053c0| 6f 74 25 3d 6e 69 6c 25 | 20 8c 20 3d 30 0d 1e 96 |ot%=nil%| . =0...|
|000053d0| 3b 24 28 6e 61 6d 65 64 | 61 74 61 25 29 3d 24 63 |;$(named|ata%)=$c|
|000053e0| 75 72 72 65 6e 74 5f 70 | 65 72 25 2b 22 20 22 2b |urrent_p|er%+" "+|
|000053f0| 24 28 63 75 72 72 65 6e | 74 5f 70 65 72 25 2b 73 |$(curren|t_per%+s|
|00005400| 75 72 6e 61 6d 65 25 29 | 0d 1e a0 34 e7 61 62 6f |urname%)|...4.abo|
|00005410| 76 65 25 20 8c 20 24 28 | 6e 61 6d 65 64 61 74 61 |ve% . $(|namedata|
|00005420| 25 29 3d 24 28 6e 61 6d | 65 64 61 74 61 25 29 2b |%)=$(nam|edata%)+|
|00005430| 22 27 73 20 50 61 72 65 | 6e 74 73 22 0d 1e aa 12 |"'s Pare|nts"....|
|00005440| 21 62 6c 6f 63 6b 25 3d | 63 68 65 63 6b 25 0d 1e |!block%=|check%..|
|00005450| b4 25 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |.%.. "Wi|mp_GetWi|
|00005460| 6e 64 6f 77 53 74 61 74 | 65 22 2c 30 2c 62 6c 6f |ndowStat|e",0,blo|
|00005470| 63 6b 25 0d 1e be 21 c8 | 99 20 22 57 69 6d 70 5f |ck%...!.|. "Wimp_|
|00005480| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 30 2c 62 6c |OpenWind|ow",0,bl|
|00005490| 6f 63 6b 25 0d 1e c8 42 | 20 c8 97 20 c8 93 20 62 |ock%...B| .. .. b|
|000054a0| 6c 6f 63 6b 25 21 34 2c | 62 6c 6f 63 6b 25 21 38 |lock%!4,|block%!8|
|000054b0| 2c 62 6c 6f 63 6b 25 21 | 31 32 2d 62 6c 6f 63 6b |,block%!|12-block|
|000054c0| 25 21 34 2c 62 6c 6f 63 | 6b 25 21 31 36 2d 62 6c |%!4,bloc|k%!16-bl|
|000054d0| 6f 63 6b 25 21 38 0d 1e | d2 06 3d 30 0d 1e dc 05 |ock%!8..|..=0....|
|000054e0| 3a 0d 1e e6 16 dd f2 64 | 65 6c 65 74 65 70 65 72 |:......d|eleteper|
|000054f0| 73 6f 6e 28 69 25 29 0d | 1e f0 0a ea 73 25 2c 74 |son(i%).|....s%,t|
|00005500| 25 0d 1e fa 2d e7 20 69 | 25 3c 3e 64 63 61 6e 63 |%...-. i|%<>dcanc|
|00005510| 65 6c 25 20 80 20 61 62 | 6f 76 65 25 20 8c 20 f2 |el% . ab|ove% . .|
|00005520| 64 65 6c 65 74 65 70 61 | 72 65 6e 74 3a e1 0d 1f |deletepa|rent:...|
|00005530| 04 13 e7 20 69 25 3d 64 | 63 61 6e 63 65 6c 25 20 |... i%=d|cancel% |
|00005540| 8c 0d 1f 0e 05 cc 0d 1f | 18 11 20 e7 20 73 70 6f |........|.. . spo|
|00005550| 75 73 65 64 25 20 8c 0d | 1f 22 14 20 20 73 25 3d |used% ..|.".  s%=|
|00005560| 70 65 72 73 6f 6e 6e 6f | 64 65 25 0d 1f 2c 21 20 |personno|de%..,! |
|00005570| 20 c8 95 20 73 25 21 73 | 70 6f 75 73 65 25 3c 3e | .. s%!s|pouse%<>|
|00005580| 63 75 72 72 65 6e 74 5f | 70 65 72 25 0d 1f 36 14 |current_|per%..6.|
|00005590| 20 90 03 73 25 3d 73 25 | 21 73 70 6f 75 73 65 25 | ..s%=s%|!spouse%|
|000055a0| 0d 1f 40 07 20 20 ce 0d | 1f 4a 25 20 20 73 25 21 |..@.  ..|.J%  s%!|
|000055b0| 73 70 6f 75 73 65 25 3d | 63 75 72 72 65 6e 74 5f |spouse%=|current_|
|000055c0| 70 65 72 25 21 73 70 6f | 75 73 65 25 0d 1f 54 1e |per%!spo|use%..T.|
|000055d0| 20 20 f2 61 64 64 74 6f | 6c 69 73 74 28 63 75 72 |  .addto|list(cur|
|000055e0| 72 65 6e 74 5f 70 65 72 | 25 29 0d 1f 5e 1e 20 20 |rent_per|%)..^.  |
|000055f0| 63 75 72 72 65 6e 74 5f | 70 65 72 25 3d 70 65 72 |current_|per%=per|
|00005600| 73 6f 6e 6e 6f 64 65 25 | 0d 1f 68 10 20 20 73 70 |sonnode%|..h.  sp|
|00005610| 6f 75 73 65 64 25 3d a3 | 0d 1f 72 06 20 cc 0d 1f |oused%=.|..r. ...|
|00005620| 7c 23 20 20 c8 95 20 63 | 75 72 72 65 6e 74 5f 70 ||#  .. c|urrent_p|
|00005630| 65 72 25 21 73 70 6f 75 | 73 65 25 3c 3e 6e 69 6c |er%!spou|se%<>nil|
|00005640| 25 0d 1f 86 29 20 90 03 | 73 25 3d 21 28 63 75 72 |%...) ..|s%=!(cur|
|00005650| 72 65 6e 74 5f 70 65 72 | 25 21 73 70 6f 75 73 65 |rent_per|%!spouse|
|00005660| 25 2b 73 70 6f 75 73 65 | 25 29 0d 1f 90 00 27 20 |%+spouse|%)....' |
|00005670| 90 03 f2 61 64 64 74 6f | 6c 69 73 74 28 63 75 72 |...addto|list(cur|
|00005680| 72 65 6e 74 5f 70 65 72 | 25 21 73 70 6f 75 73 65 |rent_per|%!spouse|
|00005690| 25 29 0d 1f 9a 1e 20 90 | 03 63 75 72 72 65 6e 74 |%).... .|.current|
|000056a0| 5f 70 65 72 25 21 73 70 | 6f 75 73 65 25 3d 73 25 |_per%!sp|ouse%=s%|
|000056b0| 0d 1f a4 07 20 20 ce 0d | 1f ae 1d 20 20 e7 20 63 |....  ..|...  . c|
|000056c0| 75 72 72 65 6e 74 5f 70 | 65 72 25 21 67 65 6e 25 |urrent_p|er%!gen%|
|000056d0| 3d 30 20 8c 0d 1f b8 12 | 20 90 03 f2 61 64 6a 75 |=0 .....| ...adju|
|000056e0| 73 74 72 6f 6f 74 0d 1f | c2 22 20 90 04 63 75 72 |stroot..|." ..cur|
|000056f0| 72 65 6e 74 5f 70 65 72 | 25 21 73 69 62 6c 69 6e |rent_per|%!siblin|
|00005700| 67 25 3d 6e 69 6c 25 0d | 1f cc 21 20 90 04 f2 64 |g%=nil%.|..! ...d|
|00005710| 65 6c 65 74 65 74 72 65 | 65 28 63 75 72 72 65 6e |eletetre|e(curren|
|00005720| 74 5f 70 65 72 25 29 0d | 1f d6 19 20 90 03 63 75 |t_per%).|... ..cu|
|00005730| 72 72 65 6e 74 5f 70 65 | 72 25 3d 72 6f 6f 74 25 |rrent_pe|r%=root%|
|00005740| 0d 1f e0 07 20 20 cc 0d | 1f ea 12 20 90 03 f2 61 |....  ..|... ...a|
|00005750| 64 6a 75 73 74 6e 6f 72 | 6d 0d 1f f4 21 20 90 03 |djustnor|m...! ..|
|00005760| 63 75 72 72 65 6e 74 5f | 70 65 72 25 21 73 69 62 |current_|per%!sib|
|00005770| 6c 69 6e 67 25 3d 6e 69 | 6c 25 0d 1f fe 20 90 04 |ling%=ni|l%... ..|
|00005780| f2 64 65 6c 65 74 65 74 | 72 65 65 28 63 75 72 72 |.deletet|ree(curr|
|00005790| 65 6e 74 5f 70 65 72 25 | 29 0d 20 08 19 20 90 03 |ent_per%|). .. ..|
|000057a0| 63 75 72 72 65 6e 74 5f | 70 65 72 25 3d 72 6f 6f |current_|per%=roo|
|000057b0| 74 25 0d 20 12 07 20 20 | cd 0d 20 1c 06 20 cd 0d |t%. ..  |.. .. ..|
|000057c0| 20 26 05 cd 0d 20 30 0e | f2 65 6e 64 64 65 6c 65 | &... 0.|.enddele|
|000057d0| 74 65 0d 20 3a 05 e1 0d | 20 44 05 3a 0d 20 4e 0f |te. :...| D.:. N.|
|000057e0| dd f2 65 6e 64 64 65 6c | 65 74 65 0d 20 58 12 21 |..enddel|ete. X.!|
|000057f0| 62 6c 6f 63 6b 25 3d 63 | 68 65 63 6b 25 0d 20 62 |block%=c|heck%. b|
|00005800| 22 c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 |".. "Wim|p_CloseW|
|00005810| 69 6e 64 6f 77 22 2c 30 | 2c 62 6c 6f 63 6b 25 0d |indow",0|,block%.|
|00005820| 20 6c 18 20 c8 97 20 c8 | 93 20 30 2c 30 2c 31 32 | l. .. .|. 0,0,12|
|00005830| 38 30 2c 31 30 32 34 0d | 20 76 3f e7 20 63 75 72 |80,1024.| v?. cur|
|00005840| 72 65 6e 74 5f 70 65 72 | 25 3c 3e 6e 69 6c 25 20 |rent_per|%<>nil% |
|00005850| 8c 20 f2 63 6f 70 79 74 | 6f 28 63 75 72 72 65 6e |. .copyt|o(curren|
|00005860| 74 5f 70 65 72 25 29 20 | 8b 20 f2 63 6c 65 61 72 |t_per%) |. .clear|
|00005870| 70 65 72 73 6f 6e 0d 20 | 80 2d c8 99 20 22 57 69 |person. |.-.. "Wi|
|00005880| 6d 70 5f 46 6f 72 63 65 | 52 65 64 72 61 77 22 2c |mp_Force|Redraw",|
|00005890| 6d 61 69 6e 25 2c 30 2c | 30 2c 31 32 38 30 2c 31 |main%,0,|0,1280,1|
|000058a0| 30 32 34 0d 20 8a 10 61 | 64 64 73 74 61 74 75 73 |024. ..a|ddstatus|
|000058b0| 25 3d b9 0d 20 94 3b e7 | 20 6f 76 65 72 76 69 65 |%=.. .;.| overvie|
|000058c0| 77 25 20 8c 20 c8 99 20 | 22 57 69 6d 70 5f 46 6f |w% . .. |"Wimp_Fo|
|000058d0| 72 63 65 52 65 64 72 61 | 77 22 2c 6f 76 65 72 25 |rceRedra|w",over%|
|000058e0| 2c 30 2c 30 2c 31 32 38 | 30 2c 31 30 32 34 0d 20 |,0,0,128|0,1024. |
|000058f0| 9e 41 e7 20 64 61 74 61 | 76 69 65 77 25 20 8c 20 |.A. data|view% . |
|00005900| c8 99 20 22 57 69 6d 70 | 5f 46 6f 72 63 65 52 65 |.. "Wimp|_ForceRe|
|00005910| 64 72 61 77 22 2c 64 61 | 74 61 77 69 6e 64 6f 77 |draw",da|tawindow|
|00005920| 25 2c 30 2c 30 2c 31 32 | 38 30 2c 31 30 32 34 0d |%,0,0,12|80,1024.|
|00005930| 20 a8 05 e1 0d 20 b2 05 | 3a 0d 20 bc 13 dd f2 61 | .... ..|:. ....a|
|00005940| 64 64 74 6f 6c 69 73 74 | 28 64 25 29 0d 20 c6 14 |ddtolist|(d%). ..|
|00005950| 64 25 21 6e 65 78 74 25 | 3d 64 65 6c 65 74 65 25 |d%!next%|=delete%|
|00005960| 0d 20 d0 0e 64 65 6c 65 | 74 65 25 3d 64 25 0d 20 |. ..dele|te%=d%. |
|00005970| da 05 e1 0d 20 e4 05 3a | 0d 20 ee 10 dd f2 61 64 |.... ..:|. ....ad|
|00005980| 6a 75 73 74 72 6f 6f 74 | 0d 20 f8 1a e7 20 63 75 |justroot|. ... cu|
|00005990| 72 72 65 6e 74 5f 70 65 | 72 25 3d 72 6f 6f 74 25 |rrent_pe|r%=root%|
|000059a0| 20 8c 0d 21 02 24 20 e7 | 20 63 75 72 72 65 6e 74 | ..!.$ .| current|
|000059b0| 5f 70 65 72 25 21 73 69 | 62 6c 69 6e 67 25 3c 3e |_per%!si|bling%<>|
|000059c0| 6e 69 6c 25 20 8c 0d 21 | 0c 21 20 20 72 6f 6f 74 |nil% ..!|.!  root|
|000059d0| 25 3d 63 75 72 72 65 6e | 74 5f 70 65 72 25 21 73 |%=curren|t_per%!s|
|000059e0| 69 62 6c 69 6e 67 25 0d | 21 16 06 20 cc 0d 21 20 |ibling%.|!.. ..! |
|000059f0| 21 20 20 72 6f 6f 74 25 | 3d 63 75 72 72 65 6e 74 |!  root%|=current|
|00005a00| 5f 70 65 72 25 21 73 69 | 62 6c 69 6e 67 25 0d 21 |_per%!si|bling%.!|
|00005a10| 2a 24 20 20 e7 20 72 6f | 6f 74 25 3c 3e 6e 69 6c |*$  . ro|ot%<>nil|
|00005a20| 25 20 8c 20 f2 64 65 63 | 67 65 6e 28 72 6f 6f 74 |% . .dec|gen(root|
|00005a30| 25 29 0d 21 34 06 20 cd | 0d 21 3e 05 cc 0d 21 48 |%).!4. .|.!>...!H|
|00005a40| 0d 20 73 25 3d 72 6f 6f | 74 25 0d 21 52 21 20 c8 |. s%=roo|t%.!R! .|
|00005a50| 95 20 73 25 21 73 69 62 | 6c 69 6e 67 25 3c 3e 63 |. s%!sib|ling%<>c|
|00005a60| 75 72 72 65 6e 74 5f 70 | 65 72 25 0d 21 5c 14 20 |urrent_p|er%.!\. |
|00005a70| 20 73 25 3d 73 25 21 73 | 69 62 6c 69 6e 67 25 0d | s%=s%!s|ibling%.|
|00005a80| 21 66 06 20 ce 0d 21 70 | 26 20 73 25 21 73 69 62 |!f. ..!p|& s%!sib|
|00005a90| 6c 69 6e 67 25 3d 63 75 | 72 72 65 6e 74 5f 70 65 |ling%=cu|rrent_pe|
|00005aa0| 72 25 21 73 69 62 6c 69 | 6e 67 25 0d 21 7a 05 cd |r%!sibli|ng%.!z..|
|00005ab0| 0d 21 84 05 e1 0d 21 8e | 05 3a 0d 21 98 10 dd f2 |.!....!.|.:.!....|
|00005ac0| 61 64 6a 75 73 74 6e 6f | 72 6d 0d 21 a2 1e f2 67 |adjustno|rm.!...g|
|00005ad0| 65 6e 70 6f 69 6e 74 65 | 72 73 28 63 75 72 72 65 |enpointe|rs(curre|
|00005ae0| 6e 74 5f 70 65 72 25 29 | 0d 21 ac 2f 70 25 3d 67 |nt_per%)|.!./p%=g|
|00005af0| 65 6e 70 6f 69 6e 74 65 | 72 73 25 21 28 90 03 63 |enpointe|rs%!(..c|
|00005b00| 75 72 72 65 6e 74 5f 70 | 65 72 25 21 67 65 6e 25 |urrent_p|er%!gen%|
|00005b10| 29 2d 31 29 2a 34 29 0d | 21 b6 1d e7 70 25 21 63 |)-1)*4).|!...p%!c|
|00005b20| 68 69 6c 64 25 3d 63 75 | 72 72 65 6e 74 5f 70 65 |hild%=cu|rrent_pe|
|00005b30| 72 25 20 8c 0d 21 c0 24 | 20 70 25 21 63 68 69 6c |r% ..!.$| p%!chil|
|00005b40| 64 25 3d 63 75 72 72 65 | 6e 74 5f 70 65 72 25 21 |d%=curre|nt_per%!|
|00005b50| 73 69 62 6c 69 6e 67 25 | 0d 21 ca 05 cc 0d 21 d4 |sibling%|.!....!.|
|00005b60| 11 20 70 25 3d 70 25 21 | 63 68 69 6c 64 25 0d 21 |. p%=p%!|child%.!|
|00005b70| de 20 20 c8 95 70 25 21 | 73 69 62 6c 69 6e 67 25 |.  ..p%!|sibling%|
|00005b80| 3c 3e 63 75 72 72 65 6e | 74 5f 70 65 72 25 0d 21 |<>curren|t_per%.!|
|00005b90| e8 14 20 20 70 25 3d 70 | 25 21 73 69 62 6c 69 6e |..  p%=p|%!siblin|
|00005ba0| 67 25 0d 21 f2 06 20 ce | 0d 21 fc 26 20 70 25 21 |g%.!.. .|.!.& p%!|
|00005bb0| 73 69 62 6c 69 6e 67 25 | 3d 63 75 72 72 65 6e 74 |sibling%|=current|
|00005bc0| 5f 70 65 72 25 21 73 69 | 62 6c 69 6e 67 25 0d 22 |_per%!si|bling%."|
|00005bd0| 06 05 cd 0d 22 10 05 e1 | 0d 22 1a 05 3a 0d 22 24 |...."...|."..:."$|
|00005be0| 14 dd f2 64 65 63 67 65 | 6e 28 6f 72 6f 6f 74 25 |...decge|n(oroot%|
|00005bf0| 29 0d 22 2e 14 e7 20 6f | 72 6f 6f 74 25 3c 3e 6e |)."... o|root%<>n|
|00005c00| 69 6c 25 20 8c 0d 22 38 | 13 20 6f 72 6f 6f 74 25 |il% .."8|. oroot%|
|00005c10| 21 67 65 6e 25 2d 3d 31 | 0d 22 42 1b 20 f2 64 65 |!gen%-=1|."B. .de|
|00005c20| 63 67 65 6e 28 6f 72 6f | 6f 74 25 21 63 68 69 6c |cgen(oro|ot%!chil|
|00005c30| 64 25 29 0d 22 4c 1d 20 | f2 64 65 63 67 65 6e 28 |d%)."L. |.decgen(|
|00005c40| 6f 72 6f 6f 74 25 21 73 | 69 62 6c 69 6e 67 25 29 |oroot%!s|ibling%)|
|00005c50| 0d 22 56 05 cd 0d 22 60 | 05 e1 0d 22 6a 05 3a 0d |."V..."`|..."j.:.|
|00005c60| 22 74 14 dd f2 64 65 6c | 65 74 65 74 72 65 65 28 |"t...del|etetree(|
|00005c70| 6f 25 29 0d 22 7e 09 20 | ea 20 74 25 0d 22 88 10 |o%)."~. |. t%."..|
|00005c80| e7 20 6f 25 3c 3e 6e 69 | 6c 25 20 8c 0d 22 92 1b |. o%<>ni|l% .."..|
|00005c90| 20 f2 64 65 6c 65 74 65 | 74 72 65 65 28 6f 25 21 | .delete|tree(o%!|
|00005ca0| 63 68 69 6c 64 25 29 0d | 22 9c 1d 20 f2 64 65 6c |child%).|".. .del|
|00005cb0| 65 74 65 74 72 65 65 28 | 6f 25 21 73 69 62 6c 69 |etetree(|o%!sibli|
|00005cc0| 6e 67 25 29 0d 22 a6 18 | 20 c8 95 20 6f 25 21 73 |ng%)."..| .. o%!s|
|00005cd0| 70 6f 75 73 65 25 3c 3e | 6e 69 6c 25 0d 22 b0 1e |pouse%<>|nil%."..|
|00005ce0| 20 20 74 25 3d 21 28 6f | 25 21 73 70 6f 75 73 65 |  t%=!(o|%!spouse|
|00005cf0| 25 2b 73 70 6f 75 73 65 | 25 29 0d 22 ba 1c 20 20 |%+spouse|%)."..  |
|00005d00| f2 61 64 64 74 6f 6c 69 | 73 74 28 6f 25 21 73 70 |.addtoli|st(o%!sp|
|00005d10| 6f 75 73 65 25 29 0d 22 | c4 13 20 20 6f 25 21 73 |ouse%)."|..  o%!s|
|00005d20| 70 6f 75 73 65 25 3d 74 | 25 0d 22 ce 06 20 ce 0d |pouse%=t|%.".. ..|
|00005d30| 22 d8 13 20 f2 61 64 64 | 74 6f 6c 69 73 74 28 6f |".. .add|tolist(o|
|00005d40| 25 29 0d 22 e2 05 cd 0d | 22 ec 05 e1 0d 22 f6 05 |%)."....|"...."..|
|00005d50| 3a 0d 23 00 0f dd a4 6c | 6f 61 64 5f 74 72 65 65 |:.#....l|oad_tree|
|00005d60| 0d 23 0a 14 66 69 6c 65 | 24 3d 24 66 69 6c 65 5f |.#..file|$=$file_|
|00005d70| 64 61 74 25 0d 23 14 0e | 73 70 6f 75 73 65 64 25 |dat%.#..|spoused%|
|00005d80| 3d a3 0d 23 1e 14 f2 6c | 6f 61 64 66 69 6c 65 28 |=..#...l|oadfile(|
|00005d90| 66 69 6c 65 24 29 0d 23 | 28 06 3d 30 0d 23 32 05 |file$).#|(.=0.#2.|
|00005da0| 3a 0d 23 3c 15 dd f2 6c | 6f 61 64 66 69 6c 65 28 |:.#<...l|oadfile(|
|00005db0| 66 69 6c 65 24 29 0d 23 | 46 12 e7 20 66 69 6c 65 |file$).#|F.. file|
|00005dc0| 24 3d 22 22 20 8c 20 e1 | 0d 23 50 12 6f 6c 64 74 |$="" . .|.#P.oldt|
|00005dd0| 72 65 65 24 3d 66 69 6c | 65 24 0d 23 5a 0f 46 25 |ree$=fil|e$.#Z.F%|
|00005de0| 3d 8e 28 66 69 6c 65 24 | 29 0d 23 64 12 54 25 3d |=.(file$|).#d.T%=|
|00005df0| 9a 23 46 25 3a cf 23 46 | 25 3d 30 0d 23 6e 26 e7 |.#F%:.#F|%=0.#n&.|
|00005e00| 20 72 6f 6f 74 25 3c 3e | 6e 69 6c 25 20 8c 20 f2 | root%<>|nil% . .|
|00005e10| 64 65 6c 65 74 65 74 72 | 65 65 28 72 6f 6f 74 25 |deletetr|ee(root%|
|00005e20| 29 0d 23 78 14 72 6f 6f | 74 25 3d a4 64 69 6d 70 |).#x.roo|t%=.dimp|
|00005e30| 65 72 73 6f 6e 0d 23 82 | 16 f2 6c 6f 61 64 5f 72 |erson.#.|..load_r|
|00005e40| 65 63 75 72 28 72 6f 6f | 74 25 29 0d 23 8c 08 d9 |ecur(roo|t%).#...|
|00005e50| 23 46 25 0d 23 96 25 f2 | 63 6f 70 79 74 6f 28 72 |#F%.#.%.|copyto(r|
|00005e60| 6f 6f 74 25 29 3a 63 75 | 72 72 65 6e 74 5f 70 65 |oot%):cu|rrent_pe|
|00005e70| 72 25 3d 72 6f 6f 74 25 | 0d 23 a0 2d c8 99 20 22 |r%=root%|.#.-.. "|
|00005e80| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|00005e90| 22 2c 6d 61 69 6e 25 2c | 30 2c 30 2c 31 32 38 30 |",main%,|0,0,1280|
|00005ea0| 2c 31 30 32 34 0d 23 aa | 10 61 64 64 73 74 61 74 |,1024.#.|.addstat|
|00005eb0| 75 73 25 3d b9 0d 23 b4 | 3b e7 20 6f 76 65 72 76 |us%=..#.|;. overv|
|00005ec0| 69 65 77 25 20 8c 20 c8 | 99 20 22 57 69 6d 70 5f |iew% . .|. "Wimp_|
|00005ed0| 46 6f 72 63 65 52 65 64 | 72 61 77 22 2c 6f 76 65 |ForceRed|raw",ove|
|00005ee0| 72 25 2c 30 2c 30 2c 31 | 32 38 30 2c 31 30 32 34 |r%,0,0,1|280,1024|
|00005ef0| 0d 23 be 41 e7 20 64 61 | 74 61 76 69 65 77 25 20 |.#.A. da|taview% |
|00005f00| 8c 20 c8 99 20 22 57 69 | 6d 70 5f 46 6f 72 63 65 |. .. "Wi|mp_Force|
|00005f10| 52 65 64 72 61 77 22 2c | 64 61 74 61 77 69 6e 64 |Redraw",|datawind|
|00005f20| 6f 77 25 2c 30 2c 30 2c | 31 32 38 30 2c 31 30 32 |ow%,0,0,|1280,102|
|00005f30| 34 0d 23 c8 05 e1 0d 23 | d2 05 3a 0d 23 dc 18 dd |4.#....#|..:.#...|
|00005f40| f2 6c 6f 61 64 5f 72 65 | 63 75 72 28 6c 72 6f 6f |.load_re|cur(lroo|
|00005f50| 74 25 29 0d 23 e6 1f f2 | 6c 6f 61 64 5f 70 65 72 |t%).#...|load_per|
|00005f60| 28 6c 72 6f 6f 74 25 29 | 3a 54 25 3d 6c 72 6f 6f |(lroot%)|:T%=lroo|
|00005f70| 74 25 0d 23 f0 1b c8 95 | 20 6c 72 6f 6f 74 25 21 |t%.#....| lroot%!|
|00005f80| 73 70 6f 75 73 65 25 3c | 3e 6e 69 6c 25 0d 23 fa |spouse%<|>nil%.#.|
|00005f90| 1e 20 6c 72 6f 6f 74 25 | 21 73 70 6f 75 73 65 25 |. lroot%|!spouse%|
|00005fa0| 3d a4 64 69 6d 70 65 72 | 73 6f 6e 0d 24 04 1a 20 |=.dimper|son.$.. |
|00005fb0| 6c 72 6f 6f 74 25 3d 6c | 72 6f 6f 74 25 21 73 70 |lroot%=l|root%!sp|
|00005fc0| 6f 75 73 65 25 0d 24 0e | 16 20 f2 6c 6f 61 64 5f |ouse%.$.|. .load_|
|00005fd0| 70 65 72 28 6c 72 6f 6f | 74 25 29 0d 24 18 05 ce |per(lroo|t%).$...|
|00005fe0| 0d 24 22 0d 6c 72 6f 6f | 74 25 3d 54 25 0d 24 2c |.$".lroo|t%=T%.$,|
|00005ff0| 1d e7 20 6c 72 6f 6f 74 | 25 21 73 69 62 6c 69 6e |.. lroot|%!siblin|
|00006000| 67 25 3c 3e 6e 69 6c 25 | 20 8c 0d 24 36 1f 20 6c |g%<>nil%| ..$6. l|
|00006010| 72 6f 6f 74 25 21 73 69 | 62 6c 69 6e 67 25 3d a4 |root%!si|bling%=.|
|00006020| 64 69 6d 70 65 72 73 6f | 6e 0d 24 40 21 20 f2 6c |dimperso|n.$@! .l|
|00006030| 6f 61 64 5f 72 65 63 75 | 72 28 6c 72 6f 6f 74 25 |oad_recu|r(lroot%|
|00006040| 21 73 69 62 6c 69 6e 67 | 25 29 0d 24 4a 05 cd 0d |!sibling|%).$J...|
|00006050| 24 54 1b e7 20 6c 72 6f | 6f 74 25 21 63 68 69 6c |$T.. lro|ot%!chil|
|00006060| 64 25 3c 3e 6e 69 6c 25 | 20 8c 0d 24 5e 1d 20 6c |d%<>nil%| ..$^. l|
|00006070| 72 6f 6f 74 25 21 63 68 | 69 6c 64 25 3d a4 64 69 |root%!ch|ild%=.di|
|00006080| 6d 70 65 72 73 6f 6e 0d | 24 68 1f 20 f2 6c 6f 61 |mperson.|$h. .loa|
|00006090| 64 5f 72 65 63 75 72 28 | 6c 72 6f 6f 74 25 21 63 |d_recur(|lroot%!c|
|000060a0| 68 69 6c 64 25 29 0d 24 | 72 05 cd 0d 24 7c 05 e1 |hild%).$|r...$|..|
|000060b0| 0d 24 86 05 3a 0d 24 90 | 00 14 dd f2 6c 6f 61 64 |.$..:.$.|....load|
|000060c0| 5f 70 65 72 28 6d 65 6d | 25 29 0d 24 9a 08 ea 20 |_per(mem|%).$... |
|000060d0| 6f 25 0d 24 a4 28 e8 23 | 46 25 2c 24 28 6d 65 6d |o%.$.(.#|F%,$(mem|
|000060e0| 25 2b 66 6e 61 6d 65 25 | 29 2c 24 28 6d 65 6d 25 |%+fname%|),$(mem%|
|000060f0| 2b 73 75 72 6e 61 6d 65 | 25 29 0d 24 ae 28 e8 23 |+surname|%).$.(.#|
|00006100| 46 25 2c 6d 65 6d 25 21 | 62 69 72 74 68 64 61 74 |F%,mem%!|birthdat|
|00006110| 65 25 2c 6d 65 6d 25 21 | 64 65 61 74 68 64 61 74 |e%,mem%!|deathdat|
|00006120| 65 25 0d 24 b8 2d e8 23 | 46 25 2c 6d 65 6d 25 21 |e%.$.-.#|F%,mem%!|
|00006130| 6d 61 72 72 69 61 67 65 | 64 61 74 65 25 2c 6d 65 |marriage|date%,me|
|00006140| 6d 25 21 64 69 76 6f 72 | 63 65 64 61 74 65 25 0d |m%!divor|cedate%.|
|00006150| 24 c2 2f e8 23 46 25 2c | 6d 65 6d 25 21 73 69 62 |$./.#F%,|mem%!sib|
|00006160| 6c 69 6e 67 25 2c 6d 65 | 6d 25 21 63 68 69 6c 64 |ling%,me|m%!child|
|00006170| 25 2c 6d 65 6d 25 21 73 | 70 6f 75 73 65 25 0d 24 |%,mem%!s|pouse%.$|
|00006180| cc 21 e8 23 46 25 2c 6d | 65 6d 25 21 67 65 6e 25 |.!.#F%,m|em%!gen%|
|00006190| 3a e8 23 46 25 2c 6d 65 | 6d 25 21 73 65 78 25 0d |:.#F%,me|m%!sex%.|
|000061a0| 24 d6 3c e3 20 6f 25 3d | 30 20 b8 20 31 35 3a 20 |$.<. o%=|0 . 15: |
|000061b0| e8 23 46 25 2c 20 24 28 | 6d 65 6d 25 2b 28 70 65 |.#F%, $(|mem%+(pe|
|000061c0| 72 73 6f 6e 6c 65 6e 67 | 74 68 25 2d 31 36 2a 36 |rsonleng|th%-16*6|
|000061d0| 35 29 2b 6f 25 2a 36 35 | 29 3a ed 0d 24 e0 05 e1 |5)+o%*65|):..$...|
|000061e0| 0d 24 ea 05 3a 0d 24 f4 | 14 dd f2 73 61 76 65 5f |.$..:.$.|...save_|
|000061f0| 70 65 72 28 6d 65 6d 25 | 29 0d 24 fe 08 ea 20 6f |per(mem%|).$... o|
|00006200| 25 0d 25 08 28 f1 23 46 | 25 2c 24 28 6d 65 6d 25 |%.%.(.#F|%,$(mem%|
|00006210| 2b 66 6e 61 6d 65 25 29 | 2c 24 28 6d 65 6d 25 2b |+fname%)|,$(mem%+|
|00006220| 73 75 72 6e 61 6d 65 25 | 29 0d 25 12 28 f1 23 46 |surname%|).%.(.#F|
|00006230| 25 2c 6d 65 6d 25 21 62 | 69 72 74 68 64 61 74 65 |%,mem%!b|irthdate|
|00006240| 25 2c 6d 65 6d 25 21 64 | 65 61 74 68 64 61 74 65 |%,mem%!d|eathdate|
|00006250| 25 0d 25 1c 2d f1 23 46 | 25 2c 6d 65 6d 25 21 6d |%.%.-.#F|%,mem%!m|
|00006260| 61 72 72 69 61 67 65 64 | 61 74 65 25 2c 6d 65 6d |arriaged|ate%,mem|
|00006270| 25 21 64 69 76 6f 72 63 | 65 64 61 74 65 25 0d 25 |%!divorc|edate%.%|
|00006280| 26 2f f1 23 46 25 2c 6d | 65 6d 25 21 73 69 62 6c |&/.#F%,m|em%!sibl|
|00006290| 69 6e 67 25 2c 6d 65 6d | 25 21 63 68 69 6c 64 25 |ing%,mem|%!child%|
|000062a0| 2c 6d 65 6d 25 21 73 70 | 6f 75 73 65 25 0d 25 30 |,mem%!sp|ouse%.%0|
|000062b0| 21 f1 23 46 25 2c 6d 65 | 6d 25 21 67 65 6e 25 3a |!.#F%,me|m%!gen%:|
|000062c0| f1 23 46 25 2c 6d 65 6d | 25 21 73 65 78 25 0d 25 |.#F%,mem|%!sex%.%|
|000062d0| 3a 3b e3 20 6f 25 3d 30 | 20 b8 20 31 35 3a 20 f1 |:;. o%=0| . 15: .|
|000062e0| 23 46 25 2c 24 28 6d 65 | 6d 25 2b 28 70 65 72 73 |#F%,$(me|m%+(pers|
|000062f0| 6f 6e 6c 65 6e 67 74 68 | 25 2d 31 36 2a 36 35 29 |onlength|%-16*65)|
|00006300| 2b 6f 25 2a 36 35 29 3a | ed 0d 25 44 05 e1 0d 25 |+o%*65):|..%D...%|
|00006310| 4e 05 3a 0d 25 58 16 dd | a4 73 61 76 65 5f 74 72 |N.:.%X..|.save_tr|
|00006320| 65 65 28 66 69 6c 65 24 | 29 0d 25 62 15 e7 20 72 |ee(file$|).%b.. r|
|00006330| 6f 6f 74 25 3d 6e 69 6c | 25 20 8c 20 3d 30 0d 25 |oot%=nil|% . =0.%|
|00006340| 6c 13 e7 20 66 69 6c 65 | 24 3d 22 22 20 8c 20 3d |l.. file|$="" . =|
|00006350| 30 0d 25 76 12 6f 6c 64 | 74 72 65 65 24 3d 66 69 |0.%v.old|tree$=fi|
|00006360| 6c 65 24 0d 25 80 32 20 | 46 25 3d 8e 28 66 69 6c |le$.%.2 |F%=.(fil|
|00006370| 65 24 29 3a d9 23 46 25 | 3a e7 20 46 25 3c 3e 30 |e$):.#F%|:. F%<>0|
|00006380| 20 8c 20 ff 28 22 44 45 | 4c 45 54 45 20 22 2b 66 | . .("DE|LETE "+f|
|00006390| 69 6c 65 24 29 0d 25 8a | 0f 46 25 3d ae 28 66 69 |ile$).%.|.F%=.(fi|
|000063a0| 6c 65 24 29 0d 25 94 16 | f2 73 61 76 65 5f 72 65 |le$).%..|.save_re|
|000063b0| 63 75 72 28 72 6f 6f 74 | 25 29 0d 25 9e 08 d9 23 |cur(root|%).%...#|
|000063c0| 46 25 0d 25 a8 25 ff 28 | 22 53 45 54 54 59 50 45 |F%.%.%.(|"SETTYPE|
|000063d0| 20 22 2b 66 69 6c 65 24 | 2b 22 20 46 61 6d 69 6c | "+file$|+" Famil|
|000063e0| 79 66 69 6c 65 22 29 0d | 25 b2 06 3d 30 0d 25 bc |yfile").|%..=0.%.|
|000063f0| 05 3a 0d 25 c6 18 dd f2 | 73 61 76 65 5f 72 65 63 |.:.%....|save_rec|
+--------+-------------------------+-------------------------+--------+--------+