home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MTREK.ZIP / STRTRK3.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  4.0 KB  |  103 lines
  1. R$(26)
  2. 4470 PRINTAR$;"---------COMPUTER PROJECTION----------":PRINT
  3. 4480 PRINT"PROJECTED LIKELIHOOD OF SUCCESS FOR YOUR MISSION =";YY;"PERCENT"
  4. 4490 PRINT"WE HAVE AUTO ACTIVATED SELF-DESTRUCT SYSTEM ON YOUR VESSEL"
  5. 4500 PRINT"GOODBYE, CAPTAIN.............":PRINT
  6. 4510 PRINT"END OF MESSAGE FROM FEDERATION COMMAND":PRINT:PRINT
  7. 4520 GOSUB 5430
  8. 4530 GOTO 5300
  9. 4540 PRINT:PRINT"YOU ARE AHEAD OF SCHEDULE AND BEYOND TOLERANCE FACTOR"
  10. 4550 PRINT"CALL KLINGON LEADERS AND REQUEST THEIR SURRENDER":KQ=1
  11. 4560 PRINT:GOTO3890
  12. 4570 PRINTAR$;"MESSAGE FROM COMMAND BASE"
  13. 4580 PRINT:PRINT"ENEMY HAS SURRENDERED TO FEDERATION COMMAND !!"
  14. 4590 PRINT:PRINT:PRINT:PRINT
  15. 4600 GOTO2640
  16. 4610 IF KQ=1 THEN 4860:IF EQ=1 THEN 4640
  17. 4620 ON SGN(XM)+2 GOTO 4630,4690,4740
  18. 4630 IF ABS(XM)<=TFTHEN4690
  19. 4640 PRINT:PRINT"KLINGON COMMAND ON FREQUENCY"
  20. 4650 PRINT"NATURALLY, WE ARE PLEASED THAT YOU ARE CONCEDING, CAPTAIN"
  21. 4660 PRINT"WE ARE PRESENTLY BOARDING YOUR CRAFT"
  22. 4670 PRINT:PRINT"HERE IS A MESSAGE FROM YOUR LEADERS-":PRINT:GOSUB 5430
  23. 4680 PRINTCHR$(26):GOTO 2600
  24. 4690 GOSUB 3770
  25. 4700 IFXX<=5THEN 4730
  26. 4710 PRINT:PRINT"MESSAGE FROM KLINGON COMMAND...."
  27. 4720 PRINT"NO FURTHER COMMUNICATIONS AT THIS TIME":GOTO 4820
  28. 4730 PRINT:PRINT"WE'LL TALK WITH OUR WEAPONS, EARTH-SWINE !!":GOTO 4820
  29. 4740 GOSUB 3770
  30. 4750 AQ=INT((XX+1)/2)
  31. 4760 ON AQ GOTO 4710,4730,4770,4770,4740
  32. 4770 GF=TF*1.5
  33. 4780 IFXM>GFTHEN 4860
  34. 4790 IFXM>TFTHEN 4830
  35. 4800 PRINT:PRINT"CAPTAIN, DESPITE YOUR SLIGHT ADVANTAGE, YOU ARE NO MATCH FOR"
  36. 4810 PRINT"THE GLORIOUS KLINGON FLEET"
  37. 4820 PRINTTAB(25)"END OF MESSAGE FROM KLINGON COMMAND":GOTO700
  38. 4830 GOSUB3770
  39. 4840 IFXX<=5THENPRINT" KLINGON COMMAND TO ENTERPRISE..":GOTO4730
  40. 4850 GOTO4870
  41. 4860 PRINTCHR$(26)
  42. 4870 PRINT:PRINT"MESSAGE FROM KLINGON LEADERS..."
  43. 4880 PRINT:PRINT"WE CONCEDE THE WAR, SIR, CONGRATULATIONS !!":GOTO3600
  44. 4890 AV=INT(X4/2)+1:DR=-1
  45. 4900 IF TEC<AV THEN 4920
  46. 4910 IF C$<>"D" THEN 4960 ELSE 4980
  47. 4920 AU=AV-TEC:IFAU=1THENKF$=""ELSEKF$="S"
  48. 4930 PRINT:PRINT"DAMAGE REPAIR INACTIVE !!"
  49. 4940 PRINT"REQUIRES";AU;"MORE RECHARGE UNIT";KF$
  50. 4950 PRINT:GOTO 700
  51. 4960 PRINT:PRINTAR$"YOU MUST BE DOCKED AT STARBASE FOR DAMAGE REPAIR !!"
  52. 4970 PRINT:GOTO 700
  53. 4980 PRINT
  54. 4990 PRINT:FORA=1TO10
  55. 5000 IFD(A)<0THENPRINT TAB(10)A;TAB(20)D$(A);TAB(40)"DAMAGED"
  56. 5010 NEXT
  57. 5020 PRINT:PRINT"IF NO DAMAGE INDICATED ABOVE, ANSWER WITH 0 (ZERO)"
  58. 5030 INPUT "WHICH ONE TO REPAIR ";A
  59. 5040 IFA<1ORA>10THENPRINTAR$;:GOTO 700
  60. 5050 IF D(A)<0 THEN 5070
  61. 5060 PRINT:PRINTD$(A);"        NOT DAMAGED !!":GOTO 5030
  62. 5070 PRINT:PRINTTAB(20)D$(A);"---REPAIRED":PRINT
  63. 5080 D(A)=0:TEC=0:GOTO700
  64. 5090 PRINT:PRINTAR$;"NOTHING DAMAGED AT PRESENT":GOTO700
  65. 5100 PRINT
  66. 5110 GOSUB4290
  67. 5120 PRINT"INITIAL MISSION PROGRESS FACTOR WAS";PR
  68. 5130 PRINT"CURRENT MISSION PROGRESS FACTOR IS ";MR
  69. 5140 IF XM<0 THEN PW$=" WORSENED "ELSE PW$=" IMPROVED "
  70. 5150 PRINT
  71. 5160 PRINT"YOUR COMBAT SITUATION HAS";PW$;"BY A FACTOR OF";XM;"PERCENT"
  72. 5170 IF ABS(XM)>=TF THEN EG$=" NOT "ELSE EG$=" "
  73. 5180 IF EG$=" "THEN EH$=""ELSE EH$=AR$
  74. 5190 PRINT EH$;"YOUR PROGRESS IS";EG$;"WITHIN TOLERANCE FOR THIS MISSION"
  75. 5200 PRINT
  76. 5210 IF EG$=" NOT "THEN 5220 ELSE 2670
  77. 5220 IF XM<0 THEN 5230 ELSE 5270
  78. 5230 PRINT:SD=1:KD=0
  79. 5240 PRINT"CAPTAIN, COMMAND CENTRAL PROJECTS DEFEAT BY ENEMY. YOU ARE NOW"
  80. 5250 PRINT"AUTHORIZED TO SURRENDER OR TO ACTIVATE SELF-DESTRUCT SYSTEM"
  81. 5260 GOTO2670
  82. 5270 PRINT:SD=0:KD=1
  83. 5280 PRINT"CAPTAIN, FEDERATION COMMAND PROJECTS SUCCESS FOR YOUR MISSION."
  84. 5290 GOTO 4540
  85. 5300 PRINTCHR$(26)
  86. 5310 GOSUB 5420
  87. 5320 PRINT"SELF DESTRUCT SYSTEM ACTIVATED"
  88. 5330 PRINT:PRINT:PRINT:GOSUB 5420
  89. 5340 PRINT"COUNTDOWN BEGUN !":PRINT:PRINT
  90. 5350 PRINTTAB(25)"FIVE":PRINT:GOSUB 5420
  91. 5360 PRINTTAB(20)"FOUR":PRINT:GOSUB 5420
  92. 5370 PRINTTAB(15)"THREE":PRINT:GOSUB 5420
  93. 5380 PRINTTAB(10)"TWO":PRINT:GOSUB 5420
  94. 5390 PRINTTAB(5)"ONE":PRINT:GOSUB 5420
  95. 5400 PRINT"ZERO":GOSUB 5420
  96. 5410 PRINTCHR$(26):GOTO5440
  97. 5420 FOR I=1 TO 50:A=A+1:NEXT:RETURN
  98. 5430 FOR I=1 TO 1200:A=A+1:NEXT:RETURN
  99. 5440 RESET
  100. B 5420
  101. 5410 PRINTCHR$(26):GOTO5440
  102. 5420 FOR I=1 TO 50:A=A+1:NEXT:RETURN
  103. 543