Source Code
50 SLOW
60 LET SX=90
70 GOSUB 3800
80 LET HI=0
90 FAST
100 GOSUB 1000
110 GOSUB 1220
120 GOTO 2000
600 PRINT AT 21,0;"% % % %P%R%E%S%S% %N%E%W%L%I%N%E% %T%O% %C%O%N%T%I%N%U%E% % % % "
610 INPUT Z$
620 CLS
630 RETURN
\n1000 LET E=500
\n1002 LET ZX=20
\n1005 LET SD=0
\n1006 LET K=0
\n1010 LET S1=0
\n1020 LET C=1
\n1021 LET N=5
\n1022 LET M=N
\n1024 GOSUB 1200
\n1030 LET X=A
\n1040 LET Y=B
\n1050 LET X1=A
\n1060 LET Y1=B
\n1070 LET T=5
\n1074 RAND
\n1080 DIM G(N,M)
\n1090 DIM S(N,M)
\n1100 FOR I=1 TO 40
\n1110 GOSUB 1200
\n1120 LET G(A,B)=G(A,B)+1
\n1130 NEXT I
\n1140 FOR I=1 TO 15
\n1150 GOSUB 1200
\n1160 LET G(A,B)=G(A,B)+10
\n1165 NEXT I
\n1170 FOR I=1 TO 2
\n1180 GOSUB 1200
\n1190 LET G(A,B)=G(A,B)+100
\n1195 NEXT I
\n1199 RETURN
\n1200 LET A=INT (RND*N)+1
\n1202 LET B=INT (RND*M)+1
\n1210 RETURN
\n1220 LET SB=INT (G(X,Y)/100)
\n1230 LET KL=INT ((G(X,Y)-SB*100)/10)
\n1240 LET SA=G(X,Y)-(SB*100+KL*10)
\n1250 FOR I=1 TO N
\n1260 FOR J=1 TO M
\n1270 LET S(I,J)=0
\n1280 NEXT J
\n1290 NEXT I
\n1300 LET S(X1,Y1)=1
\n1310 IF SB=0 THEN GOTO 1400
\n1320 FOR I=1 TO SB
\n1330 GOSUB 1200
\n1340 IF S(A,B)<>0 THEN GOTO 1330
\n1350 LET S(A,B)=4
\n1360 NEXT I
\n1400 IF KL=0 THEN GOTO 1500
\n1410 FOR I=1 TO KL
\n1420 GOSUB 1200
\n1430 IF S(A,B)<>0 THEN GOTO 1420
\n1440 LET S(A,B)=3
\n1450 NEXT I
\n1500 IF SA=0 THEN GOTO 2000
\n1510 FOR I=1 TO SA
\n1520 GOSUB 1200
\n1530 IF S(A,B)<>0 THEN GOTO 1520
\n1540 LET S(A,B)=2
\n1550 NEXT I
\n1560 RETURN
\n2000 CLS
\n2010 FAST
\n2100 PRINT AT 0,0;"%S%H%O%R%T% %R%A%N%G%E% %S%C%A%N% % % % % % "
\n2130 IF K=15 THEN GOTO 6000
\n2140 PRINT "\@@\@@%1\@@%2\@@%3\@@%4\@@%5\@@\@@"
\n2150 LET C=1
\n2151 FOR I=1 TO N
\n2152 PRINT AT I*2-1,0;"\@@\@@";AT I*2-1,11;"\@@\@@"
\n2160 PRINT AT I*2,0;I;"\@@";AT I*2,11;"\@@";I
\n2170 FOR J=1 TO M
\n2180 IF S(J,I)=0 THEN PRINT AT I*2,J*2;" ";
\n2190 IF S(J,I)=1 THEN PRINT AT I*2,J*2;"%E";
\n2200 IF S(J,I)=2 THEN PRINT AT I*2,J*2;"*";
\n2210 IF S(J,I)=3 THEN PRINT AT I*2,J*2;"+";
\n2220 IF S(J,I)=4 THEN PRINT AT I*2,J*2;"X";
\n2222 IF C>2 THEN GOTO 2230
\n2225 IF S(J,I)=3 THEN LET C=3
\n2226 IF S(J,I)=4 THEN LET C=2
\n2230 NEXT J
\n2240 NEXT I
\n2245 PRINT AT 11,0;"\@@\@@%1\@@%2\@@%3\@@%4\@@%5\@@\@@"
\n2248 IF E<50 THEN LET C=4
\n3000 PRINT AT 0,ZX;"%C%O%N%D%I%T%I%O%N% % % ";
\n3002 LET SD=SD+1
\n3003 PRINT AT 1,20;"% % % % % % % % % % % % ";AT 2,20;"\@@\@@\@@\@@\@@\@@\@@\@@\;;\@@\@@\@@";AT 9,20;"\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@\@@"
\n3010 IF C=1 THEN PRINT AT 1,20;"%G%R%E%E%N"
\n3020 IF C=2 THEN PRINT AT 1,20;"%A%M%B%E%R"
\n3030 IF C=3 THEN PRINT AT 1,20;"%R%E%D"
\n3040 IF C=4 THEN PRINT AT 1,20;"%C%R%I%T%I%C%A%L"
\n3050 IF C=4 THEN GOTO 5500
\n3060 PRINT AT 3,20;"%E%N%E%R%G%Y% % ";INT (E)
\n3070 PRINT AT 4,20;"%S%H%E%I%L%D%S% ";S1
\n3080 PRINT AT 5,20;"%T%O%R%P%E%D%O%E%S";T
\n3090 PRINT AT 6,20;"%S%E%C%T%O%R% % ";X;"\##";Y
\n3100 PRINT AT 7,20;"%S%T%A%R%D%A%T%E";SD+3200
\n3110 PRINT AT 8,20;"%K%L%I%N%G%O%N%S";15-K;" "
\n3111 IF SD>SX THEN GOTO 5100
\n3112 SLOW
\n3113 IF K=15 THEN GOTO 6000
\n3114 GOSUB 4100
\n3120 LET A$=INKEY$
\n3130 IF CODE (A$)>27 AND CODE (A$)<36 THEN GOTO (((CODE (A$)-29)*100)+3200)
\n3135 PRINT AT Y1*2,X1*2;" "
\n3136 LET S(X1,Y1)=0
\n3140 LET X1=X1+(INKEY$="D" AND X1<M)-(INKEY$="A" AND X1>1)
\n3142 LET Y1=Y1+(INKEY$="X" AND Y1<N)-(INKEY$="W" AND Y1>1)
\n3145 PRINT AT Y1*2,X1*2;
\n3150 IF PEEK (PEEK 16398+256*PEEK 16399)<>0 THEN GOTO 5000
\n3154 PRINT AT Y1*2,X1*2;"%E"
\n3155 LET E=E-1
\n3156 LET S(X1,Y1)=1
\n3157 PRINT AT 3,28;INT E;" "
\n3158 IF E<1 THEN GOTO 5500
\n3159 IF RND>.7 AND C=3 THEN GOSUB 4000
\n3160 GOTO 3120
\n3200 PRINT AT 17,0;"%W%A%R%P% %D%R%I%V%E% %E%N%G%A%G%E%D"
\n3201 PRINT "%E%N%T%E%R% %S%E%C%T%O%R% %C%O%O%R%D%I%N%A%T%E%S"
\n3210 INPUT A
\n3220 LET X=INT (A/10)
\n3230 LET Y=A-X*10
\n3240 IF X<1 OR X>M OR Y<1 OR Y>N THEN GOTO 3000
\n3250 LET E=E-5
\n3260 GOSUB 1200
\n3270 LET X1=A
\n3280 LET Y1=B
\n3290 GOSUB 1220
\n3292 GOTO 2000
\n3300 CLS
\n3301 FAST
\n3302 PRINT "%L%O%N%G% %R%A%N%G%E% %S%C%A%N"
\n3310 PRINT "\@@\@@\@@\@@\@@%1\@@\@@\@@\@@%2\@@\@@\@@\@@%3\@@\@@\@@\@@%4\@@\@@\@@\@@%5\@@\@@\@@\@@\@@\@@"
\n3320 FOR I=1 TO N
\n3321 PRINT AT I*2-1,0;"\@@\@@\@@";AT I*2-1,30;"\@@\@@"
\n3330 PRINT AT I*2,0;"\@@";I;"\@@";AT I*2,30;"\@@\@@"
\n3340 FOR J=1 TO M
\n3350 PRINT AT I*2,J*5;G(J,I);
\n3355 IF G(J,I)<100 THEN PRINT " ";
\n3360 IF G(J,I)<10 THEN PRINT " ";
\n3370 NEXT J
\n3380 NEXT I
\n3381 PRINT AT 11,0;"\@@\@@\@@\@@\@@%1\@@\@@\@@\@@%2\@@\@@\@@\@@%3\@@\@@\@@\@@%4\@@\@@\@@\@@%5\@@\@@\@@\@@\@@\@@"
\n3382 PRINT AT 20,0;"%E%N%T%E%R%P%R%I%S%E% %I%N% %S%E%C%T%O%R% ";X;"\##";Y
\n3383 PRINT AT 16,0;"%K%E%Y% %T%O% %T%O%N%G% %R%A%N%G%E% %S%C%A%N%N%E%R";AT 17,0;"123 = 1 STARBASE, 2 KLINGONS AND 3 STARS IN THIS SECTOR."
\n3385 SLOW
\n3390 PAUSE 1000
\n3399 GOTO 2000
\n3400 IF T>0 THEN GOTO 3405
\n3402 PRINT AT 17,0;"%O%U%T% %O%F% %P%H%O%T%O%N% %T%O%R%P%E%D%O%E%S"
\n3404 GOTO 3494
\n3405 LET T=T-1
\n3406 PRINT AT 15,0;"%P%H%O%T%O%N% %T%O%R%P%E%D%O% %A%R%M%E%D"
\n3407 PRINT AT 15,22;"4";AT 16,21;"3:5";AT 17,20;"2-X-6";AT 18,21;"1:7";AT 19,22;"0"
\n3408 PRINT AT 17,0;"%E%N%T%E%R% %L%A%U%N%C%H% %A%N%G%L%E"
\n3409 INPUT A
\n3410 IF A<0 OR A>7 THEN GOTO 3409
\n3412 PRINT "%T%R%A%C%K%I%N%G% %T%O%R%P%E%D%O"
\n3415 LET TX=X1
\n3416 LET TY=Y1
\n3420 PRINT TX;"%>";TY;"%/";
\n3422 IF S(TX,TY)<2 THEN GOTO 3450
\n3424 IF S(TX,TY)=2 THEN PRINT AT 21,0;"%S%T%A%R% %H%I%T"
\n3425 IF S(TX,TY)=2 THEN GOTO 3495
\n3426 IF S(TX,TY)=3 THEN PRINT AT 21,0;"%K%L%I%N%G%O%N% %D%E%S%T%R%O%Y%E%D"
\n3427 IF S(TX,TY)=3 THEN LET G(X,Y)=G(X,Y)-10
\n3428 IF S(TX,TY)=3 THEN LET KL=KL-1
\n3429 IF S(TX,TY)=3 THEN LET K=K+1
\n3430 IF S(TX,T%Y)=4 THEN GOSUB 4100
\n3432 IF S(TX,TY)=4 THEN PRINT AT 14,0;"%S%P%O%C%K% %T%O% %C%A%P%T%A%I%N%:% %Y%O%U% %H%A%V%E% %J%U%S%T% %D%E%S%T%R%O%Y%E%D% %A% %F%E%D%E%R%A%T%I%O%N% %S%T%I%R%B%A%S%E% %I%S% %T%H%I%S% %A% %P%L%O%Y% %T%O% %F%O%O%L% %T%H%E% % % % % % %K%L%I%N%G%O%N%S% % %O%R% %H%A%S% %T%H%E% %S%T%R%A%I%N% %O%F% % %B%E%I%N%G% %A% %S%T%A%R%S%H%I%P% %C%A%P%T%A%I%N% %D%R%I%V%E%N% %Y%O%U% %M%A%D%.%.%."
\n3435 IF S(TX,TY)=4 THEN LET G(X,Y)=G(X,Y)-100
\n3440 LET S(TX,TY)=0
\n3441 GOTO 3495
\n3450 LET TX=TX+(A=5)+(A=6)+(A=7)-(A=1)-(A=2)-(A=3)
\n3455 LET TY=TY+(A=0)+(A=1)+(A=7)-(A=3)-(A=4)-(A=5)
\n3460 IF TY<1 OR TY>N OR TX<1 OR TX>M THEN GOTO 3490
\n3465 GOTO 3420
\n3490 PRINT AT 21,0;"%M%I%S%S%E%D"
\n3493 IF KL>0 THEN GOSUB 4000
\n3494 GOTO 3000
\n3499 GOTO 2150
\n3500 PRINT AT 17,0;"%P%H%A%S%E%R%S% %R%E%A%D%Y"
\n3502 PRINT "%E%N%T%E%R% %T%A%R%G%E%T% %A%N%G%L%E"
\n3503 PRINT AT 15,22;"4";AT 16,21;"3:5";AT 17,20;"2-X-6";AT 18,21;"1:7";AT 19,22;"0"
\n3505 INPUT A
\n3506 IF A<0 OR A>7 THEN GOTO 3505
\n3520 LET TX=X1
\n3522 LET TY=Y1
\n3524 LET E=E-15
\n3528 IF S(TX,TY)<2 THEN GOTO 3550
\n3530 IF S(TX,TY)=2 THEN PRINT "%S%T%A%R% %H%I%T"
\n3535 IF S(TX,TY)=2 THEN GOTO 359
\n3538 IF S(TX,TY)>3 THEN PRINT "%S%T%A%R% %B%A%S%E% %H%I%T"
\n3539 IF S(TX,TY)>3 THEN GOTO 3595
\n3540 PRINT "%K%L%I%N%G%O%N% %H%I%T% ";
\n3541 IF RND>.5 THEN GOTO 3549
\n3542 PRINT "%A%N%D% %D%E%S%T%R%O%Y%E%D"
\n3543 LET KL=KL-1
\n3544 LET S(TX,TY)=0
\n3545 LET G(X,Y)=G(X,Y)-10
\n3546 LET K=K+1
\n3547 GOTO 2150
\n3549 GOTO 3595
\n3550 LET TX=TX+(A=5)+(A=6)+(A=7)-(A=1)-(A=2)-(A=3)
\n3555 LET TY=TY+(A=0)+(A=1)+(A=7)-(A=3)-(A=4)-(A=5)
\n3560 IF TY<1 OR TY>N OR TX<1 OR TX>M THEN GOTO 3590
\n3565 GOTO 3528
\n3590 PRINT "%M%I%S%S%E%D"
\n3595 IF KL>0 AND RND>.4 THEN GOSUB 4000
\n3599 GOTO 3000
\n3600 PRINT AT 17,0;"%E%N%T%E%R% %E%N%E%R%G%Y% %S%U%P%P%L%I%E%D% %T%O% %S%H%E%I%L%D%S"
\n3602 INPUT S
\n3603 IF S<0 OR S>100 AND E>10 THEN GOTO 3602
\n3604 LET E=E+(S1-S)
\n3605 LET S1=S
\n3606 PRINT AT 4,28;INT S1;" "
\n3608 PRINT AT 3,28;INT (E);" "
\n3610 GOTO 3000
\n3700 GOSUB 4200
\n3710 GOTO 3114
\n3790 RETURN
\n3800 CLS
\n3918 PRINT AT 0,12;"%S%T%A%R%T%R%E%K";AT 10,4;"%T%H%E% %S%T%A%R%S%H%I%P% %E%N%T%E%R%P%R%I%S%E"
\n3919 PRINT AT 5,6;"-\.:\@@%E\@@\;;\;;\:. \. \:'% % % ";AT 4,7;" \.'\''\''\''\'.";AT 6,8;"\'.\!!\!!\!!% % \:. \.:% \!!\!!\~~";AT 7,13;"\~~\;;\;;\;;\~~\~~"
\n3930 PRINT AT 21,0;"%D%O% %Y%O%U% %W%A%N%T% %I%N%S%T%R%U%C%I%O%N%S% %(%Y% %O%R% %N%)"
\n3932 INPUT Z$
\n3934 IF Z$<>"Y" THEN RETURN
\n3950 CLS
\n3951 PRINT "%S%T%A%R%T%R%E%K% %I%N%S%T%R%U%C%T%I%O%N%S"
\n3952 PRINT AT 3,0;"YOU,AS CAPTAIN OF THE FEDERATIONSTARSHIP %E%N%T%E%R%P%R%I%S%E, MUST RID THE GALAXY OF 15 INVADING KLINGON SPACE CRUISERS."
\n3953 GOSUB 600
\n3954 PRINT "YOUR COMMANDS ARE ENTERED AS A NUMBER. THEY ARE AS FOLLOWS:"
\n3956 PRINT "1. WARP DRIVE. ENTER THE COORDINATES OF THE SECTOR YOU WISH TO GO TO AS A 2 DIGIT NO. X COORDINATE THEN Y COORDINATE. EG:23(NEWLINE) FOR SECTOR 2,3"
\n3958 GOSUB 600
\n3960 PRINT "2. LONG ZANGE SCAN SHOWS THE GALAXY AS A 5 BY 5 SERIES OF SECTORS. FOR EACH SECTOR, THERE IS A NUMBER. THE DIGIT AT THE RIGHT IS THE NUMBER OF STARS IN THE SECTOR. IF THERE IS A DIGIT TO THE LEFT OF THIS, IT IS THE NUMBER OF KLINGONS IN THE SECTORIF THERE IS A FURTHER NUMBER TO THE LEFT,IT IS THE NUMBER OF STARBASES IN THE SECTOR."
\n3961 PRINT
\n3962 PRINT "THUS 231 MEANS 1 STAR,3 KLINGONS AND 2 STARBASES AND 25 MEANS 5 STARS AND 2 KLINGONS."
\n3963 GOSUB 600
\n3965 PRINT "3.PHOTON TORPEDOES. ENTER THE ANGLE YOU WISH TO FIRE YOUR TORPEDO IN ACCORDANCE WITH THE CHART DISPLAYED. A HIT WITH A TORPEDO WILL ALWAYS DESTROY THE TARGET."
\n3966 PRINT "REMEMBER YOU ONLY HAVE A LIMITED NUMBER OF TORPEDOES."
\n3967 PRINT AT 15,22;"4";AT 16,21;"3:5";AT 17,20;"2-X-6";AT 18,21;"1:7";AT 19,22;"0"
\n3968 GOSUB 600
\n3970 PRINT "4. PHASERS. THESE ARE ENERGY WEAPONS AND DO NOT ALWAYS DESTROY THE TARGET. ENTER THE ANGLE YOU WISH TO FIRE IN THE SAME WAY AS TORPEDOES."
\n3972 PRINT
\n3974 PRINT "5. SHIELDS. ENTER THE ENERGY YOUWANT TO DIVERT TO YOUR DEFENSIVE SHIELDS BETWEEN 0 AND 100 UNITS."
\n3975 GOSUB 600
\n3976 PRINT "6. COMMAND KEY. THIS IS AN AID FOR REMEMBERING THE COMMANDS AVAILABLE. PRESS 6 AND THE FOLLOWING IS DISPLAYED."
\n3977 GOSUB 4100
\n3978 GOSUB 4200
\n3979 GOSUB 600
\n3980 PRINT "MOST COMMANDS DRAIN ENERGY AND YOU WILL USE ENERGY JUST TO MAINTAIN LIFE SUPPORT SYSTEMS. THE GAME ENDS IF YOU RUN OUT OF ENERGY OR TIME OR IF YOU DESTROY ALL THE KLINGONS."
\n3981 PRINT
\n3982 PRINT "YOU CAN MOVE AROUND THE SECTOR AS SHOWN ON THE SHORT RANGE SCAN BY USING KEYS A,D,W,X TO PROVIDE IMULSE DRIVE. THIS MAY BE NECESSARY TO ACHIEVE A GOOD POSITION FROM WHICH TO ATTACK."
\n3983 GOSUB 600
\n3985 PRINT "WHEN YOU MOVE USING IMPULSE DRIVE AVOID COLLISIONS WITH STARS * AND KLINGONS +. IF YOU MOVE ONTO A STARBASE YOU WILL BEREFUELLED AND REARMED AND YOUR ENERGY CELLS WILL BE REPLENISHED"
\n3986 PRINT
\n3987 PRINT "%W%A%R%N%I%N%G% %K%L%I%N%G%O%N%S% %A%T%T%A%C%K% %W%I%T%H%O%U%T% %P%R%O%V%O%C%A%T%I%O%N%."
\n3988 PRINT "KEY TO SYMBOLS IN SHORT RANGE SCAN. %E ENTERPRISE + KLINGON * STAR X STARBASE"
\n3989 GOSUB 600
\n3990 PRINT "INITIALLY AND DURING MANOEUVRES AND SCANNING THE SCREEN WILL BLANK.PLEASE WAIT FOR DISPLAY TO REAPPEAR."
\n3992 PRINT
\n3995 PRINT "THE COMMAND KEYS WILL BE SLOW TO RESPOND SO HOLD DOWN UNTIL THE ENTERPRISE RESPONDS."
\n3996 GOSUB 600
\n3997 PRINT "YOUR MISSION CAPTAIN IS NOT EASYTO SUCCEED YOU MUST USE YOUR SHIP AND STARBASES EFFICIENTLY AND MAKE QUICK DECISIONS. YOU HAVE UNTIL STARDATE ";3200+SX;" TO\' DESTROY THE EVIL KLINGONS. %G%O%O%D% %L%U%C%K"
\n3998 GOSUB 600
\n3999 RETURN
\n4000 PRINT AT 14,0;"%K%L%I%N%G%O%N% %S%H%I%P% %F%I%R%I%N%G% "
\n4020 PRINT "%D%A%M%A%G%E% %S%U%S%T%A%I%N%E%D% ";
\n4030 LET D=INT (RND*65+5-S1/2)
\n4040 IF D<5 THEN LET D=5
\n4050 PRINT D;"% %U%N%I%T%S"
\n4052 FOR J=1 TO 6
\n4054 FAST
\n4055 SLOW
\n4056 NEXT J
\n4060 LET E=E-D
\n4070 GOSUB 4100
\n4090 RETURN
\n4100 FOR J=21 TO 13 STEP -1
\n4102 PRINT AT J,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
\n4105 NEXT J
\n4106 RETURN
\n4200 PRINT AT 13,0;"\##\##\##%C%O%M%M%A%N%D% %K%E%Y\##\##\##"
\n4210 PRINT "\##%1\##%W%A%R%P% %D%R%I%V%E% \##%2\##%L%O%N%G% %R%A%N%G%E% %S%C%A%N"
\n4220 PRINT "\##%3\##%T%O%R%P%E%D%O%E%S% % \##%4\##%P%H%A%S%E%R%S"
\n4230 PRINT "\##%5\##%E%N%E%R%G%Y% %D%I%V%E%R%T%E%D% %T%O% %S%H%I%E%L%D%S"
\n4240 PRINT "\##%6\##%C%O%M%M%A%N%D% %K%E%Y%S% %A%V%A%I%L%A%B%L%E"
\n4250 PRINT "\##%7\##%S%H%I%P%S% %O%P%E%R%A%T%I%N%G% %M%A%N%U%A%L% % % "
\n4251 PRINT "%A%,%X%,%D%,%W% %I%M%P%U%L%S%E% %D%R%I%V%E% %O%N%L%Y% % % % % % "
\n4252 PRINT "%S%Y%M%B%O%L%S%:%E%=%E%N%T%E%R%P%R%I%S%E% %+%=%K%L%I%N%G%O%N% % % % % % % % % % %*%=%S%T%A%R% % % % % % % %X%=%S%T%A%R%B%A%S%E"
\n4270 PAUSE 1000
\n4290 RETURN
\n5000 IF S(X1,Y1)<>4 THEN GOTO 5050
\n5001 LET T=5
\n5002 LET E=500
\n5003 PRINT AT 14,0;"%E%N%T%E%R%P%R%I%S%E% %D%O%C%K%E%D%,%R%E%A%R%M%E%D% %A%N%D% % % %R%E%F%U%E%L%L%E%D%.% %R%E%A%D%Y% %T%O% %C%O%N%T%I%N%U%E% % % % %M%I%S%S%I%O%N%."
\n5010 LET SD=SD+10
\n5020 LET S1=0
\n5030 LET S=0
\n5049 GOTO 3000
\n5050 PRINT AT 14,0;"% %E%N%T%E%R%P%R%I%S%E% %C%R%A%S%H%E%D% "
\n5060 GOTO 6010
\n5100 PRINT AT 13,0;"%Y%O%U% %H%A%V%E% %R%U%N% %O%U%T% %O%F% %T%I%M%E% %A%N%D% % % % %A%S% %A% %R%E%S%U%L%T% %O%F% %Y%O%U%R% %F%A%I%L%U%R%E% %T%H%E% %K%L%I%N%G%O%N%S% %H%A%V%E% %O%V%E%R%R%U%N% %T%H%I%S% % % % % % %Q%U%A%D%R%A%N%T% %O%F% %T%H%E% %G%A%L%A%X%Y%."
\n5110 GOTO 6010
\n5500 PRINT AT 13,0;"%Z%E%R%O% %E%N%E%R%G%Y% %S%T%A%T%U%S% %L%I%F%E% %S%U%P%P%O%R%T% %S%Y%S%T%E%M%S% %F%A%I%L%U%R%E%."
\n5512 PRINT "KLINGONS DESTROYED ";K
\n5515 PRINT "%T%H%E% %R%E%M%A%I%N%I%N%G% %K%L%I%N%G%O%N%S% %W%I%L%L% %O%V%E%R%R%U%N% %T%H%E% %G%A%L%A%X%Y%."
\n5525 GOTO 6010
\n6000 CLS
\n6005 PRINT "%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S%.% %Y%O%U% %C%O%M%P%L%E%T%E%D% % %Y%O%U%R% %M%I%S%S%I%O%N% %A%N%D% %S%A%V%E%D% %T%H%E% % % % % % %F%E%D%E%R%A%T%I%O%N% %F%R%O%M% %T%H%E% %T%Y%R%A%N%N%Y% %O%F% % %T%H%E% %E%V%I%L% %K%L%I%N%G%O%N%S%."
\n6020 PRINT "%Y%O%U%R% %S%C%O%R%E% %C%A%P%T%A%I%N% %W%A%S% ";(100-SD)*K
\n6021 IF HI<((100-SD)*K) THEN LET HI=((100-SD)*K)
\n6022 PRINT "%H%I%G%H%E%S%T% %S%C%O%R%E%=";HI
\n6500 GOSUB 600
\n6510 GOTO 90
