|
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 0x20 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 ┆ comment frv 135-2 : bila┆ 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 ┆kæringspunktet mellem de to basi┆ 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 ┆d fra udgangspunktet. Derudover ┆ 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 ┆g-points kræver, at pro- gramm┆ 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 ┆ via zonen cont, basispunktern┆ 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 ┆short,all_the_way,successor_in_r┆ 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 ┆krive modekind (mnemoteknisk) og┆ 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 ┆); if j>15 then begin co┆ 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 ┆n of navigation :>, <:and ┆ 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 ┆,<:<10><10>no. of basepoints fir┆ 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 ┆>,string lay, false add ┆ 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 ┆ 0); pagecount:=1; end┆ 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 ┆g f for final. Desuden u┆ 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 ┆en begin comment sideskift┆ 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 ┆harcount+ ┆ 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 ┆,<: :>); writeposition(z,l┆ 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 ┆b,<: :>) else write(z,<:<1┆ 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 ┆ ::>,string lay, ┆ 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 ┆ fortegnet; integer tegn; ┆ 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 ┆es proceduren alarm; array ┆ 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 ┆ end readposition; procedu┆ 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 ┆ <<ddd ddd ddd.ddd'+dd>)); ┆ 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 ┆g til radian; radian:=a(1)*pi/┆ 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 ┆e variable al og bl , som er┆ 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 ┆kursivt kald, hvor lon1 er flytt┆ 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 ┆ geod:=-1; az:=baz:=0; ┆ 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 ┆mment sd=0 <=> l=0 or l=1; ┆ 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 ┆e i:=2; case i of be┆ 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 ┆rv((lat1+lat2)/2)* s┆ 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 ┆t for det givne punkt, (az<p┆ 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 ┆wlon,newaz,newdist, dk,p,sig┆ 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 ┆ kriteriet for den pågældende ┆ 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 ┆ende vertex opsøges, og ┆ 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 ┆in(sqrt(1-argg**2)); if ┆ 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 ┆ end else begin com┆ 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 ┆v**2-1)*c2**2; y:=2*p*v*┆ 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 ┆; deta:=if dist>1 and ┆ 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 ┆n comment over en af polerne; ┆ 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 ┆m har den korteste afstand fra c┆ 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 ┆ vil så være den korteste af┆ 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 ┆n a:=a-sgn(a)*2*pi; comment ┆ 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 ┆ske linier, der skærer de┆ 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 ┆ dem vil være den kortest┆ 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 ┆ ab, ligger ikke mellem a og b, ┆ 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 ┆nc; end else begin c┆ 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 ┆nal, og et evt. tilskud til laf ┆ 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 ┆d fodpunktet på ab; ud_gendis┆ 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 ┆mme hellilie og peger hver s┆ 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 ┆il bc findes en første til- ┆ 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 ┆ ken indeholder det andet punkt┆ 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 ┆ end else begin comment ik┆ 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 ┆lona; azca:=0; ┆ 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 ┆nt en eller begge vinkler er num┆ 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 ┆ ter et nyt a og 15000-a┆ 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 ┆b); end; end e┆ 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 ┆6-geodist(latb,lonb,latc,lonc,az┆ 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 ┆za, 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 ┆then azcb-pi else azcb+pi; ┆ 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 ┆indskes hvis de to o┆ 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 ┆/cos(lat)**2 som er exakte, ┆ 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 ┆færiske form- ler, som ved i┆ 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 ┆halv meridianomkreds; end tre┆ 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 ┆e(base,0,ign) then alarm(<:***┆ 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 ┆f ident<0 then alarm(<:***identi┆ 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 ┆ <:<10><10> first ┆ 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 ┆ <:<10>between distanc┆ 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 ┆onv then begin setposi┆ 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 ┆ read(cont,limit); end; if ┆ 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 ┆testpointb); if conv then ┆ 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 ┆:=1 else if val=ii or ┆ 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 ┆nr:=nr-1; repeatchar(c┆ 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 ┆ if val=25 then beg┆ 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 ┆az,baz,newaz,newbaz,azab,azba, ┆ 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 ┆kker står i de globale variable ┆ 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 ┆tancepunkt er nærmere en a┆ 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 ┆ real dincr; begin commen┆ 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 ┆ b_exceeded:= latf┆ 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 ┆d then begin ┆ 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 ┆ dincr:=-sgn(excess_b)* ┆ 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 ┆gger på hinandens positive halvl┆ 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 ┆ sector må altså bero på en ┆ 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 ┆alarm(<:***bisector : baselines ┆ 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 ┆zib); end; comment ┆ 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 ┆punktet til lat, lon; if ┆ 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 ┆); next_try: pa1:=g┆ 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 ┆azno,azon); if test then┆ 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 ┆is de to geodætikker er den samm┆ 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 ┆fstanden til de to geodætiske li┆ 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 ┆true, skal check_excession ikke ┆ 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 ┆e, ligger punktet på den o┆ 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 ┆ comment hvis finis er true,┆ 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 ┆re et turning-point. Det skal nu┆ 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 ┆omment finis er true og dincr<>0┆ 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 ┆g fodpunkter skrives ud, pegepin┆ 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 ┆ slutpunkt for a- og b-si┆ 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 ┆:=tæller+1; dismiss_point(┆ 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 ┆ retning på parablen, som sva- ┆ 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 ┆systemet kaldet a-siden sk┆ 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 ┆, lata,lona,latb1,lonb1,la┆ 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 ┆v. dincr beregnes også, ┆ 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 ┆bs(a1p); comment positiv hvis a ┆ 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 ┆ment begyndelsesnormalen ved a e┆ 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 ┆ pi-abs(vinkel) else abs(┆ 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 ┆gain: pb1p:=geodist(lata,l┆ 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 ┆; goto try_again; ┆ 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 ┆r i azia; s:=geodis┆ 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 ┆gnet for det ny v skiftes;┆ 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 ┆ gausscurv(b┆ 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 ┆_try: sap :=geodist(lat,lo┆ 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 ┆otbp; end else begin┆ 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 ┆ktet og fodpunktet (latfootbp, l┆ 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 ┆pi; end; goto ne┆ 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 ┆orrektion, dincr, til s og ┆ 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 ┆:> else <: : a_e┆ 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 ┆ærmere punktet end sap=sbp. ┆ 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 ┆ndpunktet ligger på b-siden; ┆ 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 ┆(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 ┆e:=true; a_was_found:=fo┆ 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 ┆e og dincr=0, d. v.s. at p┆ 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 ┆,tæller,i,<:f:>,short); ┆ 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 ┆ if latsluta=latslutb and ┆ 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 ┆ end else begin comment┆ 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 ┆n er et ækvidistancepunkt ┆ 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 ┆tuelle af a og b bestemte, og ┆ 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 ┆ afstand, hvormed normalen er ov┆ 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 ┆ if abs(b1)>pi then b1:=b1-┆ 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 ┆et mest, og en korrektion, dincr┆ 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 ┆pi then vinkel:=vink┆ 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 ┆ ab:=geodist(basisa(2*a-1),ba┆ 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 ┆t signa er orienteringen inducer┆ 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 ┆nt s skal forøges med incr, hvis┆ 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 ┆rader(v,i),if i<0 then <: -:> el┆ 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 ┆oint(med,tæller+1,i+1,<:c:>,shor┆ 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 ┆*cos(azpi)/denom; beta:=┆ 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 ┆fa og azbf, azfb. sn┆ 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 ┆:> else <: no:>); if exc┆ 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 ┆e sidste basislini- er, un┆ 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 ┆at,lon,basisb(2*b+1),basisb(2*b+┆ 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 ┆o next_try; end; suc┆ 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 ┆it_b then check_finis(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 ┆ndene og fodpunkter ajou┆ 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 ┆ latfoota:=latfootb:=la┆ 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 ┆ real incr; begin comment pr┆ 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 ┆d:=b_exceeded:=successor_in_rang┆ 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 ┆:=0; sno:=geodist(lat,lon,┆ 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 ┆para- metrene range_a og r┆ 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 ┆ointer_b+1 opgives sammen med fr┆ 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 ┆ dist_a(p),aaza_f(p),a┆ 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 ┆ basisb(2*p+┆ 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 ┆ yes:> else <: no:>); if┆ 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 ┆e har overskredet den givne maxi┆ 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 ┆i, som er for meget , eller hvis┆ 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 ┆is:=true; dincr:=0; ┆ 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 ┆0 then pans:=pans+2*pi; ┆ 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 ┆ ┆ 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 ┆ har et fælles punkt, og da e┆ 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 ┆ye fodpunkter evt. fås. ┆ 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 ┆ op. Det foreløbige midtpu┆ 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 ┆,aza2p,pb2,azpb2,azb2p,pc2,azpc2┆ 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 ┆n comment punktet flyttes hen ov┆ 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 ┆ if b<antalb then begi┆ 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 ┆n, dist_a(c),aaza_┆ 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 ┆zcf,azfc,c1,c2,c3, ┆ 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 ┆uren sætter mode efter flg. stil┆ 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 ┆en eller de sidste. Da kan fodpu┆ 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 ┆ota=lonsluta and latf┆ 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 ┆ then central_axial else ┆ 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 ┆1 then <:<10><10>p : :> ┆ 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 ┆al<:inter:> add 110, real<┆ 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 ┆ 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 ┆ latslutb:=basisb(2*antal┆ 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 ┆_b basislinier frem. Der ┆ 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 ┆az, latf,lonf,azpf┆ 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 ┆f,azpf,azfp,bp1,bp2,bp3, ┆ 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 ┆ case mode of begin ┆ 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 ┆ comment frv 135-2 : bila┆ 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 ┆kæringspunktet mellem de to basi┆ 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 ┆d fra udgangspunktet. Derudover ┆ 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 ┆g-points kræver, at pro- gramm┆ 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 ┆ via zonen cont, basispunktern┆ 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 ┆short,all_the_way,successor_in_r┆ 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 ┆krive modekind (mnemoteknisk) og┆ 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 ┆); if j>15 then begin co┆ 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 ┆n of navigation :>, <:and ┆ 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 ┆,<:<10><10>no. of basepoints fir┆ 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 ┆>,string lay, false add ┆ 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 ┆ 0); pagecount:=1; end┆ 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 ┆g f for final. Desuden u┆ 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 ┆en begin comment sideskift┆ 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 ┆harcount+ ┆ 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 ┆,<: :>); writeposition(z,l┆ 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 ┆b,<: :>) else write(z,<:<1┆ 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 ┆ ::>,string lay, ┆ 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 ┆ fortegnet; integer tegn; ┆ 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 ┆es proceduren alarm; array ┆ 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 ┆ end readposition; procedu┆ 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 ┆ <<ddd ddd ddd.ddd'+dd>)); ┆ 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 ┆g til radian; radian:=a(1)*pi/┆ 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 ┆e variable al og bl , som er┆ 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 ┆kursivt kald, hvor lon1 er flytt┆ 0x02576d…025a6d (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 ┆ geod:=-1; az:=baz:=0; ┆ […truncated at 200 lines…]