1 1 PRINT "U. OF TEXAS STAR TREK GAME BY GRADY HICKS AND JIM KORP."
2 2 PRINT "GENERAL IDEA STOLEN FROM PENN. U. BY HICKS."
3 3 PRINT "VASTLY IMPROVED, AND ADAPTED TO TAURUS BY KORP, 5 APRIL 73."
5 5 PRINT " BE CAREFUL AND HAVE A GOOD TIME."
10 10 DIM G(8,8),Q(8,8),D(8),K(9,3),N(3)
13 13 PRINT " TO PLAY SHORT VERSION, TYPE 1 ---"
14 14 PRINT " TO PLAY REGULAR VERSION, TYPE 2:";
20 20 T0=INT(RND(0)*20+20)*100
29 30 DEF FNO(F)=SQR((K(F,1)-S1)^2+(K(F,2)-S2)^2)
51 110 IF R>=.28 THEN 114
54 114 IF R>=1.78 THEN 118
57 118 IF R>=5.28 THEN 122
60 122 IF R>=9.28 THEN 130
66 150 REM: DETERMINE NUMBER OF KLINGONS, BASES AND STARS.
67 152 IF R>=.01 THEN 156
70 156 IF R>=.10 THEN 160
73 160 IF R>=.30 THEN 164
76 164 IF R>=.80 THEN 168
79 168 IF R>=1.25 THEN 172
82 172 IF R>=2.00 THEN 176
85 176 IF R>=5.28 THEN 180
88 180 IF R>=8.28 THEN 183
91 183 IF R>=13.28 THEN 190
97 202 IF B3<=.97 THEN 206
102 230 S3=INT(RND(0)*8+1)
103 235 G(I,J)=K3*100+B3*10+S3
108 271 I=INT(RND(0)*8+1)
109 272 J=INT(RND(0)*8+1)
114 295 PRINT " PLEASE TYPE A SECRET PASSWORD:";
117 298 LET N1=N9=N7=A7=0
118 300 REM: DETERMINE KLINGON COMMANDER
119 302 IF A9<>0 THEN 320
120 304 R1=INT(RND(0)*8+1)
121 306 R2=INT(RND(0)*8+1)
124 312 G(C2,C3)=G(C2,C3)+100
130 400 REM: SET UP QUADRANT
136 450 X=G(Q1,Q2)/99.999
138 470 B3=INT((X-K3)*10.0)
139 480 S3=G(Q1,Q2)-INT(G(Q1,Q2)*.1)*10
151 545 IF N1<>1 THEN 550
162 601 IF Q1<>C2 THEN 610
163 602 IF Q2<>C3 THEN 610
165 605 Q(K(I,1),K(I,2))=6
177 694 IF E<=0 THEN 5200
179 700 REM: SHORT RANGE SENSOR SCAN
185 709 IF T8>=1 THEN 711
195 735 IF Q(I,J)<>3 THEN 740
202 775 IF E<E0*.1 THEN 800
211 804 IF E<=0 THEN 5200
212 805 IF D(2) >= 0 THEN 830
213 815 PRINT "SHORT RANGE SENSORS ARE OUT "
216 830 PRINT "----------------------"
219 838 PRINT Q$(Q(I,J)+1);" ";
224 848 PRINT "--------------------------"
227 855 PRINT "STARDATE "T
230 860 PRINT "CONDITION "C$
233 865 PRINT "QUADRANT "Q1;"-"Q2
236 870 PRINT "SECTOR "S1;"-"S2
242 880 PRINT "PHOTON TORPEDOES "P
245 885 PRINT "KLINGONS LEFT "K9
247 890 PRINT "ENERGY SHIELDS "Z$
249 955 IF N9<>1 THEN 959
251 957 IF N7=1 THEN 3582
253 959 PRINT "COMMAND:";
255 961 IF C$<>"DOCKED" THEN 964
259 975 PRINT " 0 = SET COURSE"
260 980 PRINT " 1 = SHORT RANGE SENSOR SCAN"
261 985 PRINT " 2 = LONG RANGE SENSOR SCAN"
262 990 PRINT " 3 = FIRE PHASERS"
263 995 PRINT " 4 = FIRE PHOTON TORPEDOES"
264 1000 PRINT " 5 = DAMAGE CONTROL REPORT"
265 1005 PRINT " 6 = SELF-DESTRUCT"
266 1006 PRINT " 7 = ABANDON SHIP"
267 1007 PRINT " 8 = ACTIVATE ENERGY SHIELDS"
268 1008 PRINT " 9 = DEACTIVATE ENERGY SHIELDS"
269 1009 PRINT " 10 = FIRE EXPERIMENTAL DEATH RAY"
270 1018 IF H6=1 THEN 9946
275 1040 PRINT "COURSE (1-8.9999):";
277 1060 IF C1=0 THEN 955
278 1070 IF C1<1 THEN 959
279 1080 IF C1>= 9 THEN 1040
280 1090 PRINT "WARP FACTOR (0-12):";
282 1110 IF W1<0 THEN 959
283 1120 IF W1>12 THEN 959
284 1130 IF W1<=.25 THEN 1163
285 1140 IF D(1) >= 0 THEN 1163
286 1150 PRINT "WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = WARP .25"
290 1165 IF E<=0 THEN 5200
291 1168 IF W1=12 THEN 3500
292 1170 REM: THIS IS A CONTINUE CARD
294 1185 IF N9=1 THEN 955
295 1190 IF E <=0 THEN 5230
297 1215 IF D(I)=0 THEN 1230
299 1222 IF D(I)<0 THEN 1230
302 1240 IF RND(0)>.20 THEN 1320
303 1250 R1=INT(RND(0)*7+1)
304 1260 IF RND(0)>.5 THEN 1300
305 1270 D(R1)=D(R1)-(RND(0)*5+1)
306 1280 PRINT "*** SPACE STORM, ";
308 1283 PRINT F$" DAMAGED ***"
311 1301 IF D(I)<0 THEN 1307
314 1304 IF D(I)<0 THEN 1307
318 1308 D(I)=D(I)+RND(0)*5+1
319 1309 IF D(I)<=0 THEN 1311
321 1311 PRINT "*** TEMPORARY TRUCE, ";
323 1313 PRINT F$" STATE OF REPAIR IMPROVED ***"
330 1330 IF T>T0+T9 THEN 5200
337 1370 IF S1<.5 THEN 1480
338 1375 IF S2<.5 THEN 1480
339 1380 IF S1>=8.5 THEN 1480
340 1385 IF S2>=8.5 THEN 1480
341 1388 IF Q(X3,Y3)<>0 THEN 1392
345 1393 IF Z5=6 THEN 6300
346 1394 IF Z5<>2 THEN 1405
350 1407 PRINT N$;"BLOCKED BY OBJECT AT SECTOR"S1;"-"S2
357 1480 Q1=INT(Q1+W1*X1+(X-.5)/8)
358 1481 Q2=INT(Q2+W1*X2+(Y-.5)/8)
359 1482 IF Q1>=1 THEN 1485
362 1485 IF Q1<=8 THEN 1488
365 1488 IF Q2>=1 THEN 1491
368 1491 IF Q2<=8 THEN 1494
371 1494 IF Z2<>1 THEN 1497
374 1498 IF G(Q1,Q2)>999 THEN 7650
376 1500 S1=INT(RND(0)*8+1)
377 1510 S2=INT(RND(0)*8+1)
379 1600 REM: LONG RANGE SENSOR SCAN
380 1610 IF D(3) >= 0 THEN 1640
381 1620 PRINT "LONG RANGE SENSORS ARE INOPERABLE"
384 1640 PRINT "LONG RANGE SENSOR SCAN FOR QUADRANT"Q1","Q2
385 1645 PRINT "----------------- '"
386 1660 FOR I=Q1-1 TO Q1+1
387 1670 N(1)=N(2)=N(3)=0
388 1680 FOR J=Q2-1 TO Q2+1
389 1690 IF I<1 THEN 1740
390 1700 IF I>8 THEN 1740
391 1710 IF J<1 THEN 1740
392 1720 IF J>8 THEN 1740
393 1730 N(J-Q2+2)=G(I,J)
395 1750 PRINT ":"N(1);":"N(2);":"N(3)
396 1760 PRINT "------------------- '"
400 1800 REM: PHASER CONTROL
401 1810 IF D(4) >= 0 THEN 1832
402 1820 PRINT "PHASER CONTROL IS DISABLED"
405 1832 IF C5=0 THEN 1840
406 1834 PRINT "YOU MUST LOWER YOUR ENERGY SHIELDS TO FIRE."
409 1840 PRINT "PHASERS LOCKED ON TARGET. ENERGY AVAILABLE = "E
410 1850 PRINT "NUMBER OF UNITS TO FIRE:";
412 1870 IF X <= 0 THEN 955
413 1880 IF E-X<0 THEN 1840
415 1895 IF K3=0 THEN 2010
418 1910 IF K(I,3) <= 0 THEN 1990
419 1929 H=(X)/(FNO(I))*(3.0+RND(0))
420 1930 K(I,3)=K(I,3)-(H/W2)
421 1940 PRINT H/W2;"UNIT HIT ON KLINGON AT SECTOR"K(I,1);"-"K(I,2)
422 1950 PRINT "("K(I,3);"LEFT)"
423 1960 IF K(I,3)>0 THEN 1990
425 1980 IF K9 <= 0 THEN 5300
427 1995 IF K3<=0 THEN 2020
429 2010 IF E <= 0 THEN 5250
431 3000 REM: PHOTON TORPEDOES
432 3010 IF D(5) >= 0 THEN 3040
433 3020 PRINT "PHOTON TUBES ARE NOT OPERATIONAL"
436 3040 IF P>0 THEN 3062
437 3050 PRINT "ALL PHOTON TORPEDOES EXPENDED"
439 3062 IF C5=0 THEN 3068
440 3064 PRINT "YOU MUST LOWER YOUR ENERGY SHIELDS TO FIRE."
443 3068 PRINT "DO YOU WISH TO FIRE A SPREAD:";
445 3070 PRINT "TORPEDO COURSE (1-8.9999):";
447 3090 IF C1=0 THEN 955
448 3100 IF C1<1 THEN 3070
449 3110 IF C1>=9 THEN 3070
450 3111 IF P<3 THEN 3120
451 3116 IF M$="YES" THEN 6500
456 3140 PRINT "TORPEDO TRACK:";
459 3160 IF X<.5 THEN 3422
460 3165 IF Y<.5 THEN 3422
461 3170 IF X>=8.5 THEN 3422
462 3175 IF Y>=8.5 THEN 3422
466 3210 IF Q(X5,Y5)<>0 THEN 3230
469 3236 IF F7=1 THEN 3150
470 3237 IF F7=2 THEN 3244
471 3238 IF F7=3 THEN 3301
472 3239 IF F7=4 THEN 3323
473 3240 IF F7=6 THEN 3244
475 3245 PRINT "*** KLINGON DESTROYED ***"
478 3260 IF K9<=0 THEN 5300
480 3272 IF K(I,1)<>X5 THEN 3275
481 3273 IF K(I,2)<>Y5 THEN 3275
486 3311 PRINT "*** STARBASE DESTROYED ... CONGRATULATIONS ***"
491 3335 PRINT "***STAR DESTROYED***"
493 3345 IF S3>=0 THEN 3410
498 3410 G(Q1,Q2)=K3*100+B3*10+S3
501 3425 PRINT "TORPEDO MISSED"
502 3430 IF E4=0 THEN 3439
504 3433 IF E4>3.5 THEN 3438
506 3438 IF K3<=0 THEN 3445
508 3440 IF E <= 0 THEN 5230
511 3460 X2=COS((C1-1)*.785398)
512 3470 X1=-SIN((C1-1)*.785398)
515 3502 IF T>T0+15 THEN 3510
516 3504 PRINT "WARP 12 CANNOT BE USED UNTIL STARDATE"T0+16
518 3510 PRINT "SPEED APPROACHING WARP 12."
519 3520 PRINT "ENGINES OPERATING ABOVE DANGER LEVEL."
520 3530 PRINT "ALL SAFETY DEVICES DISFUNCTIONAL."
521 3540 PRINT "CRITICAL OVERHEATING--SPONTANEOUS IMPLOSION IMMINENT."
522 3570 IF W9>.40 THEN 3600
524 3576 PRINT "*****************************************************"
527 3580 PRINT "*** ENTROPY OF"N$;"MAXIMIZED **************"
529 3583 PRINT " YOU ATE THAT ONE."
531 3600 IF W9>.55 THEN 3700
533 3620 PRINT " YOU ARE TRAVELLING BACK IN TIME."
535 3640 PRINT "*** STARDATE ="T+1
537 3700 IF W9>.60 THEN 3800
539 3720 PRINT " YOU ARE TRAVELLING BACK IN TIME."
541 3740 PRINT "*** STARDATE ="T+1
543 3800 IF W9>.70 THEN 3900
545 3820 PRINT " YOU ARE TRAVELLING FORWARD IN TIME."
547 3840 IF T>T0+T9 THEN 5200
548 3850 PRINT "*** STARDATE ="T
551 3910 PRINT "NUCLEAR REACTOR CHAIN REACTION QUENCHED."
552 3920 PRINT "*** TIME PORTAL MISSED ***"
554 4000 REM: DAMAGE CONTROL REPORT
555 4010 IF D(6) >= 0 THEN 4040
556 4020 PRINT "DAMAGE CONTROL REPORT IS NOT AVAILABLE"
560 4050 PRINT "DEVICE STATE OF REPAIR"
569 4500 PRINT "*** KLINGON AT SECTOR"K(I,1);"-"K(I,2);"DESTROYED."
572 4530 Q(K(I,1),K(I,2))=0
573 4540 G(Q1,Q2)=K3*100+B3*10+S3
575 5000 REM: KLINGON ATTACK
577 5003 IF K3<=0 THEN 5110
578 5005 IF C$ <> "DOCKED" THEN 5017
579 5010 PRINT "STARBASE SHIELDS PROTECT THE"N$
581 5017 IF C5=0 THEN 5022
582 5018 PRINT "** KLINGONS ATTACK-- ENERGY SHIELDS PROTECT"N$
584 5022 IF K3*150<E THEN 5049
585 5023 IF N1<>0 THEN 5049
587 5025 PRINT " KLINGON COMMANDER TO ENTERPRISE---"
588 5026 PRINT "AS YOU WELL KNOW, YOU ARE DANGEROUSLY LOW ON ENERGY"
589 5027 PRINT "AND WILL PROBABLY BE DESTROYED BY MY NEXT ATTACK."
590 5028 PRINT "AS AN OFFICER AND GENTLEMAN, I OFFER YOU A CHANCE TO"
591 5029 PRINT "SAVE YOURSELF AND YOUR CREW----"
592 5032 PRINT " DO YOU SURRENDER:";
594 5034 IF S$<>"YES" THEN 5049
600 5051 IF K(I,3) <= 0 THEN 5100
601 5060 H=(K(I,3)/FNO(I))*(2+RND(0))
604 5080 PRINT H;"UNIT HIT ON"N$;"FROM KLINGON, SECTOR "K(I,1);"-"K(I,2)
605 5082 IF H<=180 THEN 5090
606 5083 R5=INT(RND(0)*7+1)
607 5084 D(R5)=D(R5)-(RND(0)*5+1)
608 5085 PRINT "*** CRITICAL HIT,";
610 5087 PRINT F$" DAMAGED ***"
611 5090 PRINT "("E;"LEFT)"
617 5220 PRINT "IT IS STARDATE"T
620 5255 PRINT "THE"N$;"HAS BEEN DESTROYED."
621 5260 PRINT "THERE ARE STILL"K9;"KLINGON BATTLE CRUISERS."
622 5270 PRINT "THE FEDERATION WILL BE CONQUERED."
623 5280 PRINT "YOU ARE DEAD, YOU INCOMPETENT FOOL."
627 5320 PRINT "IT IS STARDATE"T
628 5330 PRINT "THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN"
629 5331 PRINT "DESTROYED."
630 5340 PRINT "THE FEDERATION HAS BEEN SAVED."
631 5350 PRINT "YOU HAVE BEEN PROMOTED TO COMMODORE EMERITUS."
632 5355 IF N1<>0 THEN 5380
633 5360 PRINT K0;"KLINGONS IN"T-T0;"YEARS. RATING="INT(K0/(T-T0)*1000)
635 5380 PRINT K0;"KLINGONS IN"T-T0;"YEARS."
636 5382 IF A7=5 THEN 5392
637 5385 PRINT "ENTERPRISE CAPTURED."
638 5390 PRINT "RATING ="INT(K0/(T-T0)*1000-1000)
640 5392 PRINT "ENTERPRISE DESTROYED INTENTIONALLY."
641 5393 PRINT "RATING ="INT(K0/(T-T0)*1000-500)
643 6000 REM: SELECT DAMAGED DEVICE
644 6002 IF A+1<>1 THEN 6010
646 6010 IF R5>1 THEN 6040
647 6020 F$="WARP ENGINES"
649 6040 IF R5>2 THEN 6070
650 6050 F$="S.R. SENSORS"
652 6070 IF R5>3 THEN 6090
653 6075 F$="L.R. SENSORS"
655 6090 IF R5>4 THEN 6100
656 6093 F$="PHASER CNTRL"
658 6100 IF R5>5 THEN 6110
659 6103 F$="PHOTON TUBES"
661 6110 IF R5>6 THEN 6115
662 6111 F$="DAMAGE CNTRL"
664 6115 F$="ENERGY SHLDS"
666 6300 REM: RAMMING KLINGON
673 6320 IF K(I,1)<>X3 THEN 6330
674 6322 IF K(I,2)<>Y3 THEN 6330
683 6370 G(Q1,Q2)=K3*100+B3*10+S3
684 6380 PRINT "*** EMERGENCY ALERT ***"
685 6381 PRINT "*** COLLISION IMMINENT ***"
688 6384 PRINT N$;"RAMS KLINGON AT SECTOR"Z6;"-"Z7
689 6385 PRINT "*** KLINGON DESTROYED,"N$;"HEAVILY DAMAGED. ***"
691 6387 D(I)=D(I)-(RND(0)*4+1)
695 6391 IF K9<=0 THEN 5300
696 6395 IF E<=0 THEN 5230
701 6500 REM: TORPEDO SPREAD FORMATION
702 6507 PRINT "SPREAD ANGLE (0.05-0.30):";
704 6509 IF E5=0 THEN 959
705 6510 IF E5<0.05 THEN 6507
706 6511 IF E5>0.30 THEN 6507
708 6520 PRINT "NUMBER"E4;
709 6522 IF E4>1.5 THEN 6530
714 7100 REM: COMMAND LINK
715 7105 IF A+1 = 1 THEN 1030
716 7106 IF A+1 = 2 THEN 700
717 7107 IF A+1 = 3 THEN 1600
718 7108 IF A+1 = 4 THEN 1800
719 7109 IF A+1 = 5 THEN 3000
720 7110 IF A+1 = 6 THEN 4000
721 7111 IF A+1 = 7 THEN 8100
722 7112 IF A+1 = 8 THEN 7400
723 7113 IF A+1 = 9 THEN 7800
724 7114 IF A+1 = 10 THEN 7850
725 7115 IF A+1 = 11 THEN 7200
728 7202 IF T>T0+18 THEN 7208
729 7204 PRINT " DEATH RAY CANNOT BE USED UNTIL STARDATE"T0+19
732 7208 IF W3<.05 THEN 7215
733 7210 PRINT " DEATH RAY PERMANENTLY OUT OF ORDER."
736 7215 IF C5=0 THEN 7225
737 7220 PRINT " YOU MUST LOWER YOUR SHIELDS TO FIRE."
742 7228 IF W3>.35 THEN 7260
743 7230 PRINT " *ANTI-MATTER OVERLOAD."
744 7231 PRINT " TEMPORARY PSUEDO-STARS CREATED FROM ENERGY."
747 7235 IF Q(I,J)<>0 THEN 7240
753 7260 IF W3>.50 THEN 7280
754 7263 PRINT "*** DEATH RAY BACKFIRES ***"
755 7265 PRINT "*** BETTER LUCK NEXT TIME ***"
757 7280 IF W3>.60 THEN 7310
758 7283 PRINT "*** DEATH RAY ANNIHILATES ALL KLINGONS IN QUADRANT"Q1;"-"Q2
760 7286 IF K9<=0 THEN 5300
763 7289 IF Q(I,J)<>6 THEN 7292
765 7292 IF Q(I,J)<>2 THEN 7294
770 7298 G(Q1,Q2)=INT(B3*10+S3)
772 7310 IF W3>.75 THEN 7325
773 7312 PRINT "*THERMAL REACTOR ENERGY DRAIN."
775 7316 PRINT .95*E"UNITS OF ENERGY BURNED."
777 7325 IF W3>.95 THEN 7350
778 7328 PRINT "*MATTER/ANTI-MATTER TRANSFORMATION."
779 7330 IF K3>0 THEN 7334
781 7334 PRINT "KLINGONS HIT BY MAIN BEAM DUPLICATED."
784 7339 IF K3>8 THEN 7345
788 7345 G(Q1,Q2)=K3*100+B3*10+S3
791 7350 PRINT "*** DEATH RAY GOES CRAZY ***"
792 7352 PRINT "*** DESTROYS EVERY KLINGON IN THE GALAXY ***"
793 7353 PRINT "*** ALSO DESTROYS ENTERPRISE ***"
796 7400 REM: ABANDON SHIP
797 7401 IF N1=0 THEN 7404
798 7402 PRINT "THE FAIRIE QUEENE CANNOT BE ABANDONED."
801 7405 IF A7<>1 THEN 7420
802 7410 PRINT "** YOU MAY NOT ABANDON SHIP AFTER YOU HAVE BEEN "
803 7411 PRINT "ASKED TO SURRENDER."
806 7420 PRINT "*** ABANDON SHIP ***"
807 7421 PRINT "*** ABANDON SHIP ***"
809 7426 PRINT "SERIES ENTER-BLITZ INITIATED."
810 7429 PRINT "FAIL-SAFE AUTO-OVERRIDE INSERTED."
811 7433 PRINT "ENTERPRISE COMMANDER AND CREW ESCAPE IN SHUTTLE CRAFT."
813 7440 PRINT "*** ENTERPRISE REDUCED TO SUB-ATOMIC PARTICLES ***"
820 7501 IF V=2 THEN 7506
821 7502 IF RND(0)>.15 THEN 7600
823 7506 IF RND(0)>.10 THEN 7600
824 7508 Z3=INT(RND(0)*8+1)
825 7510 Z4=INT(RND(0)*8+1)
826 7515 IF G(Z3,Z4)>999 THEN 7600
827 7520 S4=G(Z3,Z4)-INT(G(Z3,Z4)*.1)*10
828 7525 IF S4<=0 THEN 7600
830 7535 PRINT "*************************************************"
831 7540 PRINT "********* SUPERNOVA IN QUADRANT"Z3;"-"Z4
832 7542 PRINT "ALL MATTER IN THIS QUADRANT CONVERTED TO ENERGY."
833 7543 IF Q1<>Z3 THEN 7575
834 7544 IF Q2<>Z4 THEN 7575
837 7548 PRINT "UNFORTUNATELY, THE"N$;"WAS IN THIS QUADRANT."
839 7575 PRINT "FROM NOW ON, ANY VESSEL STOPPING IN THIS QUADRANT"
840 7576 PRINT "WILL BE TOTALLY ENERGIZED."
841 7577 PRINT "*************************************************"
843 7580 K4=INT(G(Z3,Z4)/99.99)
844 7582 B4=INT((G(Z3,Z4)/99.99-K4)*10.0)
847 7590 G(Z3,Z4)=INT(1000.0)
849 7650 REM: STARSHIP ENCOUNTERS OLD SUPERNOVA
850 7655 PRINT "*** HEY STUPID. YOU WERE WARNED NOT TO STOP IN A"
851 7656 PRINT "QUADRANT WHERE A SUPERNOVA HAD OCCURRED."
853 7700 REM: VARIABLE RESUPPLY
854 7701 IF N1=1 THEN 7710
862 7800 REM: ACTIVATE ENERGY SHIELDS
863 7802 IF D(7)>=0 THEN 7808
864 7804 PRINT "ENERGY SHIELDS DISABLED."
866 7808 IF C5=0 THEN 7818
867 7810 PRINT "ENERGY SHIELDS ALREADY ACTIVATED."
871 7819 PRINT "ENERGY SHIELDS ACTIVATED."
876 7826 IF E<=0 THEN 5200
879 7850 REM: DEACTIVATE ENERGY SHIELDS
881 7860 PRINT "ENERGY SHIELDS DEACTIVATED."
887 7900 REM: DETERMINE NAME
888 7905 IF N1<>1 THEN 7915
890 7910 N$=" FAIRIE QUEENE "
892 7915 N$=" ENTERPRISE "
895 7950 REM: CHANGING OF THE GUARD AT BUCKINGHAM PALACE
899 7957 K3=INT(G(I,J)/99.99)
900 7958 B3=INT((G(I,J)/99.99-K3)*10.0)
901 7960 IF B3>0 THEN 7978
904 7963 PRINT " YOU HAVE BEEN TAKEN TO KLINGON HEADQUARTERS."
905 7964 PRINT "IF YOU HAD A STARBASE, YOU WOULD BE REPATRIATED"
906 7965 PRINT "AND GIVEN A NEW STARSHIP TO COMMAND."
907 7966 PRINT "SINCE YOU HAVE NO STARBASE, YOU WILL BE MERCILESSLY"
908 7967 PRINT "TORTURED TO DEATH BY THE ARCHFIEND,"
909 7968 PRINT "CECIL DYBOWSKI, SCOURGE OF THE UNIVERSE."
919 7985 PRINT "YOU HAVE BEEN SENT BACK TO STARFLEET COMMAND."
920 7987 PRINT "YOU ARE NOW IN COMMAND OF A NEW STARSHIP,"
921 7988 PRINT " THE FAIRIE QUEENE,"
922 7989 PRINT "WHICH LOOKS LIKE /Q/ ON THE SCAN."
924 7992 PRINT " YE FAIRIE QUEENE IS CURRENTLY IN QUADRANT"Q1;"-"Q2
925 7994 PRINT "TRY TO BE MORE CAREFUL THIS TIME."
940 8100 REM: SELF-DESTRUCT
942 8110 PRINT "SERIES ENTER-BLITZ INITIATED."
943 8115 PRINT "IN TEN SECONDS THIS VESSEL WILL SELF-DESTRUCT."
950 8123 PRINT "T MINUS 5 SECONDS AND HOLDING."
951 8124 PRINT "FAIL-SAFE MECHANISM ENGAGED. ONLY THE COMMANDER OF"
952 8125 PRINT "THE STARSHIP CAN OVERRIDE WITH HIS SECRET PASSWORD."
953 8126 PRINT "SCIENCE OFFICER HICKS HAS ALREADY ENTERED HIS CORRECT"
954 8127 PRINT "COUNTER-PASSWORD."
955 8128 PRINT "TO CONTINUE SERIES ENTER-BLITZ, TYPE YOUR "
956 8129 PRINT "SECRET PASSWORD:";
958 8135 IF V$<>X$ THEN 8150
966 8151 PRINT "SERIES ENTER-BLITZ TERMINATED."
971 8206 PRINT " TYPE A WIERD NUMBER BETWEEN 0.0 AND 1.0 :";
975 8970 REM: LEAVING GALAXY
976 8975 IF F>2 THEN 8990
978 8981 PRINT "STARSHIP ENCOUNTERS END OF GALAXY."
980 8983 PRINT "FOOLISH MORTAL, YOU HAVE ATTEMPTED TO VENTURE OUT OF THE"
981 8984 PRINT "GALAXY INTO SUB-SPACE. ON THE THIRD TIME YOU TRY THIS,"
982 8985 PRINT "THE LIVING GOD, KORP, WILL DESTROY YOU."
986 8991 PRINT "YOU HAVE DARED TO ENTER SUB-SPACE A THIRD TIME."
987 8992 PRINT "FOR THIS, ************ YOU DIE ****************"
990 9000 REM: RANDOM NUMBER GENERATOR
991 9010 R1=INT(RND(0)*8+1)
992 9020 R2=INT(RND(0)*8+1)
993 9030 IF Q(R1,R2) <> 0 THEN 9010
996 9050 PRINT "ORDERS: STARDATE = "T
998 9070 PRINT " AS COMMANDER OF THE UNITED STARSHIP ENTERPRISE,"
999 9080 PRINT "YOUR MISSION IS TO RID THE GALAXY OF THE DEADLY"
1000 9090 PRINT "KLINGON MENACE. TO DO THIS, YOU MUST DESTROY THE "
1001 9100 PRINT "KLINGON INVASION FORCE OF "K9"BATTLE CRUISERS."
1002 9110 PRINT "YOU HAVE"T9;"SOLAR YEARS TO COMPLETE YOUR MISSION."
1003 9120 PRINT "(I.E. UNTIL STARDATE"T0+T9;")."
1005 9130 IF B9 > 1 THEN 9133
1006 9131 PRINT " YOU WILL HAVE ONE SUPPORTING STARBASE."
1008 9133 PRINT " YOU WILL HAVE"B9"SUPPORTING STARBASES."
1009 9140 PRINT "WHEN THE ENTERPRISE DOCKS AT ONE (IS POSITIONED"
1010 9150 PRINT "NEXT TO ONE) IT IS RESUPPLIED WITH ENERGY AND"
1011 9160 PRINT "PHOTON TORPEDOES."
1012 9161 PRINT "THE ENTERPRISE IS CURRENTLY IN"
1013 9162 PRINT "QUADRANT"Q1"-"Q2"SECTOR"S1"-"S2
1014 9163 PRINT "DO YOU NEED FURTHER INSTRUCTIONS (REVISED 18 APRIL 73)";
1017 9170 IF A$<>"YES" THEN 400
1019 9180 PRINT " THE GALAXY IS DIVIDED INTO 64 QUADRANTS WITH"
1020 9190 PRINT "THE FOLLOWING COORDINATES:"
1021 9200 PRINT " Y-- 1 2 3 4 5 6 7 8 '"
1022 9210 PRINT " --------------------------------- X"
1024 9230 PRINT " ' : : : : : : : : : "I
1025 9240 PRINT " --------------------------------- '"
1030 9300 PRINT "EACH QUADRANT IS SIMILARLY DIVIDED INTO 64 SECTORS."
1032 9320 PRINT "::: DEVICES :::"
1034 9340 PRINT "WARP ENGINES: "
1036 9360 PRINT "COURSE = A REAL NUMBER FROM 1 TO 8.99999."
1037 9370 PRINT "NUMBERS INDICATE DIRECTION STARTING AT THE RIGHT AND"
1038 9380 PRINT "GOING COUNTER CLOCKWISE:"
1043 9430 PRINT " 5---*---1"
1048 9480 PRINT "WARP FACTOR = A REAL NUMBER FROM 0 TO 12."
1049 9490 PRINT "DISTANCE TRAVELED = INTEGER (WARP FACTOR) QUADRANTS:"
1050 9500 PRINT " WARP .2 = THE ENTERPRISE TRAVELS 1 SECTOR."
1051 9510 PRINT " .5 = 4 SECTORS."
1052 9520 PRINT " 1 = 1 QUADRANT."
1053 9530 PRINT " 2 = 2 QUADRANTS."
1056 9550 PRINT "FOR EXAMPLE, IF YOU TRAVEL FROM:"
1057 9560 PRINT "QUADRANT 1 - 1, SECTOR 1 - 1, IN DIRECTION 1 AT WARP 2"
1058 9570 PRINT "YOU WOULD STOP AT"
1059 9580 PRINT "QUADRANT 1 - 3, SECTOR 1 - 1 IN THE NEXT STARDATE."
1061 9591 PRINT " WHEN YOU CHANGE QUADRANTS, HOWEVER, THE POSITIONS OF"
1062 9592 PRINT "ALL OBJECTS IN THE NEW QUADRANT (INCLUDING THE ENTERPRISE)"
1063 9593 PRINT "ARE RANDOMIZED TO SIMULATE 3-D TRAVEL."
1065 9600 PRINT "*** NOTE: EVERY USE OF THE WARP ENGINES TAKES ONE"
1066 9610 PRINT "STARDATE. IF THE ENTERPRISE IS BLOCKED BY SOMETHING"
1067 9620 PRINT "DURING INTRA-QUADRANT TRAVEL IT WILL STOP IN FRONT"
1068 9630 PRINT "OF IT (AND WASTE A STARDATE) ***"
1070 9632 PRINT "***NOTE: THERE IS A TIME PORTAL AVAILABLE BY TRAVELLING"
1071 9633 PRINT "AT WARP 12. YOU MAY BE CARRIED EITHER FORWARD OR"
1072 9634 PRINT "BACKWARD IN TIME, BUT THERE IS ALSO A .40 PROBABILITY"
1073 9635 PRINT "THAT YOU WILL BE DESTROYED IN A NUCLEAR IMPLOSION."
1074 9636 PRINT "A WARP FACTOR OF 12 MAY ONLY BE USED AFTER 15 SOLAR YEARS."
1076 9638 PRINT "***NOTE: IF THE ENTERPRISE RAMS A KLINGON VESSEL, EITHER"
1077 9639 PRINT "DELIBERATELY OR ACCIDENTLY, THE KLINGON WILL BE"
1078 9640 PRINT "DESTROYED AND THE ENTERPRISE HEAVILY DAMAGED."
1080 9650 PRINT "SHORT RANGE SENSORS:"
1082 9670 PRINT " THE SHORT RANGE SENSORS OF THE ENTERPRISE DISPLAY"
1083 9680 PRINT "A DETAILED VIEW OF THE QUADRANT IT IS CURRENTLY IN."
1084 9690 PRINT "THE ENTERPRISE LOOKS LIKE /E/ ON THE SCREEN."
1085 9700 PRINT "KLINGON BATTLE CRUISERS LOOK LIKE /K/ ON THE SCREEN."
1086 9710 PRINT "STARBASES LOOK LIKE /B/ AND STARS LOOK LIKE * ."
1087 9715 PRINT "THE KLINGONS MAY HAVE A POWERFUL COMMAND SHIP, /C/."
1089 9723 PRINT "***NOTE: DOCKING IS A TWO STEP PROCEDURE--FIRST YOU"
1090 9724 PRINT "MUST MOVE ADJACENT TO THE BASE. THEN CONDUCT A "
1091 9725 PRINT "SHORT RANGE SCAN."
1092 9726 PRINT "WHILE DOCKED, STARBASE SHIELDS PROTECT THE STARSHIP."
1094 9730 PRINT "***NOTE: CONDITION YELLOW MEANS YOU ARE DANGEROUSLY"
1095 9731 PRINT "LOW ON ENERGY AND SHOULD MAKE FOR A BASE POSTHASTE."
1097 9736 PRINT "EXPERIMENTAL DEATH RAY"
1099 9738 PRINT " THE EXPERIMENTAL DEATH RAY, AS ITS NAME IMPLIES,"
1100 9739 PRINT "IS UNPREDICTABLE. HOWEVER, ONE CAN CERTAINLY PREDICT"
1101 9740 PRINT "THAT, IN A GIVEN SITUATION, IT WILL DO WHATEVER IT"
1102 9741 PRINT "DAMN WELL PLEASES. THERE IS A GOOD PROBABILITY THAT IT"
1103 9742 PRINT "WILL DESTROY MANY KLINGONS, BUT THERE COULD BE SOME"
1104 9743 PRINT "INTERESTING SIDE EFFECTS. IT CAN PROBABLY ONLY BE"
1105 9744 PRINT "FIRED ONCE, BUT YOU NEVER KNOW. IT CANNOT BE USED UNTIL"
1106 9745 PRINT "18 SOLAR YEARS HAVE PASSED."
1108 9758 PRINT "LONG RANGE SENSORS:"
1110 9760 PRINT " THE LONG RANGE SENSORS OF THE ENTERPRISE DISPLAY"
1111 9770 PRINT "THE NUMBER OF OBJECTS IN THE 9 CLOSEST QUADRANTS,"
1112 9771 PRINT "WITH THE ENTERPRISE IN THE CENTRAL ONE."
1113 9780 PRINT "EACH DIGIT OF THE NUMBER IN EACH BOX MEANS SOMETHING:"
1114 9790 PRINT " THE ONES DIGIT REPRESENTS THE NUMBER OF STARS."
1115 9800 PRINT " TENS STARBASES."
1116 9810 PRINT " HUNDREDS KLINGONS."
1117 9812 PRINT " THOUSANDS SUPERNOVA."
1118 9820 PRINT "FOR EXAMPLE:"
1119 9830 PRINT "319 MEANS 3 KLINGONS, 1 STARBASE, AND 9 STARS."
1120 9840 PRINT "206 MEANS 2 KLINGONS, 0 STARBASES, AND 6 STARS."
1121 9850 PRINT "7 MEANS 0 KLINGONS, 0 STARBASES, AND 7 STARS."
1123 9861 PRINT "ENERGY SHIELDS:"
1125 9863 PRINT " WHILE THE ENERGY SHIELDS OF A STARSHIP ARE ACTIVATED,"
1126 9864 PRINT "KLINGON ATTACKS ARE NULLIFIED. EVERY TIME YOU MOVE WITH"
1127 9865 PRINT "YOUR SHIELDS UP, 200 UNITS OF ENERGY ARE USED."
1128 9866 PRINT "ALSO, SHIELD ACTIVATION ITSELF REQUIRES 200 UNITS."
1129 9867 PRINT "NOTE: YOU MUST LOWER YOUR SHIELDS TO ATTACK."
1131 9870 PRINT "PHASERS:"
1133 9890 PRINT " ANY PORTION OF THE ENERGY AVAILABLE CAN BE FIRED."
1134 9900 PRINT "THE BATTLE COMPUTER DIVIDES THIS AMOUNT AMONG THE"
1135 9901 PRINT "KLINGON CRUISERS IN THE QUADRANT AND DETERMINES"
1136 9902 PRINT "THE VARIOUS DIRECTIONS OF FIRE. THE EFFECTIVENESS"
1137 9903 PRINT "OF A HIT DEPENDS MOSTLY ON THE DISTANCE TO THE"
1138 9904 PRINT "TARGET. A KLINGON BATTLE CRUISER STARTS WITH"S9
1139 9905 PRINT "UNITS OF ENERGY. IT CAN FIRE AN AMOUNT EQUAL TO"
1140 9906 PRINT "WHATEVER ENERGY IT HAS LEFT."
1143 9909 PRINT "PHOTON TORPEDOES:"
1145 9911 PRINT " INITIALLY THE ENTERPRISE HAS"P0"PHOTON TORPEDOES."
1146 9912 PRINT "ONE TORPEDO DESTROYS WHATEVER IT HITS. THE RANGE"
1147 9913 PRINT "OF PHOTON TORPEDOES (LIKE PHASERS) IS LIMITED TO"
1148 9914 PRINT "THE CURRENT QUADRANT. THE COURSE OF A PHOTON TORPEDO"
1149 9915 PRINT "IS SET THE SAME WAY AS THAT OF THE ENTERPRISE."
1150 9916 PRINT "YOU MAY, IF YOU WISH, FIRE A SPREAD OF THREE TORPEDOES"
1151 9917 PRINT "AT ONCE. THERE IS A TIME LAG IN LAUNCHING THEM, THE ONE"
1152 9918 PRINT "WITH THE LOWEST NUMERICAL COURSE BEING FIRED FIRST."
1153 9919 PRINT "FOR EXAMPLE, A TORPEDO COURSE OF 3.49 WITH A SPREAD"
1154 9920 PRINT "ANGLE OF 0.24 WOULD FIRE TORPEDOES AT DIRECTIONS"
1155 9921 PRINT "3.25, 3.49, AND 3.73 ."
1157 9925 PRINT "DAMAGE CONTROL REPORT:"
1158 9926 PRINT " THE DAMAGE CONTROL REPORT LISTS THE MAIN DEVICES AND"
1159 9927 PRINT "THEIR STATE OF REPAIR. A NEGATIVE STATE OF REPAIR"
1160 9928 PRINT "INDICATES A DISABLES DEVICE. DEVICES CAN BE DAMAGED OR"
1161 9929 PRINT "REPAIRED BY A SPACE STORM OR TRUCE, RESPECTIVELY."
1162 9930 PRINT "ALSO, DAMAGED DEVICES ARE REPAIRED 2 UNITS EVERY STARDATE."
1164 9940 PRINT "COMMANDS:"
1170 9953 PRINT "P.S.--SAVE THIS COPY OF INSTRUCTIONS, SO THAT NEXT"
1171 9954 PRINT "TIME YOU WILL NOT NEED ADDITIONAL INSTRUCIONS AND"
1172 9955 PRINT "CAN PROCEED IMMEDIATELY TO PLAY."
1176 9961 PRINT "WHEN YOU ARE READY TO CONTINUE, TYPE 9:";
1187 9994 PRINT " DO YOU WISH TO PLAY AGAIN:";
1189 9996 IF A$ ="YES" THEN 5
1191 9998 PRINT " ** AVE ATQUE VALE **"