Directory of image this file is from
This file as a plain text file

NT "DEVICE        STATE OF REPAIR"
3610FOR R1=1TO8
3620GOSUB 5610
3630PRINTD(R1)
3640NEXT R1\PRINT
3660GOTO 1270
3670PRINT"SHORT RANGE SENSORS REPORT NO KLINGONS IN THIS QUADRANT"
3680GOTO 1270
3690 PRINT "KLINGON AT SECTOR ";K(I,1);",";K(I,2);"DESTROYED ***"
3710K3=K3-1\K9=K9-1\A$="   "\Z1=K(I,1)\Z2=K(I,2)
3760GOSUB 5510
3770G(Q1,Q2)=K3*100+B3*10+S3
3775 IF Z(Q1,Q2) <1 GOTO 3780\Z(Q1,Q2)=G(Q1,Q2)
3780RETURN
3790IF C$<>"DOCKED" THEN 3820
3800PRINT "STAR BASE SHIELDS PROTECT THE ENTERPRISE"
3810RETURN
3820    IF K3<=0 THEN 3910
3830FOR I=1TO3\IF K(I,3)<=0 THEN 3900
3850H=INT((K(I,3)/FND(0))*(2+RND(1)))\S=S-H
3860 PRINT "KLINGON ATTACK"
3870 PRINT H;" UNIT HIT ON ENTERPRISE FROM SECTOR ";K(I,1);",";K(I,2);
3871 PRINT "     (";S;" LEFT)"
3890IF S<0 THEN 4000
3900NEXT I
3910RETURN
3920PRINT "THE ENTERPRISE IS DEAD IN SPACE.  IF YOU SURVIVE ALL IMPENDING"
3930PRINT "ATTACKS YOU WILL BE DEMOTED TO THE RANK OF PRIVATE"
3940IF K3<=0 THEN 4020
3950GOSUB 3790
3960GOTO 3940
3970 PRINT\PRINT "IT IS STARDATE";T
3990GOTO 4020
3991REM *** NO ENERGY LEFT
4000PRINT\PRINT"THE ENTERPRISE HAS BEEN DESTROYED.  THE FEDERATION WILL BE CONQUERED"
4020 PRINT "THERE ARE STILL ";K9;" KLINGON BATTLE CRUISERS"
4030 PRINT\PRINT\PRINT\PRINT "YOU GET ANOTHER CHANCE...."\GOTO 180
4040PRINT\PRINT"THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN DESTROYED"
4050PRINT"THE FEDERATION HAS BEEN SAVED!!!!!"\PRINT
4075E5=((K7/(T-T0))*1000)
4080 PRINT "YOUR EFFICIENCY RATING =";E5
4100 PRINT "YOUR ACTUAL TI