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 YOU NEED INSTRUCTIONS ? ",D$ 1060 IF D$="N" THEN 1990 1070 PRINT "\^^THIS GAME DEPICTS THE CLASSIC BATTLE BETWEEN THE FEDERATION" 1080 PRINT "AND ENEMY EMPIRES. THE OBJECT IS TO DESTROY THE ENEMY NATIONS" 1090 PRINT "VESSELS. THIS CAN BE DONE BY DESTROYNG THEM, DESTROYING YOURSELF" 1100 PRINT "AND TAKING 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 MORE DETAILED INFORMATION ON THE COMMANDS" 1130 PRINT "YOU MAY BUY THE ''STAR TREK MANUAL'' AT THE LHS DISCOVERY CORNER" 1140 PRINT "AND ALWAYS 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, TO BOLDLY GO WHERE\^NO MAN HAS GONE BEFORE!^^" 1180 PRINT TAB (20);"S T A R T R E K" 1190 LET N3=73,O=29 1200 CHAIN #1;"$TREK3" 1210 FOR I=1 TO N11 1220 LET X=I*N3-51,Y=I*14-12 1230 IF S$[X-6,X-6]<" THEN 1530 1240 IF W$[Y-1,Y-1]<>"" THEN 1530 1250 IF W$[Y,Y]="" THEN 1530 1260 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],$=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]= 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 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$) 1430 LET Z3=10-Z,H1=FNS(H),S$[L,L]=CHR(Z+H1),H=H-H1 1440 IF H<=0 THEN 14601450 NEXT L 1460 FOR K=1 TO 61470 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$=# 1510 GOSUB 2260 1520 NEXT K 1530 NEXT I 1540 IF W$[2,2]="" THE 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 1640 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 1730 IF W$[X+4,X+4]>" THEN 1810 1740 FOR K=I+11 TO +6 1750 IF K<31 THEN IF S$[K,K]<>"" THEN 1810 1760 IF S$[K+19,K+19]<>"" THEN 1810 1770 NEXT K 1780 LET F3=F3+1 1790 GOTO 1810 1800 LET F2=F2+1 1810 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 1920 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];" THE ENTERPRISE IS DEFEATED. WE ARE DEPARTING THE QUADRANT" 1970 IF O=2 THEN IF RND(0)<1/10 THEN LET O=0 1971 IF O=27 THEN IF S[1,11]="" HEN CHAIN #1;"$TREK4" 1980 IF O1=1 THEN CHAIN #1;"$TREK4" 1990 LET O=0 2000 CHAIN #1;"$TREK0" 2010 PRINT "THE ENTERPRISE CAPTAINED BY ";R$" HAS BEEN DESTROYED" 2020 GOTO 10 2030 PRINT "SPOCK THE ";N$[1,9];"S HAVE BEEN DEFEATED. BUT THERE ARE STILL" 2040 PRINT " ANTIMATTER DEVICES TO AVOID" 2050 GOTO 1970 2060 PRINT "WE COMMEND CAPTAIN ";R$; ON HIS DESTRUCTION OF";1;N$[1,9];" VESSELS" 2070 GOTO 2170 2080 PRINT "SULU: "N$[1,9];"'S ARE BREAKNG OFF THEIR ATTACK 2090 GOTO 1970 2100 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 SHP 2170 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/ 2210 NEX I 2220 INPUT "COMPUTER: DO YOU DESIRE ANOTHER BATTLE ? ",D$ 2230 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 2300 IF J=0 THEN 2380 2310 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 LET 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$ 2380 IF B$>=A$[1,2] THEN IF B$<=A$[3,4] THEN IF S$[15,15]=" " THEN LT S$[Z,Z]= 2390 RETURN 2400 IF I<>1 THEN 2440 2410 IF A$[2,2]="#" THEN PRINT "TUBE"; 2420 IF A$[2,2]<>"#" THEN PRINT "PHASER"; 2430 PRINT K;"DISENGAGING" 2440 LET S$[Z,Z]=" " 2450 RETURN