10 REM STRWR.ECB 15 REM ....WRITTEN BY ROBB (MITHRANDIR) BORLAND 10/4/77 20 REM == MECC "STRWAR1" === REWORKED 03-20-78 25 DIM Z$(60): PRINT "&K&J": REM .... RANDOMIZE 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 DATA " 10,000 FEET FROM THE END OF THE TRENCH AND DEAD" 230 DATA " IN THE CENTER OF IT. AT THIS TIME, YOUR ON-BOARD" 240 DATA " COMPUTER WILL AUTOMATICALLY FIRE 2 PROTON MISSILES AT" 250 DATA " A SMALL THERMAL EXHAUST PORT AT THE END OF THE TRENCH." 260 DATA " YOU MUST DO ALL OF THIS AND AT THE SAME TIME" 270 DATA " NOT GET YOUR BUTT BLOWN OFF BY DARTH VADER, WHO IS" 280 DATA " CHASING YOU. *** DO YOU STILL WANT TO TRY IT???" 285 GOSUB 3450 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 DATA " WITH THE ORIGIN (0,0,0) AT THE CENTER OF THE EXHAUST PORT." 430 DATA " YOU WILL START AT THE FAR END OF THE TRENCH" 440 DATA " AT POSITION (0,0,500000). YOU COULD FLY STRAIGHT" 450 DATA " DOWN THE CENTER OF THE TRENCH, EXCEPT THAT 5 SECONDS" 460 DATA " AFTER YOU START, AND FOR EVERY 10 SECONDS AFTERWARD," 470 DATA " A TURRET-MOUNTED TURBO-LASER WILL FIRE STRAIGHT DOWN THE" 480 DATA " MIDDLE OF THE TRENCH, DESTROYING EVERYTHING IN IT'S PATH!" 485 GOSUB 3450 490 GOSUB 3850 500 DATA " SINCE YOU WILL BE ASKED EVERY 10 SECONDS IF" 510 DATA " YOU WISH TO CHANGE COURSE AND/OR SPEED, THEN YOU" 520 DATA " MUST GET AWAY FROM THE CENTER OF THE TRENCH ON YOUR" 530 DATA " FIRST MANUVER OR ELSE BE DESTROYED." 540 DATA " IF YOU ARE AWAY FROM THE CENTER, THERE IS ONE" 550 DATA " CHANCE IN FORTY FOR EACH TEN SECOND INTERVAL THAT" 560 DATA " YOU WILL BE DESTROYED BY RANDOM TURBO-LASER FIRE." 565 GOSUB 3450 570 GOSUB 3850 600 DATA " SINCE IT WILL TAKE YOU A MINIMUM OF 100 SECONDS TO" 610 DATA " FLY THE LENGTH OF THE TRENCH, THEN YOU HAVE AT LEAST" 620 DATA " ONE CHANCE IN FOUR THAT YOU WILL BE DESTROYED THAT WAY." 630 DATA " ALSO, IF DARTH VADER GETS A SHOT OFF AT YOU AND" 640 DATA " YOU DID NOT TRY TO AVOID HIM, YOU HAVE ONLY ONE " 650 DATA " CHANCE IN FOUR OF SURVIVING. THEREFORE, IT BEHOOVES" 660 DATA " YOU TO STAY AWAY FROM HIM WHENEVER POSSIBLE. " 665 GOSUB 3450 670 GOSUB 3850 700 PRINT " 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 " TRY NOT TO HIT THE WALLS." 750 GOSUB 3850 760 DATA " THE SECOND NUMBER REFERS TO YOUR DEPTH IN THE" 770 DATA " TRENCH. THE BOTTOM HAS A VALUE OF -100, THE CENTER " 780 DATA " IS 0, AND THE TOP IS 100. YOU CAN FLY OUT OF THE TOP " 790 DATA " OF THE TRENCH, BUT IF YOU DO, YOUR CHANCES OF BEING " 800 DATA " HIT BY TURBO-LASER FIRE WILL INCREASE TO ONE CHANCE " 810 DATA " IN FIVE FOR EACH 10 SECOND INTERVAL THAT YOU ARE OUT " 820 DATA " OF THE TRENCH. ALSO, TRY NOT TO HIT THE BOTTOM. " 825 GOSUB 3450 830 GOSUB 3850 840 PRINT " 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 DATA " + OR - 85. ALSO, SINCE YOUR FIGHTER IS TEN " 1020 DATA " FEET DEEP, YOUR LOWEST DEPTH CO-ORDINATE IS -90. " 1030 DATA " EXCEED THESE AND YOU ARE A GONER. ALSO, YOU MUST " 1040 DATA " PULL UP AT THE END OF THE TRENCH IN ORDER TO MISS " 1050 DATA " THE END WALL AND A GUN EMPLACEMENT ON TOP OF THE WALL. " 1060 DATA " IF YOU MANAGE TO HIT EITHER OF THEM, YOU WILL NOT BE " 1070 DATA " TOLD IF YOUR MISSILES WERE ON TARGET OR NOT. " 1075 GOSUB 3450 1080 PRINT 1090 PRINT " ARE YOU READY? "; 1100 GOSUB 3810 1120 IF A9=0 THEN 3900 1190 PRINT 1200 PRINT " GOOD. HERE WE GO." 1210 PRINT 1220 LET P=500000 1225 LET P9=.1: REM ... ==== DIFFICULTY LEVEL: ORIGINAL WAS .001 1230 LET H1=0 1240 LET V1=0 1250 LET H2=0 1260 LET V2=0 1270 LET V6=0 1280 LET T=0 1290 LET 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 PRINT " INPUT NEW COURSE.---=>"; 1430 INPUT 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 LET H=ABS(H2-H1) 1650 LET V=ABS(V2-V1) 1660 LET R=SQR((H*H)+(V*V)) 1670 LET T1=R/(P-10000) 1680 LET T2=T1*(0.0174533): REM ... === CONVERSION TO RADIANS 1690 LET V8=TAN(T2): REM ... === WAS V9=V6*COS(ATN(T1)) 1700 LET V9=V6*COS(V8) 1710 LET D=V9*10 1720 LET H3=H*D/(P-10000) 1730 LET V3=V*D/(P-10000) 1740 IF H2