100     REM *** PROGRAM SIMULATES TV PROGRAM STARTREK
110     REM *** WRITTEN BY MIKE MAYFIELD, CENTERLINE ENGINEERING
170     RANDOMIZE
180     PRINT "                  * * *  STAR TREK  * * *"
181     PRINT
200     INPUT "DO YOU WANT INSTRUCTIONS (THEY'RE LONG!)";A$
210     IF A$<>"YES" THEN 230
220    GOTO 5820
230     REM *** PROGRAM BEGINS HERE
240     Z$,R$,Q$="                                                                        "
260     DIM G(8,8),C(9,2),K(3,3),N(3),Z(8,8)
290     T0,T=INT(RND(1)*20+20)*100
300     T9=30
301     D0=0
302     E0,E=3000
303     P0,P=10
304     S9=200
305     S,H8=0
360     DEF FND(D)=SQR((K(I,1)-S1)**2+(K(I,2)-S2)**2)
370     Q1=INT(RND(1)*8+1)
380     Q2=INT(RND(1)*8+1)
390     S1=INT(RND(1)*8+1)
400     S2=INT(RND(1)*8+1)
410     T7=TIME(0)
420     C(2,1),C(3,1),C(4,1),C(4,2),C(5,2),C(6,2)=-1
430     C(1,1),C(3,2),C(5,1),C(7,2),C(9,1)=0
440     C(1,2),C(2,2),C(6,1),C(7,1),C(8,1),C(8,2),C(9,2)=1
450     MAT D=ZER
460     D$="WARP ENGINESS.R. SENSORSL.R. SENSORSPHASER CNTRL"
470     D$=D$+"PHOTON TUBESDAMAGE CNTRL"
480     E$="SHIELD CNTRLCOMPUTER"
490     B9,K9=0
491     REM *** SETS UP WHAT EXISTS IN GALAXY
500     FOR I=1TO8
510     FOR J=1TO8
520     R1=RND(1)
530     IF R1>.98 THEN 580
540     IF R1>.95 THEN 610
550     IF R1>.8 THEN 640
560     K3=0
561     GOTO 660
580     K3=3
581     K9=K9+3
582     GOTO 660
610     K3=2
611     K9=K9+2
612     GOTO 660
640     K3=1
641     K9=K9+1
660     R1=RND(1)
670     IF R1>.96 THEN 700
680     B3=0
681     GOTO 720
700     B3=1
701     B9=B9+1
720     S3=INT(RND(1)*8+1)
730     G(I,J)=K3*100+B3*10+S3
740     Z(I,J)=0
750     NEXT J
760     NEXT I
770     K7=K9
775     PRINT
776     PRINT
780     PRINT"YOU MUST DESTROY"K9" KLINGONS IN"T9" STARDATES WITH "B9" STARBASES"
790     IF B9>0 THEN 810
800     G(6,3)=114
810     K3,B3,S3=0
820     IF Q1<1 OR Q1>8 OR Q2<1 OR Q2>8 THEN 920
830     X=G(Q1,Q2)*.01
840     K3=INT(X)
850     B3=INT((X-K3)*10)
860     S3=G(Q1,Q2)-INT(G(Q1,Q2)*.1)*10
870     IF K3=0 THEN 910
880     IF S>200 THEN 910
890     PRINT"COMBAT AREA      CONDITION RED"
900     PRINT"   SHIELDS DANGEROUSLY LOW"
910     MAT K=ZER
920     FOR I=1TO3
930     K(I,3)=0
940     NEXT I
950     Q$=Z$
951     R$=Z$
970     S$=MID(Z$,1,48)
971     REM *** PUT ENTERPRISE SOMEWHERE
980     A$="<*>"
990     Z1=S1
1000    Z2=S2
1010    GOSUB 5510
1020    FOR I=1TOK3
1030 GOSUB 5380
1031    REM *** PUT KLINGONS SOMEWHERE
1040    A$="+++"
1050    Z1=R1
1060    Z2=R2
1070    GOSUB 5510
1080    K(I,1)=R1
1081    K(I,2)=R2
1082    K(I,3)=S9
1110    NEXT I
1120    FOR I=1TOB3
1130    GOSUB 5380
1131    REM *** PUT STARBASE(S) SOMEWHERE
1140    A$=">!<"
1141    Z1=R1
1142    Z2=R2
1170    GOSUB 5510
1180    NEXT I
1190    FOR I=1TOS3
1200    GOSUB 5380
1201    REM *** PUT STARS SOMEWHERE
1210    A$=" * "
1211    Z1=R1
1212    Z2=R2
1240    GOSUB 5510
1250    NEXT I
1260    GOSUB 4120
1270    INPUT "COMMAND:";A
1290    IF A=0 GOTO 1410
1291    IF A=1 GOTO 1260
1292    IF A=2 GOTO 2330
1293    IF A=3 GOTO 2530
1294    IF A=4 GOTO 2800
1295    IF A=5 GOTO 3460
1296    IF A=6 GOTO 3560
1297    IF A=7 GOTO 4630
1298    IF A=8 GOTO 6510
1310    PRINT
1311    PRINT"   0 = SET COURSE"
1320    PRINT"   1 = SHORT RANGE SENSOR SCAN"
1330    PRINT"   2 = LONG RANGE SENSOR SCAN"
1340    PRINT"   3 = FIRE PHASERS"
1350    PRINT"   4 = FIRE PHOTON TORPEDOES"
1360    PRINT"   5 = SHIELD CONTROL"
1370    PRINT"   6 = DAMAGE CONTROL REPORT"
1380    PRINT"   7 = CALL ON LIBRARY COMPUTER"
1390    PRINT"   8 = END THE CONTEST"
1391    PRINT
1400    GOTO 1270
1401    REM *** COURSE CONTROL CODE BEGINS HERE
1410    INPUT "COURSE (1-9):";C1
1430    IF C1=0 THEN 1270
1440    IF C1<1 OR C1>9 THEN 1410
1450    INPUT "WARP FACTOR (0-8):";W1
1470    IF W1<0 OR W1>8 THEN 1410
1480    IF D(1)>=0 OR W1<=.2 THEN 1510
1490    PRINT "WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = WARP .2"
1500    GOTO 1410
1510    IF K3<=0 THEN 1560
1520    GOSUB 3790
1530    IF K3<=0 THEN 1560
1540    IF S<0 THEN 4000
1550    GOTO 1610
1560    IF E>0 THEN 1610
1570    IF S<1 THEN 3920
1580    PRINT "YOU HAVE"E" UNITS OF ENERGY"
1590    PRINT "SUGGEST YOU GET SOME FROM YOUR SHIELDS WHICH HAVE"S" UNITS LEFT"
1600    GOTO 1270
1610    FOR I=1TO8
1611    IF D(I)>=0 THEN 1640
1612    REM *** FIX ANY DAMAGED DEVICE
1630    D(I)=D(I)+1
1640    NEXT I
1650    IF RND(1)>.2 THEN 1810
1660    R1=INT(RND(1)*8+1)
1670    IF RND(1)>= .5 THEN 1750
1680    D(R1)=D(R1)-(RND(1)*5+1)
1690    PRINT
1691    PRINT "DAMAGE CONTROL REPORT:";
1710    GOSUB 5610
1720    PRINT" DAMAGED"
1721    PRINT
1722    GOTO 1810
1750    D(R1)=D(R1)+(RND(1)*5+1)
1760    PRINT
1761    PRINT "DAMAGE CONTROL REPORT:";
1780    GOSUB 5610
1790    PRINT" STATE OF REPAIR IMPROVED"
1791    PRINT
1810    N=INT(W1*8)
1811    A$="   "
1812    Z1=S1
1813    Z2=S2
1850    GOSUB 5510
1860    X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1))
1870    X=S1
1871    Y=S2
1890    X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1))
1900    X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1))
1910    FOR I=1TON
1911    S1=S1+X1
1912    S2=S2+X2
1940    IF S1<1 OR S1>=9 OR S2<1 OR S2>=9 THEN 2170
1950    S8=S1*24+S2*3-26
1951    IF S8>72 THEN 1990
1970    IF MID(Q$,S8,3)="   " THEN 2070
1980    GOTO 2030
1990    IF S8>144 THEN 2020
2000    IF MID(R$,S8-72,3)="   " THEN 2070
2010    GOTO 2030
2020    IF MID(S$,S8-144,3)="   " THEN 2070
2030    PRINT"WARP ENGINES SHUTDOWN AT SECTOR "S1","S2" DUE TO BAD NAVAGATION"
2040    S1=S1-X1
2041    S2=S2-X2
2042    GOTO 2080
2070    NEXT I
2080    A$="<*>"
2081    Z1=S1
2082    Z2=S2
2110    GOSUB 5510
2120    E=E-N+5
2121    IF W1<1 THEN 2150
2140    T=T+1
2150    IF T>T0+T9 THEN 3970
2160    GOTO 1260
2170    X=Q1*8+X+X1*N
2171    Y=Q2*8+Y+X2*N
2190

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.