()0\S[3C-PS/8 FOCAL, 1971?MB0DJA "STRECKE(1)
 GEKNICKTE BAHN(2)
 DREIECK(3)
"I1,!?MB?DLIF (I1-2)2.19,2.18,2.18?ML!DRA "LAENGE "LG(1),LM(1),LS(1)," BREITE "BG(1),BM(1),BS(1),!?MZ:DTA "LAENGE "LG(3),LM(3),LS(3)," BREITE "BG(3),BM(3),BS(3),!!?MPRFAC ENTSCHEIDUNGEN WELCHER KURS?MP!HAC STRECKE?MRLHJS J=2;D 8;S L1=L(J);S B1=B(J);S J=3;
 8;S L2=L(J);S B2=B(J)?MG;JAC ZIEL IN GEKNICKTER BAHN?MF4PAC UMRECHNUNG IN BOGENMASS?MS<RAC KONSTANTEN?MSDRIS C5=0.006768469?ME?TAC ENTFERNUNG ZWEIER PUNKTE?MW=TJS S1=(N/V2)*BD*<1-((2+C6)/24)*D5>?MF TTS S9=FSQT(S1^2+S2^2)?MF,VAC PUNKTEBERECHNUNG?MM7XAC AU
DRUCK?MGIPJS LU(J)=LM(J)/60;S LV(J)=LS(J)/3600?MR2PLS L(J)=LG(J)+LU(J)+LV(J)?MG,PTS BU(J)=BM(J)/60;S BV(J)=B(J)/3600?MUUPVS B(J)=BG(J)+BU(J)+BV(J)?MHMJJS J=1;D 8;S L1=L(J);S B1=B(J)?MH
JKS J=2;D 8;S L2=L(J);S B2=B(J)?MH1JLS J=3;D 8;S L3=L(J);S B3=B(J)?MH<JOD 9;D 10;S S8=S9?MIOJQS L1=L2;S L2=L3;S B1=B2;S B2=B3?MM2JSD 9;D 10;S S7=S9;S P8=S8;S P7=S7;S PS=P8+P7?MN=NAC DREIECK?MI?NJD 5;S P8=2*P8;S P7=2*P7?MJVNKS L1=L(3);S B1=B(3);S L2=L(1);S
B2=B(1)?MJ&NRD 9;D 10;S S6=S9;S P6=2*S6?MN[NTS I=4;D 13.25?MEKN
GOTO 20.01?MKZAC AUSDRUCK?MM^ZJD 12.10?MTTZYS A1=LG(I);S A2=LM(I);S A3=LS(I);S A4=BG(I);S A5=BM(I);S A6=BS(I)?MMFZNS I=1;D 13.25?MO	ZQS I=2;D 13.25;D 13.15?MKGZTS I=3;D 13.25;D 13.15?MPKLEGOTO 20.01?MP0(AC SCHLUSS?MC
DSA "LAENGE "LG(2),LM(2),LS(2)," BREITE "BG(2),BM(2),BS(2),!?MLQLBD 13?MOCZOT %2,I,"         "A1,A2,A3,"  ",A4,A5,A6,!?MK+ZKT !?MMAJYI (I1-2)20.01,6.05,7.01?MMJTD 13?MJ8XJT !!"  NR.         LAENGE      BREITE        STRECKE      PUNKTE"!?MQ	NYT %7.1,"    
                                  ",S6,"   ",P6,!?MI0NDS I2=2?MK5ZPT %7.1,"                                       ",S8,"   ",P8*I2,!?MLCZST %7.1,"                                       ",S7,"   ",P7*I2,!?MP(L2S I2=1.5?MDRFJI (I1-2) 4.01,6.50,7.01?MDZHDS I
=1.5?MI(L3GOTO 5.01?MQC(ES SP=I2*(P6+P7+P8);S SS=S6+S7+S8?M[B(FT %7.1,!,"                                 SUMME ",SS,"   ",SP,!!?MJ0N^S I=1;D 13.25;S I=4;D 13.15;S I2=1?MZ&HMS 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;
 I=1;D 13.15;D 13.16?MGXPOS L(J)=L(J)*(3.1415926536/180)?MSTRJS B=(B1+B2)/2;S V2=1+C5*CB?MS+RLS LD=(L2-L1);S BD=(B2-B1);S N=6400-22*CB?ME/ROS C6=SB;S D5=LD^2;S D6=BD^2?MTHRGS X=B;D 14;S CB=X?ME$RHS X=B;D 15;S SB=X?MT^\AC COS-FUNKTION?MT5\ES X=1-X^2/2+X^4/
4-X^6/720+X^8/(720*56)?MT?^AC SIN-FUNKTION?MLY^ES X=X-X^3/6+X^5/120-X^7/6040+X^9/44880?ME[PYS B(J)=B(J)*(3.1415926536/180)?MVGBDC SOWIE DREIECKSKURSE NICHT EINZELN ZUSAMMENSETZEN MUSS, ?MXQBEC SIEHT DAS PROGRAMM AUCH DIESES VOR.?MV=BKC GEBEN SICH UNTERSCH
EDE CDC-RECHNUNG UND DIESER (CA.1%).?MZDBLC CDC-VERSION IN VORBEREITUNG.          STIEMER 18.1.1974?MU	BBC ZWEIER PUNKTE AUF DEM ERDELLIPSOID. DAMIT MAN GEKNICKTE?MFSTOS S2=N*CB*LD*<1+D6/24-(C6/24)*D5>?MX.BIC BEI DEM CDC-PROGRAMM WIRD MIT MITTLEREM ERDRAD
US?MV]BJC UND DER ANNAHME, DIE ERDE SEI EINE KUGEL, GERECHNET. DAHER ER-?M[OB T " HABEN SIE AUCH UND NUR DIE FEATURES 3,4
 SONST NEUSTART PFOCAL!"!!?MY?2JO O LPT:,?M2KW A?MYQB
T " WENN SIE EINE ERKLAERUNG MOECHTEN :<CTRL/P,W 1,RETURN> "!!?MD;IZGOTO 2.01?MZ2DAE?MBTDBC ABFRAGEN?MDD^O O LPT:,?M[G(JO C?MY7(^GOTO 2.01?MZ.BT !!!" ENTFERNUNG ZWISCHEN ZWEI PUNKTEN AUF DEM ERDELLIPSOID",!!!?MW]BAC DIESES PROGRAMM === GRKRLP ===  BERECHN
T DIE ENTFERNUNG?MW L S DTA1:GRKRLP?M?M === GRKRLP ===  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?:?.?0[ 3UX$?>X45HNR?:PNE$<B?0APG[0?,/DANX,DCNRNRJ]	R"XHO6I2

Note: Lines longer than 256 characters were wrapped