|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics
Length: 3235939 (0x316063)
Description: Bits:30008160 MT117 geodæsi programmer og resterne af dump fra Kemisk/HCØ
Types: SimhTapContainer, ½" Magnetic Tape
Dumping the first 0x30 bytes of each record 0x000000…000300 (0, 0) 0c 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 66 72 76 20 31 33 35 2d 32 20 3a 20 62 69 6c 61 74 65 72 61 6c 20 65 71 75 69 64 69 73 74 61 6e ┆ comment frv 135-2 : bilateral equidistan┆ 0x000300…000600 (0, 1) 6b 7b 72 69 6e 67 73 70 75 6e 6b 74 65 74 20 6d 65 6c 6c 65 6d 20 64 65 20 74 6f 20 62 61 73 69 73 6c 69 6e 69 65 72 29 0a 0a 20 20 32 29 20 20 ┆kæringspunktet mellem de to basislinier) 2) ┆ 0x000600…000900 (0, 2) 64 20 66 72 61 20 75 64 67 61 6e 67 73 70 75 6e 6b 74 65 74 2e 20 44 65 72 75 64 6f 76 65 72 0a 20 20 62 72 75 67 65 73 20 64 65 74 20 67 69 76 ┆d fra udgangspunktet. Derudover bruges det giv┆ 0x000900…000c00 (0, 3) 67 2d 70 6f 69 6e 74 73 20 6b 72 7b 76 65 72 2c 20 61 74 20 70 72 6f 2d 0a 20 20 67 72 61 6d 6d 65 74 20 73 65 72 20 66 6f 72 75 64 20 70 7d 20 ┆g-points kræver, at pro- grammet ser forud på ┆ 0x000c00…000f00 (0, 4) 20 76 69 61 0a 20 20 7a 6f 6e 65 6e 20 63 6f 6e 74 2c 20 62 61 73 69 73 70 75 6e 6b 74 65 72 6e 65 20 6c 7b 73 65 73 20 69 6e 64 20 76 69 61 20 ┆ via zonen cont, basispunkterne læses ind via ┆ 0x000f00…001200 (0, 5) 73 68 6f 72 74 2c 61 6c 6c 5f 74 68 65 5f 77 61 79 2c 73 75 63 63 65 73 73 6f 72 5f 69 6e 5f 72 61 6e 67 65 2c 0a 20 20 66 6f 75 6e 64 5f 61 2c ┆short,all_the_way,successor_in_range, found_a,┆ 0x001200…001500 (0, 6) 6b 72 69 76 65 20 6d 6f 64 65 6b 69 6e 64 20 28 6d 6e 65 6d 6f 74 65 6b 6e 69 73 6b 29 20 6f 67 20 6e 61 76 6e 20 70 7d 0a 20 20 20 20 64 65 74 ┆krive modekind (mnemoteknisk) og navn på det┆ 0x001500…001800 (0, 7) 29 3b 0a 20 20 20 20 69 66 20 6a 3e 31 35 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 61 64 20 66 69 6c 65 6e ┆); if j>15 then begin comment read filen┆ 0x001800…001b00 (0, 8) 6e 20 6f 66 20 6e 61 76 69 67 61 74 69 6f 6e 20 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 61 6e 64 20 68 79 64 72 6f 67 72 61 70 68 79 3a 3e 2c 0a 20 ┆n of navigation :>, <:and hydrography:>, ┆ 0x001b00…001e00 (0, 9) 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 6e 6f 2e 20 6f 66 20 62 61 73 65 70 6f 69 6e 74 73 20 66 69 72 73 74 20 62 61 73 65 6c 69 6e 65 20 3a 20 3a 3e ┆,<:<10><10>no. of basepoints first baseline : :>┆ 0x001e00…002100 (0, 10) 3e 2c 73 74 72 69 6e 67 20 6c 61 79 2c 0a 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 61 64 64 20 33 32 2c 32 37 2d 69 2c 6c 69 6d 69 74 2c 3c 3a ┆>,string lay, false add 32,27-i,limit,<:┆ 0x002100…002400 (0, 11) 20 30 29 3b 0a 20 20 20 20 20 20 70 61 67 65 63 6f 75 6e 74 3a 3d 31 3b 0a 20 20 20 20 65 6e 64 20 6e 6f 6e 20 73 68 6f 72 74 3b 0a 0a 20 20 20 ┆ 0); pagecount:=1; end non short; ┆ 0x002400…002700 (0, 12) 67 20 66 0a 20 20 20 20 66 6f 72 20 66 69 6e 61 6c 2e 0a 20 20 20 20 44 65 73 75 64 65 6e 20 75 64 73 6b 72 69 76 65 73 20 6b 6f 6f 72 64 69 6e ┆g f for final. Desuden udskrives koordin┆ 0x002700…002a00 (0, 13) 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 69 64 65 73 6b 69 66 74 20 6f 67 20 65 6e 20 6b 6f 72 74 20 6f 76 65 72 ┆en begin comment sideskift og en kort over┆ 0x002a00…002d00 (0, 14) 68 61 72 63 6f 75 6e 74 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆harcount+ w┆ 0x002d00…003000 (0, 15) 2c 3c 3a 20 20 20 3a 3e 29 3b 0a 20 20 20 20 77 72 69 74 65 70 6f 73 69 74 69 6f 6e 28 7a 2c 6c 61 74 2c 31 29 3b 0a 20 20 20 20 77 72 69 74 65 ┆,<: :>); writeposition(z,lat,1); write┆ 0x003000…003300 (0, 16) 62 2c 3c 3a 20 20 20 3a 3e 29 20 65 6c 73 65 0a 20 20 20 20 77 72 69 74 65 28 7a 2c 3c 3a 3c 31 30 3e 20 20 20 2d 3a 2d 20 20 20 62 20 20 20 20 ┆b,<: :>) else write(z,<:<10> -:- b ┆ 0x003300…003600 (0, 17) 20 20 20 20 20 20 20 3a 3a 3e 2c 73 74 72 69 6e 67 20 6c 61 79 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 61 64 64 20 33 ┆ ::>,string lay, false add 3┆ 0x003600…003900 (0, 18) 20 66 6f 72 74 65 67 6e 65 74 3b 0a 0a 20 20 20 20 69 6e 74 65 67 65 72 20 74 65 67 6e 3b 0a 0a 20 20 20 20 77 72 69 74 65 28 7a 2c 3c 3c 7a 64 ┆ fortegnet; integer tegn; write(z,<<zd┆ 0x003900…003c00 (0, 19) 65 73 20 70 72 6f 63 65 64 75 72 65 6e 20 61 6c 61 72 6d 3b 0a 0a 20 20 20 20 61 72 72 61 79 20 6b 6f 6f 72 64 28 31 3a 33 29 3b 20 69 6e 74 65 ┆es proceduren alarm; array koord(1:3); inte┆ 0x003c00…003f00 (0, 20) 0a 20 20 65 6e 64 20 72 65 61 64 70 6f 73 69 74 69 6f 6e 3b 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 61 6c 61 72 6d 28 74 65 78 74 29 3b 0a ┆ end readposition; procedure alarm(text); ┆ 0x003f00…004200 (0, 21) 0a 20 20 20 20 3c 3c 64 64 64 20 64 64 64 20 64 64 64 2e 64 64 64 27 2b 64 64 3e 29 29 3b 0a 20 20 20 20 73 70 61 63 65 73 3a 3d 63 61 73 65 20 ┆ <<ddd ddd ddd.ddd'+dd>)); spaces:=case ┆ 0x004200…004500 (0, 22) 67 20 74 69 6c 20 72 61 64 69 61 6e 3b 0a 20 20 72 61 64 69 61 6e 3a 3d 61 28 31 29 2a 70 69 2f 31 38 30 2b 61 28 32 29 2a 70 69 2f 28 31 38 30 ┆g til radian; radian:=a(1)*pi/180+a(2)*pi/(180┆ 0x004500…004800 (0, 23) 65 20 76 61 72 69 61 62 6c 65 0a 20 20 20 20 61 6c 20 6f 67 20 62 6c 20 2c 20 73 6f 6d 20 65 72 20 72 65 66 65 72 65 6e 63 65 65 6c 6c 69 70 73 ┆e variable al og bl , som er referenceellips┆ 0x004800…004b00 (0, 24) 6b 75 72 73 69 76 74 20 6b 61 6c 64 2c 20 68 76 6f 72 20 6c 6f 6e 31 20 65 72 20 66 6c 79 74 74 65 74 20 32 2a 70 69 20 66 72 65 6d 2e 0a 20 20 ┆kursivt kald, hvor lon1 er flyttet 2*pi frem. ┆ 0x004b00…004e00 (0, 25) 20 20 20 20 67 65 6f 64 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 61 7a 3a 3d 62 61 7a 3a 3d 30 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 75 64 5f 67 65 ┆ geod:=-1; az:=baz:=0; goto ud_ge┆ 0x004e00…005100 (0, 26) 6d 6d 65 6e 74 20 73 64 3d 30 20 3c 3d 3e 20 6c 3d 30 20 6f 72 20 6c 3d 31 3b 0a 20 20 20 20 20 20 75 3a 3d 32 2a 6b 6c 2a 2a 32 2f 28 31 2d 6c ┆mment sd=0 <=> l=0 or l=1; u:=2*kl**2/(1-l┆ 0x005100…005400 (0, 27) 65 20 69 3a 3d 32 3b 0a 20 20 20 20 20 20 63 61 73 65 20 69 20 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 71 75 61 64 ┆e i:=2; case i of begin comment quad┆ 0x005400…005700 (0, 28) 72 76 28 28 6c 61 74 31 2b 6c 61 74 32 29 2f 32 29 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 71 72 74 28 28 6c 61 74 32 2d 6c 61 74 31 29 2a ┆rv((lat1+lat2)/2)* sqrt((lat2-lat1)*┆ 0x005700…005a00 (0, 29) 74 20 66 6f 72 20 64 65 74 20 67 69 76 6e 65 20 70 75 6e 6b 74 2c 0a 20 20 20 20 28 61 7a 3c 70 69 29 20 6b 61 6c 64 65 73 20 6c 7c 73 6e 69 6e ┆t for det givne punkt, (az<pi) kaldes løsnin┆ 0x005a00…005d00 (0, 30) 77 6c 6f 6e 2c 6e 65 77 61 7a 2c 6e 65 77 64 69 73 74 2c 0a 20 20 20 20 64 6b 2c 70 2c 73 69 67 6d 61 31 2c 64 69 2c 75 2c 77 2c 76 2c 78 2c 79 ┆wlon,newaz,newdist, dk,p,sigma1,di,u,w,v,x,y┆ 0x005d00…006000 (0, 31) 20 20 20 6b 72 69 74 65 72 69 65 74 20 66 6f 72 20 64 65 6e 20 70 7d 67 7b 6c 64 65 6e 64 65 20 67 65 6f 64 7b 74 69 73 6b 65 20 6c 69 6e 69 65 ┆ kriteriet for den pågældende geodætiske linie┆ 0x006000…006300 (0, 32) 65 6e 64 65 0a 20 20 20 20 20 20 20 20 76 65 72 74 65 78 20 6f 70 73 7c 67 65 73 2c 20 6f 67 20 64 65 72 66 72 61 20 67 7d 73 20 66 72 65 6d 20 ┆ende vertex opsøges, og derfra gås frem ┆ 0x006300…006600 (0, 33) 69 6e 28 73 71 72 74 28 31 2d 61 72 67 67 2a 2a 32 29 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 61 72 67 67 3c 30 20 74 68 65 6e 20 65 74 61 3a ┆in(sqrt(1-argg**2)); if argg<0 then eta:┆ 0x006600…006900 (0, 34) 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 72 20 61 7a 3d 70 69 20 65 ┆ end else begin comment for az=pi e┆ 0x006900…006c00 (0, 35) 76 2a 2a 32 2d 31 29 2a 63 32 2a 2a 32 3b 0a 20 20 20 20 20 20 20 20 79 3a 3d 32 2a 70 2a 76 2a 77 2a 73 69 6e 28 64 69 29 3b 0a 20 20 20 20 20 ┆v**2-1)*c2**2; y:=2*p*v*w*sin(di); ┆ 0x006c00…006f00 (0, 36) 3b 0a 20 20 20 20 20 20 20 20 20 20 64 65 74 61 3a 3d 69 66 20 64 69 73 74 3e 31 20 61 6e 64 20 74 64 65 74 61 3c 32 27 2d 38 20 74 68 65 6e 0a ┆; deta:=if dist>1 and tdeta<2'-8 then ┆ 0x006f00…007200 (0, 37) 6e 20 63 6f 6d 6d 65 6e 74 20 6f 76 65 72 20 65 6e 20 61 66 20 70 6f 6c 65 72 6e 65 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 74 32 3a 3d ┆n comment over en af polerne; lat2:=┆ 0x007200…007500 (0, 38) 6d 20 68 61 72 20 64 65 6e 20 6b 6f 72 74 65 73 74 65 20 61 66 73 74 61 6e 64 20 66 72 61 20 63 2e 0a 20 20 20 20 44 65 6e 20 66 75 6e 64 6e 65 ┆m har den korteste afstand fra c. Den fundne┆ 0x007500…007800 (0, 39) 20 76 69 6c 20 73 7d 20 76 7b 72 65 20 64 65 6e 0a 20 20 20 20 6b 6f 72 74 65 73 74 65 20 61 66 20 61 66 73 74 61 6e 64 65 6e 65 20 63 61 20 6f ┆ vil så være den korteste af afstandene ca o┆ 0x007800…007b00 (0, 40) 6e 20 61 3a 3d 61 2d 73 67 6e 28 61 29 2a 32 2a 70 69 3b 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 61 20 65 72 20 76 69 6e 6b 6c 65 6e 20 63 61 62 ┆n a:=a-sgn(a)*2*pi; comment a er vinklen cab┆ 0x007b00…007e00 (0, 41) 73 6b 65 20 6c 69 6e 69 65 72 2c 20 64 65 72 20 0a 20 20 20 20 20 20 73 6b 7b 72 65 72 20 64 65 6e 20 67 69 76 6e 65 20 75 6e 64 65 72 20 65 6e ┆ske linier, der skærer den givne under en┆ 0x007e00…008100 (0, 42) 20 64 65 6d 20 0a 20 20 20 20 20 20 76 69 6c 20 76 7b 72 65 20 64 65 6e 20 6b 6f 72 74 65 73 74 65 20 6b 75 72 76 65 20 66 72 61 20 63 20 74 69 ┆ dem vil være den korteste kurve fra c ti┆ 0x008100…008400 (0, 43) 20 61 62 2c 20 6c 69 67 67 65 72 20 69 6b 6b 65 20 6d 65 6c 6c 65 6d 20 61 20 6f 67 20 62 2c 20 0a 20 20 20 20 20 20 64 65 6e 20 6b 6f 72 74 65 ┆ ab, ligger ikke mellem a og b, den korte┆ 0x008400…008700 (0, 44) 6e 63 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 66 6f 64 70 75 6e 6b 74 65 ┆nc; end else begin comment fodpunkte┆ 0x008700…008a00 (0, 45) 6e 61 6c 2c 20 6f 67 20 65 74 20 65 76 74 2e 20 74 69 6c 73 6b 75 64 20 74 69 6c 20 6c 61 66 20 73 6b 61 6c 20 61 64 64 65 72 65 73 2e 0a 20 20 ┆nal, og et evt. tilskud til laf skal adderes. ┆ 0x008a00…008d00 (0, 46) 64 20 66 6f 64 70 75 6e 6b 74 65 74 20 70 7d 20 61 62 3b 0a 0a 20 20 75 64 5f 67 65 6e 64 69 73 74 3a 0a 20 20 65 6e 64 20 67 65 6e 64 69 73 74 ┆d fodpunktet på ab; ud_gendist: end gendist┆ 0x008d00…009000 (0, 47) 6d 6d 65 20 68 65 6c 6c 69 6c 69 65 20 6f 67 20 70 65 67 65 72 20 68 76 65 72 0a 20 20 20 20 73 69 6e 20 76 65 6a 29 2c 20 62 6c 69 76 65 72 20 ┆mme hellilie og peger hver sin vej), bliver ┆ 0x009000…009300 (0, 48) 69 6c 20 62 63 20 66 69 6e 64 65 73 20 65 6e 20 66 7c 72 73 74 65 20 74 69 6c 2d 0a 20 20 20 20 6e 7b 72 6d 65 6c 73 65 20 74 69 6c 20 70 75 6e ┆il bc findes en første til- nærmelse til pun┆ 0x009300…009600 (0, 49) 20 20 6b 65 6e 20 69 6e 64 65 68 6f 6c 64 65 72 20 64 65 74 20 61 6e 64 65 74 20 70 75 6e 6b 74 73 20 6e 65 67 61 74 69 76 65 20 65 6c 6c 65 72 ┆ ken indeholder det andet punkts negative eller┆ 0x009600…009900 (0, 50) 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 69 6b 6b 65 20 73 61 6d 6d 65 20 70 75 6e 6b 74 3b 0a ┆ end else begin comment ikke samme punkt; ┆ 0x009900…009c00 (0, 51) 6c 6f 6e 61 3b 0a 20 20 20 20 20 20 20 20 20 20 61 7a 63 61 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 20 20 61 7a 63 62 3a 3d 61 7a 61 62 3b 0a 20 ┆lona; azca:=0; azcb:=azab; ┆ 0x009c00…009f00 (0, 52) 6e 74 20 65 6e 20 65 6c 6c 65 72 20 62 65 67 67 65 20 76 69 6e 6b 6c 65 72 20 65 72 20 6e 75 6d 65 72 69 73 6b 20 6c 69 67 20 70 69 3b 0a 20 20 ┆nt en eller begge vinkler er numerisk lig pi; ┆ 0x009f00…00a200 (0, 53) 20 20 20 20 20 20 20 20 20 74 65 72 20 65 74 20 6e 79 74 20 61 20 6f 67 20 31 35 30 30 30 2d 61 62 20 6b 6d 2e 20 66 72 65 6d 20 61 64 20 62 27 ┆ ter et nyt a og 15000-ab km. frem ad b'┆ 0x00a200…00a500 (0, 54) 62 29 3b 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 ┆b); end; end else begi┆ 0x00a500…00a800 (0, 55) 36 2d 67 65 6f 64 69 73 74 28 6c 61 74 62 2c 6c 6f 6e 62 2c 6c 61 74 63 2c 6c 6f 6e 63 2c 61 7a 62 63 2c 61 7a 63 62 29 3b 0a 20 20 20 20 20 20 ┆6-geodist(latb,lonb,latc,lonc,azbc,azcb); ┆ 0x00a800…00ab00 (0, 56) 7a 61 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 6c 61 74 62 2c 6e 65 77 6c 6f 6e 62 2c 6e 65 77 ┆za, newlatb,newlonb,new┆ 0x00ab00…00ae00 (0, 57) 74 68 65 6e 20 61 7a 63 62 2d 70 69 20 65 6c 73 65 20 61 7a 63 62 2b 70 69 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 61 63 63 66 3a 3d 61 7a 63 ┆then azcb-pi else azcb+pi; accf:=azc┆ 0x00ae00…00b100 (0, 58) 69 6e 64 73 6b 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 68 76 69 73 20 64 65 20 74 6f 20 6f 72 69 65 6e 74 65 72 69 6e 67 65 72 20 65 72 20 ┆indskes hvis de to orienteringer er ┆ 0x00b100…00b400 (0, 59) 2f 63 6f 73 28 6c 61 74 29 2a 2a 32 0a 20 20 20 20 73 6f 6d 20 65 72 20 65 78 61 6b 74 65 2c 20 6f 67 20 69 6b 6b 65 20 6d 65 72 65 20 6e 75 6d ┆/cos(lat)**2 som er exakte, og ikke mere num┆ 0x00b400…00b700 (0, 60) 66 7b 72 69 73 6b 65 20 66 6f 72 6d 2d 0a 20 20 20 20 6c 65 72 2c 20 73 6f 6d 20 76 65 64 20 69 6e 64 66 7c 72 65 6c 73 65 6e 20 61 66 20 64 65 ┆færiske form- ler, som ved indførelsen af de┆ 0x00b700…00ba00 (0, 61) 68 61 6c 76 20 6d 65 72 69 64 69 61 6e 6f 6d 6b 72 65 64 73 3b 0a 0a 20 20 65 6e 64 20 74 72 65 6b 61 6e 74 73 73 69 64 65 3b 0a 0a 0a 0a 20 20 ┆halv meridianomkreds; end trekantsside; ┆ 0x00ba00…00bd00 (0, 62) 65 28 62 61 73 65 2c 30 2c 69 67 6e 29 20 74 68 65 6e 0a 20 20 61 6c 61 72 6d 28 3c 3a 2a 2a 2a 6f 70 65 6e 7a 6f 6e 65 20 3a 20 62 61 73 65 20 ┆e(base,0,ign) then alarm(<:***openzone : base ┆ 0x00bd00…00c000 (0, 63) 66 20 69 64 65 6e 74 3c 30 20 74 68 65 6e 20 61 6c 61 72 6d 28 3c 3a 2a 2a 2a 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 3a 20 74 6f 6f 20 6c ┆f ident<0 then alarm(<:***identification : too l┆ 0x00c000…00c300 (0, 64) 0a 20 20 20 20 20 20 20 20 20 3c 3a 3c 31 30 3e 3c 31 30 3e 20 20 20 20 20 66 69 72 73 74 20 20 62 61 73 65 6c 69 6e 65 3a 3e 2c 66 61 6c 73 65 ┆ <:<10><10> first baseline:>,false┆ 0x00c300…00c600 (0, 65) 0a 20 20 20 20 20 20 20 20 20 20 3c 3a 3c 31 30 3e 62 65 74 77 65 65 6e 20 64 69 73 74 61 6e 63 65 73 3a 3e 2c 66 61 6c 73 65 20 61 64 64 20 33 ┆ <:<10>between distances:>,false add 3┆ 0x00c600…00c900 (0, 66) 6f 6e 76 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 63 6f 6e 74 2c 30 2c 30 29 3b 0a ┆onv then begin setposition(cont,0,0); ┆ 0x00c900…00cc00 (0, 67) 20 72 65 61 64 28 63 6f 6e 74 2c 6c 69 6d 69 74 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 69 66 20 63 6f 6e 76 20 74 68 65 6e 0a 20 20 62 65 67 69 ┆ read(cont,limit); end; if conv then begi┆ 0x00cc00…00cf00 (0, 68) 74 65 73 74 70 6f 69 6e 74 62 29 3b 0a 0a 0a 20 20 69 66 20 63 6f 6e 76 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 73 65 74 70 6f 73 ┆testpointb); if conv then begin setpos┆ 0x00cf00…00d200 (0, 69) 3a 3d 31 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 76 61 6c 3d 69 69 20 6f 72 20 76 61 6c 3d 69 69 2b 33 32 20 74 68 65 6e 20 73 ┆:=1 else if val=ii or val=ii+32 then s┆ 0x00d200…00d500 (0, 70) 6e 72 3a 3d 6e 72 2d 31 3b 0a 20 20 20 20 20 20 20 20 20 20 72 65 70 65 61 74 63 68 61 72 28 63 6f 6e 74 29 3b 0a 20 20 20 20 20 20 20 20 65 6e ┆nr:=nr-1; repeatchar(cont); en┆ 0x00d500…00d800 (0, 71) 20 20 20 20 20 20 69 66 20 76 61 6c 3d 32 35 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 61 72 61 6d ┆ if val=25 then begin comment param┆ 0x00d800…00db00 (0, 72) 61 7a 2c 62 61 7a 2c 6e 65 77 61 7a 2c 6e 65 77 62 61 7a 2c 61 7a 61 62 2c 61 7a 62 61 2c 0a 20 20 20 20 62 61 6e 73 2c 64 78 2c 64 79 2c 76 2c ┆az,baz,newaz,newbaz,azab,azba, bans,dx,dy,v,┆ 0x00db00…00de00 (0, 73) 6b 6b 65 72 20 73 74 7d 72 20 69 20 64 65 20 67 6c 6f 62 61 6c 65 20 76 61 72 69 61 62 6c 65 0a 20 20 20 20 20 20 6c 61 74 66 6f 6f 74 61 2c 20 ┆kker står i de globale variable latfoota, ┆ 0x00de00…00e100 (0, 74) 74 61 6e 63 65 70 75 6e 6b 74 0a 20 20 20 20 20 20 65 72 20 6e 7b 72 6d 65 72 65 20 65 6e 20 61 66 20 64 65 20 65 66 74 65 72 66 7c 6c 67 65 6e ┆tancepunkt er nærmere en af de efterfølgen┆ 0x00e100…00e400 (0, 75) 20 20 72 65 61 6c 20 64 69 6e 63 72 3b 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 63 65 64 75 72 65 6e 20 75 6e 64 ┆ real dincr; begin comment proceduren und┆ 0x00e400…00e700 (0, 76) 20 20 20 20 20 62 5f 65 78 63 65 65 64 65 64 3a 3d 0a 20 20 20 20 20 20 20 20 20 20 6c 61 74 66 6f 6f 74 62 3d 62 61 73 69 73 62 28 32 2a 62 2b ┆ b_exceeded:= latfootb=basisb(2*b+┆ 0x00e700…00ea00 (0, 77) 64 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 76 69 6e 6b 65 6c 3a 3d 61 7a 70 69 2d ┆d then begin vinkel:=azpi-┆ 0x00ea00…00ed00 (0, 78) 20 20 20 64 69 6e 63 72 3a 3d 2d 73 67 6e 28 65 78 63 65 73 73 5f 62 29 2a 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 65 6b 61 6e 74 73 73 69 ┆ dincr:=-sgn(excess_b)* trekantssi┆ 0x00ed00…00f000 (0, 79) 67 67 65 72 20 70 7d 20 68 69 6e 61 6e 64 65 6e 73 20 70 6f 73 69 74 69 76 65 20 68 61 6c 76 6c 69 6e 69 65 2c 20 64 65 20 74 69 6c 68 7c 72 65 ┆gger på hinandens positive halvlinie, de tilhøre┆ 0x00f000…00f300 (0, 80) 20 20 20 20 20 73 65 63 74 6f 72 20 6d 7d 20 61 6c 74 73 7d 20 62 65 72 6f 20 70 7d 20 65 6e 20 66 65 6a 6c 2e 0a 0a 20 20 20 20 20 20 20 20 32 ┆ sector må altså bero på en fejl. 2┆ 0x00f300…00f600 (0, 81) 61 6c 61 72 6d 28 3c 3a 2a 2a 2a 62 69 73 65 63 74 6f 72 20 3a 20 62 61 73 65 6c 69 6e 65 73 20 6f 6e 20 73 61 6d 65 20 67 65 6f 64 65 73 69 63 ┆alarm(<:***bisector : baselines on same geodesic┆ 0x00f600…00f900 (0, 82) 7a 69 62 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 6c 61 74 69 2c 20 6c 6f 6e 69 20 65 72 20 6e 75 ┆zib); end; comment lati, loni er nu┆ 0x00f900…00fc00 (0, 83) 70 75 6e 6b 74 65 74 20 74 69 6c 20 6c 61 74 2c 20 6c 6f 6e 3b 0a 0a 20 20 20 20 20 20 69 66 20 74 65 73 74 20 74 68 65 6e 0a 20 20 20 20 20 20 ┆punktet til lat, lon; if test then ┆ 0x00fc00…00ff00 (0, 84) 29 3b 0a 0a 20 20 20 20 20 20 6e 65 78 74 5f 74 72 79 3a 0a 20 20 20 20 20 20 70 61 31 3a 3d 67 65 6f 64 69 73 74 28 6c 61 74 2c 6c 6f 6e 2c 62 ┆); next_try: pa1:=geodist(lat,lon,b┆ 0x00ff00…010200 (0, 85) 61 7a 6e 6f 2c 61 7a 6f 6e 29 3b 0a 0a 0a 20 20 20 20 20 20 69 66 20 74 65 73 74 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 ┆azno,azon); if test then begin ┆ 0x010200…010500 (0, 86) 69 73 20 64 65 20 74 6f 20 67 65 6f 64 7b 74 69 6b 6b 65 72 20 65 72 20 64 65 6e 20 73 61 6d 6d 65 3b 0a 20 20 20 20 20 20 20 20 64 78 3a 3d 28 ┆is de to geodætikker er den samme; dx:=(┆ 0x010500…010800 (0, 87) 66 73 74 61 6e 64 65 6e 20 74 69 6c 20 64 65 20 74 6f 20 67 65 6f 64 7b 74 69 73 6b 65 20 6c 69 6e 69 65 2d 0a 20 20 20 20 20 20 73 74 79 6b 6b ┆fstanden til de to geodætiske linie- stykk┆ 0x010800…010b00 (0, 88) 74 72 75 65 2c 20 73 6b 61 6c 20 63 68 65 63 6b 5f 65 78 63 65 73 73 69 6f 6e 20 69 6b 6b 65 0a 20 20 20 20 20 20 6b 61 6c 64 65 73 2c 20 6f 67 ┆true, skal check_excession ikke kaldes, og┆ 0x010b00…010e00 (0, 89) 65 2c 20 6c 69 67 67 65 72 20 70 75 6e 6b 74 65 74 0a 20 20 20 20 20 20 70 7d 20 64 65 6e 20 6f 76 65 72 73 6b 72 65 64 6e 65 20 73 6c 75 74 6e ┆e, ligger punktet på den overskredne slutn┆ 0x010e00…011100 (0, 90) 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 68 76 69 73 20 66 69 6e 69 73 20 65 72 20 74 72 75 65 2c 20 73 6b 61 6c 20 63 68 65 63 6b 5f 73 75 63 63 ┆ comment hvis finis er true, skal check_succ┆ 0x011100…011400 (0, 91) 72 65 20 65 74 20 74 75 72 6e 69 6e 67 2d 70 6f 69 6e 74 2e 20 44 65 74 20 73 6b 61 6c 20 6e 75 2c 20 68 76 69 73 20 61 20 65 6c 6c 65 72 20 62 ┆re et turning-point. Det skal nu, hvis a eller b┆ 0x011400…011700 (0, 92) 6f 6d 6d 65 6e 74 20 66 69 6e 69 73 20 65 72 20 74 72 75 65 20 6f 67 20 64 69 6e 63 72 3c 3e 30 2c 20 70 75 6e 6b 74 65 74 20 66 6c 79 74 74 65 ┆omment finis er true og dincr<>0, punktet flytte┆ 0x011700…011a00 (0, 93) 67 20 66 6f 64 70 75 6e 6b 74 65 72 20 73 6b 72 69 76 65 73 20 75 64 2c 20 70 65 67 65 70 69 6e 64 65 20 6f 67 0a 20 20 20 20 20 20 20 20 6d 6f ┆g fodpunkter skrives ud, pegepinde og mo┆ 0x011a00…011d00 (0, 94) 20 20 20 20 20 20 20 20 73 6c 75 74 70 75 6e 6b 74 20 66 6f 72 20 61 2d 20 6f 67 20 62 2d 73 69 64 65 6e 3b 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ slutpunkt for a- og b-siden; ┆ 0x011d00…012000 (0, 95) 3a 3d 74 7b 6c 6c 65 72 2b 31 3b 0a 20 20 20 20 20 20 64 69 73 6d 69 73 73 5f 70 6f 69 6e 74 28 6d 65 64 2c 74 7b 6c 6c 65 72 2c 69 2c 3c 3a 62 ┆:=tæller+1; dismiss_point(med,tæller,i,<:b┆ 0x012000…012300 (0, 96) 20 72 65 74 6e 69 6e 67 20 70 7d 20 70 61 72 61 62 6c 65 6e 2c 20 73 6f 6d 20 73 76 61 2d 0a 20 20 20 20 20 20 72 65 72 20 74 69 6c 20 72 65 74 ┆ retning på parablen, som sva- rer til ret┆ 0x012300…012600 (0, 97) 73 79 73 74 65 6d 65 74 20 6b 61 6c 64 65 74 20 61 2d 73 69 64 65 6e 0a 20 20 20 20 20 20 73 6b 61 6c 20 63 68 61 72 20 76 7b 72 65 20 6b 61 72 ┆systemet kaldet a-siden skal char være kar┆ 0x012600…012900 (0, 98) 2c 0a 20 20 20 20 20 20 6c 61 74 61 2c 6c 6f 6e 61 2c 6c 61 74 62 31 2c 6c 6f 6e 62 31 2c 6c 61 74 62 32 2c 6c 6f 6e 62 32 2c 0a 20 20 20 20 20 ┆, lata,lona,latb1,lonb1,latb2,lonb2, ┆ 0x012900…012c00 (0, 99) 76 2e 0a 20 20 20 20 20 20 20 20 64 69 6e 63 72 20 62 65 72 65 67 6e 65 73 20 6f 67 73 7d 2c 20 68 76 69 73 20 65 78 63 65 65 64 65 64 20 76 65 ┆v. dincr beregnes også, hvis exceeded ve┆ 0x012c00…012f00 (0, 100) 62 73 28 61 31 70 29 3b 20 63 6f 6d 6d 65 6e 74 20 70 6f 73 69 74 69 76 20 68 76 69 73 20 61 20 65 72 20 6f 76 65 72 2d 0a 20 20 20 20 20 20 20 ┆bs(a1p); comment positiv hvis a er over- ┆ 0x012f00…013200 (0, 101) 6d 65 6e 74 20 62 65 67 79 6e 64 65 6c 73 65 73 6e 6f 72 6d 61 6c 65 6e 20 76 65 64 20 61 20 65 72 20 65 6c 6c 65 72 20 68 61 72 20 76 7b 2d 0a ┆ment begyndelsesnormalen ved a er eller har væ- ┆ 0x013200…013500 (0, 102) 20 20 20 20 20 20 20 20 70 69 2d 61 62 73 28 76 69 6e 6b 65 6c 29 20 65 6c 73 65 20 61 62 73 28 76 69 6e 6b 65 6c 29 3b 0a 20 20 20 20 20 20 20 ┆ pi-abs(vinkel) else abs(vinkel); ┆ 0x013500…013800 (0, 103) 67 61 69 6e 3a 0a 20 20 20 20 20 20 70 62 31 70 3a 3d 67 65 6f 64 69 73 74 28 6c 61 74 61 2c 6c 6f 6e 61 2c 6c 61 74 62 31 2c 6c 6f 6e 62 31 2c ┆gain: pb1p:=geodist(lata,lona,latb1,lonb1,┆ 0x013800…013b00 (0, 104) 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 74 72 79 5f 61 67 61 69 6e 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 20 20 63 6f 6d 6d ┆; goto try_again; end; comm┆ 0x013b00…013e00 (0, 105) 72 20 69 0a 20 20 20 20 20 20 61 7a 69 61 3b 0a 0a 20 20 20 20 20 20 73 3a 3d 67 65 6f 64 69 73 74 28 6c 61 74 69 2c 6c 6f 6e 69 2c 6c 61 74 2c ┆r i azia; s:=geodist(lati,loni,lat,┆ 0x013e00…014100 (0, 106) 67 6e 65 74 20 66 6f 72 20 64 65 74 20 6e 79 20 76 0a 20 20 20 20 20 20 73 6b 69 66 74 65 73 3b 0a 0a 20 20 20 20 20 20 73 67 6e 69 6e 69 74 76 ┆gnet for det ny v skiftes; sgninitv┆ 0x014100…014400 (0, 107) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 61 75 73 73 63 75 72 76 28 62 61 73 65 62 28 32 2a 62 2b 31 29 29 29 2f 33 3b ┆ gausscurv(baseb(2*b+1)))/3;┆ 0x014400…014700 (0, 108) 5f 74 72 79 3a 0a 20 20 20 20 20 20 73 61 70 20 3a 3d 67 65 6f 64 69 73 74 28 6c 61 74 2c 6c 6f 6e 2c 62 61 73 65 61 28 32 2a 61 2d 31 29 2c 62 ┆_try: sap :=geodist(lat,lon,basea(2*a-1),b┆ 0x014700…014a00 (0, 109) 6f 74 62 70 3b 0a 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 61 20 65 72 20 65 74 ┆otbp; end else begin comment a er et┆ 0x014a00…014d00 (0, 110) 6b 74 65 74 20 6f 67 20 66 6f 64 70 75 6e 6b 74 65 74 20 28 6c 61 74 66 6f 6f 74 62 70 2c 20 6c 6f 6e 66 6f 6f 74 62 70 29 0a 20 20 20 20 20 20 ┆ktet og fodpunktet (latfootbp, lonfootbp) ┆ 0x014d00…015000 (0, 111) 70 69 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 67 6f 74 6f 20 6e 65 78 74 5f 74 72 79 3b 0a 20 20 20 20 20 20 65 6e ┆pi; end; goto next_try; en┆ 0x015000…015300 (0, 112) 6f 72 72 65 6b 74 69 6f 6e 2c 20 64 69 6e 63 72 2c 20 74 69 6c 20 73 20 6f 67 0a 20 20 20 20 20 20 65 74 20 6e 79 74 20 70 75 6e 6b 74 20 66 69 ┆orrektion, dincr, til s og et nyt punkt fi┆ 0x015300…015600 (0, 113) 3a 3e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 3c 3a 20 3a 20 61 5f 65 78 63 65 65 64 65 64 3a 3e 29 20 65 6c 73 65 0a ┆:> else <: : a_exceeded:>) else ┆ 0x015600…015900 (0, 114) 7b 72 6d 65 72 65 20 70 75 6e 6b 74 65 74 20 65 6e 64 20 73 61 70 3d 73 62 70 2e 0a 20 20 20 20 20 20 48 76 69 73 20 64 65 74 20 65 72 20 74 69 ┆ærmere punktet end sap=sbp. Hvis det er ti┆ 0x015900…015c00 (0, 115) 6e 64 70 75 6e 6b 74 65 74 20 6c 69 67 67 65 72 20 70 7d 20 62 2d 73 69 64 65 6e 3b 0a 20 20 20 20 20 20 20 20 73 61 3a 3d 73 62 70 3b 0a 20 20 ┆ndpunktet ligger på b-siden; sa:=sbp; ┆ 0x015c00…015f00 (0, 116) 28 61 6c 6c 5f 74 68 65 5f 77 61 79 2c 72 61 6e 67 65 5f 61 2c 72 61 6e 67 65 5f 62 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(all_the_way,range_a,range_b, ┆ 0x015f00…016200 (0, 117) 65 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 61 5f 77 61 73 5f 66 6f 75 6e 64 3a 3d 66 6f 75 6e 64 5f 61 3b 0a 20 20 20 20 20 20 20 20 62 ┆e:=true; a_was_found:=found_a; b┆ 0x016200…016500 (0, 118) 65 20 6f 67 20 64 69 6e 63 72 3d 30 2c 20 64 2e 0a 20 20 20 20 20 20 76 2e 73 2e 20 61 74 20 70 75 6e 6b 74 65 74 20 6c 61 74 2c 20 6c 6f 6e 20 ┆e og dincr=0, d. v.s. at punktet lat, lon ┆ 0x016500…016800 (0, 119) 2c 74 7b 6c 6c 65 72 2c 69 2c 3c 3a 66 3a 3e 2c 73 68 6f 72 74 29 3b 0a 20 20 20 20 20 20 20 20 6d 6f 64 65 3a 3d 66 69 6e 61 6c 3b 0a 20 20 20 ┆,tæller,i,<:f:>,short); mode:=final; ┆ 0x016800…016b00 (0, 120) 20 20 20 20 20 20 20 69 66 20 6c 61 74 73 6c 75 74 61 3d 6c 61 74 73 6c 75 74 62 20 61 6e 64 20 6c 6f 6e 73 6c 75 74 61 3d 6c 6f 6e 73 6c 75 74 ┆ if latsluta=latslutb and lonsluta=lonslut┆ 0x016b00…016e00 (0, 121) 20 20 65 6e 64 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 6c 75 74 6e 6f 72 6d 61 6c 65 6e 20 70 7d ┆ end else begin comment slutnormalen på┆ 0x016e00…017100 (0, 122) 6e 0a 20 20 20 20 20 20 65 72 20 65 74 20 7b 6b 76 69 64 69 73 74 61 6e 63 65 70 75 6e 6b 74 20 6d 65 6c 6c 65 6d 20 64 65 20 74 6f 20 62 61 73 ┆n er et ækvidistancepunkt mellem de to bas┆ 0x017100…017400 (0, 123) 74 75 65 6c 6c 65 20 61 66 20 61 20 6f 67 20 62 20 62 65 73 74 65 6d 74 65 2c 20 6f 67 0a 20 20 20 20 20 20 66 6f 72 20 64 65 20 73 69 64 73 74 ┆tuelle af a og b bestemte, og for de sidst┆ 0x017400…017700 (0, 124) 20 61 66 73 74 61 6e 64 2c 20 68 76 6f 72 6d 65 64 20 6e 6f 72 6d 61 6c 65 6e 20 65 72 20 6f 76 65 72 73 6b 72 65 64 65 74 2e 0a 20 20 20 20 20 ┆ afstand, hvormed normalen er overskredet. ┆ 0x017700…017a00 (0, 125) 20 20 20 20 20 20 69 66 20 61 62 73 28 62 31 29 3e 70 69 20 74 68 65 6e 20 62 31 3a 3d 62 31 2d 73 67 6e 28 62 31 29 2a 32 2a 70 69 3b 0a 20 20 ┆ if abs(b1)>pi then b1:=b1-sgn(b1)*2*pi; ┆ 0x017a00…017d00 (0, 126) 65 74 20 6d 65 73 74 2c 20 6f 67 20 65 6e 20 6b 6f 72 72 65 6b 74 69 6f 6e 2c 20 64 69 6e 63 72 2c 20 75 64 2d 0a 20 20 20 20 20 20 20 20 20 20 ┆et mest, og en korrektion, dincr, ud- ┆ 0x017d00…018000 (0, 127) 70 69 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 76 69 6e 6b 65 6c 3a 3d 76 69 6e 6b 65 6c 2d 73 67 6e 28 76 69 6e 6b 65 6c 29 2a 32 ┆pi then vinkel:=vinkel-sgn(vinkel)*2┆ 0x018000…018300 (0, 128) 20 20 20 20 61 62 3a 3d 67 65 6f 64 69 73 74 28 62 61 73 69 73 61 28 32 2a 61 2d 31 29 2c 62 61 73 69 73 61 28 32 2a 61 29 2c 62 61 73 69 73 62 ┆ ab:=geodist(basisa(2*a-1),basisa(2*a),basisb┆ 0x018300…018600 (0, 129) 74 20 73 69 67 6e 61 20 65 72 20 6f 72 69 65 6e 74 65 72 69 6e 67 65 6e 20 69 6e 64 75 63 65 72 65 74 20 61 66 20 74 72 65 6b 61 6e 74 20 61 2d ┆t signa er orienteringen induceret af trekant a-┆ 0x018600…018900 (0, 130) 6e 74 20 73 20 73 6b 61 6c 20 66 6f 72 7c 67 65 73 20 6d 65 64 20 69 6e 63 72 2c 20 68 76 69 73 20 69 6e 69 74 69 61 6c 76 7b 72 64 69 65 6e 20 ┆nt s skal forøges med incr, hvis initialværdien ┆ 0x018900…018c00 (0, 131) 72 61 64 65 72 28 76 2c 69 29 2c 69 66 20 69 3c 30 20 74 68 65 6e 20 3c 3a 20 2d 3a 3e 20 65 6c 73 65 20 3c 3a 20 2b 3a 3e 2c 0a 20 20 20 20 20 ┆rader(v,i),if i<0 then <: -:> else <: +:>, ┆ 0x018c00…018f00 (0, 132) 6f 69 6e 74 28 6d 65 64 2c 74 7b 6c 6c 65 72 2b 31 2c 69 2b 31 2c 3c 3a 63 3a 3e 2c 73 68 6f 72 74 29 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 ┆oint(med,tæller+1,i+1,<:c:>,short); writ┆ 0x018f00…019200 (0, 133) 2a 63 6f 73 28 61 7a 70 69 29 2f 64 65 6e 6f 6d 3b 0a 20 20 20 20 20 20 20 20 62 65 74 61 3a 3d 69 66 20 63 6f 73 28 6c 61 74 29 3d 30 20 74 68 ┆*cos(azpi)/denom; beta:=if cos(lat)=0 th┆ 0x019200…019500 (0, 134) 66 61 20 6f 67 0a 20 20 20 20 20 20 61 7a 62 66 2c 20 61 7a 66 62 2e 0a 20 20 20 20 20 20 73 6e 6f 20 65 72 20 61 66 73 74 61 6e 64 65 6e 20 74 ┆fa og azbf, azfb. sno er afstanden t┆ 0x019500…019800 (0, 135) 3a 3e 20 65 6c 73 65 20 3c 3a 20 6e 6f 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 65 78 63 65 65 64 65 64 20 74 68 65 6e 0a 20 20 20 20 20 ┆:> else <: no:>); if exceeded then ┆ 0x019800…019b00 (0, 136) 65 20 73 69 64 73 74 65 20 62 61 73 69 73 6c 69 6e 69 2d 0a 20 20 20 20 20 20 65 72 2c 20 75 6e 64 65 72 73 7c 67 65 73 2c 20 6f 6d 20 6e 6f 67 ┆e sidste basislini- er, undersøges, om nog┆ 0x019b00…019e00 (0, 137) 61 74 2c 6c 6f 6e 2c 62 61 73 69 73 62 28 32 2a 62 2b 31 29 2c 62 61 73 69 73 62 28 32 2a 62 2b 32 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆at,lon,basisb(2*b+1),basisb(2*b+2), ┆ 0x019e00…01a100 (0, 138) 6f 20 6e 65 78 74 5f 74 72 79 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 73 75 63 63 65 73 73 6f 72 5f 69 6e 5f 72 61 6e 67 65 3a ┆o next_try; end; successor_in_range:┆ 0x01a100…01a400 (0, 139) 69 74 5f 62 20 74 68 65 6e 20 63 68 65 63 6b 5f 66 69 6e 69 73 28 64 69 6e 63 72 29 3b 0a 20 20 20 20 20 20 69 66 20 61 62 73 28 64 69 6e 63 72 ┆it_b then check_finis(dincr); if abs(dincr┆ 0x01a400…01a700 (0, 140) 6e 64 65 6e 65 20 6f 67 0a 20 20 20 20 20 20 20 20 66 6f 64 70 75 6e 6b 74 65 72 20 61 6a 6f 75 72 66 7c 72 65 73 20 6f 67 20 64 65 72 20 73 6b ┆ndene og fodpunkter ajourføres og der sk┆ 0x01a700…01aa00 (0, 141) 20 20 20 20 20 20 20 20 20 20 6c 61 74 66 6f 6f 74 61 3a 3d 6c 61 74 66 6f 6f 74 62 3a 3d 6c 61 74 66 6f 6f 74 63 3b 0a 20 20 20 20 20 20 20 20 ┆ latfoota:=latfootb:=latfootc; ┆ 0x01aa00…01ad00 (0, 142) 20 72 65 61 6c 20 69 6e 63 72 3b 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 70 72 6f 63 65 64 75 72 65 6e 20 62 65 72 65 67 6e 65 ┆ real incr; begin comment proceduren beregne┆ 0x01ad00…01b000 (0, 143) 64 3a 3d 62 5f 65 78 63 65 65 64 65 64 3a 3d 73 75 63 63 65 73 73 6f 72 5f 69 6e 5f 72 61 6e 67 65 3a 3d 0a 20 20 20 20 20 20 66 6f 75 6e 64 5f ┆d:=b_exceeded:=successor_in_range:= found_┆ 0x01b000…01b300 (0, 144) 3a 3d 30 3b 0a 20 20 20 20 20 20 73 6e 6f 3a 3d 67 65 6f 64 69 73 74 28 6c 61 74 2c 6c 6f 6e 2c 6f 6c 64 6c 61 74 2c 6f 6c 64 6c 6f 6e 2c 61 7a ┆:=0; sno:=geodist(lat,lon,oldlat,oldlon,az┆ 0x01b300…01b600 (0, 145) 70 61 72 61 2d 0a 20 20 20 20 20 20 6d 65 74 72 65 6e 65 20 72 61 6e 67 65 5f 61 20 6f 67 20 72 61 6e 67 65 5f 62 20 61 6e 67 69 76 65 72 2e 0a ┆para- metrene range_a og range_b angiver. ┆ 0x01b600…01b900 (0, 146) 6f 69 6e 74 65 72 5f 62 2b 31 20 6f 70 67 69 76 65 73 20 73 61 6d 6d 65 6e 20 6d 65 64 20 66 72 65 6d 2d 20 6f 67 0a 20 20 20 20 20 20 74 69 6c ┆ointer_b+1 opgives sammen med frem- og til┆ 0x01b900…01bc00 (0, 147) 20 20 20 20 20 20 20 20 20 20 20 64 69 73 74 5f 61 28 70 29 2c 61 61 7a 61 5f 66 28 70 29 2c 61 61 7a 61 5f 62 28 70 29 2c 6c 61 2c 61 7a 61 2c ┆ dist_a(p),aaza_f(p),aaza_b(p),la,aza,┆ 0x01bc00…01bf00 (0, 148) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 61 73 69 73 62 28 32 2a 70 2b 32 29 2c 6c 61 74 2c 6c 6f 6e 2c 0a 20 20 20 20 ┆ basisb(2*p+2),lat,lon, ┆ 0x01bf00…01c200 (0, 149) 20 79 65 73 3a 3e 20 65 6c 73 65 20 3c 3a 20 6e 6f 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 73 75 63 63 65 73 73 6f 72 5f 69 6e 5f 72 61 ┆ yes:> else <: no:>); if successor_in_ra┆ 0x01c200…01c500 (0, 150) 65 20 68 61 72 20 6f 76 65 72 73 6b 72 65 64 65 74 20 64 65 6e 20 67 69 76 6e 65 20 6d 61 78 69 2d 20 0a 20 20 20 20 20 20 6d 61 6c 61 66 73 74 ┆e har overskredet den givne maxi- malafst┆ 0x01c500…01c800 (0, 151) 69 2c 20 73 6f 6d 20 65 72 20 66 6f 72 20 6d 65 67 65 74 20 2c 20 65 6c 6c 65 72 20 68 76 69 73 20 73 6c 75 74 6c 69 6e 69 65 6e 20 69 6b 6b 65 ┆i, som er for meget , eller hvis slutlinien ikke┆ 0x01c800…01cb00 (0, 152) 69 73 3a 3d 74 72 75 65 3b 0a 20 20 20 20 20 20 20 20 20 20 64 69 6e 63 72 3a 3d 30 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 ┆is:=true; dincr:=0; end; ┆ 0x01cb00…01ce00 (0, 153) 30 20 74 68 65 6e 20 70 61 6e 73 3a 3d 70 61 6e 73 2b 32 2a 70 69 3b 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 65 6e 74 20 30 3c 3d 70 61 6e ┆0 then pans:=pans+2*pi; comment 0<=pan┆ 0x01ce00…01d100 (0, 154) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 61 75 73 73 63 75 72 76 28 6f 6c 64 ┆ gausscurv(old┆ 0x01d100…01d400 (0, 155) 20 20 20 20 68 61 72 20 65 74 20 66 7b 6c 6c 65 73 20 70 75 6e 6b 74 2c 20 6f 67 20 64 61 20 65 74 20 65 6e 64 65 70 75 6e 6b 74 2e 20 48 76 69 ┆ har et fælles punkt, og da et endepunkt. Hvi┆ 0x01d400…01d700 (0, 156) 79 65 20 66 6f 64 70 75 6e 6b 74 65 72 20 65 76 74 2e 0a 20 20 20 20 20 20 66 7d 73 2e 0a 20 20 20 20 20 20 48 76 69 73 20 61 66 73 74 61 6e 64 ┆ye fodpunkter evt. fås. Hvis afstand┆ 0x01d700…01da00 (0, 157) 20 6f 70 2e 0a 20 20 20 20 20 20 44 65 74 20 66 6f 72 65 6c 7c 62 69 67 65 20 6d 69 64 74 70 75 6e 6b 74 20 73 74 7d 72 20 69 20 6c 61 74 2c 20 ┆ op. Det foreløbige midtpunkt står i lat, ┆ 0x01da00…01dd00 (0, 158) 2c 61 7a 61 32 70 2c 70 62 32 2c 61 7a 70 62 32 2c 61 7a 62 32 70 2c 70 63 32 2c 61 7a 70 63 32 2c 61 7a 63 32 70 2c 6c 2c 61 7a 2c 62 61 7a 3b ┆,aza2p,pb2,azpb2,azb2p,pc2,azpc2,azc2p,l,az,baz;┆ 0x01dd00…01e000 (0, 159) 6e 20 63 6f 6d 6d 65 6e 74 20 70 75 6e 6b 74 65 74 20 66 6c 79 74 74 65 73 20 68 65 6e 20 6f 76 65 72 20 70 6f 6c 65 6e 3b 0a 20 20 20 20 20 20 ┆n comment punktet flyttes hen over polen; ┆ 0x01e000…01e300 (0, 160) 20 20 20 20 20 69 66 20 62 3c 61 6e 74 61 6c 62 20 74 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 6c 3a 3d 67 65 6f ┆ if b<antalb then begin l:=geo┆ 0x01e300…01e600 (0, 161) 6e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 74 5f 61 28 63 29 2c 61 61 7a 61 5f 66 28 63 29 2c 61 61 7a 61 5f 62 28 63 29 2c 6c ┆n, dist_a(c),aaza_f(c),aaza_b(c),l┆ 0x01e600…01e900 (0, 162) 7a 63 66 2c 61 7a 66 63 2c 63 31 2c 63 32 2c 63 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 63 32 2c 61 7a 63 32 70 2c 61 7a 70 63 32 ┆zcf,azfc,c1,c2,c3, pc2,azc2p,azpc2┆ 0x01e900…01ec00 (0, 163) 75 72 65 6e 20 73 7b 74 74 65 72 20 6d 6f 64 65 20 65 66 74 65 72 20 66 6c 67 2e 20 73 74 69 6c 6c 69 6e 67 20 61 66 0a 20 20 20 20 20 20 66 6f ┆uren sætter mode efter flg. stilling af fo┆ 0x01ec00…01ef00 (0, 164) 65 6e 20 65 6c 6c 65 72 20 64 65 20 73 69 64 73 74 65 2e 20 44 61 20 6b 61 6e 20 66 6f 64 70 75 6e 6b 74 65 72 6e 65 20 6e 65 6d 2d 0a 20 20 20 ┆en eller de sidste. Da kan fodpunkterne nem- ┆ 0x01ef00…01f200 (0, 165) 6f 74 61 3d 6c 6f 6e 73 6c 75 74 61 20 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 6c 61 74 66 6f 6f 74 62 3d 6c 61 74 73 6c 75 74 62 20 61 6e ┆ota=lonsluta and latfootb=latslutb an┆ 0x01f200…01f500 (0, 166) 20 74 68 65 6e 0a 20 20 20 20 20 20 63 65 6e 74 72 61 6c 5f 61 78 69 61 6c 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 6c 61 74 66 6f 6f 74 61 ┆ then central_axial else if latfoota┆ 0x01f500…01f800 (0, 167) 31 20 74 68 65 6e 20 3c 3a 3c 31 30 3e 3c 31 30 3e 70 20 3a 20 20 3a 3e 0a 20 20 20 20 20 20 20 20 65 6c 73 65 20 3c 3a 3c 31 30 3e 20 20 20 20 ┆1 then <:<10><10>p : :> else <:<10> ┆ 0x01f800…01fb00 (0, 168) 61 6c 3c 3a 69 6e 74 65 72 3a 3e 20 61 64 64 20 31 31 30 2c 0a 20 20 20 20 20 20 72 65 61 6c 3c 3a 68 6f 75 67 68 3a 3e 20 20 20 20 20 20 20 20 ┆al<:inter:> add 110, real<:hough:> ┆ 0x01fb00…01fe00 (0, 169) 20 20 20 20 20 62 61 73 69 73 61 28 32 2a 70 2b 31 29 2c 62 61 73 69 73 61 28 32 2a 70 2b 32 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ basisa(2*p+1),basisa(2*p+2), ┆ 0x01fe00…020100 (0, 170) 20 20 20 20 20 20 20 20 6c 61 74 73 6c 75 74 62 3a 3d 62 61 73 69 73 62 28 32 2a 61 6e 74 61 6c 62 2d 31 29 3b 0a 20 20 20 20 20 20 20 20 6c 6f ┆ latslutb:=basisb(2*antalb-1); lo┆ 0x020100…020400 (0, 171) 5f 62 20 62 61 73 69 73 6c 69 6e 69 65 72 20 0a 20 20 20 20 20 20 66 72 65 6d 2e 20 44 65 72 20 66 69 6e 64 65 73 20 6f 67 73 7d 20 66 6f 64 70 ┆_b basislinier frem. Der findes også fodp┆ 0x020400…020700 (0, 172) 61 7a 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 61 74 66 2c 6c 6f 6e 66 2c 61 7a 70 66 2c 61 7a 66 70 2c 61 70 31 2c 61 70 32 2c 61 70 ┆az, latf,lonf,azpf,azfp,ap1,ap2,ap┆ 0x020700…020a00 (0, 173) 66 2c 61 7a 70 66 2c 61 7a 66 70 2c 62 70 31 2c 62 70 32 2c 62 70 33 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 6c 2c 6e 65 77 62 ┆f,azpf,azfp,bp1,bp2,bp3, newl,newb┆ 0x020a00…020c6d (0, 174) 0a 20 20 20 20 20 20 63 61 73 65 20 6d 6f 64 65 20 6f 66 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 62 69 73 65 63 74 6f 72 ┆ case mode of begin bisector┆ 0x020c6d…020f6d (1, 0) 0c 0a 0a 0a 63 6f 6d 6d 65 6e 74 20 20 20 20 20 66 72 76 20 31 33 35 2d 32 20 3a 20 62 69 6c 61 74 65 72 61 6c 20 65 71 75 69 64 69 73 74 61 6e ┆ comment frv 135-2 : bilateral equidistan┆ 0x020f6d…02126d (1, 1) 6b 7b 72 69 6e 67 73 70 75 6e 6b 74 65 74 20 6d 65 6c 6c 65 6d 20 64 65 20 74 6f 20 62 61 73 69 73 6c 69 6e 69 65 72 29 0a 0a 20 20 32 29 20 20 ┆kæringspunktet mellem de to basislinier) 2) ┆ 0x02126d…02156d (1, 2) 64 20 66 72 61 20 75 64 67 61 6e 67 73 70 75 6e 6b 74 65 74 2e 20 44 65 72 75 64 6f 76 65 72 0a 20 20 62 72 75 67 65 73 20 64 65 74 20 67 69 76 ┆d fra udgangspunktet. Derudover bruges det giv┆ 0x02156d…02186d (1, 3) 67 2d 70 6f 69 6e 74 73 20 6b 72 7b 76 65 72 2c 20 61 74 20 70 72 6f 2d 0a 20 20 67 72 61 6d 6d 65 74 20 73 65 72 20 66 6f 72 75 64 20 70 7d 20 ┆g-points kræver, at pro- grammet ser forud på ┆ 0x02186d…021b6d (1, 4) 20 76 69 61 0a 20 20 7a 6f 6e 65 6e 20 63 6f 6e 74 2c 20 62 61 73 69 73 70 75 6e 6b 74 65 72 6e 65 20 6c 7b 73 65 73 20 69 6e 64 20 76 69 61 20 ┆ via zonen cont, basispunkterne læses ind via ┆ 0x021b6d…021e6d (1, 5) 73 68 6f 72 74 2c 61 6c 6c 5f 74 68 65 5f 77 61 79 2c 73 75 63 63 65 73 73 6f 72 5f 69 6e 5f 72 61 6e 67 65 2c 0a 20 20 66 6f 75 6e 64 5f 61 2c ┆short,all_the_way,successor_in_range, found_a,┆ 0x021e6d…02216d (1, 6) 6b 72 69 76 65 20 6d 6f 64 65 6b 69 6e 64 20 28 6d 6e 65 6d 6f 74 65 6b 6e 69 73 6b 29 20 6f 67 20 6e 61 76 6e 20 70 7d 0a 20 20 20 20 64 65 74 ┆krive modekind (mnemoteknisk) og navn på det┆ 0x02216d…02246d (1, 7) 29 3b 0a 20 20 20 20 69 66 20 6a 3e 31 35 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 72 65 61 64 20 66 69 6c 65 6e ┆); if j>15 then begin comment read filen┆ 0x02246d…02276d (1, 8) 6e 20 6f 66 20 6e 61 76 69 67 61 74 69 6f 6e 20 3a 3e 2c 0a 20 20 20 20 20 20 3c 3a 61 6e 64 20 68 79 64 72 6f 67 72 61 70 68 79 3a 3e 2c 0a 20 ┆n of navigation :>, <:and hydrography:>, ┆ 0x02276d…022a6d (1, 9) 2c 3c 3a 3c 31 30 3e 3c 31 30 3e 6e 6f 2e 20 6f 66 20 62 61 73 65 70 6f 69 6e 74 73 20 66 69 72 73 74 20 62 61 73 65 6c 69 6e 65 20 3a 20 3a 3e ┆,<:<10><10>no. of basepoints first baseline : :>┆ 0x022a6d…022d6d (1, 10) 3e 2c 73 74 72 69 6e 67 20 6c 61 79 2c 0a 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 61 64 64 20 33 32 2c 32 37 2d 69 2c 6c 69 6d 69 74 2c 3c 3a ┆>,string lay, false add 32,27-i,limit,<:┆ 0x022d6d…02306d (1, 11) 20 30 29 3b 0a 20 20 20 20 20 20 70 61 67 65 63 6f 75 6e 74 3a 3d 31 3b 0a 20 20 20 20 65 6e 64 20 6e 6f 6e 20 73 68 6f 72 74 3b 0a 0a 20 20 20 ┆ 0); pagecount:=1; end non short; ┆ 0x02306d…02336d (1, 12) 67 20 66 0a 20 20 20 20 66 6f 72 20 66 69 6e 61 6c 2e 0a 20 20 20 20 44 65 73 75 64 65 6e 20 75 64 73 6b 72 69 76 65 73 20 6b 6f 6f 72 64 69 6e ┆g f for final. Desuden udskrives koordin┆ 0x02336d…02366d (1, 13) 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 20 63 6f 6d 6d 65 6e 74 20 73 69 64 65 73 6b 69 66 74 20 6f 67 20 65 6e 20 6b 6f 72 74 20 6f 76 65 72 ┆en begin comment sideskift og en kort over┆ 0x02366d…02396d (1, 14) 68 61 72 63 6f 75 6e 74 2b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 ┆harcount+ w┆ 0x02396d…023c6d (1, 15) 2c 3c 3a 20 20 20 3a 3e 29 3b 0a 20 20 20 20 77 72 69 74 65 70 6f 73 69 74 69 6f 6e 28 7a 2c 6c 61 74 2c 31 29 3b 0a 20 20 20 20 77 72 69 74 65 ┆,<: :>); writeposition(z,lat,1); write┆ 0x023c6d…023f6d (1, 16) 62 2c 3c 3a 20 20 20 3a 3e 29 20 65 6c 73 65 0a 20 20 20 20 77 72 69 74 65 28 7a 2c 3c 3a 3c 31 30 3e 20 20 20 2d 3a 2d 20 20 20 62 20 20 20 20 ┆b,<: :>) else write(z,<:<10> -:- b ┆ 0x023f6d…02426d (1, 17) 20 20 20 20 20 20 20 3a 3a 3e 2c 73 74 72 69 6e 67 20 6c 61 79 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 6c 73 65 20 61 64 64 20 33 ┆ ::>,string lay, false add 3┆ 0x02426d…02456d (1, 18) 20 66 6f 72 74 65 67 6e 65 74 3b 0a 0a 20 20 20 20 69 6e 74 65 67 65 72 20 74 65 67 6e 3b 0a 0a 20 20 20 20 77 72 69 74 65 28 7a 2c 3c 3c 7a 64 ┆ fortegnet; integer tegn; write(z,<<zd┆ 0x02456d…02486d (1, 19) 65 73 20 70 72 6f 63 65 64 75 72 65 6e 20 61 6c 61 72 6d 3b 0a 0a 20 20 20 20 61 72 72 61 79 20 6b 6f 6f 72 64 28 31 3a 33 29 3b 20 69 6e 74 65 ┆es proceduren alarm; array koord(1:3); inte┆ 0x02486d…024b6d (1, 20) 0a 20 20 65 6e 64 20 72 65 61 64 70 6f 73 69 74 69 6f 6e 3b 0a 0a 0a 20 20 70 72 6f 63 65 64 75 72 65 20 61 6c 61 72 6d 28 74 65 78 74 29 3b 0a ┆ end readposition; procedure alarm(text); ┆ 0x024b6d…024e6d (1, 21) 0a 20 20 20 20 3c 3c 64 64 64 20 64 64 64 20 64 64 64 2e 64 64 64 27 2b 64 64 3e 29 29 3b 0a 20 20 20 20 73 70 61 63 65 73 3a 3d 63 61 73 65 20 ┆ <<ddd ddd ddd.ddd'+dd>)); spaces:=case ┆ 0x024e6d…02516d (1, 22) 67 20 74 69 6c 20 72 61 64 69 61 6e 3b 0a 20 20 72 61 64 69 61 6e 3a 3d 61 28 31 29 2a 70 69 2f 31 38 30 2b 61 28 32 29 2a 70 69 2f 28 31 38 30 ┆g til radian; radian:=a(1)*pi/180+a(2)*pi/(180┆ 0x02516d…02546d (1, 23) 65 20 76 61 72 69 61 62 6c 65 0a 20 20 20 20 61 6c 20 6f 67 20 62 6c 20 2c 20 73 6f 6d 20 65 72 20 72 65 66 65 72 65 6e 63 65 65 6c 6c 69 70 73 ┆e variable al og bl , som er referenceellips┆ 0x02546d…02576d (1, 24) 6b 75 72 73 69 76 74 20 6b 61 6c 64 2c 20 68 76 6f 72 20 6c 6f 6e 31 20 65 72 20 66 6c 79 74 74 65 74 20 32 2a 70 69 20 66 72 65 6d 2e 0a 20 20 ┆kursivt kald, hvor lon1 er flyttet 2*pi frem. ┆ 0x02576d…02579d (1, 25) 20 20 20 20 67 65 6f 64 3a 3d 2d 31 3b 0a 20 20 20 20 20 20 61 7a 3a 3d 62 61 7a 3a 3d 30 3b 0a 20 20 20 20 20 20 67 6f 74 6f 20 75 64 5f 67 65 ┆ geod:=-1; az:=baz:=0; goto ud_ge┆ […truncated at 200 lines…]