historic/UT-Trek.basic

   1 1  PRINT "U. OF TEXAS STAR TREK GAME BY GRADY HICKS AND JIM KORP."
   2 2  PRINT "GENERAL IDEA STOLEN FROM PENN. U. BY HICKS."
   3 3  PRINT "VASTLY IMPROVED, AND ADAPTED TO TAURUS BY KORP, 5 APRIL 73."
   4 4  GOSUB 9980
   5 5  PRINT "   BE CAREFUL AND HAVE A GOOD TIME."
   6 6  PRINT
   7 7  PRINT
   8 8  X8=RND(0)
   9 9  DIM Q$(10)
  10 10  DIM G(8,8),Q(8,8),D(8),K(9,3),N(3)
  11 11  DIM C$(20)
  12 12  GOSUB 8050
  13 13  PRINT "   TO PLAY SHORT VERSION, TYPE 1 ---"
  14 14  PRINT "   TO PLAY REGULAR VERSION, TYPE 2:";
  15 15  INPUT V
  16 16  IF V = 1 THEN 20
  17 17  IF V = 2 THEN 20
  18 18  PRINT
  19 19  GOTO 13
  20 20  T0=INT(RND(0)*20+20)*100
  21 21  T=T0
  22 22  T9=40
  23 23  E0=3000
  24 24  E=3000
  25 25  P0=10
  26 26  P=10
  27 27  S9=200
  28 29  GOSUB 8200
  29 30  DEF FNO(F)=SQR((K(F,1)-S1)^2+(K(F,2)-S2)^2)
  30 32  Q1=INT(RND(0)*8+1)
  31 34  Q2=INT(RND(0)*8+1)
  32 35  F=1
  33 40  FOR I=1 TO 7
  34 42  D(I)=0
  35 44  NEXT I
  36 62  S1=INT(RND(0)*8+1)
  37 64  S2=INT(RND(0)*8+1)
  38 65  DIM F$(12)
  39 66  DIM N$(15)
  40 72  REM: SET UP GALAXY
  41 75  B9=0
  42 76  LET E4=W3=A9=C5=0
  43 77  Z$="DOWN"
  44 80  K9=0
  45 85  FOR I=1 TO 8
  46 90  FOR J=1 TO 8
  47 91  R=RND(0)*64
  48 95  IF V=2 THEN 150
  49 100  T9=20
  50
  51 110  IF R>=.28 THEN 114
  52 111  K3=4
  53 112  GOTO 135
  54 114  IF R>=1.78 THEN 118
  55 115  K3=3
  56 116  GOTO 135
  57 118  IF R>=5.28  THEN 122
  58 119  K3=2
  59 120  GOTO 135
  60 122  IF R>=9.28 THEN 130
  61 123  K3=1
  62 124  GOTO 135
  63 130  K3=0
  64 135  K9=K9+K3
  65 145  GOTO 206
  66 150  REM: DETERMINE NUMBER OF KLINGONS, BASES AND STARS.
  67 152  IF R>=.01 THEN 156
  68 153  K3=9
  69 154  GOTO 195
  70 156  IF R>=.10 THEN 160
  71 157  K3=8
  72 158  GOTO 195
  73 160  IF R>=.30 THEN 164
  74 161  K3=7
  75 162  GOTO 195
  76 164  IF R>=.80 THEN 168
  77 165  K3=6
  78 166  GOTO 195
  79 168  IF R>=1.25 THEN 172
  80 169  K3=5
  81 170  GOTO 195
  82 172  IF R>=2.00 THEN 176
  83 173  K3=4
  84 174  GOTO 195
  85 176  IF R>=5.28 THEN 180
  86 177  K3=3
  87 178  GOTO 195
  88 180  IF R>=8.28 THEN 183
  89 181  K3=2
  90 182  GOTO 195
  91 183  IF R>=13.28 THEN 190
  92 184  K3=1
  93 185  GOTO 195
  94 190  K3=0
  95 195  K9=K9+K3
  96 200  B3=RND(0)
  97 202  IF B3<=.97 THEN 206
  98 204  B3=1
  99 205  GOTO 221
 100 206  B3=0
 101 221  B9=B9+B3
 102 230  S3=INT(RND(0)*8+1)
 103 235  G(I,J)=K3*100+B3*10+S3
 104 250  NEXT J
 105 260  NEXT I
 106 265  K0=K9
 107 270  IF B9>0 THEN 285
 108 271  I=INT(RND(0)*8+1)
 109 272  J=INT(RND(0)*8+1)
 110 275  G(I,J)=G(I,J)+10
 111 276  B9=1
 112 285  LET P2=1
 113 294  PRINT
 114 295  PRINT "   PLEASE TYPE A SECRET PASSWORD:";
 115 296  INPUT X$
 116 297  PRINT
 117 298  LET N1=N9=N7=A7=0
 118 300  REM: DETERMINE KLINGON COMMANDER
 119 302  IF A9<>0 THEN 320
 120 304  R1=INT(RND(0)*8+1)
 121 306  R2=INT(RND(0)*8+1)
 122 308  C2=R1
 123 310  C3=R2
 124 312  G(C2,C3)=G(C2,C3)+100
 125 314  K9=K9+1
 126 315  K0=K9
 127 316  A9=A9+1
 128 320  REM: CONTINUE
 129 399  GOTO 9045
 130 400  REM: SET UP QUADRANT
 131 405  K3=B3=S3=0
 132 410  IF Q1<1 THEN 500
 133 420  IF Q1>8 THEN 500
 134 430  IF Q2<1 THEN 500
 135 440  IF Q2>8 THEN 500
 136 450  X=G(Q1,Q2)/99.999
 137 460  K3=INT(X)
 138 470  B3=INT((X-K3)*10.0)
 139 480  S3=G(Q1,Q2)-INT(G(Q1,Q2)*.1)*10
 140 490  'MAT K=ZER
 141 491  FOR I=1 TO 8
 142 492  FOR J=1 TO 8
 143 493  Q(I,J)=0
 144 494  NEXT J
 145 495  NEXT I
 146 500  FOR I=1 TO 8
 147 510  FOR J=1 TO 8
 148 520  Q(I,J)=0
 149 530  NEXT J
 150 540  NEXT I
 151 545  IF N1<>1 THEN 550
 152 548  Q(S1,S2)=5
 153 549  GOTO 560
 154 550  Q(S1,S2)=1
 155 560  FOR I=1 TO K3
 156 570  GOSUB 9000
 157 580  Q(R1,R2)=2
 158 590  K(I,1)=R1
 159 591  K(I,2)=R2
 160 593  K(I,3)=S9
 161 600  NEXT I
 162 601  IF Q1<>C2 THEN 610
 163 602  IF Q2<>C3 THEN 610
 164 603  K(I,3)=800
 165 605  Q(K(I,1),K(I,2))=6
 166 610  FOR I=1 TO B3
 167 620  GOSUB 9000
 168 630  Q(R1,R2)=3
 169 640  NEXT I
 170 650  FOR I=1 TO S3
 171 660  GOSUB 9000
 172 670  Q(R1,R2)=4
 173 680  NEXT I
 174 690  A=-1
 175 691  IF P2=1 THEN 700
 176 693  GOSUB 5000
 177 694  IF E<=0 THEN 5200
 178 699  GOTO 955
 179 700  REM: SHORT RANGE SENSOR SCAN
 180 702  P2=P2+1
 181 705  LET T8=S1-1
 182 706  LET U=S1+1
 183 707  LET M=S2-1
 184 708  LET N=S2+1
 185 709  IF T8>=1 THEN 711
 186 710  T8=1
 187 711  IF U<=8 THEN 713
 188 712  U=8
 189 713  IF M>=1 THEN 715
 190 714  M=1
 191 715  IF N<=8 THEN 720
 192 716  N=8
 193 720  FOR I=T8 TO U
 194 725  FOR J=M TO N
 195 735  IF Q(I,J)<>3 THEN 740
 196 736  C$="DOCKED"
 197 737  GOSUB 7700
 198 739  GOTO 801
 199 740  NEXT J
 200 745  NEXT I
 201 770  IF K3>0 THEN 790
 202 775  IF E<E0*.1 THEN 800
 203 780  C$="GREEN"
 204 785  GOTO 801
 205 790  C$="RED"
 206 795  GOTO 801
 207 800  C$="YELLOW"
 208 801  IF A<0 THEN 803
 209 802  GOTO 804
 210 803  GOSUB 5000
 211 804  IF E<=0 THEN 5200
 212 805  IF D(2) >= 0 THEN 830
 213 815  PRINT "SHORT RANGE SENSORS ARE OUT "
 214 820  PRINT
 215 825  GOTO 955
 216 830  PRINT "----------------------"
 217 835  FOR I=1 TO 8
 218 836  FOR J=1 TO 8
 219 838  PRINT Q$(Q(I,J)+1);" ";
 220 840  NEXT J
 221 841  PRINT "   ";
 222 845  GOSUB 854
 223 847  NEXT I
 224 848  PRINT "--------------------------"
 225 849  GOTO 955
 226 854  IF I>1 THEN 859
 227 855  PRINT "STARDATE         "T
 228 856  GOTO 900
 229 859  IF I>2 THEN 864
 230 860  PRINT "CONDITION        "C$
 231 861  GOTO 900
 232 864  IF I>3 THEN 869
 233 865  PRINT "QUADRANT         "Q1;"-"Q2
 234 866  GOTO 900
 235 869  IF I>4 THEN 874
 236 870  PRINT "SECTOR           "S1;"-"S2
 237 871  GOTO 900
 238 874  IF I>5 THEN 879
 239 875  PRINT "ENERGY           "E
 240 876  GOTO 900
 241 879  IF I>6 THEN 884
 242 880  PRINT "PHOTON TORPEDOES "P
 243 881  GOTO 900
 244 884  IF I>7 THEN 890
 245 885  PRINT "KLINGONS LEFT    "K9
 246 886  GOTO 900
 247 890  PRINT "ENERGY SHIELDS   "Z$
 248 900  RETURN
 249 955  IF N9<>1 THEN 959
 250 956  GOSUB  7950
 251 957  IF N7=1 THEN 3582
 252 958  N9=2
 253 959  PRINT "COMMAND:";
 254 960  INPUT A
 255 961  IF C$<>"DOCKED" THEN 964
 256 962  GOSUB 7700
 257 964  GOTO 7100
 258 974  PRINT
 259 975  PRINT "   0 = SET COURSE"
 260 980  PRINT "   1 = SHORT RANGE SENSOR SCAN"
 261 985  PRINT "   2 = LONG RANGE SENSOR SCAN"
 262 990  PRINT "   3 = FIRE PHASERS"
 263 995  PRINT "   4 = FIRE PHOTON TORPEDOES"
 264 1000  PRINT "   5 = DAMAGE CONTROL REPORT"
 265 1005  PRINT "   6 = SELF-DESTRUCT"
 266 1006  PRINT "   7 = ABANDON SHIP"
 267 1007  PRINT "   8 = ACTIVATE ENERGY SHIELDS"
 268 1008  PRINT "   9 = DEACTIVATE ENERGY SHIELDS"
 269 1009  PRINT "   10 = FIRE EXPERIMENTAL DEATH RAY"
 270 1018  IF H6=1 THEN 9946
 271 1019  PRINT
 272 1020  GOTO 955
 273 1030  REM: WARP DRIVE
 274 1035  C$="MOVING"
 275 1040  PRINT "COURSE (1-8.9999):";
 276 1050  INPUT C1
 277 1060  IF C1=0 THEN 955
 278 1070  IF C1<1 THEN 959
 279 1080  IF C1>= 9 THEN 1040
 280 1090  PRINT "WARP FACTOR (0-12):";
 281 1100  INPUT W1
 282 1110  IF W1<0 THEN 959
 283 1120  IF W1>12 THEN 959
 284 1130  IF W1<=.25 THEN 1163
 285 1140  IF D(1) >= 0 THEN 1163
 286 1150  PRINT "WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = WARP .25"
 287 1160  GOTO 1040
 288 1163  GOTO 7500
 289 1164  E=E-C5
 290 1165  IF E<=0 THEN 5200
 291 1168  IF W1=12 THEN 3500
 292 1170  REM: THIS IS A CONTINUE CARD
 293 1180  GOSUB 5000
 294 1185  IF N9=1 THEN 955
 295 1190  IF E <=0 THEN 5230
 296 1200  FOR I=1 TO 7
 297 1215  IF D(I)=0 THEN 1230
 298 1220  D(I)=D(I)+2
 299 1222  IF D(I)<0 THEN 1230
 300 1225  D(I)=0
 301 1230  NEXT I
 302 1240  IF RND(0)>.20 THEN 1320
 303 1250  R1=INT(RND(0)*7+1)
 304 1260  IF RND(0)>.5 THEN 1300
 305 1270  D(R1)=D(R1)-(RND(0)*5+1)
 306 1280  PRINT "*** SPACE STORM, ";
 307 1281  GOSUB 6000
 308 1283  PRINT F$" DAMAGED ***"
 309 1290  GOTO 1320
 310 1300  FOR I=R1 TO 7
 311 1301  IF D(I)<0 THEN 1307
 312 1302  NEXT I
 313 1303  FOR I=1 TO R1-1
 314 1304  IF D(I)<0 THEN 1307
 315 1305  NEXT I
 316 1306  GOTO 1320
 317 1307  R1=I
 318 1308  D(I)=D(I)+RND(0)*5+1
 319 1309  IF D(I)<=0 THEN 1311
 320 1310  D(I)=0
 321 1311  PRINT "*** TEMPORARY TRUCE, ";
 322 1312  GOSUB 6000
 323 1313  PRINT F$" STATE OF REPAIR IMPROVED ***"
 324 1320  N=INT(W1*8)
 325 1322  E=E-N-N+5
 326 1324  T=T+1
 327 1326  Q(S1,S2)=0
 328 1327  X=S1
 329 1328  Y=S2
 330 1330  IF T>T0+T9 THEN 5200
 331 1340  GOSUB 3460
 332 1350  FOR I=1 TO N
 333 1352  S1=S1+X1
 334 1354  S2=S2+X2
 335 1356  X3=INT(S1+.5)
 336 1357  Y3=INT(S2+.5)
 337 1370  IF S1<.5 THEN 1480
 338 1375  IF S2<.5 THEN 1480
 339 1380  IF S1>=8.5 THEN 1480
 340 1385  IF S2>=8.5 THEN 1480
 341 1388  IF Q(X3,Y3)<>0 THEN 1392
 342 1390  NEXT I
 343 1391  GOTO 1460
 344 1392  LET Z5=Q(X3,Y3)
 345 1393  IF Z5=6 THEN 6300
 346 1394  IF Z5<>2 THEN 1405
 347 1400  GOTO 6300
 348 1405  PRINT
 349 1406  GOSUB 7900
 350 1407  PRINT N$;"BLOCKED BY OBJECT AT SECTOR"S1;"-"S2
 351 1408  S1=S1-X1
 352 1410  S2=S2-X2
 353 1460  S1=INT(S1+.5)
 354 1465  S2=INT(S2+.5)
 355 1467  Q(S1,S2)=A5
 356 1470  GOTO 955
 357 1480  Q1=INT(Q1+W1*X1+(X-.5)/8)
 358 1481  Q2=INT(Q2+W1*X2+(Y-.5)/8)
 359 1482  IF Q1>=1 THEN 1485
 360 1483  Q1=1
 361 1484  Z2=1
 362 1485  IF Q1<=8 THEN 1488
 363 1486  Q1=8
 364 1487  Z2=1
 365 1488  IF Q2>=1 THEN 1491
 366 1489  Q2=1
 367 1490  Z2=1
 368 1491  IF Q2<=8 THEN 1494
 369 1492  Q2=8
 370 1493  Z2=1
 371 1494  IF Z2<>1 THEN 1497
 372 1496  GOSUB 8970
 373 1497  PRINT
 374 1498  IF G(Q1,Q2)>999 THEN 7650
 375 1499  Z2=0
 376 1500  S1=INT(RND(0)*8+1)
 377 1510  S2=INT(RND(0)*8+1)
 378 1550  GOTO 400
 379 1600  REM: LONG RANGE SENSOR SCAN
 380 1610  IF D(3) >= 0 THEN 1640
 381 1620  PRINT "LONG RANGE SENSORS ARE INOPERABLE"
 382 1625  PRINT
 383 1630  GOTO 955
 384 1640  PRINT "LONG RANGE SENSOR SCAN FOR QUADRANT"Q1","Q2
 385 1645  PRINT "----------------- '"
 386 1660  FOR I=Q1-1 TO Q1+1
 387 1670  N(1)=N(2)=N(3)=0
 388 1680  FOR J=Q2-1 TO Q2+1
 389 1690  IF I<1 THEN 1740
 390 1700  IF I>8 THEN 1740
 391 1710  IF J<1 THEN 1740
 392 1720  IF J>8 THEN 1740
 393 1730  N(J-Q2+2)=G(I,J)
 394 1740  NEXT J
 395 1750  PRINT ":"N(1);":"N(2);":"N(3)
 396 1760  PRINT "------------------- '"
 397 1770  NEXT I
 398 1775  PRINT
 399 1780  GOTO 955
 400 1800  REM: PHASER CONTROL
 401 1810  IF D(4) >= 0 THEN 1832
 402 1820  PRINT "PHASER CONTROL IS DISABLED"
 403 1825  PRINT
 404 1830  GOTO 955
 405 1832  IF C5=0 THEN 1840
 406 1834  PRINT "YOU MUST LOWER YOUR ENERGY SHIELDS TO FIRE."
 407 1836  PRINT
 408 1837  GOTO 959
 409 1840  PRINT "PHASERS LOCKED ON TARGET.  ENERGY AVAILABLE = "E
 410 1850  PRINT "NUMBER OF UNITS TO FIRE:";
 411 1860  INPUT X
 412 1870  IF X <= 0 THEN 955
 413 1880  IF E-X<0 THEN 1840
 414 1890  E=E-X
 415 1895  IF K3=0 THEN 2010
 416 1898  W2=K3
 417 1900  FOR I=1 TO 9
 418 1910  IF K(I,3) <= 0 THEN 1990
 419 1929  H=(X)/(FNO(I))*(3.0+RND(0))
 420 1930  K(I,3)=K(I,3)-(H/W2)
 421 1940  PRINT H/W2;"UNIT HIT ON KLINGON AT SECTOR"K(I,1);"-"K(I,2)
 422 1950  PRINT "("K(I,3);"LEFT)"
 423 1960  IF K(I,3)>0 THEN 1990
 424 1970  GOSUB 4500
 425 1980  IF K9 <= 0 THEN 5300
 426 1990  NEXT I
 427 1995  IF K3<=0 THEN 2020
 428 2000  GOSUB 5000
 429 2010  IF E <= 0 THEN 5250
 430 2020  GOTO 955
 431 3000  REM: PHOTON TORPEDOES
 432 3010  IF D(5) >= 0 THEN 3040
 433 3020  PRINT "PHOTON TUBES ARE NOT OPERATIONAL"
 434 3025  PRINT
 435 3030  GOTO 955
 436 3040  IF P>0 THEN 3062
 437 3050  PRINT "ALL PHOTON TORPEDOES EXPENDED"
 438 3060  GOTO 955
 439 3062  IF C5=0 THEN 3068
 440 3064  PRINT "YOU MUST LOWER YOUR ENERGY SHIELDS TO FIRE."
 441 3066  PRINT
 442 3067  GOTO 959
 443 3068  PRINT "DO YOU WISH TO FIRE A SPREAD:";
 444 3069  INPUT M$
 445 3070  PRINT "TORPEDO COURSE (1-8.9999):";
 446 3080  INPUT C1
 447 3090  IF C1=0 THEN 955
 448 3100  IF C1<1 THEN 3070
 449 3110  IF C1>=9 THEN 3070
 450 3111  IF P<3 THEN 3120
 451 3116  IF M$="YES" THEN 6500
 452 3120  GOSUB 3460
 453 3130  X=S1
 454 3132  Y=S2
 455 3134  P=P-1
 456 3140  PRINT "TORPEDO TRACK:";
 457 3150  X=X+X1
 458 3155  Y=Y+X2
 459 3160  IF X<.5 THEN 3422
 460 3165  IF Y<.5 THEN 3422
 461 3170  IF X>=8.5 THEN 3422
 462 3175  IF Y>=8.5 THEN 3422
 463 3200  PRINT X;"-"Y;
 464 3202  X5=INT(X+.5)
 465 3204  Y5=INT(Y+.5)
 466 3210  IF Q(X5,Y5)<>0 THEN 3230
 467 3220  GOTO 3150
 468 3230  LET F7=Q(X5,Y5)
 469 3236  IF F7=1 THEN 3150
 470 3237  IF F7=2 THEN 3244
 471 3238  IF F7=3 THEN 3301
 472 3239  IF F7=4 THEN 3323
 473 3240  IF F7=6 THEN 3244
 474 3244  PRINT
 475 3245  PRINT "*** KLINGON DESTROYED ***"
 476 3250  K3=K3-1
 477 3255  K9=K9-1
 478 3260  IF K9<=0 THEN 5300
 479 3271  FOR I=1 TO 9
 480 3272  IF K(I,1)<>X5 THEN 3275
 481 3273  IF K(I,2)<>Y5 THEN 3275
 482 3274  GOTO 3400
 483 3275  NEXT I
 484 3301  Q(X5,Y5)=0
 485 3310  PRINT
 486 3311  PRINT "*** STARBASE DESTROYED ... CONGRATULATIONS ***"
 487 3313  B3=B3-1
 488 3315  GOTO 3410
 489 3323  Q(X5,Y5)=0
 490 3334  PRINT
 491 3335  PRINT "***STAR DESTROYED***"
 492 3340  S3=S3-1
 493 3345  IF S3>=0 THEN 3410
 494 3347  S3=0
 495 3350  GOTO 3410
 496 3400  K(I,3)=0
 497 3401  Q(X5,Y5)=0
 498 3410  G(Q1,Q2)=K3*100+B3*10+S3
 499 3420  GOTO 3430
 500 3422  PRINT
 501 3425  PRINT "TORPEDO MISSED"
 502 3430  IF E4=0 THEN 3439
 503 3432  E4=E4+1
 504 3433  IF E4>3.5 THEN 3438
 505 3435  GOTO 6520
 506 3438  IF K3<=0 THEN 3445
 507 3439  GOSUB 5000
 508 3440  IF E <= 0 THEN 5230
 509 3445  E4=0
 510 3450  GOTO 955
 511 3460  X2=COS((C1-1)*.785398)
 512 3470  X1=-SIN((C1-1)*.785398)
 513 3480  RETURN
 514 3500  W9=RND(0)
 515 3502  IF T>T0+15 THEN 3510
 516 3504  PRINT "WARP 12 CANNOT BE USED UNTIL STARDATE"T0+16
 517 3506  GOTO 1040
 518 3510  PRINT "SPEED APPROACHING WARP 12."
 519 3520  PRINT "ENGINES OPERATING ABOVE DANGER LEVEL."
 520 3530  PRINT "ALL SAFETY DEVICES DISFUNCTIONAL."
 521 3540  PRINT "CRITICAL OVERHEATING--SPONTANEOUS IMPLOSION IMMINENT."
 522 3570  IF W9>.40 THEN 3600
 523 3575  FOR I=1 TO 2
 524 3576  PRINT "*****************************************************"
 525 3577  NEXT I
 526 3578  GOSUB 7900
 527 3580  PRINT "*** ENTROPY OF"N$;"MAXIMIZED **************"
 528 3582  GOSUB 9980
 529 3583  PRINT "  YOU ATE THAT ONE."
 530 3584  GOTO 9992
 531 3600  IF W9>.55 THEN 3700
 532 3610  PRINT
 533 3620  PRINT " YOU ARE TRAVELLING BACK IN TIME."
 534 3630  T=T-6
 535 3640  PRINT "*** STARDATE ="T+1
 536 3650  GOTO 1170
 537 3700  IF W9>.60 THEN 3800
 538 3710  PRINT
 539 3720  PRINT " YOU ARE TRAVELLING BACK IN TIME."
 540 3730  T=T-11
 541 3740  PRINT "*** STARDATE ="T+1
 542 3750  GOTO 1170
 543 3800  IF W9>.70 THEN 3900
 544 3810  PRINT
 545 3820  PRINT " YOU ARE TRAVELLING FORWARD IN TIME."
 546 3830  T=T+5
 547 3840  IF T>T0+T9 THEN 5200
 548 3850  PRINT "*** STARDATE ="T
 549 3860  GOTO 1170
 550 3900  PRINT
 551 3910  PRINT "NUCLEAR REACTOR CHAIN REACTION QUENCHED."
 552 3920  PRINT "*** TIME PORTAL MISSED ***"
 553 3930  GOTO 1170
 554 4000  REM: DAMAGE CONTROL REPORT
 555 4010  IF D(6) >= 0 THEN 4040
 556 4020  PRINT "DAMAGE CONTROL REPORT IS NOT AVAILABLE"
 557 4025  PRINT
 558 4030  GOTO 955
 559 4040  PRINT
 560 4050  PRINT "DEVICE         STATE OF REPAIR"
 561 4060  FOR I=1 TO 7
 562 4065  R5=I-.5
 563 4066  GOSUB 6000
 564 4070  PRINT F$,D(I)
 565 4080  NEXT I
 566 4090  PRINT
 567 4100  GOTO 955
 568 4200  REM:
 569 4500  PRINT "*** KLINGON AT SECTOR"K(I,1);"-"K(I,2);"DESTROYED."
 570 4510  K3=K3-1
 571 4520  K9=K9-1
 572 4530  Q(K(I,1),K(I,2))=0
 573 4540  G(Q1,Q2)=K3*100+B3*10+S3
 574 4550  RETURN
 575 5000  REM: KLINGON ATTACK
 576 5002  GOSUB 7900
 577 5003  IF K3<=0 THEN 5110
 578 5005  IF C$ <> "DOCKED" THEN 5017
 579 5010  PRINT "STARBASE SHIELDS PROTECT THE"N$
 580 5012  RETURN
 581 5017  IF C5=0 THEN 5022
 582 5018  PRINT "** KLINGONS ATTACK-- ENERGY SHIELDS PROTECT"N$
 583 5020  GOTO 5110
 584 5022  IF K3*150<E THEN 5049
 585 5023  IF N1<>0 THEN 5049
 586 5024  PRINT
 587 5025  PRINT "   KLINGON COMMANDER TO ENTERPRISE---"
 588 5026  PRINT "AS YOU WELL KNOW, YOU ARE DANGEROUSLY LOW ON ENERGY"
 589 5027  PRINT "AND WILL PROBABLY BE DESTROYED BY MY NEXT ATTACK."
 590 5028  PRINT "AS AN OFFICER AND GENTLEMAN, I OFFER YOU A CHANCE TO"
 591 5029  PRINT "SAVE YOURSELF AND YOUR CREW----"
 592 5032  PRINT "    DO YOU SURRENDER:";
 593 5033  INPUT S$
 594 5034  IF S$<>"YES" THEN 5049
 595 5035  A7=1
 596 5036  N9=1
 597 5038  GOTO 5110
 598 5049  PRINT
 599 5050  FOR I=1 TO 9
 600 5051  IF K(I,3) <= 0 THEN 5100
 601 5060  H=(K(I,3)/FNO(I))*(2+RND(0))
 602 5070  E=E-H
 603 5075  GOSUB 7900
 604 5080  PRINT H;"UNIT HIT ON"N$;"FROM KLINGON, SECTOR "K(I,1);"-"K(I,2)
 605 5082  IF H<=180 THEN 5090
 606 5083  R5=INT(RND(0)*7+1)
 607 5084  D(R5)=D(R5)-(RND(0)*5+1)
 608 5085  PRINT "*** CRITICAL HIT,";
 609 5086  GOSUB 6000
 610 5087  PRINT F$" DAMAGED ***"
 611 5090  PRINT "("E;"LEFT)"
 612 5100  NEXT I
 613 5105  PRINT
 614 5110  RETURN
 615 5200  REM: LOSE
 616 5210  GOSUB 9985
 617 5220  PRINT "IT IS STARDATE"T
 618 5230  PRINT
 619 5250  GOSUB 7900
 620 5255  PRINT "THE"N$;"HAS BEEN DESTROYED."
 621 5260  PRINT "THERE ARE STILL"K9;"KLINGON BATTLE CRUISERS."
 622 5270  PRINT "THE FEDERATION WILL BE CONQUERED."
 623 5280  PRINT "YOU ARE DEAD, YOU INCOMPETENT FOOL."
 624 5290  GOTO 9992
 625 5300  REM: WIN
 626 5310  GOSUB 9985
 627 5320  PRINT "IT IS STARDATE"T
 628 5330  PRINT "THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN"
 629 5331  PRINT "DESTROYED."
 630 5340  PRINT "THE FEDERATION HAS BEEN SAVED."
 631 5350  PRINT "YOU HAVE BEEN PROMOTED TO COMMODORE EMERITUS."
 632 5355  IF N1<>0 THEN 5380
 633 5360  PRINT K0;"KLINGONS IN"T-T0;"YEARS.  RATING="INT(K0/(T-T0)*1000)
 634 5370  GOTO 9992
 635 5380  PRINT K0;"KLINGONS IN"T-T0;"YEARS."
 636 5382  IF A7=5 THEN 5392
 637 5385  PRINT "ENTERPRISE CAPTURED."
 638 5390  PRINT "RATING ="INT(K0/(T-T0)*1000-1000)
 639 5391  GOTO 9992
 640 5392  PRINT "ENTERPRISE DESTROYED INTENTIONALLY."
 641 5393  PRINT "RATING ="INT(K0/(T-T0)*1000-500)
 642 5395  GOTO 9992
 643 6000  REM: SELECT DAMAGED DEVICE
 644 6002  IF A+1<>1 THEN 6010
 645 6004  R5=R1
 646 6010  IF R5>1 THEN 6040
 647 6020  F$="WARP ENGINES"
 648 6030  GOTO 8000
 649 6040  IF R5>2 THEN 6070
 650 6050  F$="S.R. SENSORS"
 651 6060  GOTO 8000
 652 6070  IF R5>3 THEN 6090
 653 6075  F$="L.R. SENSORS"
 654 6080  GOTO 8000
 655 6090  IF R5>4 THEN 6100
 656 6093  F$="PHASER CNTRL"
 657 6097  GOTO 8000
 658 6100  IF R5>5 THEN 6110
 659 6103  F$="PHOTON TUBES"
 660 6107  GOTO 8000
 661 6110  IF R5>6 THEN 6115
 662 6111  F$="DAMAGE CNTRL"
 663 6112  GOTO 8000
 664 6115  F$="ENERGY SHLDS"
 665 6118  GOTO 8000
 666 6300  REM: RAMMING KLINGON
 667 6301  PRINT
 668 6302  Q(S1,S2)=0
 669 6304  K3=K3-1
 670 6305  K9=K9-1
 671 6310  Z$="DOWN"
 672 6318  FOR I=1 TO 9
 673 6320  IF K(I,1)<>X3 THEN 6330
 674 6322  IF K(I,2)<>Y3 THEN 6330
 675 6323  Z6=K(I,1)
 676 6324  Z7=K(I,2)
 677 6325  GOTO 6360
 678 6330  NEXT I
 679 6360  K(I,3)=0
 680 6362  GOSUB 7900
 681 6363  Q(X3,Y3)=A5
 682 6365  GOTO 6370
 683 6370  G(Q1,Q2)=K3*100+B3*10+S3
 684 6380  PRINT "*** EMERGENCY ALERT ***"
 685 6381  PRINT "*** COLLISION IMMINENT ***"
 686 6382  GOSUB 9980
 687 6383  GOSUB 7900
 688 6384  PRINT N$;"RAMS KLINGON AT SECTOR"Z6;"-"Z7
 689 6385  PRINT "*** KLINGON DESTROYED,"N$;"HEAVILY DAMAGED. ***"
 690 6386  FOR I=1 TO 7
 691 6387  D(I)=D(I)-(RND(0)*4+1)
 692 6388  NEXT I
 693 6389  C5=0
 694 6390  E=E-500
 695 6391  IF K9<=0 THEN 5300
 696 6395  IF E<=0 THEN 5230
 697 6396  S1=Z6
 698 6397  S2=Z7
 699 6398  A=2
 700 6399  GOTO 4040
 701 6500  REM: TORPEDO SPREAD FORMATION
 702 6507  PRINT "SPREAD ANGLE (0.05-0.30):";
 703 6508  INPUT E5
 704 6509  IF E5=0 THEN 959
 705 6510  IF E5<0.05 THEN 6507
 706 6511  IF E5>0.30 THEN 6507
 707 6515  E4=1
 708 6520  PRINT "NUMBER"E4;
 709 6522  IF E4>1.5 THEN 6530
 710 6524  C1=C1-E5
 711 6525  GOTO 3120
 712 6530  C1=C1+E5
 713 6535  GOTO 3120
 714 7100  REM: COMMAND LINK
 715 7105  IF A+1 = 1 THEN 1030
 716 7106  IF A+1 = 2 THEN 700
 717 7107  IF A+1 = 3 THEN 1600
 718 7108  IF A+1 = 4 THEN 1800
 719 7109  IF A+1 = 5 THEN 3000
 720 7110  IF A+1 = 6 THEN 4000
 721 7111  IF A+1 = 7 THEN 8100
 722 7112  IF A+1 = 8 THEN 7400
 723 7113  IF A+1 = 9 THEN 7800
 724 7114  IF A+1 = 10 THEN 7850
 725 7115  IF A+1 = 11 THEN 7200
 726 7125  GOTO 974
 727 7200  REM: DEATH RAY
 728 7202  IF T>T0+18 THEN 7208
 729 7204  PRINT " DEATH RAY CANNOT BE USED UNTIL STARDATE"T0+19
 730 7205  PRINT
 731 7206  GOTO 959
 732 7208  IF W3<.05 THEN 7215
 733 7210  PRINT " DEATH RAY PERMANENTLY OUT OF ORDER."
 734 7212  PRINT
 735 7214  GOTO 959
 736 7215  IF C5=0 THEN 7225
 737 7220  PRINT " YOU MUST LOWER YOUR SHIELDS TO FIRE."
 738 7222  PRINT
 739 7223  GOTO 959
 740 7225  W3=RND(0)
 741 7227  PRINT
 742 7228  IF W3>.35 THEN 7260
 743 7230  PRINT " *ANTI-MATTER OVERLOAD."
 744 7231  PRINT " TEMPORARY PSUEDO-STARS CREATED FROM ENERGY."
 745 7232  FOR I=1 TO 8
 746 7233  FOR J=1 TO 8
 747 7235  IF Q(I,J)<>0 THEN 7240
 748 7238  Q(I,J)=4
 749 7240  NEXT J
 750 7241  NEXT I
 751 7245  PRINT
 752 7247  GOTO 830
 753 7260  IF W3>.50 THEN 7280
 754 7263  PRINT "*** DEATH RAY BACKFIRES ***"
 755 7265  PRINT "*** BETTER LUCK NEXT TIME ***"
 756 7270  GOTO 3575
 757 7280  IF W3>.60 THEN 7310
 758 7283  PRINT "*** DEATH RAY ANNIHILATES ALL KLINGONS IN QUADRANT"Q1;"-"Q2
 759 7285  K9=K9-K3
 760 7286  IF K9<=0 THEN 5300
 761 7287  FOR I=1 TO 8
 762 7288  FOR J=1 TO 8
 763 7289  IF Q(I,J)<>6 THEN 7292
 764 7290  Q(I,J)=0
 765 7292  IF Q(I,J)<>2 THEN 7294
 766 7293  Q(I,J)=0
 767 7294  NEXT J
 768 7295  NEXT I
 769 7296  K3=0
 770 7298  G(Q1,Q2)=INT(B3*10+S3)
 771 7300  GOTO 959
 772 7310  IF W3>.75 THEN 7325
 773 7312  PRINT "*THERMAL REACTOR ENERGY DRAIN."
 774 7314  E=E-(.95*E)
 775 7316  PRINT .95*E"UNITS OF ENERGY BURNED."
 776 7320  GOTO 7283
 777 7325  IF W3>.95 THEN 7350
 778 7328  PRINT "*MATTER/ANTI-MATTER TRANSFORMATION."
 779 7330  IF K3>0 THEN 7334
 780 7332  GOTO 7231
 781 7334  PRINT "KLINGONS HIT BY MAIN BEAM DUPLICATED."
 782 7335  P8=K3
 783 7338  FOR I=1 TO P8
 784 7339  IF K3>8 THEN 7345
 785 7341  K3=K3+1
 786 7342  K9=K9+1
 787 7344  NEXT I
 788 7345  G(Q1,Q2)=K3*100+B3*10+S3
 789 7346  P2=1
 790 7349  GOTO 1500
 791 7350  PRINT "*** DEATH RAY GOES CRAZY ***"
 792 7352  PRINT "*** DESTROYS EVERY KLINGON IN THE GALAXY ***"
 793 7353  PRINT "*** ALSO DESTROYS ENTERPRISE ***"
 794 7354  A7=N1=5
 795 7360  GOTO 5300
 796 7400  REM: ABANDON SHIP
 797 7401  IF N1=0 THEN 7404
 798 7402  PRINT "THE FAIRIE QUEENE CANNOT BE ABANDONED."
 799 7403  GOTO 959
 800 7404  PRINT
 801 7405  IF A7<>1 THEN 7420
 802 7410  PRINT "** YOU MAY NOT ABANDON SHIP AFTER YOU HAVE BEEN "
 803 7411  PRINT "ASKED TO SURRENDER."
 804 7415  PRINT
 805 7416  GOTO 959
 806 7420  PRINT "*** ABANDON SHIP ***"
 807 7421  PRINT "*** ABANDON SHIP ***"
 808 7425  PRINT
 809 7426  PRINT "SERIES ENTER-BLITZ INITIATED."
 810 7429  PRINT "FAIL-SAFE AUTO-OVERRIDE INSERTED."
 811 7433  PRINT "ENTERPRISE COMMANDER AND CREW ESCAPE IN SHUTTLE CRAFT."
 812 7435  PRINT
 813 7440  PRINT "*** ENTERPRISE REDUCED TO SUB-ATOMIC PARTICLES ***"
 814 7441  PRINT
 815 7445  A7=5
 816 7446  N1=1
 817 7448  N9=1
 818 7450  GOTO 955
 819 7500  REM: SUPERNOVA
 820 7501  IF V=2 THEN 7506
 821 7502  IF RND(0)>.15 THEN 7600
 822 7504  GOTO 7508
 823 7506  IF RND(0)>.10 THEN 7600
 824 7508  Z3=INT(RND(0)*8+1)
 825 7510  Z4=INT(RND(0)*8+1)
 826 7515  IF G(Z3,Z4)>999 THEN 7600
 827 7520  S4=G(Z3,Z4)-INT(G(Z3,Z4)*.1)*10
 828 7525  IF S4<=0 THEN 7600
 829 7530  PRINT
 830 7535  PRINT "*************************************************"
 831 7540  PRINT "********* SUPERNOVA IN QUADRANT"Z3;"-"Z4
 832 7542  PRINT "ALL MATTER IN THIS QUADRANT CONVERTED TO ENERGY."
 833 7543  IF Q1<>Z3 THEN 7575
 834 7544  IF Q2<>Z4 THEN 7575
 835 7545  PRINT
 836 7546  GOSUB 7900
 837 7548  PRINT "UNFORTUNATELY, THE"N$;"WAS IN THIS QUADRANT."
 838 7550  GOTO 3582
 839 7575  PRINT "FROM NOW ON, ANY VESSEL STOPPING IN THIS QUADRANT"
 840 7576  PRINT "WILL BE TOTALLY ENERGIZED."
 841 7577  PRINT "*************************************************"
 842 7579  PRINT
 843 7580  K4=INT(G(Z3,Z4)/99.99)
 844 7582  B4=INT((G(Z3,Z4)/99.99-K4)*10.0)
 845 7584 B9=B9-B4
 846 7585  K9=K9-K4
 847 7590  G(Z3,Z4)=INT(1000.0)
 848 7600  GOTO 1164
 849 7650  REM: STARSHIP ENCOUNTERS OLD SUPERNOVA
 850 7655  PRINT "*** HEY STUPID.  YOU WERE WARNED NOT TO STOP IN A"
 851 7656  PRINT "QUADRANT WHERE A SUPERNOVA HAD OCCURRED."
 852 7660  GOTO 8992
 853 7700  REM: VARIABLE RESUPPLY
 854 7701  IF N1=1 THEN 7710
 855 7703  E=3000
 856 7705  P=10
 857 7708  GOTO 7720
 858 7710  E=1500
 859 7715  P=5
 860 7720  A7=0
 861 7730  RETURN
 862 7800  REM: ACTIVATE ENERGY SHIELDS
 863 7802  IF D(7)>=0 THEN 7808
 864 7804  PRINT "ENERGY SHIELDS DISABLED."
 865 7806  GOTO 959
 866 7808  IF C5=0 THEN 7818
 867 7810  PRINT "ENERGY SHIELDS ALREADY ACTIVATED."
 868 7811  PRINT
 869 7812  GOTO 959
 870 7818  PRINT
 871 7819  PRINT "ENERGY SHIELDS ACTIVATED."
 872 7820  PRINT
 873 7822  C5=200
 874 7824  Z$="UP"
 875 7825  E=E-C5
 876 7826  IF E<=0 THEN 5200
 877 7828  GOSUB 5000
 878 7830  GOTO 959
 879 7850  REM: DEACTIVATE ENERGY SHIELDS
 880 7855  PRINT
 881 7860  PRINT "ENERGY SHIELDS DEACTIVATED."
 882 7863  PRINT
 883 7865  C5=0
 884 7868  Z$="DOWN"
 885 7870  GOSUB 5000
 886 7875  GOTO 955
 887 7900  REM: DETERMINE NAME
 888 7905  IF N1<>1 THEN 7915
 889 7908  A5=5
 890 7910  N$=" FAIRIE QUEENE "
 891 7912  GOTO 7920
 892 7915  N$=" ENTERPRISE "
 893 7918  A5=1
 894 7920  RETURN
 895 7950  REM: CHANGING OF THE GUARD AT BUCKINGHAM PALACE
 896 7951  PRINT
 897 7952  FOR I=1 TO 8
 898 7955  FOR J=1 TO 8
 899 7957  K3=INT(G(I,J)/99.99)
 900 7958  B3=INT((G(I,J)/99.99-K3)*10.0)
 901 7960  IF B3>0 THEN 7978
 902 7961  NEXT J
 903 7962  NEXT I
 904 7963  PRINT " YOU HAVE BEEN TAKEN TO KLINGON HEADQUARTERS."
 905 7964  PRINT "IF YOU HAD A STARBASE, YOU WOULD BE REPATRIATED"
 906 7965  PRINT "AND GIVEN A NEW STARSHIP TO COMMAND."
 907 7966  PRINT "SINCE YOU HAVE NO STARBASE, YOU WILL BE MERCILESSLY"
 908 7967  PRINT "TORTURED TO DEATH BY THE ARCHFIEND,"
 909 7968  PRINT "CECIL DYBOWSKI, SCOURGE OF THE UNIVERSE."
 910 7970  N7=1
 911 7975  GOTO 8000
 912 7978  N9=2
 913 7979  T=T+1
 914 7980  Q1=I
 915 7981  Q2=J
 916 7982  E=1500
 917 7983  P=5
 918 7984 N1=1
 919 7985  PRINT "YOU HAVE BEEN SENT BACK TO STARFLEET COMMAND."
 920 7987  PRINT "YOU ARE NOW IN COMMAND OF A NEW STARSHIP,"
 921 7988  PRINT "   THE FAIRIE QUEENE,"
 922 7989  PRINT "WHICH LOOKS LIKE /Q/ ON THE SCAN."
 923 7990  PRINT
 924 7992  PRINT "   YE FAIRIE QUEENE IS CURRENTLY IN QUADRANT"Q1;"-"Q2
 925 7994  PRINT "TRY TO BE MORE CAREFUL THIS TIME."
 926 7995  FOR I=1 TO 7
 927 7996  D(I)=0
 928 7997  NEXT I
 929 7998  PRINT
 930 7999  GOTO 1500
 931 8000  RETURN
 932 8050  Q$(1)="."
 933 8051  Q$(2)="E"
 934 8052  Q$(3)="K"
 935 8053  Q$(4)="B"
 936 8054  Q$(5)="*"
 937 8055  Q$(6)="Q"
 938 8056  Q$(7)="C"
 939 8060  RETURN
 940 8100  REM: SELF-DESTRUCT
 941 8105  PRINT
 942 8110  PRINT "SERIES ENTER-BLITZ INITIATED."
 943 8115  PRINT "IN TEN SECONDS THIS VESSEL WILL SELF-DESTRUCT."
 944 8116  PRINT "10"
 945 8117  PRINT "   9"
 946 8118  PRINT "      8"
 947 8119  PRINT "         7"
 948 8120  PRINT "            6"
 949 8122  PRINT
 950 8123  PRINT "T MINUS 5 SECONDS AND HOLDING."
 951 8124  PRINT "FAIL-SAFE MECHANISM ENGAGED.  ONLY THE COMMANDER OF"
 952 8125  PRINT "THE STARSHIP CAN OVERRIDE WITH HIS SECRET PASSWORD."
 953 8126  PRINT "SCIENCE OFFICER HICKS HAS ALREADY ENTERED HIS CORRECT"
 954 8127  PRINT "COUNTER-PASSWORD."
 955 8128  PRINT "TO CONTINUE SERIES ENTER-BLITZ, TYPE YOUR "
 956 8129  PRINT "SECRET PASSWORD:";
 957 8130  INPUT V$
 958 8135  IF V$<>X$ THEN 8150
 959 8139  PRINT
 960 8140  PRINT "               4"
 961 8141  PRINT "                  3"
 962 8142  PRINT "                     2"
 963 8143  PRINT "                        1"
 964 8145  GOTO 3575
 965 8150  PRINT
 966 8151  PRINT "SERIES ENTER-BLITZ TERMINATED."
 967 8155  PRINT
 968 8160  GOTO 955
 969 8200  REM: RANDOMIZE
 970 8205  PRINT
 971 8206  PRINT "   TYPE A WIERD NUMBER BETWEEN 0.0 AND 1.0 :";
 972 8207  INPUT E6
 973 8208  E9=RND(E6)
 974 8210  RETURN
 975 8970  REM: LEAVING GALAXY
 976 8975  IF F>2 THEN 8990
 977 8980  PRINT
 978 8981  PRINT "STARSHIP ENCOUNTERS END OF GALAXY."
 979 8982  PRINT
 980 8983  PRINT "FOOLISH MORTAL, YOU HAVE ATTEMPTED TO VENTURE OUT OF THE"
 981 8984  PRINT "GALAXY INTO SUB-SPACE.  ON THE THIRD TIME YOU TRY THIS,"
 982 8985  PRINT "THE LIVING GOD, KORP, WILL DESTROY YOU."
 983 8987  F=F+1
 984 8988  GOTO 8995
 985 8990  PRINT
 986 8991  PRINT "YOU HAVE DARED TO ENTER SUB-SPACE A THIRD TIME."
 987 8992  PRINT "FOR THIS, ************ YOU DIE ****************"
 988 8993  GOTO 3575
 989 8995  RETURN
 990 9000  REM: RANDOM NUMBER GENERATOR
 991 9010  R1=INT(RND(0)*8+1)
 992 9020  R2=INT(RND(0)*8+1)
 993 9030  IF Q(R1,R2) <> 0 THEN 9010
 994 9040  RETURN
 995 9045  PRINT
 996 9050  PRINT "ORDERS:  STARDATE = "T
 997 9060  PRINT
 998 9070  PRINT "   AS COMMANDER OF THE UNITED STARSHIP ENTERPRISE,"
 999 9080  PRINT "YOUR MISSION IS TO RID THE GALAXY OF THE DEADLY"
1000 9090  PRINT "KLINGON MENACE.  TO DO THIS, YOU MUST DESTROY THE "
1001 9100  PRINT "KLINGON INVASION FORCE OF "K9"BATTLE CRUISERS."
1002 9110  PRINT "YOU HAVE"T9;"SOLAR YEARS TO COMPLETE YOUR MISSION."
1003 9120  PRINT "(I.E. UNTIL STARDATE"T0+T9;")."
1004 9125  PRINT
1005 9130  IF B9 > 1 THEN 9133
1006 9131  PRINT "   YOU WILL HAVE ONE SUPPORTING STARBASE."
1007 9132  GOTO 9140
1008 9133  PRINT "   YOU WILL HAVE"B9"SUPPORTING STARBASES."
1009 9140  PRINT "WHEN THE ENTERPRISE DOCKS AT ONE (IS POSITIONED"
1010 9150  PRINT "NEXT TO ONE) IT IS RESUPPLIED WITH ENERGY AND"
1011 9160  PRINT "PHOTON TORPEDOES."
1012 9161  PRINT "THE ENTERPRISE IS CURRENTLY IN"
1013 9162  PRINT "QUADRANT"Q1"-"Q2"SECTOR"S1"-"S2
1014 9163  PRINT "DO YOU NEED FURTHER INSTRUCTIONS (REVISED 18 APRIL 73)";
1015 9164  INPUT A$
1016 9166  PRINT
1017 9170  IF A$<>"YES" THEN 400
1018 9175  GOSUB 9980
1019 9180  PRINT "   THE GALAXY IS DIVIDED INTO 64 QUADRANTS WITH"
1020 9190  PRINT "THE FOLLOWING COORDINATES:"
1021 9200  PRINT " Y--   1   2   3   4   5   6   7   8   '"
1022 9210  PRINT "   --------------------------------- X"
1023 9220  FOR I=1 TO 8
1024 9230  PRINT " ' :   :   :   :   :   :   :   :   :  "I
1025 9240  PRINT "   --------------------------------- '"
1026 9250  NEXT I
1027 9260  PRINT
1028 9270  PRINT
1029 9280  PRINT
1030 9300  PRINT "EACH QUADRANT IS SIMILARLY DIVIDED INTO 64 SECTORS."
1031 9310  GOSUB 9980
1032 9320  PRINT "::: DEVICES :::"
1033 9330  PRINT
1034 9340  PRINT "WARP ENGINES: "
1035 9350  PRINT
1036 9360  PRINT "COURSE = A REAL NUMBER FROM 1 TO 8.99999."
1037 9370  PRINT "NUMBERS INDICATE DIRECTION STARTING AT THE RIGHT AND"
1038 9380  PRINT "GOING COUNTER CLOCKWISE:"
1039 9390  PRINT
1040 9400  PRINT "        3"
1041 9410  PRINT "      4   2"
1042 9420  PRINT "         /"
1043 9430  PRINT "    5---*---1"
1044 9440  PRINT "       /"
1045 9450  PRINT "      6   8"
1046 9460  PRINT "        7"
1047 9470  PRINT
1048 9480  PRINT "WARP FACTOR = A REAL NUMBER FROM 0 TO 12."
1049 9490  PRINT "DISTANCE TRAVELED = INTEGER (WARP FACTOR) QUADRANTS:"
1050 9500  PRINT "   WARP .2 = THE ENTERPRISE TRAVELS 1 SECTOR."
1051 9510  PRINT "        .5 =                        4 SECTORS."
1052 9520  PRINT "         1 =                        1 QUADRANT."
1053 9530  PRINT "         2 =                        2 QUADRANTS."
1054 9535  PRINT
1055 9540  PRINT
1056 9550  PRINT "FOR EXAMPLE, IF YOU TRAVEL FROM:"
1057 9560  PRINT "QUADRANT 1 - 1, SECTOR 1 - 1, IN DIRECTION 1 AT WARP 2"
1058 9570  PRINT "YOU WOULD STOP AT"
1059 9580  PRINT "QUADRANT 1 - 3, SECTOR 1 - 1 IN THE NEXT STARDATE."
1060 9590  PRINT
1061 9591  PRINT " WHEN YOU CHANGE QUADRANTS, HOWEVER, THE POSITIONS OF"
1062 9592  PRINT "ALL OBJECTS IN THE NEW QUADRANT (INCLUDING THE ENTERPRISE)"
1063 9593  PRINT "ARE RANDOMIZED TO SIMULATE 3-D TRAVEL."
1064 9599  PRINT
1065 9600  PRINT "*** NOTE:  EVERY USE OF THE WARP ENGINES TAKES ONE"
1066 9610  PRINT "STARDATE.  IF THE ENTERPRISE IS BLOCKED BY SOMETHING"
1067 9620  PRINT "DURING INTRA-QUADRANT TRAVEL IT WILL STOP IN FRONT"
1068 9630  PRINT "OF IT (AND WASTE A STARDATE) ***"
1069 9631  PRINT
1070 9632  PRINT "***NOTE: THERE IS A TIME PORTAL AVAILABLE BY TRAVELLING"
1071 9633  PRINT "AT WARP 12.  YOU MAY BE CARRIED EITHER FORWARD OR"
1072 9634  PRINT "BACKWARD IN TIME, BUT THERE IS ALSO A .40 PROBABILITY"
1073 9635  PRINT "THAT YOU WILL BE DESTROYED IN A NUCLEAR IMPLOSION."
1074 9636  PRINT "A WARP FACTOR OF 12 MAY ONLY BE USED AFTER 15 SOLAR YEARS."
1075 9637  PRINT
1076 9638  PRINT "***NOTE:  IF THE ENTERPRISE RAMS A KLINGON VESSEL, EITHER"
1077 9639  PRINT "DELIBERATELY OR ACCIDENTLY, THE KLINGON WILL BE"
1078 9640  PRINT "DESTROYED AND THE ENTERPRISE HEAVILY DAMAGED."
1079 9649  GOSUB 9980
1080 9650  PRINT "SHORT RANGE SENSORS:"
1081 9660  PRINT
1082 9670  PRINT "   THE SHORT RANGE SENSORS OF THE ENTERPRISE DISPLAY"
1083 9680  PRINT "A DETAILED VIEW OF THE QUADRANT IT IS CURRENTLY IN."
1084 9690  PRINT "THE ENTERPRISE LOOKS LIKE /E/ ON THE SCREEN."
1085 9700  PRINT "KLINGON BATTLE CRUISERS LOOK LIKE /K/ ON THE SCREEN."
1086 9710  PRINT "STARBASES LOOK LIKE /B/ AND STARS LOOK LIKE * ."
1087 9715  PRINT "THE KLINGONS MAY HAVE A POWERFUL COMMAND SHIP, /C/."
1088 9720  PRINT
1089 9723  PRINT "***NOTE: DOCKING IS A TWO STEP PROCEDURE--FIRST YOU"
1090 9724  PRINT "MUST MOVE ADJACENT TO THE BASE.  THEN CONDUCT A "
1091 9725  PRINT "SHORT RANGE SCAN."
1092 9726  PRINT "WHILE DOCKED, STARBASE SHIELDS PROTECT THE STARSHIP."
1093 9729  PRINT
1094 9730  PRINT "***NOTE: CONDITION YELLOW MEANS YOU ARE DANGEROUSLY"
1095 9731  PRINT "LOW ON ENERGY AND SHOULD MAKE FOR A BASE POSTHASTE."
1096 9735  GOSUB 9980
1097 9736  PRINT "EXPERIMENTAL DEATH RAY"
1098 9737  PRINT
1099 9738  PRINT "   THE EXPERIMENTAL DEATH RAY, AS ITS NAME IMPLIES,"
1100 9739  PRINT "IS UNPREDICTABLE.  HOWEVER, ONE CAN CERTAINLY PREDICT"
1101 9740  PRINT "THAT, IN A GIVEN SITUATION, IT WILL DO WHATEVER IT"
1102 9741  PRINT "DAMN WELL PLEASES.  THERE IS A GOOD PROBABILITY THAT IT"
1103 9742  PRINT "WILL DESTROY MANY KLINGONS, BUT THERE COULD BE SOME"
1104 9743  PRINT "INTERESTING SIDE EFFECTS.  IT CAN PROBABLY ONLY BE"
1105 9744  PRINT "FIRED ONCE, BUT YOU NEVER KNOW.  IT CANNOT BE USED UNTIL"
1106 9745  PRINT "18 SOLAR YEARS HAVE PASSED."
1107 9757  GOSUB 9980
1108 9758  PRINT "LONG RANGE SENSORS:"
1109 9759  PRINT
1110 9760  PRINT "   THE LONG RANGE SENSORS OF THE ENTERPRISE DISPLAY"
1111 9770  PRINT "THE NUMBER OF OBJECTS IN THE 9 CLOSEST QUADRANTS,"
1112 9771  PRINT "WITH THE ENTERPRISE IN THE CENTRAL ONE."
1113 9780  PRINT "EACH DIGIT OF THE NUMBER IN EACH BOX MEANS SOMETHING:"
1114 9790  PRINT "   THE ONES DIGIT REPRESENTS THE NUMBER OF STARS."
1115 9800  PRINT "       TENS                                STARBASES."
1116 9810  PRINT "      HUNDREDS                             KLINGONS."
1117 9812  PRINT "      THOUSANDS                            SUPERNOVA."
1118 9820  PRINT "FOR EXAMPLE:"
1119 9830  PRINT "319 MEANS  3 KLINGONS, 1 STARBASE, AND 9 STARS."
1120 9840  PRINT "206 MEANS 2 KLINGONS, 0 STARBASES, AND 6 STARS."
1121 9850  PRINT "7 MEANS 0 KLINGONS, 0 STARBASES, AND 7 STARS."
1122 9860  GOSUB 9980
1123 9861  PRINT "ENERGY SHIELDS:"
1124 9862  PRINT
1125 9863  PRINT "   WHILE THE ENERGY SHIELDS OF A STARSHIP ARE ACTIVATED,"
1126 9864  PRINT "KLINGON ATTACKS ARE NULLIFIED.  EVERY TIME YOU MOVE WITH"
1127 9865  PRINT "YOUR SHIELDS UP, 200 UNITS OF ENERGY ARE USED."
1128 9866  PRINT "ALSO, SHIELD ACTIVATION ITSELF REQUIRES 200 UNITS."
1129 9867  PRINT "NOTE: YOU MUST LOWER YOUR SHIELDS TO ATTACK."
1130 9869  GOSUB 9980
1131 9870  PRINT "PHASERS:"
1132 9880  PRINT
1133 9890  PRINT "   ANY PORTION OF THE ENERGY AVAILABLE CAN BE FIRED."
1134 9900  PRINT "THE BATTLE COMPUTER DIVIDES THIS AMOUNT AMONG THE"
1135 9901  PRINT "KLINGON CRUISERS IN THE QUADRANT AND DETERMINES"
1136 9902  PRINT "THE VARIOUS DIRECTIONS OF FIRE.  THE EFFECTIVENESS"
1137 9903  PRINT "OF A HIT DEPENDS MOSTLY ON THE DISTANCE TO THE"
1138 9904  PRINT "TARGET.  A KLINGON BATTLE CRUISER STARTS WITH"S9
1139 9905  PRINT "UNITS OF ENERGY.  IT CAN FIRE AN AMOUNT EQUAL TO"
1140 9906  PRINT "WHATEVER ENERGY IT HAS LEFT."
1141 9907  PRINT
1142 9908  PRINT
1143 9909  PRINT "PHOTON TORPEDOES:"
1144 9910  PRINT
1145 9911  PRINT "   INITIALLY THE ENTERPRISE HAS"P0"PHOTON TORPEDOES."
1146 9912  PRINT "ONE TORPEDO DESTROYS WHATEVER IT HITS.  THE RANGE"
1147 9913  PRINT "OF PHOTON TORPEDOES (LIKE PHASERS) IS LIMITED TO"
1148 9914  PRINT "THE CURRENT QUADRANT.  THE COURSE OF A PHOTON TORPEDO"
1149 9915  PRINT "IS SET THE SAME WAY AS THAT OF THE ENTERPRISE."
1150 9916  PRINT "YOU MAY, IF YOU WISH, FIRE A SPREAD OF THREE TORPEDOES"
1151 9917  PRINT "AT ONCE.  THERE IS A TIME LAG IN LAUNCHING THEM, THE ONE"
1152 9918  PRINT "WITH THE LOWEST NUMERICAL COURSE BEING FIRED FIRST."
1153 9919  PRINT "FOR EXAMPLE, A TORPEDO COURSE OF 3.49 WITH A SPREAD"
1154 9920  PRINT "ANGLE OF 0.24 WOULD FIRE TORPEDOES AT DIRECTIONS"
1155 9921  PRINT "3.25, 3.49, AND 3.73 ."
1156 9924  GOSUB 9980
1157 9925  PRINT "DAMAGE CONTROL REPORT:"
1158 9926  PRINT "   THE DAMAGE CONTROL REPORT LISTS THE MAIN DEVICES AND"
1159 9927  PRINT "THEIR STATE OF REPAIR.  A NEGATIVE STATE OF REPAIR"
1160 9928  PRINT "INDICATES A DISABLES DEVICE.  DEVICES CAN BE DAMAGED OR"
1161 9929  PRINT "REPAIRED BY A SPACE STORM OR TRUCE, RESPECTIVELY."
1162 9930  PRINT "ALSO, DAMAGED DEVICES ARE REPAIRED 2 UNITS EVERY STARDATE."
1163 9935  GOSUB 9980
1164 9940  PRINT "COMMANDS:"
1165 9941  PRINT
1166 9942  H6=1
1167 9944  GOTO 975
1168 9946  H6=H6+1
1169 9952  GOSUB 9980
1170 9953  PRINT "P.S.--SAVE THIS COPY OF INSTRUCTIONS, SO THAT NEXT"
1171 9954  PRINT "TIME YOU WILL NOT NEED ADDITIONAL INSTRUCIONS AND"
1172 9955  PRINT "CAN PROCEED IMMEDIATELY TO PLAY."
1173 9956  PRINT
1174 9957  PRINT
1175 9960  GOSUB 9980
1176 9961  PRINT "WHEN YOU ARE READY TO CONTINUE, TYPE 9:";
1177 9962  INPUT X
1178 9963  GOSUB 9980
1179 9965  GOTO 400
1180 9980  REM
1181 9985  FOR I=1 TO 3
1182 9986  PRINT
1183 9990  NEXT I
1184 9991  RETURN
1185 9992  PRINT
1186 9993  PRINT
1187 9994  PRINT "  DO YOU WISH TO PLAY AGAIN:";
1188 9995  INPUT A$
1189 9996  IF A$ ="YES" THEN 5
1190 9997  PRINT
1191 9998  PRINT "  ** AVE ATQUE VALE **"
1192 9999  END