sw/src/basic/STARTR.BA

   1 10 REM ********** STAR TREK SPACE SIMULATOR **********
   2 20 REM
   3 30 PRINT\PRINT\PRINT "STAR TREK SPACE SIMULATOR"
   4 40 RANDOMIZE
   5 70 DEF FNA(X)=INT(X*RND(1)+1)
   6 80 DIM G(8,8),Z$(20),X$(24)
   7 90 T0=(FNA(20)+20)*100
   8 91 T=T0
   9 100 E=3000
  10 110 P=15
  11 120 S=0
  12 130 X$="------------------------"
  13 140 DEF FND(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2)
  14 150 Q1=FNA(8)
  15 151 Q2=Q1
  16 152 S1=Q1
  17 153 S2=Q1
  18 160 DIM C(9,2)
  19 161 FOR I=1 TO 9\FOR J=1 TO 2\C(I,J)=1\NEXT J\NEXT I
  20 170 C(2,1)=-1\C(3,1)=-1\C(4,1)=-1\C(4,2)=-1\C(5,2)=-1\C(6,2)=-1
  21 180 C(1,1)=0\C(3,2)=0\C(5,1)=0\C(7,2)=0\C(9,1)=0
  22 190 DIM D(6)\FOR I=1 TO 6\D(I)=0\NEXT I
  23 200 B9=0\K9=0
  24 210 FOR I=1 TO 8
  25 220 FOR J=1 TO 8
  26 230 K3=0\B3=0
  27 240 IF RND(1)<.8 THEN 270
  28 250 K3=FNA(3)
  29 260 K9=K9+K3
  30 270 IF RND(1)<.96 THEN 300
  31 280 B3=1
  32 290 B9=B9+1
  33 300 S3=FNA(5)
  34 310 G(I,J)=K3*100+B3*10+S3
  35 320 NEXT J
  36 330 NEXT I
  37 340 IF K9=0 THEN 200\IF B9=0 THEN 200
  38 350 GOTO 3570
  39 360 IF Q1>=1 THEN 380
  40 370 S1=1\Q1=1
  41 380 IF Q1<=8 THEN 400
  42 390 S1=8\Q1=8
  43 400 IF Q2>=1 THEN 420
  44 410 S2=1\Q2=1
  45 420 IF Q2<=8 THEN 440
  46 430 S2=8\Q2=8
  47 440 X=G(Q1,Q2)/100
  48 450 K3=INT(X)
  49 460 B3=INT((X-K3)*10)
  50 470 S3=G(Q1,Q2)-((B3*10)+(K3*100))
  51 480 IF K3=0 THEN 520
  52 490 PRINT "COMBAT AREA","CONDITION RED"
  53 500 IF S>(K3*100) THEN 520
  54 510 PRINT "  SHIELDS DANGEROUSLY LOW"
  55 520 DIM K(3,3)\FOR I=1 TO 3\FOR J=1 TO 3\K(I,J)=0\NEXT J\NEXT I
  56 530 DIM Q(8,8)\FOR I=1 TO 8\FOR J=1 TO 8\Q(I,J)=0\NEXT J\NEXT I
  57 540 Q(S1,S2)=1
  58 550 FOR I=1 TO K3
  59 560 GOSUB 3500
  60 570 Q(R1,R2)=2
  61 580 K(I,1)=R1
  62 590 K(I,2)=R2
  63 600 K(I,3)=200
  64 610 NEXT I
  65 620 IF B3=0 THEN 650
  66 630 GOSUB 3500
  67 640 Q(R1,R2)=4
  68 650 FOR I=1 TO S3
  69 660 GOSUB 3500
  70 670 Q(R1,R2)=3
  71 680 NEXT I
  72 690 GOSUB 2600
  73 700 PRINT "COMMAND";
  74 710 INPUT A
  75 720 IF A<1 THEN 780\IF A>5 THEN 780\IF A<>INT(A) THEN 780
  76 730 R1=A+1
  77 740 IF D(R1)>=0 THEN 780
  78 750 GOSUB 3420
  79 760 PRINT Z$;" NOT OPERATIONAL."
  80 770 GOTO 700
  81 780 IF A+1=1 GOTO 890\IF A+1=2 GOTO 1520\IF A+1=3 GOTO 1640
  82 781 IF A+1=4 GOTO 1800\IF A+1=5 GOTO 2200\IF A+1=6 GOTO 3010
  83 782 IF A+1=7 GOTO 3550
  84 790 PRINT
  85 800 PRINT "0=SET COURSE";TAB(20);"4  3  2"
  86 810 PRINT "1=LONG RANGE SCAN";TAB(21);PNT(220);" ^ /"
  87 820 PRINT "2=PHASER CTRL.";TAB(22);PNT(220);"^/"
  88 830 PRINT "3=TORPEDO CTRL.";TAB(18);"5 ------- 1"
  89 840 PRINT "4=SHIELDS";TAB(22);"/^";PNT(220)
  90 850 PRINT "5=LIBRARY COMPUTER";TAB(21);"/ ^ ";PNT(220)
  91 860 PRINT "6=RESIGNATION";TAB(20);"6  7  8"
  92 870 PRINT
  93 880 GOTO 700
  94 890 PRINT "COURSE (1-8)";
  95 900 INPUT C1
  96 910 IF C1<1 THEN 700\IF C1>=9 THEN 700
  97 920 PRINT "WARP FACTOR (0-8)";
  98 930 INPUT W1
  99 940 IF W1<=0 THEN 700\IF W1>8 THEN 700
 100 950 IF D(1)>=0 THEN 980\IF W1<=.5 THEN 980
 101 960 PRINT "ENGINES ARE DAMAGED. MAXIMUM SPEED = WARP 0.5"
 102 970 GOTO 920
 103 980 IF E-(W1*8)>0 THEN 1030
 104 990 IF S<1 THEN 2470
 105 1000 PRINT "YOU ONLY HAVE";E;"UNITS. SUGGEST YOU TRANSFER FROM"
 106 1010 PRINT "SHIELDS WHICH HAVE";S;"UNITS."
 107 1020 GOTO 700
 108 1030 FOR I=1 TO 6
 109 1040 IF D(I)>=0 THEN 1060
 110 1050 D(I)=D(I)+1
 111 1060 NEXT I
 112 1070 IF FNA(10)<>5 THEN 1120\IF W1<2 THEN 1120
 113 1080 R1=FNA(6)
 114 1090 D(R1)=D(R1)-FNA(5)
 115 1100 GOSUB 3420
 116 1110 PRINT\PRINT "DAMAGE CONTROL REPORTS '";Z$;"' DAMAGED."\PRINT
 117 1120 N=INT(W1*8)
 118 1130 Q(S1,S2)=0
 119 1140 X=S1
 120 1150 Y=S2
 121 1160 C2=INT(C1)
 122 1170 X1=C(C2,1)+(C(C2+1,1)-C(C2,1))*(C1-C2)
 123 1180 X2=C(C2,2)+(C(C2+1,2)-C(C2,2))*(C1-C2)
 124 1190 FOR I=1 TO N
 125 1200 S1=S1+X1
 126 1210 S2=S2+X2
 127 1220 IF S1<1 THEN 1360\IF S1>8 THEN 1360\IF S2<1 THEN 1360
 128 1221 IF S2>8 THEN 1360
 129 1230 IF Q(INT(S1),INT(S2))=0 THEN 1270
 130 1240 S1=S1-X1
 131 1250 S2=S2-X2
 132 1260 PRINT "DANGER AHEAD, ENTERPRISE STOPPED"\GOTO 1280
 133 1270 NEXT I
 134 1280 S1=INT(S1)
 135 1290 S2=INT(S2)
 136 1300 Q(S1,S2)=1
 137 1310 E=E-N
 138 1320 IF W1<1 THEN 690
 139 1330 T=T+1
 140 1340 IF T>T0+30 THEN 2500
 141 1350 GOTO 690
 142 1360 X=Q1*8+X+X1*N
 143 1370 Y=Q2*8+Y+X2*N
 144 1380 Q1=INT(X/8)
 145 1390 Q2=INT(Y/8)
 146 1400 S1=INT(X-Q1*8+.5)
 147 1410 S2=INT(Y-Q2*8+.5)
 148 1420 IF S1>0 THEN 1450
 149 1430 Q1=Q1-1
 150 1440 S1=8
 151 1450 IF S2>0 THEN 1480
 152 1460 Q2=Q2-1
 153 1470 S2=8
 154 1480 T=T+1
 155 1490 E=E-N+5
 156 1500 IF T>T0+30 THEN 2500
 157 1510 GOTO 360
 158 1520 PRINT X$(1,17)
 159 1525 DIM N(3)
 160 1530 FOR I=Q1-1 TO Q1+1
 161 1540 N(1)=0\N(2)=0\N(3)=0
 162 1550 FOR J=Q2-1 TO Q2+1
 163 1560 IF I<1 THEN 1580\IF I>8 THEN 1580
 164 1565 IF J<1 THEN 1580\IF J>8 THEN 1580
 165 1570 N(J-Q2+2)=G(I,J)
 166 1580 NEXT J
 167 1590 PRINT ":";N(1);TAB(7);":";N(2);TAB(13);":";N(3);TAB(19);":";
 168 1600 PRINT X$(1,17)
 169 1610 NEXT I
 170 1620 GOTO 700
 171 1640 IF K3=0 THEN 2350
 172 1650 PRINT "ENERGY AVAILABLE =";E
 173 1660 PRINT "NUMBER OF UNITS TO FIRE =";
 174 1670 INPUT X
 175 1680 IF X<1 THEN 700
 176 1690 IF E-X<0 THEN 1660
 177 1700 E=E-X
 178 1710 FOR I=1 TO 3
 179 1720 IF K(I,3)=0 THEN 1780
 180 1730 H=INT(X/K3/(FND(0)))
 181 1740 K(I,3)=K(I,3)-H
 182 1750 PRINT H;"UNIT HIT ON KLINGON"
 183 1760 IF K(I,3)>0 THEN 1780
 184 1770 GOSUB 2050
 185 1780 NEXT I
 186 1790 GOTO 2030
 187 1800 IFP>0 THEN 1830
 188 1810 PRINT "ALL PHOTON TORPEDOES EXPENDED."
 189 1820 GOTO 700
 190 1830 PRINT "TORPEDO COURSE (1-9)";
 191 1840 INPUT C1
 192 1850 IF C1<1 THEN 700\IF C1=>9 THEN 700
 193 1860 C2=INT(C1)
 194 1870 X1=C(C2,1)+(C(C2+1,1)-C(C2,1))*(C1-C2)
 195 1880 X2=C(C2,2)+(C(C2+1,2)-C(C2,2))*(C1-C2)
 196 1890 X=S1
 197 1900 Y=S2
 198 1910 P=P-1
 199 1920 PRINT
 200 1930 X=X+X1
 201 1940 Y=Y+X2
 202 1950 IF X<1 THEN 2180\IF X>8 THEN 2180\IF Y<1 THEN 2180\IF Y>8 THEN 2180
 203 1960 IF Q(INT(X),INT(Y))<>0 THEN 1970
 204 1961 IF Q(INT(X+.5),INT(Y+.5))<>0 THEN 1970
 205 1962 GOTO 1930
 206 1970 FOR I=1 TO 3
 207 1980 IF INT(X)<>K(I,1) THEN 1990
 208 1981 IF INT(Y)<>K(I,2) THEN 1990
 209 1982 GOTO 2020
 210 1990 IF INT(X+.5)<>K(I,1) THEN 2000
 211 1991 IF INT(Y+.5)<>K(I,2) THEN 2000
 212 1993 GOTO 2020
 213 2000 NEXT I
 214 2010 GOTO 2120
 215 2020 GOSUB 2050
 216 2030 GOSUB 2370
 217 2040 GOTO 700
 218 2050 K(I,3)=0\Q(K(I,1),K(I,2))=0
 219 2060 PRINT "***KLINGON DESTROYED***"
 220 2070 K3=K3-1
 221 2080 K9=K9-1
 222 2090 IF K9=0 THEN 2550
 223 2100 G(Q1,Q2)=G(Q1,Q2)-100
 224 2110 RETURN
 225 2120 IF Q(INT(X),INT(Y))<>3 THEN 2150
 226 2130 PRINT "YOU CAN'T DESTROY STARS, SILLY!"
 227 2140 GOTO 2180
 228 2150 PRINT "***STARBASE DESTROYED***"
 229 2160 PRINT "YOU ARE HEREBY RELIEVED OF DUTY!! CONGRATULATIONS!"
 230 2170 GOTO 2530
 231 2180 PRINT "TORPEDO MISSED."
 232 2190 GOTO 2030
 233 2200 PRINT "ENERGY AVAILABLE";E+5
 234 2210 PRINT "NUMBER OF UNITS TO SHIELDS";
 235 2220 INPUT X
 236 2230 IF X<0 THEN 700
 237 2240 IF E+S-X<0 THEN 2210
 238 2250 E=E+S-X
 239 2260 S=X
 240 2270 GOTO 700
 241 2280 PRINT\PRINT "DEVICE","STATE OF REPAIR"
 242 2290 FOR R1=1 TO 6
 243 2300 GOSUB 3420
 244 2310 PRINT Z$,D(R1)
 245 2320 NEXT R1
 246 2330 PRINT
 247 2340 GOTO 700
 248 2350 PRINT "SHORT RANGE SENSORS REPORT NO KLINGONS IN THIS QUADRENT."
 249 2360 GOTO 700
 250 2370 IF C$="DOCKED" THEN 2460
 251 2380 IF K3=0 THEN 2460
 252 2390 FOR I=1 TO 3
 253 2400 IF K(I,3)=0 THEN 2450
 254 2410 H=INT(K(I,3)/FND(0)+1)
 255 2420 S=S-H
 256 2430 PRINT H;"UNIT HIT ON ENTERPRISE."
 257 2440 IF S<0 THEN 2520
 258 2450 NEXT I
 259 2460 RETURN
 260 2470 PRINT "***FATAL ERROR***"
 261 2480 PRINT "THE ENTERPRISE IS DEAD IN SPACE, AND MUST BE EVACUATED!!"
 262 2490 GOTO 2530
 263 2500 PRINT\PRINT "IT IS STARDATE";T
 264 2510 GOTO 2530
 265 2520 PRINT\PRINT "     *** THE ENTERPRISE HAS BEEN DESTROYED ***"
 266 2530 PRINT\PRINT "THE FEDERATION WILL BE CONQUERED!!!"
 267 2540 GOTO 3560
 268 2550 PRINT
 269 2560 PRINT "THE LAST KLINGON CRUSER HAS BEEN DESTROYED!!"
 270 2570 PRINT "THE FEDERATION HAS BEEN SAVED!!"
 271 2580 PRINT
 272 2590 GOTO 3560
 273 2600 FOR I=S1-1 TO S1+1
 274 2610 FOR J=S2-1 TO S2+1
 275 2620 IF I<1 THEN 2640\IF I>8 THEN 2640
 276 2621 IF J<1 THEN 2640\IF J>8 THEN 2640
 277 2630 IF Q(I,J)=4 THEN 2670
 278 2640 NEXT J
 279 2650 NEXT I
 280 2660 GOTO 2730
 281 2670 C$="DOCKED"
 282 2680 E=3000
 283 2690 P=15
 284 2700 FOR I=1 TO 6\D(I)=0\NEXT I
 285 2710 S=0
 286 2720 GOTO 2810
 287 2730 PRINT
 288 2740 IF K3>0 THEN 2780
 289 2750 IF E<300 THEN 2800
 290 2760 C$="GREEN"
 291 2770 GOTO 2810
 292 2780 C$="RED"
 293 2790 GOTO 2810
 294 2800 C$="YELLOW"
 295 2810 PRINT X$
 296 2820 Z=0
 297 2830 GOSUB 3330
 298 2840 PRINT
 299 2850 GOSUB 3330
 300 2860 PRINT "STARDATE     ";T
 301 2870 GOSUB 3330
 302 2880 PRINT "CONDITION     ";C$
 303 2890 GOSUB 3330
 304 2900 PRINT "ENERGY       ";E
 305 2910 GOSUB 3330
 306 2920 PRINT "TORPEDOES    ";P
 307 2930 GOSUB 3330
 308 2940 PRINT "SHIELDS      ";S
 309 2950 GOSUB 3330
 310 2960 PRINT "KLINGONS     ";K9
 311 2970 GOSUB 3330
 312 2980 PRINT
 313 2990 PRINT X$
 314 3000 RETURN
 315 3010 PRINT "COMPUTER ACTIVE AND AWAITING COMMAND";
 316 3020 INPUT A
 317 3030 IF A+1=1 GOTO 2280\IF A+1=2 GOTO 3100\IF A+1=3 GOTO 3310
 318 3040 PRINT "FUNCTIONS AVAILABLE FROM COMPUTER:"
 319 3050 PRINT "  0=DAMAGE REPORT"
 320 3060 PRINT "  1=PHOTON TORPEDO DATA"
 321 3070 PRINT "  2=SHORT RANGE SCAN"
 322 3080 PRINT
 323 3090 GOTO 3010
 324 3100 PRINT
 325 3110 FOR I=1 TO 3
 326 3120 IF K(I,3)<=0 THEN 3200
 327 3130 X=K(I,2)-S2
 328 3140 Y=S1-K(I,1)
 329 3150 IF X=0 THEN 3240
 330 3160 A=INT(((57.3*ATN(Y/X))/45+1)*100)/100
 331 3170 IF X<=0 THEN 3180\IF Y=>0 THEN 3180\GOTO 3290
 332 3180 IF X<0 THEN 3220
 333 3190 PRINT "DIRECTION=";A
 334 3200 NEXT I
 335 3210 GOTO 700
 336 3220 A=A+4
 337 3230 GOTO 3190
 338 3240 IF Y<0 THEN 3270
 339 3250 A=3
 340 3260 GOTO 3190
 341 3270 A=7
 342 3280 GOTO 3190
 343 3290 A=A+8
 344 3300 GOTO 3190
 345 3310 GOSUB 2600
 346 3320 GOTO 700
 347 3330 REM *****OUTPUT QUADRENT*****
 348 3340 Z=Z+1
 349 3350 FOR I=1 TO 8
 350 3360 Z$="   <*>+++ * >!<"
 351 3370 PRINT SEG$(Z$,Q(Z,I)*3+1,Q(Z,I)*3+3);
 352 3380 NEXT I
 353 3390 IF Z=1 THEN 3410\IF Z=8 THEN 3410
 354 3400 PRINT "     ";
 355 3410 RETURN
 356 3420 REM *****PRINTS DEVICE NAME*****
 357 3430 DIM Z9$(6,15)\Z9$(1)="WARP ENGINES"\Z9$(2)="SCANNERS"
 358 3440 Z9$(3)="PHASER BANKS"\Z9$(4)="TORPEDO TUBES"
 359 3450 Z9$(5)="SHIELD CONTROL"\Z9$(6)="COMPUTER"
 360 3470 Z$=Z9$(R1)
 361 3490 RETURN
 362 3500 REM ***PLACEMENT IN QUADRANT ARRAY***
 363 3510 R1=FNA(8)
 364 3520 R2=FNA(8)
 365 3530 IF Q(R1,R2)<>0 THEN 3510
 366 3540 RETURN
 367 3550 PRINT\PRINT "YOUR RESIGNATION HAS BEEN ACCEPTED."
 368 3560 STOP
 369 3570 PRINT
 370 3572 PRINT "DO YOU NEED INSTRUCTIONS";
 371 3580 INPUT A4$
 372 3590 PRINT\PRINT\PRINT
 373 3600 IF A4$="N" THEN 440\IF A$="NO" THEN 440
 374 3601 IF A4$="Y" THEN 3605\IF A4$="YES" THEN 3605\GOTO 3570
 375 3605 PRINT TAB(20);"STAR TREK SPACE SIMULATOR"\PRINT
 376 3606 PRINT "AS CAPTAIN OF THE ENTERPRISE, YOU HAVE 30 STARDATES"
 377 3607 PRINT "TO DESTROY THE KLINGONS. ONE STARDATE TRANSPIRES EACH TIME"
 378 3608 PRINT "YOU MOVE TO A NEW SECTOR. (THE UNIVERSE IS 8X8 SECTORS)."
 379 3609 PRINT\PRINT "SCAN CHART SYMBOLS:"
 380 3610 PRINT TAB(5);"<*> = ENTERPRISE"
 381 3620 PRINT TAB(5);" *  = STAR"
 382 3630 PRINT TAB(5);"+++ = KLINGON"
 383 3640 PRINT TAB(5);">!< = STARBASE"
 384 3650 PRINT\PRINT "OPERATING COMMANDS FOR THE ENTERPRISE:"
 385 3660 PRINT\PRINT "COMMAND 0 = WARP ENGINES."
 386 3670 PRINT "  COURSE IS IN A CIRCULAR VECTOR AS SHOWN.";TAB(50);"4  3  2"
 387 3680 PRINT "  REAL VALUES MAY BE USED. FOR EXAMPLE";
 388 3681 PRINT TAB(51);PNT(220);" ^ /"
 389 3690 PRINT "  1.2 WOULD BE HALF WAY BETWEEN 1 AND 2.";
 390 3691 PRINT TAB(52);PNT(220);"^/"
 391 3700 PRINT TAB(48);"5 ------- 1"
 392 3710 PRINT "  A 'WARP FACTOR' IS THE SIZE OF ONE QUARDRANT.";
 393 3711 PRINT TAB(52);"/^";PNT(220)
 394 3720 PRINT TAB(51);"/ ^ ";PNT(220)
 395 3730 PRINT TAB(50);"6  7  8"
 396 3740 PRINT\PRINT "COMMAND 1 = LONG RANGE SCAN."
 397 3750 PRINT "  CODED IN THE FORM XXX, WHERE THE UNITS ARE THE NUMBER"
 398 3760 PRINT "  OF STARS, TENS THE NUMBER OF STARBASES, AND HUNDREDS"
 399 3770 PRINT "  THE NUMBER OF KLINGONS."
 400 3780 PRINT\PRINT "COMMAND 2 = PHASERS."
 401 3790 PRINT "  YOU MAY DESTROY THE KLINGON BY USING ENOUGH PHASER"
 402 3800 PRINT "  POWER AS TO DEPLETE HIS SHIELDS. KEEP IN MIND THAT WHEN"
 403 3810 PRINT "  YOU FIRE AT HIM, HE WILL FIRE BACK!"
 404 3820 PRINT\PRINT "COMMAND 3 = PHOTON TORPEDOES."
 405 3830 PRINT "  COURSE IS THE SAME AS WITH WARP ENGINES. THE LIBRARY"
 406 3840 PRINT "  COMPUTER WILL COMPUTE TRAJECTORIES FOR YOU (OPTION 1)."
 407 3850 PRINT\PRINT "COMMAND 4 = SHIELDS."
 408 3860 PRINT "  DEFINES THE AMOUNT OF ENERGY TO BE ASSIGNED TO SHIELDS."
 409 3870 PRINT\PRINT "COMMAND 5 = LIBRARY COMPUTER."
 410 3880 PRINT "  OPTION 0 = DAMMAGE REPORT."
 411 3890 PRINT "    A STATE OF REPAIR OF LESS THAN ZERO INDICATES THAT"
 412 3900 PRINT "    THE DEVICE IS TEMPORARILY DISABLED."
 413 3910 PRINT "  OPTION 1 = PHOTON TORPEDO DATA."
 414 3920 PRINT "    GIVES DIRECTION TO ALL KLINGONS IN YOUR QUADRANT."
 415 3930 PRINT "  OPTION 2 = SHORT RANGE SCAN."
 416 3940 PRINT "    ALSO GIVEN AUTOMATICALLY AFTER SUCCESSFUL COMPLETION"
 417 3950 PRINT "    OF WARP ENGINE MANUVERS."
 418 3960 PRINT\PRINT "COMMAND 6 = RESIGNATION."
 419 3970 PRINT\PRINT "GOOD LUCK!"
 420 3980 GOTO 440
 421 3990 END
 422