1000 COM A$[2*45],S$[730],N$[16],W$[14*45],X[45],Y[45],B$[2],F3 1010 COM D$[1],R$[15],T9,N1,W1,O,N2,N3,O1,O2,P1,P2,F2,X$[14],N4 1020 SYSTEM 6 1030 DEF FNS(X)(X+Z3-ABS(X-Z3))/2 1040 IF S$ THEN 1210 1050 INPUT "^DO OU NEED INSTRUCTIONS ? ",D$ 1060 IF D$="N" THEN 1990 1070 PRINT "\^^ HIS AME DEPITS THE CLASSIC BATTLE BETWEEN THE FEDERATIO" 108 PRINT "AND ENEMY EMPIRES. THE OBJECT IS TO DESTROY THE ENEMY NATIONS" 190 RINT "VESSELS. THIS CAN B DONE BY DSTROYNG THEM, DESTROYING YOURSELF" 1100 PRINT "AND TAKIG THEM WITH YOU, OR BY HAVING THEM SURRENDER TO YOU." 1110 PRINT "A SET OF COMMANDS NEEDED TO ACCOMPLISH THIS TASK IS PRINTED OUT" 1120 PRINT "BEFORE YOU START. FOR MRE DETAILED INFORMATION ON THE COMMANDS" 1130 PRINT "OU MAY BUY HE ''STAR TREK MANUAL'' AT THE LHS DISCOVERY CORNER" 1140 PRINT "AND AWAYS REMEMBER. . .\^^SPACE, THE FINAL FRONTIER.\^THESE ARE "; 1150 PRINT "THE VOYAGES OF THE STARSHIP ENTERPRISE.\^ITS FIVE YEAR MISSION: "; 1160 PRINT "TO EXPLORE STRANGE NEW WORLDS, TO SEEK\^OUT NEW LIFE AND NEW "; 1170 PRINT "CIVILIZATIONS, T BOLDLY GO WERE\^NO MAN HAS GONE BEFORE!^^" 110 PRINT TAB (20);"S T AR T R E K 190 LET N3=73,O=29 120 CHAIN #1;"$TREK3" 1210 FOR I=1 TO N11 120 LET X=I*N3-51,Y=I*14-12 1230 IF S$[X-6,X-6]<"" THEN 1530 120 IF W$[Y-1,Y-1]<>"" THEN 1530 1250 IF W$[Y,Y]="" THEN 1530 120 LET X$=S$[X],T6=ASC(X$)/5,X$=W$[Y+3],B$=X$[2],H=T6+ASC(X$)*10+ASC(B$)/10 1270 LET X$=S$[X-2]l$=X$[2],T0=ASC(X$)*N2+ASC(B$) 1280 FOR L=X+43 TO X+46 1290 IF S$[L+,L+4]<""THEN LET X$=S$[L],Z3=ASC(X$)/50,H1=FNS(H),H=H-H1,S$[L,L]=CHR(H1*50) 1300 NEXT L 1310 IF H=0 THEN 180 1320 FO L=X+ TO + 1330 LET D$=S$[L],Z=ASC(D$) 1340 IF Z>=10 THEN 1370 150 IF S$[L-4,L-4]="" THEN 1370 1360 LET Z3=10-Z,W=FNS(H),Z3=20,H1=FNS(W),H=H-H1,S$[L,L]=CHR(Z+H1) 1370 NEXT L 1380 LET Z3=T0,L=FNS(H),S$[X-4,X-3]=CHR(L/1)+CHR(L*10-INT(L/10)*N2),H=H-L 1390 IF H<=0 THEN 1460 1400 FOR L=X+5 TO +8 1410 LET D$=S$L],Z=ASC(D$) 1420 IF S$[L-4,L-4]="" THEN 1450 1430 LET Z3=10-Z,H1=FNS(H),S$[L,L]=CHR(Z+H1),H=H-H1 1440 IF H<=0 THEN 1460 1450 NEXT L 1460 FOR K=1 TO 6 1470 IF K>4 THEN 1500 1480 LET Z=X+K,Y=2*Z+58-I*N3,A$="#" 1490 GOSUB 2260 1500 LET Z=X+K+17,Y=*Z+45-I*N3A$="# 150 GOSUB 2260 120 NEXT K 130 NEXT I 1540 IF W$[2,2]="" THO 1660 1550 LET D$=W$[12],W=ASC(D$) 1560 IF W>15 THEN 1580 1570 IF W THEN PRINT "COMPUTER: ";W;"SECONDS TO DESTRUCT" 1580 LET P1=P1+SGN(P1),P2=P2+SGN(P2) 1590 IF S$[6,16]="" THEN 160 1600 IF S$[18,18]>"" THEN IF S$[13,14]="" THN 1670 1610 IF S$[22,22]>"^" THEN 1670 1620 FOR K=27 TO32 1630 IF K31 THEN IF S$[KK]<>"" THEN 1670 140 IF S$[K+19,K+19]<>"" THEN 160 1650 NEXT K 1660 LET O1=1,O=0 1670 FOR J=2 TO N1+1 1680 LET I=J*N3-57,X=J*14-13 1690 IF W$[X+1,X+1]<>"" THEN IF W$[X,X]="" THEN IF S$[I,I<>"" THEN 1710 1700 GOTO 1780 1710 IF O1 THEN 1810 1720 IF SQR(X[1]-X[J])^2+(Y[1]-Y[J])^2)>2^14 THEN 1800 130 IF W$[X+4,X+4]>"" THEN 1810 1740 FOR K=I+11 TO +6 150 IF K<31 THEN IF S$[K,K]<>"" THEN 1810 170 IF S$[K+19,K+19]<>"" THEN 1810 1770 NEXT K 1780 LET F3=F3+1 1790 GOTO 1810 1800 LET F2=F2+1 110 NEXT J 1820 IF O1=0 THEN IF F3+F2"" THEN IF $[J+1,J+1]<>"" THEN 190 1890 NEXT J 1900 PRINT "STARFLEET COMMAND:" 1910 PAUSE 10 190 ON O1 GOTO 2010,2060,2100,2120,2140 1930 IF O1=O2 THEN 1970 1940 LET O2=O1 1950 ON O1-1 GOTO 2030,2080,1970,2030 1960 PRINT N$[10];" TE ENTERPRISE IS DEFEATED. ARE PARTIG THE QUADRANT" 1970 IF O=2 THEN F RND(0)<1/10 THEN LET O=0 1971 IF O=27 THN I S[1,11]="" HEN CAN #1;"$TREK4 1980 IF O1=1 THEN CHAN #1;"$TREK4" 1990 LET O=0 2000 CHAIN #1;"$TREK0" 2010 PRINT "THE ENTERPRISE CAPTAINED BY ";R$" HASBEEN DESTROYED" 2020 GOTO 10 200 PRINT "SPOCK THE ";N$[1,9];"S HVE BEEN DEFEATED. BUT THERE ARE STIL" 2040 PRIT " ANTIMATER DEVICES O AVOID" 2050 GOTO1970 2060 PRINT"WE COMMEND CAPTAIN ";R$; ON HIS DESTRUCTION OF";1;N$[1,9];" VESSELS" 270 GTO 2170 28 PRINT "SLU: "N$[1,9];"'S ARE BREAKNG OFF THEIR ATTACK 2090 GOTO 1970 200 PRIN "CAPTAIN "R$;" HAS OUT-MANUEVERED THE ";N$[1,9];"'S" 2110 GOTO 170 2120 PRINT CAPTAIN ";R$;" HAS SURRENDERED TO THE";N$[1,9];"'S" 2130 GOTO 2170 2140 PRINT "THE ";N$[1,9];"'S HAVE SURRENDERED" 2150 GOTO 2170 2160 PRINT "TARFLEET: REPORTING THE WRECKAGE OF THE ENTERPRISE AND";N1;OTHER SHPS" 2170 FOR I=1 TO N1+1 210 IF I=1 THEN PRIT "\^SURIVORS REPOTE:" 2190 LET J=I*N3-9*8,D$=S$[J+15] 2200 IF W$[I*14-12,I*14-12]<>"" THEN PRINT S$[J,J+9];" -- ";INT(ASC(D$)*8/5+9/10) 2210 NEX I 220 INPUT"^OMPUTER: DO OU DESIRE ANOTHER BATTLE ? ",$ 223 IF D$=N"THEN SYSTEM 1 2240 SYSTEM 5 2250 GOTO 1990 2260 LET B$=S$[Z],J=ASC(B$),B$=S$[Y] 2270 IF J=127 THEN RETURN 2280 IF J>=25 THEN LET J=J-25 2290 LET X1=X[J]-X[I],Y1=Y[J]I],=2*45 2300 IF J=0 THEN 2380 21 IF W$J*14-12,J*14-12]="" THEN 400 2320 IF X1 THEN LET B=ATN(Y1/X1)*57.2958 2330 IF X1>=0 THEN IF Y1>=0 THEN 2360 2340 LET B=B+60*3 2350 IF X1=0 THEN LT B=B60*3 2360LET X$=W$[I*14-7],B$=X$[2],W=ASC(X$)*N2+AC(B$) 2370 LET L=B-W-INT((B-W)/60/6)*60*6,B$=CHR(L/N2)+CHR(L-INT(L/N2)*N2),S$[YY1]=B$ 280 IF B$>=A$[1,2] THEN IF B$<=A$[3,4] THEN IF S$[15,15]="" THEN LT S$[Z,Z]=CHR(J) 2390 RETURN 2400 IF I<>1 THEN 2440 2410 IF A$[2,2]="#" THEN PRIT "TUBE"; 2420 IF A$[2,2]<>"#" THEN PRINT "PHASER"; 2430 PRINT K;"DISENGAGING" 2440 LET S$[Z,Z]="" 250 RETURN