10	!
	!	TAKEN FROM THE DEC GAME BOOK AND CONVERTED TO RSTS/E
	!	BY CHARLIE GEHMAN 
	!	NMH SUMMER SCHOOL	20-JUL-74
	!	TYPE 'RUN' AND FOLLOW THE INSTRUCTIONS AS GIVEN.
	!
	!	TYPED IN BY TIMOTHY SHANE MCCOY 
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION RSTS/E  V6C
	!
20	RANDOM
	\ PRINT "YOU ARE PLAYING 'GUNNER' WITH RSTS/E"
	\ PRINT 
	\ PRINT
	\ PRINT
	\ PRINT "YOU ARE THE OFFICER IN CHARGE, GIVING ORDERS TO THE GUN"
	\ PRINT "CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE"
	\ PRINT "WILL PLACE THE PROJECTILE ON TARGET."
	\ PRINT "A HIT WITHIN 100 YARDS OF THE TARGET WILL DESTORY IT."
	\ PRINT "TAKE MORE THAN 5 SHOTS, AND THE ENEMY WILL DESTROY YOU!"
	\ PRINT 
	\ PRINT "MAXIMUM RANGE OF YOUR GUN IS 46500."
40	Z = 0
50	PRINT
60	S1 = 0
70	T = INT(43000-30000*RND+.5)
80	S = 0
90	S$ = SYS(CHR$(0%))
	\ GOTO 240
100	PRINT "MINIMUM ELEVATION OF GUN IS ONE DEGREE."
	\ GOTO 260
110	PRINT "MAXIMUM ELEVATION OF GUN IS 89 DEGREES."
	\ GOTO 260
120	PRINT "OVER TARGET BY";ABS(E);"YARDS"
130	GOTO 260
140	PRINT "SHORT OF TARGET BY";ABS(E);"YARDS"
	\ GOTO 260
150	GOTO 160
160	PRINT " *** TARGET DESTROYED ***   ";S;"ROUNDS OF AMMO EXPENDED"
170	GOSUB 450
180	S1 = S1 + S
190	IF Z = 4
	THEN 400
200	Z = Z + 1
210	PRINT
220	PRINT "THE FORWARD OBSERVER HAS SPOTTED MORE ENEMY ACTIVITY."
230	GOTO 70
240	PRINT "     DISTANCE TO THE TARGET IS";INT(T);"YARDS..."
250	PRINT "
260	PRINT
270	PRINT "ELEVATION";
280	INPUT B
290	IF B > 89
	THEN 110
300	IF B < 1
	THEN 100
310	S = S + 1
320	IF S < 6 
	THEN 360
330	PRINT
	\ PRINT "BOOM !!!  YOU HAVE JUST BEEN DESTROYED ";
340	GOSUB 450
350	PRINT "BY THE ENEMY"
	\ PRINT 
	\ PRINT 
	\ GOTO 420
360	B2 = 2 * B/57.3
	\ I = 46500 * SIN(B2)
	\ X = T - I
	\ E = INT(X)
370	IF ABS(E) < 100
	THEN 150
380	IF E > 100
	THEN 140
390	IF E < -100
	THEN 120
400	PRINT 
	\ PRINT 
	\ PRINT "TOTAL ROUNDS EXPENDED WERE";S1
410	IF S1 > 15
	THEN 420
	ELSE PRINT "NICE SHOOTING !!!"
	\ GOSUB 450
	\ GOTO 430
420	PRINT "BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!"
430	PRINT 
	\ PRINT "THANK YOU FOR PLAYING!"
440	GOTO 470
450	FOR N = 1 TO 10
	\ PRINT "";
	\ NEXT N
460	RETURN
470	END