C-PS/8 FOCAL, 1971
 1.01 T "CAPTAIN TO BOMBARDIER : TARGET IN SIGHT !"
 1.02 S B=0
 1.03 T " WE WILL FLY DIRECTLY OVER IT"!
 1.04 S H=0
 1.05 S W=FABS(FRAN()*60)
 1.07 S A=FABS((FRAN()*100000)/5280)
 1.08 S S1=FABS(FRAN()*1000)
 1.09 T %6.0  "OUR ALTITUDE IS",A*1.6093," KM      "
 1.11 T "WIND VELOCITY : ",W*1.6093," KM/H"!
 1.15 T "SPEED : ",S1*1.6093," KM/H      "
 1.17 S D=FABS(FRAN()*10)
 1.19 T %2.1 "DISTANCE TO TARGET : ",D*1.6093," KM"!
 1.21 A "IN HOW MANY SECONDS DO YOU WISH TO DROP THE BOMBS 
 ",S2,!
 1.23 S R=(A/1000)*(((S1/100)/3600)+(W/3600))
 1.25 S T=(D-R)/(S1/3600)
 1.27 I (S2-T)1.29,1.33,1.31
 1.29 I (S2-T+5)1.37,1.35,1.35
 1.31 I (S2-T-5)1.35,1.35,1.37
 1.33 T "DIRECT HIT . TARGET DESTROYED . MISSION ACCOMPLISHED !";Q
 1.35 T "TARGET HIT .";S B=B+1;S H=H+1;G 1.8
 1.37 S M=FABS((S2-T)*(((S1/100)/3600)+(W/3600))*1760)
 1.38 I (S2-T)1.39,1.33,1.41
 1.39 T %6.0 "TARGET UNDERSHOT - MISSED BY",M*0.9144," M"!;S H=H+1;G 1.84
 1.41 T %6.0 "TARGET OVERSHOT - MISSED BY",M*0.9144," M"!;S H=H+1;G 1.84
 1.80 I (P-2)1.84,1.82,1.82
 1.82 T "AND DESTOYED - MISSION ACCOMPLISHED !"!!;Q
 1.84 I (H-5)1.86,1.88,1.88
 1.86 T "BOMBARDIER , WE WILL HAVE TO CIRCLE AND TRY AGAIN"!;G 1.92
 1.88 T "BOMBARDIER , WE ARE LOW ON FUEL AND OUR BOMB BAY IS EMPTY"!;G 1.90
 1.90 T "WE HAVE FAILED OUR MISSION !"!!;Q
 1.92 S A=FABS((FRAN()*100000)/5280);S S1=FABS(FRAN()*1000)
 1.93 S Z=FITR(FRAN()*100);I (Z-73)1.94,2.1,1.95
 1.94 I (Z-68)1.09,2.1,2.1
 1.95 I (Z-78)2.1,2.1,1.09
 2.10 T "AIRCRAFT HIT ! RAPID DEPRESSURIZATION ! PREPARE TO BAIL OUT !"!
 2.20 T "GOOD-LUCK CHARLIE , WE ARE OVER ENEMY TERRITORY .";Q