C-FOCAL,1969

01.10 T ! "THIS PROGRAM SIMULATES THE RESULTS OF FIRING A FIELD"!
01.20 T "ARTILLERY WEAPON."!
01.30 T ! "THE GAME IS FROM THE GENERAL ELECTRIC TIME-SHARING"!
01.35 T "SYSTEM,
01.40 T " AND WAS TRANSLATED INTO FOCAL BY RONALD A. WONG."!!

03.10 ERASE
03.15 SET S =0
03.20 SET T=FITR(46500*FABS(FRAN()/2))
03.25 IF (T-46500) 3.3,3.3,3.2
03.30 T %7, "DISTANCE TO TARGET IS",T," YARDS"!!
03.40 T "ELEVATION";ASK B,!; IF (B-90) 3.6
03.50 T "MAXIMUM ELEVATION OF YOUR GUN IS 89 DEGREES"!!; G 3.4
03.60 IF (B)3.7,6.1;IF (B-1)3.7,4.1,4.1
03.70 T "MINIMUM ELEVATION OF YOUR GUN IS 1 DEGREE"!!;G 3.4

04.10 SET S=S+1;SET B2=2*(B/57.3);SET I=46500*(FSIN(B2));S X=T-I;
04.20 SET E=(FITR(X));IF [FABS(E)-100]4.4,4.4
04.30 IF (E) 4.6,4.5,4.5
04.40 T %3,"***TARGET DESTROYED***",S
04.41 T " ROUNDS EXPENDED"!!;G 5.1
04.50 T %7, "UNDER TARGET BY",E," YARDS"!!; G 3.4
04.60 T %7, "OVER TARGET BY",FABS(E)," YARDS"!!; G 3.4

05.10 T "CONGRATULATIONS!! WANT TO TRY AGAIN?";
05.20 ASK RE,!;IF (RE-0YES) 5.3,3.1
05.30 IF (RE-0NO) 5.4,5.5
05.40 T "PLEASE ANSWER YES OR NO ";G 5.2
05.50 QUIT

06.10 T "YOU JUST HIT SELF DESTRUCT. GOOD LUCK!"!;QUIT
*>