5 ON ERROR GOTO 1650
6 X1$=SYS(CHR$(6%)+CHR$(-7%))
7&"WRITTEN BY ERIC MARK RINTELL
8&"DEDICATED TO RACHEL WALLACH, MARC PARKER, AND MR. D
10 RANDOMIZE
20 !BY ERIC MARK RINTELL
25 !ORGINAL IDEA BY ERIC MARK RINTELL '78
30 !DEDICATED TO RACHEL WALLACH
40 INPUT"INSTRUCTIONS";I$:IFLEFT(I$,1)="N"THEN190
50 CHAIN"[81,27]INSTR"
190 D=0:D1=0:S1=(8*RND(0))+1:S2=4.5:B=0:B1=0:R1=0
191 N1=5:N2=9:N3=7:Q=2
192 N4=0:S3=0
193 Q1=0
250 INPUT"YOUR X,Y,Z COORDINATES";X ,Y ,Z 
265 IFX<=0ORX>1000THENINPUT"X COORDINATE";X:GOTO265
270 IFY<=0ORY>1000THENINPUT"Y COORDINATE";Y:GOTO265
275 IFZ<=0ORZ>1000THENINPUT"Z COORDINATE";Z:GOTO265
276 IFN4=1THENN4=0:GOTO954
280 K1=INT(RND(0)*1000+1):K2=INT(RND(0)*1000+1):K3=INT(RND(0)*1000+1)
290 INPUT"DO YOU WANT A COMMAND CHART";C1$:IFLEFT(C1$,1)="N"THEN360
300 &"COMMAND #","COMMAND":&"1","FIRE PHASERS":&"2","FIRE ANTI-MATTER MI
SSILES"
310 &"3","FIRE PHOTON TORPEDOES":&"4","SELF-DESTRUCT"
320 &"5","CHANGE VELOCITY":&"6","RINTELLY":&"7","SCAN"
330 &"8","MOVE":&"9","EXIT GAME":&"10","STATISTICS"
340 &"-";FORI=1TO72
350 &FORI=1TO10
360 INPUT"YOUR NAME";A$:&
370 &"SPOCK:  CAPTAIN "A$", OUR SENSORS ARE PICKING UP ANOTHER SHIP"
380 &"CHEKOV:  SENSORS CONFIRM IT!!!"
390 &"SULU:  I'LL PUT OUR WEAPONS ON STANDBY, CAPTAIN "A$
400 &"SPOCK:  SIR, IT'S THE KLINGON SHIP 'RACHEL WALLACH'..CAPTAIN DOWNE
410 &"        'THE KILLER' LAST KNOWN IN COMMAND"
420 &"CHEKOV:  OUR PRESENT DAMAGE IS"D
425 S1=S1-.0065UNLESSS1<1.1
430 &"SULU:  OUR VELOCITY IS "S1
440 &"SPOCK:  WHAT ACTION SHOULD WE TAKE?
480 &"YOUR COMMAND, CAPTAIN ";A$;:WAIT 5:INPUTA:IFA<=0ORA>10THEN530
490 ONAGOTO500,540,570,710,780,800,810,870,890,900
500 &A$;":  FIRE THOSE PHASERS"
    :P1=9
    :IFN1=0THEN520
510 N1=N1-1
    :GOSUB600
    :GOTO960
520 &"SULU:  PHASERS ARE DRAINED"
530 &"SPOCK:  ANOTHER COURSE OF ACTION IS RECOMMENDED":GOTO480
540 &A$;":  LAUNCH ANTI-MATTER MISSILES"
    :P1=3
    :IFN2=0THEN560
550 N2=N2-1
    :GOSUB600
    :GOTO960
560 &"SCOTTY:  THE ENGINES CAN'T LAUNCH ANTI-MATTER MISSILES":GOTO530
570 &A$;":  SHOOT THE PHOTON TORPEDOES"
    :P1=6
    :IFN3=0THEN590
580 N3=N3-1
    :GOSUB600
    :GOTO960
590 &"CHEKOV:  ALL PHOTON TORPEDOS EXPENDED":GOTO530
600 &"CHEKOV:  X,Y,Z COORDINATES TO SHOOT AT
605 &A$;
    :WAIT 500
    :INPUT K4,K5,K6
610 K7=ABS(K1-K4)
    :K8=ABS(K2-K5)
    :K9=ABS(K3-K6)
    :E1=K7+K8+K9
611 IFE1>=26THENE3=0:GOTO685
615 IFE1=0THEN&"SPOCK:  A DIRECT HIT":E3=E3+3
617 IFE1=0THEN&CHR$(7%);FORI=1TO7:&CHR$(13%);
620 IFE1<25THENE3=E3+1
625 IFE1<20THENE3=E3+1
640 IFE1<15THENE3=E3+1
650 IFE1<10THENE3=E3+1
660 IFE1<5THENE3=E3+2
666 IFE3<P1THEN&"CHEKOV:  WE'RE OUT OF RANGE":GOTO530
680 D1=D1+((E3/S2)*P1):E3=0
685 &"SULU:  KLINGON DAMAGE IS "D1
690 IFD1>100THEN&CHR$(7%);FORI=1TO15:&CHR$(13);
     :&"SPOCK:  KLINGON DESTROYED"
     :&"UHURA:  GARBLED MESSAGE FROM KLINGON"
     :&"DOWNE:  I'MMM DYYYINNNNGG..."
     :&CHR$(7%);FORI=1TO15:&CHR$(13%);:GOTO890
700 RETURN
710 &A$;":  I ORDER SELF-DESTRUCT"
711 &"BONES:  "A$", YOU DIRTY SON OF A $ &#'()<>]["
720 &"SPOCK:  LOGICAL, CAPTAIN, BUT SELF-DESTRUCT FAILSAFE ACTIVATED"
730 &"CHEKOV:  INPUT 1 TO RELEASE FAILSAFE, 0 TO STAY IN GAME"
740 &A$;
    :WAIT 500
    :INPUTU
    :IFU=0THEN960
750 &"SPOCK:  SELF-DESTRUCT ACTIVATED"
    :D1=D1+((11/S2)*10)
    :IFD1>100THEN770
760 &"CHEKOV:  DOWNE WILL SURVIVE WITH ";D1;"DAMAGE":GOTO890
770 &"CHEKOV:  ENEMY VESSEL WILL ALSO BE DESTROYED":GOTO890
780 &A$;":  CHANGE SPEED":&"CHEKOV:  NEW VELOCITY, SIR
790 &A$;
    :WAIT 5
    :INPUTS3
    :IFS3<1.1THEN791ELSE
     IFS3>8.5THEN792ELSE
     793
791 &"SCOTTY:  THAT'S TOO SLOW, CAPTAIN "A$":GOTO530
792 &"SCOTTY:  MY ENGINES CAN'T TAKE THAT SPEED, SIR":GOTO530
793 &"SCOTTY:  WARP"S3", SIR"
    :S1=S3
    :S3=0
    :GOTO960
800 &A$;":  WAIT FOR THEIR MOVE":GOTO960
810 &A$;":  SCAN THE AREA":&"CHEKOV:  COORDINATES OF SCAN (X,Y,Z)"
820 &A$;
    :WAIT500
    :INPUTL1,L2,L3
    :&"SULU:  RESULTS SHOW ";
830 IFK1>L1THEN&"X>";L1;ELSEIFK1<L1THEN&"X<";L1;ELSE&"X=";L1;
840 IFK2>L2THEN&"Y>";L2;ELSEIFK2<L2THEN&"Y<";L2;ELSE&"Y=";L2;
850 IFK3>L3THEN&"Z>";L3ELSEIFK3<L3THEN&"Z<";L3ELSE&"Z=";L3
860 GOTO960
870 &A$;":  LET'S GET OUT OF HERE":&"SULU:  NEW X,Y,Z COORDINATES"
880 IFD>70THEN951ELSE952
890 WAIT500:INPUT"ANOTHER BATTLE";B1$:IFLEFT(B1$,1)="N"THEN32767ELSE190
900 &A$;":  SPOCK, GET ME STATISTICS":&"SPOCK:  I NOW HAVE THEM"
910 &TAB(5);"OUR X,Y,Z COORDINATES ARE "X","Y","Z
920 &TAB(5);"OUR VELOCITY IS NOW "S1:&TAB(5);"DAMAGE ="D
930 &"  AMOUNT OF PHASER FIRING LEFT "N1
940 &"  ANTI-MATTER MISSILES LEFT ="N2
950 &"  PHOTON TORPEDOES=";N3:&"ENEMY DAMAGE=";D1:GOTO420
951 &"SCOTTY:  MY ENGINES ARE TOO DAMAGED":GOTO530
952 Q1=Q1+1
    :IFQ1>5THEN951
953 &A$;
    :WAIT 500
    :INPUTX,Y,Z
    :B1=1
    :N4=1
    :GOTO265
954 &"SCOTTY:  WE'RE GOING
955 !KLINGONS MOVE
960 IFB >=1 THEN1020
961 IFQ =2 THENGOSUB1610
962 IFQ =3 THENGOSUB1620
970 X1=X-500:Y1=Y-500:Z1=Z-500
980 IFX1=0THENB =60 ELSEIFSGN(X1)=1THENB =2 ELSEB =1 
990 IFY1=0THENB2 =60 ELSEIFSGN(Y1)=1THENB2 =2 ELSEB2 =1 
1000 IFZ1=0THENB3 =60 ELSEIFSGN(Z1)=1THENB3 =2 ELSEB3 =1 
1001 X1=500IFB=60
1002 Y1=500IFB2=60
1003 Z1=500IFB3=60
1010 GOTO420
1020 IFB1>0THENB1=0:B=0:GOTO960
1025 IFQ =2 THENGOSUB1610
1026 IFQ=3 THENGOSUB1620
1030 IFB=60THENGOSUB1410
1031 IFB>2THEN1120
1040 IFB=1THENX2=ABS(X1)-250:IFSGN(X2)=0THENB =56 ELSEIFSGN(X2)=-1THENB 
=3 ELSEB =4 
1050 IFB =2 THENX2=X1+750:IFX2=1000THENB =57 ELSEIFX2<1000THENB =5 ELSEB
 =6 
1060 GOSUB1410IFB2=60
1070 IFB2 =1 THENY2=ABS(Y1)-250:IFSGN(Y2)=0THENB2 =56 ELSEIFSGN(Y2)=-1TH
ENB2 =3 ELSEB2 =4 
1080 IFB2 =2 THENY2=Y1+750:IFY2=100THENB2 =57 ELSEIFY2<1000THENB2 =5 ELS
EB2 =6 
1090 IFB3 =60 THENGOSUB1410
1100 IFB3 =1THENZ2=ABS(Z1)-250:IFSGN(Z2)=0THENB3 =56 ELSEIFSGN(Z2)=-1THE
NB3 =3 ELSEB3 =4 
1110 IFB3 =2 THENZ2=Z1+750:IFZ2=1000THENB3 =57 ELSEIFZ2<1000THENB3 =5 EL
SEB3 =6 
1111 GOTO420
1120 IFB1>0THENB1=0:B=0:GOTO960
1125 IFQ =2 THENGOSUB1610
1126 IFQ =3 THENGOSUB1620
1130 IFB>6ANDB<56ORB=60THEN1300
1140 IFB=56THENX1=250:B=60
1141 IFB=57THENX1=750:B=60
1150 IFB=3THENX1=250:B=7
1160 IFB=4THENX1=250:B=8
1170 IFB=5THENX1=750:B=8
1180 IFB=6THENX1=750:B=7
1181 IFB2=56THENY1=250:B2=60
1182 IFB2=57THENY1=750:B2=60
1190 IFB2=3THENY1=250:B2=7
1200 IFB2=4THENY1=250:B2=8
1210 IFB2=5THENY1=750:B2=8
1220 IFB2=6THENY1=750:B2=7
1230 IFB3=56THENZ1=250:B3=60
1240 IFB3=57THENZ1=750:B3=60
1250 IFB3=3THENZ1=250:B3=7
1260 IFB3=4THENZ1=250:B3=8
1270 IFB3=5THENZ1=750:B3=8
1280 IFB3=6THENZ1=750:B3=7
1290 GOTO420
1300 IFB1>0THENB1=0:B=0:GOTO960
1305 IFQ =2 THENGOSUB1610
1306 IFQ =3 THENGOSUB1620
1310 IFB >=55 THENGOSUB1410
1320 IFB=7THENX1=X1+1UNTILX1=X:B=55
1330 IFB=8THENX1=X1-1UNTILX1=X:B=55
1340 IFB2 >=55 THENGOSUB1410
1350 IFB2=7THENY1=Y1+1UNTILY1=Y:B2=55
1360 IFB2=8THENY1=Y1-1UNTILY1=Y:B2=55
1370 IFB3 >=55 THENGOSUB1410
1380 IFB3=7THENZ1=Z1+1UNTILZ1=Z:B3=55
1390 IFB3=8THENZ1=Z1-1UNTILZ1=Z:B3=55
1400 GOTO420
1410 IFB1>0THENB1=0:B=0:GOTO960
1411 IFQ =2 THENGOSUB1610
1412 IFQ =3 THENGOSUB1620
1414 IFX1<>XTHENRETURN
1420 IFY1<>YTHENRETURN
1430 IFZ1<>ZTHENRETURN
1480 &CHR$(7%);FORI=1TO7:&CHR$(13%);
1481 A2=INT(12*RND(0))+1:&"CHEKOV:  A HIT IN SHIELD "A2:R1=R1+1
1490 A3=INT(3*RND(0))+1:IFA3=1THENP2=9:R2$="PHASERS"
1500 IFA3=2THENP2=3:R2$="ANTI-MATTER MISSILES"
1510 IFA3=3THENP2=6:R2$="PHOTON TORPEDOES"
1520 IFR1=20THEN&"SPOCK:  KLINGON SELF-DESTRUCT":GOTO890
1580 D=D+((9/S1)*P2)
1590 IFD>100THEN&CHR$(7%);FORI=1TO15:&CHR$(13%);
      :&"DOWNE:  YOU HAVE BEEN DESTROYED, "A$
      :&A$;":  DOWNE, YOU REALLY STINK!!"
      :&CHR$(7%);FORI=1TO15:&CHR$(13%);:GOTO890
1600 &"SPOCK:  WE'RE BEING FIRED AT BY ";R2$:GOTO420
1610 IFD1>33THEN1630ELSERETURN
1620 IFD1<66THENRETURN
1630 K1=INT(RND(0)*1000+1):K2=INT(RND(0)*1000+1):K3=INT(RND(0)*1000+1)
1640 Q=Q+1:GOTO420
1650 IFERR=28THENRESUME1660ELSEIFERR=15THENRESUME1670ELSEONERRORGOTO0
1660 &CHR$(7%);FORI=1TO5:&CHR$(13);:&"DOWNE:  LISTEN "A$", YOU CREEP--DO
N'T TRY TO"
1661 &"        CHEAT ME BY ^C; NOW I'LL MOVE, BOOB!!!"
1662 SLEEP 5
1663 X1$=SYS(CHR$(6%)+CHR$(-7%)):GOTO960
1670 &CHR$(7%);FORI=1TO5:&CHR$(13%):&"DOWNE:  "A$", YOU WAITED TOO LONG-
-I'LL MOVE":GOTO960
32767 END

READY