File ADLER.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

C-PS/8 FOCAL, 1971
 1.03 C HANDGESTEUERTE MONDLANDUNG
 1.04 T "ANWEISUNG AN MONDFAEHRE 	ADLER	 ! MANUELLE STEUERUNG IST"!
 1.05 T "DRINGEND ERFORDERLICH.SIE KOENNEN DEN TREIBSTOFF-"!
 1.06 T "VERBRAUCH 	K	 ALLE 10 SEK AUF 0 ODER  EINEN BELIEBIGEN WERT"!
 1.07 T "ZWISCHEN 8 & 200 SETZEN.SIE HABEN 16000 LITER VORRAT."!
 1.08 T "DER FREIE FALL WUERDE BIS ZUM AUFSCHLAG ETWA 120 SEK DAUERN."!
 1.09 T "DAS GEWICHT DER KAPSEL BETRAEGT 16.250 KG."
 1.10 T "BITTE UEBERNEHMEN SIE!"!
 1.20 T "HIER IST DIE ERSTE RADAR-MESSUNG."!;E
 1.30 T "LANDE-PROZEDUR BEGINNT:"!"ZEIT(SEK)  HOEHE(KM+M)"
 1.40 T "  GESCHWINDIGKEIT(KM/H) TREIBSTOFF(LTR) VERBRAUCH"!
 1.50 S L=0;S A=120;S V=1;S M=33000;S N=16500;S G=0.001;S Z=1.8
 2.10 T "  ",%3,L," ",FITR(A)," ",%4,528*(A-FITR(A))
 2.20 T %6.02,"      ",3600*V,"           ",%6.01,M-N,"        K="
 2.21 A K;S T=10
 2.70 T %7.02;I (K)2.72;I (200-K)2.72;I (K-8)2.71,3.1,3.1
 2.71 I (K-0)2.72,3.1,2.72
 2.72 T "UNMOEGLICH ! ";F X=1.51;T "."
 2.73 T "K=";A K;G 2.7
 3.10 I ((M-N)-.001)4.1;I (T-.001)2.1;S S=T
 3.40 I ((N+S*K)-M)3.5,3.5;S S=(M-N)/K
 3.50 D 9;I (I)7.1,7.1;I (V)3.8,3.8;I (J)8.1
 3.80 D 6;G 3.1
 4.10 T "TANK LEER BEI ",L,"SEK."!
 4.40 S S=(-V+FSQT(V*V+2*A*G))/G;S V=V+G*S;S L=L+S
 5.10 T "GELANDET NACH ",L," SEK."!;S W=3600*V
 5.20 T "AUFSCHLAGS-GESCHWINDIGKEIT VON ",W," KM/H"!
 5.21 T "VERBLEIBENDER TREIBSTOFF : "
 5.30 T M-N," LITER"!;I (-W+1)5.5,5.5
 5.40 T "PERFEKTE LANDUNG ! -GLUECK GEHABT !
"!;G 5.9
 5.50 I (-W+10)5.6,5.6;T "GUTE LANDUNG (KOENNTE BESSER SEIN!)"!;G 5.9
 5.60 I (-W+25)5.7,5.7;T "GRATULATION ZUR SCHLECHTEN LANDUNG!"!;G 5.9
 5.70 I (-W+60)5.8,5.8;T "FAEHRE BESCHAEDIGT,VIEL GLUECK!"!;G 5.9
 5.80 T "GESCHAFFT !!! KEINE UEBERLEBENDEN MEHR !!!"!"SIE HABEN "
 5.81 T "EINEN NEUEN MOND-KRATER GESCHAFFEN !",W*0.027777," M TIEF"!
 5.90 T "VERSUCHEN SIE ES NOCH EINMAL 
"!
 5.92 A "(ANTWORTEN SIE MIT JA ODER NEIN) : "P;I (P-0NEIN)5.94,5.98
 5.94 I (P-0JA)5.92,1.2,5.92
 5.98 T "GUTE NACHT !!!"
 5.99 Q
 6.10 S L=L+S;S T=T-S;S M=M-S*K;S A=I;S V=J
 7.10 I (S-.005)5.1;S S=2*A/(V+FSQT(V*V+2*A*(G-Z*K/M)))
 7.30 D 9;D 6;G 7.1
 8.10 S W=(1-M*G/(Z*K))/2;S S=M*V/(Z*K*(W+FSQT(W*W+V/Z)))+.05;D 9
 8.30 I (I)7.1,7.1;D 6;I (-J)3.1,3.1;I (V)3.1,3.1,8.1
 9.10 S Q=S*K/M;S J=V+G*S+Z*(-Q-Q^2/2-Q^3/3-Q^4/4-Q^5/5)
 9.40 S I=A-G*S*S/2-V*S+Z*S*(Q/2+Q^2/6+Q^3/12+Q^4/20+Q^5/30)



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search