File BOMB.FC (FOCAL source file)

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

()0N(J[C-PS/8 FOCAL, 1971?MJ5BBS B=0?MB BDS H=0?MB-BES W=FABS(FRAN()*60)?MB?BGS A=FABS((FRAN()*100000)/5280)?MK^BHS S1=FABS(FRAN()*1000)?MLNBQS D=FABS(FRAN()*10)?MC	BYS T=(D-R)/(S1/3600)?MC5B[I (S2-T)1.29,1.33,1.31?MDDB]I (S2-T+5)1.37,1.35,1.35?MDSB
I (S2-T-5)1.35,1.35,1.37?MHQB!T "DIRECT HIT . TARGET DESTROYED . MISSION ACCOMPLISHED !";Q?ML(B&I (S2-T)1.39,1.33,1.41?MEPCPI (P-2)1.84,1.82,1.82?ME*CRT "AND DESTOYED - MISSION ACCOMPLISHED !"!!;Q?MI9CTI (H-5)1.86,1.88,1.88?MM1CXT "BOMBARDIER , WE ARE LOW
ON FUEL AND OUR BOMB BAY IS EMPTY"!;G 1.90?MIBC\S A=FABS((FRAN()*100000)/5280);S S1=FABS(FRAN()*1000)?MGIC^I (Z-68)1.09,2.1,2.1?MGVC
I (Z-78)2.1,2.1,1.09?MIZDJT "AIRCRAFT HIT ! RAPID DEPRESSURIZATION ! PREPARE TO BAIL OUT !"!?MCZBWS R=(A/1000)*(((S1/100)/3600)+(W/3600))?MH	BT "TARGET HIT .";S B=B+1;S H=H+1;G 1.8?MD4B%S M=FABS((S2-T)*(((S1/100)/3600)+(W/3600))*1760)?MF<C]S Z=FITR(FRAN()
100);I (Z-73)1.94,2.1,1.95?MDTT "GOOD-LUCK CHARLIE , WE ARE OVER ENEMY TERRITORY .";Q?ME8CVT "BOMBARDIER , WE WILL HAVE TO CIRCLE AND TRY AGAIN"!;G 1.92?MBTBAT "CAPTAIN TO BOMBARDIER : TARGET IN SIGHT !"?MBZBCT " WE WILL FLY DIRECTLY OVER IT"!?MCMBOT "SPE
D : ",S1*1.6093," KM/H      "?MK8BIT %6.0  "OUR ALTITUDE IS",A*1.6093," KM      "?MKIBKT "WIND VELOCITY : ",W*1.6093," KM/H"!?MNFBST %2.1 "DISTANCE TO TARGET : ",D*1.6093," KM"!?MMMB	T %6.0 "TARGET UNDERSHOT - MISSED BY",M*0.9144," M"!;S H=H+1;G 1.84?MEBB
T %6.0 "TARGET OVERSHOT - MISSED BY",M*0.9144," M"!;S H=H+1;G 1.84?MF^CZT "WE HAVE FAILED OUR MISSION !"!!;Q?MG:BUA "IN HOW MANY SECONDS DO YOU WISH TO DROP THE BOMBS 
 ",S2,!?MBUL S BOMB?M?MNY SECONDS DO YOU WISH TO DROP THE BOMBS 
 ",S2,!??MUT?MO,JJT !!!"ANSWER BY TYPING THE CODES TO RETAIN THE FEATURES:"!!?MO8JTT "1  SIN & COS"!?MPKJ^T "2  SIN, C

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