10 REM WRITTEN BY ROBB (MITHRANDIR) BORLAND 10/4/77 20 REM === MECC "STRWAR1" === REWORKED 03-20-78 30 PRINT TAB(22);"..=*=.." 40 PRINT TAB(18);".-=* *=-." 50 PRINT TAB(16);"-=/ \=-" 60 PRINT TAB(15);"+*( S T R W A R )*+" 70 PRINT TAB(16);"-=\ /=-" 80 PRINT TAB(18);"'-=* *=-'" 90 PRINT TAB(22);"''=*=''" 100 PRINT TAB(8);"THIS PROGRAM WILL SIMULATE AN ATTEMPT TO" 110 PRINT " DESTROY THE INFAMOUS 'STARWARS' DEATH STAR." 120 PRINT 130 PRINT " DO YOU NEED INSTRUCTIONS? "; 140 GOSUB 3810 150 IF A9=0 THEN 1200 160 PRINT 200 PRINT TAB(7);"YOU MUST MANUVER DOWN A TRENCH 500,000 FEET" 210 PRINT " LONG, 200 FEET WIDE, AND 200 FEET DEEP TO A POINT" 220 PRINT " 10,000 FEET FROM THE END OF THE TRENCH AND DEAD" 230 PRINT " IN THE CENTER OF IT. AT THIS TIME, YOUR ON-BOARD" 240 PRINT " COMPUTER WILL AUTOMATICALLY FIRE 2 PROTON MISSILES AT" 250 PRINT " A SMALL THERMAL EXHAUST PORT AT THE END OF THE TRENCH." 260 PRINT TAB(7);"YOU MUST DO ALL OF THIS AND AT THE SAME TIME" 270 PRINT " NOT GET YOUR BUTT BLOWN OFF BY DARTH VADER, WHO IS" 280 PRINT " CHASING YOU. *** DO YOU STILL WANT TO TRY IT???" 290 GOSUB 3800 300 IF A9=0 THEN 3900 310 PRINT " GOOD. HERE ARE A FEW MORE DETAILS." 320 PRINT 330 PRINT " MAXIMUM FIGHTER SPEED --- 5,000 FEET PER SECOND" 340 PRINT " MINIMUM FIGHTER SPEED --- 1,000 FEET PER SECOND" 350 PRINT " LENGTH OF TRENCH --- 500,000 FEET." 360 PRINT " WIDTH OF TRENCH --- 200 FEET." 370 PRINT " DEPTH OF TRENCH --- 200 FEET." 380 PRINT " AUTOMATIC FIRING RANGE --- 10,000 FEET." 390 PRINT " EXHAUST PORT DIAMETER --- 6 FEET." 400 GOSUB 3850 410 PRINT TAB(7);"THE TRENCH IS SET UP ON A CO-ORDINATE SYSTEM" 420 PRINT " WITH THE ORIGIN (0,0,0) AT THE CENTER OF THE EXHAUST PORT." 430 PRINT TAB(7);"YOU WILL START AT THE FAR END OF THE TRENCH" 440 PRINT " AT POSITION (0,0,500000). YOU COULD FLY STRAIGHT" 450 PRINT " DOWN THE CENTER OF THE TRENCH, EXCEPT THAT 5 SECONDS" 460 PRINT " AFTER YOU START, AND FOR EVERY 10 SECONDS AFTERWARD," 470 PRINT " A TURRET-MOUNTED TURBO-LASER WILL FIRE STRAIGHT DOWN THE" 480 PRINT " MIDDLE OF THE TRENCH, DESTROYING EVERYTHING IN IT'S PATH!" 490 GOSUB 3850 500 PRINT TAB(7);"SINCE YOU WILL BE ASKED EVERY 10 SECONDS IF" 510 PRINT " YOU WISH TO CHANGE COURSE AND/OR SPEED, THEN YOU" 520 PRINT " MUST GET AWAY FROM THE CENTER OF THE TRENCH ON YOUR" 530 PRINT " FIRST MANUVER OR ELSE BE DESTROYED." 540 PRINT TAB(7);"IF YOU ARE AWAY FROM THE CENTER, THERE IS ONE" 550 PRINT " CHANCE IN FORTY FOR EACH TEN SECOND INTERVAL THAT" 560 PRINT " YOU WILL BE DESTROYED BY RANDOM TURBO-LASER FIRE." 570 GOSUB 3850 600 PRINT " SINCE IT WILL TAKE YOU A MINIMUM OF 100 SECONDS TO" 610 PRINT " FLY THE LENGTH OF THE TRENCH, THEN YOU HAVE AT LEAST" 620 PRINT " ONE CHANCE IN FOUR THAT YOU WILL BE DESTROYED THAT WAY." 630 PRINT TAB(7);"ALSO, IF DARTH VADER GETS A SHOT OFF AT YOU AND" 640 PRINT " YOU DID NOT TRY TO AVOID HIM, YOU HAVE ONLY ONE " 650 PRINT " CHANCE IN FOUR OF SURVIVING. THEREFORE, IT BEHOOVES" 660 PRINT " YOU TO STAY AWAY FROM HIM WHENEVER POSSIBLE. " 670 GOSUB 3850 700 PRINT TAB(7);"THE FIRST NUMBER OF THE CO-ORDINATE SYSTEM REFERS" 710 PRINT " TO YOUR POSITION BETWEEN THE WALLS OF THE TRENCH. " 720 PRINT " THE LEFT WALL HAS A VALUE OF -100, THE CENTER IS " 730 PRINT " 0, AND THE RIGHT WALL IS 100." 740 PRINT TAB(7);"TRY NOT TO HIT THE WALLS." 750 GOSUB 3850 760 PRINT TAB(7);"THE SECOND NUMBER REFERS TO YOUR DEPTH IN THE" 770 PRINT " TRENCH. THE BOTTOM HAS A VALUE OF -100, THE CENTER " 780 PRINT " IS 0, AND THE TOP IS 100. YOU CAN FLY OUT OF THE TOP " 790 PRINT " OF THE TRENCH, BUT IF YOU DO, YOUR CHANCES OF BEING " 800 PRINT " HIT BY TURBO-LASER FIRE WILL INCREASE TO ONE CHANCE " 810 PRINT " IN FIVE FOR EACH 10 SECOND INTERVAL THAT YOU ARE OUT " 820 PRINT " OF THE TRENCH. ALSO, TRY NOT TO HIT THE BOTTOM. " 830 GOSUB 3850 840 PRINT TAB(7);"THE THIRD NUMBER REFERS TO THE DISTANCE REMAINING" 850 PRINT " BETWEEN YOU AND THE APPROACHING END OF THE TRENCH. " 860 PRINT " WHEN THAT DISTANCE EQUALS 10,000, YOUR MISSILES " 870 PRINT " WILL AUTOMATICALLY FIRE." 880 GOSUB 3850 890 PRINT " THE FIRST NUMBER OF THE COURSE CO-ORDINATES REFERS " 900 PRINT " TO THE HORIZONTAL POSITION YOU WILL HAVE WHEN YOU " 910 PRINT " REACH THE AUTOMATIC FIRING RANGE (A.F.R.) IF YOU " 920 PRINT " MAINTAIN THAT COURSE. " 930 PRINT 940 PRINT " THE SECOND COURSE CO-ORDINATE REFERS TO THE VERTICAL " 950 PRINT " POSITION YOU WILL HAVE WHEN YOU REACH THE A.F.R. IF " 960 PRINT " YOU MAINTAIN THAT COURSE. KEEP THIS IN MIND " 970 PRINT " WHEN YOU ARE ASKED TO MAKE COURSE CORRECTIONS. " 980 GOSUB 3850 990 PRINT " SINCE YOUR WINGSPAN IS 30 FEET, THEN THE MAXIMUM " 1000 PRINT " VALUES THAT YOUR WIDTH CO-ORDINATE CAN HAVE IS " 1010 PRINT " + OR - 85. ALSO, SINCE YOUR FIGHTER IS TEN " 1020 PRINT " FEET DEEP, YOUR LOWEST DEPTH CO-ORDINATE IS -90. " 1030 PRINT " EXCEED THESE AND YOU ARE A GONER. ALSO, YOU MUST " 1040 PRINT " PULL UP AT THE END OF THE TRENCH IN ORDER TO MISS " 1050 PRINT " THE END WALL AND A GUN EMPLACEMENT ON TOP OF THE WALL. " 1060 PRINT " IF YOU MANAGE TO HIT EITHER OF THEM, YOU WILL NOT BE " 1070 PRINT " TOLD IF YOUR MISSILES WERE ON TARGET OR NOT. " 1080 PRINT 1090 PRINT " ARE YOU READY?" 1100 GOSUB 3800 1120 IF A9=0 THEN 3900 1190 PRINT 1200 PRINT " GOOD. HERE WE GO." 1210 PRINT 1220 P=500000 1225 P9=.1: REM ==== DIFFICULTY LEVEL: ORIGINAL WAS .001 1230 H1=0 1240 V1=0 1250 H2=0 1260 V2=0 1270 V6=0 1280 T=0 1290 U=1 1300 PRINT TAB(10);"VITAL STATS" 1310 PRINT TAB(9);"*************" 1320 PRINT 1330 PRINT TAB(5);"POSITION---(";H1;",";V1;",";P;" )" 1340 PRINT " COURSE---(";H2;",";V2;" )" 1350 PRINT " SPEED---";V6;" FT. PER SEC." 1360 PRINT " ELAPSED TIME---";T;" SECONDS" 1370 IF P>60000 THEN 1410 1380 PRINT 1390 IF P>35000 THEN 2260 1400 IF P<35000 THEN 2550 1410 PRINT 1420 INPUT " INPUT NEW COURSE.---=>"H2,V2 1440 IF ABS(H2)<85 THEN 1510 1450 PRINT " ON THIS COURSE, YOU WILL EVENTUALLY IMPACT ON THE" 1460 IF H2<85 THEN PRINT " RIGHT WALL OF THE TRENCH." 1470 IF H2>-85 THEN PRINT " LEFT WALL OF THE TRENCH." 1510 IF V2>-90 THEN 1540 1520 PRINT " ON THIS COURSE, YOU WILL EVENTUALLY IMPACT ON THE" 1530 PRINT " FLOOR OF THE TRENCH." 1540 PRINT 1550 INPUT " INPUT NEW SPEED. ---=>"V6 1570 PRINT 1580 IF V6<1000 THEN PRINT " SPEED TOO LOW. TRY AGAIN." 1590 IF V6<1000 THEN 1540 1620 IF V6>5000 THEN PRINT " SPEED TOO HIGH. TRY AGAIN." 1630 IF V6>5000 THEN 1540 1640 H=ABS(H2-H1) 1650 V=ABS(V2-V1) 1660 R=SQR((H*H)+(V*V)) 1670 T1=R/(P-10000) 1680 T2=T1*(0.0174533): REM === CONVERSION TO RADIANS 1690 V8=TAN(T2): REM === WAS V9=V6*COS(ATN(T1)) 1700 V9=V6*COS(V8) 1710 D=V9*10 1720 H3=H*D/(P-10000) 1730 V3=V*D/(P-10000) 1740 IF H2