add all BASIC source files and folders

42 Gunner/README.md

@@ -0,0 +1,7 @@
+### Gunner
+
+As published in Basic Computer Games (1978)
+https://www.atariarchives.org/basicgames/showpage.php?page=77
+
+Downloaded from Vintage Basic at
+http://www.vintage-basic.net/games.html

42 Gunner/gunner.bas

@@ -0,0 +1,52 @@
+10 PRINT TAB(30);"GUNNER"
+20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT:PRINT:PRINT
+130 PRINT "YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO A GUN"
+140 PRINT "CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE"
+150 PRINT "WILL PLACE A PROJECTILE ON TARGET.  A HIT WITHIN 100 YARDS"
+160 PRINT "OF THE TARGET WILL DESTROY IT." : PRINT
+170 R=INT(40000*RND(1)+20000)
+180 PRINT "MAXIMUM RANGE OF YOUR GUN IS";R;" YARDS."
+185 Z=0
+190 PRINT
+195 S1=0
+200 T=INT(R*(.1+.8*RND(1)))
+210 S=0
+220 GOTO 370
+230 PRINT "MINIMUM ELEVATION IS ONE DEGREE."
+240 GOTO 390
+250 PRINT "MAXIMUM ELEVATION IS 89 DEGREES."
+260 GOTO 390
+270 PRINT "OVER TARGET BY ";ABS(E);"YARDS."
+280 GOTO 390
+290 PRINT "SHORT OF TARGET BY "ABS(E);"YARDS."
+300 GOTO 390
+320 PRINT "*** TARGET DESTROYED ***  ";S;"ROUNDS OF AMMUNITION EXPENDED."
+325 S1=S1+S
+330 IF Z=4 THEN 490
+340 Z=Z+1
+345 PRINT
+350 PRINT "THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY..."
+360 GOTO 200
+370 PRINT "DISTANCE TO THE TARGET IS "T;" YARDS."
+380 PRINT
+390 PRINT
+400 INPUT "ELEVATION";B
+420 IF B>89 THEN 250
+430 IF B<1 THEN 230
+440 S=S+1
+442 IF S<6 THEN 450
+444 PRINT:PRINT "BOOM !!!!   YOU HAVE JUST BEEN DESTROYED ";
+446 PRINT "BY THE ENEMY." : PRINT : PRINT : PRINT : GOTO 495
+450 B2=2*B/57.3 : I=R*SIN(B2) : X=T-I : E=INT(X)
+460 IF ABS(E)<100 THEN 320
+470 IF E>100 THEN 290
+480 GOTO 270
+490 PRINT : PRINT : PRINT "TOTAL ROUNDS EXPENDED WERE:";S1
+492 IF S1>18 THEN 495
+493 PRINT "NICE SHOOTING !!" : GOTO 500
+495 PRINT "BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!"
+500 PRINT : INPUT "TRY AGAIN (Y OR N)";Z$
+510 IF Z$="Y" THEN 170
+520 PRINT:PRINT "OK.  RETURN TO BASE CAMP."
+999 END