()0\G[JC-PS/8 FOCAL, 1971?MBDLIF (I1-2)2.19,2.18,2.18?MLEDRA "LAENGE "LG(1),LM(1),LS(1)," BREITE "BG(1),BM(1),BS(1),!?MC$DTA "LAENGE "LG(3),LM(3),LS(3)," BREITE "BG(3),BM(3),BS(3),!!?MO6FAC ENTSCHEIDUNGEN WELCHER KURS?MPEHAC STRECKE?MQ0HJS J=2;D 8;S L1=L(
);S B1=B(J);S J=3;D 8;S L2=L(J);S B2=B(J)?MG
JAC ZIEL IN GEKNICKTER BAHN?MFXPAC UMRECHNUNG IN BOGENMASS?MS RAC KONSTANTEN?MR(RIS C5=0.006768469?METAC ENTFERNUNG ZWEIER PUNKTE?MW!TJS S1=(N/V2)*BD*<1-((2+C6)/24)*D5>?MFDTTS S9=FSQT(S1^2+S2^2)?MFPVAC PUNKTEBERECHNUNG?MM[XAC AUSDRUCK?MF-PJS LU(J)=LM(J)/6
;S LV(J)=LS(J)/3600?MRVPLS L(J)=LG(J)+LU(J)+LV(J)?MGPPTS BU(J)=BM(J)/60;S BV(J)=B(J)/3600?MT9PVS B(J)=BG(J)+BU(J)+BV(J)?MG1JJS J=1;D 8;S L1=L(J);S B1=B(J)?MHCJKS J=2;D 8;S L2=L(J);S B2=B(J)?MHUJLS J=3;D 8;S L3=L(J);S B3=B(J)?MH JOD 9;D 10;S S8=S9?MH3JQS L
=L2;S L2=L3;S B1=B2;S B2=B3?MMVJSD 9;D 10;S S7=S9;S P8=S8;S P7=S7;S PS=P8+P7?MN!NAC DREIECK?MINJD 5;S P8=2*P8;S P7=2*P7?MI:NKS L1=L(3);S B1=B(3);S L2=L(1);S B2=B(1)?MJJNRD 9;D 10;S S6=S9;S P6=2*S6?MM?NTS I=4;D 13.25?MD/N
GOTO 20.01?MJ$ZAC AUSDRUCK?MMBZJD 12.10?MS8ZYS A1=LG(I);S A2=LM(I);S A3=LS(I);S A4=BG(I);S A5=BM(I);S A6=BS(I)?ML*ZNS I=1;D 13.25?MOKZQS I=2;D 13.25;D 13.15?MJ+ZTS I=3;D 13.25;D 13.15?MO/LEGOTO 20.01?MPT(AC SCHLUSS?MCCDSA "LAENGE "LG(2),LM(2),LS(2)," BREI
E "BG(2),BM(2),BS(2),!?MK5LBD 13?MN	ZOT %2,I,"         "A1,A2,A3,"  ",A4,A5,A6,!?MKOZKT !?ML%JYI (I1-2)20.01,6.05,7.01?MMGJTD 13?MJ\XJT !!"  NR.         LAENGE      BREITE        STRECKE      PUNKTE"!?MQKNYT %7.1,"                                       ",
6,"   ",P6,!?MITNDS I2=2?MKYZPT %7.1,"                                       ",S8,"   ",P8*I2,!?MK	ZST %7.1,"                                       ",S7,"   ",P7*I2,!?MPLL2S I2=1.5?MC6FJI (I1-2) 4.01,6.50,7.01?MC>HDS I2=1.5?MILL3GOTO 5.01?MP	(ES SP=I2*(P6
P7+P8);S SS=S6+S7+S8?MZ^(FT %7.1,!,"                                 SUMME ",SS,"   ",SP,!!?MJTN^S I=1;D 13.25;S I=4;D 13.15;S I2=1?MZJHMS I=3;D 13.25;S I=2;D 13.15?MQ
HLD 9;D 10;D 12;T !;S S8=S9;S P8=S8;S I=2;D 13.25;S I=1;D 13.15;D 13.16?MF<POS L(J)=L(J)*(3.1415926536/180)?MR8RJS B=(B1+B2)/2;S V2=1+C5*CB?MSORLS LD=(L2-L1);S BD=(B2-B1);S N=6400-22*CB?MESROS C6=SB;S D5=LD^2;S D6=BD^2?MS,RGS X=B;D 14;S CB=X?MEHRHS X=B;D 
5;S SB=X?MTB\AC COS-FUNKTION?MTY\ES X=1-X^2/2+X^4/24-X^6/720+X^8/(720*56)?MT^AC SIN-FUNKTION?MK=^ES X=X-X^3/6+X^5/120-X^7/6040+X^9/44880?MD?PYS B(J)=B(J)*(3.1415926536/180)?MU+BDC SOWIE DREIECKSKURSE NICHT EINZELN ZUSAMMENSETZEN MUSS, ?MW5BEC SIEHT DAS PR
GRAMM AUCH DIESES VOR.?MV!BKC GEBEN SICH UNTERSCHIEDE CDC-RECHNUNG UND DIESER (CA.1%).?MY(BLC CDC-VERSION IN VORBEREITUNG.          STIEMER 18.1.1974?MUKBBC ZWEIER PUNKTE AUF DEM ERDELLIPSOID. DAMIT MAN GEKNICKTE?ME7TOS S2=N*CB*LD*<1+D6/24-(C6/24)*D5>?MXR
IC BEI DEM CDC-PROGRAMM WIRD MIT MITTLEREM ERDRADIUS?MVABJC UND DER ANNAHME, DIE ERDE SEI EINE KUGEL, GERECHNET. DAHER ER-?MZ&B T " HABEN SIE AUCH UND NUR DIE FEATURES 3,4
 SONST NEUSTART PFOCAL!"!!?MY2JO O LPT:,?M2KW A?MX5B
T " WENN SIE EINE ERKLAERUNG MOECHTEN :<CTRL/P,W 1,RETURN> "!!?MD
IZGOTO 2.01?MZVDAE?M[*DBC ABFRAGEN?MY[(^GOTO 2.01?MZRBT !!!" ENTFERNUNG ZWISCHEN ZWEI PUNKTEN AUF DEM ERDELLIPSOID",!!!?MWABAC DIESES PROGRAMM === GRKRSS ===  BERECHNET DIE ENTFERNUNG?MBTDJA !!"STRECKE(1)
 GEKNICKTE BAHN(2)
 DREIECK(3)
"I1,!?M =L S DTA1:GRKRSS?M?EKNICKTE BAHN(2)
 DREIECK(3)
"I1,!?M ===  BERECHNET DIE ENTFERNUNG?MW A?MA?E 1.15?M?MN GEKNICKTE?MF>TOS S2=N*CB*LD*<1+D6/24-(C6/?.?2[ 3UW4?>Y<DQNR?:NRBANRLWBSWONRJXD7

Note: Lines longer than 256 characters were wrapped