10 PRINT TAB(27)"BOMBRUN"
13 PRINT TAB(20)"CREATIVE COMPUTING"
15 PRINT TAB(18)"MORRISTOWN, NEW JERSEY"
19 PRINT:PRINT
20 PRINT"THIS PROGRAM SIMULATES A BOMBING RUN.  DO YOU NEED"
25 X5=3000
30 PRINT"INSTRUCTIONS";
40 INPUT I$
50 IF I$="YES" THEN 90
60 IF I$="NO" THEN 290
70 PRINT"ILLOGICAL RESPONSE.  REPLY 'YES' OR 'NO'."
80 GOTO 40
90 PRINT"YOU HAVE THE OPTION OF MAKING FOUR PASSES OVER THE TARGET,"
100 PRINT"WITH THE ABILITY TO DROP A BOMB ONCE DURING EACH OF"
110 PRINT"THESE PASSES.  ALTITUDE CHANGES MAY BE MADE THROUGH THE"
120 PRINT "'CLIMB/DIVE' COMMAND BY PRINTING 'CLIMB' OR 'DIVE',FOL-"
130 PRINT"LOWED BY A COMMA AND THE DESIRED ANGLE (IN DEGREES). NEW"
140 PRINT"VELOCITIES (RANGING FROM 300 TO 900 FEET PER SECOND) MAY"
150 PRINT"BE INPUT AFTER THE 'AIRSPEED' QUESTION MARK.  'CLIMB/DIVE'"
160 PRINT"ANGLES, VARYING FROM 0 TO 15 DEGREES, WILL ADD AS SPEC-"
170 PRINT"IFIED BY 'CLIMB' OR'DIVE' COMMANDS TO YIELD A NET INCLIN-"
180 PRINT "ATION/DECLINATION ANGLE BETWEEN 0 TO 60 DEGREES, CLIMBING"
190 PRINT "OR DIVING.  A MINIMUM ALTITUDE OF 100 FEET MUST ALSO BE"
200 PRINT"MAINTAINED.  WILLFULLY EXCEEDING ANY OF THE MAX./MIN. SPECS"
210 PRINT"WILL RESULT IN THE CRASH OF YOUR BOMBER. ALSO , A BOMB"
220 PRINT"COMMAND OF 'DROP' DURING A DIVE WILL GIVE YOUR BOMB AN IN-"
230 PRINT"ITIAL DOWNWARD VELOCITY, SHORTENING THE DROP TIME, AS A"
240 PRINT"'CLIMB' COMMAND WILL LENGTHEN THIS TIME.  THE BOMB WILL BE"
250 PRINT"LAUNCHED IMMEDIATELY FOLLOWING THE MOST RECENT 'STATS' READ-"
260 PRINT "OUT UPON 'DROP' COMMAND, AND WILL BE HELD FOR FURTHER"
270 PRINT"POSITIONING INFORMATION UPON THE COMMAND 'STAND BY'.  THE"
280 PRINT"TARGET IS 1 FOOT IN DIAMETER.  GOOD LUCK"
290 Z1=1000
300 Z2=1000
310 Z3=1000
320 Z4=1000
330 R=R+1
340 W1=0
350 X2=0
360 W3=0
370 W4=0
380 T=0
390 A1=0
400 A=0
410 V1=RND(1)
420 V=V1*1000
430 IF V<300 OR V>900 THEN 410
440 Y1=RND(1)
450 Y=Y1*500
460 IF Y<100 THEN440
470 X=4500
480 PRINT" "
490 PRINT" "
500 E=X/V
510 PRINT TAB(30)"**INITIAL**"
520 PRINT TAB(30)"***STATS***"
530 GOTO1430
540 W1=0
550 W2=0
560 W3=0
570 W4=0
580 PRINT" "
590 PRINT"BOMB COMMAND";
600 INPUT C$
610 IF C$="STAND BY" THEN 640
620 IF C$="DROP" THEN 1680
630 PRINT"UNRECOGNIZABLE COMMAND.  REPLY 'STAND BY' OR 'DROP'."
640 PRINT"STANDING BY."
650 PRINT " "
660 GOTO 700
670 A=A-A1
680 T=T-1
690 GOTO 770
700 PRINT"MAINTAIN PRESENT RESULTANT ANGLE";
710 INPUT P$
720 PRINT" "
730 IF P$="YES" THEN 1130
740 IF P$="NO" THEN 770
750 PRINT"REPLY 'YES' OR'NO'.";
760 GOTO 710
770 PRINT"'CLIMB/DIVE' COMMAND";
780 INPUT A$,A1
790 PRINT" "
800 IF A1<0 THEN 830
810 IF A1>15 THEN 870
820 GOTO 930
830 PRINT"ANGLE INPUT MUST BE POSITVE.  IF NECESSARY, CHANGE THE"
840 PRINT"'DIVE' COMMAND TO 'CLIMB', OR VICE VERSA."
850 PRINT" "
860 GOTO770
870 W1=W1+1
880 IF W1=2 THEN 2120
890 PRINT"YOUR BOMBER CANNOT TOLERATE THE STRESS CAUSED BY ANGLE"
900 PRINT"INPUTS EXCEEDING 15 DEGREES.  RECONSIDER YOUR CHOICE."
910 PRINT" "
920 GOTO 770
930 IF A$="CLIMB" THEN 950
940 A1=-A1
950 A=A+A1
960 IF A<-60 THEN 990
970 IF A>60 THEN 1060
980 GOTO 1140
990 W2=W2+1
1000 IF W2=2 THEN 2170
1010 PRINT"YOUR PRESENT 'DIVE' COMMAND WILL EXCEED THE MAXIMUM RE-"
1020 PRINT"SULTANT DIVE ANGLE OF 60 DEGREES, CAUSING AN IRREVERSIBLE"
1030 PRINT" NOSEDIVE.  RECONSIDER YOUR CHOICE."
1040 PRINT" "
1050 GOTO 670
1060 W3=W3+1
1070 IF W3=2 THEN 2210
1080 PRINT"YOUR PRESENT 'CLIMB' COMMAND WILL EXCEED THE MAXIMUM RE-"
1090 PRINT"SULTANT CLIMB ANGLE OF 60 DEGREES, CAUSING YOUR"
1100 PRINT" ENGINES TO FAIL AND YOUR PLANE TO CRASH. RECONSIDER YOUR"
1105 PRINT"CHOICE"
1110 PRINT" "
1120 GOTO 670
1130 REM
1140 PRINT"AIRSPEED";
1150 INPUT V
1160 IF V>900 THEN 1190
1170 IF V<300 THEN 1230
1180 GOTO 1290
1190 PRINT"YOUR BOMBER ISN'T CAPABLE OF ATTAINING THAT VELOCITY."
1200 PRINT"INPUT AN AIRSPEED LESS THAN 900 FEET PER SECOND."
1210 PRINT" "
1220 GOTO 1150
1230 W4=W4+1
1240 IF W4=2 THEN 2250
1250 PRINT"IF YOUR VELOCITY ISN'T INCREASED IMMEDIATELY, YOUR BOMBER"
1260 PRINT"WILL FALL TO EARTH AND BE DESTROYED."
1270 PRINT" "
1280 GOTO 1140
1290 T=T+1
1300 B=A*3.14159/180
1310 Y=Y+V*SIN(B)
1320 IF Y>100 THEN 1390
1330 W5=W5+1
1340 IF W5=2 THEN 2290
1350 PRINT"IF YOUR ALTITUTE ISN'T INCREASED IMMEDIATELY TO A MIN-"
1360 PRINT"IMUN OF 100 FEET, A CRASH IS IMMINENT."
1370 PRINT" "
1380 GOTO 670
1390 X=X-V*COS(B)
1400 IF X<=0 THEN 2350
1410 E=X/(V*COS(B))
1420 PRINT TAB(30)"***STATS***"
1430 PRINT" "
1440 IF NOT(T=1)THEN 1470
1450 PRINT TAB(20)"ELAPSED TIME... 1 SECOND"
1460 GOTO 1480
1470 PRINT TAB(20)"ELAPSED TIME...";T;"SECONDS"
1480 IF NOT(A1=0) THEN 1510
1490 PRINT TAB(11)"PRESENT ANGLE COMMAND... 0 DEGREES"
1500 GOTO 1550
1510 IF A$="CLIMB" THEN 1540
1520 PRINTTAB(11)"PRESENT ANGLE COMMAND... DIVE,";-A1;"DEGREES"
1530 GOTO 1550
1540 PRINT TAB(11)"PRESENT ANGLE COMMAND... CLIMB,";A1;"DEGREES"
1550 IF A<0 THEN 1590
1560 IF A>0 THEN 1610
1570 PRINT TAB(17)"RESULTANT ANGLE... 0 DEGREES"
1580 GOTO 1620
1590 PRINT TAB(17)"RESULTANT ANGLE...";-A1;"DEGREES DIVING"
1600 GOTO 1620
1610 PRINT TAB(17)"RESULTANT ANGLE...";A;"DEGREES CLIMBING"
1620 PRINT TAB(16)"PRESENT VELOCITY... ";V;"FEET PER SECOND"
1630 PRINT TAB(24)"ALTITUDE... ";Y;"FEET"
1640 PRINT TAB(14)"DISTANCE FROM SITE... ";X;"FEET"
1650 PRINT TAB(7)"ESTIMATED TIME OF ARRIVAL... ";E;"SECONDS"
1660 PRINT
1670 GOTO 540
1680 PRINT"BOMB DROPPED."
1690 T3=(SQR((V*SIN(B))^2+64.4*Y)+V*SIN(B))/32.2
1700 PRINT"TIME TO EXPLOSION... ";T3;"SECONDS"
1710 X=X-V*COS(B)*T3
1720 X=INT(X*100)/100
1725 IF X5>ABS(X5) THEN X5=ABS(X5)
1730 PRINT " "
1740 IF X<-.5 THEN 1780
1750 IF X>.5 THEN 1800
1760 PRINT"CONGRATULATIONS, YOU SCORED AS PERFECT HIT."
1770 GOTO 2030
1780 PRINT"THE BOMB LANDED";-X;"FEET BEYOND THE TARGET'S CENTER."
1790 GOTO 1810
1800 PRINT"THE BOMB LANDED";X;"FEET IN FRONT OF THE TARGET'S CENTER."
1810 IF R=1 THEN 1850
1820 IF R=2 THEN 1870
1830 IF R=3 THEN 1890
1840 IF R=4 THEN 1910
1850 Z1=ABS(X)
1860 GOTO 2400
1870 Z2=ABS(X)
1880 GOTO 2420
1890 Z3=ABS(X)
1900 GOTO 2440
1910 Z4=ABS(X)
1920 Z1=Z10(1):Z2=Z10(2):Z3=Z10(3):Z4=Z10(4)
1921 FOR M=1 TO 4
1922 FOR M1= 4 TO 1 STEP-1
1923 IF Z10(M)<Z10(M1) THEN Z10(M)=X5
1924 IF M=M1 AND M=1 THEN 1926
1925 NEXTM1
1926 NEXT M
1930 PRINT" "
1940 IF X5<= 300 THEN 2000
1950 PRINT"DURING YOUR";R;"-PASS BOMBRUN, YOU FAILED TO EVEN"
1960 PRINT"THREATEN THE TARGET WITH A HIT. BETTER LUCK NEXT TIME "
1970 IF R$="NO" THEN 2590
1980 GOTO 2040
1990 GOTO 2610
2000 PRINT"DURING YOUR";R;"-PASS BOMBRUN, YOU MANAGED TO STRIKE"
2010 PRINT"WITHIN";X5;"FEET OF THE TARGET."
2020 PRINT" "
2030 IF R$="NO" THEN 2590
2040 PRINT"WOULD YOU LIKE TO RELOAD AND PLAY AGAIN?"
2050 INPUT A$
2060 IF A$="NO" THEN 2590
2070 IF A$="YES" THEN 2100
2080 PRINT"YOU MUST BE A LOUSY SPELLER.  REPLY 'YES' OR'NQ'."
2090 GOTO 2050
2100 R=0
2110 GOTO 290
2120 PRINT"YOU TORE THE WINGS OFF OF YOUR BOMBER BY EXCEEDING THE"
2130 PRINT"MAXIMUM ANGLE INPUT OF 15 DEGREES. NEXT TIME TAKE MY ADVISE"
2150 H=1
2160 GOTO 1920
2170 PRINT"THE STEEP DIVE ANGLE DESIRED CAUSED AN IRREVERSIBLE NOSE-"
2180 PRINT"DIVE, RESULTING IN THE DESTRUCTION OF YOUR BOMBER."
2190 H=1
2200 GOTO 1920
2210 PRINT"THE ENGINES OF YOUR BOMBER FAILED WHILE CLIMBING THE"
2220 PRINT"STEEP ANGLE INPUT DURING YOUR ANGLE COMMAND OPPORTUNITY."
2230 H=1
2240 GOTO 1920
2250 PRINT"THE VELOCITY OF YOUR BOMBER WAS INSUFFICIENT TO SUPPORT"
2260 PRINT"ITS WEIGHT, AND CONSEQUENTLY IT CRASHED."
2270 H=1
2280 GOTO 1920
2290 PRINT"YOUR BOMBER FAILED TO MAINTAIN THE LOW ALTITUDE YOU DE-"
2300 PRINT"SIRED AND SOON CRASHED."
2310 PRINT"BETTER LUCK NEXT TIME."
2320 H=1
2330 GOTO 1920
2340 PRINT"YOUR BOMBER JUST PASSED UP THE TARGET, AND NEEDLESS TO"
2350 PRINT"SAY, YOU NO LONGER THREATEN ITS EXISTANCE."
2360 PRINT" "
2370 IF R=2 THEN 2420
2380 IF R=3 THEN 2440
2390 IF R=4 THEN 1920
2400 Q$=" SECOND "
2410 GOTO 2450
2420 Q$="THIRD"
2430 GOTO 2450
2440 Q$="FOURTH AND FINAL"
2450 IF R>1 THEN 2490
2460 PRINT"YOU HAVE THUS FAR COMPLETED 1 RUN. WOULD YOU LIKE TO"
2470 PRINT"MAKE ANOTHER PASS";
2480 GOTO2510
2490 PRINT"YOU HAVE THUS FAR COMPLETED ";R;"RUNS.  WOULD YOU LIKE TO "
2500 PRINT"ANOTHER PASS";
2510 INPUT R$
2520 IF R$="YES" THEN 2560
2530 IF R$="NO" THEN 1920
2540 PRINT"SIMPLY REPLY 'YES' OR 'NO'."
2550 GOTO 2510
2560 PRINT"YOUR PLANE HAS CIRCLED, AND IS NOW IN POSITION TO MAKE"
2570 PRINT"ITS";Q$;"PASS."
2580 GOTO 330
2590 PRINT"LOOK OVER THE PHYSICS LAWS GOVERNING FALLING BODIES,"
2600 PRINT"AND RETURN TO PLAY AGAIN SOON."
2610 END