File ADLER.FC (FOCAL source file)

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

()0THBTC-PS/8 FOCAL, 1971?MB%BCC HANDGESTEUERTE MONDLANDUNG?MCGBDT "ANWEISUNG AN MONDFAEHRE 	ADLER	 ! MANUELLE STEUERUNG IST"!?MO4BET "DRINGEND ERFORDERLICH.SIE KOENNEN DEN TREIBSTOFF-"!?MQ(B^T "LANDE-PROZEDUR BEGINNT:"!"ZEIT(SEK)  HOEHE(KM+M)"?MS.B2S L=0
S A=120;S V=1;S M=33000;S N=16500;S G=0.001;S Z=1.8?MN$DUA K;S T=10?MD7EGI (K-0)2.72,3.1,2.72?MEJEHT "UNMOEGLICH ! ";F X=1.51;T "."?MEUEIT "K=";A K;G 2.7?ME+FJI ((M-N)-.001)4.1;I (T-.001)2.1;S S=T?ME>F(I ((N+S*K)-M)3.5,3.5;S S=(M-N)/K?MFTF2D 9;I (I)7.1,7.
;I (V)3.8,3.8;I (J)8.1?MF\GPD 6;G 3.1?MF-HJT "TANK LEER BEI ",L,"SEK."!?MGFH(S S=(-V+FSQT(V*V+2*A*G))/G;S V=V+G*S;S L=L+S?MG]JJT "GELANDET NACH ",L," SEK."!;S W=3600*V?MG7JTT "AUFSCHLAGS-GESCHWINDIGKEIT VON ",W," KM/H"!?MSOJUT "VERBLEIBENDER TREIBSTOFF : 
?MH%J(T "PERFEKTE LANDUNG ! -GLUECK GEHABT !
"!;G 5.9?MIHJ2I (-W+10)5.6,5.6;T "GUTE LANDUNG (KOENNTE BESSER SEIN!)"!;G 5.9?MI+J<I (-W+25)5.7,5.7;T "GRATULATION ZUR SCHLECHTEN LANDUNG!"!;G 5.9?MM!KFI (-W+60)5.8,5.8;T "FAEHRE BESCHAEDIGT,VIEL GLUECK!"!;G 5.9?MORKZT "VERSUCHEN SIE ES NOCH EINMAL 
"!?MS"K^I (P-0JA)5.92,1.2,5.92?MKELJS L=L+S;S T=T-S;S M=M-S*K;S A=I;S V=J?MK!NJI (S-.005)5.1;S S=2*A/(V+FSQT(V*V+2*A*(G-Z*K/M)))?MK+N^D 9;D 6;G 7.1?MLLPJS W=(1-M*G/(Z*K))/2;S S=M*V/(Z*K*(W+FSQT(W*W+V/Z)))+.05;D 9?ML	P^I (I)7.1,7.1;D 6;I (-J)3.1,3.1;I (V)3
1,3.1,8.1?MMCRJS Q=S*K/M;S J=V+G*S+Z*(-Q-Q^2/2-Q^3/3-Q^4/4-Q^5/5)?MR(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)?MNBKPT "GESCHAFFT !!! KEINE UEBERLEBENDEN MEHR !!!"!"SIE HABEN "?MJLKQT "EINEN NEUEN MOND-KRATER GESCHAFFEN !",W*0.027777," M TIEF"
?MD*EFT %7.02;I (K)2.72;I (200-K)2.72;I (K-8)2.71,3.1,3.1?MQQBJT "BITTE UEBERNEHMEN SIE!"!?MJ!K\A "(ANTWORTEN SIE MIT JA ODER NEIN) : "P;I (P-0NEIN)5.94,5.98?MPWBFT "VERBRAUCH 	K	 ALLE 10 SEK AUF 0 ODER  EINEN BELIEBIGEN WERT"!?MR	BGT "ZWISCHEN 8 & 200 SE
ZEN.SIE HABEN 16000 LITER VORRAT."!?MOABIT "DAS GEWICHT DER KAPSEL BETRAEGT 16.250 KG."?MC%BTT "HIER IST DIE ERSTE RADAR-MESSUNG."!;E?MDBB(T "  GESCHWINDIGKEIT(KM/H) TREIBSTOFF(LTR) VERBRAUCH"!?MD"DTT %6.02,"      ",3600*V,"           ",%6.01,M-N,"       
K="?MP7BHT "DER FREIE FALL WUERDE BIS ZUM AUFSCHLAG ETWA 120 SEK DAUERN."!?MJ/KQ?MHJJ^T M-N," LITER"!;I (-W+1)5.5,5.5?MSKK"T "GUTE NACHT !!!"?MRFDJT "  ",%3,L," ",FITR(A)," ",%4,528*(A-FITR(A))?M)?L S ADLER?M?3,L," ",FITR(A)," ",%4,528*(A-FITR(A))?M)?))?M
?"!?M?M??P$ P%PLM^TMP/LV]LPLP$0D]    *BPW^"%RPLM^TMP%I*    PDPLPTP6PP.PP>PTR10DTA18 [A [BB2AU-2AU*+?,A]AIH0CFL8

Note: Lines longer than 256 characters were wrapped



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