1000 COM A$[2*45],S$[N3*10],N$[16],W$[14*45],X[45],Y[45],B$[2] 1010 COM D$[1],R$[15],T9,N1,W1,O,F1,N2,N3,O1,O2,P1,P2,N4,P3 1020 ON O-22 GOTO 1090,1180,1240,1290,1410,1590,1450 1030 PRINT R$;": MR SULU, DROP SHIELDS, CUT WARP! LIEUTENANT UHURA," 1040 IF P1=0 THEN 1070 1050 PRINT "SPOCK: WE HAVE ALREADY TRIED THAT AGAINST THE ";N$[1,9];"S" 1060 GOTO 1440 1070 LET P1=1,S$[5*13,4*17]="",W$[4,4]="" 1080 GOTO 1440 1090 PRINT R$;": LIEUTENANT UHURA, OPEN A CHANNEL TO THE ";N$[1,9];"S\^UHURA:"; 1100 PRINT " AYE,SIR\^";R$;": THIS IS CAPTAIN ";R$;" OF THE USS ENTERPRISE" 1110 PRINT " WILL YOU ACCEPT MY UNCONDITIONAL SURRENDER?" 1120 IF N$[1,1]<>"R" THEN 1150 1130 PRINT "SPOCK: THE ROMULANS HAVE NOT BEEN KNOWN TO HAVE TAKEN SURIVIORS" 1140 GOTO 1440 1150 IF P3 THEN 1050 1160 LET P3=1 1170 GOTO 1440 1180 PRINT R$;": LIEUTENANT UHURA, OPEN A HAILING FREQUENCY TO THE ";N$[1,9];"S" 1190 PRINT "UHURA: AYE, SIR\^";R$;": THIS IS CAPTAIN ";R$;" OF THE USS ENTERPR 1200 PRINT " YOU HAVE ONE LAST CHANCE TO SURRENDER BEFORE WE RESUME OUR ATTACK 1210 IF P2 THEN 1050 1220 LET P2=1 1230 GOTO 1440 1240 PRINT R$;": COMPUTER, VERIFY PERSONEL, INITIATE DESTRUCT SEQUENCE" 1250 IF S$[11,11]=" THEN 1320 1260 PRINT "COMPUTER: VERFICATION OF PERSONEL COMPLETED\^ 15 SECONDS TO DESTR 1270 LET W$[12,12]="" 1280 GOTO 1440 1290 PRINT R$;": COMPUTER, VERIFY PERSONEL, ABORT DESTRUCT SEQUENCE" 1300 PRINT " REPEAT, ABORT DESTRUCT SEQUENCE\^COMPUTER: DESTRUCT SEQUENCE ... 1310 IF S$[11,11]="" THEN 1350 1320 PRINT "\^SPOCK: OUR COMPUTER IS DEAD, CAPTAIN!" 1330 LET O=0 1340 GOTO 1440 1350 IF W$[12,12]>"" THEN 1380 1360 PRINT "\^SPOCK: TOO LATE, CAPTAIN..." 1370 GOTO 1440 1380 PRINT "ABORTED. DESTRUCT ORDER ABORTED." 1400 GOTO 1440 1410 PRINT R$;": MR. SPOCK, TIE IN THE M-5 CONTROL" 1420 IF S$[11,11]=" THEN 1320 1429 IF W$[11,11]<"4" THEN 1438 1430 PRINT "SPOCK: M-5 CONTROL FULLY OPERATIONAL" 1437 GOTO 1440 1438 LET O=0 1439 PRINT "SPOCK: WE ARE NOT PURSUING ANYONE, CAPTAIN!" 1440 CHAIN #1;"$TREK4" 1450 PRINT "\^CODE","COMMAND^\^" 1460 PRINT 1,"FIRE PHASERS\^";2,"FIRE PHOTON TORPEDOS\^";3,"LOCK PHASERS ONTO TA 1470 PRINT "RGET\^";4,"LOCK TUBES ONTO TARGET\^";5,"MANUALLY ROTATE PHASERS\^";6 1480 PRINT "MANUALLY ROTATE TUBES\^";7,"PHASER STATUS\^";8,"TUBE STATUS\^";9,"LO 1490 PRINT "/UNLOAD TORPEDOS TUBES\^";10,"LAUNCH ANTIMATTER PROBE\^^";11,"PROBE" 1500 PRINT " CONTROL\^";12,"* POSITION REPORT\^";13,"* POSITION DISPLAY\^"; 1510 PRINT 14,"PURSUE AN ENEMY VESSEL\^";15,"RUN FROM AN ENEMY VESSEL\^";16, 1520 PRINT "MANUALLY CHANGE COURSE AND SPEED\^";17,"DAMAGE REPORT\^";18,"SCAN EN 1530 PRINT "EMY (DAMAGE REPORT OF ENEMY)\^";19,"ALTER POWER DISTRIBUTION\^";20, 1540 PRINT "JETTISON ENGINEERING\^^";21,"DETONATE ENGINEERING\^";22,"ATTEMPT DEF 1550 PRINT "ENSELESS RUSE\^";23,"SURRENDER\^";24,"ASK ENEMY TO SURRENDER\^";25, 1560 PRINT "INITIATE SELF-DESTRUCT\^";26,"ABORT SELF-DESTRUCT\^";27,"M-5 CONTROL 1570 PRINT 28,"* SURVIVORS REPORT\^";29,"* REPRINTS ABOVE LIST\^^* DOES NOT USE 1580 CHAIN #1;"$TREK0" 1590 PRINT ,"^SURVIVORS" 1600 FOR X=1 TO N1+1 1610 PRINT S$[X*N3-8*9,X*N3-7*9];":"," "; 1620 LET D$=S$[X*N3-57] 1630 IF W$[X*14-12,X*14-12]<>CHR(X) THEN 1670 1640 IF ASC(D$) THEN PRINT INT(ASC(D$)*18/5+9/10) 1650 IF ASC(D$)=0 THEN PRINT "NONE" 1660 GOTO 1680 1670 PRINT "DEAD" 1680 NEXT X 1690 GOTO 1580