/ APDL Public Domain 1 / APDL_PD1A.iso / am_radio / locator

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | fc 00 00 00 5c 01 00 00 |Archive.|....\...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 4c 6f 63 61 74 6f | 72 00 00 00 ff ff ff ff |.!Locato|r.......|
|00000070| 44 ff ff ff c9 71 02 1a | 00 00 00 00 ff ff ff ff |D....q..|........|
|00000080| d8 00 00 80 82 21 48 65 | 6c 70 00 00 44 dc fd ff |.....!He|lp..D...|
|00000090| 04 39 00 00 42 ff ff ff | 38 ca 1e 1a 03 00 97 e9 |.9..B...|8.......|
|000000a0| 04 39 00 00 24 00 00 00 | 82 21 52 75 6e 00 04 00 |.9..$...|.!Run...|
|000000b0| 44 dc fd ff 19 00 00 00 | 42 eb ff ff 5c c7 e8 02 |D.......|B...\...|
|000000c0| 03 00 fa 1a 19 00 00 00 | 4c 39 00 00 82 21 52 75 |........|L9...!Ru|
|000000d0| 6e 49 6d 61 67 65 00 ff | 6b 4b 00 00 42 fb ff ff |nImage..|kK..B...|
|000000e0| f5 bf f0 24 03 00 74 7a | 6b 4b 00 00 89 39 00 00 |...$..tz|kK...9..|
|000000f0| 82 21 53 70 72 69 74 65 | 73 00 fd ff e4 03 00 00 |.!Sprite|s.......|
|00000100| 41 f9 ff ff e3 09 d5 c4 | 03 00 96 dc e4 03 00 00 |A.......|........|
|00000110| 18 85 00 00 00 00 00 00 | c3 00 04 00 44 dc fd ff |........|....D...|
|00000120| 71 77 02 1a 9a 53 00 00 | 03 00 00 00 ff ff ff ff |qw...S..|........|
|00000130| 03 02 ef 00 69 d9 05 00 | 00 00 00 00 00 00 00 00 |....i...|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | f8 01 00 00 46 69 6c 65 |........|....File|
|00000160| 44 61 74 61 82 21 48 65 | 6c 70 00 00 44 dc fd ff |Data.!He|lp..D...|
|00000170| 04 39 00 00 42 ff ff ff | 38 ca 1e 1a 03 00 97 e9 |.9..B...|8.......|
|00000180| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000190| 20 20 20 20 20 44 4f 43 | 55 4d 45 4e 54 41 54 49 |     DOC|UMENTATI|
|000001a0| 4f 4e 20 46 4f 52 20 4c | 4f 43 41 54 45 33 20 50 |ON FOR L|OCATE3 P|
|000001b0| 52 4f 47 52 41 4d 0a 0a | 0a 49 4e 54 52 4f 44 55 |ROGRAM..|.INTRODU|
|000001c0| 43 54 49 4f 4e 0a 0a 54 | 68 69 73 20 69 73 20 61 |CTION..T|his is a|
|000001d0| 20 4c 6f 63 61 74 6f 72 | 20 70 72 6f 67 72 61 6d | Locator| program|
|000001e0| 20 66 6f 72 20 48 46 20 | 61 6e 64 20 56 48 46 2f | for HF |and VHF/|
|000001f0| 55 48 46 20 65 6e 74 68 | 75 73 69 61 73 74 73 20 |UHF enth|usiasts |
|00000200| 61 6c 69 6b 65 2e 20 49 | 74 20 69 73 20 61 0a 76 |alike. I|t is a.v|
|00000210| 65 72 79 20 6c 61 72 67 | 65 20 70 72 6f 67 72 61 |ery larg|e progra|
|00000220| 6d 2c 20 61 6e 64 20 63 | 6f 6e 73 69 73 74 73 20 |m, and c|onsists |
|00000230| 6f 66 20 74 77 6f 20 73 | 65 70 61 72 61 74 65 20 |of two s|eparate |
|00000240| 70 61 72 74 73 2c 20 62 | 75 74 20 79 6f 75 20 63 |parts, b|ut you c|
|00000250| 61 6e 0a 27 74 6f 67 67 | 6c 65 27 20 62 65 74 77 |an.'togg|le' betw|
|00000260| 65 65 6e 20 74 68 65 6d | 20 61 74 20 61 6e 79 20 |een them| at any |
|00000270| 74 69 6d 65 2e 20 54 68 | 65 20 66 69 72 73 74 20 |time. Th|e first |
|00000280| 70 61 72 74 20 65 6e 61 | 62 6c 65 73 20 79 6f 75 |part ena|bles you|
|00000290| 20 74 6f 20 66 69 6e 64 | 20 74 68 65 0a 64 69 73 | to find| the.dis|
|000002a0| 74 61 6e 63 65 20 62 65 | 74 77 65 65 6e 20 61 6e |tance be|tween an|
|000002b0| 79 20 74 77 6f 20 70 6f | 69 6e 74 73 20 6f 6e 20 |y two po|ints on |
|000002c0| 74 68 65 20 45 61 72 74 | 68 27 73 20 73 75 72 66 |the Eart|h's surf|
|000002d0| 61 63 65 2c 20 70 6c 75 | 73 20 74 68 65 20 72 61 |ace, plu|s the ra|
|000002e0| 64 69 61 6c 0a 72 69 6e | 67 20 73 63 6f 72 65 2c |dial.rin|g score,|
|000002f0| 20 61 6e 64 20 74 68 65 | 20 6f 75 74 67 6f 69 6e | and the| outgoin|
|00000300| 67 20 61 6e 64 20 72 65 | 74 75 72 6e 20 62 65 61 |g and re|turn bea|
|00000310| 72 69 6e 67 73 2e 20 49 | 6e 20 61 64 64 69 74 69 |rings. I|n additi|
|00000320| 6f 6e 2c 20 69 74 0a 27 | 74 72 61 6e 73 6c 61 74 |on, it.'|translat|
|00000330| 65 73 27 20 62 65 74 77 | 65 65 6e 20 74 68 65 20 |es' betw|een the |
|00000340| 76 61 72 69 6f 75 73 20 | 63 6f 6d 6d 6f 6e 20 63 |various |common c|
|00000350| 6f 2d 6f 72 64 69 6e 61 | 74 65 73 2e 20 54 68 65 |o-ordina|tes. The|
|00000360| 20 73 79 73 74 65 6d 73 | 0a 73 75 70 70 6f 72 74 | systems|.support|
|00000370| 65 64 20 61 72 65 20 4c | 61 74 69 74 75 64 65 20 |ed are L|atitude |
|00000380| 61 6e 64 20 4c 6f 6e 67 | 69 74 75 64 65 2c 20 55 |and Long|itude, U|
|00000390| 4b 20 4f 72 64 6e 61 6e | 63 65 20 53 75 72 76 65 |K Ordnan|ce Surve|
|000003a0| 79 20 4d 61 70 20 52 65 | 66 65 72 65 6e 63 65 2c |y Map Re|ference,|
|000003b0| 0a 28 4e 61 74 69 6f 6e | 61 6c 20 47 72 69 64 20 |.(Nation|al Grid |
|000003c0| 72 65 66 65 72 65 6e 63 | 65 29 2c 20 57 6f 72 6b |referenc|e), Work|
|000003d0| 65 64 2d 41 6c 6c 2d 42 | 72 69 74 61 69 6e 20 63 |ed-All-B|ritain c|
|000003e0| 6f 64 65 2c 20 45 75 72 | 6f 70 65 61 6e 20 35 2d |ode, Eur|opean 5-|
|000003f0| 66 69 67 75 72 65 20 51 | 54 48 0a 6c 6f 63 61 74 |figure Q|TH.locat|
|00000400| 6f 72 20 63 6f 64 65 2c | 20 61 6e 64 20 74 68 65 |or code,| and the|
|00000410| 20 6e 65 77 20 36 2d 66 | 69 67 75 72 65 20 47 4d | new 6-f|igure GM|
|00000420| 34 41 4e 42 20 4d 61 69 | 64 65 6e 68 65 61 64 20 |4ANB Mai|denhead |
|00000430| 55 6e 69 76 65 72 73 61 | 6c 20 4c 6f 63 61 74 6f |Universa|l Locato|
|00000440| 72 0a 43 6f 64 65 2c 20 | 28 4d 55 4c 29 2c 20 77 |r.Code, |(MUL), w|
|00000450| 68 69 63 68 20 77 61 73 | 20 61 64 6f 70 74 65 64 |hich was| adopted|
|00000460| 20 69 6e 20 4a 61 6e 75 | 61 72 79 20 31 39 38 35 | in Janu|ary 1985|
|00000470| 2e 20 59 6f 75 20 6d 61 | 79 20 6e 6f 6d 69 6e 61 |. You ma|y nomina|
|00000480| 74 65 20 61 6e 20 65 6e | 74 72 79 0a 61 73 20 74 |te an en|try.as t|
|00000490| 68 65 20 6e 65 77 20 27 | 68 6f 6d 65 27 20 73 74 |he new '|home' st|
|000004a0| 61 74 69 6f 6e 20 61 74 | 20 61 6e 79 20 74 69 6d |ation at| any tim|
|000004b0| 65 2e 20 54 68 69 73 20 | 69 73 20 61 74 74 72 61 |e. This |is attra|
|000004c0| 63 74 69 76 65 6c 79 20 | 20 70 72 65 73 65 6e 74 |ctively | present|
|000004d0| 65 64 20 6f 6e 0a 74 68 | 65 20 73 63 72 65 65 6e |ed on.th|e screen|
|000004e0| 20 64 69 73 70 6c 61 79 | 2c 20 77 69 74 68 20 69 | display|, with i|
|000004f0| 6e 64 69 76 69 64 75 61 | 6c 20 27 77 69 6e 64 6f |ndividua|l 'windo|
|00000500| 77 73 27 20 66 6f 72 20 | 74 68 65 20 68 6f 6d 65 |ws' for |the home|
|00000510| 20 61 6e 64 20 64 78 0a | 73 74 61 74 69 6f 6e 73 | and dx.|stations|
|00000520| 2c 20 70 6c 75 73 20 65 | 61 73 79 2d 74 6f 2d 75 |, plus e|asy-to-u|
|00000530| 73 65 20 6d 65 6e 75 20 | 6f 66 20 63 6f 6d 6d 61 |se menu |of comma|
|00000540| 6e 64 73 2e 20 54 68 65 | 20 6f 74 68 65 72 20 70 |nds. The| other p|
|00000550| 61 72 74 20 69 73 20 61 | 20 56 48 46 2f 55 48 46 |art is a| VHF/UHF|
|00000560| 0a 63 6f 6e 74 65 73 74 | 2d 73 63 6f 72 69 6e 67 |.contest|-scoring|
|00000570| 20 70 72 6f 67 72 61 6d | 2e 20 59 6f 75 20 6d 61 | program|. You ma|
|00000580| 79 20 65 6e 74 65 72 20 | 65 69 74 68 65 72 20 35 |y enter |either 5|
|00000590| 20 6f 72 20 36 2d 66 69 | 67 75 72 65 20 6c 6f 63 | or 6-fi|gure loc|
|000005a0| 61 74 6f 72 73 20 69 6e | 0a 61 6e 79 20 6d 69 78 |ators in|.any mix|
|000005b0| 74 75 72 65 2e 20 54 68 | 65 20 64 69 73 70 6c 61 |ture. Th|e displa|
|000005c0| 79 20 67 69 76 65 73 20 | 74 68 65 20 64 69 73 74 |y gives |the dist|
|000005d0| 61 6e 63 65 20 69 6e 20 | 6b 69 6c 6f 6d 65 74 72 |ance in |kilometr|
|000005e0| 65 73 2c 20 74 68 65 20 | 72 61 64 69 61 6c 2d 72 |es, the |radial-r|
|000005f0| 69 6e 67 0a 73 63 6f 72 | 65 2c 20 61 6e 64 20 74 |ing.scor|e, and t|
|00000600| 68 65 20 6f 75 74 67 6f | 69 6e 67 20 62 65 61 72 |he outgo|ing bear|
|00000610| 69 6e 67 2e 20 59 6f 75 | 20 6d 61 79 20 73 77 69 |ing. You| may swi|
|00000620| 74 63 68 20 61 20 70 72 | 69 6e 74 65 72 20 69 6e |tch a pr|inter in|
|00000630| 20 6f 72 20 6f 75 74 20 | 61 6e 79 0a 74 69 6d 65 | or out |any.time|
|00000640| 20 66 6f 72 20 68 61 72 | 64 20 63 6f 70 79 20 6f | for har|d copy o|
|00000650| 66 20 63 6f 6e 74 61 63 | 74 73 2c 20 28 74 68 65 |f contac|ts, (the|
|00000660| 20 45 6c 65 63 74 72 6f | 6e 20 72 65 71 75 69 72 | Electro|n requir|
|00000670| 65 73 20 50 4c 55 53 2d | 31 20 6f 72 20 73 69 6d |es PLUS-|1 or sim|
|00000680| 69 6c 61 72 0a 69 6e 74 | 65 72 66 61 63 65 20 74 |ilar.int|erface t|
|00000690| 6f 20 75 73 65 20 74 68 | 69 73 20 66 61 63 69 6c |o use th|is facil|
|000006a0| 69 74 79 29 2e 20 54 68 | 65 20 70 72 6f 67 72 61 |ity). Th|e progra|
|000006b0| 6d 20 67 69 76 65 73 20 | 61 75 74 6f 6d 61 74 69 |m gives |automati|
|000006c0| 63 20 70 61 67 65 20 74 | 6f 74 61 6c 73 0a 61 66 |c page t|otals.af|
|000006d0| 74 65 72 20 65 61 63 68 | 20 32 35 20 65 6e 74 72 |ter each| 25 entr|
|000006e0| 69 65 73 20 66 6f 72 20 | 73 74 61 6e 64 61 72 64 |ies for |standard|
|000006f0| 20 52 53 47 42 20 6c 6f | 67 73 68 65 65 74 73 2c | RSGB lo|gsheets,|
|00000700| 20 62 75 74 20 74 68 69 | 73 20 63 61 6e 20 62 65 | but thi|s can be|
|00000710| 20 61 6c 74 65 72 65 64 | 0a 61 73 20 72 65 71 75 | altered|.as requ|
|00000720| 69 72 65 64 2e 20 59 6f | 75 20 63 61 6e 20 61 6c |ired. Yo|u can al|
|00000730| 6c 6f 77 20 66 6f 72 20 | 6e 6f 6e 2d 73 63 6f 72 |low for |non-scor|
|00000740| 69 6e 67 20 63 6f 6e 74 | 61 63 74 73 2c 20 61 6e |ing cont|acts, an|
|00000750| 64 20 63 6f 72 72 65 63 | 74 20 74 68 65 0a 70 72 |d correc|t the.pr|
|00000760| 65 76 69 6f 75 73 20 65 | 6e 74 72 79 20 69 66 20 |evious e|ntry if |
|00000770| 79 6f 75 20 6d 61 64 65 | 20 61 20 6d 69 73 74 61 |you made| a mista|
|00000780| 6b 65 2e 20 49 66 20 6e | 65 63 65 73 73 61 72 79 |ke. If n|ecessary|
|00000790| 2c 20 79 6f 75 20 63 61 | 6e 20 72 65 73 74 61 72 |, you ca|n restar|
|000007a0| 74 20 77 68 65 72 65 0a | 79 6f 75 20 6c 65 66 74 |t where.|you left|
|000007b0| 20 6f 66 66 20 61 66 74 | 65 72 20 61 20 70 72 65 | off aft|er a pre|
|000007c0| 76 69 6f 75 73 20 73 65 | 73 73 69 6f 6e 2e 20 57 |vious se|ssion. W|
|000007d0| 68 65 6e 20 74 68 65 20 | 65 6e 74 72 69 65 73 20 |hen the |entries |
|000007e0| 61 72 65 20 63 6f 6d 70 | 6c 65 74 65 2c 20 79 6f |are comp|lete, yo|
|000007f0| 75 0a 63 61 6e 20 6f 62 | 74 61 69 6e 20 61 6c 6c |u.can ob|tain all|
|00000800| 20 74 68 65 20 74 6f 74 | 61 6c 73 2c 20 70 6c 75 | the tot|als, plu|
|00000810| 73 20 75 73 65 66 75 6c | 20 73 74 61 74 69 73 74 |s useful| statist|
|00000820| 69 63 73 20 6f 6e 20 62 | 65 73 74 20 64 78 20 77 |ics on b|est dx w|
|00000830| 6f 72 6b 65 64 2c 0a 61 | 76 65 72 61 67 65 20 70 |orked,.a|verage p|
|00000840| 6f 69 6e 74 73 20 61 6e | 64 20 64 69 73 74 61 6e |oints an|d distan|
|00000850| 63 65 20 70 65 72 20 63 | 6f 6e 74 61 63 74 2e 20 |ce per c|ontact. |
|00000860| 4e 61 74 75 72 61 6c 6c | 79 2c 20 66 75 6c 6c 20 |Naturall|y, full |
|00000870| 76 61 6c 69 64 61 74 69 | 6f 6e 20 69 73 0a 69 6e |validati|on is.in|
|00000880| 63 6c 75 64 65 64 20 74 | 6f 20 72 65 6a 65 63 74 |cluded t|o reject|
|00000890| 20 27 69 6d 70 6f 73 73 | 69 62 6c 65 27 20 6c 6f | 'imposs|ible' lo|
|000008a0| 63 61 74 6f 72 73 2e 20 | 59 6f 75 20 6d 61 79 20 |cators. |You may |
|000008b0| 27 74 6f 67 67 6c 65 27 | 20 74 6f 20 74 68 65 20 |'toggle'| to the |
|000008c0| 66 69 72 73 74 0a 70 61 | 72 74 20 61 74 20 61 6e |first.pa|rt at an|
|000008d0| 79 20 74 69 6d 65 2c 20 | 69 6e 20 6f 72 64 65 72 |y time, |in order|
|000008e0| 20 74 6f 20 63 68 65 63 | 6b 20 64 65 74 61 69 6c | to chec|k detail|
|000008f0| 73 20 6f 66 20 61 20 73 | 74 61 74 69 6f 6e 20 6e |s of a s|tation n|
|00000900| 6f 74 20 67 69 76 69 6e | 67 20 68 69 73 0a 6c 6f |ot givin|g his.lo|
|00000910| 63 61 74 6f 72 2c 20 61 | 6e 64 20 74 68 65 6e 20 |cator, a|nd then |
|00000920| 63 6f 6e 74 69 6e 75 65 | 20 77 68 65 72 65 20 79 |continue| where y|
|00000930| 6f 75 20 6c 65 66 74 20 | 6f 66 66 2e 0a 0a 0a 54 |ou left |off....T|
|00000940| 48 45 20 46 49 52 53 54 | 20 53 45 43 54 49 4f 4e |HE FIRST| SECTION|
|00000950| 0a 0a 57 68 65 6e 20 79 | 6f 75 20 72 75 6e 20 74 |..When y|ou run t|
|00000960| 68 65 20 70 72 6f 67 72 | 61 6d 2c 20 79 6f 75 20 |he progr|am, you |
|00000970| 77 69 6c 6c 20 65 6e 74 | 65 72 20 74 68 65 20 66 |will ent|er the f|
|00000980| 69 72 73 74 20 73 65 63 | 74 69 6f 6e 2e 20 54 68 |irst sec|tion. Th|
|00000990| 69 73 20 66 75 6e 63 74 | 69 6f 6e 73 0a 69 6e 64 |is funct|ions.ind|
|000009a0| 65 70 65 6e 64 65 6e 74 | 6c 79 2c 20 62 75 74 20 |ependent|ly, but |
|000009b0| 6d 61 79 20 62 65 20 61 | 63 63 65 73 73 65 64 20 |may be a|ccessed |
|000009c0| 66 72 6f 6d 20 74 68 65 | 20 6d 61 69 6e 20 63 6f |from the| main co|
|000009d0| 6e 74 65 73 74 2d 73 63 | 6f 72 69 6e 67 20 70 61 |ntest-sc|oring pa|
|000009e0| 72 74 20 6f 66 0a 74 68 | 65 20 70 72 6f 67 72 61 |rt of.th|e progra|
|000009f0| 6d 20 69 66 20 72 65 71 | 75 69 72 65 64 2e 20 54 |m if req|uired. T|
|00000a00| 68 65 20 74 6f 70 20 6f | 66 20 74 68 65 20 73 63 |he top o|f the sc|
|00000a10| 72 65 65 6e 20 69 73 20 | 73 70 6c 69 74 20 69 6e |reen is |split in|
|00000a20| 74 6f 20 74 77 6f 0a 22 | 77 69 6e 64 6f 77 73 22 |to two."|windows"|
|00000a30| 3b 20 74 68 65 20 75 70 | 70 65 72 20 6f 6e 65 20 |; the up|per one |
|00000a40| 67 69 76 65 73 20 69 6e | 66 6f 72 6d 61 74 69 6f |gives in|formatio|
|00000a50| 6e 20 61 62 6f 75 74 20 | 74 68 65 20 22 68 6f 6d |n about |the "hom|
|00000a60| 65 22 20 6f 72 20 22 62 | 61 73 65 22 0a 73 74 61 |e" or "b|ase".sta|
|00000a70| 74 69 6f 6e 2c 20 61 6e | 64 20 69 73 20 6c 61 62 |tion, an|d is lab|
|00000a80| 65 6c 6c 65 64 20 22 4d | 45 22 2e 20 54 68 65 20 |elled "M|E". The |
|00000a90| 6c 6f 77 65 72 20 6f 6e | 65 20 67 69 76 65 73 20 |lower on|e gives |
|00000aa0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 61 62 6f 75 |informat|ion abou|
|00000ab0| 74 20 74 68 65 0a 6f 74 | 68 65 72 20 73 74 61 74 |t the.ot|her stat|
|00000ac0| 69 6f 6e 2c 20 61 6e 64 | 20 69 73 20 6c 61 62 65 |ion, and| is labe|
|00000ad0| 6c 6c 65 64 20 22 44 58 | 22 2e 20 42 65 6c 6f 77 |lled "DX|". Below|
|00000ae0| 20 74 68 65 20 44 58 20 | 77 69 6e 64 6f 77 20 69 | the DX |window i|
|00000af0| 73 20 61 20 6c 69 6e 65 | 20 77 68 69 63 68 0a 64 |s a line| which.d|
|00000b00| 69 73 70 6c 61 79 73 20 | 74 68 65 20 64 69 73 74 |isplays |the dist|
|00000b10| 61 6e 63 65 20 62 65 74 | 77 65 65 6e 20 74 68 65 |ance bet|ween the|
|00000b20| 20 74 77 6f 20 73 74 61 | 74 69 6f 6e 73 2c 20 74 | two sta|tions, t|
|00000b30| 68 65 20 35 30 6b 6d 20 | 72 61 64 69 61 6c 20 72 |he 50km |radial r|
|00000b40| 69 6e 67 0a 73 63 6f 72 | 65 2c 20 61 6e 64 20 61 |ing.scor|e, and a|
|00000b50| 6c 73 6f 20 74 68 65 20 | 6f 75 74 67 6f 69 6e 67 |lso the |outgoing|
|00000b60| 20 61 6e 64 20 72 65 76 | 65 72 73 65 20 62 65 61 | and rev|erse bea|
|00000b70| 72 69 6e 67 73 2e 20 54 | 68 65 72 65 20 69 73 20 |rings. T|here is |
|00000b80| 61 20 73 69 6d 70 6c 65 | 20 6d 65 6e 75 0a 74 6f |a simple| menu.to|
|00000b90| 20 65 6e 61 62 6c 65 20 | 79 6f 75 20 74 6f 20 63 | enable |you to c|
|00000ba0| 68 6f 6f 73 65 20 77 68 | 69 63 68 20 63 6f 2d 6f |hoose wh|ich co-o|
|00000bb0| 72 64 69 6e 61 74 65 73 | 20 79 6f 75 20 77 69 73 |rdinates| you wis|
|00000bc0| 68 20 74 6f 20 65 6e 74 | 65 72 2e 20 54 68 65 20 |h to ent|er. The |
|00000bd0| 3c 45 73 63 61 70 65 3e | 0a 6b 65 79 20 6d 61 79 |<Escape>|.key may|
|00000be0| 20 62 65 20 75 73 65 64 | 20 74 6f 20 72 65 74 75 | be used| to retu|
|00000bf0| 72 6e 20 74 6f 20 74 68 | 65 20 6d 65 6e 75 2c 20 |rn to th|e menu, |
|00000c00| 61 6e 64 20 69 66 20 69 | 74 20 69 73 20 70 72 65 |and if i|t is pre|
|00000c10| 73 73 65 64 20 61 67 61 | 69 6e 20 69 6e 73 74 65 |ssed aga|in inste|
|00000c20| 61 64 0a 6f 66 20 73 65 | 6c 65 63 74 69 6e 67 20 |ad.of se|lecting |
|00000c30| 66 72 6f 6d 20 74 68 65 | 20 6d 65 6e 75 2c 20 74 |from the| menu, t|
|00000c40| 68 65 6e 20 79 6f 75 20 | 77 69 6c 6c 20 6d 6f 76 |hen you |will mov|
|00000c50| 65 20 69 6e 74 6f 20 74 | 68 65 20 6f 74 68 65 72 |e into t|he other|
|00000c60| 20 73 65 63 74 69 6f 6e | 20 6f 66 0a 74 68 65 20 | section| of.the |
|00000c70| 70 72 6f 67 72 61 6d 2e | 0a 0a 59 6f 75 20 6d 61 |program.|..You ma|
|00000c80| 79 20 65 6e 74 65 72 20 | 4c 6f 6e 67 69 74 75 64 |y enter |Longitud|
|00000c90| 65 20 61 6e 64 20 4c 61 | 74 69 74 75 64 65 2c 20 |e and La|titude, |
|00000ca0| 6f 72 20 4e 61 74 69 6f | 6e 61 6c 20 47 72 69 64 |or Natio|nal Grid|
|00000cb0| 20 72 65 66 65 72 65 6e | 63 65 2c 20 6f 72 0a 65 | referen|ce, or.e|
|00000cc0| 69 74 68 65 72 20 6f 66 | 20 74 77 6f 20 6c 6f 63 |ither of| two loc|
|00000cd0| 61 74 6f 72 20 63 6f 64 | 65 73 2e 20 54 68 65 20 |ator cod|es. The |
|00000ce0| 66 69 72 73 74 20 69 73 | 20 74 68 65 20 66 61 6d |first is| the fam|
|00000cf0| 69 6c 69 61 72 20 66 69 | 76 65 2d 64 69 67 69 74 |iliar fi|ve-digit|
|00000d00| 20 22 51 52 41 22 20 6f | 72 0a 22 51 54 48 22 20 | "QRA" o|r."QTH" |
|00000d10| 6c 6f 63 61 74 6f 72 20 | 63 6f 64 65 2c 20 73 75 |locator |code, su|
|00000d20| 63 68 20 61 73 20 5a 4d | 34 33 65 20 66 6f 72 20 |ch as ZM|43e for |
|00000d30| 74 68 65 20 63 69 74 79 | 20 6f 66 20 43 6f 76 65 |the city| of Cove|
|00000d40| 6e 74 72 79 2e 20 54 68 | 65 20 73 65 63 6f 6e 64 |ntry. Th|e second|
|00000d50| 20 69 73 0a 74 68 65 20 | 6e 65 77 20 73 69 78 2d | is.the |new six-|
|00000d60| 64 69 67 69 74 20 4d 61 | 69 64 65 6e 68 65 61 64 |digit Ma|idenhead|
|00000d70| 20 55 6e 69 76 65 72 73 | 61 6c 20 4c 6f 63 61 74 | Univers|al Locat|
|00000d80| 6f 72 20 73 79 73 74 65 | 6d 20 70 72 6f 70 6f 73 |or syste|m propos|
|00000d90| 65 64 20 62 79 20 20 47 | 4d 34 41 4e 42 2c 0a 73 |ed by  G|M4ANB,.s|
|00000da0| 75 63 68 20 61 73 20 49 | 4f 39 32 66 6a 20 66 6f |uch as I|O92fj fo|
|00000db0| 72 20 43 6f 76 65 6e 74 | 72 79 2e 20 44 65 74 61 |r Covent|ry. Deta|
|00000dc0| 69 6c 73 20 6f 66 20 74 | 68 65 20 47 4d 34 41 4e |ils of t|he GM4AN|
|00000dd0| 42 20 73 79 73 74 65 6d | 20 63 61 6e 20 62 65 20 |B system| can be |
|00000de0| 66 6f 75 6e 64 20 69 6e | 0a 52 61 64 69 6f 20 43 |found in|.Radio C|
|00000df0| 6f 6d 6d 75 6e 69 63 61 | 74 69 6f 6e 20 6d 61 67 |ommunica|tion mag|
|00000e00| 61 7a 69 6e 65 2c 20 4e | 6f 76 65 6d 62 65 72 20 |azine, N|ovember |
|00000e10| 31 39 38 30 20 61 6e 64 | 20 4f 63 74 6f 62 65 72 |1980 and| October|
|00000e20| 20 31 39 38 34 2c 20 61 | 6e 64 20 69 6e 20 74 68 | 1984, a|nd in th|
|00000e30| 65 0a 63 75 72 72 65 6e | 74 20 49 6e 74 65 72 6e |e.curren|t Intern|
|00000e40| 61 74 69 6f 6e 61 6c 20 | 56 48 46 20 46 4d 20 47 |ational |VHF FM G|
|00000e50| 75 69 64 65 2e 20 49 74 | 20 64 6f 65 73 20 6e 6f |uide. It| does no|
|00000e60| 74 20 6d 61 74 74 65 72 | 20 69 66 20 79 6f 75 20 |t matter| if you |
|00000e70| 74 79 70 65 20 69 6e 0a | 75 70 70 65 72 20 6f 72 |type in.|upper or|
|00000e80| 20 6c 6f 77 65 72 2d 63 | 61 73 65 2c 20 6f 72 20 | lower-c|ase, or |
|00000e90| 61 6e 79 20 63 6f 6d 62 | 69 6e 61 74 69 6f 6e 2c |any comb|ination,|
|00000ea0| 20 61 73 20 74 68 65 20 | 73 63 72 65 65 6e 20 77 | as the |screen w|
|00000eb0| 69 6c 6c 20 61 6c 77 61 | 79 73 20 73 68 6f 77 0a |ill alwa|ys show.|
|00000ec0| 74 68 65 20 63 6f 6e 76 | 65 6e 74 69 6f 6e 61 6c |the conv|entional|
|00000ed0| 20 66 6f 72 6d 2e 20 54 | 68 65 20 4f 53 20 4d 41 | form. T|he OS MA|
|00000ee0| 50 20 72 65 66 65 72 65 | 6e 63 65 20 6d 75 73 74 |P refere|nce must|
|00000ef0| 20 62 65 20 65 6e 74 65 | 72 65 64 20 69 6e 20 66 | be ente|red in f|
|00000f00| 75 6c 6c 2c 20 74 6f 20 | 61 6e 0a 61 63 63 75 72 |ull, to |an.accur|
|00000f10| 61 63 79 20 6f 66 20 31 | 30 30 20 6d 65 74 72 65 |acy of 1|00 metre|
|00000f20| 73 2e 20 46 6f 72 20 65 | 78 61 6d 70 6c 65 20 43 |s. For e|xample C|
|00000f30| 6f 76 65 6e 74 72 79 20 | 63 69 74 79 20 63 65 6e |oventry |city cen|
|00000f40| 74 72 65 20 77 6f 75 6c | 64 20 62 65 0a 53 50 3a |tre woul|d be.SP:|
|00000f50| 33 33 35 3a 37 38 35 20 | 2e 20 59 6f 75 20 63 61 |335:785 |. You ca|
|00000f60| 6e 20 61 6c 73 6f 20 65 | 6e 74 65 72 20 74 68 65 |n also e|nter the|
|00000f70| 20 57 41 42 20 63 6f 64 | 65 2c 20 62 79 20 27 70 | WAB cod|e, by 'p|
|00000f80| 61 64 64 69 6e 67 27 20 | 69 74 20 77 69 74 68 20 |adding' |it with |
|00000f90| 35 30 2c 20 61 73 0a 69 | 74 20 69 73 20 73 69 6d |50, as.i|t is sim|
|00000fa0| 70 6c 79 20 61 6e 20 61 | 62 62 72 65 76 69 61 74 |ply an a|bbreviat|
|00000fb0| 69 6f 6e 20 6f 66 20 74 | 68 65 20 4d 61 70 20 52 |ion of t|he Map R|
|00000fc0| 65 66 65 72 65 6e 63 65 | 2e 20 45 67 2e 2c 20 66 |eference|. Eg., f|
|00000fd0| 6f 72 20 53 45 33 31 20 | 65 6e 74 65 72 0a 53 45 |or SE31 |enter.SE|
|00000fe0| 3a 33 35 30 3a 31 35 30 | 2c 20 62 75 74 20 72 65 |:350:150|, but re|
|00000ff0| 6d 65 6d 62 65 72 20 74 | 68 69 73 20 69 73 20 6f |member t|his is o|
|00001000| 6e 6c 79 20 61 63 63 75 | 72 61 74 65 20 74 6f 20 |nly accu|rate to |
|00001010| 77 69 74 68 69 6e 20 37 | 20 6b 6d 73 2e 20 49 66 |within 7| kms. If|
|00001020| 20 74 68 65 20 4d 61 70 | 0a 52 65 66 65 72 65 6e | the Map|.Referen|
|00001030| 63 65 20 69 73 20 72 65 | 6a 65 63 74 65 64 2c 20 |ce is re|jected, |
|00001040| 74 68 65 6e 20 74 68 69 | 73 20 6d 65 61 6e 73 20 |then thi|s means |
|00001050| 74 68 61 74 20 74 68 65 | 20 70 6f 73 69 74 69 6f |that the| positio|
|00001060| 6e 20 69 73 20 6f 75 74 | 73 69 64 65 20 74 68 65 |n is out|side the|
|00001070| 0a 72 61 6e 67 65 20 6f | 66 20 74 68 65 20 67 72 |.range o|f the gr|
|00001080| 69 64 20 73 79 73 74 65 | 6d 2e 20 4e 6f 74 65 20 |id syste|m. Note |
|00001090| 74 68 61 74 20 74 68 65 | 20 43 68 61 6e 6e 65 6c |that the| Channel|
|000010a0| 20 49 73 6c 61 6e 64 73 | 2c 20 53 63 69 6c 6c 79 | Islands|, Scilly|
|000010b0| 20 49 73 6c 65 73 2c 20 | 61 6e 64 0a 6d 75 63 68 | Isles, |and.much|
|000010c0| 20 6f 66 20 74 68 65 20 | 49 72 69 73 68 20 52 65 | of the |Irish Re|
|000010d0| 70 75 62 6c 69 63 20 61 | 72 65 20 6e 6f 74 20 63 |public a|re not c|
|000010e0| 6f 76 65 72 65 64 20 65 | 69 74 68 65 72 2e 20 49 |overed e|ither. I|
|000010f0| 74 20 69 73 20 67 65 6e | 65 72 61 6c 6c 79 20 6d |t is gen|erally m|
|00001100| 6f 72 65 0a 63 6f 6e 76 | 65 6e 69 65 6e 74 20 74 |ore.conv|enient t|
|00001110| 6f 20 6c 6f 6f 6b 20 75 | 70 20 61 20 67 72 69 64 |o look u|p a grid|
|00001120| 20 72 65 66 65 72 65 6e | 63 65 20 74 68 61 6e 20 | referen|ce than |
|00001130| 6c 69 6e 65 73 20 6f 66 | 20 6c 6f 6e 67 69 74 75 |lines of| longitu|
|00001140| 64 65 20 61 6e 64 0a 6c | 61 74 69 74 75 64 65 2c |de and.l|atitude,|
|00001150| 20 61 73 20 74 68 65 20 | 6c 61 74 74 65 72 20 61 | as the |latter a|
|00001160| 72 65 20 73 6c 69 67 68 | 74 6c 79 20 63 75 72 76 |re sligh|tly curv|
|00001170| 65 64 2c 20 61 6e 64 20 | 61 74 20 61 6e 20 61 6e |ed, and |at an an|
|00001180| 67 6c 65 20 6f 6e 20 4f | 53 20 6d 61 70 73 2e 0a |gle on O|S maps..|
|00001190| 54 6f 20 63 6f 6d 70 6c | 65 74 65 20 74 68 65 20 |To compl|ete the |
|000011a0| 57 41 42 20 63 6f 64 65 | 2c 20 79 6f 75 20 73 68 |WAB code|, you sh|
|000011b0| 6f 75 6c 64 20 73 70 65 | 63 69 66 79 20 74 68 65 |ould spe|cify the|
|000011c0| 20 6c 6f 63 61 6c 20 44 | 69 73 74 72 69 63 74 20 | local D|istrict |
|000011d0| 43 6f 75 6e 63 69 6c 2c | 0a 62 75 74 20 74 68 69 |Council,|.but thi|
|000011e0| 73 20 69 73 20 62 65 79 | 6f 6e 64 20 74 68 65 20 |s is bey|ond the |
|000011f0| 73 63 6f 70 65 20 6f 66 | 20 74 68 69 73 20 70 72 |scope of| this pr|
|00001200| 6f 67 72 61 6d 21 0a 0a | 57 68 65 6e 20 79 6f 75 |ogram!..|When you|
|00001210| 20 65 6e 74 65 72 20 61 | 20 6c 6f 63 61 74 69 6f | enter a| locatio|
|00001220| 6e 2c 20 69 74 20 77 69 | 6c 6c 20 61 70 70 65 61 |n, it wi|ll appea|
|00001230| 72 20 69 6e 20 74 68 65 | 20 6c 6f 77 65 72 20 77 |r in the| lower w|
|00001240| 69 6e 64 6f 77 2c 20 74 | 6f 67 65 74 68 65 72 0a |indow, t|ogether.|
|00001250| 77 69 74 68 20 74 68 65 | 20 65 71 75 69 76 61 6c |with the| equival|
|00001260| 65 6e 74 20 69 6e 20 61 | 6c 6c 20 74 68 65 20 6f |ent in a|ll the o|
|00001270| 74 68 65 72 20 63 6f 2d | 6f 72 64 69 6e 61 74 65 |ther co-|ordinate|
|00001280| 73 2e 20 54 68 65 20 63 | 6f 2d 6f 72 64 69 6e 61 |s. The c|o-ordina|
|00001290| 74 65 73 20 79 6f 75 0a | 61 63 74 75 61 6c 6c 79 |tes you.|actually|
|000012a0| 20 65 6e 74 65 72 65 64 | 20 77 69 6c 6c 20 73 68 | entered| will sh|
|000012b0| 6f 77 20 75 70 20 74 6f | 20 64 69 73 74 69 6e 67 |ow up to| disting|
|000012c0| 75 69 73 68 20 74 68 65 | 6d 20 66 72 6f 6d 20 74 |uish the|m from t|
|000012d0| 68 65 20 22 74 72 61 6e | 73 6c 61 74 69 6f 6e 73 |he "tran|slations|
|000012e0| 22 2e 0a 4f 6e 20 74 68 | 65 20 42 42 43 20 74 68 |"..On th|e BBC th|
|000012f0| 65 79 20 61 72 65 20 73 | 68 6f 77 6e 20 69 6e 20 |ey are s|hown in |
|00001300| 79 65 6c 6c 6f 77 20 69 | 6e 73 74 65 61 64 20 6f |yellow i|nstead o|
|00001310| 66 20 63 79 61 6e 2c 20 | 61 6e 64 20 6f 6e 20 74 |f cyan, |and on t|
|00001320| 68 65 20 45 6c 65 63 74 | 72 6f 6e 0a 74 68 65 79 |he Elect|ron.they|
|00001330| 20 61 72 65 20 6d 61 72 | 6b 65 64 20 62 79 20 61 | are mar|ked by a|
|00001340| 20 6c 69 74 74 6c 65 20 | 41 63 6f 72 6e 20 73 79 | little |Acorn sy|
|00001350| 6d 62 6f 6c 2e 20 54 68 | 65 20 66 69 72 73 74 20 |mbol. Th|e first |
|00001360| 65 6e 74 72 79 20 6d 61 | 64 65 20 77 69 6c 6c 20 |entry ma|de will |
|00001370| 61 6c 73 6f 0a 62 65 20 | 74 72 61 6e 73 66 65 72 |also.be |transfer|
|00001380| 72 65 64 20 69 6e 74 6f | 20 74 68 65 20 75 70 70 |red into| the upp|
|00001390| 65 72 20 77 69 6e 64 6f | 77 2c 20 61 6e 64 20 77 |er windo|w, and w|
|000013a0| 69 6c 6c 20 62 65 20 74 | 61 6b 65 6e 20 61 73 20 |ill be t|aken as |
|000013b0| 74 68 65 20 68 6f 6d 65 | 0a 73 74 61 74 69 6f 6e |the home|.station|
|000013c0| 20 75 6e 74 69 6c 20 79 | 6f 75 20 6e 6f 6d 69 6e | until y|ou nomin|
|000013d0| 61 74 65 20 61 20 6e 65 | 77 20 6f 6e 65 2e 20 57 |ate a ne|w one. W|
|000013e0| 68 65 6e 20 79 6f 75 20 | 65 6e 74 65 72 20 66 75 |hen you |enter fu|
|000013f0| 72 74 68 65 72 20 6c 6f | 63 61 74 69 6f 6e 73 2c |rther lo|cations,|
|00001400| 0a 74 68 65 79 20 77 69 | 6c 6c 20 6f 6e 6c 79 20 |.they wi|ll only |
|00001410| 67 6f 20 69 6e 74 6f 20 | 74 68 65 20 6c 6f 77 65 |go into |the lowe|
|00001420| 72 20 77 69 6e 64 6f 77 | 2c 20 61 6e 64 20 74 68 |r window|, and th|
|00001430| 65 20 6c 69 6e 65 20 62 | 65 6c 6f 77 20 77 69 6c |e line b|elow wil|
|00001440| 6c 20 69 6e 64 69 63 61 | 74 65 0a 74 68 65 20 67 |l indica|te.the g|
|00001450| 72 65 61 74 2d 63 69 72 | 63 6c 65 20 64 69 73 74 |reat-cir|cle dist|
|00001460| 61 6e 63 65 20 61 6e 64 | 20 62 65 61 72 69 6e 67 |ance and| bearing|
|00001470| 73 2e 20 4e 6f 74 65 20 | 74 68 61 74 20 74 68 65 |s. Note |that the|
|00001480| 20 6f 75 74 67 6f 69 6e | 67 20 61 6e 64 20 72 65 | outgoin|g and re|
|00001490| 76 65 72 73 65 0a 62 65 | 61 72 69 6e 67 73 20 77 |verse.be|arings w|
|000014a0| 69 6c 6c 20 6f 6e 6c 79 | 20 62 65 20 31 38 30 20 |ill only| be 180 |
|000014b0| 64 65 67 72 65 65 73 20 | 61 70 61 72 74 20 6f 76 |degrees |apart ov|
|000014c0| 65 72 20 72 65 6c 61 74 | 69 76 65 6c 79 20 73 6d |er relat|ively sm|
|000014d0| 61 6c 6c 20 64 69 73 74 | 61 6e 63 65 73 2c 0a 61 |all dist|ances,.a|
|000014e0| 77 61 79 20 66 72 6f 6d | 20 74 68 65 20 70 6f 6c |way from| the pol|
|000014f0| 65 73 2e 20 49 66 20 6f | 6e 65 20 73 74 61 74 69 |es. If o|ne stati|
|00001500| 6f 6e 20 69 73 20 63 6c | 6f 73 65 20 74 6f 20 6f |on is cl|ose to o|
|00001510| 6e 65 20 6f 66 20 74 68 | 65 20 70 6f 6c 65 73 2c |ne of th|e poles,|
|00001520| 20 74 68 65 6e 20 74 68 | 65 0a 62 65 61 72 69 6e | then th|e.bearin|
|00001530| 67 73 20 63 61 6e 20 61 | 70 70 65 61 72 20 76 65 |gs can a|ppear ve|
|00001540| 72 79 20 73 74 72 61 6e | 67 65 20 69 6e 64 65 65 |ry stran|ge indee|
|00001550| 64 2c 20 62 75 74 20 74 | 68 69 73 20 69 73 20 71 |d, but t|his is q|
|00001560| 75 69 74 65 20 6e 61 74 | 75 72 61 6c 2e 0a 0a 54 |uite nat|ural...T|
|00001570| 68 65 20 4f 53 20 4e 61 | 74 69 6f 6e 61 6c 20 47 |he OS Na|tional G|
|00001580| 72 69 64 20 64 6f 65 73 | 20 6e 6f 74 20 65 78 69 |rid does| not exi|
|00001590| 73 74 20 62 65 79 6f 6e | 64 20 74 68 65 20 6c 61 |st beyon|d the la|
|000015a0| 6e 64 20 61 72 65 61 20 | 6f 66 20 74 68 65 20 55 |nd area |of the U|
|000015b0| 4b 2c 20 61 6e 64 0a 74 | 68 65 20 35 2d 64 69 67 |K, and.t|he 5-dig|
|000015c0| 69 74 20 6c 6f 63 61 74 | 6f 72 20 73 79 73 74 65 |it locat|or syste|
|000015d0| 6d 20 64 6f 65 73 20 6e | 6f 74 20 65 78 69 73 74 |m does n|ot exist|
|000015e0| 20 62 65 79 6f 6e 64 20 | 45 75 72 6f 70 65 2c 20 | beyond |Europe, |
|000015f0| 73 6f 20 74 68 65 73 65 | 20 64 69 73 70 6c 61 79 |so these| display|
|00001600| 73 0a 77 69 6c 6c 20 73 | 68 6f 77 20 74 68 65 20 |s.will s|how the |
|00001610| 6d 65 73 73 61 67 65 20 | 22 4c 69 6d 69 74 73 22 |message |"Limits"|
|00001620| 20 69 66 20 74 68 65 20 | 70 6f 73 69 74 69 6f 6e | if the |position|
|00001630| 20 69 73 20 6f 75 74 73 | 69 64 65 20 74 68 65 20 | is outs|ide the |
|00001640| 61 70 70 72 6f 70 72 69 | 61 74 65 0a 61 72 65 61 |appropri|ate.area|
|00001650| 2e 20 4f 6e 6c 79 20 73 | 63 6f 72 65 20 70 6f 69 |. Only s|core poi|
|00001660| 6e 74 73 20 62 65 6c 6f | 77 20 32 30 30 20 61 72 |nts belo|w 200 ar|
|00001670| 65 20 64 69 73 70 6c 61 | 79 65 64 2c 20 61 73 20 |e displa|yed, as |
|00001680| 68 69 67 68 65 72 20 66 | 69 67 75 72 65 73 20 61 |higher f|igures a|
|00001690| 72 65 0a 6f 75 74 73 69 | 64 65 20 56 48 46 20 44 |re.outsi|de VHF D|
|000016a0| 58 20 64 69 73 74 61 6e | 63 65 73 2e 20 59 6f 75 |X distan|ces. You|
|000016b0| 20 6d 61 79 20 6e 6f 6d | 69 6e 61 74 65 20 61 20 | may nom|inate a |
|000016c0| 6e 65 77 20 62 61 73 65 | 20 73 74 61 74 69 6f 6e |new base| station|
|000016d0| 20 61 74 20 61 6e 79 20 | 74 69 6d 65 2c 0a 62 79 | at any |time,.by|
|000016e0| 20 73 65 6c 65 63 74 69 | 6e 67 20 6f 70 74 69 6f | selecti|ng optio|
|000016f0| 6e 20 34 20 6f 6e 20 74 | 68 65 20 6d 65 6e 75 2e |n 4 on t|he menu.|
|00001700| 20 54 68 69 73 20 77 69 | 6c 6c 20 6d 6f 76 65 20 | This wi|ll move |
|00001710| 74 68 65 20 6c 6f 63 61 | 74 69 6f 6e 20 69 6e 20 |the loca|tion in |
|00001720| 74 68 65 0a 6c 6f 77 65 | 72 20 77 69 6e 64 6f 77 |the.lowe|r window|
|00001730| 20 75 70 20 74 6f 20 74 | 68 65 20 75 70 70 65 72 | up to t|he upper|
|00001740| 20 6f 6e 65 2e 20 54 6f | 20 63 68 61 6e 67 65 20 | one. To| change |
|00001750| 74 6f 20 65 6e 74 65 72 | 69 6e 67 20 61 20 64 69 |to enter|ing a di|
|00001760| 66 66 65 72 65 6e 74 20 | 74 79 70 65 0a 6f 66 20 |fferent |type.of |
|00001770| 63 6f 2d 6f 72 64 69 6e | 61 74 65 2c 20 70 72 65 |co-ordin|ate, pre|
|00001780| 73 73 20 3c 45 73 63 61 | 70 65 3e 20 74 6f 20 67 |ss <Esca|pe> to g|
|00001790| 69 76 65 20 79 6f 75 20 | 61 63 63 65 73 73 20 74 |ive you |access t|
|000017a0| 6f 20 74 68 65 20 6d 65 | 6e 75 2e 20 49 66 20 79 |o the me|nu. If y|
|000017b0| 6f 75 0a 70 72 65 73 73 | 20 3c 45 73 63 61 70 65 |ou.press| <Escape|
|000017c0| 3e 20 61 67 61 69 6e 2c | 20 79 6f 75 20 77 69 6c |> again,| you wil|
|000017d0| 6c 20 6d 6f 76 65 20 74 | 6f 20 74 68 65 20 6f 74 |l move t|o the ot|
|000017e0| 68 65 72 20 73 65 63 74 | 69 6f 6e 20 6f 66 20 74 |her sect|ion of t|
|000017f0| 68 65 20 70 72 6f 67 72 | 61 6d 2e 0a 59 6f 75 20 |he progr|am..You |
|00001800| 77 69 6c 6c 20 6c 6f 73 | 65 20 61 6c 6c 20 69 6e |will los|e all in|
|00001810| 66 6f 72 6d 61 74 69 6f | 6e 20 6f 6e 20 74 68 65 |formatio|n on the|
|00001820| 20 73 63 72 65 65 6e 20 | 77 68 65 6e 20 79 6f 75 | screen |when you|
|00001830| 20 64 6f 20 74 68 69 73 | 2c 20 62 75 74 20 74 68 | do this|, but th|
|00001840| 69 73 20 69 73 0a 6e 6f | 74 20 74 68 65 20 63 61 |is is.no|t the ca|
|00001850| 73 65 20 77 68 65 6e 20 | 72 65 74 75 72 6e 69 6e |se when |returnin|
|00001860| 67 2c 20 61 73 20 79 6f | 75 20 77 69 6c 6c 20 64 |g, as yo|u will d|
|00001870| 69 73 63 6f 76 65 72 2e | 0a 0a 0a 54 48 45 20 53 |iscover.|...THE S|
|00001880| 45 43 4f 4e 44 20 53 45 | 43 54 49 4f 4e 0a 0a 57 |ECOND SE|CTION..W|
|00001890| 68 65 6e 20 79 6f 75 20 | 45 73 63 61 70 65 20 66 |hen you |Escape f|
|000018a0| 72 6f 6d 20 74 68 65 20 | 66 69 72 73 74 20 73 65 |rom the |first se|
|000018b0| 63 74 69 6f 6e 2c 20 79 | 6f 75 20 77 69 6c 6c 20 |ction, y|ou will |
|000018c0| 65 6e 74 65 72 20 74 68 | 65 20 73 65 63 6f 6e 64 |enter th|e second|
|000018d0| 2c 20 61 6e 64 0a 77 69 | 6c 6c 20 62 65 20 61 73 |, and.wi|ll be as|
|000018e0| 6b 65 64 20 69 66 20 74 | 68 69 73 20 69 73 20 74 |ked if t|his is t|
|000018f0| 68 65 20 66 69 72 73 74 | 20 73 65 73 73 69 6f 6e |he first| session|
|00001900| 20 6f 6e 20 74 68 61 74 | 20 70 61 72 74 69 63 75 | on that| particu|
|00001910| 6c 61 72 20 63 6f 6e 74 | 65 73 74 2e 20 59 6f 75 |lar cont|est. You|
|00001920| 0a 6d 61 79 20 45 73 63 | 61 70 65 20 6f 75 74 20 |.may Esc|ape out |
|00001930| 6f 66 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 61 |of the p|rogram a|
|00001940| 6c 74 6f 67 65 74 68 65 | 72 20 61 74 20 74 68 69 |ltogethe|r at thi|
|00001950| 73 20 73 74 61 67 65 2c | 20 69 66 20 79 6f 75 20 |s stage,| if you |
|00001960| 77 69 73 68 2e 20 49 66 | 0a 79 6f 75 20 61 6e 73 |wish. If|.you ans|
|00001970| 77 65 72 20 22 4e 22 2c | 20 74 68 65 6e 20 79 6f |wer "N",| then yo|
|00001980| 75 20 77 69 6c 6c 20 62 | 65 20 70 72 6f 6d 70 74 |u will b|e prompt|
|00001990| 65 64 20 74 6f 20 67 69 | 76 65 20 64 65 74 61 69 |ed to gi|ve detai|
|000019a0| 6c 73 20 6f 66 20 74 68 | 65 20 6c 61 73 74 0a 63 |ls of th|e last.c|
|000019b0| 6f 6e 74 61 63 74 20 64 | 65 61 6c 74 20 77 69 74 |ontact d|ealt wit|
|000019c0| 68 20 6f 6e 20 74 68 65 | 20 70 72 65 76 69 6f 75 |h on the| previou|
|000019d0| 73 20 73 65 73 73 69 6f | 6e 2c 20 61 6e 64 20 6f |s sessio|n, and o|
|000019e0| 66 20 74 68 65 20 76 61 | 72 69 6f 75 73 20 74 6f |f the va|rious to|
|000019f0| 74 61 6c 73 0a 6f 62 74 | 61 69 6e 65 64 2e 20 49 |tals.obt|ained. I|
|00001a00| 66 20 79 6f 75 20 61 6e | 73 77 65 72 20 22 59 22 |f you an|swer "Y"|
|00001a10| 2c 20 79 6f 75 20 77 69 | 6c 6c 20 74 68 65 6e 20 |, you wi|ll then |
|00001a20| 62 65 20 70 72 6f 6d 70 | 74 65 64 20 66 6f 72 20 |be promp|ted for |
|00001a30| 79 6f 75 72 20 6f 77 6e | 20 22 62 61 73 65 22 0a |your own| "base".|
|00001a40| 6c 6f 63 61 74 6f 72 20 | 63 6f 64 65 2e 20 4e 6f |locator |code. No|
|00001a50| 74 65 20 74 68 61 74 20 | 74 68 69 73 20 69 73 20 |te that |this is |
|00001a60| 71 75 69 74 65 20 69 6e | 64 65 70 65 6e 64 65 6e |quite in|dependen|
|00001a70| 74 20 6f 66 20 61 6e 79 | 20 65 6e 74 72 69 65 73 |t of any| entries|
|00001a80| 20 77 68 69 63 68 20 79 | 6f 75 0a 6d 61 64 65 20 | which y|ou.made |
|00001a90| 69 6e 20 74 68 65 20 66 | 69 72 73 74 20 73 65 63 |in the f|irst sec|
|00001aa0| 74 69 6f 6e 2e 20 59 6f | 75 20 6d 61 79 20 65 6e |tion. Yo|u may en|
|00001ab0| 74 65 72 20 65 69 74 68 | 65 72 20 35 20 6f 72 20 |ter eith|er 5 or |
|00001ac0| 36 2d 64 69 67 69 74 20 | 6c 6f 63 61 74 6f 72 73 |6-digit |locators|
|00001ad0| 20 61 73 0a 79 6f 75 20 | 70 72 65 66 65 72 2e 20 | as.you |prefer. |
|00001ae0| 48 61 76 69 6e 67 20 64 | 6f 6e 65 20 74 68 61 74 |Having d|one that|
|00001af0| 2c 20 79 6f 75 20 61 72 | 65 20 70 72 6f 6d 70 74 |, you ar|e prompt|
|00001b00| 65 64 20 74 6f 20 65 6e | 74 65 72 20 74 68 65 20 |ed to en|ter the |
|00001b10| 6c 6f 63 61 74 6f 72 73 | 20 6f 66 0a 65 61 63 68 |locators| of.each|
|00001b20| 20 73 74 61 74 69 6f 6e | 20 77 6f 72 6b 65 64 20 | station| worked |
|00001b30| 61 67 61 69 6e 73 74 20 | 74 68 65 20 73 65 72 69 |against |the seri|
|00001b40| 61 6c 20 6e 75 6d 62 65 | 72 2e 20 59 6f 75 20 6d |al numbe|r. You m|
|00001b50| 61 79 20 65 6e 74 65 72 | 20 65 69 74 68 65 72 20 |ay enter| either |
|00001b60| 35 20 6f 72 0a 36 2d 64 | 69 67 69 74 20 6c 6f 63 |5 or.6-d|igit loc|
|00001b70| 61 74 6f 72 73 2c 20 69 | 6e 20 61 6e 79 20 63 6f |ators, i|n any co|
|00001b80| 6d 62 69 6e 61 74 69 6f | 6e 2e 20 49 6e 20 61 64 |mbinatio|n. In ad|
|00001b90| 64 69 74 69 6f 6e 2c 20 | 74 68 65 72 65 20 61 72 |dition, |there ar|
|00001ba0| 65 20 73 65 76 65 72 61 | 6c 0a 63 6f 6d 6d 61 6e |e severa|l.comman|
|00001bb0| 64 73 20 61 76 61 69 6c | 61 62 6c 65 2c 20 61 6e |ds avail|able, an|
|00001bc0| 64 20 74 68 65 73 65 20 | 61 72 65 20 73 75 6d 6d |d these |are summ|
|00001bd0| 61 72 69 7a 65 64 20 61 | 74 20 74 68 65 20 74 6f |arized a|t the to|
|00001be0| 70 20 6f 66 20 74 68 65 | 20 73 63 72 65 65 6e 2e |p of the| screen.|
|00001bf0| 0a 22 4f 4e 22 20 77 69 | 6c 6c 20 61 63 74 69 76 |."ON" wi|ll activ|
|00001c00| 61 74 65 20 74 68 65 20 | 70 72 69 6e 74 65 72 20 |ate the |printer |
|00001c10| 69 66 20 79 6f 75 20 77 | 61 6e 74 20 68 61 72 64 |if you w|ant hard|
|00001c20| 20 63 6f 70 79 20 6f 66 | 20 65 61 63 68 20 63 6f | copy of| each co|
|00001c30| 6e 74 61 63 74 2c 20 61 | 6e 64 0a 22 4f 46 46 22 |ntact, a|nd."OFF"|
|00001c40| 20 77 69 6c 6c 20 63 61 | 6e 63 65 6c 20 69 74 2e | will ca|ncel it.|
|00001c50| 20 54 68 65 73 65 20 74 | 77 6f 20 63 6f 6d 6d 61 | These t|wo comma|
|00001c60| 6e 64 73 20 61 72 65 20 | 61 63 6b 6e 6f 77 6c 65 |nds are |acknowle|
|00001c70| 64 67 65 64 20 77 69 74 | 68 20 61 20 70 69 6e 67 |dged wit|h a ping|
|00001c80| 69 6e 67 0a 6f 72 20 62 | 6c 65 65 70 69 6e 67 20 |ing.or b|leeping |
|00001c90| 6e 6f 69 73 65 2c 20 61 | 6e 64 20 74 68 65 20 70 |noise, a|nd the p|
|00001ca0| 72 69 6e 74 65 72 20 66 | 6c 61 67 20 61 74 20 74 |rinter f|lag at t|
|00001cb0| 68 65 20 74 6f 70 20 72 | 69 67 68 74 20 6f 66 20 |he top r|ight of |
|00001cc0| 74 68 65 20 73 63 72 65 | 65 6e 0a 77 69 6c 6c 20 |the scre|en.will |
|00001cd0| 73 68 6f 77 20 74 68 65 | 20 63 75 72 72 65 6e 74 |show the| current|
|00001ce0| 20 73 74 61 74 75 73 2e | 20 49 66 20 79 6f 75 20 | status.| If you |
|00001cf0| 65 6e 74 65 72 20 61 6e | 20 69 6e 76 61 6c 69 64 |enter an| invalid|
|00001d00| 20 6c 6f 63 61 74 6f 72 | 2c 20 73 75 63 68 20 61 | locator|, such a|
|00001d10| 73 0a 5a 4e 32 33 69 2c | 20 6f 72 20 5a 53 39 32 |s.ZN23i,| or ZS92|
|00001d20| 6b 6c 2c 20 74 68 65 6e | 20 61 20 6e 61 73 74 79 |kl, then| a nasty|
|00001d30| 20 6e 6f 69 73 65 20 77 | 69 6c 6c 20 77 61 72 6e | noise w|ill warn|
|00001d40| 20 79 6f 75 2c 20 61 6e | 64 20 79 6f 75 20 77 69 | you, an|d you wi|
|00001d50| 6c 6c 20 62 65 0a 72 65 | 2d 70 72 6f 6d 70 74 65 |ll be.re|-prompte|
|00001d60| 64 2e 20 49 6e 20 6f 72 | 64 65 72 20 74 6f 20 6b |d. In or|der to k|
|00001d70| 65 65 70 20 74 68 65 20 | 73 65 72 69 61 6c 20 6e |eep the |serial n|
|00001d80| 75 6d 62 65 72 73 20 69 | 6e 20 73 65 71 75 65 6e |umbers i|n sequen|
|00001d90| 63 65 2c 20 79 6f 75 20 | 6d 61 79 0a 65 6e 74 65 |ce, you |may.ente|
|00001da0| 72 20 22 4e 53 22 20 66 | 6f 72 20 4e 6f 6e 2d 53 |r "NS" f|or Non-S|
|00001db0| 63 6f 72 69 6e 67 20 63 | 6f 6e 74 61 63 74 73 2c |coring c|ontacts,|
|00001dc0| 20 61 6e 64 20 74 68 65 | 73 65 20 61 72 65 20 73 | and the|se are s|
|00001dd0| 63 6f 72 65 64 20 61 73 | 20 7a 65 72 6f 2e 20 49 |cored as| zero. I|
|00001de0| 66 20 79 6f 75 0a 61 63 | 63 69 64 65 6e 74 61 6c |f you.ac|cidental|
|00001df0| 6c 79 20 74 79 70 65 20 | 61 6e 20 69 6e 63 6f 72 |ly type |an incor|
|00001e00| 72 65 63 74 20 62 75 74 | 20 76 61 6c 69 64 20 6c |rect but| valid l|
|00001e10| 6f 63 61 74 6f 72 2c 20 | 79 6f 75 20 6d 61 79 20 |ocator, |you may |
|00001e20| 65 6e 74 65 72 20 22 45 | 52 52 22 20 74 6f 0a 65 |enter "E|RR" to.e|
|00001e30| 72 61 73 65 20 69 74 2e | 20 59 6f 75 20 6d 61 79 |rase it.| You may|
|00001e40| 20 6f 6e 6c 79 20 67 6f | 20 62 61 63 6b 20 6f 6e | only go| back on|
|00001e50| 65 20 63 6f 6e 74 61 63 | 74 2c 20 62 75 74 20 79 |e contac|t, but y|
|00001e60| 6f 75 20 63 61 6e 20 63 | 6f 72 72 65 63 74 20 74 |ou can c|orrect t|
|00001e70| 68 65 20 73 61 6d 65 0a | 65 6e 74 72 79 20 61 73 |he same.|entry as|
|00001e80| 20 6d 61 6e 79 20 74 69 | 6d 65 73 20 61 73 20 79 | many ti|mes as y|
|00001e90| 6f 75 20 6c 69 6b 65 2e | 20 49 66 20 79 6f 75 20 |ou like.| If you |
|00001ea0| 74 79 70 65 20 22 45 52 | 52 22 20 61 66 74 65 72 |type "ER|R" after|
|00001eb0| 20 79 6f 75 20 68 61 76 | 65 20 62 65 65 6e 0a 67 | you hav|e been.g|
|00001ec0| 69 76 65 6e 20 61 20 70 | 61 67 65 20 74 6f 74 61 |iven a p|age tota|
|00001ed0| 6c 2c 20 74 68 65 6e 20 | 79 6f 75 20 77 69 6c 6c |l, then |you will|
|00001ee0| 20 62 65 20 67 69 76 65 | 6e 20 61 20 72 65 76 69 | be give|n a revi|
|00001ef0| 73 65 64 20 70 61 67 65 | 20 74 6f 74 61 6c 20 77 |sed page| total w|
|00001f00| 68 65 6e 20 74 68 65 0a | 65 6e 74 72 79 20 69 73 |hen the.|entry is|
|00001f10| 20 63 6f 72 72 65 63 74 | 65 64 2e 20 46 69 6e 61 | correct|ed. Fina|
|00001f20| 6c 6c 79 2c 20 79 6f 75 | 20 63 61 6e 20 74 79 70 |lly, you| can typ|
|00001f30| 65 20 22 45 4e 44 22 2c | 20 77 68 69 63 68 20 77 |e "END",| which w|
|00001f40| 69 6c 6c 20 67 69 76 65 | 20 79 6f 75 20 74 68 65 |ill give| you the|
|00001f50| 0a 6c 61 73 74 20 70 61 | 67 65 20 74 6f 74 61 6c |.last pa|ge total|
|00001f60| 2c 20 70 6c 75 73 20 74 | 68 65 20 67 72 61 6e 64 |, plus t|he grand|
|00001f70| 20 74 6f 74 61 6c 73 2c | 20 62 65 73 74 20 44 58 | totals,| best DX|
|00001f80| 20 77 6f 72 6b 65 64 20 | 65 74 63 2e 2e 20 54 68 | worked |etc.. Th|
|00001f90| 69 73 20 69 73 20 74 68 | 65 0a 6f 6e 6c 79 20 77 |is is th|e.only w|
|00001fa0| 61 79 20 6f 75 74 20 6f | 66 20 74 68 65 20 70 72 |ay out o|f the pr|
|00001fb0| 6f 67 72 61 6d 2c 20 73 | 68 6f 72 74 20 6f 66 20 |ogram, s|hort of |
|00001fc0| 70 72 65 73 73 69 6e 67 | 20 3c 42 72 65 61 6b 3e |pressing| <Break>|
|00001fd0| 21 20 49 66 20 79 6f 75 | 20 68 61 76 65 6e 27 74 |! If you| haven't|
|00001fe0| 0a 61 63 74 75 61 6c 6c | 79 20 66 69 6e 69 73 68 |.actuall|y finish|
|00001ff0| 65 64 20 65 6e 74 65 72 | 69 6e 67 20 61 6c 6c 20 |ed enter|ing all |
|00002000| 74 68 65 20 63 6f 6e 74 | 61 63 74 73 2c 20 74 68 |the cont|acts, th|
|00002010| 65 6e 20 79 6f 75 20 73 | 68 6f 75 6c 64 20 6d 61 |en you s|hould ma|
|00002020| 6b 65 20 61 20 6e 6f 74 | 65 0a 6f 66 20 61 6c 6c |ke a not|e.of all|
|00002030| 20 74 68 65 20 74 6f 74 | 61 6c 73 2c 20 62 65 73 | the tot|als, bes|
|00002040| 74 20 44 58 20 77 6f 72 | 6b 65 64 2c 20 61 6e 64 |t DX wor|ked, and|
|00002050| 20 74 68 65 20 6c 61 73 | 74 20 73 65 72 69 61 6c | the las|t serial|
|00002060| 20 6e 75 6d 62 65 72 2c | 20 73 6f 20 74 68 61 74 | number,| so that|
|00002070| 20 79 6f 75 0a 63 61 6e | 20 63 6f 6e 74 69 6e 75 | you.can| continu|
|00002080| 65 20 77 68 65 72 65 20 | 79 6f 75 20 6c 65 66 74 |e where |you left|
|00002090| 20 6f 66 66 20 6f 6e 20 | 73 6f 6d 65 20 66 75 74 | off on |some fut|
|000020a0| 75 72 65 20 6f 63 63 61 | 73 69 6f 6e 2e 20 41 73 |ure occa|sion. As|
|000020b0| 20 77 69 74 68 20 74 68 | 65 0a 6c 6f 63 61 74 6f | with th|e.locato|
|000020c0| 72 20 63 6f 64 65 73 2c | 20 79 6f 75 20 6d 61 79 |r codes,| you may|
|000020d0| 20 74 79 70 65 20 69 6e | 20 75 70 70 65 72 20 6f | type in| upper o|
|000020e0| 72 20 6c 6f 77 65 72 2d | 63 61 73 65 20 61 73 20 |r lower-|case as |
|000020f0| 79 6f 75 20 70 72 65 66 | 65 72 2e 0a 0a 49 74 20 |you pref|er...It |
|00002100| 6d 61 79 20 68 61 70 70 | 65 6e 20 74 68 61 74 20 |may happ|en that |
|00002110| 79 6f 75 20 61 72 65 20 | 73 75 73 70 69 63 69 6f |you are |suspicio|
|00002120| 75 73 20 6f 66 20 61 20 | 6c 6f 63 61 74 69 6f 6e |us of a |location|
|00002130| 2c 20 6f 72 20 77 65 72 | 65 20 6f 6e 6c 79 20 67 |, or wer|e only g|
|00002140| 69 76 65 6e 20 61 0a 70 | 6f 73 69 74 69 6f 6e 20 |iven a.p|osition |
|00002150| 72 65 6c 61 74 69 76 65 | 20 74 6f 20 61 20 74 6f |relative| to a to|
|00002160| 77 6e 2e 20 49 6e 20 74 | 68 61 74 20 63 61 73 65 |wn. In t|hat case|
|00002170| 2c 20 79 6f 75 20 6d 61 | 79 20 75 73 65 20 74 68 |, you ma|y use th|
|00002180| 65 20 66 69 72 73 74 20 | 73 65 63 74 69 6f 6e 0a |e first |section.|
|00002190| 62 79 20 70 72 65 73 73 | 69 6e 67 20 3c 45 73 63 |by press|ing <Esc|
|000021a0| 61 70 65 3e 20 4f 4e 43 | 45 2e 20 41 66 74 65 72 |ape> ONC|E. After|
|000021b0| 20 61 20 73 68 6f 72 74 | 20 70 61 75 73 65 2c 20 | a short| pause, |
|000021c0| 79 6f 75 20 77 69 6c 6c | 20 73 65 65 20 74 68 65 |you will| see the|
|000021d0| 20 66 69 72 73 74 0a 73 | 65 63 74 69 6f 6e 20 70 | first.s|ection p|
|000021e0| 61 67 65 20 61 70 70 65 | 61 72 2c 20 61 6e 64 20 |age appe|ar, and |
|000021f0| 79 6f 75 20 63 61 6e 20 | 74 68 65 6e 20 6d 61 6b |you can |then mak|
|00002200| 65 20 61 6e 79 20 63 68 | 65 63 6b 73 20 79 6f 75 |e any ch|ecks you|
|00002210| 20 77 69 73 68 2e 20 54 | 68 65 20 74 77 6f 0a 73 | wish. T|he two.s|
|00002220| 65 63 74 69 6f 6e 73 20 | 61 72 65 20 71 75 69 74 |ections |are quit|
|00002230| 65 20 69 6e 64 65 70 65 | 6e 64 65 6e 74 2c 20 62 |e indepe|ndent, b|
|00002240| 75 74 20 66 6f 72 20 63 | 6f 6e 76 65 6e 69 65 6e |ut for c|onvenien|
|00002250| 63 65 20 74 68 65 20 62 | 61 73 65 20 6c 6f 63 61 |ce the b|ase loca|
|00002260| 74 6f 72 20 79 6f 75 0a | 68 61 76 65 20 62 65 65 |tor you.|have bee|
|00002270| 6e 20 75 73 69 6e 67 20 | 69 6e 20 74 68 65 20 73 |n using |in the s|
|00002280| 65 63 6f 6e 64 20 73 65 | 63 74 69 6f 6e 20 77 69 |econd se|ction wi|
|00002290| 6c 6c 20 62 65 20 74 72 | 61 6e 73 66 65 72 72 65 |ll be tr|ansferre|
|000022a0| 64 20 74 6f 20 74 68 65 | 20 66 69 72 73 74 2e 0a |d to the| first..|
|000022b0| 54 68 65 20 70 72 6f 6d | 70 74 20 77 69 6c 6c 20 |The prom|pt will |
|000022c0| 62 65 20 66 6f 72 20 79 | 6f 75 20 74 6f 20 65 6e |be for y|ou to en|
|000022d0| 74 65 72 20 61 20 66 75 | 72 74 68 65 72 20 6c 6f |ter a fu|rther lo|
|000022e0| 63 61 74 6f 72 2c 20 62 | 75 74 20 69 66 20 79 6f |cator, b|ut if yo|
|000022f0| 75 20 77 69 73 68 20 74 | 6f 0a 65 6e 74 65 72 20 |u wish t|o.enter |
|00002300| 6f 74 68 65 72 20 63 6f | 6f 72 64 69 6e 61 74 65 |other co|ordinate|
|00002310| 73 20 69 6e 73 74 65 61 | 64 2c 20 79 6f 75 20 63 |s instea|d, you c|
|00002320| 61 6e 20 73 69 6d 70 6c | 79 20 3c 45 73 63 61 70 |an simpl|y <Escap|
|00002330| 65 3e 20 74 6f 20 74 68 | 65 20 6d 65 6e 75 20 61 |e> to th|e menu a|
|00002340| 6e 64 0a 73 65 6c 65 63 | 74 20 61 6e 6f 74 68 65 |nd.selec|t anothe|
|00002350| 72 20 6f 70 74 69 6f 6e | 2e 20 49 66 20 79 6f 75 |r option|. If you|
|00002360| 20 77 69 73 68 2c 20 79 | 6f 75 20 6d 61 79 20 75 | wish, y|ou may u|
|00002370| 73 65 20 6f 70 74 69 6f | 6e 20 34 20 74 6f 20 6e |se optio|n 4 to n|
|00002380| 6f 6d 69 6e 61 74 65 20 | 61 20 6e 65 77 0a 62 61 |ominate |a new.ba|
|00002390| 73 65 20 6c 6f 63 61 74 | 6f 72 2c 20 61 6e 64 20 |se locat|or, and |
|000023a0| 74 68 69 73 20 77 69 6c | 6c 20 68 61 76 65 20 6e |this wil|l have n|
|000023b0| 6f 20 65 66 66 65 63 74 | 20 6f 6e 20 74 68 65 20 |o effect| on the |
|000023c0| 6f 72 69 67 69 6e 61 6c | 20 62 61 73 65 20 6c 6f |original| base lo|
|000023d0| 63 61 74 6f 72 0a 75 73 | 65 64 20 69 6e 20 74 68 |cator.us|ed in th|
|000023e0| 65 20 73 65 63 6f 6e 64 | 20 73 65 63 74 69 6f 6e |e second| section|
|000023f0| 2e 20 57 68 65 6e 20 79 | 6f 75 20 68 61 76 65 20 |. When y|ou have |
|00002400| 66 69 6e 69 73 68 65 64 | 2c 20 3c 45 73 63 61 70 |finished|, <Escap|
|00002410| 65 3e 20 74 6f 20 74 68 | 65 20 6d 65 6e 75 2c 0a |e> to th|e menu,.|
|00002420| 61 6e 64 20 74 68 65 6e | 20 70 72 65 73 73 20 3c |and then| press <|
|00002430| 45 73 63 61 70 65 3e 20 | 61 67 61 69 6e 20 6f 6e |Escape> |again on|
|00002440| 63 65 2e 20 59 6f 75 20 | 77 69 6c 6c 20 74 68 65 |ce. You |will the|
|00002450| 6e 20 62 65 20 72 65 74 | 75 72 6e 65 64 20 74 6f |n be ret|urned to|
|00002460| 20 74 68 65 20 70 6f 69 | 6e 74 0a 77 68 65 72 65 | the poi|nt.where|
|00002470| 20 79 6f 75 20 6c 65 66 | 74 20 6f 66 66 2c 20 61 | you lef|t off, a|
|00002480| 6e 64 20 74 68 65 20 73 | 63 72 65 65 6e 20 64 69 |nd the s|creen di|
|00002490| 73 70 6c 61 79 20 77 69 | 6c 6c 20 62 65 20 66 75 |splay wi|ll be fu|
|000024a0| 6c 6c 79 20 72 65 73 74 | 6f 72 65 64 2e 0a 0a 54 |lly rest|ored...T|
|000024b0| 68 65 20 6f 6e 6c 79 20 | 27 6c 65 67 61 6c 27 20 |he only |'legal' |
|000024c0| 65 78 69 74 20 72 6f 75 | 74 65 20 66 72 6f 6d 20 |exit rou|te from |
|000024d0| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 61 74 20 74 |the prog|ram at t|
|000024e0| 68 69 73 20 73 74 61 67 | 65 20 69 73 20 74 6f 20 |his stag|e is to |
|000024f0| 74 79 70 65 20 45 4e 44 | 0a 69 6e 73 74 65 61 64 |type END|.instead|
|00002500| 20 6f 66 20 61 20 6c 6f | 63 61 74 6f 72 20 63 6f | of a lo|cator co|
|00002510| 64 65 2c 20 61 73 20 45 | 73 63 61 70 65 20 6f 6e |de, as E|scape on|
|00002520| 6c 79 20 74 6f 67 67 6c | 65 73 20 62 65 74 77 65 |ly toggl|es betwe|
|00002530| 65 6e 20 74 68 65 20 32 | 20 73 65 63 74 69 6f 6e |en the 2| section|
|00002540| 73 2e 0a 0a 0a 54 4f 54 | 41 4c 53 0a 0a 54 68 65 |s....TOT|ALS..The|
|00002550| 20 73 74 61 6e 64 61 72 | 64 20 52 53 47 42 20 63 | standar|d RSGB c|
|00002560| 6f 6e 74 65 73 74 20 6c | 6f 67 73 68 65 65 74 73 |ontest l|ogsheets|
|00002570| 20 68 61 76 65 20 72 6f | 6f 6d 20 66 6f 72 20 32 | have ro|om for 2|
|00002580| 35 20 65 6e 74 72 69 65 | 73 20 70 65 72 20 70 61 |5 entrie|s per pa|
|00002590| 67 65 2c 20 28 32 37 0a | 6f 6e 20 6f 6c 64 65 72 |ge, (27.|on older|
|000025a0| 20 6f 6e 65 73 29 2e 20 | 49 66 20 79 6f 75 20 61 | ones). |If you a|
|000025b0| 72 65 20 75 73 69 6e 67 | 20 73 68 65 65 74 73 20 |re using| sheets |
|000025c0| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 68 61 76 |which do| not hav|
|000025d0| 65 20 32 35 20 70 65 72 | 20 70 61 67 65 2c 0a 74 |e 25 per| page,.t|
|000025e0| 68 65 6e 20 79 6f 75 20 | 63 61 6e 20 61 6c 74 65 |hen you |can alte|
|000025f0| 72 20 74 68 65 20 76 61 | 72 69 61 62 6c 65 20 22 |r the va|riable "|
|00002600| 70 61 67 65 6c 65 6e 67 | 74 68 25 22 20 6f 72 20 |pageleng|th%" or |
|00002610| 22 70 61 67 6c 65 6e 25 | 22 2c 20 77 68 69 63 68 |"paglen%|", which|
|00002620| 20 79 6f 75 20 77 69 6c | 6c 0a 66 69 6e 64 20 69 | you wil|l.find i|
|00002630| 6e 20 61 20 70 72 6f 63 | 65 64 75 72 65 20 63 61 |n a proc|edure ca|
|00002640| 6c 6c 65 64 20 22 44 45 | 46 50 52 4f 43 69 6e 69 |lled "DE|FPROCini|
|00002650| 74 69 61 6c 69 73 65 22 | 20 6f 72 20 22 44 45 46 |tialise"| or "DEF|
|00002660| 50 52 4f 43 69 6e 69 74 | 22 20 61 74 20 6c 69 6e |PROCinit|" at lin|
|00002670| 65 0a 36 33 35 30 2e 20 | 41 66 74 65 72 20 65 76 |e.6350. |After ev|
|00002680| 65 72 79 20 32 35 20 63 | 6f 6e 74 61 63 74 73 2c |ery 25 c|ontacts,|
|00002690| 20 69 6e 63 6c 75 64 69 | 6e 67 20 6e 6f 6e 2d 73 | includi|ng non-s|
|000026a0| 63 6f 72 65 72 73 2c 20 | 79 6f 75 20 77 69 6c 6c |corers, |you will|
|000026b0| 20 62 65 20 67 69 76 65 | 6e 20 61 0a 70 61 67 65 | be give|n a.page|
|000026c0| 20 74 6f 74 61 6c 2e 20 | 57 68 65 6e 20 79 6f 75 | total. |When you|
|000026d0| 20 74 79 70 65 20 22 45 | 4e 44 22 2c 20 79 6f 75 | type "E|ND", you|
|000026e0| 20 77 69 6c 6c 20 61 75 | 74 6f 6d 61 74 69 63 61 | will au|tomatica|
|000026f0| 6c 6c 79 20 67 65 74 20 | 74 68 65 20 6c 61 73 74 |lly get |the last|
|00002700| 20 70 61 67 65 0a 74 6f | 74 61 6c 20 61 73 20 77 | page.to|tal as w|
|00002710| 65 6c 6c 20 61 73 20 74 | 68 65 20 67 72 61 6e 64 |ell as t|he grand|
|00002720| 20 74 6f 74 61 6c 73 2e | 20 57 68 65 6e 20 72 65 | totals.| When re|
|00002730| 73 74 61 72 74 69 6e 67 | 2c 20 69 65 2e 20 79 6f |starting|, ie. yo|
|00002740| 75 20 61 6e 73 77 65 72 | 65 64 20 22 4e 22 0a 74 |u answer|ed "N".t|
|00002750| 6f 20 74 68 65 20 71 75 | 65 73 74 69 6f 6e 20 22 |o the qu|estion "|
|00002760| 69 73 20 74 68 69 73 20 | 74 68 65 20 66 69 72 73 |is this |the firs|
|00002770| 74 20 77 6f 72 6b 20 70 | 65 72 69 6f 64 2e 2e 2e |t work p|eriod...|
|00002780| 3f 22 2c 20 74 68 65 6e | 20 79 6f 75 20 6d 75 73 |?", then| you mus|
|00002790| 74 20 65 6e 74 65 72 0a | 74 68 65 20 6c 61 73 74 |t enter.|the last|
|000027a0| 20 73 65 72 69 61 6c 20 | 6e 75 6d 62 65 72 2c 20 | serial |number, |
|000027b0| 76 61 72 69 6f 75 73 20 | 74 6f 74 61 6c 73 2c 20 |various |totals, |
|000027c0| 61 6e 64 20 74 68 65 20 | 62 65 73 74 20 44 58 20 |and the |best DX |
|000027d0| 66 72 6f 6d 20 74 68 65 | 20 70 72 65 76 69 6f 75 |from the| previou|
|000027e0| 73 0a 73 65 73 73 69 6f | 6e 2e 20 49 66 20 79 6f |s.sessio|n. If yo|
|000027f0| 75 20 66 69 6e 69 73 68 | 65 64 20 70 61 72 74 77 |u finish|ed partw|
|00002800| 61 79 20 64 6f 77 6e 20 | 61 20 70 61 67 65 2c 20 |ay down |a page, |
|00002810| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 77 69 6c 6c |the prog|ram will|
|00002820| 20 64 65 64 75 63 65 20 | 74 68 69 73 0a 66 72 6f | deduce |this.fro|
|00002830| 6d 20 74 68 65 20 73 65 | 72 69 61 6c 20 6e 75 6d |m the se|rial num|
|00002840| 62 65 72 2c 20 61 6e 64 | 20 61 73 6b 20 79 6f 75 |ber, and| ask you|
|00002850| 20 66 6f 72 20 74 68 65 | 20 6c 61 73 74 20 70 61 | for the| last pa|
|00002860| 72 74 69 61 6c 20 70 61 | 67 65 20 74 6f 74 61 6c |rtial pa|ge total|
|00002870| 2e 0a 0a 0a 55 53 49 4e | 47 20 41 20 50 52 49 4e |....USIN|G A PRIN|
|00002880| 54 45 52 0a 0a 49 66 20 | 79 6f 75 72 20 70 72 69 |TER..If |your pri|
|00002890| 6e 74 65 72 20 70 65 72 | 66 6f 72 6d 73 20 61 6e |nter per|forms an|
|000028a0| 20 61 75 74 6f 20 6c 69 | 6e 65 66 65 65 64 20 61 | auto li|nefeed a|
|000028b0| 66 74 65 72 20 61 20 43 | 61 72 72 69 61 67 65 2d |fter a C|arriage-|
|000028c0| 52 65 74 75 72 6e 2c 20 | 74 68 65 6e 0a 79 6f 75 |Return, |then.you|
|000028d0| 20 73 68 6f 75 6c 64 20 | 61 6c 74 65 72 20 74 68 | should |alter th|
|000028e0| 65 20 2a 46 58 36 2c 30 | 20 69 6e 20 6c 69 6e 65 |e *FX6,0| in line|
|000028f0| 20 31 36 30 20 74 6f 20 | 46 58 36 2c 31 30 20 69 | 160 to |FX6,10 i|
|00002900| 6e 20 6f 72 64 65 72 20 | 74 6f 20 70 72 65 76 65 |n order |to preve|
|00002910| 6e 74 0a 64 6f 75 62 6c | 65 20 6c 69 6e 65 2d 73 |nt.doubl|e line-s|
|00002920| 70 61 63 69 6e 67 2e 20 | 54 68 65 20 70 72 69 6e |pacing. |The prin|
|00002930| 74 6f 75 74 20 66 6f 72 | 6d 61 74 20 69 73 20 73 |tout for|mat is s|
|00002940| 75 69 74 61 62 6c 65 20 | 66 6f 72 20 61 6c 6c 20 |uitable |for all |
|00002950| 70 72 69 6e 74 65 72 73 | 20 77 69 74 68 0a 61 74 |printers| with.at|
|00002960| 20 6c 65 61 73 74 20 34 | 30 20 63 6f 6c 75 6d 6e | least 4|0 column|
|00002970| 73 2e 20 49 66 20 79 6f | 75 20 61 63 74 69 76 61 |s. If yo|u activa|
|00002980| 74 65 20 74 68 65 20 70 | 72 69 6e 74 65 72 20 77 |te the p|rinter w|
|00002990| 69 74 68 20 22 4f 4e 22 | 2c 20 62 75 74 20 66 6f |ith "ON"|, but fo|
|000029a0| 72 67 65 74 20 74 6f 0a | 73 77 69 74 63 68 20 74 |rget to.|switch t|
|000029b0| 68 65 20 70 72 69 6e 74 | 65 72 20 6f 6e 20 6c 69 |he print|er on li|
|000029c0| 6e 65 2c 20 74 68 65 6e | 20 74 68 65 20 70 72 6f |ne, then| the pro|
|000029d0| 67 72 61 6d 20 77 69 6c | 6c 20 22 68 61 6e 67 2d |gram wil|l "hang-|
|000029e0| 75 70 22 20 77 69 74 68 | 20 61 20 66 75 6c 6c 0a |up" with| a full.|
|000029f0| 70 72 69 6e 74 20 62 75 | 66 66 65 72 2e 20 49 6e |print bu|ffer. In|
|00002a00| 20 6d 6f 73 74 20 63 61 | 73 65 73 2c 20 69 66 20 | most ca|ses, if |
|00002a10| 74 68 69 73 20 68 61 70 | 70 65 6e 73 20 66 6f 72 |this hap|pens for|
|00002a20| 20 6d 6f 72 65 20 74 68 | 61 6e 20 35 20 73 65 63 | more th|an 5 sec|
|00002a30| 6f 6e 64 73 2c 20 74 68 | 65 6e 0a 74 68 65 20 70 |onds, th|en.the p|
|00002a40| 72 6f 67 72 61 6d 20 77 | 69 6c 6c 20 61 75 74 6f |rogram w|ill auto|
|00002a50| 6d 61 74 69 63 61 6c 6c | 79 20 65 6e 74 65 72 20 |maticall|y enter |
|00002a60| 22 4f 46 46 22 2c 20 61 | 6e 64 20 72 65 74 75 72 |"OFF", a|nd retur|
|00002a70| 6e 20 74 6f 20 6e 6f 72 | 6d 61 6c 0a 6f 70 65 72 |n to nor|mal.oper|
|00002a80| 61 74 69 6f 6e 2e 20 44 | 6f 20 6e 6f 74 20 70 61 |ation. D|o not pa|
|00002a90| 6e 69 63 20 61 6e 64 20 | 73 74 61 72 74 20 70 72 |nic and |start pr|
|00002aa0| 65 73 73 69 6e 67 20 74 | 68 65 20 3c 45 73 63 61 |essing t|he <Esca|
|00002ab0| 70 65 3e 20 6b 65 79 3b | 20 69 74 20 77 6f 6e 27 |pe> key;| it won'|
|00002ac0| 74 20 64 6f 20 61 0a 62 | 69 74 20 6f 66 20 67 6f |t do a.b|it of go|
|00002ad0| 6f 64 21 20 59 6f 75 20 | 63 6f 75 6c 64 20 74 68 |od! You |could th|
|00002ae0| 65 6e 20 65 6e 74 65 72 | 20 22 45 52 52 22 2c 20 |en enter| "ERR", |
|00002af0| 73 77 69 74 63 68 20 74 | 68 65 20 70 72 69 6e 74 |switch t|he print|
|00002b00| 65 72 20 6f 6e 20 70 72 | 6f 70 65 72 6c 79 0a 74 |er on pr|operly.t|
|00002b10| 68 69 73 20 74 69 6d 65 | 2c 20 65 6e 74 65 72 20 |his time|, enter |
|00002b20| 22 4f 4e 22 2c 20 61 6e | 64 20 74 68 65 6e 20 63 |"ON", an|d then c|
|00002b30| 61 72 72 79 20 6f 6e 20 | 77 68 65 72 65 20 79 6f |arry on |where yo|
|00002b40| 75 20 6c 65 66 74 20 6f | 66 66 2e 20 54 68 65 20 |u left o|ff. The |
|00002b50| 35 20 73 65 63 6f 6e 64 | 0a 74 69 6d 65 20 64 65 |5 second|.time de|
|00002b60| 6c 61 79 20 63 61 6e 20 | 62 65 20 66 6f 75 6e 64 |lay can |be found|
|00002b70| 20 69 6e 20 61 20 70 72 | 6f 63 65 64 75 72 65 20 | in a pr|ocedure |
|00002b80| 63 61 6c 6c 65 64 20 22 | 44 45 46 50 52 4f 43 66 |called "|DEFPROCf|
|00002b90| 6c 75 73 68 22 20 61 74 | 20 6c 69 6e 65 20 36 39 |lush" at| line 69|
|00002ba0| 33 30 2c 0a 73 6f 20 79 | 6f 75 20 63 61 6e 20 61 |30,.so y|ou can a|
|00002bb0| 6c 74 65 72 20 74 68 65 | 20 22 54 49 4d 45 3e 35 |lter the| "TIME>5|
|00002bc0| 30 30 22 20 69 66 20 64 | 65 73 69 72 65 64 2e 0a |00" if d|esired..|
|00002bd0| 0a 0a 41 43 43 55 52 41 | 43 59 0a 0a 49 74 20 69 |..ACCURA|CY..It i|
|00002be0| 73 20 69 6d 70 6f 72 74 | 61 6e 74 20 74 6f 20 72 |s import|ant to r|
|00002bf0| 65 61 6c 69 73 65 20 65 | 78 61 63 74 6c 79 20 77 |ealise e|xactly w|
|00002c00| 68 61 74 20 69 73 20 62 | 65 69 6e 67 20 63 61 6c |hat is b|eing cal|
|00002c10| 63 75 6c 61 74 65 64 20 | 61 6e 64 20 77 68 79 2e |culated |and why.|
|00002c20| 20 49 6e 0a 65 76 65 72 | 79 20 63 61 73 65 2c 20 | In.ever|y case, |
|00002c30| 74 68 65 20 64 69 73 74 | 61 6e 63 65 20 61 6e 64 |the dist|ance and|
|00002c40| 20 62 65 61 72 69 6e 67 | 73 20 61 72 65 20 63 61 | bearing|s are ca|
|00002c50| 6c 63 75 6c 61 74 65 64 | 20 66 72 6f 6d 20 74 68 |lculated| from th|
|00002c60| 65 20 4c 6f 6e 67 69 74 | 75 64 65 0a 61 6e 64 20 |e Longit|ude.and |
|00002c70| 4c 61 74 69 74 75 64 65 | 2c 20 72 65 67 61 72 64 |Latitude|, regard|
|00002c80| 6c 65 73 73 20 6f 66 20 | 77 68 61 74 20 74 79 70 |less of |what typ|
|00002c90| 65 20 6f 66 20 63 6f 2d | 6f 72 64 69 6e 61 74 65 |e of co-|ordinate|
|00002ca0| 73 20 77 65 72 65 20 65 | 6e 74 65 72 65 64 2e 20 |s were e|ntered. |
|00002cb0| 49 66 20 79 6f 75 0a 65 | 6e 74 65 72 20 4e 61 74 |If you.e|nter Nat|
|00002cc0| 69 6f 6e 61 6c 20 47 72 | 69 64 20 63 6f 2d 6f 72 |ional Gr|id co-or|
|00002cd0| 64 69 6e 61 74 65 73 2c | 20 74 68 65 6e 20 74 68 |dinates,| then th|
|00002ce0| 65 73 65 20 61 72 65 20 | 63 6f 6e 76 65 72 74 65 |ese are |converte|
|00002cf0| 64 20 74 6f 20 4c 6f 6e | 67 69 74 75 64 65 0a 61 |d to Lon|gitude.a|
|00002d00| 6e 64 20 4c 61 74 69 74 | 75 64 65 20 62 65 66 6f |nd Latit|ude befo|
|00002d10| 72 65 20 61 6e 79 20 63 | 61 6c 63 75 6c 61 74 69 |re any c|alculati|
|00002d20| 6f 6e 73 20 61 72 65 20 | 6d 61 64 65 2e 20 49 66 |ons are |made. If|
|00002d30| 20 79 6f 75 20 65 6e 74 | 65 72 20 61 20 6c 6f 63 | you ent|er a loc|
|00002d40| 61 74 6f 72 0a 63 6f 64 | 65 2c 20 74 68 65 6e 20 |ator.cod|e, then |
|00002d50| 74 68 65 20 6c 6f 6e 67 | 69 74 75 64 65 20 61 6e |the long|itude an|
|00002d60| 64 20 6c 61 74 69 74 75 | 64 65 20 6f 66 20 74 68 |d latitu|de of th|
|00002d70| 65 20 73 71 75 61 72 65 | 20 63 65 6e 74 72 65 20 |e square| centre |
|00002d80| 69 73 20 63 61 6c 63 75 | 6c 61 74 65 64 2c 0a 61 |is calcu|lated,.a|
|00002d90| 6e 64 20 75 73 65 64 20 | 69 6e 20 61 6c 6c 20 66 |nd used |in all f|
|00002da0| 75 74 75 72 65 20 20 63 | 6f 6d 70 75 74 61 74 69 |uture  c|omputati|
|00002db0| 6f 6e 73 2e 20 54 68 65 | 20 66 61 63 74 20 74 68 |ons. The| fact th|
|00002dc0| 61 74 20 74 68 65 20 74 | 77 6f 20 6c 6f 63 61 74 |at the t|wo locat|
|00002dd0| 6f 72 20 73 79 73 74 65 | 6d 0a 67 72 69 64 20 73 |or syste|m.grid s|
|00002de0| 71 75 61 72 65 73 20 64 | 6f 20 6e 6f 74 20 65 78 |quares d|o not ex|
|00002df0| 61 63 74 6c 79 20 63 6f | 69 6e 63 69 64 65 20 69 |actly co|incide i|
|00002e00| 6e 20 6c 6f 6e 67 69 74 | 75 64 65 20 63 61 6e 20 |n longit|ude can |
|00002e10| 70 72 6f 64 75 63 65 20 | 73 6f 6d 65 0a 61 70 70 |produce |some.app|
|00002e20| 61 72 65 6e 74 6c 79 20 | 6f 64 64 20 72 65 73 75 |arently |odd resu|
|00002e30| 6c 74 73 2e 20 46 6f 72 | 20 65 78 61 6d 70 6c 65 |lts. For| example|
|00002e40| 2c 20 69 66 20 79 6f 75 | 20 65 6e 74 65 72 20 51 |, if you| enter Q|
|00002e50| 54 48 20 6c 6f 63 61 74 | 6f 72 20 5a 4c 34 35 68 |TH locat|or ZL45h|
|00002e60| 2c 20 74 68 65 6e 0a 74 | 68 69 73 20 69 73 20 22 |, then.t|his is "|
|00002e70| 74 72 61 6e 73 6c 61 74 | 65 64 22 20 61 73 20 62 |translat|ed" as b|
|00002e80| 65 69 6e 67 20 49 4f 39 | 31 6b 6c 20 69 6e 20 74 |eing IO9|1kl in t|
|00002e90| 68 65 20 4d 55 4c 20 73 | 79 73 74 65 6d 2e 20 48 |he MUL s|ystem. H|
|00002ea0| 6f 77 65 76 65 72 2c 20 | 69 66 20 79 6f 75 0a 65 |owever, |if you.e|
|00002eb0| 6e 74 65 72 20 49 4f 39 | 31 6b 6c 2c 20 74 68 65 |nter IO9|1kl, the|
|00002ec0| 6e 20 74 68 69 73 20 69 | 73 20 74 72 61 6e 73 6c |n this i|s transl|
|00002ed0| 61 74 65 64 20 62 61 63 | 6b 20 61 73 20 5a 4c 34 |ated bac|k as ZL4|
|00002ee0| 35 61 2e 20 54 68 69 73 | 20 69 73 20 6e 6f 74 20 |5a. This| is not |
|00002ef0| 64 75 65 20 74 6f 0a 61 | 6e 79 20 69 6e 61 63 63 |due to.a|ny inacc|
|00002f00| 75 72 61 63 79 20 69 6e | 20 74 68 65 20 70 72 6f |uracy in| the pro|
|00002f10| 67 72 61 6d 2e 20 57 68 | 61 74 20 68 61 73 20 68 |gram. Wh|at has h|
|00002f20| 61 70 70 65 6e 65 64 20 | 69 73 20 74 68 61 74 20 |appened |is that |
|00002f30| 74 68 65 20 63 65 6e 74 | 72 65 20 6f 66 0a 5a 4c |the cent|re of.ZL|
|00002f40| 34 35 68 20 73 71 75 61 | 72 65 20 6c 69 65 73 20 |45h squa|re lies |
|00002f50| 77 69 74 68 69 6e 20 74 | 68 65 20 62 6f 75 6e 64 |within t|he bound|
|00002f60| 73 20 6f 66 20 49 4f 39 | 31 6b 6c 20 73 71 75 61 |s of IO9|1kl squa|
|00002f70| 72 65 2e 20 48 6f 77 65 | 76 65 72 2c 20 74 68 65 |re. Howe|ver, the|
|00002f80| 20 63 65 6e 74 72 65 0a | 6f 66 20 49 4f 39 31 6b | centre.|of IO91k|
|00002f90| 6c 20 73 71 75 61 72 65 | 20 6c 69 65 73 20 77 69 |l square| lies wi|
|00002fa0| 74 68 69 6e 20 74 68 65 | 20 62 6f 75 6e 64 73 20 |thin the| bounds |
|00002fb0| 6f 66 20 5a 4c 34 35 61 | 20 73 71 75 61 72 65 2e |of ZL45a| square.|
|00002fc0| 20 49 6e 20 6f 74 68 65 | 72 20 77 6f 72 64 73 2c | In othe|r words,|
|00002fd0| 0a 74 68 65 72 65 20 69 | 73 20 61 6e 20 75 6e 63 |.there i|s an unc|
|00002fe0| 65 72 74 61 69 6e 74 79 | 20 6f 66 20 6f 6e 65 20 |ertainty| of one |
|00002ff0| 73 6d 61 6c 6c 20 73 71 | 75 61 72 65 20 74 6f 20 |small sq|uare to |
|00003000| 74 68 65 20 45 61 73 74 | 20 6f 72 20 57 65 73 74 |the East| or West|
|00003010| 2e 20 4e 6f 74 65 20 61 | 6c 73 6f 0a 74 68 61 74 |. Note a|lso.that|
|00003020| 20 74 68 65 20 6f 6c 64 | 20 35 2d 64 69 67 69 74 | the old| 5-digit|
|00003030| 20 51 54 48 20 4c 6f 63 | 61 74 6f 72 20 73 79 73 | QTH Loc|ator sys|
|00003040| 74 65 6d 20 72 65 70 65 | 61 74 73 20 61 74 20 69 |tem repe|ats at i|
|00003050| 6e 74 65 72 76 61 6c 73 | 2c 20 61 6e 64 20 74 68 |ntervals|, and th|
|00003060| 69 73 20 63 61 6e 0a 62 | 65 20 63 6f 6e 66 75 73 |is can.b|e confus|
|00003070| 69 6e 67 2e 20 0a 0a 54 | 68 65 20 63 6f 6e 76 65 |ing. ..T|he conve|
|00003080| 72 73 69 6f 6e 20 62 65 | 74 77 65 65 6e 20 6c 6f |rsion be|tween lo|
|00003090| 63 61 74 6f 72 20 63 6f | 64 65 73 20 61 6e 64 20 |cator co|des and |
|000030a0| 74 68 65 20 4c 6f 6e 67 | 69 74 75 64 65 20 61 6e |the Long|itude an|
|000030b0| 64 20 4c 61 74 69 74 75 | 64 65 20 6f 66 20 74 68 |d Latitu|de of th|
|000030c0| 65 0a 73 71 75 61 72 65 | 20 63 65 6e 74 72 65 73 |e.square| centres|
|000030d0| 20 75 73 65 73 20 69 6e | 74 65 67 65 72 20 61 72 | uses in|teger ar|
|000030e0| 69 74 68 6d 65 74 69 63 | 2c 20 61 6e 64 20 69 73 |ithmetic|, and is|
|000030f0| 20 70 72 65 63 69 73 65 | 2e 20 54 68 65 20 72 65 | precise|. The re|
|00003100| 76 65 72 73 65 0a 63 6f | 6e 76 65 72 73 69 6f 6e |verse.co|nversion|
|00003110| 20 69 73 20 61 6c 73 6f | 20 70 72 65 63 69 73 65 | is also| precise|
|00003120| 3b 20 61 6e 79 20 62 6f | 72 64 65 72 6c 69 6e 65 |; any bo|rderline|
|00003130| 20 63 61 73 65 73 20 61 | 72 65 20 63 6f 75 6e 74 | cases a|re count|
|00003140| 65 64 20 61 73 20 62 65 | 69 6e 67 20 69 6e 0a 74 |ed as be|ing in.t|
|00003150| 68 65 20 73 71 75 61 72 | 65 20 69 6d 6d 65 64 69 |he squar|e immedi|
|00003160| 61 74 65 6c 79 20 74 6f | 20 74 68 65 20 72 69 67 |ately to| the rig|
|00003170| 68 74 20 61 6e 64 2f 6f | 72 20 4e 6f 72 74 68 20 |ht and/o|r North |
|00003180| 6f 66 20 74 68 65 20 62 | 6f 75 6e 64 61 72 79 2e |of the b|oundary.|
|00003190| 20 54 68 65 0a 63 6f 6e | 76 65 72 73 69 6f 6e 20 | The.con|version |
|000031a0| 74 6f 20 61 6e 64 20 66 | 72 6f 6d 20 4e 61 74 69 |to and f|rom Nati|
|000031b0| 6f 6e 61 6c 20 47 72 69 | 64 20 72 65 66 65 72 65 |onal Gri|d refere|
|000031c0| 6e 63 65 20 6d 61 79 20 | 69 6e 76 6f 6c 76 65 20 |nce may |involve |
|000031d0| 61 20 73 6c 69 67 68 74 | 20 65 72 72 6f 72 2c 0a |a slight| error,.|
|000031e0| 64 75 65 20 74 6f 20 74 | 68 65 20 72 65 73 6f 6c |due to t|he resol|
|000031f0| 75 74 69 6f 6e 20 6f 66 | 20 31 30 30 20 6d 65 74 |ution of| 100 met|
|00003200| 72 65 73 2c 20 61 6e 64 | 20 74 6f 20 74 68 65 20 |res, and| to the |
|00003210| 63 6f 6d 70 6c 65 78 69 | 74 79 20 6f 66 20 74 68 |complexi|ty of th|
|00003220| 65 0a 65 71 75 61 74 69 | 6f 6e 73 20 69 6e 76 6f |e.equati|ons invo|
|00003230| 6c 76 65 64 2e 20 49 6e | 20 70 72 61 63 74 69 63 |lved. In| practic|
|00003240| 65 20 74 68 69 73 20 65 | 72 72 6f 72 20 69 73 20 |e this e|rror is |
|00003250| 6c 65 73 73 20 74 68 61 | 6e 20 30 2e 32 20 6b 6d |less tha|n 0.2 km|
|00003260| 2c 20 62 75 74 20 77 68 | 65 72 65 0a 61 6e 20 75 |, but wh|ere.an u|
|00003270| 6e 75 73 75 61 6c 6c 79 | 20 70 72 65 63 69 73 65 |nusually| precise|
|00003280| 20 6c 6f 63 61 74 69 6f | 6e 20 69 73 20 69 6d 70 | locatio|n is imp|
|00003290| 6f 72 74 61 6e 74 2c 20 | 73 75 63 68 20 61 73 20 |ortant, |such as |
|000032a0| 69 6e 20 61 20 62 6f 72 | 64 65 72 6c 69 6e 65 20 |in a bor|derline |
|000032b0| 63 61 73 65 2c 0a 75 73 | 65 20 4c 6f 6e 67 69 74 |case,.us|e Longit|
|000032c0| 75 64 65 20 61 6e 64 20 | 4c 61 74 69 74 75 64 65 |ude and |Latitude|
|000032d0| 2e 0a 0a 49 6e 20 63 61 | 6c 63 75 6c 61 74 69 6e |...In ca|lculatin|
|000032e0| 67 20 74 68 65 20 64 69 | 73 74 61 6e 63 65 20 61 |g the di|stance a|
|000032f0| 6e 64 20 62 65 61 72 69 | 6e 67 2c 20 74 68 65 20 |nd beari|ng, the |
|00003300| 45 61 72 74 68 20 69 73 | 20 61 73 73 75 6d 65 64 |Earth is| assumed|
|00003310| 20 74 6f 20 62 65 20 61 | 0a 75 6e 69 66 6f 72 6d | to be a|.uniform|
|00003320| 20 73 70 68 65 72 65 20 | 6f 66 20 72 61 64 69 75 | sphere |of radiu|
|00003330| 73 20 36 33 37 31 20 6b | 6d 2c 20 77 68 69 63 68 |s 6371 k|m, which|
|00003340| 20 69 73 20 61 20 74 72 | 75 65 20 6d 65 61 6e 20 | is a tr|ue mean |
|00003350| 76 61 6c 75 65 2c 20 62 | 61 73 65 64 20 6f 6e 0a |value, b|ased on.|
|00003360| 73 75 72 66 61 63 65 20 | 61 72 65 61 2e 20 54 68 |surface |area. Th|
|00003370| 65 20 45 61 72 74 68 20 | 69 73 20 61 63 74 75 61 |e Earth |is actua|
|00003380| 6c 6c 79 20 73 6c 69 67 | 68 74 6c 79 20 66 6c 61 |lly slig|htly fla|
|00003390| 74 74 65 6e 65 64 20 61 | 74 20 74 68 65 20 70 6f |ttened a|t the po|
|000033a0| 6c 65 73 2c 20 62 75 74 | 0a 74 68 65 20 6d 61 78 |les, but|.the max|
|000033b0| 69 6d 75 6d 20 70 6f 73 | 73 69 62 6c 65 20 65 72 |imum pos|sible er|
|000033c0| 72 6f 72 20 69 73 20 6c | 65 73 73 20 74 68 61 6e |ror is l|ess than|
|000033d0| 20 32 30 20 6b 6d 20 6f | 76 65 72 20 6c 61 72 67 | 20 km o|ver larg|
|000033e0| 65 20 64 69 73 74 61 6e | 63 65 73 2c 20 61 6e 64 |e distan|ces, and|
|000033f0| 0a 77 69 6c 6c 20 67 65 | 6e 65 72 61 6c 6c 79 20 |.will ge|nerally |
|00003400| 62 65 20 76 65 72 79 20 | 6d 75 63 68 20 6c 65 73 |be very |much les|
|00003410| 73 2e 20 4f 76 65 72 20 | 6e 6f 72 6d 61 6c 20 56 |s. Over |normal V|
|00003420| 48 46 20 44 58 20 64 69 | 73 74 61 6e 63 65 73 20 |HF DX di|stances |
|00003430| 69 6e 20 45 75 72 6f 70 | 65 2c 0a 74 68 65 20 65 |in Europ|e,.the e|
|00003440| 72 72 6f 72 20 77 69 6c | 6c 20 62 65 20 76 65 72 |rror wil|l be ver|
|00003450| 79 20 73 6d 61 6c 6c 3b | 20 70 65 72 68 61 70 73 |y small;| perhaps|
|00003460| 20 6e 6f 20 6d 6f 72 65 | 20 74 68 61 6e 20 32 20 | no more| than 2 |
|00003470| 6b 6d 2e 20 54 68 65 20 | 6d 61 78 69 6d 75 6d 0a |km. The |maximum.|
|00003480| 67 72 65 61 74 2d 63 69 | 72 63 6c 65 20 64 69 73 |great-ci|rcle dis|
|00003490| 74 61 6e 63 65 20 62 65 | 74 77 65 65 6e 20 61 6e |tance be|tween an|
|000034a0| 79 20 74 77 6f 20 70 6f | 69 6e 74 73 20 6f 6e 20 |y two po|ints on |
|000034b0| 74 68 65 20 45 61 72 74 | 68 27 73 20 73 75 72 66 |the Eart|h's surf|
|000034c0| 61 63 65 20 69 73 0a 61 | 62 6f 75 74 20 32 30 2c |ace is.a|bout 20,|
|000034d0| 30 31 35 20 6b 6d 3b 20 | 69 65 2e 20 74 68 65 20 |015 km; |ie. the |
|000034e0| 6d 65 61 6e 20 63 69 72 | 63 75 6d 66 65 72 65 6e |mean cir|cumferen|
|000034f0| 63 65 20 69 73 20 61 62 | 6f 75 74 20 34 30 2c 30 |ce is ab|out 40,0|
|00003500| 33 30 20 6b 6d 2e 20 54 | 68 65 20 67 72 65 61 74 |30 km. T|he great|
|00003510| 0a 63 69 72 63 6c 65 20 | 62 65 61 72 69 6e 67 73 |.circle |bearings|
|00003520| 20 77 69 6c 6c 20 67 65 | 6e 65 72 61 6c 6c 79 20 | will ge|nerally |
|00003530| 62 65 20 61 63 63 75 72 | 61 74 65 20 77 69 74 68 |be accur|ate with|
|00003540| 69 6e 20 31 20 64 65 67 | 72 65 65 2e 20 48 6f 77 |in 1 deg|ree. How|
|00003550| 65 76 65 72 2c 20 79 6f | 75 0a 6d 75 73 74 20 72 |ever, yo|u.must r|
|00003560| 65 6d 65 6d 62 65 72 20 | 74 68 61 74 20 69 66 20 |emember |that if |
|00003570| 79 6f 75 20 65 6e 74 65 | 72 20 61 20 4c 6f 63 61 |you ente|r a Loca|
|00003580| 74 6f 72 20 63 6f 64 65 | 2c 20 74 68 65 6e 20 74 |tor code|, then t|
|00003590| 68 65 20 63 61 6c 63 75 | 6c 61 74 69 6f 6e 73 20 |he calcu|lations |
|000035a0| 77 69 6c 6c 0a 62 65 20 | 62 61 73 65 64 20 6f 6e |will.be |based on|
|000035b0| 20 74 68 65 20 6c 6f 63 | 61 74 6f 72 20 73 71 75 | the loc|ator squ|
|000035c0| 61 72 65 20 63 65 6e 74 | 72 65 2c 20 61 6e 64 20 |are cent|re, and |
|000035d0| 6e 6f 74 20 6f 6e 20 74 | 68 65 20 61 63 74 75 61 |not on t|he actua|
|000035e0| 6c 20 70 6f 73 69 74 69 | 6f 6e 20 6f 66 0a 74 68 |l positi|on of.th|
|000035f0| 65 20 73 74 61 74 69 6f | 6e 20 77 69 74 68 69 6e |e statio|n within|
|00003600| 20 74 68 61 74 20 73 71 | 75 61 72 65 2e 0a 0a 0a | that sq|uare....|
|00003610| 4c 4f 43 41 54 4f 52 20 | 4f 52 49 47 49 4e 0a 0a |LOCATOR |ORIGIN..|
|00003620| 54 68 65 20 6d 61 69 6e | 20 64 72 61 77 62 61 63 |The main| drawbac|
|00003630| 6b 20 6f 66 20 74 68 65 | 20 6f 6c 64 20 35 2d 64 |k of the| old 5-d|
|00003640| 69 67 69 74 20 6c 6f 63 | 61 74 6f 72 20 63 6f 64 |igit loc|ator cod|
|00003650| 65 20 69 73 20 74 68 61 | 74 20 69 74 20 69 73 20 |e is tha|t it is |
|00003660| 75 6e 73 75 69 74 61 62 | 6c 65 0a 66 6f 72 20 57 |unsuitab|le.for W|
|00003670| 6f 72 6c 64 77 69 64 65 | 20 75 73 65 2c 20 61 73 |orldwide| use, as|
|00003680| 20 69 74 20 72 65 70 65 | 61 74 73 20 61 74 20 69 | it repe|ats at i|
|00003690| 6e 74 65 72 76 61 6c 73 | 20 6f 66 20 35 32 20 64 |ntervals| of 52 d|
|000036a0| 65 67 72 65 65 73 20 69 | 6e 20 6c 6f 6e 67 69 74 |egrees i|n longit|
|000036b0| 75 64 65 2c 0a 61 6e 64 | 20 32 36 20 64 65 67 72 |ude,.and| 26 degr|
|000036c0| 65 65 73 20 69 6e 20 6c | 61 74 69 74 75 64 65 2e |ees in l|atitude.|
|000036d0| 20 54 68 69 73 20 70 72 | 6f 67 72 61 6d 20 68 61 | This pr|ogram ha|
|000036e0| 73 20 61 20 62 6f 74 74 | 6f 6d 20 6c 65 66 74 2d |s a bott|om left-|
|000036f0| 68 61 6e 64 20 22 4f 72 | 69 67 69 6e 22 0a 6f 66 |hand "Or|igin".of|
|00003700| 20 31 32 20 64 65 67 72 | 65 65 73 20 57 65 73 74 | 12 degr|ees West|
|00003710| 20 61 6e 64 20 33 35 20 | 64 65 67 72 65 65 73 20 | and 35 |degrees |
|00003720| 4e 6f 72 74 68 2c 20 77 | 68 69 63 68 20 6d 65 61 |North, w|hich mea|
|00003730| 6e 73 20 74 68 61 74 20 | 74 68 65 20 6e 6f 72 6d |ns that |the norm|
|00003740| 61 6c 20 72 61 6e 67 65 | 0a 69 73 20 66 72 6f 6d |al range|.is from|
|00003750| 20 55 55 30 31 68 20 73 | 71 75 61 72 65 20 69 6e | UU01h s|quare in|
|00003760| 20 74 68 65 20 4e 6f 72 | 74 68 20 57 65 73 74 20 | the Nor|th West |
|00003770| 64 6f 77 6e 20 74 6f 20 | 54 56 38 30 64 20 73 71 |down to |TV80d sq|
|00003780| 75 61 72 65 20 69 6e 20 | 74 68 65 20 53 6f 75 74 |uare in |the Sout|
|00003790| 68 0a 45 61 73 74 2e 20 | 49 66 20 72 65 71 75 69 |h.East. |If requi|
|000037a0| 72 65 64 2c 20 74 68 65 | 20 6f 72 69 67 69 6e 20 |red, the| origin |
|000037b0| 6d 61 79 20 62 65 20 6d | 6f 76 65 64 20 73 6c 69 |may be m|oved sli|
|000037c0| 67 68 74 6c 79 20 62 79 | 20 61 6c 74 65 72 69 6e |ghtly by| alterin|
|000037d0| 67 0a 22 6f 72 69 67 69 | 6e 6c 61 74 25 22 20 69 |g."origi|nlat%" i|
|000037e0| 6e 20 73 74 65 70 73 20 | 6f 66 20 31 20 64 65 67 |n steps |of 1 deg|
|000037f0| 72 65 65 2c 20 61 6e 64 | 20 22 6f 72 69 67 69 6e |ree, and| "origin|
|00003800| 6c 6f 6e 67 25 22 20 6f | 72 20 22 6f 72 69 67 69 |long%" o|r "origi|
|00003810| 6e 6c 6e 67 25 22 20 69 | 6e 0a 73 74 65 70 73 20 |nlng%" i|n.steps |
|00003820| 6f 66 20 32 20 64 65 67 | 72 65 65 73 2e 20 54 68 |of 2 deg|rees. Th|
|00003830| 65 73 65 20 76 61 72 69 | 61 62 6c 65 73 20 6d 61 |ese vari|ables ma|
|00003840| 79 20 62 65 20 66 6f 75 | 6e 64 20 69 6e 20 61 20 |y be fou|nd in a |
|00003850| 70 72 6f 63 65 64 75 72 | 65 20 63 61 6c 6c 65 64 |procedur|e called|
|00003860| 0a 22 44 45 46 50 52 4f | 43 63 6f 6e 73 74 61 6e |."DEFPRO|Cconstan|
|00003870| 74 73 22 20 6f 72 20 22 | 44 45 46 50 52 4f 43 63 |ts" or "|DEFPROCc|
|00003880| 6f 6e 73 74 22 20 61 74 | 20 6c 69 6e 65 20 31 31 |onst" at| line 11|
|00003890| 33 30 2e 0a 0a 0a 43 4f | 50 59 52 49 47 48 54 20 |30....CO|PYRIGHT |
|000038a0| 4e 4f 54 49 43 45 0a 0a | 54 68 69 73 20 70 72 6f |NOTICE..|This pro|
|000038b0| 67 72 61 6d 20 69 73 20 | 6e 6f 77 20 69 6e 20 74 |gram is |now in t|
|000038c0| 68 65 20 50 75 62 6c 69 | 63 20 44 6f 6d 61 69 6e |he Publi|c Domain|
|000038d0| 2e 20 50 6c 65 61 73 65 | 20 66 65 65 6c 20 66 72 |. Please| feel fr|
|000038e0| 65 65 20 74 6f 20 64 69 | 73 74 72 69 62 75 74 65 |ee to di|stribute|
|000038f0| 0a 55 4e 4d 4f 44 49 46 | 49 45 44 20 63 6f 70 69 |.UNMODIF|IED copi|
|00003900| 65 73 20 74 6f 20 6f 74 | 68 65 72 20 70 61 72 74 |es to ot|her part|
|00003910| 69 65 73 2c 20 70 72 6f | 76 69 64 65 64 20 69 74 |ies, pro|vided it|
|00003920| 20 69 73 20 6e 6f 74 20 | 69 6e 20 72 65 74 75 72 | is not |in retur|
|00003930| 6e 20 66 6f 72 0a 70 61 | 79 6d 65 6e 74 2c 20 61 |n for.pa|yment, a|
|00003940| 6e 64 20 4f 4e 4c 59 20 | 69 66 20 61 63 63 6f 6d |nd ONLY |if accom|
|00003950| 70 61 6e 69 65 64 20 62 | 79 20 74 68 69 73 20 64 |panied b|y this d|
|00003960| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 66 69 6c |ocumenta|tion fil|
|00003970| 65 2e 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e..     |        |
|00003980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 0a 20 20 |        |     .  |
|000039c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000039f0| 20 20 20 28 43 29 20 42 | 4c 54 20 53 6f 66 74 77 |   (C) B|LT Softw|
|00003a00| 61 72 65 20 31 39 38 34 | 0a 27 52 69 63 6b 27 20 |are 1984|.'Rick' |
|00003a10| 53 74 65 72 72 79 20 47 | 34 42 4c 54 20 40 20 47 |Sterry G|4BLT @ G|
|00003a20| 42 37 57 52 47 0a 31 20 | 57 61 76 65 6c 6c 20 47 |B7WRG.1 |Wavell G|
|00003a30| 61 72 74 68 0a 53 61 6e | 64 61 6c 20 4d 61 67 6e |arth.San|dal Magn|
|00003a40| 61 0a 57 41 4b 45 46 49 | 45 4c 44 0a 57 65 73 74 |a.WAKEFI|ELD.West|
|00003a50| 20 59 6f 72 6b 73 68 69 | 72 65 0a 57 46 32 20 36 | Yorkshi|re.WF2 6|
|00003a60| 50 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |P       |        |
|00003a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a80| 20 20 20 0a 46 69 6c 65 | 44 61 74 61 82 21 52 75 |   .File|Data.!Ru|
|00003a90| 6e 00 04 00 44 dc fd ff | 19 00 00 00 42 eb ff ff |n...D...|....B...|
|00003aa0| 5c c7 e8 02 03 00 fa 1a | 52 75 6e 20 3c 4f 62 65 |\.......|Run <Obe|
|00003ab0| 79 24 44 69 72 3e 2e 21 | 52 75 6e 49 6d 61 67 65 |y$Dir>.!|RunImage|
|00003ac0| 0a 46 69 6c 65 44 61 74 | 61 82 21 52 75 6e 49 6d |.FileDat|a.!RunIm|
|00003ad0| 61 67 65 00 ff 6b 4b 00 | 00 42 fb ff ff f5 bf f0 |age..kK.|.B......|
|00003ae0| 24 03 00 74 7a 0d 00 00 | 1b f4 20 3e 21 52 75 6e |$..tz...|.. >!Run|
|00003af0| 49 6d 61 67 65 20 20 28 | 4c 6f 63 61 74 65 33 29 |Image  (|Locate3)|
|00003b00| 0d 00 0a 1c f4 22 83 20 | 42 42 43 20 20 53 55 50 |.....". |BBC  SUP|
|00003b10| 45 52 20 4c 4f 43 41 54 | 45 20 87 22 0d 00 14 1c |ER LOCAT|E ."....|
|00003b20| f4 22 82 20 62 79 20 52 | 2e 53 74 65 72 72 79 20 |.". by R|.Sterry |
|00003b30| 47 34 42 4c 54 20 87 22 | 0d 00 1e 1c f4 22 85 20 |G4BLT ."|.....". |
|00003b40| 20 20 20 20 20 32 30 2e | 30 31 2e 38 34 20 20 20 |     20.|01.84   |
|00003b50| 20 20 87 22 0d 00 28 1c | f4 22 81 56 65 72 20 31 |  ."..(.|.".Ver 1|
|00003b60| 2e 31 32 20 20 20 30 39 | 2e 30 31 2e 39 30 87 22 |.12   09|.01.90."|
|00003b70| 0d 00 32 1c f4 22 86 42 | 2f 42 2b 2f 4d 61 73 74 |..2..".B|/B+/Mast|
|00003b80| 65 72 2f 43 6f 6d 70 61 | 63 74 87 22 0d 00 3c 1c |er/Compa|ct."..<.|
|00003b90| f4 22 86 70 6c 75 73 20 | 74 68 65 20 41 72 63 2f |.".plus |the Arc/|
|00003ba0| 41 33 30 30 30 20 87 22 | 0d 00 46 1c f4 22 86 20 |A3000 ."|..F..". |
|00003bb0| 20 54 75 62 65 20 63 6f | 6d 70 61 74 69 62 6c 65 | Tube co|mpatible|
|00003bc0| 20 20 87 22 0d 00 64 05 | 3a 0d 00 6e 05 3a 0d 00 |  ."..d.|:..n.:..|
|00003bd0| 78 05 3a 0d 00 82 05 3a | 0d 00 8c 05 3a 0d 00 96 |x.:....:|....:...|
|00003be0| 05 3a 0d 00 a0 0a 2a 46 | 58 36 2c 30 0d 00 b4 0a |.:....*F|X6,0....|
|00003bf0| 2a 46 58 34 2c 32 0d 00 | be 0b ee 85 e5 8d 54 52 |*FX4,2..|......TR|
|00003c00| 42 0d 00 c8 58 eb 37 3a | f1 8a 31 30 2c 39 29 22 |B...X.7:|..10,9)"|
|00003c10| 87 9d 84 20 53 55 50 45 | 52 20 4c 4f 43 41 54 45 |... SUPE|R LOCATE|
|00003c20| 20 20 20 9c 22 8a 31 30 | 29 22 87 9d 84 20 42 4c |   .".10|)"... BL|
|00003c30| 54 20 53 6f 66 74 77 61 | 72 65 20 20 20 9c 22 8a |T Softwa|re   .".|
|00003c40| 31 30 29 22 87 9d 84 20 | 20 20 28 43 29 20 31 39 |10)"... |  (C) 19|
|00003c50| 38 34 20 20 20 20 20 9c | 22 0d 00 d2 23 f2 6f 66 |84     .|"...#.of|
|00003c60| 66 3a 70 61 75 73 65 3d | a6 28 32 30 30 29 3a f2 |f:pause=|.(200):.|
|00003c70| 69 6e 73 74 72 75 63 74 | 69 6f 6e 73 0d 00 dc 3b |instruct|ions...;|
|00003c80| de 6c 61 73 74 6c 65 74 | 74 65 72 24 28 32 2c 32 |.lastlet|ter$(2,2|
|00003c90| 29 2c 43 25 28 31 2c 39 | 29 2c 73 63 72 65 65 6e |),C%(1,9|),screen|
|00003ca0| 25 36 35 30 2c 67 72 69 | 64 6c 65 74 74 65 72 73 |%650,gri|dletters|
|00003cb0| 24 28 36 2c 31 32 29 0d | 00 e6 20 f2 69 6e 69 74 |$(6,12).|.. .init|
|00003cc0| 69 61 6c 69 73 65 3a f2 | 72 65 61 64 3a f2 63 6f |ialise:.|read:.co|
|00003cd0| 6e 73 74 61 6e 74 73 0d | 00 f0 10 66 69 72 73 74 |nstants.|...first|
|00003ce0| 74 69 6d 65 25 3d b9 0d | 00 fa 0b f2 68 65 61 64 |time%=..|....head|
|00003cf0| 65 72 0d 01 04 09 e5 8d | 54 71 41 0d 01 0e 05 3a |er......|TqA....:|
|00003d00| 0d 01 18 0b f2 68 65 61 | 64 65 72 0d 01 22 0f e7 |.....hea|der.."..|
|00003d10| 9f 3c 3e 31 37 8c 8d 54 | 52 42 0d 01 2c 05 3a 0d |.<>17..T|RB..,.:.|
|00003d20| 01 31 2b e7 79 6f 75 72 | 6c 6f 63 61 74 6f 72 24 |.1+.your|locator$|
|00003d30| 3c 3e 22 22 8c 6c 6f 63 | 61 74 6f 72 24 3d 79 6f |<>"".loc|ator$=yo|
|00003d40| 75 72 6c 6f 63 61 74 6f | 72 24 0d 01 36 0c f5 ee |urlocato|r$..6...|
|00003d50| 85 e5 8d 74 52 53 0d 01 | 40 34 e7 66 69 72 73 74 |...tRS..|@4.first|
|00003d60| 74 69 6d 65 25 3d a3 20 | 8c f2 63 68 6f 6f 73 65 |time%=. |..choose|
|00003d70| 20 8b e7 a4 71 74 68 3d | a3 20 80 a4 6d 75 6c 3d | ...qth=|. ..mul=|
|00003d80| a3 20 8c f2 63 68 6f 6f | 73 65 0d 01 45 0b ee 85 |. ..choo|se..E...|
|00003d90| e5 8d 54 62 41 0d 01 4a | 16 f5 3a ef 32 38 2c 30 |..TbA..J|..:.28,0|
|00003da0| 2c 32 34 2c 33 39 2c 31 | 39 3a db 0d 01 4f 35 e7 |,24,39,1|9:...O5.|
|00003db0| 66 69 72 73 74 74 69 6d | 65 25 3d b9 20 80 6c 6f |firsttim|e%=. .lo|
|00003dc0| 63 61 74 6f 72 24 3c 3e | 22 22 8c e4 8d 74 7d 41 |cator$<>|""...t}A|
|00003dd0| 3a 63 68 6f 69 63 65 25 | 3d 33 3a e5 8d 44 5e 41 |:choice%|=3:..D^A|
|00003de0| 0d 01 54 20 ee 63 68 6f | 69 63 65 25 e4 8d 74 50 |..T .cho|ice%..tP|
|00003df0| 41 2c 8d 74 64 41 2c 8d | 74 78 41 2c 8d 64 74 41 |A,.tdA,.|txA,.dtA|
|00003e00| 0d 01 5e 6b 6c 61 73 74 | 63 68 6f 69 63 65 25 3d |..^klast|choice%=|
|00003e10| 63 68 6f 69 63 65 25 3a | e7 63 68 6f 69 63 65 25 |choice%:|.choice%|
|00003e20| 3c 3e 34 20 8c f2 70 72 | 69 6e 74 28 37 29 3a e7 |<>4 ..pr|int(7):.|
|00003e30| 66 69 72 73 74 74 69 6d | 65 25 3d b9 20 8c 66 69 |firsttim|e%=. .fi|
|00003e40| 72 73 74 74 69 6d 65 25 | 3d a3 3a 63 68 6f 69 63 |rsttime%|=.:choic|
|00003e50| 65 25 3d 34 3a f2 70 72 | 69 6e 74 28 34 29 3a f2 |e%=4:.pr|int(4):.|
|00003e60| 63 6f 6f 72 64 3a f2 62 | 61 73 65 0d 01 68 2c e7 |coord:.b|ase..h,.|
|00003e70| 66 69 72 73 74 74 69 6d | 65 25 3d a3 20 8c f2 63 |firsttim|e%=. ..c|
|00003e80| 6f 6f 72 64 3a f2 64 69 | 73 74 62 65 61 72 3a f2 |oord:.di|stbear:.|
|00003e90| 72 65 73 75 6c 74 73 0d | 01 72 17 63 68 6f 69 63 |results.|.r.choic|
|00003ea0| 65 25 3d 6c 61 73 74 63 | 68 6f 69 63 65 25 0d 01 |e%=lastc|hoice%..|
|00003eb0| 7c 11 fd 63 68 6f 69 63 | 65 25 3d 34 3a fd a3 0d ||..choic|e%=4:...|
|00003ec0| 01 86 05 3a 0d 01 90 a5 | f2 65 6e 74 65 72 6c 6f |...:....|.enterlo|
|00003ed0| 6e 67 6c 61 74 3a f2 6c | 6f 6e 67 6c 61 74 5f 6d |nglat:.l|onglat_m|
|00003ee0| 61 70 72 65 66 3a f2 6c | 6f 6e 67 6c 61 74 5f 71 |apref:.l|onglat_q|
|00003ef0| 74 68 28 64 65 67 6c 6f | 6e 67 25 2c 6d 69 6e 6c |th(deglo|ng%,minl|
|00003f00| 6f 6e 67 25 2c 73 65 63 | 6c 6f 6e 67 25 2c 64 65 |ong%,sec|long%,de|
|00003f10| 67 6c 61 74 25 2c 6d 69 | 6e 6c 61 74 25 2c 73 65 |glat%,mi|nlat%,se|
|00003f20| 63 6c 61 74 25 29 3a f2 | 6c 6f 6e 67 6c 61 74 5f |clat%):.|longlat_|
|00003f30| 6d 75 6c 28 64 65 67 6c | 6f 6e 67 25 2c 6d 69 6e |mul(degl|ong%,min|
|00003f40| 6c 6f 6e 67 25 2c 73 65 | 63 6c 6f 6e 67 25 2c 64 |long%,se|clong%,d|
|00003f50| 65 67 6c 61 74 25 2c 6d | 69 6e 6c 61 74 25 2c 73 |eglat%,m|inlat%,s|
|00003f60| 65 63 6c 61 74 25 29 3a | f8 0d 01 9a 05 3a 0d 01 |eclat%):|.....:..|
|00003f70| a4 a4 f2 65 6e 74 65 72 | 6d 61 70 72 65 66 3a f2 |...enter|mapref:.|
|00003f80| 6d 61 70 72 65 66 5f 6c | 6f 6e 67 6c 61 74 3a f2 |mapref_l|onglat:.|
|00003f90| 6c 6f 6e 67 6c 61 74 5f | 71 74 68 28 64 65 67 6c |longlat_|qth(degl|
|00003fa0| 6f 6e 67 25 2c 6d 69 6e | 6c 6f 6e 67 25 2c 73 65 |ong%,min|long%,se|
|00003fb0| 63 6c 6f 6e 67 25 2c 64 | 65 67 6c 61 74 25 2c 6d |clong%,d|eglat%,m|
|00003fc0| 69 6e 6c 61 74 25 2c 73 | 65 63 6c 61 74 25 29 3a |inlat%,s|eclat%):|
|00003fd0| f2 6c 6f 6e 67 6c 61 74 | 5f 6d 75 6c 28 64 65 67 |.longlat|_mul(deg|
|00003fe0| 6c 6f 6e 67 25 2c 6d 69 | 6e 6c 6f 6e 67 25 2c 73 |long%,mi|nlong%,s|
|00003ff0| 65 63 6c 6f 6e 67 25 2c | 64 65 67 6c 61 74 25 2c |eclong%,|deglat%,|
|00004000| 6d 69 6e 6c 61 74 25 2c | 73 65 63 6c 61 74 25 29 |minlat%,|seclat%)|
|00004010| 3a f8 0d 01 ae 05 3a 0d | 01 b8 20 f2 65 6e 74 65 |:.....:.|.. .ente|
|00004020| 72 6c 6f 63 28 22 82 45 | 6e 74 65 72 20 4c 6f 63 |rloc(".E|nter Loc|
|00004030| 61 74 6f 72 87 22 29 0d | 01 bd 30 e7 20 a9 28 6c |ator.").|..0. .(l|
|00004040| 6f 63 61 74 6f 72 24 29 | 3d 35 8c 8d 64 4c 41 20 |ocator$)|=5..dLA |
|00004050| 8b e7 a9 28 6c 6f 63 61 | 74 6f 72 24 29 3d 36 8c |...(loca|tor$)=6.|
|00004060| 8d 64 60 41 20 8b f8 0d | 01 c2 05 3a 0d 01 cc 63 |.d`A ...|...:...c|
|00004070| f2 71 74 68 5f 6c 6f 6e | 67 6c 61 74 3a f2 6c 6f |.qth_lon|glat:.lo|
|00004080| 6e 67 6c 61 74 5f 6d 61 | 70 72 65 66 3a f2 6c 6f |nglat_ma|pref:.lo|
|00004090| 6e 67 6c 61 74 5f 6d 75 | 6c 28 64 65 67 6c 6f 6e |nglat_mu|l(deglon|
|000040a0| 67 25 2c 6d 69 6e 6c 6f | 6e 67 25 2c 73 65 63 6c |g%,minlo|ng%,secl|
|000040b0| 6f 6e 67 25 2c 64 65 67 | 6c 61 74 25 2c 6d 69 6e |ong%,deg|lat%,min|
|000040c0| 6c 61 74 25 2c 73 65 63 | 6c 61 74 25 29 3a f8 0d |lat%,sec|lat%):..|
|000040d0| 01 d6 05 3a 0d 01 e0 63 | f2 6d 75 6c 5f 6c 6f 6e |...:...c|.mul_lon|
|000040e0| 67 6c 61 74 3a f2 6c 6f | 6e 67 6c 61 74 5f 6d 61 |glat:.lo|nglat_ma|
|000040f0| 70 72 65 66 3a f2 6c 6f | 6e 67 6c 61 74 5f 71 74 |pref:.lo|nglat_qt|
|00004100| 68 28 64 65 67 6c 6f 6e | 67 25 2c 6d 69 6e 6c 6f |h(deglon|g%,minlo|
|00004110| 6e 67 25 2c 73 65 63 6c | 6f 6e 67 25 2c 64 65 67 |ng%,secl|ong%,deg|
|00004120| 6c 61 74 25 2c 6d 69 6e | 6c 61 74 25 2c 73 65 63 |lat%,min|lat%,sec|
|00004130| 6c 61 74 25 29 3a f8 0d | 01 ea 05 3a 0d 01 f4 29 |lat%):..|...:...)|
|00004140| e7 66 69 72 73 74 74 69 | 6d 65 25 3d a3 20 8c f2 |.firstti|me%=. ..|
|00004150| 70 72 69 6e 74 28 34 29 | 3a f2 63 6f 6f 72 64 3a |print(4)|:.coord:|
|00004160| f2 62 61 73 65 0d 01 fe | 05 f8 0d 02 08 05 3a 0d |.base...|......:.|
|00004170| 02 12 23 ef 33 3a eb 37 | 3a f6 3a f1 22 20 61 74 |..#.3:.7|:.:." at|
|00004180| 20 6c 69 6e 65 20 22 3b | 9e 27 3a 2a 46 58 31 35 | line ";|.':*FX15|
|00004190| 2c 30 0d 02 1c 0e e7 9f | 3d 31 37 8c 8d 44 4e 42 |,0......|=17..DNB|
|000041a0| 0d 02 26 1e 65 72 72 24 | 3d 22 4c 2e 22 2b c3 28 |..&.err$|="L."+.(|
|000041b0| 9e 29 2b bd 28 31 31 29 | 2b bd 28 31 33 29 0d 02 |.)+.(11)|+.(13)..|
|000041c0| 30 13 de 58 25 31 32 3a | 59 25 3d 58 25 81 32 35 |0..X%12:|Y%=X%.25|
|000041d0| 36 0d 02 3a 13 e3 62 69 | 74 25 3d 31 b8 a9 28 65 |6..:..bi|t%=1..(e|
|000041e0| 72 72 24 29 0d 02 44 2f | 24 58 25 3d 22 46 58 31 |rr$)..D/|$X%="FX1|
|000041f0| 33 38 2c 30 2c 22 2b c3 | 28 97 28 c1 65 72 72 24 |38,0,"+.|(.(.err$|
|00004200| 2c 62 69 74 25 2c 31 29 | 29 29 3a d6 26 46 46 46 |,bit%,1)|)):.&FFF|
|00004210| 37 3a ed 0d 02 4e 0a 2a | 46 58 34 2c 30 0d 02 58 |7:...N.*|FX4,0..X|
|00004220| 0c 2a 46 58 32 32 39 2c | 30 0d 02 62 0b 2a 46 58 |.*FX229,|0..b.*FX|
|00004230| 31 32 2c 30 0d 02 76 05 | e0 0d 02 80 05 3a 0d 02 |12,0..v.|.....:..|
|00004240| 8a 05 3a 0d 02 94 14 dd | f2 6d 61 70 72 65 66 5f |..:.....|.mapref_|
|00004250| 6c 6f 6e 67 6c 61 74 0d | 02 9e 0e f2 70 68 69 3a |longlat.|....phi:|
|00004260| f2 76 72 68 32 0d 02 a8 | 11 54 3d b7 28 4b 29 3a |.vrh2...|.T=.(K):|
|00004270| 43 3d 9b 28 4b 29 0d 02 | b2 14 59 31 25 3d 65 61 |C=.(K)..|..Y1%=ea|
|00004280| 73 74 69 6e 67 25 2d 45 | 30 25 0d 02 bc 10 4a 33 |sting%-E|0%....J3|
|00004290| 3d 54 2f 28 32 2a 52 2a | 56 29 0d 02 c6 29 4a 34 |=T/(2*R*|V)...)J4|
|000042a0| 3d 54 2f 28 32 34 2a 52 | 2a 56 5e 33 29 2a 28 35 |=T/(24*R|*V^3)*(5|
|000042b0| 2b 33 2a 54 5e 32 2b 48 | 32 2d 39 2a 54 5e 32 2a |+3*T^2+H|2-9*T^2*|
|000042c0| 48 32 29 0d 02 d0 27 4a | 35 3d 54 2f 28 37 32 30 |H2)...'J|5=T/(720|
|000042d0| 2a 52 2a 56 5e 35 29 2a | 28 36 31 2b 39 30 2a 54 |*R*V^5)*|(61+90*T|
|000042e0| 5e 32 2b 34 35 2a 54 5e | 34 29 0d 02 da 23 4b 39 |^2+45*T^|4)...#K9|
|000042f0| 3d 4b 2d 59 31 25 5e 32 | 2a 4a 33 2b 59 31 25 5e |=K-Y1%^2|*J3+Y1%^|
|00004300| 34 2a 4a 34 2d 59 31 25 | 5e 36 2a 4a 35 0d 02 e4 |4*J4-Y1%|^6*J5...|
|00004310| 0e 4a 36 3d 31 2f 28 43 | 2a 56 29 0d 02 ee 1e 4a |.J6=1/(C|*V)....J|
|00004320| 37 3d 31 2f 28 43 2a 36 | 2a 56 5e 33 29 2a 28 56 |7=1/(C*6|*V^3)*(V|
|00004330| 2f 52 2b 32 2a 54 5e 32 | 29 0d 02 f8 26 4a 38 3d |/R+2*T^2|)...&J8=|
|00004340| 31 2f 28 43 2a 31 32 30 | 2a 56 5e 35 29 2a 28 35 |1/(C*120|*V^5)*(5|
|00004350| 2a 32 38 2a 54 5e 32 2b | 32 34 2a 54 5e 34 29 0d |*28*T^2+|24*T^4).|
|00004360| 03 02 15 4a 39 3d 31 2f | 28 43 2a 35 30 34 30 2a |...J9=1/|(C*5040*|
|00004370| 56 5e 37 29 0d 03 0c 27 | 4a 39 3d 4a 39 2a 28 36 |V^7)...'|J9=J9*(6|
|00004380| 31 2a 36 36 32 2a 54 5e | 32 2b 31 33 32 30 2a 54 |1*662*T^|2+1320*T|
|00004390| 5e 34 2b 37 32 30 2a 54 | 5e 36 29 0d 03 16 30 72 |^4+720*T|^6)...0r|
|000043a0| 61 64 6c 6f 6e 67 3d 4c | 30 2b 59 31 25 2a 4a 36 |adlong=L|0+Y1%*J6|
|000043b0| 2d 59 31 25 5e 33 2a 4a | 37 2b 59 31 25 5e 35 2a |-Y1%^3*J|7+Y1%^5*|
|000043c0| 4a 38 2d 59 31 25 5e 37 | 2a 4a 39 0d 03 20 0d 72 |J8-Y1%^7|*J9.. .r|
|000043d0| 61 64 6c 61 74 3d 4b 39 | 0d 03 2a 7b 73 69 67 6e |adlat=K9|..*{sign|
|000043e0| 25 3d b4 28 72 61 64 6c | 6f 6e 67 29 3a 72 61 64 |%=.(radl|ong):rad|
|000043f0| 6c 6f 6e 67 3d 94 28 72 | 61 64 6c 6f 6e 67 29 3a |long=.(r|adlong):|
|00004400| 4c 25 3d 9d 28 72 61 64 | 6c 6f 6e 67 29 2a 33 36 |L%=.(rad|long)*36|
|00004410| 30 30 2b 30 2e 35 3a 64 | 65 67 6c 6f 6e 67 25 3d |00+0.5:d|eglong%=|
|00004420| 4c 25 81 33 36 30 30 3a | 6d 69 6e 6c 6f 6e 67 25 |L%.3600:|minlong%|
|00004430| 3d 28 4c 25 83 33 36 30 | 30 29 81 36 30 3a 73 65 |=(L%.360|0).60:se|
|00004440| 63 6c 6f 6e 67 25 3d 28 | 4c 25 83 33 36 30 30 29 |clong%=(|L%.3600)|
|00004450| 83 36 30 0d 03 34 27 6e | 6f 72 74 68 25 3d b9 3a |.60..4'n|orth%=.:|
|00004460| e7 73 69 67 6e 25 3c 30 | 20 8c 65 61 73 74 25 3d |.sign%<0| .east%=|
|00004470| a3 20 8b 65 61 73 74 25 | 3d b9 0d 03 3e 53 4b 25 |. .east%|=...>SK%|
|00004480| 3d 9d 28 72 61 64 6c 61 | 74 29 2a 33 36 30 30 2b |=.(radla|t)*3600+|
|00004490| 30 2e 35 3a 64 65 67 6c | 61 74 25 3d 4b 25 81 33 |0.5:degl|at%=K%.3|
|000044a0| 36 30 30 3a 6d 69 6e 6c | 61 74 25 3d 28 4b 25 83 |600:minl|at%=(K%.|
|000044b0| 33 36 30 30 29 81 36 30 | 3a 73 65 63 6c 61 74 25 |3600).60|:seclat%|
|000044c0| 3d 28 4b 25 83 33 36 30 | 30 29 83 36 30 0d 03 48 |=(K%.360|0).60..H|
|000044d0| 05 e1 0d 03 52 05 3a 0d | 03 5c 05 3a 0d 03 66 09 |....R.:.|.\.:..f.|
|000044e0| dd f2 70 68 69 0d 03 70 | 1a 4b 3d 28 6e 6f 72 74 |..phi..p|.K=(nort|
|000044f0| 68 69 6e 67 25 2d 4e 30 | 25 29 2f 61 2b 4b 30 0d |hing%-N0|%)/a+K0.|
|00004500| 03 7a 13 4b 33 3d 4b 2d | 4b 30 3a 4b 34 3d 4b 2b |.z.K3=K-|K0:K4=K+|
|00004510| 4b 30 0d 03 84 12 f2 61 | 72 63 6f 66 6d 65 72 69 |K0.....a|rcofmeri|
|00004520| 64 69 61 6e 0d 03 8e 23 | e7 94 28 6e 6f 72 74 68 |dian...#|..(north|
|00004530| 69 6e 67 25 2d 4e 30 25 | 2d 4d 29 3c 30 2e 30 30 |ing%-N0%|-M)<0.00|
|00004540| 31 8c 20 8d 74 6c 43 0d | 03 98 1b 4b 3d 4b 2b 28 |1. .tlC.|...K=K+(|
|00004550| 6e 6f 72 74 68 69 6e 67 | 25 2d 4e 30 25 2d 4d 29 |northing|%-N0%-M)|
|00004560| 2f 61 0d 03 a2 09 e5 8d | 44 7a 43 0d 03 ac 05 e1 |/a......|DzC.....|
|00004570| 0d 03 b6 05 3a 0d 03 c0 | 05 3a 0d 03 ca 0a dd f2 |....:...|.:......|
|00004580| 76 72 68 32 0d 03 d4 16 | 56 3d 61 2f b6 28 31 2d |vrh2....|V=a/.(1-|
|00004590| 65 32 2a b5 28 4b 29 5e | 32 29 0d 03 de 1c 52 3d |e2*.(K)^|2)....R=|
|000045a0| 56 2a 28 31 2d 65 32 29 | 2f 28 31 2d 65 32 2a b5 |V*(1-e2)|/(1-e2*.|
|000045b0| 28 4b 29 5e 32 29 0d 03 | e8 0c 48 32 3d 56 2f 52 |(K)^2)..|..H2=V/R|
|000045c0| 2d 31 0d 03 f2 05 e1 0d | 03 fc 05 3a 0d 04 06 05 |-1......|...:....|
|000045d0| 3a 0d 04 10 13 dd f2 61 | 72 63 6f 66 6d 65 72 69 |:......a|rcofmeri|
|000045e0| 64 69 61 6e 0d 04 1a 1f | 4a 33 3d 28 31 2b 6e 2b |dian....|J3=(1+n+|
|000045f0| 35 2f 34 2a 6e 5e 32 2b | 35 2f 34 2a 6e 5e 33 29 |5/4*n^2+|5/4*n^3)|
|00004600| 2a 4b 33 0d 04 24 27 4a | 34 3d 28 33 2a 6e 2b 33 |*K3..$'J|4=(3*n+3|
|00004610| 2a 6e 5e 32 2b 32 31 2f | 38 2a 6e 5e 33 29 2a b5 |*n^2+21/|8*n^3)*.|
|00004620| 28 4b 33 29 2a 9b 28 4b | 34 29 0d 04 2e 2a 4a 35 |(K3)*.(K|4)...*J5|
|00004630| 3d 28 31 35 2f 38 2a 6e | 5e 32 2b 31 35 2f 38 2a |=(15/8*n|^2+15/8*|
|00004640| 6e 5e 33 29 2a b5 28 32 | 2a 4b 33 29 2a 9b 28 32 |n^3)*.(2|*K3)*.(2|
|00004650| 2a 4b 34 29 0d 04 38 20 | 4a 36 3d 33 35 2f 32 34 |*K4)..8 |J6=35/24|
|00004660| 2a 6e 5e 33 2a b5 28 33 | 2a 4b 33 29 2a 9b 28 33 |*n^3*.(3|*K3)*.(3|
|00004670| 2a 4b 34 29 0d 04 42 15 | 4d 3d 62 2a 28 4a 33 2d |*K4)..B.|M=b*(J3-|
|00004680| 4a 34 2b 4a 35 2d 4a 36 | 29 0d 04 4c 05 e1 0d 04 |J4+J5-J6|)..L....|
|00004690| 56 05 3a 0d 04 60 05 3a | 0d 04 6a 0f dd f2 63 6f |V.:..`.:|..j...co|
|000046a0| 6e 73 74 61 6e 74 73 0d | 04 6f 0f 6e 6f 72 74 68 |nstants.|.o.north|
|000046b0| 69 6e 67 25 3d 30 0d 04 | 74 67 4e 30 25 3d 2d 31 |ing%=0..|tgN0%=-1|
|000046c0| 30 30 30 3a 45 30 25 3d | 34 30 30 30 3a 61 3d 36 |000:E0%=|4000:a=6|
|000046d0| 33 37 35 30 2e 32 30 34 | 38 31 3a 62 3d 36 33 35 |3750.204|81:b=635|
|000046e0| 33 37 2e 32 32 34 39 30 | 3a 4b 30 3d b2 28 34 39 |37.22490|:K0=.(49|
|000046f0| 29 3a 4c 30 3d b2 28 2d | 32 29 3a 6e 3d 30 2e 30 |):L0=.(-|2):n=0.0|
|00004700| 30 31 36 37 33 32 32 30 | 32 35 30 3a 65 32 3d 30 |01673220|250:e2=0|
|00004710| 2e 30 30 36 36 37 30 35 | 33 39 37 36 32 0d 04 7e |.0066705|39762..~|
|00004720| 30 6f 72 69 67 69 6e 6c | 61 74 25 3d 33 35 3a 6f |0originl|at%=35:o|
|00004730| 72 69 67 69 6e 6c 6f 6e | 67 25 3d 31 32 3a 72 61 |riginlon|g%=12:ra|
|00004740| 64 69 75 73 3d 36 33 37 | 31 2e 32 39 31 0d 04 88 |dius=637|1.291...|
|00004750| 05 e1 0d 04 92 05 3a 0d | 04 9c 05 3a 0d 04 a6 12 |......:.|...:....|
|00004760| dd f2 65 6e 74 65 72 6c | 6f 6e 67 6c 61 74 0d 04 |..enterl|onglat..|
|00004770| b0 09 ea 67 65 74 24 0d | 04 ba 2d f2 6f 6e 3a f1 |...get$.|..-.on:.|
|00004780| 22 82 45 6e 74 65 72 20 | 4c 6f 6e 67 69 74 75 64 |".Enter |Longitud|
|00004790| 65 22 27 22 85 45 61 73 | 74 20 6f 72 20 57 65 73 |e"'".Eas|t or Wes|
|000047a0| 74 87 22 3b 0d 04 c4 41 | f5 67 65 74 24 3d bd 28 |t.";...A|.get$=.(|
|000047b0| a5 20 80 26 44 46 29 3a | fd a7 22 45 57 22 2c 67 |. .&DF):|.."EW",g|
|000047c0| 65 74 24 29 3a f1 67 65 | 74 24 3a e7 67 65 74 24 |et$):.ge|t$:.get$|
|000047d0| 3d 22 45 22 8c 65 61 73 | 74 25 3d b9 20 8b 65 61 |="E".eas|t%=. .ea|
|000047e0| 73 74 25 3d a3 0d 04 ce | 58 64 65 67 6c 6f 6e 67 |st%=....|Xdeglong|
|000047f0| 25 3d a4 69 6e 70 75 74 | 28 22 44 65 67 22 2c 30 |%=.input|("Deg",0|
|00004800| 2c 31 38 30 29 3a 6d 69 | 6e 6c 6f 6e 67 25 3d a4 |,180):mi|nlong%=.|
|00004810| 69 6e 70 75 74 28 22 4d | 69 6e 22 2c 30 2c 35 39 |input("M|in",0,59|
|00004820| 29 3a 73 65 63 6c 6f 6e | 67 25 3d a4 69 6e 70 75 |):seclon|g%=.inpu|
|00004830| 74 28 22 53 65 63 22 2c | 30 2c 35 39 29 0d 04 d8 |t("Sec",|0,59)...|
|00004840| 13 ef 32 38 2c 31 39 2c | 32 34 2c 33 39 2c 31 39 |..28,19,|24,39,19|
|00004850| 0d 04 e2 2a f1 22 82 45 | 6e 74 65 72 20 4c 61 74 |...*.".E|nter Lat|
|00004860| 69 74 75 64 65 22 27 22 | 85 4e 6f 72 74 68 20 6f |itude"'"|.North o|
|00004870| 72 20 53 6f 75 74 68 87 | 22 3b 0d 04 ec 43 f5 67 |r South.|";...C.g|
|00004880| 65 74 24 3d bd 28 a5 20 | 80 26 44 46 29 3a fd a7 |et$=.(. |.&DF):..|
|00004890| 22 4e 53 22 2c 67 65 74 | 24 29 3a f1 67 65 74 24 |"NS",get|$):.get$|
|000048a0| 3a e7 67 65 74 24 3d 22 | 4e 22 8c 6e 6f 72 74 68 |:.get$="|N".north|
|000048b0| 25 3d b9 20 8b 6e 6f 72 | 74 68 25 3d a3 0d 04 f6 |%=. .nor|th%=....|
|000048c0| 54 64 65 67 6c 61 74 25 | 3d a4 69 6e 70 75 74 28 |Tdeglat%|=.input(|
|000048d0| 22 44 65 67 22 2c 30 2c | 38 39 29 3a 6d 69 6e 6c |"Deg",0,|89):minl|
|000048e0| 61 74 25 3d a4 69 6e 70 | 75 74 28 22 4d 69 6e 22 |at%=.inp|ut("Min"|
|000048f0| 2c 30 2c 35 39 29 3a 73 | 65 63 6c 61 74 25 3d a4 |,0,59):s|eclat%=.|
|00004900| 69 6e 70 75 74 28 22 53 | 65 63 22 2c 30 2c 35 39 |input("S|ec",0,59|
|00004910| 29 0d 05 00 08 f2 6f 66 | 66 0d 05 0a 05 e1 0d 05 |).....of|f.......|
|00004920| 14 05 3a 0d 05 1e 05 3a | 0d 05 28 45 dd f2 6c 6f |..:....:|..(E..lo|
|00004930| 6e 67 6c 61 74 5f 71 74 | 68 28 64 65 67 6c 6f 6e |nglat_qt|h(deglon|
|00004940| 67 25 2c 6d 69 6e 6c 6f | 6e 67 25 2c 73 65 63 6c |g%,minlo|ng%,secl|
|00004950| 6f 6e 67 25 2c 64 65 67 | 6c 61 74 25 2c 6d 69 6e |ong%,deg|lat%,min|
|00004960| 6c 61 74 25 2c 73 65 63 | 6c 61 74 25 29 0d 05 32 |lat%,sec|lat%)..2|
|00004970| 66 e7 28 65 61 73 74 25 | 3d a3 20 80 64 65 67 6c |f.(east%|=. .degl|
|00004980| 6f 6e 67 25 3e 32 34 29 | 84 28 65 61 73 74 25 3d |ong%>24)|.(east%=|
|00004990| b9 20 80 64 65 67 6c 6f | 6e 67 25 3e 35 30 29 84 |. .deglo|ng%>50).|
|000049a0| 6e 6f 72 74 68 25 3d a3 | 20 84 64 65 67 6c 61 74 |north%=.| .deglat|
|000049b0| 25 3c 33 32 84 64 65 67 | 6c 61 74 25 3e 37 32 8c |%<32.deg|lat%>72.|
|000049c0| 71 74 68 24 3d 22 4c 69 | 6d 69 74 73 22 3a e5 8d |qth$="Li|mits":..|
|000049d0| 74 56 45 0d 05 3c 26 6d | 69 6e 6c 61 74 25 3d 31 |tVE..<&m|inlat%=1|
|000049e0| 30 2a 6d 69 6e 6c 61 74 | 25 2b 28 31 30 2a 73 65 |0*minlat|%+(10*se|
|000049f0| 63 6c 61 74 25 29 81 36 | 30 0d 05 46 12 e7 65 61 |clat%).6|0..F..ea|
|00004a00| 73 74 25 3d b9 20 8c 8d | 44 64 45 0d 05 50 42 73 |st%=. ..|DdE..PBs|
|00004a10| 65 63 6c 6f 6e 67 25 3d | 36 30 2d 73 65 63 6c 6f |eclong%=|60-seclo|
|00004a20| 6e 67 25 3a 6d 69 6e 6c | 6f 6e 67 25 3d 35 39 2d |ng%:minl|ong%=59-|
|00004a30| 6d 69 6e 6c 6f 6e 67 25 | 3a 64 65 67 6c 6f 6e 67 |minlong%|:deglong|
|00004a40| 25 3d 35 31 2d 64 65 67 | 6c 6f 6e 67 25 0d 05 5a |%=51-deg|long%..Z|
|00004a50| 6e 6d 69 6e 6c 6f 6e 67 | 25 3d 6d 69 6e 6c 6f 6e |nminlong|%=minlon|
|00004a60| 67 25 2b 73 65 63 6c 6f | 6e 67 25 81 36 30 3a 73 |g%+seclo|ng%.60:s|
|00004a70| 65 63 6c 6f 6e 67 25 3d | 73 65 63 6c 6f 6e 67 25 |eclong%=|seclong%|
|00004a80| 83 36 30 3a 64 65 67 6c | 6f 6e 67 25 3d 28 64 65 |.60:degl|ong%=(de|
|00004a90| 67 6c 6f 6e 67 25 2b 6d | 69 6e 6c 6f 6e 67 25 81 |glong%+m|inlong%.|
|00004aa0| 36 30 29 83 35 32 3a 6d | 69 6e 6c 6f 6e 67 25 3d |60).52:m|inlong%=|
|00004ab0| 6d 69 6e 6c 6f 6e 67 25 | 83 36 30 0d 05 64 45 66 |minlong%|.60..dEf|
|00004ac0| 69 72 73 74 6c 65 74 74 | 65 72 24 3d bd 28 64 65 |irstlett|er$=.(de|
|00004ad0| 67 6c 6f 6e 67 25 81 32 | 2b 36 35 29 3a 73 65 63 |glong%.2|+65):sec|
|00004ae0| 6f 6e 64 6c 65 74 74 65 | 72 24 3d bd 28 28 64 65 |ondlette|r$=.((de|
|00004af0| 67 6c 61 74 25 2d 31 34 | 29 83 32 36 2b 36 35 29 |glat%-14|).26+65)|
|00004b00| 0d 05 6e 3c 66 69 67 75 | 72 65 73 25 3d 37 30 2d |..n<figu|res%=70-|
|00004b10| 31 30 2a 28 6d 69 6e 6c | 61 74 25 81 37 35 29 2b |10*(minl|at%.75)+|
|00004b20| 35 2a 28 64 65 67 6c 6f | 6e 67 25 83 32 29 2b 6d |5*(deglo|ng%.2)+m|
|00004b30| 69 6e 6c 6f 6e 67 25 81 | 31 32 2b 31 0d 05 78 3e |inlong%.|12+1..x>|
|00004b40| 66 69 67 75 72 65 73 24 | 3d c3 28 66 69 67 75 72 |figures$|=.(figur|
|00004b50| 65 73 25 29 3a 66 69 67 | 75 72 65 73 24 3d c4 32 |es%):fig|ures$=.2|
|00004b60| 2d a9 28 66 69 67 75 72 | 65 73 24 29 2c 22 30 22 |-.(figur|es$),"0"|
|00004b70| 29 2b 66 69 67 75 72 65 | 73 24 0d 05 82 30 72 6f |)+figure|s$...0ro|
|00004b80| 77 25 3d 28 6d 69 6e 6c | 61 74 25 83 37 35 29 81 |w%=(minl|at%.75).|
|00004b90| 32 35 3a 63 6f 6c 75 6d | 6e 25 3d 28 6d 69 6e 6c |25:colum|n%=(minl|
|00004ba0| 6f 6e 67 25 83 31 32 29 | 81 34 0d 05 8c 4a 71 74 |ong%.12)|.4...Jqt|
|00004bb0| 68 24 3d 66 69 72 73 74 | 6c 65 74 74 65 72 24 2b |h$=first|letter$+|
|00004bc0| 73 65 63 6f 6e 64 6c 65 | 74 74 65 72 24 2b 66 69 |secondle|tter$+fi|
|00004bd0| 67 75 72 65 73 24 2b 6c | 61 73 74 6c 65 74 74 65 |gures$+l|astlette|
|00004be0| 72 24 28 72 6f 77 25 2c | 63 6f 6c 75 6d 6e 25 29 |r$(row%,|column%)|
|00004bf0| 2b 22 20 22 0d 05 96 05 | e1 0d 05 a0 05 3a 0d 05 |+" "....|.....:..|
|00004c00| aa 05 3a 0d 05 b4 11 dd | f2 65 6e 74 65 72 6d 61 |..:.....|.enterma|
|00004c10| 70 72 65 66 0d 05 be 12 | db 3a f2 6f 6e 3a 6e 6f |pref....|.:.on:no|
|00004c20| 72 74 68 25 3d b9 0d 05 | c8 a4 f1 22 82 45 6e 74 |rth%=...|...".Ent|
|00004c30| 65 72 20 4d 61 70 20 52 | 65 66 2e 22 3a e8 22 85 |er Map R|ef.":.".|
|00004c40| 4c 65 74 74 65 72 73 20 | 20 87 22 6c 65 74 74 65 |Letters | ."lette|
|00004c50| 72 73 24 3a e7 a4 6c 65 | 74 74 65 72 73 3d a3 20 |rs$:..le|tters=. |
|00004c60| 8c 8d 74 7e 45 20 8b 65 | 61 73 74 69 6e 67 25 3d |..t~E .e|asting%=|
|00004c70| 65 61 73 74 69 6e 67 25 | 2a 31 30 30 30 2b a4 69 |easting%|*1000+.i|
|00004c80| 6e 70 75 74 28 22 45 61 | 73 74 69 6e 67 20 20 22 |nput("Ea|sting  "|
|00004c90| 2c 30 2c 39 39 39 29 3a | 6e 6f 72 74 68 69 6e 67 |,0,999):|northing|
|00004ca0| 25 3d 6e 6f 72 74 68 69 | 6e 67 25 2a 31 30 30 30 |%=northi|ng%*1000|
|00004cb0| 2b a4 69 6e 70 75 74 28 | 22 4e 6f 72 74 68 69 6e |+.input(|"Northin|
|00004cc0| 67 20 22 2c 30 2c 39 39 | 39 29 0d 05 d2 08 f2 6f |g ",0,99|9).....o|
|00004cd0| 66 66 0d 05 dc 05 e1 0d | 05 e6 05 3a 0d 05 f0 05 |ff......|...:....|
|00004ce0| 3a 0d 05 fa 26 dd a4 69 | 6e 70 75 74 28 70 72 6f |:...&..i|nput(pro|
|00004cf0| 6d 70 74 24 2c 6d 69 6e | 69 6d 75 6d 25 2c 6d 61 |mpt$,min|imum%,ma|
|00004d00| 78 69 6d 75 6d 25 29 0d | 06 04 0c ea 6e 75 6d 62 |ximum%).|....numb|
|00004d10| 65 72 25 0d 06 0e 4f f1 | 3a f5 f5 ef 31 32 37 3a |er%...O.|:...127:|
|00004d20| fd b1 3d 30 3a f1 22 85 | 22 70 72 6f 6d 70 74 24 |..=0:.".|"prompt$|
|00004d30| 3b 3a e8 22 87 22 6e 75 | 6d 62 65 72 25 3a fd 6e |;:."."nu|mber%:.n|
|00004d40| 75 6d 62 65 72 25 3e 3d | 6d 69 6e 69 6d 75 6d 25 |umber%>=|minimum%|
|00004d50| 80 6e 75 6d 62 65 72 25 | 3c 3d 6d 61 78 69 6d 75 |.number%|<=maximu|
|00004d60| 6d 25 0d 06 18 0c 3d 6e | 75 6d 62 65 72 25 0d 06 |m%....=n|umber%..|
|00004d70| 22 05 3a 0d 06 2c 05 3a | 0d 06 36 14 dd f2 6c 6f |".:..,.:|..6...lo|
|00004d80| 6e 67 6c 61 74 5f 6d 61 | 70 72 65 66 0d 06 40 65 |nglat_ma|pref..@e|
|00004d90| e7 28 65 61 73 74 25 3d | a3 20 80 64 65 67 6c 6f |.(east%=|. .deglo|
|00004da0| 6e 67 25 3e 34 30 29 84 | 28 65 61 73 74 25 3d b9 |ng%>40).|(east%=.|
|00004db0| 20 80 64 65 67 6c 6f 6e | 67 25 3e 31 29 84 6e 6f | .deglon|g%>1).no|
|00004dc0| 72 74 68 25 3d a3 20 84 | 64 65 67 6c 61 74 25 3c |rth%=. .|deglat%<|
|00004dd0| 34 39 84 64 65 67 6c 61 | 74 25 3e 36 30 8c 65 61 |49.degla|t%>60.ea|
|00004de0| 73 74 69 6e 67 25 3d 39 | 39 39 39 3a e5 8d 64 6a |sting%=9|999:..dj|
|00004df0| 46 0d 06 4a 31 72 61 64 | 6c 6f 6e 67 3d b2 28 64 |F..J1rad|long=.(d|
|00004e00| 65 67 6c 6f 6e 67 25 2b | 6d 69 6e 6c 6f 6e 67 25 |eglong%+|minlong%|
|00004e10| 2f 36 30 2b 73 65 63 6c | 6f 6e 67 25 2f 33 36 30 |/60+secl|ong%/360|
|00004e20| 30 29 0d 06 54 1e e7 65 | 61 73 74 25 3d a3 20 8c |0)..T..e|ast%=. .|
|00004e30| 72 61 64 6c 6f 6e 67 3d | 2d 72 61 64 6c 6f 6e 67 |radlong=|-radlong|
|00004e40| 0d 06 5e 2d 72 61 64 6c | 61 74 3d b2 28 64 65 67 |..^-radl|at=.(deg|
|00004e50| 6c 61 74 25 2b 6d 69 6e | 6c 61 74 25 2f 36 30 2b |lat%+min|lat%/60+|
|00004e60| 73 65 63 6c 61 74 25 2f | 33 36 30 30 29 0d 06 68 |seclat%/|3600)..h|
|00004e70| 1c 4b 3d 72 61 64 6c 61 | 74 3a 4b 33 3d 4b 2d 4b |.K=radla|t:K3=K-K|
|00004e80| 30 3a 4b 34 3d 4b 2b 4b | 30 0d 06 72 18 f2 61 72 |0:K4=K+K|0..r..ar|
|00004e90| 63 6f 66 6d 65 72 69 64 | 69 61 6e 3a f2 76 72 68 |cofmerid|ian:.vrh|
|00004ea0| 32 0d 06 7c 19 50 3d 72 | 61 64 6c 6f 6e 67 2d 4c |2..|.P=r|adlong-L|
|00004eb0| 30 3a 4a 33 3d 4d 2b 4e | 30 25 0d 06 86 18 54 3d |0:J3=M+N|0%....T=|
|00004ec0| b7 28 4b 29 3a 43 3d 9b | 28 4b 29 3a 53 3d b5 28 |.(K):C=.|(K):S=.(|
|00004ed0| 4b 29 0d 06 90 0e 4a 34 | 3d 56 2f 32 2a 53 2a 43 |K)....J4|=V/2*S*C|
|00004ee0| 0d 06 9a 1e 4a 35 3d 56 | 2f 32 34 2a 53 2a 43 5e |....J5=V|/24*S*C^|
|00004ef0| 33 2a 28 35 2d 54 5e 32 | 2b 39 2a 48 32 29 0d 06 |3*(5-T^2|+9*H2)..|
|00004f00| a4 22 4a 36 3d 56 2f 37 | 32 30 2a 53 2a 43 5e 35 |."J6=V/7|20*S*C^5|
|00004f10| 2a 28 36 31 2d 35 38 2a | 54 5e 32 2b 54 5e 34 29 |*(61-58*|T^2+T^4)|
|00004f20| 0d 06 ae 29 6e 6f 72 74 | 68 69 6e 67 25 3d 4a 33 |...)nort|hing%=J3|
|00004f30| 2b 50 5e 32 2a 4a 34 2b | 50 5e 34 2a 4a 35 2b 50 |+P^2*J4+|P^4*J5+P|
|00004f40| 5e 36 2a 4a 36 2b 30 2e | 35 0d 06 b8 0a 4a 37 3d |^6*J6+0.|5....J7=|
|00004f50| 56 2a 43 0d 06 c2 18 4a | 38 3d 56 2f 36 2a 43 5e |V*C....J|8=V/6*C^|
|00004f60| 33 2a 28 56 2f 52 2d 54 | 5e 32 29 0d 06 cc 10 4a |3*(V/R-T|^2)....J|
|00004f70| 39 3d 56 2f 31 32 30 2a | 43 5e 35 0d 06 d6 28 4a |9=V/120*|C^5...(J|
|00004f80| 39 3d 4a 39 2a 28 35 2d | 31 38 2a 54 5e 32 2b 54 |9=J9*(5-|18*T^2+T|
|00004f90| 5e 34 2b 31 34 2a 48 32 | 2d 35 38 2a 54 5e 32 2a |^4+14*H2|-58*T^2*|
|00004fa0| 48 32 29 0d 06 e0 27 65 | 61 73 74 69 6e 67 25 3d |H2)...'e|asting%=|
|00004fb0| 45 30 25 2b 50 2a 4a 37 | 2b 50 5e 33 2a 4a 38 2b |E0%+P*J7|+P^3*J8+|
|00004fc0| 50 5e 35 2a 4a 39 2b 30 | 2e 35 0d 06 ea 05 e1 0d |P^5*J9+0|.5......|
|00004fd0| 06 f4 05 3a 0d 06 fe 05 | 3a 0d 07 08 0a dd f2 6d |...:....|:......m|
|00004fe0| 65 6e 75 0d 07 12 4d ea | 6e 75 6d 62 65 72 25 2c |enu...M.|number%,|
|00004ff0| 69 74 65 6d 24 3a f7 8d | 44 76 47 3a e3 20 6e 75 |item$:..|DvG:. nu|
|00005000| 6d 62 65 72 25 3d 31 b8 | 34 3a f3 69 74 65 6d 24 |mber%=1.|4:.item$|
|00005010| 3a f1 22 20 83 22 3b 6e | 75 6d 62 65 72 25 22 20 |:." .";n|umber%" |
|00005020| 2e 2e 2e 2e 2e 2e 2e 20 | 22 69 74 65 6d 24 3a ed |....... |"item$:.|
|00005030| 0d 07 1c 28 f1 22 83 3c | 45 53 43 3e 20 2e 2e 2e |...(.".<|ESC> ...|
|00005040| 2e 20 4d 65 6e 75 20 6f | 72 20 4f 74 68 65 72 20 |. Menu o|r Other |
|00005050| 53 65 63 74 69 6f 6e 22 | 0d 07 26 05 e1 0d 07 30 |Section"|..&....0|
|00005060| 05 3a 0d 07 3a 05 3a 0d | 07 44 0c dd f2 63 68 6f |.:..:.:.|.D...cho|
|00005070| 6f 73 65 0d 07 4e 52 f2 | 6f 66 66 3a ef 32 38 2c |ose..NR.|off:.28,|
|00005080| 30 2c 32 34 2c 33 39 2c | 31 39 3a db 3a f1 22 81 |0,24,39,|19:.:.".|
|00005090| 59 6f 75 72 20 43 68 6f | 69 63 65 88 3e 22 3b 3a |Your Cho|ice.>";:|
|000050a0| f5 20 63 68 6f 69 63 65 | 25 3d a5 2d 34 38 3a fd |. choice|%=.-48:.|
|000050b0| 63 68 6f 69 63 65 25 3e | 30 80 63 68 6f 69 63 65 |choice%>|0.choice|
|000050c0| 25 3c 35 3a db 0d 07 58 | 05 e1 0d 07 62 05 3a 0d |%<5:...X|....b.:.|
|000050d0| 07 6c 05 3a 0d 07 76 5b | dc 20 45 6e 74 65 72 20 |.l.:..v[|. Enter |
|000050e0| 4c 6f 6e 67 69 74 75 64 | 65 20 26 20 4c 61 74 69 |Longitud|e & Lati|
|000050f0| 74 75 64 65 2c 45 6e 74 | 65 72 20 4f 53 20 4d 61 |tude,Ent|er OS Ma|
|00005100| 70 20 52 65 66 65 72 65 | 6e 63 65 2c 45 6e 74 65 |p Refere|nce,Ente|
|00005110| 72 20 4c 6f 63 61 74 6f | 72 20 43 6f 64 65 2c 53 |r Locato|r Code,S|
|00005120| 74 6f 72 65 20 4c 61 73 | 74 20 45 6e 74 72 79 0d |tore Las|t Entry.|
|00005130| 07 80 05 3a 0d 07 8a 05 | 3a 0d 07 94 17 dd f2 65 |...:....|:......e|
|00005140| 6e 74 65 72 6c 6f 63 28 | 70 72 6f 6d 70 74 24 29 |nterloc(|prompt$)|
|00005150| 0d 07 9e 13 f2 6f 6e 3a | 6c 6f 63 61 74 6f 72 24 |.....on:|locator$|
|00005160| 3d 22 22 0d 07 a8 1e f1 | 70 72 6f 6d 70 74 24 3b |="".....|prompt$;|
|00005170| 3a e8 22 22 6c 6f 63 61 | 74 6f 72 24 3a f2 6f 66 |:.""loca|tor$:.of|
|00005180| 66 0d 07 b2 3c e7 a9 28 | 6c 6f 63 61 74 6f 72 24 |f...<..(|locator$|
|00005190| 29 3d 35 80 a4 71 74 68 | 3d b9 20 8c 8d 64 46 47 |)=5..qth|=. ..dFG|
|000051a0| 20 8b e7 a9 28 6c 6f 63 | 61 74 6f 72 24 29 3d 36 | ...(loc|ator$)=6|
|000051b0| 80 a4 6d 75 6c 3d b9 20 | 8c 8d 64 46 47 0d 07 bc |..mul=. |..dFG...|
|000051c0| 14 f2 7a 61 70 3a f2 77 | 69 70 65 3a e5 8d 74 5e |..zap:.w|ipe:..t^|
|000051d0| 47 0d 07 c6 05 e1 0d 07 | d0 05 3a 0d 07 da 05 3a |G.......|..:....:|
|000051e0| 0d 07 e4 09 dd a4 71 74 | 68 0d 07 ee 0c 6e 6f 72 |......qt|h....nor|
|000051f0| 74 68 25 3d b9 0d 07 f8 | 18 e7 a9 28 6c 6f 63 61 |th%=....|...(loca|
|00005200| 74 6f 72 24 29 3c 3e 35 | 8c 8d 44 7a 48 0d 08 02 |tor$)<>5|..DzH...|
|00005210| 89 66 69 72 73 74 25 3d | 97 28 c0 6c 6f 63 61 74 |.first%=|.(.locat|
|00005220| 6f 72 24 2c 31 29 29 80 | 26 44 46 3a 73 65 63 6f |or$,1)).|&DF:seco|
|00005230| 6e 64 25 3d 97 28 c1 6c | 6f 63 61 74 6f 72 24 2c |nd%=.(.l|ocator$,|
|00005240| 32 2c 31 29 29 80 26 44 | 46 3a 74 68 69 72 64 25 |2,1)).&D|F:third%|
|00005250| 3d 97 28 c1 6c 6f 63 61 | 74 6f 72 24 2c 33 2c 31 |=.(.loca|tor$,3,1|
|00005260| 29 29 3a 66 6f 72 74 68 | 25 3d 97 28 c1 6c 6f 63 |)):forth|%=.(.loc|
|00005270| 61 74 6f 72 24 2c 34 2c | 31 29 29 3a 66 69 66 74 |ator$,4,|1)):fift|
|00005280| 68 25 3d 97 28 c2 6c 6f | 63 61 74 6f 72 24 2c 31 |h%=.(.lo|cator$,1|
|00005290| 29 29 84 26 32 30 0d 08 | 0c 1d e7 66 69 72 73 74 |)).&20..|...first|
|000052a0| 25 3c 36 35 84 66 69 72 | 73 74 25 3e 39 30 8c 8d |%<65.fir|st%>90..|
|000052b0| 44 7a 48 0d 08 16 1f e7 | 73 65 63 6f 6e 64 25 3c |DzH.....|second%<|
|000052c0| 36 35 84 73 65 63 6f 6e | 64 25 3e 39 30 8c 8d 44 |65.secon|d%>90..D|
|000052d0| 7a 48 0d 08 20 1d e7 74 | 68 69 72 64 25 3c 34 38 |zH.. ..t|hird%<48|
|000052e0| 84 74 68 69 72 64 25 3e | 35 36 8c 8d 44 7a 48 0d |.third%>|56..DzH.|
|000052f0| 08 2a 1d e7 66 6f 72 74 | 68 25 3c 34 38 84 66 6f |.*..fort|h%<48.fo|
|00005300| 72 74 68 25 3e 35 37 8c | 8d 44 7a 48 0d 08 34 29 |rth%>57.|.DzH..4)|
|00005310| e7 66 69 66 74 68 25 3c | 39 37 84 66 69 66 74 68 |.fifth%<|97.fifth|
|00005320| 25 3e 31 30 36 84 66 69 | 66 74 68 25 3d 31 30 35 |%>106.fi|fth%=105|
|00005330| 8c 8d 44 7a 48 0d 08 3e | 5a 66 69 72 73 74 24 3d |..DzH..>|Zfirst$=|
|00005340| bd 28 66 69 72 73 74 25 | 29 3a 73 65 63 6f 6e 64 |.(first%|):second|
|00005350| 24 3d bd 28 73 65 63 6f | 6e 64 25 29 3a 74 68 69 |$=.(seco|nd%):thi|
|00005360| 72 64 24 3d bd 28 74 68 | 69 72 64 25 29 3a 66 6f |rd$=.(th|ird%):fo|
|00005370| 72 74 68 24 3d bd 28 66 | 6f 72 74 68 25 29 3a 66 |rth$=.(f|orth%):f|
|00005380| 69 66 74 68 24 3d bd 28 | 66 69 66 74 68 25 29 0d |ifth$=.(|fifth%).|
|00005390| 08 48 25 74 68 69 72 64 | 25 3d bb 28 74 68 69 72 |.H%third|%=.(thir|
|000053a0| 64 24 29 3a 66 6f 72 74 | 68 25 3d bb 28 66 6f 72 |d$):fort|h%=.(for|
|000053b0| 74 68 24 29 0d 08 52 1e | e7 31 30 2a 74 68 69 72 |th$)..R.|.10*thir|
|000053c0| 64 25 2b 66 6f 72 74 68 | 25 3e 38 30 20 8c 8d 44 |d%+forth|%>80 ..D|
|000053d0| 7a 48 0d 08 5c 2c 71 74 | 68 24 3d 66 69 72 73 74 |zH..\,qt|h$=first|
|000053e0| 24 2b 73 65 63 6f 6e 64 | 24 2b 74 68 69 72 64 24 |$+second|$+third$|
|000053f0| 2b 66 6f 72 74 68 24 2b | 66 69 66 74 68 24 0d 08 |+forth$+|fifth$..|
|00005400| 66 11 6c 6f 63 61 74 6f | 72 24 3d 71 74 68 24 0d |f.locato|r$=qth$.|
|00005410| 08 70 09 e5 8d 74 44 48 | 0d 08 7a 06 3d a3 0d 08 |.p...tDH|..z.=...|
|00005420| 84 06 3d b9 0d 08 8e 05 | 3a 0d 08 98 05 3a 0d 08 |..=.....|:....:..|
|00005430| a2 11 dd f2 71 74 68 5f | 6c 6f 6e 67 6c 61 74 0d |....qth_|longlat.|
|00005440| 08 ac 37 66 69 66 74 68 | 25 3d 97 28 66 69 66 74 |..7fifth|%=.(fift|
|00005450| 68 24 29 2d 39 37 3a 50 | 25 3d 43 25 28 30 2c 66 |h$)-97:P|%=C%(0,f|
|00005460| 69 66 74 68 25 29 3a 51 | 25 3d 43 25 28 31 2c 66 |ifth%):Q|%=C%(1,f|
|00005470| 69 66 74 68 25 29 0d 08 | b6 27 66 69 72 73 74 25 |ifth%)..|.'first%|
|00005480| 3d 28 66 69 72 73 74 25 | 2d 36 35 2b 6f 72 69 67 |=(first%|-65+orig|
|00005490| 69 6e 6c 6f 6e 67 25 2f | 32 29 83 32 36 0d 08 c0 |inlong%/|2).26...|
|000054a0| 26 73 65 63 6f 6e 64 25 | 3d 28 73 65 63 6f 6e 64 |&second%|=(second|
|000054b0| 25 2d 32 35 2d 6f 72 69 | 67 69 6e 6c 61 74 25 29 |%-25-ori|ginlat%)|
|000054c0| 83 32 36 0d 08 ca 27 e7 | 66 6f 72 74 68 25 3d 30 |.26...'.|forth%=0|
|000054d0| 8c 66 6f 72 74 68 25 3d | 31 30 3a 74 68 69 72 64 |.forth%=|10:third|
|000054e0| 25 3d 74 68 69 72 64 25 | 2d 31 0d 08 d4 3e 64 65 |%=third%|-1...>de|
|000054f0| 67 6c 6f 6e 67 25 3d 32 | 2a 66 69 72 73 74 25 3a |glong%=2|*first%:|
|00005500| 6d 69 6e 6c 6f 6e 67 25 | 3d 31 32 2a 28 66 6f 72 |minlong%|=12*(for|
|00005510| 74 68 25 2d 31 29 2b 50 | 25 2a 34 2b 32 3a 73 65 |th%-1)+P|%*4+2:se|
|00005520| 63 6c 6f 6e 67 25 3d 30 | 0d 08 de 36 64 65 67 6c |clong%=0|...6degl|
|00005530| 6f 6e 67 25 3d 64 65 67 | 6c 6f 6e 67 25 2b 6d 69 |ong%=deg|long%+mi|
|00005540| 6e 6c 6f 6e 67 25 81 36 | 30 3a 6d 69 6e 6c 6f 6e |nlong%.6|0:minlon|
|00005550| 67 25 3d 6d 69 6e 6c 6f | 6e 67 25 83 36 30 0d 08 |g%=minlo|ng%.60..|
|00005560| e8 48 64 65 67 6c 6f 6e | 67 25 3d 64 65 67 6c 6f |.Hdeglon|g%=deglo|
|00005570| 6e 67 25 2d 6f 72 69 67 | 69 6e 6c 6f 6e 67 25 3a |ng%-orig|inlong%:|
|00005580| 73 69 67 6e 25 3d b4 28 | 64 65 67 6c 6f 6e 67 25 |sign%=.(|deglong%|
|00005590| 29 3a 64 65 67 6c 6f 6e | 67 25 3d 94 28 64 65 67 |):deglon|g%=.(deg|
|000055a0| 6c 6f 6e 67 25 29 0d 08 | f2 40 e7 73 69 67 6e 25 |long%)..|.@.sign%|
|000055b0| 3c 30 80 6d 69 6e 6c 6f | 6e 67 25 3e 30 8c 64 65 |<0.minlo|ng%>0.de|
|000055c0| 67 6c 6f 6e 67 25 3d 64 | 65 67 6c 6f 6e 67 25 2d |glong%=d|eglong%-|
|000055d0| 31 3a 6d 69 6e 6c 6f 6e | 67 25 3d 36 30 2d 6d 69 |1:minlon|g%=60-mi|
|000055e0| 6e 6c 6f 6e 67 25 0d 08 | fc 59 64 65 67 6c 61 74 |nlong%..|.Ydeglat|
|000055f0| 25 3d 6f 72 69 67 69 6e | 6c 61 74 25 2b 73 65 63 |%=origin|lat%+sec|
|00005600| 6f 6e 64 25 3a 6d 69 6e | 6c 61 74 25 3d 28 37 2d |ond%:min|lat%=(7-|
|00005610| 74 68 69 72 64 25 29 2a | 37 2b 51 25 2a 32 2b 31 |third%)*|7+Q%*2+1|
|00005620| 3a 73 65 63 6c 61 74 25 | 3d 28 37 2d 74 68 69 72 |:seclat%|=(7-thir|
|00005630| 64 25 29 2a 33 30 2b 51 | 25 2a 33 30 2b 31 35 0d |d%)*30+Q|%*30+15.|
|00005640| 09 06 31 6d 69 6e 6c 61 | 74 25 3d 6d 69 6e 6c 61 |..1minla|t%=minla|
|00005650| 74 25 2b 73 65 63 6c 61 | 74 25 81 36 30 3a 73 65 |t%+secla|t%.60:se|
|00005660| 63 6c 61 74 25 3d 73 65 | 63 6c 61 74 25 83 36 30 |clat%=se|clat%.60|
|00005670| 0d 09 10 26 6e 6f 72 74 | 68 25 3d b9 3a e7 73 69 |...&nort|h%=.:.si|
|00005680| 67 6e 25 3c 30 8c 65 61 | 73 74 25 3d a3 20 8b 65 |gn%<0.ea|st%=. .e|
|00005690| 61 73 74 25 3d b9 0d 09 | 1a 05 e1 0d 09 24 05 3a |ast%=...|.....$.:|
|000056a0| 0d 09 2e 05 3a 0d 09 38 | 0a dd f2 72 65 61 64 0d |....:..8|...read.|
|000056b0| 09 42 2f ea 41 25 2c 42 | 25 3a f7 8d 44 74 49 3a |.B/.A%,B|%:..DtI:|
|000056c0| e3 41 25 3d 30 b8 31 3a | e3 42 25 3d 30 b8 39 3a |.A%=0.1:|.B%=0.9:|
|000056d0| f3 43 25 28 41 25 2c 42 | 25 29 3a ed 3a ed 0d 09 |.C%(A%,B|%):.:...|
|000056e0| 4c 39 e3 72 6f 77 25 3d | 30 b8 32 3a e3 63 6f 6c |L9.row%=|0.2:.col|
|000056f0| 75 6d 6e 25 3d 30 b8 32 | 3a f3 6c 61 73 74 6c 65 |umn%=0.2|:.lastle|
|00005700| 74 74 65 72 24 28 72 6f | 77 25 2c 63 6f 6c 75 6d |tter$(ro|w%,colum|
|00005710| 6e 25 29 3a ed 3a ed 0d | 09 51 3b e3 63 6f 6c 75 |n%):.:..|.Q;.colu|
|00005720| 6d 6e 25 3d 30 b8 31 32 | 3a e3 72 6f 77 25 3d 30 |mn%=0.12|:.row%=0|
|00005730| b8 36 3a f3 67 72 69 64 | 6c 65 74 74 65 72 73 24 |.6:.grid|letters$|
|00005740| 28 72 6f 77 25 2c 63 6f | 6c 75 6d 6e 25 29 3a ed |(row%,co|lumn%):.|
|00005750| 3a ed 0d 09 56 05 e1 0d | 09 60 05 3a 0d 09 6a 05 |:...V...|.`.:..j.|
|00005760| 3a 0d 09 74 19 dc 20 31 | 2c 32 2c 32 2c 32 2c 31 |:..t.. 1|,2,2,2,1|
|00005770| 2c 30 2c 30 2c 30 2c 30 | 2c 31 0d 09 7e 19 dc 20 |,0,0,0,0|,1..~.. |
|00005780| 32 2c 32 2c 31 2c 30 2c | 30 2c 30 2c 31 2c 32 2c |2,2,1,0,|0,0,1,2,|
|00005790| 30 2c 31 0d 09 88 17 dc | 20 66 2c 65 2c 64 2c 67 |0,1.....| f,e,d,g|
|000057a0| 2c 6a 2c 63 2c 68 2c 61 | 2c 62 0d 09 8d 71 dc 20 |,j,c,h,a|,b...q. |
|000057b0| 53 56 2c 53 57 2c 53 58 | 2c 53 59 2c 53 5a 2c 54 |SV,SW,SX|,SY,SZ,T|
|000057c0| 56 2c 54 57 2c 53 51 2c | 53 52 2c 53 53 2c 53 54 |V,TW,SQ,|SR,SS,ST|
|000057d0| 2c 53 55 2c 54 51 2c 54 | 52 2c 53 4c 2c 53 4d 2c |,SU,TQ,T|R,SL,SM,|
|000057e0| 53 4e 2c 53 4f 2c 53 50 | 2c 54 4c 2c 54 4d 2c 53 |SN,SO,SP|,TL,TM,S|
|000057f0| 46 2c 53 47 2c 53 48 2c | 53 4a 2c 53 4b 2c 54 46 |F,SG,SH,|SJ,SK,TF|
|00005800| 2c 54 47 2c 53 41 2c 53 | 42 2c 53 43 2c 53 44 2c |,TG,SA,S|B,SC,SD,|
|00005810| 53 45 2c 54 41 2c 54 42 | 2c 4e 56 0d 09 8e ae dc |SE,TA,TB|,NV.....|
|00005820| 20 4e 57 2c 4e 58 2c 4e | 59 2c 4e 5a 2c 4f 56 2c | NW,NX,N|Y,NZ,OV,|
|00005830| 4f 57 2c 4e 51 2c 4e 52 | 2c 4e 53 2c 4e 54 2c 4e |OW,NQ,NR|,NS,NT,N|
|00005840| 55 2c 4f 51 2c 4f 52 2c | 4e 4c 2c 4e 4d 2c 4e 4e |U,OQ,OR,|NL,NM,NN|
|00005850| 2c 4e 4f 2c 4e 50 2c 4f | 4c 2c 4f 4d 2c 4e 46 2c |,NO,NP,O|L,OM,NF,|
|00005860| 4e 47 2c 4e 48 2c 4e 4a | 2c 4e 4b 2c 4f 46 2c 4f |NG,NH,NJ|,NK,OF,O|
|00005870| 47 2c 4e 41 2c 4e 42 2c | 4e 43 2c 4e 44 2c 4e 45 |G,NA,NB,|NC,ND,NE|
|00005880| 2c 4f 41 2c 4f 42 2c 48 | 56 2c 48 57 2c 48 58 2c |,OA,OB,H|V,HW,HX,|
|00005890| 48 59 2c 48 5a 2c 4a 56 | 2c 4a 57 2c 48 51 2c 48 |HY,HZ,JV|,JW,HQ,H|
|000058a0| 52 2c 48 53 2c 48 54 2c | 48 55 2c 4a 51 2c 4a 52 |R,HS,HT,|HU,JQ,JR|
|000058b0| 2c 48 4c 2c 48 4d 2c 48 | 4e 2c 48 4f 2c 48 50 2c |,HL,HM,H|N,HO,HP,|
|000058c0| 4a 4c 2c 4a 4d 2c 45 4e | 44 0d 09 92 05 3a 0d 09 |JL,JM,EN|D....:..|
|000058d0| 9c 05 3a 0d 09 a6 45 dd | f2 6c 6f 6e 67 6c 61 74 |..:...E.|.longlat|
|000058e0| 5f 6d 75 6c 28 64 65 67 | 6c 6f 6e 67 25 2c 6d 69 |_mul(deg|long%,mi|
|000058f0| 6e 6c 6f 6e 67 25 2c 73 | 65 63 6c 6f 6e 67 25 2c |nlong%,s|eclong%,|
|00005900| 64 65 67 6c 61 74 25 2c | 6d 69 6e 6c 61 74 25 2c |deglat%,|minlat%,|
|00005910| 73 65 63 6c 61 74 25 29 | 0d 09 b0 3f e7 65 61 73 |seclat%)|...?.eas|
|00005920| 74 25 3d b9 20 8c 64 65 | 67 6c 6f 6e 67 25 3d 64 |t%=. .de|glong%=d|
|00005930| 65 67 6c 6f 6e 67 25 2b | 31 38 30 3a 64 65 67 6c |eglong%+|180:degl|
|00005940| 6f 6e 67 25 3d 64 65 67 | 6c 6f 6e 67 25 83 33 36 |ong%=deg|long%.36|
|00005950| 30 3a e5 8d 64 58 49 0d | 09 ba 43 64 65 67 6c 6f |0:..dXI.|..Cdeglo|
|00005960| 6e 67 25 3d 31 37 39 2d | 64 65 67 6c 6f 6e 67 25 |ng%=179-|deglong%|
|00005970| 3a 6d 69 6e 6c 6f 6e 67 | 25 3d 35 39 2d 6d 69 6e |:minlong|%=59-min|
|00005980| 6c 6f 6e 67 25 3a 73 65 | 63 6c 6f 6e 67 25 3d 36 |long%:se|clong%=6|
|00005990| 30 2d 73 65 63 6c 6f 6e | 67 25 0d 09 c4 69 6d 69 |0-seclon|g%...imi|
|000059a0| 6e 6c 6f 6e 67 25 3d 6d | 69 6e 6c 6f 6e 67 25 2b |nlong%=m|inlong%+|
|000059b0| 73 65 63 6c 6f 6e 67 25 | 81 36 30 3a 73 65 63 6c |seclong%|.60:secl|
|000059c0| 6f 6e 67 25 3d 73 65 63 | 6c 6f 6e 67 25 83 36 30 |ong%=sec|long%.60|
|000059d0| 3a 64 65 67 6c 6f 6e 67 | 25 3d 64 65 67 6c 6f 6e |:deglong|%=deglon|
|000059e0| 67 25 2b 6d 69 6e 6c 6f | 6e 67 25 81 36 30 3a 6d |g%+minlo|ng%.60:m|
|000059f0| 69 6e 6c 6f 6e 67 25 3d | 6d 69 6e 6c 6f 6e 67 25 |inlong%=|minlong%|
|00005a00| 83 36 30 0d 09 ce 2f 64 | 65 67 6c 6f 6e 67 25 3d |.60.../d|eglong%=|
|00005a10| 64 65 67 6c 6f 6e 67 25 | 2b 33 36 30 3a 64 65 67 |deglong%|+360:deg|
|00005a20| 6c 6f 6e 67 25 3d 64 65 | 67 6c 6f 6e 67 25 83 33 |long%=de|glong%.3|
|00005a30| 36 30 0d 09 d8 1c 66 69 | 72 73 74 24 3d bd 28 64 |60....fi|rst$=.(d|
|00005a40| 65 67 6c 6f 6e 67 25 81 | 32 30 2b 36 35 29 0d 09 |eglong%.|20+65)..|
|00005a50| e2 20 74 68 69 72 64 24 | 3d bd 28 28 64 65 67 6c |. third$|=.((degl|
|00005a60| 6f 6e 67 25 83 32 30 29 | 81 32 2b 34 38 29 0d 09 |ong%.20)|.2+48)..|
|00005a70| ec 2d 66 69 66 74 68 24 | 3d bd 28 28 28 64 65 67 |.-fifth$|=.(((deg|
|00005a80| 6c 6f 6e 67 25 83 32 29 | 2a 36 30 2b 6d 69 6e 6c |long%.2)|*60+minl|
|00005a90| 6f 6e 67 25 29 81 35 2b | 39 37 29 0d 09 f6 27 e7 |ong%).5+|97)...'.|
|00005aa0| 6e 6f 72 74 68 25 3d b9 | 20 8c 64 65 67 6c 61 74 |north%=.| .deglat|
|00005ab0| 25 3d 64 65 67 6c 61 74 | 25 2b 39 30 3a e5 8d 54 |%=deglat|%+90:..T|
|00005ac0| 54 4a 0d 0a 00 3c 64 65 | 67 6c 61 74 25 3d 38 39 |TJ...<de|glat%=89|
|00005ad0| 2d 64 65 67 6c 61 74 25 | 3a 6d 69 6e 6c 61 74 25 |-deglat%|:minlat%|
|00005ae0| 3d 35 39 2d 6d 69 6e 6c | 61 74 25 3a 73 65 63 6c |=59-minl|at%:secl|
|00005af0| 61 74 25 3d 36 30 2d 73 | 65 63 6c 61 74 25 0d 0a |at%=60-s|eclat%..|
|00005b00| 0a 5f 6d 69 6e 6c 61 74 | 25 3d 6d 69 6e 6c 61 74 |._minlat|%=minlat|
|00005b10| 25 2b 73 65 63 6c 61 74 | 25 81 36 30 3a 73 65 63 |%+seclat|%.60:sec|
|00005b20| 6c 61 74 25 3d 73 65 63 | 6c 61 74 25 83 36 30 3a |lat%=sec|lat%.60:|
|00005b30| 64 65 67 6c 61 74 25 3d | 64 65 67 6c 61 74 25 2b |deglat%=|deglat%+|
|00005b40| 6d 69 6e 6c 61 74 25 81 | 36 30 3a 6d 69 6e 6c 61 |minlat%.|60:minla|
|00005b50| 74 25 3d 6d 69 6e 6c 61 | 74 25 83 36 30 0d 0a 14 |t%=minla|t%.60...|
|00005b60| 1c 73 65 63 6f 6e 64 24 | 3d bd 28 64 65 67 6c 61 |.second$|=.(degla|
|00005b70| 74 25 81 31 30 2b 36 35 | 29 0d 0a 1e 1b 66 6f 72 |t%.10+65|)....for|
|00005b80| 74 68 24 3d bd 28 64 65 | 67 6c 61 74 25 83 31 30 |th$=.(de|glat%.10|
|00005b90| 2b 34 38 29 0d 0a 28 30 | 73 69 78 74 68 24 3d bd |+48)..(0|sixth$=.|
|00005ba0| 28 28 6d 69 6e 6c 61 74 | 25 2a 31 30 2b 28 73 65 |((minlat|%*10+(se|
|00005bb0| 63 6c 61 74 25 2a 31 30 | 29 81 36 30 29 81 32 35 |clat%*10|).60).25|
|00005bc0| 2b 39 37 29 0d 0a 32 33 | 6d 75 6c 24 3d 66 69 72 |+97)..23|mul$=fir|
|00005bd0| 73 74 24 2b 73 65 63 6f | 6e 64 24 2b 74 68 69 72 |st$+seco|nd$+thir|
|00005be0| 64 24 2b 66 6f 72 74 68 | 24 2b 66 69 66 74 68 24 |d$+forth|$+fifth$|
|00005bf0| 2b 73 69 78 74 68 24 0d | 0a 3c 05 e1 0d 0a 46 05 |+sixth$.|.<....F.|
|00005c00| 3a 0d 0a 50 05 3a 0d 0a | 5a 09 dd a4 6d 75 6c 0d |:..P.:..|Z...mul.|
|00005c10| 0a 64 19 e7 a9 28 6c 6f | 63 61 74 6f 72 24 29 3c |.d...(lo|cator$)<|
|00005c20| 3e 36 20 8c 8d 64 52 4a | 0d 0a 6e a6 66 69 72 73 |>6 ..dRJ|..n.firs|
|00005c30| 74 25 3d 97 28 c0 6c 6f | 63 61 74 6f 72 24 2c 31 |t%=.(.lo|cator$,1|
|00005c40| 29 29 80 26 44 46 3a 73 | 65 63 6f 6e 64 25 3d 97 |)).&DF:s|econd%=.|
|00005c50| 28 c1 6c 6f 63 61 74 6f | 72 24 2c 32 2c 31 29 29 |(.locato|r$,2,1))|
|00005c60| 80 26 44 46 3a 74 68 69 | 72 64 25 3d 97 28 c1 6c |.&DF:thi|rd%=.(.l|
|00005c70| 6f 63 61 74 6f 72 24 2c | 33 2c 31 29 29 3a 66 6f |ocator$,|3,1)):fo|
|00005c80| 72 74 68 25 3d 97 28 c1 | 6c 6f 63 61 74 6f 72 24 |rth%=.(.|locator$|
|00005c90| 2c 34 2c 31 29 29 3a 66 | 69 66 74 68 25 3d 97 28 |,4,1)):f|ifth%=.(|
|00005ca0| c1 6c 6f 63 61 74 6f 72 | 24 2c 35 2c 31 29 29 84 |.locator|$,5,1)).|
|00005cb0| 26 32 30 3a 73 69 78 74 | 68 25 3d 97 28 c2 6c 6f |&20:sixt|h%=.(.lo|
|00005cc0| 63 61 74 6f 72 24 2c 31 | 29 29 84 26 32 30 0d 0a |cator$,1|)).&20..|
|00005cd0| 78 1d e7 66 69 72 73 74 | 25 3c 36 35 84 66 69 72 |x..first|%<65.fir|
|00005ce0| 73 74 25 3e 38 32 8c 8d | 64 52 4a 0d 0a 82 1f e7 |st%>82..|dRJ.....|
|00005cf0| 73 65 63 6f 6e 64 25 3c | 36 35 84 73 65 63 6f 6e |second%<|65.secon|
|00005d00| 64 25 3e 38 32 8c 8d 64 | 52 4a 0d 0a 8c 1d e7 74 |d%>82..d|RJ.....t|
|00005d10| 68 69 72 64 25 3c 34 38 | 84 74 68 69 72 64 25 3e |hird%<48|.third%>|
|00005d20| 35 37 8c 8d 64 52 4a 0d | 0a 96 1d e7 66 6f 72 74 |57..dRJ.|....fort|
|00005d30| 68 25 3c 34 38 84 66 6f | 72 74 68 25 3e 35 37 8c |h%<48.fo|rth%>57.|
|00005d40| 8d 64 52 4a 0d 0a a0 1e | e7 66 69 66 74 68 25 3c |.dRJ....|.fifth%<|
|00005d50| 39 37 84 66 69 66 74 68 | 25 3e 31 32 30 8c 8d 64 |97.fifth|%>120..d|
|00005d60| 52 4a 0d 0a aa 1e e7 73 | 69 78 74 68 25 3c 39 37 |RJ.....s|ixth%<97|
|00005d70| 84 73 69 78 74 68 25 3e | 31 32 30 8c 8d 64 52 4a |.sixth%>|120..dRJ|
|00005d80| 0d 0a b4 45 6d 75 6c 24 | 3d bd 28 66 69 72 73 74 |...Emul$|=.(first|
|00005d90| 25 29 2b bd 28 73 65 63 | 6f 6e 64 25 29 2b bd 28 |%)+.(sec|ond%)+.(|
|00005da0| 74 68 69 72 64 25 29 2b | bd 28 66 6f 72 74 68 25 |third%)+|.(forth%|
|00005db0| 29 2b bd 28 66 69 66 74 | 68 25 29 2b bd 28 73 69 |)+.(fift|h%)+.(si|
|00005dc0| 78 74 68 25 29 0d 0a be | 11 6c 6f 63 61 74 6f 72 |xth%)...|.locator|
|00005dd0| 24 3d 6d 75 6c 24 0d 0a | c8 09 e5 8d 64 5c 4a 0d |$=mul$..|....d\J.|
|00005de0| 0a d2 06 3d a3 0d 0a dc | 06 3d b9 0d 0a e6 05 3a |...=....|.=.....:|
|00005df0| 0d 0a f0 05 3a 0d 0a fa | 11 dd f2 6d 75 6c 5f 6c |....:...|...mul_l|
|00005e00| 6f 6e 67 6c 61 74 0d 0b | 04 38 64 65 67 6c 6f 6e |onglat..|.8deglon|
|00005e10| 67 25 3d 28 66 69 72 73 | 74 25 2d 36 35 29 2a 32 |g%=(firs|t%-65)*2|
|00005e20| 30 2b 28 74 68 69 72 64 | 25 2d 34 38 29 2a 32 2b |0+(third|%-48)*2+|
|00005e30| 28 66 69 66 74 68 25 2d | 39 37 29 81 31 32 0d 0b |(fifth%-|97).12..|
|00005e40| 0e 21 6d 69 6e 6c 6f 6e | 67 25 3d 28 28 66 69 66 |.!minlon|g%=((fif|
|00005e50| 74 68 25 2d 39 37 29 2a | 35 29 83 36 30 2b 32 0d |th%-97)*|5).60+2.|
|00005e60| 0b 18 0f 73 65 63 6c 6f | 6e 67 25 3d 33 30 0d 0b |...seclo|ng%=30..|
|00005e70| 22 36 e7 64 65 67 6c 6f | 6e 67 25 3e 3d 31 38 30 |"6.deglo|ng%>=180|
|00005e80| 8c 64 65 67 6c 6f 6e 67 | 25 3d 64 65 67 6c 6f 6e |.deglong|%=deglon|
|00005e90| 67 25 2d 31 38 30 3a 65 | 61 73 74 25 3d b9 3a e5 |g%-180:e|ast%=.:.|
|00005ea0| 8d 44 40 4b 0d 0b 2c 43 | 64 65 67 6c 6f 6e 67 25 |.D@K..,C|deglong%|
|00005eb0| 3d 31 37 39 2d 64 65 67 | 6c 6f 6e 67 25 3a 6d 69 |=179-deg|long%:mi|
|00005ec0| 6e 6c 6f 6e 67 25 3d 35 | 39 2d 6d 69 6e 6c 6f 6e |nlong%=5|9-minlon|
|00005ed0| 67 25 3a 73 65 63 6c 6f | 6e 67 25 3d 36 30 2d 73 |g%:seclo|ng%=60-s|
|00005ee0| 65 63 6c 6f 6e 67 25 0d | 0b 36 71 6d 69 6e 6c 6f |eclong%.|.6qminlo|
|00005ef0| 6e 67 25 3d 6d 69 6e 6c | 6f 6e 67 25 2b 73 65 63 |ng%=minl|ong%+sec|
|00005f00| 6c 6f 6e 67 25 81 36 30 | 3a 73 65 63 6c 6f 6e 67 |long%.60|:seclong|
|00005f10| 25 3d 73 65 63 6c 6f 6e | 67 25 83 36 30 3a 64 65 |%=seclon|g%.60:de|
|00005f20| 67 6c 6f 6e 67 25 3d 64 | 65 67 6c 6f 6e 67 25 2b |glong%=d|eglong%+|
|00005f30| 6d 69 6e 6c 6f 6e 67 25 | 81 36 30 3a 6d 69 6e 6c |minlong%|.60:minl|
|00005f40| 6f 6e 67 25 3d 6d 69 6e | 6c 6f 6e 67 25 83 36 30 |ong%=min|long%.60|
|00005f50| 3a 65 61 73 74 25 3d a3 | 0d 0b 40 27 64 65 67 6c |:east%=.|..@'degl|
|00005f60| 61 74 25 3d 28 73 65 63 | 6f 6e 64 25 2d 36 35 29 |at%=(sec|ond%-65)|
|00005f70| 2a 31 30 2b 28 66 6f 72 | 74 68 25 2d 34 38 29 0d |*10+(for|th%-48).|
|00005f80| 0b 4a 29 6d 69 6e 6c 61 | 74 25 3d 28 73 69 78 74 |.J)minla|t%=(sixt|
|00005f90| 68 25 2d 39 37 29 2a 32 | 2b 28 73 69 78 74 68 25 |h%-97)*2|+(sixth%|
|00005fa0| 2d 39 37 29 81 32 2b 31 | 0d 0b 54 21 73 65 63 6c |-97).2+1|..T!secl|
|00005fb0| 61 74 25 3d 28 28 73 69 | 78 74 68 25 2d 39 37 29 |at%=((si|xth%-97)|
|00005fc0| 83 32 29 2a 33 30 2b 31 | 35 0d 0b 5e 32 e7 64 65 |.2)*30+1|5..^2.de|
|00005fd0| 67 6c 61 74 25 3e 3d 39 | 30 8c 64 65 67 6c 61 74 |glat%>=9|0.deglat|
|00005fe0| 25 3d 64 65 67 6c 61 74 | 25 2d 39 30 3a 6e 6f 72 |%=deglat|%-90:nor|
|00005ff0| 74 68 25 3d b9 3a e5 8d | 44 7c 4b 0d 0b 68 3c 64 |th%=.:..|D|K..h<d|
|00006000| 65 67 6c 61 74 25 3d 38 | 39 2d 64 65 67 6c 61 74 |eglat%=8|9-deglat|
|00006010| 25 3a 6d 69 6e 6c 61 74 | 25 3d 35 39 2d 6d 69 6e |%:minlat|%=59-min|
|00006020| 6c 61 74 25 3a 73 65 63 | 6c 61 74 25 3d 36 30 2d |lat%:sec|lat%=60-|
|00006030| 73 65 63 6c 61 74 25 0d | 0b 72 68 6d 69 6e 6c 61 |seclat%.|.rhminla|
|00006040| 74 25 3d 6d 69 6e 6c 61 | 74 25 2b 73 65 63 6c 61 |t%=minla|t%+secla|
|00006050| 74 25 81 36 30 3a 73 65 | 63 6c 61 74 25 3d 73 65 |t%.60:se|clat%=se|
|00006060| 63 6c 61 74 25 83 36 30 | 3a 64 65 67 6c 61 74 25 |clat%.60|:deglat%|
|00006070| 3d 64 65 67 6c 61 74 25 | 2b 6d 69 6e 6c 61 74 25 |=deglat%|+minlat%|
|00006080| 81 36 30 3a 6d 69 6e 6c | 61 74 25 3d 6d 69 6e 6c |.60:minl|at%=minl|
|00006090| 61 74 25 83 36 30 3a 6e | 6f 72 74 68 25 3d a3 0d |at%.60:n|orth%=..|
|000060a0| 0b 7c 05 e1 0d 0b 86 05 | 3a 0d 0b 90 05 3a 0d 0b |.|......|:....:..|
|000060b0| 9a 12 dd f2 69 6e 73 74 | 72 75 63 74 69 6f 6e 73 |....inst|ructions|
|000060c0| 0d 0b a4 0a f2 74 69 74 | 6c 65 0d 0b ae d1 f1 22 |.....tit|le....."|
|000060d0| 20 54 68 65 20 66 69 72 | 73 74 20 70 61 72 74 20 | The fir|st part |
|000060e0| 6f 66 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |of this |program |
|000060f0| 69 73 20 66 6f 72 22 27 | 22 20 20 63 6f 6e 76 65 |is for"'|"  conve|
|00006100| 72 74 69 6e 67 20 62 65 | 74 77 65 65 6e 20 64 69 |rting be|tween di|
|00006110| 66 66 65 72 65 6e 74 20 | 6c 6f 63 61 74 6f 72 22 |fferent |locator"|
|00006120| 27 22 20 20 20 73 79 73 | 74 65 6d 73 2e 20 54 68 |'"   sys|tems. Th|
|00006130| 65 20 4d 55 4c 20 73 79 | 73 74 65 6d 20 69 73 20 |e MUL sy|stem is |
|00006140| 74 68 65 20 6e 65 77 22 | 27 22 47 4d 34 41 4e 42 |the new"|'"GM4ANB|
|00006150| 20 4d 61 69 64 65 6e 68 | 65 61 64 20 55 6e 69 76 | Maidenh|ead Univ|
|00006160| 65 72 73 61 6c 20 4c 6f | 63 61 74 6f 72 2c 20 61 |ersal Lo|cator, a|
|00006170| 73 22 27 22 20 64 65 73 | 63 72 69 62 65 64 20 69 |s"'" des|cribed i|
|00006180| 6e 20 74 68 65 20 49 6e | 74 65 72 6e 61 74 69 6f |n the In|ternatio|
|00006190| 6e 61 6c 20 56 48 46 20 | 46 4d 22 0d 0b b8 f6 f1 |nal VHF |FM".....|
|000061a0| 22 47 75 69 64 65 2c 20 | 61 6e 64 20 61 6c 73 6f |"Guide, |and also|
|000061b0| 20 69 6e 20 52 61 64 69 | 6f 20 43 6f 6d 6d 75 6e | in Radi|o Commun|
|000061c0| 69 63 61 74 69 6f 6e 2c | 22 27 22 20 20 20 20 20 |ication,|"'"     |
|000061d0| 4f 63 74 6f 62 65 72 20 | 31 39 38 34 2e 20 43 6f |October |1984. Co|
|000061e0| 2d 6f 72 64 69 6e 61 74 | 65 73 20 61 72 65 22 27 |-ordinat|es are"'|
|000061f0| 22 20 20 20 63 61 6c 63 | 75 6c 61 74 65 64 20 6f |"   calc|ulated o|
|00006200| 6e 20 74 68 65 20 62 61 | 73 69 73 20 6f 66 20 6c |n the ba|sis of l|
|00006210| 6f 63 61 74 6f 72 22 27 | 22 20 20 20 20 73 71 75 |ocator"'|"    squ|
|00006220| 61 72 65 20 63 65 6e 74 | 72 65 73 2e 20 57 68 65 |are cent|res. Whe|
|00006230| 6e 20 63 61 6c 63 75 6c | 61 74 69 6e 67 22 27 22 |n calcul|ating"'"|
|00006240| 20 6c 6f 63 61 74 6f 72 | 73 2c 20 61 6e 79 20 62 | locator|s, any b|
|00006250| 6f 72 64 65 72 6c 69 6e | 65 20 63 61 73 65 73 20 |orderlin|e cases |
|00006260| 77 69 6c 6c 20 62 65 22 | 27 22 20 20 63 6f 75 6e |will be"|'"  coun|
|00006270| 74 65 64 20 74 6f 20 74 | 68 65 20 72 69 67 68 74 |ted to t|he right|
|00006280| 20 61 6e 64 2f 6f 72 20 | 4e 6f 72 74 68 20 6f 66 | and/or |North of|
|00006290| 22 0d 0b c2 ca f1 22 20 | 20 20 20 20 20 20 74 68 |"....." |      th|
|000062a0| 65 20 61 70 70 72 6f 70 | 72 69 61 74 65 20 62 6f |e approp|riate bo|
|000062b0| 75 6e 64 61 72 79 2e 22 | 27 27 22 20 54 68 65 20 |undary."|''" The |
|000062c0| 4f 53 20 4d 61 70 20 52 | 65 66 65 72 65 6e 63 65 |OS Map R|eference|
|000062d0| 20 69 73 20 65 6e 74 65 | 72 65 64 20 61 73 20 74 | is ente|red as t|
|000062e0| 77 6f 22 27 22 20 20 20 | 6c 65 74 74 65 72 73 20 |wo"'"   |letters |
|000062f0| 61 6e 64 20 73 69 78 20 | 64 69 67 69 74 73 2c 20 |and six |digits, |
|00006300| 69 6e 20 74 68 65 20 77 | 61 79 22 27 22 20 20 20 |in the w|ay"'"   |
|00006310| 20 64 65 73 63 72 69 62 | 65 64 20 6f 6e 20 31 2d | describ|ed on 1-|
|00006320| 69 6e 63 68 20 61 6e 64 | 20 31 3a 35 30 2c 30 30 |inch and| 1:50,00|
|00006330| 30 22 27 22 20 4f 72 64 | 6e 61 6e 63 65 20 53 75 |0"'" Ord|nance Su|
|00006340| 72 76 65 79 20 6d 61 70 | 73 2e 20 54 68 65 20 57 |rvey map|s. The W|
|00006350| 6f 72 6b 65 64 2d 41 6c | 6c 2d 22 0d 0b cc 52 f1 |orked-Al|l-"...R.|
|00006360| 22 20 42 72 69 74 61 69 | 6e 20 63 6f 64 65 20 69 |" Britai|n code i|
|00006370| 73 20 73 69 6d 70 6c 79 | 20 61 6e 20 61 62 62 72 |s simply| an abbr|
|00006380| 65 76 69 61 74 65 64 22 | 27 22 20 20 20 20 20 76 |eviated"|'"     v|
|00006390| 65 72 73 69 6f 6e 20 6f | 66 20 74 68 65 20 4d 61 |ersion o|f the Ma|
|000063a0| 70 20 52 65 66 65 72 65 | 6e 63 65 2e 22 0d 0b d6 |p Refere|nce."...|
|000063b0| 30 f1 27 8a 36 29 22 85 | 50 72 65 73 73 86 3c 53 |0.'.6)".|Press.<S|
|000063c0| 50 41 43 45 3e 85 74 6f | 20 63 6f 6e 74 69 6e 75 |PACE>.to| continu|
|000063d0| 65 20 22 3b 3a f5 fd a6 | 28 2d 39 39 29 0d 0b e0 |e ";:...|(-99)...|
|000063e0| 05 e1 0d 0b ea 05 3a 0d | 0b f4 05 3a 0d 0b fe 12 |......:.|...:....|
|000063f0| dd f2 70 72 69 6e 74 28 | 76 70 6f 73 25 29 0d 0c |..print(|vpos%)..|
+--------+-------------------------+-------------------------+--------+--------+