/ APDL Public Domain 1 / APDL_PD1A.iso / database / birdlog

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 68 01 00 00 54 03 00 00 |Archive.|h...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 42 69 72 64 6c 6f 67 | 00 00 00 00 5f 7e 00 00 |.Birdlog|...._~..|
|00000070| 41 fb ff ff 51 cb 4c 5d | 03 00 0e 91 5f 7e 00 00 |A...Q.L]|...._~..|
|00000080| 24 00 00 00 82 43 4f 44 | 45 46 49 4c 45 53 00 00 |$....COD|EFILES..|
|00000090| ff ff ff ff 44 fd ff ff | b8 19 2d 00 30 00 00 00 |....D...|..-.0...|
|000000a0| ff ff ff ff b4 00 00 80 | 82 43 6f 47 65 6e 53 74 |........|.CoGenSt|
|000000b0| 64 00 00 00 8f 2e 00 00 | 41 fb ff ff 80 cb 4c 5d |d.......|A.....L]|
|000000c0| 03 00 66 07 8f 2e 00 00 | 3f c5 00 00 82 53 74 61 |..f.....|?....Sta|
|000000d0| 6e 64 61 72 64 00 00 00 | 16 10 00 00 41 fd ff ff |ndard...|....A...|
|000000e0| 90 cb 4c 5d 03 00 60 31 | 16 10 00 00 f2 f3 00 00 |..L]..`1|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 82 53 61 6d | 70 6c 65 00 00 00 00 00 |.....Sam|ple.....|
|00000120| 74 46 00 00 41 fd ff ff | 6c cb 4c 5d 03 00 2c e0 |tF..A...|l.L]..,.|
|00000130| 74 46 00 00 a7 7e 00 00 | 82 54 45 58 54 00 00 00 |tF...~..|.TEXT...|
|00000140| 00 00 00 00 ff ff ff ff | 44 fd ff ff e8 1b 2d 00 |........|D.....-.|
|00000150| 30 00 00 00 ff ff ff ff | 44 01 00 80 82 41 42 43 |0.......|D....ABC|
|00000160| 31 32 32 30 00 2d 00 00 | 9b 00 00 00 41 fd ff ff |1220.-..|....A...|
|00000170| e0 0c da 5e 03 00 79 53 | 9b 00 00 00 2c 04 01 00 |...^..yS|....,...|
|00000180| 00 fb f3 ff 4b a5 bc 97 | dc 2d 00 00 03 00 00 00 |....K...|.-......|
|00000190| ff ff ff ff 03 00 9b 00 | 45 fb f3 ff 25 aa bc 97 |........|E...%...|
|000001a0| 00 13 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 42 69 72 |....File|Data.Bir|
|00000360| 64 6c 6f 67 00 00 00 00 | 5f 7e 00 00 41 fb ff ff |dlog....|_~..A...|
|00000370| 51 cb 4c 5d 03 00 0e 91 | 0d 00 0a 0e f4 20 3e 42 |Q.L]....|..... >B|
|00000380| 69 72 64 6c 6f 67 0d 00 | 14 12 f4 20 56 65 72 73 |irdlog..|... Vers|
|00000390| 69 6f 6e 20 32 2e 30 30 | 0d 00 1e 19 f4 20 a9 20 |ion 2.00|..... . |
|000003a0| 4a 2e 20 52 2e 20 42 61 | 72 6e 65 73 20 31 39 38 |J. R. Ba|rnes 198|
|000003b0| 38 0d 00 28 2a f4 20 54 | 68 69 73 20 70 72 6f 67 |8..(*. T|his prog|
|000003c0| 72 61 6d 20 69 73 20 69 | 6e 20 74 68 65 20 70 75 |ram is i|n the pu|
|000003d0| 62 6c 69 63 20 64 6f 6d | 61 69 6e 0d 00 32 04 0d |blic dom|ain..2..|
|000003e0| 00 3c 0f f2 69 6e 69 74 | 69 61 6c 69 7a 65 0d 00 |.<..init|ialize..|
|000003f0| 46 0e ee 20 85 20 f2 65 | 72 72 6f 72 0d 00 50 05 |F.. . .e|rror..P.|
|00000400| f5 0d 00 5a 09 f2 6d 65 | 6e 75 0d 00 64 0b fd 20 |...Z..me|nu..d.. |
|00000410| 64 6f 6e 65 25 0d 00 6e | 05 e0 0d 00 78 04 0d 00 |done%..n|....x...|
|00000420| 82 15 dd 20 a4 64 69 76 | 65 72 67 65 28 61 24 2c |... .div|erge(a$,|
|00000430| 62 24 29 0d 00 8c 0c f2 | 6d 6f 64 65 28 30 29 0d |b$).....|mode(0).|
|00000440| 00 96 19 c8 97 20 c8 93 | 20 33 39 30 2c 33 36 32 |..... ..| 390,362|
|00000450| 2c 35 30 30 2c 33 30 30 | 0d 00 a0 08 c8 97 20 ee |,500,300|...... .|
|00000460| 0d 00 aa 10 c8 97 20 b8 | 20 38 35 30 2c 36 33 35 |...... .| 850,635|
|00000470| 0d 00 b4 16 c8 93 20 33 | 39 30 2c 33 36 32 2c 35 |...... 3|90,362,5|
|00000480| 30 30 2c 33 30 30 0d 00 | be 1b e3 20 6c 69 6e 65 |00,300..|... line|
|00000490| 25 3d 31 30 30 20 b8 20 | 32 30 30 20 88 20 31 30 |%=100 . |200 . 10|
|000004a0| 30 0d 00 c8 21 86 20 33 | 39 30 2c 6c 69 6e 65 25 |0...!. 3|90,line%|
|000004b0| 2b 33 36 32 2c 38 39 30 | 2c 6c 69 6e 65 25 2b 33 |+362,890|,line%+3|
|000004c0| 36 32 0d 00 d2 0b ed 20 | 6c 69 6e 65 25 0d 00 dc |62..... |line%...|
|000004d0| 10 f2 63 65 6e 28 61 24 | 2c 36 32 35 29 0d 00 e6 |..cen(a$|,625)...|
|000004e0| 10 f2 63 65 6e 28 62 24 | 2c 35 32 35 29 0d 00 f0 |..cen(b$|,525)...|
|000004f0| 1e f2 63 65 6e 28 22 52 | 65 74 75 72 6e 20 74 6f |..cen("R|eturn to|
|00000500| 20 6d 65 6e 75 22 2c 34 | 32 35 29 0d 00 fa 05 f5 | menu",4|25).....|
|00000510| 0d 01 04 0f f2 66 6c 75 | 73 68 4d 6f 75 73 65 0d |.....flu|shMouse.|
|00000520| 01 0e 0f c8 97 20 78 25 | 2c 79 25 2c 7a 25 0d 01 |..... x%|,y%,z%..|
|00000530| 18 08 fd 20 7a 25 0d 01 | 22 0a c8 8e 20 b9 20 ca |... z%..|"... . .|
|00000540| 0d 01 2c 11 c9 20 79 25 | 3e 35 36 31 3a 7a 25 3d |..,.. y%|>561:z%=|
|00000550| 30 0d 01 36 11 c9 20 79 | 25 3e 34 36 32 3a 7a 25 |0..6.. y|%>462:z%|
|00000560| 3d 31 0d 01 40 0a 7f 20 | 7a 25 3d 32 0d 01 4a 05 |=1..@.. |z%=2..J.|
|00000570| cb 0d 01 54 0c f2 6d 6f | 64 65 28 33 29 0d 01 5e |...T..mo|de(3)..^|
|00000580| 07 3d 7a 25 0d 01 68 04 | 0d 01 72 16 dd 20 a4 67 |.=z%..h.|..r.. .g|
|00000590| 65 74 46 69 6c 65 4e 61 | 6d 65 28 61 24 29 0d 01 |etFileNa|me(a$)..|
|000005a0| 7c 07 ee 3a f5 0d 01 86 | 08 78 25 3d b9 0d 01 90 ||..:....|.x%=....|
|000005b0| 09 f1 27 61 24 3b 0d 01 | 9a 0c e8 20 86 22 20 22 |..'a$;..|... ." "|
|000005c0| 6b 24 0d 01 a4 1f e7 20 | a9 28 6b 24 29 3d 30 20 |k$..... |.(k$)=0 |
|000005d0| 84 20 a9 28 6b 24 29 3e | 31 30 20 8c 20 78 25 3d |. .(k$)>|10 . x%=|
|000005e0| a3 0d 01 ae 12 e3 20 79 | 25 3d 31 20 b8 20 a9 28 |...... y|%=1 . .(|
|000005f0| 6b 24 29 0d 01 b8 26 e7 | 20 a7 22 20 2e 2c 24 26 |k$)...&.| ." .,$&|
|00000600| 40 5e 5c 25 2a 23 22 2c | c1 6b 24 2c 79 25 2c 31 |@^\%*#",|.k$,y%,1|
|00000610| 29 29 20 8c 20 78 25 3d | a3 0d 01 c2 08 ed 20 79 |)) . x%=|...... y|
|00000620| 25 0d 01 cc 31 e7 20 ac | 20 78 25 20 f1 27 22 42 |%...1. .| x% .'"B|
|00000630| 61 64 20 66 69 6c 65 2d | 6e 61 6d 65 3a 20 70 6c |ad file-|name: pl|
|00000640| 65 61 73 65 20 74 72 79 | 20 61 67 61 69 6e 22 3b |ease try| again";|
|00000650| bd 37 0d 01 d6 0a fd 20 | 78 25 3a 87 0d 01 e0 07 |.7..... |x%:.....|
|00000660| 3d 6b 24 0d 01 ea 04 0d | 01 f4 0f dd 20 a4 67 65 |=k$.....|.... .ge|
|00000670| 74 54 6f 64 61 79 0d 01 | fe 1e f4 20 a4 20 4c 6f |tToday..|... . Lo|
|00000680| 6f 6b 20 75 70 20 53 59 | 53 20 74 6f 20 64 6f 20 |ok up SY|S to do |
|00000690| 74 68 69 73 0d 02 08 0f | 74 24 3d c1 91 24 2c 35 |this....|t$=..$,5|
|000006a0| 2c 36 29 0d 02 12 0d 6b | 24 3d c2 74 24 2c 33 29 |,6)....k|$=.t$,3)|
|000006b0| 0d 02 1c 36 6d 6f 6e 74 | 68 25 3d a7 22 4a 61 6e |...6mont|h%=."Jan|
|000006c0| 46 65 62 4d 61 72 41 70 | 72 4d 61 79 4a 75 6e 4a |FebMarAp|rMayJunJ|
|000006d0| 75 6c 41 75 67 53 65 70 | 4f 63 74 4e 6f 76 44 65 |ulAugSep|OctNovDe|
|000006e0| 63 22 2c 6b 24 29 0d 02 | 26 17 6d 6f 6e 74 68 25 |c",k$)..|&.month%|
|000006f0| 3d 28 6d 6f 6e 74 68 25 | 2b 32 29 2f 33 0d 02 30 |=(month%|+2)/3..0|
|00000700| 28 6d 24 3d c3 28 6d 6f | 6e 74 68 25 29 3a e7 20 |(m$=.(mo|nth%):. |
|00000710| 6d 6f 6e 74 68 25 3c 31 | 30 20 8c 20 6d 24 3d 22 |month%<1|0 . m$="|
|00000720| 30 22 2b 6d 24 0d 02 3a | 0e 3d 6d 24 2b c0 74 24 |0"+m$..:|.=m$+.t$|
|00000730| 2c 32 29 0d 02 44 04 0d | 02 4e 1c dd 20 a4 6c 6f |,2)..D..|.N.. .lo|
|00000740| 6f 6b 75 70 28 63 6f 64 | 65 24 28 29 2c 73 69 7a |okup(cod|e$(),siz|
|00000750| 65 25 29 0d 02 58 23 6b | 25 3d 30 3a 66 6f 75 6e |e%)..X#k|%=0:foun|
|00000760| 64 25 3d a3 3a 63 6f 64 | 65 24 3d 6b 24 3a 61 24 |d%=.:cod|e$=k$:a$|
|00000770| 3d 63 6f 64 65 24 0d 02 | 62 05 f5 0d 02 6c 09 6b |=code$..|b....l.k|
|00000780| 25 2b 3d 31 0d 02 76 31 | e7 20 63 6f 64 65 24 3d |%+=1..v1|. code$=|
|00000790| 63 6f 64 65 24 28 6b 25 | 2c 30 29 20 8c 20 61 24 |code$(k%|,0) . a$|
|000007a0| 3d 63 6f 64 65 24 28 6b | 25 2c 31 29 3a 66 6f 75 |=code$(k|%,1):fou|
|000007b0| 6e 64 25 3d b9 0d 02 80 | 18 fd 20 66 6f 75 6e 64 |nd%=....|.. found|
|000007c0| 25 20 84 20 6b 25 3e 3d | 73 69 7a 65 25 0d 02 8a |% . k%>=|size%...|
|000007d0| 07 3d 61 24 0d 02 94 04 | 0d 02 9e 0d dd 20 a4 6d |.=a$....|..... .m|
|000007e0| 65 6d 6f 72 79 0d 02 a8 | 0a de 20 50 25 2d 31 0d |emory...|.. P%-1.|
|000007f0| 02 b2 09 3d 93 2d 50 25 | 0d 02 bc 04 0d 02 c6 0f |...=.-P%|........|
|00000800| dd 20 a4 6e 65 77 44 72 | 69 76 65 0d 02 d0 05 ee |. .newDr|ive.....|
|00000810| 0d 02 da 30 f1 20 8a 30 | 2c 33 29 22 45 6e 74 65 |...0. .0|,3)"Ente|
|00000820| 72 20 6e 75 6d 62 65 72 | 20 6f 66 20 6e 65 77 20 |r number| of new |
|00000830| 62 61 63 6b 2d 75 70 20 | 64 72 69 76 65 3a 20 22 |back-up |drive: "|
|00000840| 0d 02 e4 05 f5 0d 02 ee | 10 f1 20 8a 33 35 2c 33 |........|.. .35,3|
|00000850| 29 22 20 20 22 0d 02 f8 | 14 e8 20 8a 33 35 2c 33 |)"  "...|.. .35,3|
|00000860| 29 22 22 64 72 69 76 65 | 25 0d 03 02 1a fd 20 64 |)""drive|%..... d|
|00000870| 72 69 76 65 25 3e 2d 31 | 20 80 20 64 72 69 76 65 |rive%>-1| . drive|
|00000880| 25 3c 38 0d 03 0c 07 db | 3a 87 0d 03 16 0b 3d 64 |%<8.....|:.....=d|
|00000890| 72 69 76 65 25 0d 03 20 | 04 0d 03 2a 0f dd 20 f2 |rive%.. |...*.. .|
|000008a0| 61 63 74 69 76 69 74 79 | 0d 03 34 38 c8 8e 20 a4 |activity|..48.. .|
|000008b0| 64 69 76 65 72 67 65 28 | 22 41 6c 6c 20 72 65 63 |diverge(|"All rec|
|000008c0| 6f 72 64 73 22 2c 22 55 | 6e 74 61 67 67 65 64 20 |ords","U|ntagged |
|000008d0| 72 65 63 6f 72 64 73 20 | 6f 6e 6c 79 22 29 20 ca |records |only") .|
|000008e0| 0d 03 3e 0d c9 20 30 3a | 74 67 25 3d 30 0d 03 48 |..>.. 0:|tg%=0..H|
|000008f0| 0d c9 20 31 3a 74 67 25 | 3d 31 0d 03 52 09 c9 20 |.. 1:tg%|=1..R.. |
|00000900| 32 3a e1 0d 03 5c 05 cb | 0d 03 66 32 c8 8e 20 a4 |2:...\..|..f2.. .|
|00000910| 64 69 76 65 72 67 65 28 | 22 53 63 72 65 65 6e 20 |diverge(|"Screen |
|00000920| 6f 6e 6c 79 22 2c 22 44 | 75 6d 70 20 74 6f 20 70 |only","D|ump to p|
|00000930| 72 69 6e 74 65 72 22 29 | 20 ca 0d 03 70 0c c9 20 |rinter")| ...p.. |
|00000940| 30 3a 6b 25 3d 30 0d 03 | 7a 0c c9 20 31 3a 6b 25 |0:k%=0..|z.. 1:k%|
|00000950| 3d 31 0d 03 84 09 c9 20 | 32 3a e1 0d 03 8e 05 cb |=1..... |2:......|
|00000960| 0d 03 98 41 74 24 3d 22 | 22 3a e7 20 6b 25 20 8c |...At$="|":. k% .|
|00000970| 20 ee 3a e8 20 86 20 22 | 45 6e 74 65 72 20 74 69 | .:. . "|Enter ti|
|00000980| 74 6c 65 20 66 6f 72 20 | 68 69 73 74 6f 67 72 61 |tle for |histogra|
|00000990| 6d 3a 20 22 74 24 3a 74 | 24 3d c0 74 24 2c 37 39 |m: "t$:t|$=.t$,79|
|000009a0| 29 0d 03 a2 26 f2 77 61 | 69 74 28 22 43 61 6c 63 |)...&.wa|it("Calc|
|000009b0| 75 6c 61 74 69 6e 67 20 | 2d 20 70 6c 65 61 73 65 |ulating |- please|
|000009c0| 20 77 61 69 74 22 29 0d | 03 ac 13 62 25 28 29 3d | wait").|...b%()=|
|000009d0| 30 3a 74 6f 74 61 6c 25 | 3d 30 0d 03 b6 0f e3 20 |0:total%|=0..... |
|000009e0| 69 25 3d 31 20 b8 20 46 | 25 0d 03 c0 11 f2 6d 65 |i%=1 . F|%.....me|
|000009f0| 74 65 72 28 69 25 2c 46 | 25 29 0d 03 ca 0b e7 20 |ter(i%,F|%)..... |
|00000a00| 74 67 25 20 8c 0d 03 d4 | 2f 6d 24 3d 22 22 3a e7 |tg% ....|/m$="":.|
|00000a10| 20 c2 61 24 28 69 25 2c | 31 29 29 3c 3e 22 27 22 | .a$(i%,|1))<>"'"|
|00000a20| 20 8c 20 6d 24 3d c1 61 | 24 28 69 25 2c 30 29 2c | . m$=.a|$(i%,0),|
|00000a30| 34 2c 32 29 0d 03 de 05 | cc 0d 03 e8 15 6d 24 3d |4,2)....|.....m$=|
|00000a40| c1 61 24 28 69 25 2c 30 | 29 2c 34 2c 32 29 0d 03 |.a$(i%,0|),4,2)..|
|00000a50| f2 05 cd 0d 03 fc 10 6d | 6f 6e 74 68 25 3d bb 28 |.......m|onth%=.(|
|00000a60| 6d 24 29 0d 04 06 0f e3 | 20 6a 25 3d 31 20 b8 20 |m$).....| j%=1 . |
|00000a70| 31 32 0d 04 10 1b e7 20 | 6d 6f 6e 74 68 25 3d 6a |12..... |month%=j|
|00000a80| 25 20 8c 20 62 25 28 6a | 25 29 2b 3d 31 0d 04 1a |% . b%(j|%)+=1...|
|00000a90| 0b ed 20 6a 25 2c 69 25 | 0d 04 24 0f e3 20 69 25 |.. j%,i%|..$.. i%|
|00000aa0| 3d 31 20 b8 20 31 32 0d | 04 2e 12 74 6f 74 61 6c |=1 . 12.|...total|
|00000ab0| 25 2b 3d 62 25 28 69 25 | 29 0d 04 38 08 ed 20 69 |%+=b%(i%|)..8.. i|
|00000ac0| 25 0d 04 42 19 6d 61 78 | 25 3d 30 3a 6d 65 61 6e |%..B.max|%=0:mean|
|00000ad0| 3d 74 6f 74 61 6c 25 2f | 31 32 0d 04 4c 0f e3 20 |=total%/|12..L.. |
|00000ae0| 69 25 3d 31 20 b8 20 31 | 32 0d 04 56 1e 68 65 69 |i%=1 . 1|2..V.hei|
|00000af0| 67 68 74 25 3d 62 25 28 | 69 25 29 2f 74 6f 74 61 |ght%=b%(|i%)/tota|
|00000b00| 6c 25 2a 31 30 30 30 0d | 04 60 21 e7 20 68 65 69 |l%*1000.|.`!. hei|
|00000b10| 67 68 74 25 3e 6d 61 78 | 25 20 8c 20 6d 61 78 25 |ght%>max|% . max%|
|00000b20| 3d 68 65 69 67 68 74 25 | 0d 04 6a 08 ed 20 69 25 |=height%|..j.. i%|
|00000b30| 0d 04 74 05 db 0d 04 7e | 12 73 63 61 6c 65 3d 36 |..t....~|.scale=6|
|00000b40| 30 30 2f 6d 61 78 25 0d | 04 88 22 f2 63 65 6e 28 |00/max%.|..".cen(|
|00000b50| 22 52 65 63 6f 72 64 73 | 20 70 65 72 20 6d 6f 6e |"Records| per mon|
|00000b60| 74 68 22 2c 31 30 30 30 | 29 0d 04 92 10 f2 63 65 |th",1000|).....ce|
|00000b70| 6e 28 74 24 2c 39 35 30 | 29 0d 04 9c 1c f2 63 65 |n(t$,950|).....ce|
|00000b80| 6e 28 22 46 69 6c 65 3a | 20 22 2b 66 69 6c 65 24 |n("File:| "+file$|
|00000b90| 2c 39 30 30 29 0d 04 a6 | 15 86 20 31 30 30 2c 32 |,900)...|.. 100,2|
|00000ba0| 30 30 2c 31 30 30 2c 38 | 30 30 0d 04 b0 17 86 20 |00,100,8|00..... |
|00000bb0| 31 31 38 30 2c 32 30 30 | 2c 31 31 38 30 2c 38 30 |1180,200|,1180,80|
|00000bc0| 30 0d 04 ba 0e e3 20 69 | 25 3d 31 20 b8 20 35 0d |0..... i|%=1 . 5.|
|00000bd0| 04 c4 13 ec 20 32 35 2c | 69 25 2a 31 32 30 2b 32 |.... 25,|i%*120+2|
|00000be0| 31 32 0d 04 ce 0b 40 25 | 3d 26 39 30 33 0d 04 d8 |12....@%|=&903...|
|00000bf0| 10 f1 20 69 25 2a 32 30 | 3b 22 20 2d 22 0d 04 e2 |.. i%*20|;" -"...|
|00000c00| 05 ed 0d 04 ec 0b 40 25 | 3d 26 39 30 34 0d 04 f6 |......@%|=&904...|
|00000c10| 0f e3 20 69 25 3d 31 20 | b8 20 31 32 0d 05 00 12 |.. i%=1 |. 12....|
|00000c20| ec 20 69 25 2a 39 30 2b | 33 32 2c 31 37 35 0d 05 |. i%*90+|32,175..|
|00000c30| 0a 10 f1 20 6d 6f 6e 74 | 68 24 28 69 25 29 0d 05 |... mont|h$(i%)..|
|00000c40| 14 12 ec 20 69 25 2a 39 | 30 2b 31 36 2c 31 32 30 |... i%*9|0+16,120|
|00000c50| 0d 05 1e 0c f1 20 62 25 | 28 69 25 29 0d 05 28 1e |..... b%|(i%)..(.|
|00000c60| 68 65 69 67 68 74 25 3d | 62 25 28 69 25 29 2f 74 |height%=|b%(i%)/t|
|00000c70| 6f 74 61 6c 25 2a 31 30 | 30 30 0d 05 32 3c 78 63 |otal%*10|00..2<xc|
|00000c80| 25 3d 28 69 25 2d 31 29 | 2a 39 30 2b 31 30 30 3a |%=(i%-1)|*90+100:|
|00000c90| 79 63 25 3d 32 30 30 3a | 6f 66 66 78 63 25 3d 39 |yc%=200:|offxc%=9|
|00000ca0| 30 3a 6f 66 66 79 63 25 | 3d 68 65 69 67 68 74 25 |0:offyc%|=height%|
|00000cb0| 2a 73 63 61 6c 65 0d 05 | 3c 1c c8 93 20 78 63 25 |*scale..|<... xc%|
|00000cc0| 2c 79 63 25 2c 6f 66 66 | 78 63 25 2c 6f 66 66 79 |,yc%,off|xc%,offy|
|00000cd0| 63 25 0d 05 46 05 ed 0d | 05 50 2e 6d 65 61 6e 32 |c%..F...|.P.mean2|
|00000ce0| 3d 6d 65 61 6e 3a 6d 65 | 61 6e 3d 6d 65 61 6e 2a |=mean:me|an=mean*|
|00000cf0| 31 30 30 30 2f 74 6f 74 | 61 6c 25 2a 73 63 61 6c |1000/tot|al%*scal|
|00000d00| 65 2b 32 30 30 0d 05 5a | 18 86 20 31 30 30 2c 6d |e+200..Z|.. 100,m|
|00000d10| 65 61 6e 2c 31 31 38 30 | 2c 6d 65 61 6e 0d 05 64 |ean,1180|,mean..d|
|00000d20| 1b ec 20 31 31 39 30 2c | 6d 65 61 6e 2b 31 36 3a |.. 1190,|mean+16:|
|00000d30| f1 20 22 6d 65 61 6e 22 | 0d 05 6e 1d ec 20 31 31 |. "mean"|..n.. 11|
|00000d40| 39 30 2c 6d 65 61 6e 2d | 32 30 3a f1 3b a8 28 6d |90,mean-|20:.;.(m|
|00000d50| 65 61 6e 32 29 0d 05 78 | 0a e7 20 6b 25 20 8c 0d |ean2)..x|.. k% ..|
|00000d60| 05 82 0c ff 28 64 75 6d | 70 24 29 0d 05 8c 05 cc |....(dum|p$).....|
|00000d70| 0d 05 96 28 f2 63 65 6e | 28 22 43 6c 69 63 6b 20 |...(.cen|("Click |
|00000d80| 61 6e 79 20 62 75 74 74 | 6f 6e 20 66 6f 72 20 6d |any butt|on for m|
|00000d90| 65 6e 75 22 2c 33 30 29 | 0d 05 a0 0f f2 66 6c 75 |enu",30)|.....flu|
|00000da0| 73 68 4d 6f 75 73 65 0d | 05 aa 05 f5 0d 05 b4 0f |shMouse.|........|
|00000db0| c8 97 20 78 25 2c 79 25 | 2c 7a 25 0d 05 be 08 fd |.. x%,y%|,z%.....|
|00000dc0| 20 7a 25 0d 05 c8 05 cd | 0d 05 d2 05 e1 0d 05 dc | z%.....|........|
|00000dd0| 04 0d 05 e6 0a dd 20 f2 | 61 64 64 0d 05 f0 38 c8 |...... .|add...8.|
|00000de0| 8e 20 a4 64 69 76 65 72 | 67 65 28 22 53 69 6e 67 |. .diver|ge("Sing|
|00000df0| 6c 65 20 73 69 74 65 20 | 26 20 64 61 74 65 22 2c |le site |& date",|
|00000e00| 22 4d 75 6c 74 69 70 6c | 65 20 73 69 74 65 73 22 |"Multipl|e sites"|
|00000e10| 29 20 ca 0d 05 fa 1a c9 | 20 30 3a f2 73 69 6e 67 |) ......| 0:.sing|
|00000e20| 6c 65 53 69 74 65 3a 6e | 65 77 25 3d a3 0d 06 04 |leSite:n|ew%=....|
|00000e30| 1c c9 20 31 3a f2 6d 75 | 6c 74 69 70 6c 65 53 69 |.. 1:.mu|ltipleSi|
|00000e40| 74 65 3a 6e 65 77 25 3d | a3 0d 06 0e 1d c9 20 32 |te:new%=|...... 2|
|00000e50| 3a e7 20 6e 65 77 25 20 | 8c 20 66 69 6c 65 24 3d |:. new% |. file$=|
|00000e60| 22 4e 6f 6e 65 22 0d 06 | 18 05 cb 0d 06 22 05 db |"None"..|....."..|
|00000e70| 0d 06 2c 05 e1 0d 06 36 | 04 0d 06 40 0f dd 20 f2 |..,....6|...@.. .|
|00000e80| 61 6e 61 6c 79 73 69 73 | 0d 06 4a 3a c8 8e 20 a4 |analysis|..J:.. .|
|00000e90| 64 69 76 65 72 67 65 28 | 22 4c 69 73 74 73 20 6f |diverge(|"Lists o|
|00000ea0| 72 20 61 6e 61 6c 79 73 | 69 73 22 2c 22 52 65 63 |r analys|is","Rec|
|00000eb0| 6f 72 64 73 20 70 65 72 | 20 6d 6f 6e 74 68 22 29 |ords per| month")|
|00000ec0| 20 ca 0d 06 54 13 c9 20 | 31 3a f2 61 63 74 69 76 | ...T.. |1:.activ|
|00000ed0| 69 74 79 3a e1 0d 06 5e | 09 c9 20 32 3a e1 0d 06 |ity:...^|.. 2:...|
|00000ee0| 68 05 cb 0d 06 72 3e c8 | 8e 20 a4 64 69 76 65 72 |h....r>.|. .diver|
|00000ef0| 67 65 28 22 4c 69 73 74 | 20 73 70 65 63 69 65 73 |ge("List| species|
|00000f00| 20 6f 72 20 73 69 74 65 | 73 22 2c 22 44 65 74 61 | or site|s","Deta|
|00000f10| 69 6c 65 64 20 61 6e 61 | 6c 79 73 69 73 22 29 20 |iled ana|lysis") |
|00000f20| ca 0d 06 7c 0d c9 20 30 | 3a f2 61 6e 61 31 0d 06 |...|.. 0|:.ana1..|
|00000f30| 86 0d c9 20 31 3a f2 61 | 6e 61 33 0d 06 90 05 cb |... 1:.a|na3.....|
|00000f40| 0d 06 9a 05 e1 0d 06 a4 | 04 0d 06 ae 0b dd 20 f2 |........|...... .|
|00000f50| 61 6e 61 31 0d 06 b8 2e | c8 8e 20 a4 64 69 76 65 |ana1....|.. .dive|
|00000f60| 72 67 65 28 22 4c 69 73 | 74 20 73 70 65 63 69 65 |rge("Lis|t specie|
|00000f70| 73 22 2c 22 4c 69 73 74 | 20 73 69 74 65 73 22 29 |s","List| sites")|
|00000f80| 20 ca 0d 06 c2 15 c9 20 | 30 3a 65 6c 24 3d 22 53 | ...... |0:el$="S|
|00000f90| 70 65 63 69 65 73 22 0d | 06 cc 13 c9 20 31 3a 65 |pecies".|.... 1:e|
|00000fa0| 6c 24 3d 22 53 69 74 65 | 73 22 0d 06 d6 09 c9 20 |l$="Site|s"..... |
|00000fb0| 32 3a e1 0d 06 e0 05 cb | 0d 06 ea 38 c8 8e 20 a4 |2:......|...8.. .|
|00000fc0| 64 69 76 65 72 67 65 28 | 22 41 6c 6c 20 72 65 63 |diverge(|"All rec|
|00000fd0| 6f 72 64 73 22 2c 22 55 | 6e 74 61 67 67 65 64 20 |ords","U|ntagged |
|00000fe0| 72 65 63 6f 72 64 73 20 | 6f 6e 6c 79 22 29 20 ca |records |only") .|
|00000ff0| 0d 06 f4 0c c9 20 30 3a | 6b 25 3d 31 0d 06 fe 0c |..... 0:|k%=1....|
|00001000| c9 20 31 3a 6b 25 3d 30 | 0d 07 08 09 c9 20 32 3a |. 1:k%=0|..... 2:|
|00001010| e1 0d 07 12 05 cb 0d 07 | 1c 3f e7 20 65 6c 24 3d |........|.?. el$=|
|00001020| 22 53 70 65 63 69 65 73 | 22 20 8c 20 f2 61 6e 61 |"Species|" . .ana|
|00001030| 32 28 62 24 28 29 2c 62 | 25 28 29 2c 42 25 29 20 |2(b$(),b|%(),B%) |
|00001040| 8b 20 f2 61 6e 61 32 28 | 63 24 28 29 2c 63 25 28 |. .ana2(|c$(),c%(|
|00001050| 29 2c 43 25 29 0d 07 26 | 05 e1 0d 07 30 04 0d 07 |),C%)..&|....0...|
|00001060| 3a 22 dd 20 f2 61 6e 61 | 32 28 63 6f 64 65 24 28 |:". .ana|2(code$(|
|00001070| 29 2c 63 70 74 72 25 28 | 29 2c 73 69 7a 65 25 29 |),cptr%(|),size%)|
|00001080| 0d 07 44 0a f2 67 65 74 | 4f 70 0d 07 4e 0f e7 20 |..D..get|Op..N.. |
|00001090| 6f 70 25 3d 30 20 8c 20 | e1 0d 07 58 40 74 24 3d |op%=0 . |...X@t$=|
|000010a0| 22 22 3a e7 20 6f 70 25 | 3d 33 20 8c 20 74 24 3d |"":. op%|=3 . t$=|
|000010b0| a4 67 65 74 46 69 6c 65 | 4e 61 6d 65 28 22 45 6e |.getFile|Name("En|
|000010c0| 74 65 72 20 6e 61 6d 65 | 20 66 6f 72 20 74 65 78 |ter name| for tex|
|000010d0| 74 20 66 69 6c 65 3a 22 | 29 0d 07 62 05 db 0d 07 |t file:"|)..b....|
|000010e0| 6c 24 f2 77 61 69 74 28 | 22 53 65 61 72 63 68 69 |l$.wait(|"Searchi|
|000010f0| 6e 67 20 2d 20 70 6c 65 | 61 73 65 20 77 61 69 74 |ng - ple|ase wait|
|00001100| 22 29 0d 07 76 12 63 70 | 74 72 25 28 29 3d 66 61 |")..v.cp|tr%()=fa|
|00001110| 6c 73 65 25 0d 07 80 20 | e3 20 69 25 3d 31 20 b8 |lse%... |. i%=1 .|
|00001120| 20 73 69 7a 65 25 3a 6a | 25 3d 30 3a 66 6f 75 6e | size%:j|%=0:foun|
|00001130| 64 25 3d a3 0d 07 8a 14 | f2 6d 65 74 65 72 28 69 |d%=.....|.meter(i|
|00001140| 25 2c 73 69 7a 65 25 29 | 0d 07 94 0b f5 3a 6a 25 |%,size%)|.....:j%|
|00001150| 2b 3d 31 0d 07 9e 15 e7 | 20 65 6c 24 3d 22 53 70 |+=1.....| el$="Sp|
|00001160| 65 63 69 65 73 22 20 8c | 0d 07 a8 12 63 6f 64 65 |ecies" .|....code|
|00001170| 24 3d 61 24 28 6a 25 2c | 31 29 0d 07 b2 2e e7 20 |$=a$(j%,|1)..... |
|00001180| 63 6f 64 65 24 3d 63 6f | 64 65 24 28 69 25 2c 30 |code$=co|de$(i%,0|
|00001190| 29 20 8c 20 63 70 74 72 | 25 28 69 25 29 3d 31 3a |) . cptr|%(i%)=1:|
|000011a0| 66 6f 75 6e 64 25 3d b9 | 0d 07 bc 37 e7 20 6b 25 |found%=.|...7. k%|
|000011b0| 3a e7 20 63 6f 64 65 24 | 3d 63 6f 64 65 24 28 69 |:. code$|=code$(i|
|000011c0| 25 2c 30 29 2b 22 27 22 | 20 8c 20 63 70 74 72 25 |%,0)+"'"| . cptr%|
|000011d0| 28 69 25 29 3d 31 3a 66 | 6f 75 6e 64 25 3d b9 0d |(i%)=1:f|ound%=..|
|000011e0| 07 c6 05 cc 0d 07 d0 18 | 63 6f 64 65 24 3d 28 c0 |........|code$=(.|
|000011f0| 61 24 28 6a 25 2c 30 29 | 2c 33 29 29 0d 07 da 40 |a$(j%,0)|,3))...@|
|00001200| e7 20 c2 61 24 28 6a 25 | 2c 31 29 29 3c 3e 22 27 |. .a$(j%|,1))<>"'|
|00001210| 22 3a e7 20 63 6f 64 65 | 24 3d 63 6f 64 65 24 28 |":. code|$=code$(|
|00001220| 69 25 2c 30 29 20 8c 20 | 63 70 74 72 25 28 69 25 |i%,0) . |cptr%(i%|
|00001230| 29 3d 31 3a 66 6f 75 6e | 64 25 3d b9 0d 07 e4 33 |)=1:foun|d%=....3|
|00001240| e7 20 6b 25 3a e7 20 63 | 6f 64 65 24 3d 63 6f 64 |. k%:. c|ode$=cod|
|00001250| 65 24 28 69 25 2c 30 29 | 20 8c 20 63 70 74 72 25 |e$(i%,0)| . cptr%|
|00001260| 28 69 25 29 3d 31 3a 66 | 6f 75 6e 64 25 3d b9 0d |(i%)=1:f|ound%=..|
|00001270| 07 ee 05 cd 0d 07 f8 15 | fd 20 6a 25 3e 3d 46 25 |........|. j%>=F%|
|00001280| 20 84 20 66 6f 75 6e 64 | 25 0d 08 02 08 ed 20 69 | . found|%..... i|
|00001290| 25 0d 08 0c 0c f2 6d 6f | 64 65 28 33 29 0d 08 16 |%.....mo|de(3)...|
|000012a0| 0c c8 8e 20 6f 70 25 20 | ca 0d 08 20 0c c9 20 31 |... op% |... .. 1|
|000012b0| 3a ef 20 31 34 0d 08 2a | 14 c9 20 32 3a ef 20 32 |:. 14..*|.. 2:. 2|
|000012c0| 3a f1 20 73 65 74 75 70 | 24 0d 08 34 12 c9 20 33 |:. setup|$..4.. 3|
|000012d0| 3a f2 73 70 6f 6f 6c 54 | 65 78 74 0d 08 3e 05 cb |:.spoolT|ext..>..|
|000012e0| 0d 08 48 33 e7 20 6f 70 | 25 3e 31 20 8c 20 f1 20 |..H3. op|%>1 . . |
|000012f0| 3b 65 6c 24 22 20 70 72 | 65 73 65 6e 74 20 69 6e |;el$" pr|esent in|
|00001300| 20 66 69 6c 65 20 27 22 | 3b 66 69 6c 65 24 3b 22 | file '"|;file$;"|
|00001310| 27 22 3b 0d 08 52 47 e7 | 20 65 6c 24 3d 22 53 70 |'";..RG.| el$="Sp|
|00001320| 65 63 69 65 73 22 20 8c | 20 f2 73 68 6f 77 4c 69 |ecies" .| .showLi|
|00001330| 73 74 28 62 24 28 29 2c | 62 25 28 29 2c 42 25 29 |st(b$(),|b%(),B%)|
|00001340| 20 8b 20 f2 73 68 6f 77 | 4c 69 73 74 28 63 24 28 | . .show|List(c$(|
|00001350| 29 2c 63 25 28 29 2c 43 | 25 29 0d 08 5c 0c f2 63 |),c%(),C|%)..\..c|
|00001360| 6c 6f 73 65 4f 70 0d 08 | 66 05 e1 0d 08 70 04 0d |loseOp..|f....p..|
|00001370| 08 7a 0b dd 20 f2 61 6e | 61 33 0d 08 84 0a f2 67 |.z.. .an|a3.....g|
|00001380| 65 74 4f 70 0d 08 8e 0f | e7 20 6f 70 25 3d 30 20 |etOp....|. op%=0 |
|00001390| 8c 20 e1 0d 08 98 35 e7 | 20 6f 70 25 3e 31 20 8c |. ....5.| op%>1 .|
|000013a0| 20 ee 3a e8 20 86 20 22 | 45 6e 74 65 72 20 74 69 | .:. . "|Enter ti|
|000013b0| 74 6c 65 20 66 6f 72 20 | 74 61 62 6c 65 3a 20 22 |tle for |table: "|
|000013c0| 74 69 74 6c 65 24 3a 87 | 0d 08 a2 3a e7 20 6f 70 |title$:.|...:. op|
|000013d0| 25 3d 33 20 8c 20 74 24 | 3d a4 67 65 74 46 69 6c |%=3 . t$|=.getFil|
|000013e0| 65 4e 61 6d 65 28 22 45 | 6e 74 65 72 20 6e 61 6d |eName("E|nter nam|
|000013f0| 65 20 66 6f 72 20 74 65 | 78 74 20 66 69 6c 65 3a |e for te|xt file:|
|00001400| 22 29 0d 08 ac 2f db 3a | f2 77 61 69 74 28 22 50 |").../.:|.wait("P|
|00001410| 72 6f 63 65 73 73 69 6e | 67 20 72 65 63 6f 72 64 |rocessin|g record|
|00001420| 73 20 2d 20 70 6c 65 61 | 73 65 20 77 61 69 74 22 |s - plea|se wait"|
|00001430| 29 0d 08 b6 29 76 69 73 | 69 74 73 25 3d 30 3a 74 |)...)vis|its%=0:t|
|00001440| 65 6d 70 46 25 3d 30 3a | 76 61 6c 72 65 63 25 3d |empF%=0:|valrec%=|
|00001450| 30 3a 62 64 61 79 73 25 | 3d 30 0d 08 c0 0f e3 20 |0:bdays%|=0..... |
|00001460| 69 25 3d 31 20 b8 20 46 | 25 0d 08 ca 11 f2 6d 65 |i%=1 . F|%.....me|
|00001470| 74 65 72 28 69 25 2c 46 | 25 29 0d 08 d4 0f e3 20 |ter(i%,F|%)..... |
|00001480| 6a 25 3d 31 20 b8 20 43 | 25 0d 08 de 1d e7 20 c0 |j%=1 . C|%..... .|
|00001490| 61 24 28 69 25 2c 30 29 | 2c 33 29 3d 63 24 28 6a |a$(i%,0)|,3)=c$(j|
|000014a0| 25 2c 30 29 20 8c 0d 08 | e8 17 e7 20 c2 61 24 28 |%,0) ...|... .a$(|
|000014b0| 69 25 2c 31 29 29 3c 3e | 22 27 22 20 8c 0d 08 f2 |i%,1))<>|"'" ....|
|000014c0| 34 e7 20 bb 28 61 24 28 | 69 25 2c 32 29 29 3e 30 |4. .(a$(|i%,2))>0|
|000014d0| 20 8c 20 76 61 6c 72 65 | 63 25 2b 3d 31 3a 62 64 | . valre|c%+=1:bd|
|000014e0| 61 79 73 25 2b 3d bb 28 | 61 24 28 69 25 2c 32 29 |ays%+=.(|a$(i%,2)|
|000014f0| 29 0d 08 fc 0d 74 65 6d | 70 46 25 2b 3d 31 0d 09 |)....tem|pF%+=1..|
|00001500| 06 27 e7 20 61 24 28 69 | 25 2c 30 29 3c 3e 61 24 |.'. a$(i|%,0)<>a$|
|00001510| 28 69 25 2b 31 2c 30 29 | 20 8c 20 76 69 73 69 74 |(i%+1,0)| . visit|
|00001520| 73 25 2b 3d 31 0d 09 10 | 05 cd 0d 09 1a 05 cd 0d |s%+=1...|........|
|00001530| 09 24 0b ed 20 6a 25 2c | 69 25 0d 09 2e 0c f2 6d |.$.. j%,|i%.....m|
|00001540| 6f 64 65 28 33 29 0d 09 | 38 1a e7 20 6f 70 25 3d |ode(3)..|8.. op%=|
|00001550| 32 20 8c 20 ef 20 32 3a | f1 20 73 65 74 75 70 24 |2 . . 2:|. setup$|
|00001560| 0d 09 42 18 e7 20 6f 70 | 25 3d 33 20 8c 20 f2 73 |..B.. op|%=3 . .s|
|00001570| 70 6f 6f 6c 54 65 78 74 | 0d 09 4c 0d e7 20 6f 70 |poolText|..L.. op|
|00001580| 25 3e 31 20 8c 0d 09 56 | 33 e7 20 6f 70 25 3d 33 |%>1 ...V|3. op%=3|
|00001590| 20 8c 20 f1 20 74 24 3b | 22 3a 20 41 6e 61 6c 79 | . . t$;|": Analy|
|000015a0| 73 69 73 20 6f 66 20 66 | 69 6c 65 20 27 22 3b 66 |sis of f|ile '";f|
|000015b0| 69 6c 65 24 3b 22 27 22 | 0d 09 60 1c f2 6c 69 6e |ile$;"'"|..`..lin|
|000015c0| 65 31 3a f1 27 3b 74 69 | 74 6c 65 24 27 3a f2 6c |e1:.';ti|tle$':.l|
|000015d0| 69 6e 65 31 0d 09 6a 05 | cd 0d 09 74 12 e7 20 6f |ine1..j.|...t.. o|
|000015e0| 70 25 3d 31 20 8c 20 ef | 20 31 34 0d 09 7e 0b 40 |p%=1 . .| 14..~.@|
|000015f0| 25 3d 26 39 30 41 0d 09 | 88 1f f1 27 22 54 6f 74 |%=&90A..|...'"Tot|
|00001600| 61 6c 20 72 65 63 6f 72 | 64 73 3a 20 22 3b 74 65 |al recor|ds: ";te|
|00001610| 6d 70 46 25 27 0d 09 92 | 25 f1 22 54 6f 74 61 6c |mpF%'...|%."Total|
|00001620| 20 76 61 6c 75 65 20 72 | 65 63 6f 72 64 73 3a 20 | value r|ecords: |
|00001630| 22 3b 76 61 6c 72 65 63 | 25 27 0d 09 9c 42 40 25 |";valrec|%'...B@%|
|00001640| 3d 26 32 30 32 30 41 3a | f1 22 50 65 72 63 65 6e |=&2020A:|."Percen|
|00001650| 74 61 67 65 20 6f 66 20 | 76 61 6c 75 65 20 72 65 |tage of |value re|
|00001660| 63 6f 72 64 73 3a 20 22 | 3b 76 61 6c 72 65 63 25 |cords: "|;valrec%|
|00001670| 2f 74 65 6d 70 46 25 2a | 31 30 30 27 0d 09 a6 28 |/tempF%*|100'...(|
|00001680| 40 25 3d 26 39 30 41 3a | f1 22 54 6f 74 61 6c 20 |@%=&90A:|."Total |
|00001690| 62 69 72 64 2d 64 61 79 | 73 3a 20 22 3b 62 64 61 |bird-day|s: ";bda|
|000016a0| 79 73 25 27 0d 09 b0 33 | 40 25 3d 26 32 30 32 30 |ys%'...3|@%=&2020|
|000016b0| 41 3a f1 22 4d 65 61 6e | 20 72 65 63 6f 72 64 20 |A:."Mean| record |
|000016c0| 73 69 7a 65 3a 20 22 3b | 62 64 61 79 73 25 2f 76 |size: ";|bdays%/v|
|000016d0| 61 6c 72 65 63 25 27 0d | 09 ba 2a 40 25 3d 26 39 |alrec%'.|..*@%=&9|
|000016e0| 30 41 3a f1 22 4e 75 6d | 62 65 72 20 6f 66 20 76 |0A:."Num|ber of v|
|000016f0| 69 73 69 74 73 3a 20 22 | 3b 76 69 73 69 74 73 25 |isits: "|;visits%|
|00001700| 27 0d 09 c4 39 40 25 3d | 26 32 30 32 30 41 3a f1 |'...9@%=|&2020A:.|
|00001710| 22 4d 65 61 6e 20 73 70 | 65 63 69 65 73 20 64 69 |"Mean sp|ecies di|
|00001720| 76 65 72 73 69 74 79 3a | 20 22 3b 74 65 6d 70 46 |versity:| ";tempF|
|00001730| 25 2f 76 69 73 69 74 73 | 25 27 0d 09 ce 0b 40 25 |%/visits|%'....@%|
|00001740| 3d 26 39 30 41 0d 09 d8 | 15 e7 20 6f 70 25 3c 3e |=&90A...|.. op%<>|
|00001750| 31 20 8c 20 f2 6c 69 6e | 65 31 0d 09 e2 3e e7 20 |1 . .lin|e1...>. |
|00001760| 6f 70 25 3d 31 20 8c 20 | f1 27 22 50 72 65 73 73 |op%=1 . |.'"Press|
|00001770| 20 73 70 61 63 65 20 62 | 61 72 20 74 6f 20 63 6f | space b|ar to co|
|00001780| 6e 74 69 6e 75 65 22 3a | f2 6b 65 79 28 22 20 22 |ntinue":|.key(" "|
|00001790| 29 3a ef 31 32 2c 31 34 | 0d 09 ec 3f f1 20 8a 32 |):.12,14|...?. .2|
|000017a0| 38 29 22 54 6f 74 61 6c | 20 20 20 20 20 56 61 6c |8)"Total|     Val|
|000017b0| 75 65 20 20 20 20 42 69 | 72 64 20 20 20 20 4d 65 |ue    Bi|rd    Me|
|000017c0| 61 6e 20 72 65 63 6f 72 | 64 20 20 20 50 65 72 63 |an recor|d   Perc|
|000017d0| 65 6e 74 61 67 65 22 0d | 09 f6 3f f1 20 8a 32 37 |entage".|..?. .27|
|000017e0| 29 22 72 65 63 6f 72 64 | 73 20 20 20 72 65 63 6f |)"record|s   reco|
|000017f0| 72 64 73 20 20 20 64 61 | 79 73 20 20 20 20 20 20 |rds   da|ys      |
|00001800| 20 73 69 7a 65 20 20 20 | 20 20 20 20 20 70 72 65 | size   |     pre|
|00001810| 73 65 6e 63 65 22 0d 0a | 00 3e f1 20 8a 32 39 29 |sence"..|.>. .29)|
|00001820| 22 28 70 65 72 63 65 6e | 74 61 67 65 20 6f 66 20 |"(percen|tage of |
|00001830| 74 6f 74 61 6c 29 20 20 | 20 20 20 7b 76 61 72 69 |total)  |   {vari|
|00001840| 61 6e 63 65 7d 20 2e 2e | 20 7b 73 74 64 20 64 65 |ance} ..| {std de|
|00001850| 76 2e 7d 22 0d 0a 0a 0a | f2 6c 69 6e 65 31 0d 0a |v.}"....|.line1..|
|00001860| 14 1c e7 20 6f 70 25 3d | 31 20 8c 20 ef 20 32 38 |... op%=|1 . . 28|
|00001870| 2c 30 2c 32 34 2c 37 39 | 2c 34 0d 0a 1e 0f e3 20 |,0,24,79|,4..... |
|00001880| 69 25 3d 31 20 b8 20 42 | 25 0d 0a 28 21 56 25 3d |i%=1 . B|%..(!V%=|
|00001890| 30 3a 44 25 3d 30 3a 54 | 25 3d 30 3a 73 69 67 3d |0:D%=0:T|%=0:sig=|
|000018a0| 30 3a 63 6f 75 6e 74 25 | 3d 30 0d 0a 32 16 73 75 |0:count%|=0..2.su|
|000018b0| 6d 64 65 76 73 3d 30 3a | 73 75 6d 73 71 72 3d 30 |mdevs=0:|sumsqr=0|
|000018c0| 0d 0a 3c 16 76 61 72 69 | 61 6e 63 65 3d 30 3a 73 |..<.vari|ance=0:s|
|000018d0| 74 64 65 76 3d 30 0d 0a | 46 18 e3 20 6a 25 3d 31 |tdev=0..|F.. j%=1|
|000018e0| 20 b8 20 46 25 3a 66 6f | 75 6e 64 25 3d a3 0d 0a | . F%:fo|und%=...|
|000018f0| 50 22 e7 20 61 24 28 6a | 25 2c 31 29 3d 62 24 28 |P". a$(j|%,1)=b$(|
|00001900| 69 25 2c 30 29 20 8c 20 | 66 6f 75 6e 64 25 3d b9 |i%,0) . |found%=.|
|00001910| 0d 0a 5a 0e e7 20 66 6f | 75 6e 64 25 20 8c 0d 0a |..Z.. fo|und% ...|
|00001920| 64 1c 54 25 2b 3d 31 3a | 63 6f 75 6e 74 25 3d bb |d.T%+=1:|count%=.|
|00001930| 28 61 24 28 6a 25 2c 32 | 29 29 0d 0a 6e 32 e7 20 |(a$(j%,2|))..n2. |
|00001940| 63 6f 75 6e 74 25 3e 30 | 20 8c 20 56 25 2b 3d 31 |count%>0| . V%+=1|
|00001950| 3a 44 25 2b 3d 63 6f 75 | 6e 74 25 3a 73 75 6d 73 |:D%+=cou|nt%:sums|
|00001960| 71 72 2b 3d 63 6f 75 6e | 74 25 5e 32 0d 0a 78 05 |qr+=coun|t%^2..x.|
|00001970| cd 0d 0a 82 20 e7 20 56 | 25 3e 30 3a e7 20 6a 25 |.... . V|%>0:. j%|
|00001980| 3d 46 25 20 8c 20 73 69 | 67 3d 44 25 5e 32 2f 56 |=F% . si|g=D%^2/V|
|00001990| 25 0d 0a 8c 08 ed 20 6a | 25 0d 0a 96 0c e7 20 54 |%..... j|%..... T|
|000019a0| 25 3e 30 20 8c 0d 0a a0 | 18 f1 20 8a 30 29 20 c0 |%>0 ....|.. .0) .|
|000019b0| 62 24 28 69 25 2c 31 29 | 2c 32 35 29 3b 0d 0a aa |b$(i%,1)|,25);...|
|000019c0| 0e f1 20 8a 32 39 29 3b | 54 25 3b 0d 0a b4 0e f1 |.. .29);|T%;.....|
|000019d0| 20 8a 33 39 29 3b 56 25 | 3b 0d 0a be 0e f1 20 8a | .39);V%|;..... .|
|000019e0| 34 38 29 3b 44 25 3b 0d | 0a c8 0d 40 25 3d 26 32 |48);D%;.|...@%=&2|
|000019f0| 30 32 30 41 0d 0a d2 51 | e7 20 56 25 3e 30 3a 73 |020A...Q|. V%>0:s|
|00001a00| 75 6d 64 65 76 73 3d 73 | 75 6d 73 71 72 2d 73 69 |umdevs=s|umsqr-si|
|00001a10| 67 3a 76 61 72 69 61 6e | 63 65 3d 73 75 6d 64 65 |g:varian|ce=sumde|
|00001a20| 76 73 2f 56 25 3a 73 74 | 64 65 76 3d b6 28 76 61 |vs/V%:st|dev=.(va|
|00001a30| 72 69 61 6e 63 65 29 3a | f1 20 8a 35 38 29 3b 44 |riance):|. .58);D|
|00001a40| 25 2f 56 25 3b 0d 0a dc | 19 f1 20 8a 37 31 29 3b |%/V%;...|.. .71);|
|00001a50| 54 25 2a 31 30 30 2f 76 | 69 73 69 74 73 25 0d 0a |T%*100/v|isits%..|
|00001a60| e6 20 f1 20 8a 32 39 29 | 22 28 22 3b 54 25 2f 74 |. . .29)|"(";T%/t|
|00001a70| 65 6d 70 46 25 2a 31 30 | 30 3b 22 29 22 3b 0d 0a |empF%*10|0;")";..|
|00001a80| f0 0c e7 20 56 25 3e 30 | 20 8c 0d 0a fa 21 f1 20 |... V%>0| ....!. |
|00001a90| 8a 33 39 29 22 28 22 3b | 56 25 2f 76 61 6c 72 65 |.39)"(";|V%/valre|
|00001aa0| 63 25 2a 31 30 30 3b 22 | 29 22 3b 0d 0b 04 20 f1 |c%*100;"|)";... .|
|00001ab0| 20 8a 34 38 29 22 28 22 | 3b 44 25 2f 62 64 61 79 | .48)"("|;D%/bday|
|00001ac0| 73 25 2a 31 30 30 3b 22 | 29 22 3b 0d 0b 0e 1b f1 |s%*100;"|)";.....|
|00001ad0| 20 8a 35 38 29 22 7b 22 | 3b 76 61 72 69 61 6e 63 | .58)"{"|;varianc|
|00001ae0| 65 3b 22 7d 22 3b 0d 0b | 18 18 f1 20 8a 37 31 29 |e;"}";..|... .71)|
|00001af0| 22 7b 22 3b 73 74 64 65 | 76 3b 22 7d 22 3b 0d 0b |"{";stde|v;"}";..|
|00001b00| 22 05 cd 0d 0b 2c 0b 40 | 25 3d 26 39 30 41 0d 0b |"....,.@|%=&90A..|
|00001b10| 36 05 cd 0d 0b 40 08 ed | 20 69 25 0d 0b 4a 15 f1 |6....@..| i%..J..|
|00001b20| 3a f2 6c 69 6e 65 31 3a | f2 63 6c 6f 73 65 4f 70 |:.line1:|.closeOp|
|00001b30| 0d 0b 54 12 e7 20 6f 70 | 25 3d 31 20 8c 20 ef 20 |..T.. op|%=1 . . |
|00001b40| 32 36 0d 0b 5e 05 e1 0d | 0b 68 04 0d 0b 72 0d dd |26..^...|.h...r..|
|00001b50| 20 f2 61 70 70 65 6e 64 | 0d 0b 7c 0c f2 6d 6f 64 | .append|..|..mod|
|00001b60| 65 28 33 29 0d 0b 86 08 | 2a 43 41 54 0d 0b 90 36 |e(3)....|*CAT...6|
|00001b70| 61 66 24 3d a4 67 65 74 | 46 69 6c 65 4e 61 6d 65 |af$=.get|FileName|
|00001b80| 28 22 45 6e 74 65 72 20 | 6e 61 6d 65 20 6f 66 20 |("Enter |name of |
|00001b90| 66 69 6c 65 20 72 65 71 | 75 69 72 65 64 3a 22 29 |file req|uired:")|
|00001ba0| 3a db 0d 0b 9a 20 f2 77 | 61 69 74 28 22 41 70 70 |:.... .w|ait("App|
|00001bb0| 65 6e 64 69 6e 67 20 27 | 22 2b 61 66 24 2b 22 27 |ending '|"+af$+"'|
|00001bc0| 22 29 0d 0b a4 11 70 6f | 69 6e 74 65 72 25 3d 46 |")....po|inter%=F|
|00001bd0| 25 2b 31 0d 0b ae 0c 73 | 69 7a 65 25 3d 46 25 0d |%+1....s|ize%=F%.|
|00001be0| 0b b8 13 61 70 70 66 69 | 6c 65 25 3d 8e 28 61 66 |...appfi|le%=.(af|
|00001bf0| 24 29 0d 0b c2 17 e8 23 | 20 61 70 70 66 69 6c 65 |$).....#| appfile|
|00001c00| 25 2c 61 70 70 65 78 74 | 25 0d 0b cc 5f e7 20 a4 |%,appext|%..._. .|
|00001c10| 6d 65 6d 6f 72 79 2d 28 | 61 70 70 65 78 74 25 2a |memory-(|appext%*|
|00001c20| 32 30 29 3c 31 30 30 30 | 20 8c 20 65 72 72 24 3d |20)<1000| . err$=|
|00001c30| bd 37 2b 22 4e 6f 74 20 | 65 6e 6f 75 67 68 20 6d |.7+"Not |enough m|
|00001c40| 65 6d 6f 72 79 20 74 6f | 20 61 70 70 65 6e 64 20 |emory to| append |
|00001c50| 74 68 69 73 20 66 69 6c | 65 22 3a d9 20 23 61 70 |this fil|e":. #ap|
|00001c60| 70 66 69 6c 65 25 3a e1 | 0d 0b d6 4e e7 20 70 6f |pfile%:.|...N. po|
|00001c70| 69 6e 74 65 72 25 2b 61 | 70 70 65 78 74 25 3e 3d |inter%+a|ppext%>=|
|00001c80| 41 25 20 8c 20 65 72 72 | 24 3d bd 37 2b 22 46 69 |A% . err|$=.7+"Fi|
|00001c90| 6c 65 20 69 73 20 74 6f | 6f 20 62 69 67 20 74 6f |le is to|o big to|
|00001ca0| 20 61 70 70 65 6e 64 22 | 3a d9 20 23 61 70 70 66 | append"|:. #appf|
|00001cb0| 69 6c 65 25 3a e1 0d 0b | e0 26 e3 20 69 25 3d 70 |ile%:...|.&. i%=p|
|00001cc0| 6f 69 6e 74 65 72 25 20 | b8 20 70 6f 69 6e 74 65 |ointer% |. pointe|
|00001cd0| 72 25 2b 61 70 70 65 78 | 74 25 2d 31 0d 0b ea 1c |r%+appex|t%-1....|
|00001ce0| f2 6d 65 74 65 72 28 69 | 25 2c 61 70 70 65 78 74 |.meter(i|%,appext|
|00001cf0| 25 2b 73 69 7a 65 25 29 | 0d 0b f4 0e e3 20 6a 25 |%+size%)|..... j%|
|00001d00| 3d 30 20 b8 20 32 0d 0b | fe 19 e8 23 20 61 70 70 |=0 . 2..|...# app|
|00001d10| 66 69 6c 65 25 2c 61 24 | 28 69 25 2c 6a 25 29 0d |file%,a$|(i%,j%).|
|00001d20| 0c 08 08 ed 20 6a 25 0d | 0c 12 09 46 25 2b 3d 31 |.... j%.|...F%+=1|
|00001d30| 0d 0c 1c 08 ed 20 69 25 | 0d 0c 26 0f d9 23 20 61 |..... i%|..&..# a|
|00001d40| 70 70 66 69 6c 65 25 0d | 0c 30 0f 6d 6f 64 69 66 |ppfile%.|.0.modif|
|00001d50| 69 65 64 25 3d b9 0d 0c | 3a 05 e1 0d 0c 44 04 0d |ied%=...|:....D..|
|00001d60| 0c 4e 11 dd 20 f2 61 75 | 74 6f 53 65 6c 65 63 74 |.N.. .au|toSelect|
|00001d70| 0d 0c 58 1e 73 69 74 65 | 24 3d 22 22 3a 70 73 70 |..X.site|$="":psp|
|00001d80| 24 3d 22 22 3a 74 69 74 | 6c 65 24 3d 22 22 0d 0c |$="":tit|le$=""..|
|00001d90| 62 4f e7 20 6f 70 25 3d | 31 20 8c 20 ef 20 31 34 |bO. op%=|1 . . 14|
|00001da0| 20 8b 20 ee 3a e8 86 27 | 22 45 6e 74 65 72 20 74 | . .:..'|"Enter t|
|00001db0| 69 74 6c 65 20 66 6f 72 | 20 64 6f 63 75 6d 65 6e |itle for| documen|
|00001dc0| 74 3a 20 22 74 69 74 6c | 65 24 3a 74 69 74 6c 65 |t: "titl|e$:title|
|00001dd0| 24 3d c0 74 69 74 6c 65 | 24 2c 37 39 29 0d 0c 6c |$=.title|$,79)..l|
|00001de0| 1a e7 20 6f 70 25 3d 32 | 20 8c 20 ef 20 32 3a f1 |.. op%=2| . . 2:.|
|00001df0| 20 73 65 74 75 70 24 0d | 0c 76 45 e7 20 6f 70 25 | setup$.|.vE. op%|
|00001e00| 3d 33 20 8c 20 74 24 3d | a4 67 65 74 46 69 6c 65 |=3 . t$=|.getFile|
|00001e10| 4e 61 6d 65 28 22 45 6e | 74 65 72 20 6e 61 6d 65 |Name("En|ter name|
|00001e20| 20 66 6f 72 20 74 65 78 | 74 20 66 69 6c 65 3a 22 | for tex|t file:"|
|00001e30| 29 3a f2 73 70 6f 6f 6c | 54 65 78 74 0d 0c 80 0d |):.spool|Text....|
|00001e40| e7 20 6f 70 25 3e 31 20 | 8c 0d 0c 8a 13 f1 22 46 |. op%>1 |......"F|
|00001e50| 69 6c 65 3a 20 22 3b 66 | 69 6c 65 24 0d 0c 94 19 |ile: ";f|ile$....|
|00001e60| e7 20 74 69 74 6c 65 24 | 3c 3e 22 22 f1 20 74 69 |. title$|<>"". ti|
|00001e70| 74 6c 65 24 3b 0d 0c 9e | 05 cd 0d 0c a8 0f e3 20 |tle$;...|....... |
|00001e80| 69 25 3d 31 20 b8 20 42 | 25 0d 0c b2 15 70 73 69 |i%=1 . B|%....psi|
|00001e90| 74 65 24 3d 22 22 3a 70 | 73 70 24 3d 22 22 0d 0c |te$="":p|sp$=""..|
|00001ea0| bc 0f e3 20 6a 25 3d 31 | 20 b8 20 46 25 0d 0c c6 |... j%=1| . F%...|
|00001eb0| 10 f2 70 72 69 6e 74 52 | 65 63 6f 72 64 0d 0c d0 |..printR|ecord...|
|00001ec0| 0b ed 20 6a 25 2c 69 25 | 0d 0c da 0e f1 3a f2 63 |.. j%,i%|.....:.c|
|00001ed0| 6c 6f 73 65 4f 70 0d 0c | e4 05 e1 0d 0c ee 04 0d |loseOp..|........|
|00001ee0| 0c f8 0b dd 20 f2 62 65 | 65 70 0d 0d 02 0e e3 20 |.... .be|ep..... |
|00001ef0| 69 25 3d 30 20 b8 20 38 | 0d 0d 0c 11 d4 20 31 2c |i%=0 . 8|..... 1,|
|00001f00| 2d 31 35 2c 31 39 35 2c | 33 0d 0d 16 0d 64 72 61 |-15,195,|3....dra|
|00001f10| 67 3d a6 28 39 29 0d 0d | 20 08 ed 20 69 25 0d 0d |g=.(9)..| .. i%..|
|00001f20| 2a 05 e1 0d 0d 34 04 0d | 0d 3e 14 dd 20 f2 63 65 |*....4..|.>.. .ce|
|00001f30| 6e 28 63 65 6e 24 2c 79 | 63 25 29 0d 0d 48 17 78 |n(cen$,y|c%)..H.x|
|00001f40| 63 25 3d 36 34 30 2d 28 | a9 28 63 65 6e 24 29 2a |c%=640-(|.(cen$)*|
|00001f50| 38 29 0d 0d 52 14 ec 20 | 78 63 25 2c 79 63 25 3a |8)..R.. |xc%,yc%:|
|00001f60| f1 20 63 65 6e 24 0d 0d | 5c 05 e1 0d 0d 66 04 0d |. cen$..|\....f..|
|00001f70| 0d 70 15 dd 20 f2 63 65 | 6e 32 28 63 65 6e 24 2c |.p.. .ce|n2(cen$,|
|00001f80| 79 63 25 29 0d 0d 7a 20 | 6c 65 6e 25 3d a9 28 63 |yc%)..z |len%=.(c|
|00001f90| 65 6e 24 29 20 81 20 32 | 3a 78 63 25 3d 34 30 2d |en$) . 2|:xc%=40-|
|00001fa0| 6c 65 6e 25 0d 0d 84 14 | f1 20 8a 78 63 25 2c 79 |len%....|. .xc%,y|
|00001fb0| 63 25 29 3b 63 65 6e 24 | 0d 0d 8e 05 e1 0d 0d 98 |c%);cen$|........|
|00001fc0| 04 0d 0d a2 10 dd 20 f2 | 63 68 6f 70 43 6f 75 6e |...... .|chopCoun|
|00001fd0| 74 0d 0d ac 1f e7 20 61 | 24 28 46 25 2c 32 29 3d |t..... a|$(F%,2)=|
|00001fe0| 22 22 8c 20 61 24 28 46 | 25 2c 32 29 3d 22 50 22 |"". a$(F|%,2)="P"|
|00001ff0| 0d 0d b6 16 e7 20 a9 28 | 61 24 28 46 25 2c 32 29 |..... .(|a$(F%,2)|
|00002000| 29 3e 35 35 20 8c 0d 0d | c0 1a 61 24 28 46 25 2c |)>55 ...|..a$(F%,|
|00002010| 32 29 3d c0 61 24 28 46 | 25 2c 32 29 2c 35 35 29 |2)=.a$(F|%,2),55)|
|00002020| 0d 0d ca 15 f1 20 22 54 | 52 55 4e 43 41 54 45 44 |..... "T|RUNCATED|
|00002030| 22 3b bd 20 37 0d 0d d4 | 05 cd 0d 0d de 05 e1 0d |";. 7...|........|
|00002040| 0d e8 04 0d 0d f2 0e dd | 20 f2 63 6c 6f 73 65 4f |........| .closeO|
|00002050| 70 0d 0d fc 0c c8 8e 20 | 6f 70 25 20 ca 0d 0e 06 |p...... |op% ....|
|00002060| 2e c9 20 31 3a f1 27 22 | 50 72 65 73 73 20 3c 4d |.. 1:.'"|Press <M|
|00002070| 3e 20 66 6f 72 20 6d 65 | 6e 75 22 3a f2 6b 65 79 |> for me|nu":.key|
|00002080| 28 22 4d 6d 22 29 3a ef | 20 31 35 0d 0e 10 0b c9 |("Mm"):.| 15.....|
|00002090| 20 32 3a ef 20 33 0d 0e | 1a 0e c9 20 33 3a 2a 53 | 2:. 3..|... 3:*S|
|000020a0| 50 4f 4f 4c 0d 0e 24 0a | 2a 46 58 33 2c 30 0d 0e |POOL..$.|*FX3,0..|
|000020b0| 2e 05 cb 0d 0e 38 05 e1 | 0d 0e 42 04 0d 0e 4c 0d |.....8..|..B...L.|
|000020c0| dd 20 f2 64 65 6c 65 74 | 65 0d 0e 56 40 c8 8e 20 |. .delet|e..V@.. |
|000020d0| a4 64 69 76 65 72 67 65 | 28 22 44 65 6c 65 74 65 |.diverge|("Delete|
|000020e0| 20 6f 6e 65 20 72 65 63 | 6f 72 64 22 2c 22 44 65 | one rec|ord","De|
|000020f0| 6c 65 74 65 20 72 61 6e | 67 65 20 6f 66 20 72 65 |lete ran|ge of re|
|00002100| 63 6f 72 64 73 22 29 20 | ca 0d 0e 60 18 c9 20 30 |cords") |...`.. 0|
|00002110| 3a f2 64 65 6c 65 74 65 | 4f 6e 65 52 65 63 6f 72 |:.delete|OneRecor|
|00002120| 64 0d 0e 6a 14 c9 20 31 | 3a f2 64 65 6c 65 74 65 |d..j.. 1|:.delete|
|00002130| 52 61 6e 67 65 0d 0e 74 | 05 cb 0d 0e 7e 05 e1 0d |Range..t|....~...|
|00002140| 0e 88 04 0d 0e 92 16 dd | 20 f2 64 65 6c 65 74 65 |........| .delete|
|00002150| 4f 6e 65 52 65 63 6f 72 | 64 0d 0e 9c 05 ee 0d 0e |OneRecor|d.......|
|00002160| a6 05 f5 0d 0e b0 1e e8 | 22 44 65 6c 65 74 65 20 |........|"Delete |
|00002170| 77 68 69 63 68 20 72 65 | 63 6f 72 64 3f 20 22 72 |which re|cord? "r|
|00002180| 25 0d 0e ba 13 fd 20 72 | 25 3e 30 20 80 20 72 25 |%..... r|%>0 . r%|
|00002190| 3c 3d 46 25 0d 0e c4 2a | 87 3a f1 27 22 41 72 65 |<=F%...*|.:.'"Are|
|000021a0| 20 79 6f 75 20 73 75 72 | 65 3f 20 28 59 2f 4e 29 | you sur|e? (Y/N)|
|000021b0| 22 3a f2 6b 65 79 28 22 | 59 79 4e 6e 22 29 0d 0e |":.key("|YyNn")..|
|000021c0| ce 15 e7 20 a7 22 4e 6e | 22 2c 6b 65 79 24 29 20 |... ."Nn|",key$) |
|000021d0| 8c 20 e1 0d 0e d8 0d c8 | 95 20 72 25 3c 3d 46 25 |. ......|. r%<=F%|
|000021e0| 0d 0e e2 29 e3 20 69 25 | 3d 30 20 b8 20 32 3a 61 |...). i%|=0 . 2:a|
|000021f0| 24 28 72 25 2c 69 25 29 | 3d 61 24 28 72 25 2b 31 |$(r%,i%)|=a$(r%+1|
|00002200| 2c 69 25 29 3a ed 20 69 | 25 0d 0e ec 09 72 25 2b |,i%):. i|%....r%+|
|00002210| 3d 31 0d 0e f6 05 ce 0d | 0f 00 09 46 25 2d 3d 31 |=1......|...F%-=1|
|00002220| 0d 0f 0a 0f 6d 6f 64 69 | 66 69 65 64 25 3d b9 0d |....modi|fied%=..|
|00002230| 0f 14 05 e1 0d 0f 1e 04 | 0d 0f 28 2b dd 20 f2 64 |........|..(+. .d|
|00002240| 65 6c 65 74 65 42 79 43 | 6c 61 73 73 28 63 6f 64 |eleteByC|lass(cod|
|00002250| 65 24 28 29 2c 63 70 74 | 72 25 28 29 2c 73 69 7a |e$(),cpt|r%(),siz|
|00002260| 65 25 29 0d 0f 32 0c f2 | 6d 6f 64 65 28 33 29 0d |e%)..2..|mode(3).|
|00002270| 0f 3c 18 c8 97 20 c8 93 | 20 33 36 39 2c 35 30 2c |.<... ..| 369,50,|
|00002280| 35 36 30 2c 39 34 35 0d | 0f 46 15 c8 97 20 ee 3a |560,945.|.F... .:|
|00002290| c8 97 20 b8 20 38 31 30 | 2c 39 35 30 0d 0f 50 2f |.. . 810|,950..P/|
|000022a0| 63 70 74 72 25 28 29 3d | 74 72 75 65 25 3a 63 68 |cptr%()=|true%:ch|
|000022b0| 61 6e 67 65 64 25 3d 30 | 3a 66 69 6e 69 73 68 65 |anged%=0|:finishe|
|000022c0| 64 25 3d a3 3a 74 6f 70 | 25 3d 31 0d 0f 5a 05 f5 |d%=.:top|%=1..Z..|
|000022d0| 0d 0f 64 0d ef 20 33 31 | 2c 32 33 2c 30 0d 0f 6e |..d.. 31|,23,0..n|
|000022e0| 12 f2 72 56 28 6c 69 6d | 69 74 62 61 72 24 29 0d |..rV(lim|itbar$).|
|000022f0| 0f 78 15 e7 20 74 6f 70 | 25 3c 31 20 8c 20 74 6f |.x.. top|%<1 . to|
|00002300| 70 25 3d 31 0d 0f 82 13 | 62 6f 74 74 6f 6d 25 3d |p%=1....|bottom%=|
|00002310| 74 6f 70 25 2b 32 32 0d | 0f 8c 23 e7 20 62 6f 74 |top%+22.|..#. bot|
|00002320| 74 6f 6d 25 3e 73 69 7a | 65 25 20 8c 20 62 6f 74 |tom%>siz|e% . bot|
|00002330| 74 6f 6d 25 3d 73 69 7a | 65 25 0d 0f 96 17 e3 20 |tom%=siz|e%..... |
|00002340| 69 25 3d 74 6f 70 25 20 | b8 20 62 6f 74 74 6f 6d |i%=top% |. bottom|
|00002350| 25 0d 0f a0 24 e7 20 63 | 70 74 72 25 28 69 25 29 |%...$. c|ptr%(i%)|
|00002360| 3d 31 20 8c 20 6b 24 3d | bd 31 33 30 20 8b 20 6b |=1 . k$=|.130 . k|
|00002370| 24 3d 22 20 22 0d 0f aa | 21 f1 20 8a 32 39 29 3b |$=" "...|!. .29);|
|00002380| 6b 24 3b 22 20 22 8a 33 | 31 29 3b 63 6f 64 65 24 |k$;" ".3|1);code$|
|00002390| 28 69 25 2c 31 29 0d 0f | b4 08 ed 20 69 25 0d 0f |(i%,1)..|... i%..|
|000023a0| be 05 f5 0d 0f c8 0f f2 | 66 6c 75 73 68 4d 6f 75 |........|flushMou|
|000023b0| 73 65 0d 0f d2 0f c8 97 | 20 78 25 2c 79 25 2c 7a |se......| x%,y%,z|
|000023c0| 25 0d 0f dc 08 fd 20 7a | 25 0d 0f e6 0f e7 20 79 |%..... z|%..... y|
|000023d0| 25 3e 3d 39 36 37 20 8c | 0d 0f f0 05 db 0d 0f fa |%>=967 .|........|
|000023e0| 1c e7 20 78 25 3c 34 35 | 37 20 8c 20 63 70 74 72 |.. x%<45|7 . cptr|
|000023f0| 25 28 29 3d 74 72 75 65 | 25 0d 10 04 21 e7 20 78 |%()=true|%...!. x|
|00002400| 25 3e 3d 34 35 37 20 80 | 20 78 25 3c 35 35 32 20 |%>=457 .| x%<552 |
|00002410| 8c 20 74 6f 70 25 2d 3d | 32 32 0d 10 0e 24 e7 20 |. top%-=|22...$. |
|00002420| 78 25 3e 3d 35 35 32 20 | 80 20 78 25 3c 37 32 39 |x%>=552 |. x%<729|
|00002430| 20 8c 20 66 69 6e 69 73 | 68 65 64 25 3d b9 0d 10 | . finis|hed%=...|
|00002440| 18 21 e7 20 78 25 3e 3d | 37 32 39 20 80 20 78 25 |.!. x%>=|729 . x%|
|00002450| 3c 38 32 34 20 8c 20 74 | 6f 70 25 2b 3d 32 32 0d |<824 . t|op%+=22.|
|00002460| 10 22 1e e7 20 78 25 3e | 3d 38 32 34 20 8c 20 63 |.".. x%>|=824 . c|
|00002470| 70 74 72 25 28 29 3d 66 | 61 6c 73 65 25 0d 10 2c |ptr%()=f|alse%..,|
|00002480| 23 e7 20 74 6f 70 25 3e | 73 69 7a 65 25 2d 32 32 |#. top%>|size%-22|
|00002490| 20 8c 20 74 6f 70 25 3d | 73 69 7a 65 25 2d 32 32 | . top%=|size%-22|
|000024a0| 0d 10 36 05 cc 0d 10 40 | 0e 63 68 61 6e 67 65 64 |..6....@|.changed|
|000024b0| 25 3d 31 0d 10 4a 1d 6a | 25 3d 74 6f 70 25 2d 31 |%=1..J.j|%=top%-1|
|000024c0| 2b a8 28 28 31 30 30 30 | 2d 79 25 29 2f 34 30 29 |+.((1000|-y%)/40)|
|000024d0| 0d 10 54 2d e7 20 63 70 | 74 72 25 28 6a 25 29 3d |..T-. cp|tr%(j%)=|
|000024e0| 31 20 8c 20 63 70 74 72 | 25 28 6a 25 29 3d 30 3a |1 . cptr|%(j%)=0:|
|000024f0| 8b 20 63 70 74 72 25 28 | 6a 25 29 3d 31 0d 10 5e |. cptr%(|j%)=1..^|
|00002500| 19 e7 20 6a 25 3e 73 69 | 7a 65 25 20 8c 20 6a 25 |.. j%>si|ze% . j%|
|00002510| 3d 73 69 7a 65 25 0d 10 | 68 05 cd 0d 10 72 0f fd |=size%..|h....r..|
|00002520| 20 66 69 6e 69 73 68 65 | 64 25 0d 10 7c 13 f2 73 | finishe|d%..|..s|
|00002530| 75 62 66 69 6c 65 28 73 | 69 7a 65 25 29 0d 10 86 |ubfile(s|ize%)...|
|00002540| 0f 6d 6f 64 69 66 69 65 | 64 25 3d b9 0d 10 90 09 |.modifie|d%=.....|
|00002550| f2 62 65 65 70 0d 10 9a | 05 e1 0d 10 a4 04 0d 10 |.beep...|........|
|00002560| ae 16 dd 20 f2 64 65 6c | 65 74 65 42 79 4e 75 6d |... .del|eteByNum|
|00002570| 62 65 72 73 0d 10 b8 05 | ee 0d 10 c2 05 f5 0d 10 |bers....|........|
|00002580| cc 26 e8 22 44 65 6c 65 | 74 65 20 66 72 6f 6d 20 |.&."Dele|te from |
|00002590| 72 65 63 6f 72 64 20 6e | 75 6d 62 65 72 3a 20 22 |record n|umber: "|
|000025a0| 74 6f 70 25 0d 10 d6 18 | fd 20 74 6f 70 25 3e 30 |top%....|. top%>0|
|000025b0| 20 80 20 74 6f 70 25 3c | 46 25 2d 31 0d 10 e0 05 | . top%<|F%-1....|
|000025c0| f5 0d 10 ea 26 e8 20 89 | 36 22 75 70 20 74 6f 20 |....&. .|6"up to |
|000025d0| 61 6e 64 20 69 6e 63 6c | 75 64 69 6e 67 3a 20 22 |and incl|uding: "|
|000025e0| 62 6f 74 74 6f 6d 25 0d | 10 f4 20 fd 20 62 6f 74 |bottom%.|.. . bot|
|000025f0| 74 6f 6d 25 3e 74 6f 70 | 25 20 80 20 62 6f 74 74 |tom%>top|% . bott|
|00002600| 6f 6d 25 3c 3d 46 25 0d | 10 fe 2a 87 3a f1 27 22 |om%<=F%.|..*.:.'"|
|00002610| 41 72 65 20 79 6f 75 20 | 73 75 72 65 3f 20 28 59 |Are you |sure? (Y|
|00002620| 2f 4e 29 22 3a f2 6b 65 | 79 28 22 59 79 4e 6e 22 |/N)":.ke|y("YyNn"|
|00002630| 29 0d 11 08 15 e7 20 a7 | 22 4e 6e 22 2c 6b 65 79 |)..... .|"Nn",key|
|00002640| 24 29 20 8c 20 e1 0d 11 | 12 15 6b 25 3d 62 6f 74 |$) . ...|..k%=bot|
|00002650| 74 6f 6d 25 2d 74 6f 70 | 25 2b 31 0d 11 1c 17 e3 |tom%-top|%+1.....|
|00002660| 20 69 25 3d 62 6f 74 74 | 6f 6d 25 2b 31 20 b8 20 | i%=bott|om%+1 . |
|00002670| 46 25 0d 11 26 0e e3 20 | 6a 25 3d 30 20 b8 20 32 |F%..&.. |j%=0 . 2|
|00002680| 0d 11 30 1a 61 24 28 69 | 25 2d 6b 25 2c 6a 25 29 |..0.a$(i|%-k%,j%)|
|00002690| 3d 61 24 28 69 25 2c 6a | 25 29 0d 11 3a 0b ed 20 |=a$(i%,j|%)..:.. |
|000026a0| 6a 25 2c 69 25 0d 11 44 | 0a 46 25 2d 3d 6b 25 0d |j%,i%..D|.F%-=k%.|
|000026b0| 11 4e 0f 6d 6f 64 69 66 | 69 65 64 25 3d b9 0d 11 |.N.modif|ied%=...|
|000026c0| 58 05 e1 0d 11 62 04 0d | 11 6c 12 dd 20 f2 64 65 |X....b..|.l.. .de|
|000026d0| 6c 65 74 65 52 61 6e 67 | 65 0d 11 76 47 c8 8e 20 |leteRang|e..vG.. |
|000026e0| a4 64 69 76 65 72 67 65 | 28 22 44 65 6c 65 74 65 |.diverge|("Delete|
|000026f0| 20 62 79 20 72 65 63 6f | 72 64 20 6e 75 6d 62 65 | by reco|rd numbe|
|00002700| 72 73 22 2c 22 44 65 6c | 65 74 65 20 73 70 65 63 |rs","Del|ete spec|
|00002710| 69 65 73 20 6f 72 20 73 | 69 74 65 73 22 29 20 ca |ies or s|ites") .|
|00002720| 0d 11 80 18 c9 20 30 3a | f2 64 65 6c 65 74 65 42 |..... 0:|.deleteB|
|00002730| 79 4e 75 6d 62 65 72 73 | 0d 11 8a 36 c9 20 31 3a |yNumbers|...6. 1:|
|00002740| c8 8e 20 a4 64 69 76 65 | 72 67 65 28 22 44 65 6c |.. .dive|rge("Del|
|00002750| 65 74 65 20 73 70 65 63 | 69 65 73 22 2c 22 44 65 |ete spec|ies","De|
|00002760| 6c 65 74 65 20 73 69 74 | 65 73 22 29 20 ca 0d 11 |lete sit|es") ...|
|00002770| 94 24 c9 20 30 3a f2 64 | 65 6c 65 74 65 42 79 43 |.$. 0:.d|eleteByC|
|00002780| 6c 61 73 73 28 62 24 28 | 29 2c 62 25 28 29 2c 42 |lass(b$(|),b%(),B|
|00002790| 25 29 0d 11 9e 24 c9 20 | 31 3a f2 64 65 6c 65 74 |%)...$. |1:.delet|
|000027a0| 65 42 79 43 6c 61 73 73 | 28 63 24 28 29 2c 63 25 |eByClass|(c$(),c%|
|000027b0| 28 29 2c 43 25 29 0d 11 | a8 05 cb 0d 11 b2 05 cb |(),C%)..|........|
|000027c0| 0d 11 bc 05 e1 0d 11 c6 | 04 0d 11 d0 14 dd 20 f2 |........|...... .|
|000027d0| 64 69 73 70 6c 61 79 4d | 61 6e 75 61 6c 0d 11 da |displayM|anual...|
|000027e0| 11 f2 66 6f 72 6d 61 74 | 52 65 63 6f 72 64 0d 11 |..format|Record..|
|000027f0| e4 1d f2 66 69 6e 64 53 | 69 74 65 3a 73 69 74 65 |...findS|ite:site|
|00002800| 24 3d 73 69 74 65 6e 61 | 6d 65 24 0d 11 ee 23 f1 |$=sitena|me$...#.|
|00002810| 20 73 69 74 65 24 3b 22 | 20 22 3b 72 65 63 24 3b | site$;"| ";rec$;|
|00002820| 66 6d 74 24 3b 64 24 3b | 22 2f 22 3b 6d 24 0d 11 |fmt$;d$;|"/";m$..|
|00002830| f8 05 e1 0d 12 02 04 0d | 12 0c 0d dd 20 f2 65 64 |........|.... .ed|
|00002840| 69 74 6f 72 0d 12 16 19 | c8 97 20 c8 93 20 32 38 |itor....|.. .. 28|
|00002850| 30 2c 33 32 35 2c 37 32 | 30 2c 34 30 30 0d 12 20 |0,325,72|0,400.. |
|00002860| 15 c8 97 20 ee 3a c8 97 | 20 b8 20 38 33 33 2c 37 |... .:..| . 833,7|
|00002870| 30 30 0d 12 2a 05 f5 0d | 12 34 16 c8 93 20 32 38 |00..*...|.4... 28|
|00002880| 30 2c 33 32 35 2c 37 32 | 30 2c 34 30 30 0d 12 3e |0,325,72|0,400..>|
|00002890| 18 e3 20 69 25 3d 34 32 | 35 20 b8 20 36 32 35 20 |.. i%=42|5 . 625 |
|000028a0| 88 20 31 30 30 0d 12 48 | 14 86 20 32 38 30 2c 69 |. 100..H|.. 280,i|
|000028b0| 25 2c 31 30 30 30 2c 69 | 25 0d 12 52 08 ed 20 69 |%,1000,i|%..R.. i|
|000028c0| 25 0d 12 5c 20 f2 63 65 | 6e 28 22 4d 6f 64 69 66 |%..\ .ce|n("Modif|
|000028d0| 79 20 72 65 63 6f 72 64 | 28 73 29 22 2c 36 38 38 |y record|(s)",688|
|000028e0| 29 0d 12 66 20 f2 63 65 | 6e 28 22 44 65 6c 65 74 |)..f .ce|n("Delet|
|000028f0| 65 20 72 65 63 6f 72 64 | 28 73 29 22 2c 35 38 38 |e record|(s)",588|
|00002900| 29 0d 12 70 23 f2 63 65 | 6e 28 22 41 70 70 65 6e |)..p#.ce|n("Appen|
|00002910| 64 20 61 6e 6f 74 68 65 | 72 20 66 69 6c 65 22 2c |d anothe|r file",|
|00002920| 34 38 38 29 0d 12 7a 1e | f2 63 65 6e 28 22 52 65 |488)..z.|.cen("Re|
|00002930| 74 75 72 6e 20 74 6f 20 | 6d 65 6e 75 22 2c 33 38 |turn to |menu",38|
|00002940| 38 29 0d 12 84 05 f5 0d | 12 8e 0f f2 66 6c 75 73 |8)......|....flus|
|00002950| 68 4d 6f 75 73 65 0d 12 | 98 0f c8 97 20 78 25 2c |hMouse..|.... x%,|
|00002960| 79 25 2c 7a 25 0d 12 a2 | 08 fd 20 7a 25 0d 12 ac |y%,z%...|.. z%...|
|00002970| 05 db 0d 12 b6 0a c8 8e | 20 b9 20 ca 0d 12 c0 12 |........| . .....|
|00002980| c9 20 79 25 3e 36 32 35 | 3a 6f 70 25 3d 31 0d 12 |. y%>625|:op%=1..|
|00002990| ca 12 c9 20 79 25 3e 35 | 32 35 3a 6f 70 25 3d 32 |... y%>5|25:op%=2|
|000029a0| 0d 12 d4 12 c9 20 79 25 | 3e 34 32 35 3a 6f 70 25 |..... y%|>425:op%|
|000029b0| 3d 33 0d 12 de 07 7f 20 | e1 0d 12 e8 05 cb 0d 12 |=3..... |........|
|000029c0| f2 21 ee 20 6f 70 25 20 | f2 6d 6f 64 69 66 79 2c |.!. op% |.modify,|
|000029d0| f2 64 65 6c 65 74 65 2c | f2 61 70 70 65 6e 64 0d |.delete,|.append.|
|000029e0| 12 fc 05 e1 0d 13 06 04 | 0d 13 10 0c dd 20 f2 65 |........|..... .e|
|000029f0| 72 72 6f 72 0d 13 1a 0a | 2a 46 58 33 2c 30 0d 13 |rror....|*FX3,0..|
|00002a00| 24 0a 2a 43 4c 4f 53 45 | 0d 13 2e 07 ef 20 33 0d |$.*CLOSE|..... 3.|
|00002a10| 13 38 2b e7 20 9f 3d 31 | 37 20 8c 20 65 72 72 24 |.8+. .=1|7 . err$|
|00002a20| 3d 22 22 20 8b 20 65 72 | 72 24 3d bd 37 2b 22 45 |="" . er|r$=.7+"E|
|00002a30| 72 72 6f 72 3a 20 22 2b | f6 24 0d 13 42 0b 40 25 |rror: "+|.$..B.@%|
|00002a40| 3d 26 39 30 41 0d 13 4c | 05 e1 0d 13 56 04 0d 13 |=&90A..L|....V...|
|00002a50| 60 0f dd 20 f2 66 69 6e | 64 53 69 74 65 0d 13 6a |`.. .fin|dSite..j|
|00002a60| 10 73 69 74 65 6e 61 6d | 65 24 3d 22 22 0d 13 74 |.sitenam|e$=""..t|
|00002a70| 15 6b 25 3d 30 3a 73 69 | 74 65 66 6f 75 6e 64 25 |.k%=0:si|tefound%|
|00002a80| 3d a3 0d 13 7e 05 f5 0d | 13 88 09 6b 25 2b 3d 31 |=...~...|...k%+=1|
|00002a90| 0d 13 92 48 e7 20 73 69 | 74 65 24 3d 63 24 28 6b |...H. si|te$=c$(k|
|00002aa0| 25 2c 30 29 20 8c 20 73 | 69 74 65 6e 61 6d 65 24 |%,0) . s|itename$|
|00002ab0| 3d 63 24 28 6b 25 2c 31 | 29 3a 73 69 74 65 66 6f |=c$(k%,1|):sitefo|
|00002ac0| 75 6e 64 25 3d b9 3a 8b | 20 73 69 74 65 6e 61 6d |und%=.:.| sitenam|
|00002ad0| 65 24 3d 73 69 74 65 24 | 0d 13 9c 19 fd 20 73 69 |e$=site$|..... si|
|00002ae0| 74 65 66 6f 75 6e 64 25 | 20 84 20 6b 25 3e 3d 43 |tefound%| . k%>=C|
|00002af0| 25 0d 13 a6 05 e1 0d 13 | b0 04 0d 13 ba 12 dd 20 |%.......|....... |
|00002b00| f2 66 69 6e 64 53 70 65 | 63 69 65 73 0d 13 c4 1a |.findSpe|cies....|
|00002b10| 6b 25 3d 30 3a 66 6f 75 | 6e 64 25 3d a3 3a 63 6f |k%=0:fou|nd%=.:co|
|00002b20| 64 65 24 3d 22 22 0d 13 | ce 05 f5 0d 13 d8 09 6b |de$=""..|.......k|
|00002b30| 25 2b 3d 31 0d 13 e2 31 | e7 20 73 70 65 63 69 65 |%+=1...1|. specie|
|00002b40| 73 24 3d 62 24 28 6b 25 | 2c 31 29 20 8c 20 63 6f |s$=b$(k%|,1) . co|
|00002b50| 64 65 24 3d 62 24 28 6b | 25 2c 30 29 3a 66 6f 75 |de$=b$(k|%,0):fou|
|00002b60| 6e 64 25 3d b9 0d 13 ec | 15 fd 20 66 6f 75 6e 64 |nd%=....|.. found|
|00002b70| 25 20 84 20 6b 25 3e 3d | 42 25 0d 13 f6 05 e1 0d |% . k%>=|B%......|
|00002b80| 14 00 04 0d 14 0a 0d dd | 20 f2 66 69 6e 69 73 68 |........| .finish|
|00002b90| 0d 14 14 20 ef 20 32 32 | 2c 30 2c 35 2c 31 39 2c |... . 22|,0,5,19,|
|00002ba0| 30 2c 32 34 2c 32 35 35 | 2c 32 35 35 2c 32 35 35 |0,24,255|,255,255|
|00002bb0| 0d 14 1e 1d 69 25 3d 30 | 3a 6a 25 3d 30 3a 6b 25 |....i%=0|:j%=0:k%|
|00002bc0| 3d 31 32 38 30 3a 6c 25 | 3d 31 30 32 34 0d 14 28 |=1280:l%|=1024..(|
|00002bd0| 0d c8 95 20 69 25 3c 31 | 32 30 0d 14 32 1f 69 25 |... i%<1|20..2.i%|
|00002be0| 2b 3d 31 30 3a 6a 25 2b | 3d 31 32 3a 6b 25 2d 3d |+=10:j%+|=12:k%-=|
|00002bf0| 32 30 3a 6c 25 2d 3d 32 | 34 0d 14 3c 12 c8 93 20 |20:l%-=2|4..<... |
|00002c00| 69 25 2c 6a 25 2c 6b 25 | 2c 6c 25 0d 14 46 05 ce |i%,j%,k%|,l%..F..|
|00002c10| 0d 14 50 15 f2 63 65 6e | 28 74 69 74 6c 65 61 24 |..P..cen|(titlea$|
|00002c20| 2c 38 32 30 29 0d 14 5a | 15 f2 63 65 6e 28 74 69 |,820)..Z|..cen(ti|
|00002c30| 74 6c 65 62 24 2c 37 38 | 38 29 0d 14 64 1c f2 63 |tleb$,78|8)..d..c|
|00002c40| 65 6e 28 22 56 65 72 73 | 69 6f 6e 20 32 2e 30 30 |en("Vers|ion 2.00|
|00002c50| 22 2c 37 33 36 29 0d 14 | 6e 24 f2 63 65 6e 28 22 |",736)..|n$.cen("|
|00002c60| a9 20 4a 2e 20 52 2e 20 | 42 61 72 6e 65 73 2c 20 |. J. R. |Barnes, |
|00002c70| 31 39 38 38 22 2c 36 35 | 30 29 0d 14 78 36 f2 63 |1988",65|0)..x6.c|
|00002c80| 65 6e 28 22 54 68 69 73 | 20 73 6f 66 74 77 61 72 |en("This| softwar|
|00002c90| 65 20 69 73 20 69 6e 20 | 74 68 65 20 70 75 62 6c |e is in |the publ|
|00002ca0| 69 63 20 64 6f 6d 61 69 | 6e 2e 22 2c 35 37 30 29 |ic domai|n.",570)|
|00002cb0| 0d 14 82 2a f2 63 65 6e | 28 22 49 20 68 6f 70 65 |...*.cen|("I hope|
|00002cc0| 20 79 6f 75 20 66 69 6e | 64 20 69 74 20 75 73 65 | you fin|d it use|
|00002cd0| 66 75 6c 2e 22 2c 35 33 | 30 29 0d 14 8c 3c f2 63 |ful.",53|0)...<.c|
|00002ce0| 65 6e 28 22 46 65 65 6c | 20 66 72 65 65 20 74 6f |en("Feel| free to|
|00002cf0| 20 70 61 73 73 20 63 6f | 70 69 65 73 20 6f 6e 20 | pass co|pies on |
|00002d00| 74 6f 20 79 6f 75 72 20 | 66 72 69 65 6e 64 73 2e |to your |friends.|
|00002d10| 22 2c 34 39 30 29 0d 14 | 96 3f f2 63 65 6e 28 22 |",490)..|.?.cen("|
|00002d20| 49 66 20 79 6f 75 20 77 | 6f 75 6c 64 20 6c 69 6b |If you w|ould lik|
|00002d30| 65 20 74 6f 20 6d 61 6b | 65 20 61 20 63 68 61 72 |e to mak|e a char|
|00002d40| 69 74 61 62 6c 65 20 64 | 6f 6e 61 74 69 6f 6e 22 |itable d|onation"|
|00002d50| 2c 34 35 30 29 0d 14 a0 | 3e f2 63 65 6e 28 22 69 |,450)...|>.cen("i|
|00002d60| 6e 20 6c 69 65 75 20 6f | 66 20 70 61 79 6d 65 6e |n lieu o|f paymen|
|00002d70| 74 2c 20 70 6c 65 61 73 | 65 20 73 65 6e 64 20 a3 |t, pleas|e send .|
|00002d80| 35 20 6f 72 20 6d 6f 72 | 65 20 74 6f 3a 22 2c 34 |5 or mor|e to:",4|
|00002d90| 31 30 29 0d 14 aa 1a f2 | 63 65 6e 28 22 47 72 65 |10).....|cen("Gre|
|00002da0| 65 6e 70 65 61 63 65 22 | 2c 33 34 30 29 0d 14 b4 |enpeace"|,340)...|
|00002db0| 25 f2 63 65 6e 28 22 33 | 30 2d 33 31 20 49 73 6c |%.cen("3|0-31 Isl|
|00002dc0| 69 6e 67 74 6f 6e 20 47 | 72 65 65 6e 22 2c 33 30 |ington G|reen",30|
|00002dd0| 35 29 0d 14 be 16 f2 63 | 65 6e 28 22 4c 6f 6e 64 |5).....c|en("Lond|
|00002de0| 6f 6e 22 2c 32 37 30 29 | 0d 14 c8 16 f2 63 65 6e |on",270)|.....cen|
|00002df0| 28 22 4e 31 20 38 42 52 | 22 2c 32 32 35 29 0d 14 |("N1 8BR|",225)..|
|00002e00| d2 22 f2 66 6c 75 73 68 | 4d 6f 75 73 65 3a f5 3a |.".flush|Mouse:.:|
|00002e10| c8 97 20 78 25 2c 79 25 | 2c 7a 25 3a fd 20 7a 25 |.. x%,y%|,z%:. z%|
|00002e20| 0d 14 dc 0b 64 6f 6e 65 | 25 3d b9 0d 14 e6 13 ef |....done|%=......|
|00002e30| 20 32 32 2c 73 74 61 72 | 74 6d 6f 64 65 25 0d 14 | 22,star|tmode%..|
|00002e40| f0 0a c8 97 20 88 20 31 | 0d 14 fa 0d 2a 46 58 32 |.... . 1|....*FX2|
|00002e50| 30 32 2c 33 32 0d 15 04 | 0e c8 99 20 36 36 20 b8 |02,32...|... 66 .|
|00002e60| 20 69 25 0d 15 0e 10 6a | 25 3d 28 69 25 2d 6d 74 | i%....j|%=(i%-mt|
|00002e70| 74 25 29 0d 15 18 0f 73 | 65 63 73 3d 6a 25 2f 31 |t%)....s|ecs=j%/1|
|00002e80| 30 30 0d 15 22 13 6d 69 | 6e 73 25 3d 73 65 63 73 |00..".mi|ns%=secs|
|00002e90| 20 81 20 36 30 0d 15 2c | 17 73 65 63 73 25 3d 73 | . 60..,|.secs%=s|
|00002ea0| 65 63 73 2d 6d 69 6e 73 | 25 2a 36 30 0d 15 36 1e |ecs-mins|%*60..6.|
|00002eb0| 6d 69 6e 24 3d 22 22 3a | e7 20 6d 69 6e 73 25 3e |min$="":|. mins%>|
|00002ec0| 31 20 6d 69 6e 24 3d 22 | 73 22 0d 15 40 24 f1 22 |1 min$="|s"..@$."|
|00002ed0| 46 69 6e 69 73 68 65 64 | 20 77 69 74 68 20 42 69 |Finished| with Bi|
|00002ee0| 72 64 6c 6f 67 20 61 66 | 74 65 72 20 22 3b 0d 15 |rdlog af|ter ";..|
|00002ef0| 4a 29 e7 20 6d 69 6e 73 | 25 3e 30 20 f1 3b 6d 69 |J). mins|%>0 .;mi|
|00002f00| 6e 73 25 3b 22 20 6d 69 | 6e 75 74 65 22 6d 69 6e |ns%;" mi|nute"min|
|00002f10| 24 3b 22 2c 20 22 3b 0d | 15 54 16 f1 3b 73 65 63 |$;", ";.|.T..;sec|
|00002f20| 73 25 3b 22 20 73 65 63 | 6f 6e 64 73 22 0d 15 5e |s%;" sec|onds"..^|
|00002f30| 25 e7 20 64 65 73 6b 74 | 6f 70 25 20 8c 20 64 72 |%. deskt|op% . dr|
|00002f40| 61 67 3d a6 28 33 30 30 | 29 3a 2a 44 45 53 4b 54 |ag=.(300|):*DESKT|
|00002f50| 4f 50 0d 15 68 05 e1 0d | 15 72 04 0d 15 7c 11 dd |OP..h...|.r...|..|
|00002f60| 20 f2 66 6c 75 73 68 4d | 6f 75 73 65 0d 15 86 05 | .flushM|ouse....|
|00002f70| f5 0d 15 90 0f c8 97 20 | 78 25 2c 79 25 2c 7a 25 |....... |x%,y%,z%|
|00002f80| 0d 15 9a 0a fd 20 7a 25 | 3d 30 0d 15 a4 0b 2a 46 |..... z%|=0....*F|
|00002f90| 58 32 31 2c 39 0d 15 ae | 05 e1 0d 15 b8 04 0d 15 |X21,9...|........|
|00002fa0| c2 13 dd 20 f2 66 6f 72 | 6d 61 74 52 65 63 6f 72 |... .for|matRecor|
|00002fb0| 64 0d 15 cc 10 73 70 24 | 3d 61 24 28 6a 25 2c 31 |d....sp$|=a$(j%,1|
|00002fc0| 29 0d 15 d6 26 e7 20 c2 | 73 70 24 2c 31 29 3d 22 |)...&. .|sp$,1)="|
|00002fd0| 27 22 20 8c 20 73 70 24 | 3d c0 73 70 24 2c a9 28 |'" . sp$|=.sp$,.(|
|00002fe0| 73 70 24 29 2d 31 29 0d | 15 e0 16 73 69 74 65 24 |sp$)-1).|...site$|
|00002ff0| 3d c0 61 24 28 6a 25 2c | 30 29 2c 33 29 0d 15 ea |=.a$(j%,|0),3)...|
|00003000| 16 64 61 74 65 24 3d c2 | 61 24 28 6a 25 2c 30 29 |.date$=.|a$(j%,0)|
|00003010| 2c 34 29 0d 15 f4 29 64 | 24 3d c2 64 61 74 65 24 |,4)...)d|$=.date$|
|00003020| 2c 32 29 3a e7 20 c0 64 | 24 2c 31 29 3d 22 30 22 |,2):. .d|$,1)="0"|
|00003030| 20 8c 20 64 24 3d c2 64 | 24 2c 31 29 0d 15 fe 29 | . d$=.d|$,1)...)|
|00003040| 6d 24 3d c0 64 61 74 65 | 24 2c 32 29 3a e7 20 c0 |m$=.date|$,2):. .|
|00003050| 6d 24 2c 31 29 3d 22 30 | 22 20 8c 20 6d 24 3d c2 |m$,1)="0|" . m$=.|
|00003060| 6d 24 2c 31 29 0d 16 08 | 11 72 65 63 24 3d 61 24 |m$,1)...|.rec$=a$|
|00003070| 28 6a 25 2c 32 29 0d 16 | 12 0f 6b 24 3d c2 72 65 |(j%,2)..|..k$=.re|
|00003080| 63 24 2c 31 29 0d 16 1c | 21 e7 20 6b 24 3d 22 2b |c$,1)...|!. k$="+|
|00003090| 22 20 8c 20 66 6d 74 24 | 3d 22 22 20 8b 20 66 6d |" . fmt$|="" . fm|
|000030a0| 74 24 3d 22 20 22 0d 16 | 26 3c e7 20 6b 24 3d 22 |t$=" "..|&<. k$="|
|000030b0| 63 22 20 84 20 6b 24 3d | 22 23 22 20 8c 20 72 65 |c" . k$=|"#" . re|
|000030c0| 63 24 3d c0 72 65 63 24 | 2c a9 28 72 65 63 24 29 |c$=.rec$|,.(rec$)|
|000030d0| 2d 31 29 3a 72 65 63 24 | 3d 22 63 2e 22 2b 72 65 |-1):rec$|="c."+re|
|000030e0| 63 24 0d 16 30 14 61 73 | 63 25 3d 97 28 c2 72 65 |c$..0.as|c%=.(.re|
|000030f0| 63 24 2c 31 29 29 0d 16 | 3a 22 e7 20 61 73 63 25 |c$,1))..|:". asc%|
|00003100| 3e 34 37 20 80 20 61 73 | 63 25 3c 35 38 20 8c 20 |>47 . as|c%<58 . |
|00003110| 66 6d 74 24 3d 22 2d 22 | 0d 16 44 19 e7 20 72 65 |fmt$="-"|..D.. re|
|00003120| 63 24 3d 22 50 22 20 8c | 20 66 6d 74 24 3d 22 2d |c$="P" .| fmt$="-|
|00003130| 22 0d 16 4e 05 e1 0d 16 | 58 04 0d 16 62 0e dd 20 |"..N....|X...b.. |
|00003140| f2 67 65 74 4e 61 6d 65 | 0d 16 6c 11 66 6f 75 6e |.getName|..l.foun|
|00003150| 64 25 3d a3 3a 69 25 3d | 30 0d 16 76 0b f5 3a 69 |d%=.:i%=|0..v..:i|
|00003160| 25 2b 3d 31 0d 16 80 2a | e7 20 73 70 24 3d 62 24 |%+=1...*|. sp$=b$|
|00003170| 28 69 25 2c 30 29 20 8c | 20 73 70 24 3d 62 24 28 |(i%,0) .| sp$=b$(|
|00003180| 69 25 2c 31 29 3a 66 6f | 75 6e 64 25 3d b9 0d 16 |i%,1):fo|und%=...|
|00003190| 8a 14 fd 20 66 6f 75 6e | 64 25 20 84 20 69 25 3d |... foun|d% . i%=|
|000031a0| 42 25 0d 16 94 05 e1 0d | 16 9e 04 0d 16 a8 0c dd |B%......|........|
|000031b0| 20 f2 67 65 74 4f 70 0d | 16 b2 09 6f 70 25 3d 30 | .getOp.|...op%=0|
|000031c0| 0d 16 bc 30 c8 8e 20 a4 | 64 69 76 65 72 67 65 28 |...0.. .|diverge(|
|000031d0| 22 53 63 72 65 65 6e 20 | 6f 6e 6c 79 22 2c 22 52 |"Screen |only","R|
|000031e0| 65 74 61 69 6e 20 6f 75 | 74 70 75 74 22 29 20 ca |etain ou|tput") .|
|000031f0| 0d 16 c6 0d c9 20 30 3a | 6f 70 25 3d 31 0d 16 d0 |..... 0:|op%=1...|
|00003200| 0d c9 20 31 3a 6f 70 25 | 3d 32 0d 16 da 05 cb 0d |.. 1:op%|=2......|
|00003210| 16 e4 0d e7 20 6f 70 25 | 3d 32 20 8c 0d 16 ee 40 |.... op%|=2 ....@|
|00003220| c8 8e 20 a4 64 69 76 65 | 72 67 65 28 22 53 65 6e |.. .dive|rge("Sen|
|00003230| 64 20 73 74 72 61 69 67 | 68 74 20 74 6f 20 70 72 |d straig|ht to pr|
|00003240| 69 6e 74 65 72 22 2c 22 | 43 72 65 61 74 65 20 74 |inter","|Create t|
|00003250| 65 78 74 20 66 69 6c 65 | 22 29 20 ca 0d 16 f8 0d |ext file|") .....|
|00003260| c9 20 30 3a 6f 70 25 3d | 32 0d 17 02 0d c9 20 31 |. 0:op%=|2..... 1|
|00003270| 3a 6f 70 25 3d 33 0d 17 | 0c 05 cb 0d 17 16 05 cd |:op%=3..|........|
|00003280| 0d 17 20 05 e1 0d 17 2a | 04 0d 17 34 15 dd 20 f2 |.. ....*|...4.. .|
|00003290| 67 65 74 53 69 74 65 41 | 6e 64 44 61 74 65 0d 17 |getSiteA|ndDate..|
|000032a0| 3e 09 f5 3a db 3a ee 0d | 17 48 05 f5 0d 17 52 23 |>..:.:..|.H....R#|
|000032b0| e8 27 22 53 69 74 65 20 | 63 6f 64 65 3f 20 28 65 |.'"Site |code? (e|
|000032c0| 2e 67 2e 20 41 42 43 29 | 20 22 73 69 74 65 24 0d |.g. ABC)| "site$.|
|000032d0| 17 5c 10 fd 20 a9 28 73 | 69 74 65 24 29 3d 33 0d |.\.. .(s|ite$)=3.|
|000032e0| 17 66 05 f5 0d 17 70 1a | e8 27 22 44 61 74 65 3f |.f....p.|.'"Date?|
|000032f0| 20 28 6d 6d 64 64 29 20 | 22 64 61 74 65 24 0d 17 | (mmdd) |"date$..|
|00003300| 7a 2c e7 20 64 61 74 65 | 24 3d 22 22 20 8c 20 64 |z,. date|$="" . d|
|00003310| 61 74 65 24 3d 74 6f 64 | 61 79 24 3a f1 8a 31 34 |ate$=tod|ay$:..14|
|00003320| 2c bc 2d 31 29 64 61 74 | 65 24 0d 17 84 10 fd 20 |,.-1)dat|e$..... |
|00003330| a9 28 64 61 74 65 24 29 | 3d 34 0d 17 8e 05 87 0d |.(date$)|=4......|
|00003340| 17 98 36 f1 27 27 22 50 | 6c 65 61 73 65 20 63 68 |..6.''"P|lease ch|
|00003350| 65 63 6b 20 74 68 61 74 | 20 74 68 69 73 20 69 6e |eck that| this in|
|00003360| 66 6f 72 6d 61 74 69 6f | 6e 20 69 73 20 63 6f 72 |formatio|n is cor|
|00003370| 72 65 63 74 22 0d 17 a2 | 2f f1 27 22 50 72 65 73 |rect"...|/.'"Pres|
|00003380| 73 20 3c 43 3e 20 74 6f | 20 63 6f 6e 74 69 6e 75 |s <C> to| continu|
|00003390| 65 20 6f 72 20 3c 52 3e | 20 74 6f 20 72 65 70 65 |e or <R>| to repe|
|000033a0| 61 74 22 27 0d 17 ac 10 | f2 6b 65 79 28 22 43 63 |at"'....|.key("Cc|
|000033b0| 52 72 22 29 0d 17 b6 11 | fd 20 a7 22 43 63 22 2c |Rr")....|. ."Cc",|
|000033c0| 6b 65 79 24 29 0d 17 c0 | 05 e1 0d 17 ca 04 0d 17 |key$)...|........|
|000033d0| d4 10 dd 20 f2 69 6e 64 | 65 78 4d 65 6e 75 0d 17 |... .ind|exMenu..|
|000033e0| de 19 c8 97 20 c8 93 20 | 32 38 30 2c 32 31 32 2c |.... .. |280,212,|
|000033f0| 37 32 30 2c 36 30 30 0d | 17 e8 15 c8 97 20 ee 3a |720,600.|..... .:|
|00003400| c8 97 20 b8 20 38 33 33 | 2c 37 38 30 0d 17 f2 1b |.. . 833|,780....|
|00003410| 6f 70 25 3d 31 3a 6f 70 | 24 3d 22 73 63 72 65 65 |op%=1:op|$="scree|
|00003420| 6e 20 6f 6e 6c 79 22 0d | 17 fc 05 f5 0d 18 06 16 |n only".|........|
|00003430| c8 93 20 32 38 30 2c 32 | 31 32 2c 37 32 30 2c 36 |.. 280,2|12,720,6|
|00003440| 30 30 0d 18 10 18 e3 20 | 69 25 3d 33 31 32 20 b8 |00..... |i%=312 .|
|00003450| 20 37 31 32 20 88 20 31 | 30 30 0d 18 1a 14 86 20 | 712 . 1|00..... |
|00003460| 32 38 30 2c 69 25 2c 31 | 30 30 30 2c 69 25 0d 18 |280,i%,1|000,i%..|
|00003470| 24 08 ed 20 69 25 0d 18 | 2e 30 e7 20 61 75 74 6f |$.. i%..|.0. auto|
|00003480| 25 20 8c 20 61 75 74 6f | 24 3d 22 41 75 74 6f 6d |% . auto|$="Autom|
|00003490| 61 74 69 63 22 20 8b 20 | 61 75 74 6f 24 3d 22 4d |atic" . |auto$="M|
|000034a0| 61 6e 75 61 6c 22 0d 18 | 38 1f e7 20 73 6f 72 74 |anual"..|8.. sort|
|000034b0| 25 20 8c 20 6b 24 3d bd | 31 33 30 20 8b 20 6b 24 |% . k$=.|130 . k$|
|000034c0| 3d bd 32 31 35 0d 18 42 | 3c e7 20 70 72 65 73 65 |=.215..B|<. prese|
|000034d0| 6e 63 65 25 20 8c 20 70 | 24 3d 22 61 6c 6c 20 72 |nce% . p|$="all r|
|000034e0| 65 63 6f 72 64 73 22 20 | 8b 20 70 24 3d 22 76 61 |ecords" |. p$="va|
|000034f0| 6c 75 65 20 72 65 63 6f | 72 64 73 20 6f 6e 6c 79 |lue reco|rds only|
|00003500| 22 0d 18 4c 18 f2 63 65 | 6e 28 22 43 6f 6e 74 69 |"..L..ce|n("Conti|
|00003510| 6e 75 65 22 2c 37 37 35 | 29 0d 18 56 13 f2 63 65 |nue",775|)..V..ce|
|00003520| 6e 28 61 75 74 6f 24 2c | 36 37 35 29 0d 18 60 36 |n(auto$,|675)..`6|
|00003530| f2 63 65 6e 28 22 53 6f | 72 74 20 74 68 65 20 72 |.cen("So|rt the r|
|00003540| 65 63 6f 72 64 73 20 62 | 79 20 73 69 74 65 20 61 |ecords b|y site a|
|00003550| 6e 64 20 64 61 74 65 3f | 20 22 2b 6b 24 2c 35 37 |nd date?| "+k$,57|
|00003560| 35 29 0d 18 6a 18 f2 63 | 65 6e 28 22 53 68 6f 77 |5)..j..c|en("Show|
|00003570| 20 22 2b 70 24 2c 34 37 | 35 29 0d 18 74 23 f2 63 | "+p$,47|5)..t#.c|
|00003580| 65 6e 28 22 53 65 6e 64 | 20 6f 75 74 70 75 74 20 |en("Send| output |
|00003590| 74 6f 20 22 2b 6f 70 24 | 2c 33 37 35 29 0d 18 7e |to "+op$|,375)..~|
|000035a0| 1e f2 63 65 6e 28 22 52 | 65 74 75 72 6e 20 74 6f |..cen("R|eturn to|
|000035b0| 20 6d 65 6e 75 22 2c 32 | 37 35 29 0d 18 88 05 f5 | menu",2|75).....|
|000035c0| 0d 18 92 0f f2 66 6c 75 | 73 68 4d 6f 75 73 65 0d |.....flu|shMouse.|
|000035d0| 18 9c 0f c8 97 20 78 25 | 2c 79 25 2c 7a 25 0d 18 |..... x%|,y%,z%..|
|000035e0| a6 08 fd 20 7a 25 0d 18 | b0 05 db 0d 18 ba 26 e7 |... z%..|......&.|
|000035f0| 20 79 25 3e 36 31 32 20 | 80 20 79 25 3c 3d 37 31 | y%>612 |. y%<=71|
|00003600| 32 20 8c 20 61 75 74 6f | 25 3d ac 20 61 75 74 6f |2 . auto|%=. auto|
|00003610| 25 0d 18 c4 26 e7 20 79 | 25 3e 35 31 32 20 80 20 |%...&. y|%>512 . |
|00003620| 79 25 3c 3d 36 31 32 20 | 8c 20 73 6f 72 74 25 3d |y%<=612 |. sort%=|
|00003630| ac 20 73 6f 72 74 25 0d | 18 ce 2e e7 20 79 25 3e |. sort%.|.... y%>|
|00003640| 34 31 32 20 80 20 79 25 | 3c 3d 35 31 32 20 8c 20 |412 . y%|<=512 . |
|00003650| 70 72 65 73 65 6e 63 65 | 25 3d ac 20 70 72 65 73 |presence|%=. pres|
|00003660| 65 6e 63 65 25 0d 18 d8 | 1f e7 20 79 25 3e 33 31 |ence%...|.. y%>31|
|00003670| 32 20 80 20 79 25 3c 3d | 34 31 32 20 8c 20 6f 70 |2 . y%<=|412 . op|
|00003680| 25 2b 3d 31 0d 18 e2 10 | e7 20 79 25 3c 33 31 32 |%+=1....|. y%<312|
|00003690| 20 8c 20 e1 0d 18 ec 0d | e7 20 61 75 74 6f 25 20 | . .....|. auto% |
|000036a0| 8c 0d 18 f6 14 e7 20 6f | 70 25 3e 33 20 8c 20 6f |...... o|p%>3 . o|
|000036b0| 70 25 2d 3d 33 0d 19 00 | 05 cc 0d 19 0a 14 e7 20 |p%-=3...|....... |
|000036c0| 6f 70 25 3e 32 20 8c 20 | 6f 70 25 2d 3d 32 0d 19 |op%>2 . |op%-=2..|
|000036d0| 14 05 cd 0d 19 1e 0c c8 | 8e 20 6f 70 25 20 ca 0d |........|. op% ..|
|000036e0| 19 28 24 c9 20 31 3a 6f | 70 24 3d 22 73 63 72 65 |.($. 1:o|p$="scre|
|000036f0| 65 6e 20 6f 6e 6c 79 22 | 3a 70 72 69 6e 74 65 72 |en only"|:printer|
|00003700| 25 3d 33 0d 19 32 20 c9 | 20 32 3a 6f 70 24 3d 22 |%=3..2 .| 2:op$="|
|00003710| 70 72 69 6e 74 65 72 22 | 3a 70 72 69 6e 74 65 72 |printer"|:printer|
|00003720| 25 3d 32 0d 19 3c 17 c9 | 20 33 3a 6f 70 24 3d 22 |%=2..<..| 3:op$="|
|00003730| 74 65 78 74 2d 66 69 6c | 65 22 0d 19 46 05 cb 0d |text-fil|e"..F...|
|00003740| 19 50 0c fd 20 79 25 3e | 37 31 32 0d 19 5a 08 c8 |.P.. y%>|712..Z..|
|00003750| 97 20 87 0d 19 64 1f e7 | 20 73 6f 72 74 65 64 25 |. ...d..| sorted%|
|00003760| 3d a3 20 80 20 73 6f 72 | 74 25 20 8c 20 f2 73 6f |=. . sor|t% . .so|
|00003770| 72 74 0d 19 6e 0c f2 6d | 6f 64 65 28 33 29 0d 19 |rt..n..m|ode(3)..|
|00003780| 78 29 e7 20 61 75 74 6f | 25 20 8c 20 f2 61 75 74 |x). auto|% . .aut|
|00003790| 6f 53 65 6c 65 63 74 20 | 8b 20 f2 6d 61 6e 75 61 |oSelect |. .manua|
|000037a0| 6c 53 65 6c 65 63 74 0d | 19 82 05 cd 0d 19 8c 05 |lSelect.|........|
|000037b0| e1 0d 19 96 04 0d 19 a0 | 11 dd 20 f2 69 6e 69 74 |........|.. .init|
|000037c0| 69 61 6c 69 7a 65 0d 19 | aa 0b f4 20 55 76 61 72 |ialize..|... Uvar|
|000037d0| 73 0d 19 b4 4c 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |s...L***|********|
|000037e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 19 be |********|*****...|
|00003820| 04 0d 19 c8 29 f4 20 20 | 20 20 20 20 20 20 20 20 |....).  |        |
|00003830| 20 20 20 20 54 68 65 73 | 65 20 76 61 72 69 61 62 |    Thes|e variab|
|00003840| 6c 65 73 20 6d 61 79 20 | 62 65 0d 19 d2 2d f4 20 |les may |be...-. |
|00003850| 20 20 20 20 20 20 20 20 | 63 68 61 6e 67 65 64 20 |        |changed |
|00003860| 61 73 20 72 65 71 75 69 | 72 65 64 20 62 79 20 74 |as requi|red by t|
|00003870| 68 65 20 75 73 65 72 0d | 19 dc 04 0d 19 e6 30 f4 |he user.|......0.|
|00003880| 20 20 20 20 20 20 50 6c | 65 61 73 65 20 63 6f 6e |      Pl|ease con|
|00003890| 73 75 6c 74 20 55 73 65 | 72 20 47 75 69 64 65 20 |sult Use|r Guide |
|000038a0| 66 6f 72 20 64 65 74 61 | 69 6c 73 0d 19 f0 04 0d |for deta|ils.....|
|000038b0| 19 fa 29 20 20 20 20 20 | 41 25 3d 31 30 30 30 30 |..)     |A%=10000|
|000038c0| 20 3a 20 f4 20 6d 61 78 | 2e 20 72 65 63 6f 72 64 | : . max|. record|
|000038d0| 20 68 6f 6c 64 69 6e 67 | 0d 1a 04 27 20 20 20 20 | holding|...'    |
|000038e0| 20 61 75 74 6f 25 3d a3 | 20 3a 20 f4 20 64 65 66 | auto%=.| : . def|
|000038f0| 61 75 6c 74 20 69 6e 64 | 65 78 20 6d 6f 64 65 0d |ault ind|ex mode.|
|00003900| 1a 0e 2e 20 20 20 20 20 | 61 75 74 6f 62 61 63 6b |...     |autoback|
|00003910| 75 70 25 3d b9 20 3a 20 | f4 20 62 61 63 6b 75 70 |up%=. : |. backup|
|00003920| 20 77 68 65 6e 20 73 61 | 76 69 6e 67 3f 0d 1a 18 | when sa|ving?...|
|00003930| 30 20 20 20 20 20 62 61 | 63 6b 75 70 64 72 69 76 |0     ba|ckupdriv|
|00003940| 65 25 3d 30 20 3a 20 f4 | 20 64 65 66 69 6e 65 73 |e%=0 : .| defines|
|00003950| 20 62 61 63 6b 75 70 20 | 64 72 69 76 65 0d 1a 22 | backup |drive.."|
|00003960| 33 20 20 20 20 20 63 6f | 64 65 66 69 6c 65 24 3d |3     co|defile$=|
|00003970| 22 53 74 61 6e 64 61 72 | 64 22 20 3a 20 f4 20 64 |"Standar|d" : . d|
|00003980| 65 66 61 75 6c 74 20 63 | 6f 64 65 20 66 69 6c 65 |efault c|ode file|
|00003990| 0d 1a 2c 38 20 20 20 20 | 20 63 75 72 72 65 6e 74 |..,8    | current|
|000039a0| 24 3d 22 53 61 6d 70 6c | 65 22 20 3a 20 f4 20 6e |$="Sampl|e" : . n|
|000039b0| 61 6d 65 20 6f 66 20 63 | 75 72 72 65 6e 74 20 64 |ame of c|urrent d|
|000039c0| 61 74 61 20 66 69 6c 65 | 0d 1a 36 33 20 20 20 20 |ata file|..63    |
|000039d0| 20 64 65 73 6b 74 6f 70 | 25 3d a3 20 3a 20 f4 20 | desktop|%=. : . |
|000039e0| 73 75 6d 6d 6f 6e 20 64 | 65 73 6b 74 6f 70 20 6f |summon d|esktop o|
|000039f0| 6e 20 71 75 69 74 74 69 | 6e 67 3f 0d 1a 40 32 20 |n quitti|ng?..@2 |
|00003a00| 20 20 20 20 64 75 6d 70 | 24 3d 22 48 61 72 64 43 |    dump|$="HardC|
|00003a10| 6f 70 79 4d 58 22 20 3a | 20 f4 20 64 65 66 69 6e |opyMX" :| . defin|
|00003a20| 65 20 73 63 72 65 65 6e | 2d 64 75 6d 70 0d 1a 4a |e screen|-dump..J|
|00003a30| 33 20 20 20 20 20 68 65 | 61 64 65 72 24 3d 22 22 |3     he|ader$=""|
|00003a40| 20 3a 20 f4 20 64 65 66 | 69 6e 65 20 68 65 61 64 | : . def|ine head|
|00003a50| 65 72 20 63 6f 6e 74 65 | 6e 74 73 20 68 65 72 65 |er conte|nts here|
|00003a60| 0d 1a 54 2d 20 20 20 20 | 20 6c 6f 61 64 63 6f 64 |..T-    | loadcod|
|00003a70| 65 73 25 3d a3 20 3a 20 | f4 20 61 75 74 6f 2d 6c |es%=. : |. auto-l|
|00003a80| 6f 61 64 20 63 6f 64 65 | 66 69 6c 65 24 0d 1a 5e |oad code|file$..^|
|00003a90| 2b 20 20 20 20 20 6c 6f | 61 64 64 61 74 61 25 3d |+     lo|addata%=|
|00003aa0| a3 20 3a 20 f4 20 61 75 | 74 6f 2d 6c 6f 61 64 20 |. : . au|to-load |
|00003ab0| 63 75 72 72 65 6e 74 24 | 0d 1a 68 35 20 20 20 20 |current$|..h5    |
|00003ac0| 20 73 68 6f 77 73 70 65 | 63 69 65 73 25 3d a3 20 | showspe|cies%=. |
|00003ad0| 3a 20 f4 20 73 68 6f 77 | 20 73 70 2e 20 69 6e 20 |: . show| sp. in |
|00003ae0| 6d 61 6e 75 61 6c 20 69 | 6e 64 65 78 3f 0d 1a 72 |manual i|ndex?..r|
|00003af0| 61 20 20 20 20 20 73 65 | 74 75 70 24 3d bd 31 2b |a     se|tup$=.1+|
|00003b00| bd 32 37 2b bd 31 2b bd | 37 37 2b bd 31 2b bd 32 |.27+.1+.|77+.1+.2|
|00003b10| 37 2b bd 31 2b bd 31 30 | 38 2b bd 31 2b bd 31 30 |7+.1+.10|8+.1+.10|
|00003b20| 20 3a 20 f4 20 74 68 69 | 73 20 61 6e 64 20 6e 65 | : . thi|s and ne|
|00003b30| 78 74 20 32 20 76 61 72 | 69 61 62 6c 65 73 20 63 |xt 2 var|iables c|
|00003b40| 6f 6e 74 72 6f 6c 20 70 | 72 69 6e 74 65 72 0d 1a |ontrol p|rinter..|
|00003b50| 7c 2a 20 20 20 20 20 62 | 6f 6c 64 24 3d bd 31 2b ||*     b|old$=.1+|
|00003b60| bd 32 37 2b bd 31 2b bd | 38 30 2b bd 31 2b bd 32 |.27+.1+.|80+.1+.2|
|00003b70| 37 2b bd 31 2b bd 36 39 | 0d 1a 86 2c 20 20 20 20 |7+.1+.69|...,    |
|00003b80| 20 75 6e 62 6f 6c 64 24 | 3d bd 31 2b bd 32 37 2b | unbold$|=.1+.27+|
|00003b90| bd 31 2b bd 37 37 2b bd | 31 2b bd 32 37 2b bd 31 |.1+.77+.|1+.27+.1|
|00003ba0| 2b bd 37 30 0d 1a 90 31 | 20 20 20 20 20 74 61 62 |+.70...1|     tab|
|00003bb0| 25 3d b9 20 3a 20 f4 20 | 74 61 62 20 63 68 61 72 |%=. : . |tab char|
|00003bc0| 61 63 74 65 72 73 20 69 | 6e 20 74 65 78 74 20 66 |acters i|n text f|
|00003bd0| 69 6c 65 73 3f 0d 1a 9a | 35 20 20 20 20 20 77 68 |iles?...|5     wh|
|00003be0| 69 74 65 25 3d a3 20 3a | 20 f4 20 62 6c 61 63 6b |ite%=. :| . black|
|00003bf0| 20 74 65 78 74 20 6f 6e | 20 77 68 69 74 65 20 62 | text on| white b|
|00003c00| 61 63 6b 67 72 6f 75 6e | 64 3f 0d 1a a4 33 20 20 |ackgroun|d?...3  |
|00003c10| 20 20 20 62 6c 75 65 25 | 3d a3 20 3a 20 f4 20 77 |   blue%|=. : . w|
|00003c20| 68 69 74 65 20 74 65 78 | 74 20 6f 6e 20 62 6c 75 |hite tex|t on blu|
|00003c30| 65 20 62 61 63 6b 67 72 | 6f 75 6e 64 3f 0d 1a ae |e backgr|ound?...|
|00003c40| 04 0d 1a b8 4c 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |....L***|********|
|00003c50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 1a c2 |********|*****...|
|00003c90| 04 0d 1a cc 10 c8 99 20 | 36 36 20 b8 20 6d 74 74 |....... |66 . mtt|
|00003ca0| 25 0d 1a d6 10 73 74 61 | 72 74 6d 6f 64 65 25 3d |%....sta|rtmode%=|
|00003cb0| eb 0d 1a e0 07 eb 20 33 | 0d 1a ea 10 2a 4b 45 59 |...... 3|....*KEY|
|00003cc0| 31 22 45 4e 44 7c 4d 22 | 0d 1a f4 0d 2a 46 58 32 |1"END|M"|....*FX2|
|00003cd0| 30 32 2c 31 36 0d 1a fe | 0c 2a 50 4f 49 4e 54 45 |02,16...|.*POINTE|
|00003ce0| 52 0d 1b 08 0d c8 97 20 | 88 20 31 2e 33 35 0d 1b |R...... |. 1.35..|
|00003cf0| 12 08 c8 97 20 87 0d 1b | 1c 37 ef 20 32 33 2c 31 |.... ...|.7. 23,1|
|00003d00| 32 38 2c 30 2c 30 2c 30 | 2c 32 35 35 2c 30 2c 30 |28,0,0,0|,255,0,0|
|00003d10| 2c 30 2c 30 2c 30 2c 32 | 33 2c 31 32 39 2c 38 2c |,0,0,0,2|3,129,8,|
|00003d20| 38 2c 38 2c 38 2c 38 2c | 38 2c 38 2c 38 0d 1b 26 |8,8,8,8,|8,8,8..&|
|00003d30| 42 ef 20 32 33 2c 31 33 | 30 2c 31 2c 33 2c 36 2c |B. 23,13|0,1,3,6,|
|00003d40| 31 34 30 2c 32 31 36 2c | 31 31 32 2c 33 32 2c 30 |140,216,|112,32,0|
|00003d50| 2c 32 33 2c 31 33 31 2c | 36 33 2c 36 33 2c 36 30 |,23,131,|63,63,60|
|00003d60| 2c 36 30 2c 36 30 2c 36 | 30 2c 36 33 2c 36 33 0d |,60,60,6|0,63,63.|
|00003d70| 1b 30 41 ef 20 32 33 2c | 31 33 32 2c 32 34 30 2c |.0A. 23,|132,240,|
|00003d80| 32 34 38 2c 36 30 2c 36 | 30 2c 36 30 2c 36 30 2c |248,60,6|0,60,60,|
|00003d90| 32 34 30 2c 32 34 30 2c | 32 33 2c 31 33 33 2c 33 |240,240,|23,133,3|
|00003da0| 2c 33 2c 30 2c 30 2c 31 | 35 2c 31 35 2c 33 2c 33 |,3,0,0,1|5,15,3,3|
|00003db0| 0d 1b 3a 43 ef 20 32 33 | 2c 31 33 34 2c 31 39 32 |..:C. 23|,134,192|
|00003dc0| 2c 31 39 32 2c 30 2c 30 | 2c 31 39 32 2c 31 39 32 |,192,0,0|,192,192|
|00003dd0| 2c 31 39 32 2c 31 39 32 | 2c 32 33 2c 31 33 35 2c |,192,192|,23,135,|
|00003de0| 30 2c 30 2c 30 2c 30 2c | 36 30 2c 36 30 2c 36 33 |0,0,0,0,|60,60,63|
|00003df0| 2c 36 33 0d 1b 44 3d ef | 20 32 33 2c 31 33 36 2c |,63..D=.| 23,136,|
|00003e00| 30 2c 30 2c 30 2c 30 2c | 32 34 30 2c 32 34 38 2c |0,0,0,0,|240,248,|
|00003e10| 36 30 2c 36 30 2c 32 33 | 2c 31 33 37 2c 30 2c 30 |60,60,23|,137,0,0|
|00003e20| 2c 30 2c 30 2c 31 35 2c | 33 31 2c 36 30 2c 36 30 |,0,0,15,|31,60,60|
|00003e30| 0d 1b 4e 3f ef 20 32 33 | 2c 31 33 38 2c 36 30 2c |..N?. 23|,138,60,|
|00003e40| 36 30 2c 36 30 2c 36 30 | 2c 32 35 32 2c 32 35 32 |60,60,60|,252,252|
|00003e50| 2c 36 30 2c 36 30 2c 32 | 33 2c 31 33 39 2c 31 35 |,60,60,2|3,139,15|
|00003e60| 2c 31 35 2c 33 2c 33 2c | 33 2c 33 2c 33 2c 33 0d |,15,3,3,|3,3,3,3.|
|00003e70| 1b 58 49 ef 20 32 33 2c | 31 34 30 2c 31 39 32 2c |.XI. 23,|140,192,|
|00003e80| 31 39 32 2c 31 39 32 2c | 31 39 32 2c 31 39 32 2c |192,192,|192,192,|
|00003e90| 31 39 32 2c 31 39 32 2c | 31 39 32 2c 32 33 2c 31 |192,192,|192,23,1|
|00003ea0| 34 31 2c 30 2c 30 2c 30 | 2c 30 2c 32 34 30 2c 32 |41,0,0,0|,0,240,2|
|00003eb0| 34 38 2c 36 30 2c 36 30 | 0d 1b 62 3f ef 20 32 33 |48,60,60|..b?. 23|
|00003ec0| 2c 31 34 32 2c 30 2c 30 | 2c 30 2c 30 2c 32 35 32 |,142,0,0|,0,0,252|
|00003ed0| 2c 32 35 32 2c 36 30 2c | 36 30 2c 32 33 2c 31 34 |,252,60,|60,23,14|
|00003ee0| 33 2c 36 30 2c 36 30 2c | 36 30 2c 36 30 2c 36 33 |3,60,60,|60,60,63|
|00003ef0| 2c 36 33 2c 30 2c 30 0d | 1b 6c 3d ef 20 32 33 2c |,63,0,0.|.l=. 23,|
|00003f00| 31 34 34 2c 36 30 2c 36 | 30 2c 36 30 2c 36 30 2c |144,60,6|0,60,60,|
|00003f10| 32 34 38 2c 32 34 30 2c | 30 2c 30 2c 32 33 2c 31 |248,240,|0,0,23,1|
|00003f20| 34 35 2c 33 2c 33 2c 33 | 2c 33 2c 31 35 2c 31 35 |45,3,3,3|,3,15,15|
|00003f30| 2c 30 2c 30 0d 1b 76 45 | ef 20 32 33 2c 31 34 36 |,0,0..vE|. 23,146|
|00003f40| 2c 31 39 32 2c 31 39 32 | 2c 31 39 32 2c 31 39 32 |,192,192|,192,192|
|00003f50| 2c 32 34 30 2c 32 34 30 | 2c 30 2c 30 2c 32 33 2c |,240,240|,0,0,23,|
|00003f60| 31 34 37 2c 36 30 2c 36 | 30 2c 36 30 2c 36 30 2c |147,60,6|0,60,60,|
|00003f70| 36 30 2c 36 30 2c 30 2c | 30 0d 1b 80 41 ef 20 32 |60,60,0,|0...A. 2|
|00003f80| 33 2c 31 34 38 2c 36 30 | 2c 36 30 2c 36 30 2c 36 |3,148,60|,60,60,6|
|00003f90| 30 2c 33 31 2c 31 35 2c | 30 2c 30 2c 32 33 2c 31 |0,31,15,|0,0,23,1|
|00003fa0| 34 39 2c 36 30 2c 36 30 | 2c 36 30 2c 36 30 2c 32 |49,60,60|,60,60,2|
|00003fb0| 35 32 2c 32 35 32 2c 30 | 2c 30 0d 1b 8a 45 ef 20 |52,252,0|,0...E. |
|00003fc0| 32 33 2c 31 35 30 2c 36 | 30 2c 36 30 2c 33 31 2c |23,150,6|0,60,31,|
|00003fd0| 31 35 2c 30 2c 30 2c 31 | 35 2c 31 35 2c 32 33 2c |15,0,0,1|5,15,23,|
|00003fe0| 31 35 31 2c 36 30 2c 36 | 30 2c 32 35 32 2c 32 35 |151,60,6|0,252,25|
|00003ff0| 32 2c 36 30 2c 36 30 2c | 32 34 38 2c 32 34 30 0d |2,60,60,|248,240.|
|00004000| 1b 94 51 74 69 74 6c 65 | 61 24 3d bd 31 33 31 2b |..Qtitle|a$=.131+|
|00004010| bd 31 33 32 2b bd 31 33 | 33 2b bd 31 33 34 2b bd |.132+.13|3+.134+.|
|00004020| 31 33 35 2b bd 31 33 36 | 2b bd 31 33 37 2b bd 31 |135+.136|+.137+.1|
|00004030| 33 38 2b bd 31 33 39 2b | bd 31 34 30 2b bd 31 33 |38+.139+|.140+.13|
|00004040| 37 2b bd 31 34 31 2b bd | 31 33 37 2b bd 31 34 32 |7+.141+.|137+.142|
|00004050| 0d 1b 9e 50 74 69 74 6c | 65 62 24 3d bd 31 34 33 |...Ptitl|eb$=.143|
|00004060| 2b bd 31 34 34 2b bd 31 | 34 35 2b bd 31 34 36 2b |+.144+.1|45+.146+|
|00004070| bd 31 34 37 2b bd 33 32 | 2b bd 31 34 38 2b bd 31 |.147+.32|+.148+.1|
|00004080| 34 39 2b bd 31 34 35 2b | bd 31 34 36 2b bd 31 34 |49+.145+|.146+.14|
|00004090| 38 2b bd 31 34 34 2b bd | 31 35 30 2b bd 31 35 31 |8+.144+.|150+.151|
|000040a0| 0d 1b a8 75 76 69 65 77 | 62 61 72 24 3d 22 20 20 |...uview|bar$="  |
|000040b0| 46 69 6e 69 73 68 65 64 | 20 20 22 2b bd 31 32 39 |Finished|  "+.129|
|000040c0| 2b 22 20 20 22 2b bd 31 | 37 31 2b 22 20 20 22 2b |+"  "+.1|71+"  "+|
|000040d0| bd 31 32 39 2b 22 20 20 | 3c 20 20 22 2b bd 31 32 |.129+"  |<  "+.12|
|000040e0| 39 2b 22 20 20 3e 20 20 | 22 2b bd 31 32 39 2b 22 |9+"  >  |"+.129+"|
|000040f0| 20 20 22 2b bd 31 38 37 | 2b 22 20 20 22 2b bd 31 |  "+.187|+"  "+.1|
|00004100| 32 39 2b 22 20 20 47 6f | 20 74 6f 20 72 65 63 6f |29+"  Go| to reco|
|00004110| 72 64 20 20 22 0d 1b b2 | 35 63 68 6f 6f 73 65 62 |rd  "...|5chooseb|
|00004120| 61 72 24 3d 22 20 20 3c | 20 20 22 2b bd 31 32 39 |ar$="  <|  "+.129|
|00004130| 2b 22 20 46 69 6e 69 73 | 68 65 64 20 22 2b bd 31 |+" Finis|hed "+.1|
|00004140| 32 39 2b 22 20 20 3e 20 | 20 22 0d 1b bc 33 6c 69 |29+"  > | "...3li|
|00004150| 6d 69 74 62 61 72 24 3d | 22 20 41 6c 6c 20 22 2b |mitbar$=|" All "+|
|00004160| bd 31 32 39 2b 63 68 6f | 6f 73 65 62 61 72 24 2b |.129+cho|osebar$+|
|00004170| bd 31 32 39 2b 22 20 4e | 6f 6e 65 20 22 0d 1b c6 |.129+" N|one "...|
|00004180| 19 de 20 61 24 28 41 25 | 2c 32 29 2c 6d 6f 6e 74 |.. a$(A%|,2),mont|
|00004190| 68 24 28 31 32 29 0d 1b | d0 39 61 24 28 30 2c 30 |h$(12)..|.9a$(0,0|
|000041a0| 29 3d 22 53 69 74 65 2f | 64 61 74 65 22 3a 61 24 |)="Site/|date":a$|
|000041b0| 28 30 2c 31 29 3d 22 53 | 70 65 63 69 65 73 22 3a |(0,1)="S|pecies":|
|000041c0| 61 24 28 30 2c 32 29 3d | 22 43 6f 75 6e 74 22 0d |a$(0,2)=|"Count".|
|000041d0| 1b da 0f e3 20 69 25 3d | 31 20 b8 20 31 32 0d 1b |.... i%=|1 . 12..|
|000041e0| e4 10 f3 20 6d 6f 6e 74 | 68 24 28 69 25 29 0d 1b |... mont|h$(i%)..|
|000041f0| ee 05 ed 0d 1b f8 39 65 | 72 72 24 3d 22 22 3a 66 |......9e|rr$="":f|
|00004200| 69 6c 65 24 3d 22 4e 6f | 6e 65 22 3a 74 6f 64 61 |ile$="No|ne":toda|
|00004210| 79 24 3d a4 67 65 74 54 | 6f 64 61 79 3a 64 6f 6e |y$=.getT|oday:don|
|00004220| 65 25 3d a3 3a 76 74 6f | 70 25 3d 31 0d 1c 02 37 |e%=.:vto|p%=1...7|
|00004230| 46 25 3d 30 3a 66 61 6c | 73 65 25 3d 30 3a 74 72 |F%=0:fal|se%=0:tr|
|00004240| 75 65 25 3d 31 3a 6d 6f | 64 69 66 69 65 64 25 3d |ue%=1:mo|dified%=|
|00004250| 30 3a 63 6f 64 65 73 69 | 6e 73 74 61 6c 6c 65 64 |0:codesi|nstalled|
|00004260| 25 3d a3 0d 1c 0c 2d 6d | 73 78 25 3d 36 34 30 3a |%=....-m|sx%=640:|
|00004270| 6d 73 79 25 3d 35 31 32 | 3a 6e 6f 6d 65 6d 6f 72 |msy%=512|:nomemor|
|00004280| 79 25 3d a3 3a 70 72 65 | 73 65 6e 63 65 25 3d 30 |y%=.:pre|sence%=0|
|00004290| 0d 1c 16 22 6e 65 77 25 | 3d b9 3a f4 20 4e 6f 20 |..."new%|=.:. No |
|000042a0| 72 65 63 6f 72 64 73 20 | 69 6e 20 6d 65 6d 6f 72 |records |in memor|
|000042b0| 79 3f 0d 1c 20 0d 70 73 | 69 74 65 24 3d 22 22 0d |y?.. .ps|ite$="".|
|000042c0| 1c 2a 29 70 72 69 6e 74 | 65 72 25 3d 33 3a f4 20 |.*)print|er%=3:. |
|000042d0| 50 72 69 6e 74 20 6f 75 | 74 70 75 74 20 66 72 6f |Print ou|tput fro|
|000042e0| 6d 20 69 6e 64 65 78 3f | 0d 1c 34 0b 71 75 69 74 |m index?|..4.quit|
|000042f0| 25 3d a3 0d 1c 3e 28 73 | 6f 72 74 25 3d 30 3a f4 |%=...>(s|ort%=0:.|
|00004300| 20 44 6f 20 77 65 20 77 | 61 6e 74 20 72 65 63 6f | Do we w|ant reco|
|00004310| 72 64 73 20 73 6f 72 74 | 65 64 3f 0d 1c 48 29 73 |rds sort|ed?..H)s|
|00004320| 6f 72 74 65 64 25 3d 30 | 3a f4 20 48 61 76 65 20 |orted%=0|:. Have |
|00004330| 72 65 63 6f 72 64 73 20 | 62 65 65 6e 20 73 6f 72 |records |been sor|
|00004340| 74 65 64 3f 0d 1c 52 20 | e7 20 6c 6f 61 64 63 6f |ted?..R |. loadco|
|00004350| 64 65 73 25 3d a3 20 8c | 20 6c 6f 61 64 64 61 74 |des%=. .| loaddat|
|00004360| 61 25 3d a3 0d 1c 5c 27 | e7 20 77 68 69 74 65 25 |a%=...\'|. white%|
|00004370| 20 80 20 62 6c 75 65 25 | 20 8c 20 77 68 69 74 65 | . blue%| . white|
|00004380| 25 3d a3 3a 62 6c 75 65 | 25 3d a3 0d 1c 66 10 c8 |%=.:blue|%=...f..|
|00004390| 97 20 fb 20 31 2c 30 2c | 30 2c 30 0d 1c 70 1c e7 |. . 1,0,|0,0..p..|
|000043a0| 20 62 6c 75 65 25 20 8c | 20 c8 97 20 fb 20 31 2c | blue% .| .. . 1,|
|000043b0| 30 2c 30 2c 32 35 35 0d | 1c 7a 21 e7 20 77 68 69 |0,0,255.|.z!. whi|
|000043c0| 74 65 25 20 8c 20 c8 97 | 20 fb 20 31 2c 32 35 35 |te% . ..| . 1,255|
|000043d0| 2c 32 35 35 2c 32 35 35 | 0d 1c 84 30 e7 20 77 68 |,255,255|...0. wh|
|000043e0| 69 74 65 25 20 8c 20 c8 | 97 20 fb 20 32 2c 30 2c |ite% . .|. . 2,0,|
|000043f0| 30 2c 30 20 8b 20 c8 97 | 20 fb 20 32 2c 32 35 35 |0,0 . ..| . 2,255|
|00004400| 2c 32 35 35 2c 32 35 35 | 0d 1c 8e 17 e7 20 6c 6f |,255,255|..... lo|
|00004410| 61 64 64 61 74 61 25 20 | 8c 20 f2 6c 6f 61 64 0d |addata% |. .load.|
|00004420| 1c 98 05 e1 0d 1c a2 04 | 0d 1c ac 0e dd 20 f2 6b |........|..... .k|
|00004430| 65 79 28 61 24 29 0d 1c | b6 05 f5 0d 1c c0 0b 2a |ey(a$)..|.......*|
|00004440| 46 58 32 31 2c 30 0d 1c | ca 0a 6b 65 79 24 3d be |FX21,0..|..key$=.|
|00004450| 0d 1c d4 0f fd 20 a7 61 | 24 2c 6b 65 79 24 29 0d |..... .a|$,key$).|
|00004460| 1c de 05 e1 0d 1c e8 04 | 0d 1c f2 0b dd 20 f2 6c |........|..... .l|
|00004470| 69 6e 65 0d 1c fc 0f f1 | 20 c4 37 39 2c bd 31 32 |ine.....| .79,.12|
|00004480| 38 29 0d 1d 06 05 e1 0d | 1d 10 04 0d 1d 1a 0c dd |8)......|........|
|00004490| 20 f2 6c 69 6e 65 31 0d | 1d 24 0e f1 20 c4 37 39 | .line1.|.$.. .79|
|000044a0| 2c 22 2d 22 29 0d 1d 2e | 05 e1 0d 1d 38 04 0d 1d |,"-")...|....8...|
|000044b0| 42 10 dd 20 f2 6c 69 73 | 74 43 6f 64 65 73 0d 1d |B.. .lis|tCodes..|
|000044c0| 4c 27 e7 20 a4 64 69 76 | 65 72 67 65 28 22 53 70 |L'. .div|erge("Sp|
|000044d0| 65 63 69 65 73 22 2c 22 | 53 69 74 65 73 22 29 3d |ecies","|Sites")=|
|000044e0| 32 20 8c 20 e1 0d 1d 56 | 1e e7 20 7a 25 3d 30 20 |2 . ...V|.. z%=0 |
|000044f0| 8c 20 65 6e 64 25 3d 42 | 25 20 8b 20 65 6e 64 25 |. end%=B|% . end%|
|00004500| 3d 43 25 0d 1d 60 17 c8 | 97 20 c8 93 20 34 36 34 |=C%..`..|. .. 464|
|00004510| 2c 39 37 35 2c 33 35 30 | 2c 32 0d 1d 6a 15 c8 97 |,975,350|,2..j...|
|00004520| 20 ee 3a c8 97 20 b8 20 | 38 31 30 2c 39 37 37 0d | .:.. . |810,977.|
|00004530| 1d 74 16 66 69 6e 69 73 | 68 65 64 25 3d a3 3a 74 |.t.finis|hed%=.:t|
|00004540| 6f 70 25 3d 31 0d 1d 7e | 05 f5 0d 1d 88 0d ef 20 |op%=1..~|....... |
|00004550| 33 31 2c 32 39 2c 30 0d | 1d 92 13 f2 72 56 28 63 |31,29,0.|....rV(c|
|00004560| 68 6f 6f 73 65 62 61 72 | 24 29 0d 1d 9c 15 e7 20 |hoosebar|$)..... |
|00004570| 74 6f 70 25 3c 31 20 8c | 20 74 6f 70 25 3d 31 0d |top%<1 .| top%=1.|
|00004580| 1d a6 13 62 6f 74 74 6f | 6d 25 3d 74 6f 70 25 2b |...botto|m%=top%+|
|00004590| 32 32 0d 1d b0 21 e7 20 | 62 6f 74 74 6f 6d 25 3e |22...!. |bottom%>|
|000045a0| 65 6e 64 25 20 8c 20 62 | 6f 74 74 6f 6d 25 3d 65 |end% . b|ottom%=e|
|000045b0| 6e 64 25 0d 1d ba 17 e3 | 20 69 25 3d 74 6f 70 25 |nd%.....| i%=top%|
|000045c0| 20 b8 20 62 6f 74 74 6f | 6d 25 0d 1d c4 0f e7 20 | . botto|m%..... |
|000045d0| 65 6e 64 25 3d 42 25 20 | 8c 0d 1d ce 20 f1 20 8a |end%=B% |.... . .|
|000045e0| 32 33 29 62 24 28 69 25 | 2c 30 29 3b 8a 32 39 29 |23)b$(i%|,0);.29)|
|000045f0| 3b 62 24 28 69 25 2c 31 | 29 0d 1d d8 05 cc 0d 1d |;b$(i%,1|).......|
|00004600| e2 20 f1 20 8a 32 34 29 | 63 24 28 69 25 2c 30 29 |. . .24)|c$(i%,0)|
|00004610| 3b 8a 32 39 29 3b 63 24 | 28 69 25 2c 31 29 0d 1d |;.29);c$|(i%,1)..|
|00004620| ec 05 cd 0d 1d f6 05 ed | 0d 1e 00 05 f5 0d 1e 0a |........|........|
|00004630| 0f f2 66 6c 75 73 68 4d | 6f 75 73 65 0d 1e 14 0f |..flushM|ouse....|
|00004640| c8 97 20 78 25 2c 79 25 | 2c 7a 25 0d 1e 1e 08 fd |.. x%,y%|,z%.....|
|00004650| 20 7a 25 0d 1e 28 05 db | 0d 1e 32 17 e7 20 78 25 | z%..(..|..2.. x%|
|00004660| 3c 35 35 30 20 8c 20 74 | 6f 70 25 2d 3d 32 32 0d |<550 . t|op%-=22.|
|00004670| 1e 3c 24 e7 20 78 25 3e | 3d 35 35 30 20 80 20 78 |.<$. x%>|=550 . x|
|00004680| 25 3c 37 32 38 20 8c 20 | 66 69 6e 69 73 68 65 64 |%<728 . |finished|
|00004690| 25 3d b9 0d 1e 46 18 e7 | 20 78 25 3e 3d 37 32 38 |%=...F..| x%>=728|
|000046a0| 20 8c 20 74 6f 70 25 2b | 3d 32 32 0d 1e 50 21 e7 | . top%+|=22..P!.|
|000046b0| 20 74 6f 70 25 3e 65 6e | 64 25 2d 32 31 20 8c 20 | top%>en|d%-21 . |
|000046c0| 74 6f 70 25 3d 65 6e 64 | 25 2d 32 32 0d 1e 5a 0f |top%=end|%-22..Z.|
|000046d0| fd 20 66 69 6e 69 73 68 | 65 64 25 0d 1e 64 05 db |. finish|ed%..d..|
|000046e0| 0d 1e 6e 05 e1 0d 1e 78 | 04 0d 1e 82 0b dd 20 f2 |..n....x|...... .|
|000046f0| 6c 6f 61 64 0d 1e 8c 27 | e7 20 63 6f 64 65 73 69 |load...'|. codesi|
|00004700| 6e 73 74 61 6c 6c 65 64 | 25 20 80 20 66 69 6c 65 |nstalled|% . file|
|00004710| 24 3c 3e 22 4e 6f 6e 65 | 22 20 8c 0d 1e 96 3e 65 |$<>"None|" ....>e|
|00004720| 72 72 24 3d 22 46 69 6c | 65 20 61 6c 72 65 61 64 |rr$="Fil|e alread|
|00004730| 79 20 6c 6f 61 64 65 64 | 3a 20 70 6c 65 61 73 65 |y loaded|: please|
|00004740| 20 71 75 69 74 20 26 20 | 73 74 61 72 74 20 61 67 | quit & |start ag|
|00004750| 61 69 6e 22 2b bd 37 3a | e1 0d 1e a0 05 cc 0d 1e |ain"+.7:|........|
|00004760| aa 22 e7 20 ac 20 63 6f | 64 65 73 69 6e 73 74 61 |.". . co|desinsta|
|00004770| 6c 6c 65 64 25 3a f2 6c | 6f 61 64 43 6f 64 65 73 |lled%:.l|oadCodes|
|00004780| 0d 1e b4 05 cd 0d 1e be | 1b e7 20 ac 20 63 6f 64 |........|.. . cod|
|00004790| 65 73 69 6e 73 74 61 6c | 6c 65 64 25 20 8c 20 e1 |esinstal|led% . .|
|000047a0| 0d 1e c8 13 e7 20 ac 20 | 6c 6f 61 64 64 61 74 61 |..... . |loaddata|
|000047b0| 25 20 8c 0d 1e d2 41 c8 | 8e 20 a4 64 69 76 65 72 |% ....A.|. .diver|
|000047c0| 67 65 28 22 4c 6f 61 64 | 20 66 69 6c 65 20 27 22 |ge("Load| file '"|
|000047d0| 2b 63 75 72 72 65 6e 74 | 24 2b 22 27 22 2c 22 4c |+current|$+"'","L|
|000047e0| 6f 61 64 20 61 6e 6f 74 | 68 65 72 20 66 69 6c 65 |oad anot|her file|
|000047f0| 22 29 20 ca 0d 1e dc 16 | c9 20 30 3a 66 69 6c 65 |") .....|. 0:file|
|00004800| 24 3d 63 75 72 72 65 6e | 74 24 0d 1e e6 07 c9 20 |$=curren|t$..... |
|00004810| 31 0d 1e f0 08 c8 97 20 | 87 0d 1e fa 0c ff 28 22 |1...... |......("|
|00004820| 43 41 54 22 29 0d 1f 04 | 38 66 69 6c 65 24 3d a4 |CAT")...|8file$=.|
|00004830| 67 65 74 46 69 6c 65 4e | 61 6d 65 28 22 45 6e 74 |getFileN|ame("Ent|
|00004840| 65 72 20 6e 61 6d 65 20 | 6f 66 20 66 69 6c 65 20 |er name |of file |
|00004850| 72 65 71 75 69 72 65 64 | 3a 22 29 3a db 0d 1f 0e |required|:"):....|
|00004860| 09 c9 20 32 3a e1 0d 1f | 18 05 cb 0d 1f 22 05 cc |.. 2:...|....."..|
|00004870| 0d 1f 2c 12 66 69 6c 65 | 24 3d 63 75 72 72 65 6e |..,.file|$=curren|
|00004880| 74 24 0d 1f 36 05 cd 0d | 1f 40 2d f2 77 61 69 74 |t$..6...|.@-.wait|
|00004890| 28 22 4c 6f 61 64 69 6e | 67 20 72 65 63 6f 72 64 |("Loadin|g record|
|000048a0| 73 20 66 72 6f 6d 20 27 | 22 2b 66 69 6c 65 24 2b |s from '|"+file$+|
|000048b0| 22 27 22 29 0d 1f 4a 12 | 66 69 6c 65 25 3d 8e 28 |"'")..J.|file%=.(|
|000048c0| 66 69 6c 65 24 29 0d 1f | 54 0f e8 23 20 66 69 6c |file$)..|T..# fil|
|000048d0| 65 25 2c 46 25 0d 1f 5e | 5c e7 20 a4 6d 65 6d 6f |e%,F%..^|\. .memo|
|000048e0| 72 79 2d 28 46 25 2a 32 | 30 29 3c 31 30 30 30 20 |ry-(F%*2|0)<1000 |
|000048f0| 8c 20 65 72 72 24 3d bd | 37 2b 22 4e 6f 74 20 65 |. err$=.|7+"Not e|
|00004900| 6e 6f 75 67 68 20 6d 65 | 6d 6f 72 79 20 74 6f 20 |nough me|mory to |
|00004910| 6c 6f 61 64 20 74 68 69 | 73 20 66 69 6c 65 22 3a |load thi|s file":|
|00004920| d9 20 23 66 69 6c 65 25 | 3a 6e 65 77 25 3d b9 3a |. #file%|:new%=.:|
|00004930| e1 0d 1f 68 4b e7 20 46 | 25 3e 41 25 20 8c 20 46 |...hK. F|%>A% . F|
|00004940| 25 3d 30 3a 65 72 72 24 | 3d 22 46 69 6c 65 20 69 |%=0:err$|="File i|
|00004950| 73 20 74 6f 6f 20 62 69 | 67 20 74 6f 20 62 65 20 |s too bi|g to be |
|00004960| 6c 6f 61 64 65 64 22 3a | d9 23 20 66 69 6c 65 25 |loaded":|.# file%|
|00004970| 3a 46 24 3d 22 4e 6f 6e | 65 22 3a e1 0d 1f 72 0f |:F$="Non|e":...r.|
|00004980| e3 20 69 25 3d 31 20 b8 | 20 46 25 0d 1f 7c 11 f2 |. i%=1 .| F%..|..|
|00004990| 6d 65 74 65 72 28 69 25 | 2c 46 25 29 0d 1f 86 0e |meter(i%|,F%)....|
|000049a0| e3 20 6a 25 3d 30 20 b8 | 20 32 0d 1f 90 16 e8 23 |. j%=0 .| 2.....#|
|000049b0| 20 66 69 6c 65 25 2c 61 | 24 28 69 25 2c 6a 25 29 | file%,a|$(i%,j%)|
|000049c0| 0d 1f 9a 0b ed 20 6a 25 | 2c 69 25 0d 1f a4 0c d9 |..... j%|,i%.....|
|000049d0| 23 20 66 69 6c 65 25 0d | 1f ae 28 6e 65 77 25 3d |# file%.|..(new%=|
|000049e0| a3 3a 6c 6f 61 64 64 61 | 74 61 25 3d a3 3a 6d 73 |.:loadda|ta%=.:ms|
|000049f0| 78 25 3d 37 35 30 3a 6d | 73 79 25 3d 35 39 30 0d |x%=750:m|sy%=590.|
|00004a00| 1f b8 05 e1 0d 1f c2 04 | 0d 1f cc 10 dd 20 f2 6c |........|..... .l|
|00004a10| 6f 61 64 43 6f 64 65 73 | 0d 1f d6 1c 2a 44 49 52 |oadCodes|....*DIR|
|00004a20| 20 24 2e 42 49 52 44 4c | 4f 47 2e 43 4f 44 45 46 | $.BIRDL|OG.CODEF|
|00004a30| 49 4c 45 53 0d 1f e0 14 | e7 20 ac 20 6c 6f 61 64 |ILES....|. . load|
|00004a40| 63 6f 64 65 73 25 20 8c | 0d 1f ea 4c c8 8e 20 a4 |codes% .|...L.. .|
|00004a50| 64 69 76 65 72 67 65 28 | 22 4c 6f 61 64 20 63 6f |diverge(|"Load co|
|00004a60| 64 65 2d 66 69 6c 65 20 | 27 22 2b 63 6f 64 65 66 |de-file |'"+codef|
|00004a70| 69 6c 65 24 2b 22 27 22 | 2c 22 4c 6f 61 64 20 61 |ile$+"'"|,"Load a|
|00004a80| 6e 6f 74 68 65 72 20 63 | 6f 64 65 2d 66 69 6c 65 |nother c|ode-file|
|00004a90| 22 29 20 ca 0d 1f f4 15 | c9 20 30 3a 63 66 24 3d |") .....|. 0:cf$=|
|00004aa0| 63 6f 64 65 66 69 6c 65 | 24 0d 1f fe 07 c9 20 31 |codefile|$..... 1|
|00004ab0| 0d 20 08 08 c8 97 20 87 | 0d 20 12 0c ff 28 22 43 |. .... .|. ...("C|
|00004ac0| 41 54 22 29 0d 20 1c 36 | 63 66 24 3d a4 67 65 74 |AT"). .6|cf$=.get|
|00004ad0| 46 69 6c 65 4e 61 6d 65 | 28 22 45 6e 74 65 72 20 |FileName|("Enter |
|00004ae0| 6e 61 6d 65 20 6f 66 20 | 66 69 6c 65 20 72 65 71 |name of |file req|
|00004af0| 75 69 72 65 64 3a 22 29 | 3a db 0d 20 26 09 c9 20 |uired:")|:.. &.. |
|00004b00| 32 3a e1 0d 20 30 05 cb | 0d 20 3a 05 cc 0d 20 44 |2:.. 0..|. :... D|
|00004b10| 11 63 66 24 3d 63 6f 64 | 65 66 69 6c 65 24 0d 20 |.cf$=cod|efile$. |
|00004b20| 4e 05 cd 0d 20 58 16 66 | 69 6c 65 25 3d 8e 28 63 |N... X.f|ile%=.(c|
|00004b30| 6f 64 65 66 69 6c 65 24 | 29 0d 20 62 0f e8 23 20 |odefile$|). b..# |
|00004b40| 66 69 6c 65 25 2c 42 25 | 0d 20 6c 15 de 20 62 24 |file%,B%|. l.. b$|
|00004b50| 28 42 25 2c 31 29 2c 62 | 25 28 42 25 29 0d 20 76 |(B%,1),b|%(B%). v|
|00004b60| 2b f2 77 61 69 74 28 22 | 4c 6f 61 64 69 6e 67 20 |+.wait("|Loading |
|00004b70| 73 70 65 63 69 65 73 20 | 66 72 6f 6d 20 27 22 2b |species |from '"+|
|00004b80| 63 66 24 2b 22 27 22 29 | 0d 20 80 0f e3 20 69 25 |cf$+"'")|. ... i%|
|00004b90| 3d 31 20 b8 20 42 25 0d | 20 8a 11 f2 6d 65 74 65 |=1 . B%.| ...mete|
|00004ba0| 72 28 69 25 2c 42 25 29 | 0d 20 94 0e e3 20 6a 25 |r(i%,B%)|. ... j%|
|00004bb0| 3d 30 20 b8 20 31 0d 20 | 9e 16 e8 23 20 66 69 6c |=0 . 1. |...# fil|
|00004bc0| 65 25 2c 62 24 28 69 25 | 2c 6a 25 29 0d 20 a8 0b |e%,b$(i%|,j%). ..|
|00004bd0| ed 20 6a 25 2c 69 25 0d | 20 b2 0f e8 20 23 66 69 |. j%,i%.| ... #fi|
|00004be0| 6c 65 25 2c 43 25 0d 20 | bc 15 de 20 63 24 28 43 |le%,C%. |... c$(C|
|00004bf0| 25 2c 31 29 2c 63 25 28 | 43 25 29 0d 20 c6 29 f2 |%,1),c%(|C%). .).|
|00004c00| 77 61 69 74 28 22 4c 6f | 61 64 69 6e 67 20 73 69 |wait("Lo|ading si|
|00004c10| 74 65 73 20 66 72 6f 6d | 20 27 22 2b 63 66 24 2b |tes from| '"+cf$+|
|00004c20| 22 27 22 29 0d 20 d0 0e | 63 25 28 29 3d 74 72 75 |"'"). ..|c%()=tru|
|00004c30| 65 25 0d 20 da 0f e3 20 | 69 25 3d 31 20 b8 20 43 |e%. ... |i%=1 . C|
|00004c40| 25 0d 20 e4 11 f2 6d 65 | 74 65 72 28 69 25 2c 43 |%. ...me|ter(i%,C|
|00004c50| 25 29 0d 20 ee 0e e3 20 | 6a 25 3d 30 20 b8 20 31 |%). ... |j%=0 . 1|
|00004c60| 0d 20 f8 16 e8 23 20 66 | 69 6c 65 25 2c 63 24 28 |. ...# f|ile%,c$(|
|00004c70| 69 25 2c 6a 25 29 0d 21 | 02 0b ed 20 6a 25 2c 69 |i%,j%).!|... j%,i|
|00004c80| 25 0d 21 0c 0c d9 23 20 | 66 69 6c 65 25 0d 21 16 |%.!...# |file%.!.|
|00004c90| 15 63 6f 64 65 73 69 6e | 73 74 61 6c 6c 65 64 25 |.codesin|stalled%|
|00004ca0| 3d b9 0d 21 20 09 2a 42 | 41 43 4b 0d 21 2a 05 e1 |=..! .*B|ACK.!*..|
|00004cb0| 0d 21 34 04 0d 21 3e 0d | dd 20 f2 6d 61 6e 75 61 |.!4..!>.|. .manua|
|00004cc0| 6c 0d 21 48 05 ee 0d 21 | 52 4e f2 72 56 28 22 20 |l.!H...!|RN.rV(" |
|00004cd0| 53 70 65 63 69 65 73 20 | 3d 20 45 4e 44 20 28 46 |Species |= END (F|
|00004ce0| 31 29 20 66 6f 72 20 6d | 65 6e 75 20 3a 20 4e 42 |1) for m|enu : NB|
|00004cf0| 20 74 68 65 73 65 20 72 | 65 63 6f 72 64 73 20 77 | these r|ecords w|
|00004d00| 69 6c 6c 20 6e 6f 74 20 | 62 65 20 74 61 67 67 65 |ill not |be tagge|
|00004d10| 64 20 22 29 0d 21 5c 29 | f1 20 8a 34 36 2c 31 29 |d ").!\)|. .46,1)|
|00004d20| 22 53 69 74 65 3a 20 22 | 73 69 74 65 24 3b 22 20 |"Site: "|site$;" |
|00004d30| 20 44 61 74 65 3a 20 22 | 64 61 74 65 24 0d 21 66 | Date: "|date$.!f|
|00004d40| 1c f1 20 8a 30 2c 31 29 | 22 43 6f 64 65 20 20 20 |.. .0,1)|"Code   |
|00004d50| 20 20 20 43 6f 75 6e 74 | 22 0d 21 70 12 ef 20 32 |   Count|".!p.. 2|
|00004d60| 38 2c 30 2c 32 34 2c 37 | 39 2c 32 0d 21 7a 05 f5 |8,0,24,7|9,2.!z..|
|00004d70| 0d 21 84 09 46 25 2b 3d | 31 0d 21 8e 05 f5 0d 21 |.!..F%+=|1.!....!|
|00004d80| 98 0f e8 22 22 61 24 28 | 46 25 2c 31 29 0d 21 a2 |...""a$(|F%,1).!.|
|00004d90| 17 e7 20 61 24 28 46 25 | 2c 31 29 3c 3e 22 45 4e |.. a$(F%|,1)<>"EN|
|00004da0| 44 22 20 8c 0d 21 ac 16 | f2 76 65 72 69 66 79 53 |D" ..!..|.verifyS|
|00004db0| 70 65 63 69 65 73 43 6f | 64 65 0d 21 b6 0c fd 20 |peciesCo|de.!... |
|00004dc0| 66 6f 75 6e 64 25 0d 21 | c0 19 e8 86 20 8a 31 30 |found%.!|.... .10|
|00004dd0| 2c bc 2d 31 29 22 22 61 | 24 28 46 25 2c 32 29 0d |,.-1)""a|$(F%,2).|
|00004de0| 21 ca 26 e7 20 61 24 28 | 46 25 2c 32 29 3d 22 22 |!.&. a$(|F%,2)=""|
|00004df0| 20 8c 20 f1 8a 31 30 2c | bc 2d 31 29 22 70 72 65 | . ..10,|.-1)"pre|
|00004e00| 73 65 6e 74 22 0d 21 d4 | 0e f2 63 68 6f 70 43 6f |sent".!.|..chopCo|
|00004e10| 75 6e 74 0d 21 de 18 61 | 24 28 46 25 2c 30 29 3d |unt.!..a|$(F%,0)=|
|00004e20| 73 69 74 65 24 2b 64 61 | 74 65 24 0d 21 e8 05 cd |site$+da|te$.!...|
|00004e30| 0d 21 f2 20 e7 20 a4 6d | 65 6d 6f 72 79 3c 31 35 |.!. . .m|emory<15|
|00004e40| 30 30 20 8c 20 6e 6f 6d | 65 6d 6f 72 79 25 3d b9 |00 . nom|emory%=.|
|00004e50| 0d 21 fc 28 fd 20 61 24 | 28 46 25 2c 31 29 3d 22 |.!.(. a$|(F%,1)="|
|00004e60| 45 4e 44 22 20 84 20 46 | 25 3d 41 25 20 84 20 6e |END" . F|%=A% . n|
|00004e70| 6f 6d 65 6d 6f 72 79 25 | 0d 22 06 09 46 25 2d 3d |omemory%|."..F%-=|
|00004e80| 31 0d 22 10 08 ef 20 32 | 36 0d 22 1a 05 e1 0d 22 |1."... 2|6."...."|
|00004e90| 24 04 0d 22 2e 13 dd 20 | f2 6d 61 6e 75 61 6c 53 |$.."... |.manualS|
|00004ea0| 65 6c 65 63 74 0d 22 38 | 2a f2 72 56 28 22 20 50 |elect."8|*.rV(" P|
|00004eb0| 72 65 73 73 20 3c 52 65 | 74 75 72 6e 3e 20 61 6c |ress <Re|turn> al|
|00004ec0| 6f 6e 65 20 66 6f 72 20 | 6d 65 6e 75 20 22 29 0d |one for |menu ").|
|00004ed0| 22 42 12 ef 20 32 38 2c | 30 2c 32 34 2c 37 39 2c |"B.. 28,|0,24,79,|
|00004ee0| 31 0d 22 4c 29 e7 20 70 | 72 69 6e 74 65 72 25 3d |1."L). p|rinter%=|
|00004ef0| 33 20 8c 20 ef 20 31 34 | 20 8b 20 ef 20 31 35 2c |3 . . 14| . . 15,|
|00004f00| 32 3a f1 20 73 65 74 75 | 70 24 0d 22 56 07 ef 20 |2:. setu|p$."V.. |
|00004f10| 33 0d 22 60 05 f5 0d 22 | 6a 0c 66 6f 75 6e 64 25 |3."`..."|j.found%|
|00004f20| 3d a3 0d 22 74 1a ee 3a | e8 22 53 70 65 63 69 65 |=.."t..:|."Specie|
|00004f30| 73 3a 20 22 73 70 65 63 | 69 65 73 24 0d 22 7e 14 |s: "spec|ies$."~.|
|00004f40| e7 20 73 70 65 63 69 65 | 73 24 3c 3e 22 22 20 8c |. specie|s$<>"" .|
|00004f50| 0d 22 88 05 87 0d 22 92 | 11 ef 20 31 31 2c 70 72 |."....".|.. 11,pr|
|00004f60| 69 6e 74 65 72 25 0d 22 | 9c 1f e7 20 73 68 6f 77 |inter%."|... show|
|00004f70| 73 70 65 63 69 65 73 25 | 20 8c 20 f1 20 73 70 65 |species%| . . spe|
|00004f80| 63 69 65 73 24 0d 22 a6 | 22 e7 20 68 65 61 64 65 |cies$.".|". heade|
|00004f90| 72 24 3c 3e 22 22 20 8c | 20 ef 20 31 31 3a f1 20 |r$<>"" .| . 11:. |
|00004fa0| 68 65 61 64 65 72 24 0d | 22 b0 10 f2 66 69 6e 64 |header$.|"...find|
|00004fb0| 53 70 65 63 69 65 73 0d | 22 ba 0d 70 73 69 74 65 |Species.|"..psite|
|00004fc0| 24 3d 22 22 0d 22 c4 0f | e3 20 6a 25 3d 31 20 b8 |$=""."..|. j%=1 .|
|00004fd0| 20 46 25 0d 22 ce 16 73 | 69 74 65 24 3d c0 61 24 | F%."..s|ite$=.a$|
|00004fe0| 28 6a 25 2c 30 29 2c 33 | 29 0d 22 d8 09 67 6f 25 |(j%,0),3|)."..go%|
|00004ff0| 3d a3 0d 22 e2 10 73 70 | 24 3d 61 24 28 6a 25 2c |=.."..sp|$=a$(j%,|
|00005000| 31 29 0d 22 ec 26 e7 20 | c2 73 70 24 2c 31 29 3d |1).".&. |.sp$,1)=|
|00005010| 22 27 22 20 8c 20 73 70 | 24 3d c0 73 70 24 2c a9 |"'" . sp|$=.sp$,.|
|00005020| 28 73 70 24 29 2d 31 29 | 0d 22 f6 11 e7 20 73 70 |(sp$)-1)|."... sp|
|00005030| 24 3d 63 6f 64 65 24 20 | 8c 0d 23 00 1b e7 20 bb |$=code$ |..#... .|
|00005040| 28 61 24 28 6a 25 2c 32 | 29 29 3e 30 20 8c 20 67 |(a$(j%,2|))>0 . g|
|00005050| 6f 25 3d b9 0d 23 0a 17 | e7 20 70 72 65 73 65 6e |o%=..#..|. presen|
|00005060| 63 65 25 20 8c 20 67 6f | 25 3d b9 0d 23 14 0b e7 |ce% . go|%=..#...|
|00005070| 20 67 6f 25 20 8c 0d 23 | 1e 11 f2 66 6f 72 6d 61 | go% ..#|...forma|
|00005080| 74 52 65 63 6f 72 64 0d | 23 28 0d f2 66 69 6e 64 |tRecord.|#(..find|
|00005090| 53 69 74 65 0d 23 32 3c | e7 20 73 69 74 65 24 3c |Site.#2<|. site$<|
|000050a0| 3e 70 73 69 74 65 24 20 | 8c 20 f1 27 3b 73 69 74 |>psite$ |. .';sit|
|000050b0| 65 6e 61 6d 65 24 3b 22 | 3a 20 22 3b 3a 63 6f 6d |ename$;"|: ";:com|
|000050c0| 6d 61 25 3d a3 3a 8b 20 | 63 6f 6d 6d 61 25 3d b9 |ma%=.:. |comma%=.|
|000050d0| 0d 23 3c 30 72 24 3d 72 | 65 63 24 2b 66 6d 74 24 |.#<0r$=r|ec$+fmt$|
|000050e0| 2b 64 24 2b 22 2f 22 2b | 6d 24 3a e7 20 63 6f 6d |+d$+"/"+|m$:. com|
|000050f0| 6d 61 25 20 8c 20 72 24 | 3d 22 2c 20 22 2b 72 24 |ma% . r$|=", "+r$|
|00005100| 0d 23 46 2d e7 20 b1 2b | a9 28 72 24 29 3e 37 37 |.#F-. .+|.(r$)>77|
|00005110| 20 8c 20 f1 22 2c 22 3a | 72 24 3d 22 20 20 20 22 | . .",":|r$="   "|
|00005120| 2b c2 72 24 2c a9 28 72 | 24 29 2d 32 29 0d 23 50 |+.r$,.(r|$)-2).#P|
|00005130| 0a f1 20 3b 72 24 3b 0d | 23 5a 10 70 73 69 74 65 |.. ;r$;.|#Z.psite|
|00005140| 24 3d 73 69 74 65 24 0d | 23 64 05 cd 0d 23 6e 05 |$=site$.|#d...#n.|
|00005150| cd 0d 23 78 08 ed 20 6a | 25 0d 23 82 06 f1 27 0d |..#x.. j|%.#...'.|
|00005160| 23 8c 38 e7 20 66 6f 75 | 6e 64 25 3d a3 20 80 20 |#.8. fou|nd%=. . |
|00005170| 73 70 65 63 69 65 73 24 | 3c 3e 22 22 20 8c 20 ef |species$|<>"" . .|
|00005180| 20 31 31 3a f1 20 22 4e | 61 6d 65 20 6e 6f 74 20 | 11:. "N|ame not |
|00005190| 66 6f 75 6e 64 22 27 0d | 23 96 05 cd 0d 23 a0 11 |found"'.|#....#..|
|000051a0| fd 20 73 70 65 63 69 65 | 73 24 3d 22 22 0d 23 aa |. specie|s$="".#.|
|000051b0| 0d ef 20 31 35 2c 32 36 | 2c 33 0d 23 b4 0e 70 72 |.. 15,26|,3.#..pr|
|000051c0| 69 6e 74 65 72 25 3d 33 | 0d 23 be 05 e1 0d 23 c8 |inter%=3|.#....#.|
|000051d0| 04 0d 23 d2 0b dd 20 f2 | 6d 65 6e 75 0d 23 dc 12 |..#... .|menu.#..|
|000051e0| 2a 44 49 52 20 24 2e 42 | 49 52 44 4c 4f 47 0d 23 |*DIR $.B|IRDLOG.#|
|000051f0| e6 13 6d 65 6d 6f 72 79 | 25 3d a4 6d 65 6d 6f 72 |..memory|%=.memor|
|00005200| 79 0d 23 f0 3c e7 20 6e | 6f 6d 65 6d 6f 72 79 25 |y.#.<. n|omemory%|
|00005210| 20 8c 20 65 72 72 24 3d | bd 37 2b 22 53 6f 72 72 | . err$=|.7+"Sorr|
|00005220| 79 20 2d 20 6f 75 74 20 | 6f 66 20 6d 65 6d 6f 72 |y - out |of memor|
|00005230| 79 21 22 3a 6d 65 6d 6f | 72 79 25 3d 30 0d 23 fa |y!":memo|ry%=0.#.|
|00005240| 0c f2 6d 6f 64 65 28 30 | 29 0d 24 04 08 c8 97 20 |..mode(0|).$.... |
|00005250| 87 0d 24 0e 15 c8 93 20 | 32 38 30 2c 34 30 2c 37 |..$.... |280,40,7|
|00005260| 31 30 2c 39 38 30 0d 24 | 18 15 c8 93 20 33 30 30 |10,980.$|.... 300|
|00005270| 2c 36 30 2c 36 37 30 2c | 39 34 30 0d 24 22 13 86 |,60,670,|940.$"..|
|00005280| 20 32 38 30 2c 34 30 2c | 33 30 30 2c 36 30 0d 24 | 280,40,|300,60.$|
|00005290| 2c 17 86 20 32 38 30 2c | 31 30 32 30 2c 33 30 30 |,.. 280,|1020,300|
|000052a0| 2c 31 30 30 30 0d 24 36 | 17 86 20 39 39 30 2c 31 |,1000.$6|.. 990,1|
|000052b0| 30 32 30 2c 39 37 30 2c | 31 30 30 30 0d 24 40 13 |020,970,|1000.$@.|
|000052c0| 86 20 39 39 30 2c 34 30 | 2c 39 37 30 2c 36 30 0d |. 990,40|,970,60.|
|000052d0| 24 4a 17 e3 20 69 25 3d | 38 31 35 20 b8 20 31 31 |$J.. i%=|815 . 11|
|000052e0| 35 20 88 2d 35 30 0d 24 | 54 13 86 20 33 30 30 2c |5 .-50.$|T.. 300,|
|000052f0| 69 25 2c 39 37 30 2c 69 | 25 0d 24 5e 08 ed 20 69 |i%,970,i|%.$^.. i|
|00005300| 25 0d 24 68 15 f2 63 65 | 6e 28 74 69 74 6c 65 61 |%.$h..ce|n(titlea|
|00005310| 24 2c 39 33 35 29 0d 24 | 72 15 f2 63 65 6e 28 74 |$,935).$|r..cen(t|
|00005320| 69 74 6c 65 62 24 2c 39 | 30 33 29 0d 24 7c 18 f2 |itleb$,9|03).$|..|
|00005330| 63 65 6e 28 22 4e 65 77 | 20 66 69 6c 65 22 2c 38 |cen("New| file",8|
|00005340| 30 30 29 0d 24 86 14 f2 | 63 65 6e 28 22 4c 6f 61 |00).$...|cen("Loa|
|00005350| 64 22 2c 37 35 30 29 0d | 24 90 14 f2 63 65 6e 28 |d",750).|$...cen(|
|00005360| 22 53 61 76 65 22 2c 37 | 30 30 29 0d 24 9a 14 f2 |"Save",7|00).$...|
|00005370| 63 65 6e 28 22 56 69 65 | 77 22 2c 36 35 30 29 0d |cen("Vie|w",650).|
|00005380| 24 a4 1b f2 63 65 6e 28 | 22 41 64 64 20 72 65 63 |$...cen(|"Add rec|
|00005390| 6f 72 64 73 22 2c 36 30 | 30 29 0d 24 ae 19 f2 63 |ords",60|0).$...c|
|000053a0| 65 6e 28 22 54 65 78 74 | 20 66 69 6c 65 22 2c 35 |en("Text| file",5|
|000053b0| 35 30 29 0d 24 b8 15 f2 | 63 65 6e 28 22 49 6e 64 |50).$...|cen("Ind|
|000053c0| 65 78 22 2c 35 30 30 29 | 0d 24 c2 18 f2 63 65 6e |ex",500)|.$...cen|
|000053d0| 28 22 41 6e 61 6c 79 73 | 69 73 22 2c 34 35 30 29 |("Analys|is",450)|
|000053e0| 0d 24 cc 19 e7 20 ac 20 | 63 6f 64 65 73 69 6e 73 |.$... . |codesins|
|000053f0| 74 61 6c 6c 65 64 25 20 | 8c 0d 24 d6 1a f2 63 65 |talled% |..$...ce|
|00005400| 6e 28 22 53 68 6f 77 20 | 63 6f 64 65 73 22 2c 34 |n("Show |codes",4|
|00005410| 30 30 29 0d 24 e0 05 cc | 0d 24 ea 24 f2 63 65 6e |00).$...|.$.$.cen|
|00005420| 28 22 53 68 6f 77 20 63 | 6f 64 65 73 20 28 22 2b |("Show c|odes ("+|
|00005430| 63 66 24 2b 22 29 22 2c | 34 30 30 29 0d 24 f4 05 |cf$+")",|400).$..|
|00005440| cd 0d 24 fe 22 f2 63 65 | 6e 28 22 43 68 65 63 6b |..$.".ce|n("Check|
|00005450| 20 72 65 63 6f 72 64 20 | 63 6f 64 65 73 22 2c 33 | record |codes",3|
|00005460| 35 30 29 0d 25 08 16 f2 | 63 65 6e 28 22 45 64 69 |50).%...|cen("Edi|
|00005470| 74 6f 72 22 2c 33 30 30 | 29 0d 25 12 20 f2 63 65 |tor",300|).%. .ce|
|00005480| 6e 28 22 4f 70 65 72 61 | 74 69 6e 67 20 73 79 73 |n("Opera|ting sys|
|00005490| 74 65 6d 22 2c 32 35 30 | 29 0d 25 1c 14 f2 63 65 |tem",250|).%...ce|
|000054a0| 6e 28 22 51 75 69 74 22 | 2c 32 30 30 29 0d 25 26 |n("Quit"|,200).%&|
|000054b0| 15 e7 20 66 69 6c 65 24 | 3c 3e 22 4e 6f 6e 65 22 |.. file$|<>"None"|
|000054c0| 20 8c 0d 25 30 3b e7 20 | 6d 6f 64 69 66 69 65 64 | ..%0;. |modified|
|000054d0| 25 3d 30 20 8c 20 69 6e | 73 24 3d 22 20 28 6f 72 |%=0 . in|s$=" (or|
|000054e0| 69 67 69 6e 61 6c 29 22 | 20 8b 20 69 6e 73 24 3d |iginal)"| . ins$=|
|000054f0| 22 20 28 6d 6f 64 69 66 | 69 65 64 29 22 0d 25 3a |" (modif|ied)".%:|
|00005500| 05 cc 0d 25 44 0b 69 6e | 73 24 3d 22 22 0d 25 4e |...%D.in|s$="".%N|
|00005510| 05 cd 0d 25 58 21 f2 63 | 65 6e 28 22 46 69 6c 65 |...%X!.c|en("File|
|00005520| 3a 20 22 2b 66 69 6c 65 | 24 2b 69 6e 73 24 2c 31 |: "+file|$+ins$,1|
|00005530| 35 30 29 0d 25 62 26 f2 | 63 65 6e 28 22 42 79 74 |50).%b&.|cen("Byt|
|00005540| 65 73 20 66 72 65 65 3a | 20 22 2b c3 20 6d 65 6d |es free:| "+. mem|
|00005550| 6f 72 79 25 2c 31 30 30 | 29 0d 25 6c 11 f2 63 65 |ory%,100|).%l..ce|
|00005560| 6e 28 65 72 72 24 2c 33 | 30 29 0d 25 76 19 c8 97 |n(err$,3|0).%v...|
|00005570| 20 c8 93 20 33 30 30 2c | 31 37 35 2c 36 37 30 2c | .. 300,|175,670,|
|00005580| 36 34 30 0d 25 80 08 c8 | 97 20 ee 0d 25 8a 2b e7 |640.%...|. ..%.+.|
|00005590| 20 6e 65 77 25 3d b9 20 | 8c 20 c8 97 20 b8 20 37 | new%=. |. .. . 7|
|000055a0| 35 30 2c 37 34 30 20 8b | 20 c8 97 20 b8 20 38 30 |50,740 .| .. . 80|
|000055b0| 30 2c 6d 73 79 25 0d 25 | 94 05 f5 0d 25 9e 0b 6d |0,msy%.%|....%..m|
|000055c0| 65 6e 75 25 3d 30 0d 25 | a8 0f f2 66 6c 75 73 68 |enu%=0.%|...flush|
|000055d0| 4d 6f 75 73 65 0d 25 b2 | 0f c8 97 20 78 25 2c 79 |Mouse.%.|... x%,y|
|000055e0| 25 2c 7a 25 0d 25 bc 1c | e7 20 7a 25 20 8c 20 6d |%,z%.%..|. z% . m|
|000055f0| 65 6e 75 25 3d 28 79 25 | 2d 31 31 35 29 2f 35 30 |enu%=(y%|-115)/50|
|00005600| 0d 25 c6 13 6d 73 78 25 | 3d 78 25 3a 6d 73 79 25 |.%..msx%|=x%:msy%|
|00005610| 3d 79 25 0d 25 d0 11 e7 | 20 6e 6f 6d 65 6d 6f 72 |=y%.%...| nomemor|
|00005620| 79 25 20 8c 0d 25 da 0e | c8 8e 20 6d 65 6e 75 25 |y% ..%..|.. menu%|
|00005630| 20 ca 0d 25 e4 15 c9 20 | 31 2c 32 2c 38 3a 6f 6b | ..%... |1,2,8:ok|
|00005640| 25 3d 6d 65 6e 75 25 0d | 25 ee 11 7f 20 6d 65 6e |%=menu%.|%... men|
|00005650| 75 25 3d 30 3a ef 20 37 | 0d 25 f8 05 cb 0d 26 02 |u%=0:. 7|.%....&.|
|00005660| 05 cd 0d 26 0c 20 e7 20 | 6e 65 77 25 20 80 20 ac |...&. . |new% . .|
|00005670| 20 63 6f 64 65 73 69 6e | 73 74 61 6c 6c 65 64 25 | codesin|stalled%|
|00005680| 20 8c 0d 26 16 0e c8 8e | 20 6d 65 6e 75 25 20 ca | ..&....| menu% .|
|00005690| 0d 26 20 25 c9 20 33 2c | 34 2c 35 2c 36 2c 37 2c |.& %. 3,|4,5,6,7,|
|000056a0| 38 2c 39 2c 31 30 2c 31 | 31 3a 6d 65 6e 75 25 3d |8,9,10,1|1:menu%=|
|000056b0| 30 3a ef 20 37 0d 26 2a | 2c f2 63 65 6e 28 22 4e |0:. 7.&*|,.cen("N|
|000056c0| 6f 20 63 6f 64 65 73 20 | 6f 72 20 72 65 63 6f 72 |o codes |or recor|
|000056d0| 64 73 20 69 6e 73 74 61 | 6c 6c 65 64 22 2c 33 30 |ds insta|lled",30|
|000056e0| 29 0d 26 34 05 cb 0d 26 | 3e 05 cd 0d 26 48 0c e7 |).&4...&|>...&H..|
|000056f0| 20 6e 65 77 25 20 8c 0d | 26 52 0e c8 8e 20 6d 65 | new% ..|&R... me|
|00005700| 6e 75 25 20 ca 0d 26 5c | 23 c9 20 33 2c 34 2c 36 |nu% ..&\|#. 3,4,6|
|00005710| 2c 37 2c 38 2c 39 2c 31 | 30 2c 31 31 3a 6d 65 6e |,7,8,9,1|0,11:men|
|00005720| 75 25 3d 30 3a ef 20 37 | 0d 26 66 23 f2 63 65 6e |u%=0:. 7|.&f#.cen|
|00005730| 28 22 4e 6f 20 72 65 63 | 6f 72 64 73 20 69 6e 73 |("No rec|ords ins|
|00005740| 74 61 6c 6c 65 64 22 2c | 33 30 29 0d 26 70 05 cb |talled",|30).&p..|
|00005750| 0d 26 7a 05 cd 0d 26 84 | 18 fd 20 6d 65 6e 75 25 |.&z...&.|.. menu%|
|00005760| 3e 30 20 80 20 6d 65 6e | 75 25 3c 31 35 0d 26 8e |>0 . men|u%<15.&.|
|00005770| 08 c8 97 20 87 0d 26 98 | 0e c8 8e 20 6d 65 6e 75 |... ..&.|... menu|
|00005780| 25 20 ca 0d 26 a2 1c c9 | 20 31 2c 33 2c 34 2c 35 |% ..&...| 1,3,4,5|
|00005790| 2c 36 2c 37 2c 39 3a f2 | 6d 6f 64 65 28 30 29 0d |,6,7,9:.|mode(0).|
|000057a0| 26 ac 0e 7f 20 f2 6d 6f | 64 65 28 33 29 0d 26 b6 |&... .mo|de(3).&.|
|000057b0| 05 cb 0d 26 c0 0b 65 72 | 72 24 3d 22 22 0d 26 ca |...&..er|r$="".&.|
|000057c0| 0e c8 8e 20 6d 65 6e 75 | 25 20 ca 0d 26 d4 0e c9 |... menu|% ..&...|
|000057d0| 20 31 33 3a f2 6f 70 65 | 6e 0d 26 de 0e c9 20 31 | 13:.ope|n.&... 1|
|000057e0| 32 3a f2 6c 6f 61 64 0d | 26 e8 0e c9 20 31 31 3a |2:.load.|&... 11:|
|000057f0| f2 73 61 76 65 0d 26 f2 | 0e c9 20 31 30 3a f2 76 |.save.&.|.. 10:.v|
|00005800| 69 65 77 0d 26 fc 0c c9 | 20 39 3a f2 61 64 64 0d |iew.&...| 9:.add.|
|00005810| 27 06 11 c9 20 38 3a f2 | 74 65 78 74 66 69 6c 65 |'... 8:.|textfile|
|00005820| 0d 27 10 12 c9 20 37 3a | f2 69 6e 64 65 78 4d 65 |.'... 7:|.indexMe|
|00005830| 6e 75 0d 27 1a 11 c9 20 | 36 3a f2 61 6e 61 6c 79 |nu.'... |6:.analy|
|00005840| 73 69 73 0d 27 24 12 c9 | 20 35 3a f2 6c 69 73 74 |sis.'$..| 5:.list|
|00005850| 43 6f 64 65 73 0d 27 2e | 18 c9 20 34 3a f2 76 65 |Codes.'.|.. 4:.ve|
|00005860| 72 69 66 79 53 69 74 65 | 43 6f 64 65 73 0d 27 38 |rifySite|Codes.'8|
|00005870| 0f c9 20 33 3a f2 65 64 | 69 74 6f 72 0d 27 42 0b |.. 3:.ed|itor.'B.|
|00005880| c9 20 32 3a f2 6f 73 0d | 27 4c 0d c9 20 31 3a f2 |. 2:.os.|'L.. 1:.|
|00005890| 71 75 69 74 0d 27 56 05 | cb 0d 27 60 05 e1 0d 27 |quit.'V.|..'`...'|
|000058a0| 6a 04 0d 27 74 18 dd 20 | f2 6d 65 74 65 72 28 6c |j..'t.. |.meter(l|
|000058b0| 6f 6f 70 25 2c 65 6e 64 | 25 29 0d 27 7e 1a 70 6f |oop%,end|%).'~.po|
|000058c0| 73 25 3d 6c 6f 6f 70 25 | 2a 31 30 30 30 20 81 20 |s%=loop%|*1000 . |
|000058d0| 65 6e 64 25 0d 27 88 17 | c8 93 20 c8 90 20 31 34 |end%.'..|.. .. 14|
|000058e0| 30 2c 38 2c 70 6f 73 25 | 2c 31 36 0d 27 92 05 e1 |0,8,pos%|,16.'...|
|000058f0| 0d 27 9c 04 0d 27 a6 12 | dd 20 f2 6d 6f 64 65 28 |.'...'..|. .mode(|
|00005900| 6d 6f 64 65 25 29 0d 27 | b0 0e ef 20 32 32 2c 6d |mode%).'|... 22,m|
|00005910| 6f 64 65 25 0d 27 ba 05 | 87 0d 27 c4 13 e7 20 6d |ode%.'..|..'... m|
|00005920| 6f 64 65 25 3d 30 20 8c | 20 ef 20 35 0d 27 ce 0e |ode%=0 .| . 5.'..|
|00005930| e7 20 77 68 69 74 65 25 | 20 8c 0d 27 d8 0f fb 20 |. white%| ..'... |
|00005940| 30 2c 37 3a fb 20 37 2c | 30 0d 27 e2 1c ef 20 31 |0,7:. 7,|0.'... 1|
|00005950| 32 2c 31 39 2c 30 2c 32 | 34 2c 32 35 35 2c 32 35 |2,19,0,2|4,255,25|
|00005960| 35 2c 32 35 35 0d 27 ec | 05 cd 0d 27 f6 0d e7 20 |5,255.'.|...'... |
|00005970| 62 6c 75 65 25 20 8c 0d | 28 00 09 fb 20 30 2c 34 |blue% ..|(... 0,4|
|00005980| 0d 28 0a 18 ef 20 31 32 | 2c 31 39 2c 30 2c 32 34 |.(... 12|,19,0,24|
|00005990| 2c 30 2c 30 2c 32 35 35 | 0d 28 14 05 cd 0d 28 1e |,0,0,255|.(....(.|
|000059a0| 05 e1 0d 28 28 04 0d 28 | 32 0d dd 20 f2 6d 6f 64 |...((..(|2.. .mod|
|000059b0| 69 66 79 0d 28 3c 40 c8 | 8e 20 a4 64 69 76 65 72 |ify.(<@.|. .diver|
|000059c0| 67 65 28 22 4d 6f 64 69 | 66 79 20 6f 6e 65 20 72 |ge("Modi|fy one r|
|000059d0| 65 63 6f 72 64 22 2c 22 | 4d 6f 64 69 66 79 20 72 |ecord","|Modify r|
|000059e0| 61 6e 67 65 20 6f 66 20 | 72 65 63 6f 72 64 73 22 |ange of |records"|
|000059f0| 29 20 ca 0d 28 46 10 c9 | 20 30 3a f2 6d 6f 64 69 |) ..(F..| 0:.modi|
|00005a00| 66 79 31 0d 28 50 10 c9 | 20 31 3a f2 6d 6f 64 69 |fy1.(P..| 1:.modi|
|00005a10| 66 79 32 0d 28 5a 05 cb | 0d 28 64 05 e1 0d 28 6e |fy2.(Z..|.(d...(n|
|00005a20| 04 0d 28 78 0e dd 20 f2 | 6d 6f 64 69 66 79 31 0d |..(x.. .|modify1.|
|00005a30| 28 82 09 db 3a ee 3a f1 | 0d 28 8c 05 f5 0d 28 96 |(...:.:.|.(....(.|
|00005a40| 1b e8 27 22 45 6e 74 65 | 72 20 72 65 63 6f 72 64 |..'"Ente|r record|
|00005a50| 20 6e 6f 2e 20 22 72 25 | 0d 28 a0 13 fd 20 72 25 | no. "r%|.(... r%|
|00005a60| 3e 30 20 80 20 72 25 3c | 3d 46 25 0d 28 aa 05 87 |>0 . r%<|=F%.(...|
|00005a70| 0d 28 b4 05 f5 0d 28 be | 0d f2 6d 6f 64 69 66 79 |.(....(.|..modify|
|00005a80| 31 61 0d 28 c8 1c e7 20 | a7 22 41 61 22 2c 6b 65 |1a.(... |."Aa",ke|
|00005a90| 79 24 29 20 8c 20 f2 6d | 6f 64 69 66 79 31 0d 28 |y$) . .m|odify1.(|
|00005aa0| d2 11 fd 20 a7 22 4d 6d | 22 2c 6b 65 79 24 29 0d |... ."Mm|",key$).|
|00005ab0| 28 dc 0f 6d 6f 64 69 66 | 69 65 64 25 3d b9 0d 28 |(..modif|ied%=..(|
|00005ac0| e6 05 e1 0d 28 f0 04 0d | 28 fa 0f dd 20 f2 6d 6f |....(...|(... .mo|
|00005ad0| 64 69 66 79 31 61 0d 29 | 04 05 f5 0d 29 0e 12 f2 |dify1a.)|....)...|
|00005ae0| 6d 6f 64 69 66 79 53 68 | 6f 77 52 65 63 0d 29 18 |modifySh|owRec.).|
|00005af0| 0e f1 27 22 41 6c 74 65 | 72 3f 22 0d 29 22 05 f5 |..'"Alte|r?".)"..|
|00005b00| 0d 29 2c 0b 2a 46 58 32 | 31 2c 30 0d 29 36 0b 69 |.),.*FX2|1,0.)6.i|
|00005b10| 25 3d bb 28 be 29 0d 29 | 40 17 fd 20 69 25 3e 30 |%=.(.).)|@.. i%>0|
|00005b20| 20 80 20 69 25 3c 34 3a | 69 25 2d 3d 31 0d 29 4a | . i%<4:|i%-=1.)J|
|00005b30| 1d ee 3a f1 27 22 45 6e | 74 65 72 20 6e 65 77 20 |..:.'"En|ter new |
|00005b40| 22 3b 61 24 28 30 2c 69 | 25 29 0d 29 54 13 e8 86 |";a$(0,i|%).)T...|
|00005b50| 22 22 61 24 28 72 25 2c | 69 25 29 3a 87 0d 29 5e |""a$(r%,|i%):..)^|
|00005b60| 17 e7 20 69 25 3d 32 20 | 8c 20 f2 63 68 6f 70 43 |.. i%=2 |. .chopC|
|00005b70| 6f 75 6e 74 0d 29 68 12 | f2 6d 6f 64 69 66 79 53 |ount.)h.|.modifyS|
|00005b80| 68 6f 77 52 65 63 0d 29 | 72 52 f1 27 22 3c 43 3e |howRec.)|rR.'"<C>|
|00005b90| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 20 6d 6f 64 | to cont|inue mod|
|00005ba0| 69 66 79 69 6e 67 20 74 | 68 69 73 20 72 65 63 6f |ifying t|his reco|
|00005bb0| 72 64 2c 20 3c 41 3e 20 | 74 6f 20 6d 6f 64 69 66 |rd, <A> |to modif|
|00005bc0| 79 20 61 6e 6f 74 68 65 | 72 2c 20 3c 4d 3e 20 66 |y anothe|r, <M> f|
|00005bd0| 6f 72 20 6d 65 6e 75 22 | 0d 29 7c 12 f2 6b 65 79 |or menu"|.)|..key|
|00005be0| 28 22 43 63 41 61 4d 6d | 22 29 0d 29 86 05 e1 0d |("CcAaMm|").)....|
|00005bf0| 29 90 05 3a 0d 29 9a 0e | dd 20 f2 6d 6f 64 69 66 |)..:.)..|. .modif|
|00005c00| 79 32 0d 29 a4 35 c8 8e | 20 a4 64 69 76 65 72 67 |y2.).5..| .diverg|
|00005c10| 65 28 22 4d 6f 64 69 66 | 79 20 73 69 74 65 20 63 |e("Modif|y site c|
|00005c20| 6f 64 65 73 22 2c 22 4d | 6f 64 69 66 79 20 64 61 |odes","M|odify da|
|00005c30| 74 65 73 22 29 20 ca 0d | 29 ae 18 c9 20 30 3a f2 |tes") ..|)... 0:.|
|00005c40| 6d 6f 64 69 66 79 53 69 | 74 65 43 6f 64 65 73 0d |modifySi|teCodes.|
|00005c50| 29 b8 14 c9 20 31 3a f2 | 6d 6f 64 69 66 79 44 61 |)... 1:.|modifyDa|
|00005c60| 74 65 73 0d 29 c2 05 cb | 0d 29 cc 05 e1 0d 29 d6 |tes.)...|.)....).|
|00005c70| 04 0d 29 e0 12 dd 20 f2 | 6d 6f 64 69 66 79 44 61 |..)... .|modifyDa|
|00005c80| 74 65 73 0d 29 ea 0c 6c | 69 6d 69 74 25 3d a3 0d |tes.)..l|imit%=..|
|00005c90| 29 f4 15 74 6f 70 25 3d | 31 3a 62 6f 74 74 6f 6d |)..top%=|1:bottom|
|00005ca0| 25 3d 46 25 0d 29 fe 2e | c8 8e 20 a4 64 69 76 65 |%=F%.)..|.. .dive|
|00005cb0| 72 67 65 28 22 47 6c 6f | 62 61 6c 6c 79 22 2c 22 |rge("Glo|bally","|
|00005cc0| 42 65 74 77 65 65 6e 20 | 6c 69 6d 69 74 73 22 29 |Between |limits")|
|00005cd0| 20 ca 0d 2a 08 10 c9 20 | 31 3a 6c 69 6d 69 74 25 | ..*... |1:limit%|
|00005ce0| 3d b9 0d 2a 12 09 c9 20 | 32 3a e1 0d 2a 1c 05 cb |=..*... |2:..*...|
|00005cf0| 0d 2a 26 0e e7 20 6c 69 | 6d 69 74 25 20 8c 0d 2a |.*&.. li|mit% ..*|
|00005d00| 30 05 ee 0d 2a 3a 05 f5 | 0d 2a 44 2b e8 22 43 68 |0...*:..|.*D+."Ch|
|00005d10| 61 6e 67 65 20 64 61 74 | 65 20 66 72 6f 6d 20 72 |ange dat|e from r|
|00005d20| 65 63 6f 72 64 20 6e 75 | 6d 62 65 72 3a 20 22 74 |ecord nu|mber: "t|
|00005d30| 6f 70 25 0d 2a 4e 16 fd | 20 74 6f 70 25 3e 30 20 |op%.*N..| top%>0 |
|00005d40| 80 20 74 6f 70 25 3c 46 | 25 0d 2a 58 05 f5 0d 2a |. top%<F|%.*X...*|
|00005d50| 62 31 e8 22 75 70 20 74 | 6f 20 61 6e 64 20 69 6e |b1."up t|o and in|
|00005d60| 63 6c 75 64 69 6e 67 20 | 72 65 63 6f 72 64 20 6e |cluding |record n|
|00005d70| 75 6d 62 65 72 3a 20 22 | 62 6f 74 74 6f 6d 25 0d |umber: "|bottom%.|
|00005d80| 2a 6c 20 fd 20 62 6f 74 | 74 6f 6d 25 3e 74 6f 70 |*l . bot|tom%>top|
|00005d90| 25 20 80 20 62 6f 74 74 | 6f 6d 25 3c 3d 46 25 0d |% . bott|om%<=F%.|
|00005da0| 2a 76 05 87 0d 2a 80 1d | f1 27 22 41 72 65 20 79 |*v...*..|.'"Are y|
|00005db0| 6f 75 20 73 75 72 65 3f | 20 28 59 2f 4e 29 22 27 |ou sure?| (Y/N)"'|
|00005dc0| 27 0d 2a 8a 10 f2 6b 65 | 79 28 22 59 79 4e 6e 22 |'.*...ke|y("YyNn"|
|00005dd0| 29 0d 2a 94 15 e7 20 a7 | 22 4e 6e 22 2c 6b 65 79 |).*... .|"Nn",key|
|00005de0| 24 29 20 8c 20 e1 0d 2a | 9e 05 cd 0d 2a a8 05 ee |$) . ..*|....*...|
|00005df0| 0d 2a b2 05 f5 0d 2a bc | 1d e8 22 43 68 61 6e 67 |.*....*.|.."Chang|
|00005e00| 65 20 64 61 74 65 20 28 | 6d 6d 64 64 29 3a 20 22 |e date (|mmdd): "|
|00005e10| 61 24 0d 2a c6 0d fd 20 | a9 28 61 24 29 3d 34 0d |a$.*... |.(a$)=4.|
|00005e20| 2a d0 05 f5 0d 2a da 13 | e8 20 89 28 31 36 29 22 |*....*..|. .(16)"|
|00005e30| 74 6f 3a 20 22 62 24 0d | 2a e4 0d fd 20 a9 28 62 |to: "b$.|*... .(b|
|00005e40| 24 29 3d 34 0d 2a ee 05 | 87 0d 2a f8 1b f1 27 22 |$)=4.*..|..*...'"|
|00005e50| 41 72 65 20 79 6f 75 20 | 73 75 72 65 3f 20 28 59 |Are you |sure? (Y|
|00005e60| 2f 4e 29 22 0d 2b 02 10 | f2 6b 65 79 28 22 59 79 |/N)".+..|.key("Yy|
|00005e70| 4e 6e 22 29 0d 2b 0c 15 | e7 20 a7 22 4e 6e 22 2c |Nn").+..|. ."Nn",|
|00005e80| 6b 65 79 24 29 20 8c 20 | e1 0d 2b 16 17 e3 20 69 |key$) . |..+... i|
|00005e90| 25 3d 74 6f 70 25 20 b8 | 20 62 6f 74 74 6f 6d 25 |%=top% .| bottom%|
|00005ea0| 0d 2b 20 13 63 24 3d c0 | 61 24 28 69 25 2c 30 29 |.+ .c$=.|a$(i%,0)|
|00005eb0| 2c 33 29 0d 2b 2a 13 64 | 24 3d c2 61 24 28 69 25 |,3).+*.d|$=.a$(i%|
|00005ec0| 2c 30 29 2c 34 29 0d 2b | 34 0d e7 20 64 24 3d 61 |,0),4).+|4.. d$=a|
|00005ed0| 24 20 8c 0d 2b 3e 09 64 | 24 3d 62 24 0d 2b 48 12 |$ ..+>.d|$=b$.+H.|
|00005ee0| 61 24 28 69 25 2c 30 29 | 3d 63 24 2b 64 24 0d 2b |a$(i%,0)|=c$+d$.+|
|00005ef0| 52 05 cd 0d 2b 5c 08 ed | 20 69 25 0d 2b 66 0f 6d |R...+\..| i%.+f.m|
|00005f00| 6f 64 69 66 69 65 64 25 | 3d b9 0d 2b 70 05 e1 0d |odified%|=..+p...|
|00005f10| 2b 7a 04 0d 2b 84 16 dd | 20 f2 6d 6f 64 69 66 79 |+z..+...| .modify|
|00005f20| 53 69 74 65 43 6f 64 65 | 73 0d 2b 8e 0c 6c 69 6d |SiteCode|s.+..lim|
|00005f30| 69 74 25 3d a3 0d 2b 98 | 15 74 6f 70 25 3d 31 3a |it%=..+.|.top%=1:|
|00005f40| 62 6f 74 74 6f 6d 25 3d | 46 25 0d 2b a2 2e c8 8e |bottom%=|F%.+....|
|00005f50| 20 a4 64 69 76 65 72 67 | 65 28 22 47 6c 6f 62 61 | .diverg|e("Globa|
|00005f60| 6c 6c 79 22 2c 22 42 65 | 74 77 65 65 6e 20 6c 69 |lly","Be|tween li|
|00005f70| 6d 69 74 73 22 29 20 ca | 0d 2b ac 10 c9 20 31 3a |mits") .|.+... 1:|
|00005f80| 6c 69 6d 69 74 25 3d b9 | 0d 2b b6 09 c9 20 32 3a |limit%=.|.+... 2:|
|00005f90| e1 0d 2b c0 05 cb 0d 2b | ca 0e e7 20 6c 69 6d 69 |..+....+|... limi|
|00005fa0| 74 25 20 8c 0d 2b d4 05 | ee 0d 2b de 05 f5 0d 2b |t% ..+..|..+....+|
|00005fb0| e8 31 e8 22 43 68 61 6e | 67 65 20 73 69 74 65 20 |.1."Chan|ge site |
|00005fc0| 63 6f 64 65 73 20 66 72 | 6f 6d 20 72 65 63 6f 72 |codes fr|om recor|
|00005fd0| 64 20 6e 75 6d 62 65 72 | 3a 20 22 74 6f 70 25 0d |d number|: "top%.|
|00005fe0| 2b f2 16 fd 20 74 6f 70 | 25 3e 30 20 80 20 74 6f |+... top|%>0 . to|
|00005ff0| 70 25 3c 46 25 0d 2b fc | 05 f5 0d 2c 06 34 e8 22 |p%<F%.+.|...,.4."|
|00006000| 20 20 20 75 70 20 74 6f | 20 61 6e 64 20 69 6e 63 |   up to| and inc|
|00006010| 6c 75 64 69 6e 67 20 72 | 65 63 6f 72 64 20 6e 75 |luding r|ecord nu|
|00006020| 6d 62 65 72 3a 20 22 62 | 6f 74 74 6f 6d 25 0d 2c |mber: "b|ottom%.,|
|00006030| 10 20 fd 20 62 6f 74 74 | 6f 6d 25 3e 74 6f 70 25 |. . bott|om%>top%|
|00006040| 20 80 20 62 6f 74 74 6f | 6d 25 3c 3d 46 25 0d 2c | . botto|m%<=F%.,|
|00006050| 1a 05 87 0d 2c 24 1d f1 | 27 22 41 72 65 20 79 6f |....,$..|'"Are yo|
|00006060| 75 20 73 75 72 65 3f 20 | 28 59 2f 4e 29 22 27 27 |u sure? |(Y/N)"''|
|00006070| 0d 2c 2e 10 f2 6b 65 79 | 28 22 59 79 4e 6e 22 29 |.,...key|("YyNn")|
|00006080| 0d 2c 38 15 e7 20 a7 22 | 4e 6e 22 2c 6b 65 79 24 |.,8.. ."|Nn",key$|
|00006090| 29 20 8c 20 e1 0d 2c 42 | 05 cd 0d 2c 4c 05 ee 0d |) . ..,B|...,L...|
|000060a0| 2c 56 05 f5 0d 2c 60 1b | e8 22 43 68 61 6e 67 65 |,V...,`.|."Change|
|000060b0| 20 73 69 74 65 20 63 6f | 64 65 3a 20 22 61 24 0d | site co|de: "a$.|
|000060c0| 2c 6a 0d fd 20 a9 28 61 | 24 29 3d 33 0d 2c 74 05 |,j.. .(a|$)=3.,t.|
|000060d0| f5 0d 2c 7e 13 e8 20 89 | 28 31 34 29 22 74 6f 3a |..,~.. .|(14)"to:|
|000060e0| 20 22 62 24 0d 2c 88 0d | fd 20 a9 28 62 24 29 3d | "b$.,..|. .(b$)=|
|000060f0| 33 0d 2c 92 05 87 0d 2c | 9c 1b f1 27 22 41 72 65 |3.,....,|...'"Are|
|00006100| 20 79 6f 75 20 73 75 72 | 65 3f 20 28 59 2f 4e 29 | you sur|e? (Y/N)|
|00006110| 22 0d 2c a6 10 f2 6b 65 | 79 28 22 59 79 4e 6e 22 |".,...ke|y("YyNn"|
|00006120| 29 0d 2c b0 15 e7 20 a7 | 22 4e 6e 22 2c 6b 65 79 |).,... .|"Nn",key|
|00006130| 24 29 20 8c 20 e1 0d 2c | ba 17 e3 20 69 25 3d 74 |$) . ..,|... i%=t|
|00006140| 6f 70 25 20 b8 20 62 6f | 74 74 6f 6d 25 0d 2c c4 |op% . bo|ttom%.,.|
|00006150| 13 63 24 3d c0 61 24 28 | 69 25 2c 30 29 2c 33 29 |.c$=.a$(|i%,0),3)|
|00006160| 0d 2c ce 13 64 24 3d c2 | 61 24 28 69 25 2c 30 29 |.,..d$=.|a$(i%,0)|
|00006170| 2c 34 29 0d 2c d8 0d e7 | 20 63 24 3d 61 24 20 8c |,4).,...| c$=a$ .|
|00006180| 0d 2c e2 09 63 24 3d 62 | 24 0d 2c ec 12 61 24 28 |.,..c$=b|$.,..a$(|
|00006190| 69 25 2c 30 29 3d 63 24 | 2b 64 24 0d 2c f6 05 cd |i%,0)=c$|+d$.,...|
|000061a0| 0d 2d 00 08 ed 20 69 25 | 0d 2d 0a 0f 6d 6f 64 69 |.-... i%|.-..modi|
|000061b0| 66 69 65 64 25 3d b9 0d | 2d 14 05 e1 0d 2d 1e 04 |fied%=..|-....-..|
|000061c0| 0d 2d 28 14 dd 20 f2 6d | 6f 64 69 66 79 53 68 6f |.-(.. .m|odifySho|
|000061d0| 77 52 65 63 0d 2d 32 05 | db 0d 2d 3c 18 f1 27 27 |wRec.-2.|..-<..''|
|000061e0| 22 52 65 63 6f 72 64 20 | 6e 6f 2e 20 22 3b 72 25 |"Record |no. ";r%|
|000061f0| 27 0d 2d 46 0b f2 6c 69 | 6e 65 3a f1 0d 2d 50 0e |'.-F..li|ne:..-P.|
|00006200| e3 20 69 25 3d 30 20 b8 | 20 32 0d 2d 5a 2c f1 3b |. i%=0 .| 2.-Z,.;|
|00006210| 22 28 22 3b 69 25 2b 31 | 3b 22 29 20 22 3b 20 61 |"(";i%+1|;") "; a|
|00006220| 24 28 30 2c 69 25 29 3b | 22 3a 20 22 61 24 28 72 |$(0,i%);|": "a$(r|
|00006230| 25 2c 69 25 29 27 0d 2d | 64 08 ed 20 69 25 0d 2d |%,i%)'.-|d.. i%.-|
|00006240| 6e 09 f2 6c 69 6e 65 0d | 2d 78 05 e1 0d 2d 82 04 |n..line.|-x...-..|
|00006250| 0d 2d 8c 13 dd 20 f2 6d | 75 6c 74 69 70 6c 65 53 |.-... .m|ultipleS|
|00006260| 69 74 65 0d 2d 96 29 64 | 65 66 73 70 24 3d 22 22 |ite.-.)d|efsp$=""|
|00006270| 3a 64 65 66 64 61 74 65 | 24 3d 74 6f 64 61 79 24 |:defdate|$=today$|
|00006280| 3a 64 65 66 73 69 74 65 | 24 3d 22 22 0d 2d a0 4a |:defsite|$="".-.J|
|00006290| f2 72 56 28 22 20 53 70 | 65 63 69 65 73 20 3d 20 |.rV(" Sp|ecies = |
|000062a0| 45 4e 44 20 28 46 31 29 | 20 66 6f 72 20 6d 65 6e |END (F1)| for men|
|000062b0| 75 20 3a 20 4e 42 20 74 | 68 65 73 65 20 72 65 63 |u : NB t|hese rec|
|000062c0| 6f 72 64 73 20 77 69 6c | 6c 20 62 65 20 74 61 67 |ords wil|l be tag|
|000062d0| 67 65 64 20 22 29 0d 2d | aa 12 ef 20 32 38 2c 30 |ged ").-|... 28,0|
|000062e0| 2c 32 34 2c 37 39 2c 31 | 0d 2d b4 05 ee 0d 2d be |,24,79,1|.-....-.|
|000062f0| 05 f1 0d 2d c8 05 f5 0d | 2d d2 09 46 25 2b 3d 31 |...-....|-..F%+=1|
|00006300| 0d 2d dc 05 f5 0d 2d e6 | 13 e8 22 53 70 65 63 69 |.-....-.|.."Speci|
|00006310| 65 73 3f 20 22 73 70 24 | 0d 2d f0 26 e7 20 73 70 |es? "sp$|.-.&. sp|
|00006320| 24 3d 22 22 20 8c 20 73 | 70 24 3d 64 65 66 73 70 |$="" . s|p$=defsp|
|00006330| 24 3a f1 8a 39 2c bc 2d | 31 29 3b 73 70 24 0d 2d |$:..9,.-|1);sp$.-|
|00006340| fa 0e 64 65 66 73 70 24 | 3d 73 70 24 0d 2e 04 10 |..defsp$|=sp$....|
|00006350| 61 24 28 46 25 2c 31 29 | 3d 73 70 24 0d 2e 0e 17 |a$(F%,1)|=sp$....|
|00006360| e7 20 61 24 28 46 25 2c | 31 29 3c 3e 22 45 4e 44 |. a$(F%,|1)<>"END|
|00006370| 22 20 8c 0d 2e 18 16 f2 | 76 65 72 69 66 79 53 70 |" ......|verifySp|
|00006380| 65 63 69 65 73 43 6f 64 | 65 0d 2e 22 0c fd 20 66 |eciesCod|e..".. f|
|00006390| 6f 75 6e 64 25 0d 2e 2c | 19 61 24 28 46 25 2c 31 |ound%..,|.a$(F%,1|
|000063a0| 29 3d 61 24 28 46 25 2c | 31 29 2b 22 27 22 0d 2e |)=a$(F%,|1)+"'"..|
|000063b0| 36 14 f5 3a e8 22 53 69 | 74 65 3f 20 22 73 69 74 |6..:."Si|te? "sit|
|000063c0| 65 24 0d 2e 40 2e e7 20 | 73 69 74 65 24 3d 22 22 |e$..@.. |site$=""|
|000063d0| 20 8c 20 73 69 74 65 24 | 3d 64 65 66 73 69 74 65 | . site$|=defsite|
|000063e0| 24 3a f1 8a 36 2c bc 2d | 31 29 3b 73 69 74 65 24 |$:..6,.-|1);site$|
|000063f0| 0d 2e 4a 10 fd 20 a9 28 | 73 69 74 65 24 29 3d 33 |..J.. .(|site$)=3|
+--------+-------------------------+-------------------------+--------+--------+