Herramientas de usuario

Diferencias

Muestra las diferencias entre dos versiones de la página.

Enlace a la vista de comparación

Próxima revisión		Revisión previa
ut-trek.bas [2024/08/01 14:55] – creado peronut-trek.bas [2026/04/21 16:09] (actual) – editor externo 127.0.0.1
Línea 1: Línea 1:
-<code freebasic> +<code freebasic ut_trek.bas> 
-1  PRINT "U. OF TEXAS STAR TREK GAME BY GRADY HICKS AND JIM KORP." +1  PRINT "JUEGO VIAJE A LAS ESTRELLAS DE LA UNIV. DE TEXAS POR GRADY HICKS Y JIM KORP." 
-2  PRINT "GENERAL IDEA STOLEN FROM PENN. U. BY HICKS." +2  PRINT "IDEA GENERAL ROBADA A LA UNIV. PENN. POR HICKS." 
-3  PRINT "VASTLY IMPROVED, AND ADAPTED TO TAURUS BY KORP, 5 APRIL 73."+3  PRINT "MUY MEJORADO, Y ADAPTADO A TAURUS POR KORP, 5 ABRIL 73."
 4  GOSUB 9980 4  GOSUB 9980
-5  PRINT "   BE CAREFUL AND HAVE A GOOD TIME."+5  PRINT "   TENGA CUIDADO Y PASE UN BUEN MOMENTO."
 6  PRINT 6  PRINT
 7  PRINT 7  PRINT
Línea 12: Línea 12:
 11  DIM C$(20) 11  DIM C$(20)
 12  GOSUB 8050 12  GOSUB 8050
-13  PRINT "   TO PLAY SHORT VERSION, TYPE 1 ---" +13  PRINT "   PARA JUGAR VERSION CORTA, PRESIONE 1 ---" 
-14  PRINT "   TO PLAY REGULAR VERSION, TYPE 2:";+14  PRINT "   PARA JUGAR VERSION REGULAR, PRESIONE 2:";
 15  INPUT V 15  INPUT V
 16  IF V = 1 THEN 20 16  IF V = 1 THEN 20
Línea 49: Línea 49:
 95  IF V=2 THEN 150 95  IF V=2 THEN 150
 100  T9=20 100  T9=20
 + 
 110  IF R>=.28 THEN 114 110  IF R>=.28 THEN 114
 111  K3=4 111  K3=4
Línea 65: Línea 65:
 135  K9=K9+K3 135  K9=K9+K3
 145  GOTO 206 145  GOTO 206
-150  REM: DETERMINE NUMBER OF KLINGONS, BASES AND STARS.+150  REM: DETERMINA CANTIDAD DE KLINGONS, BASES Y ESTRELLAS.
 152  IF R>=.01 THEN 156 152  IF R>=.01 THEN 156
 153  K3=9 153  K3=9
Línea 113: Línea 113:
 285  LET P2=1 285  LET P2=1
 294  PRINT 294  PRINT
-295  PRINT "   PLEASE TYPE A SECRET PASSWORD:";+295  PRINT "   POR FAVOR INGRESE PASSWORD SECRETO:";
 296  INPUT X$ 296  INPUT X$
 297  PRINT 297  PRINT
 298  LET N1=N9=N7=A7=0 298  LET N1=N9=N7=A7=0
-300  REM: DETERMINE KLINGON COMMANDER+300  REM: DETERMINAR COMANDANTE KLINGON
 302  IF A9<>0 THEN 320 302  IF A9<>0 THEN 320
 304  R1=INT(RND(0)*8+1) 304  R1=INT(RND(0)*8+1)
Línea 127: Línea 127:
 315  K0=K9 315  K0=K9
 316  A9=A9+1 316  A9=A9+1
-320  REM: CONTINUE+320  REM: CONTINUAR
 399  GOTO 9045 399  GOTO 9045
-400  REM: SET UP QUADRANT+400  REM: ESTABLECER CUADRANTE
 405  K3=B3=S3=0 405  K3=B3=S3=0
 410  IF Q1<1 THEN 500 410  IF Q1<1 THEN 500
Línea 178: Línea 178:
 694  IF E<=0 THEN 5200 694  IF E<=0 THEN 5200
 699  GOTO 955 699  GOTO 955
-700  REM: SHORT RANGE SENSOR SCAN+700  REM: ESCANER DE CORTO ALCANCE
 702  P2=P2+1 702  P2=P2+1
 705  LET T8=S1-1 705  LET T8=S1-1
Línea 195: Línea 195:
 725  FOR J=M TO N 725  FOR J=M TO N
 735  IF Q(I,J)<>3 THEN 740 735  IF Q(I,J)<>3 THEN 740
-736  C$="DOCKED"+736  C$="ACOPLADO"
 737  GOSUB 7700 737  GOSUB 7700
 739  GOTO 801 739  GOTO 801
Línea 202: Línea 202:
 770  IF K3>0 THEN 790 770  IF K3>0 THEN 790
 775  IF E<E0*.1 THEN 800 775  IF E<E0*.1 THEN 800
-780  C$="GREEN"+780  C$="VERDE"
 785  GOTO 801 785  GOTO 801
-790  C$="RED"+790  C$="ROJA"
 795  GOTO 801 795  GOTO 801
-800  C$="YELLOW"+800  C$="AMARILLO"
 801  IF A<0 THEN 803 801  IF A<0 THEN 803
 802  GOTO 804 802  GOTO 804
Línea 212: Línea 212:
 804  IF E<=0 THEN 5200 804  IF E<=0 THEN 5200
 805  IF D(2) >= 0 THEN 830 805  IF D(2) >= 0 THEN 830
-815  PRINT "SHORT RANGE SENSORS ARE OUT "+815  PRINT "SENSORES DE CORTO ALCANCE DESTRUIDOS "
 820  PRINT 820  PRINT
 825  GOTO 955 825  GOTO 955
-830  PRINT "----------------------"+830  PRINT "------------------------------------"
 835  FOR I=1 TO 8 835  FOR I=1 TO 8
 836  FOR J=1 TO 8 836  FOR J=1 TO 8
Línea 226: Línea 226:
 849  GOTO 955 849  GOTO 955
 854  IF I>1 THEN 859 854  IF I>1 THEN 859
-855  PRINT "STARDATE         "T+855  PRINT "FECHA ESTELAR    "T
 856  GOTO 900 856  GOTO 900
 859  IF I>2 THEN 864 859  IF I>2 THEN 864
-860  PRINT "CONDITION        "C$+860  PRINT "CONDICION        "C$
 861  GOTO 900 861  GOTO 900
 864  IF I>3 THEN 869 864  IF I>3 THEN 869
-865  PRINT "QUADRANT         "Q1;"-"Q2+865  PRINT "CUADRANTE        "Q1;"-"Q2
 866  GOTO 900 866  GOTO 900
 869  IF I>4 THEN 874 869  IF I>4 THEN 874
Línea 238: Línea 238:
 871  GOTO 900 871  GOTO 900
 874  IF I>5 THEN 879 874  IF I>5 THEN 879
-875  PRINT "ENERGY           "E+875  PRINT "ENERGIA          "E
 876  GOTO 900 876  GOTO 900
 879  IF I>6 THEN 884 879  IF I>6 THEN 884
-880  PRINT "PHOTON TORPEDOES "P+880  PRINT "TORPEDOS FOTON   "P
 881  GOTO 900 881  GOTO 900
 884  IF I>7 THEN 890 884  IF I>7 THEN 890
-885  PRINT "KLINGONS LEFT    "K9+885  PRINT "KLINGON RESTANTES"K9
 886  GOTO 900 886  GOTO 900
-890  PRINT "ENERGY SHIELDS   "Z$+890  PRINT "ESCUDO DE ENERGIA"Z$
 900  RETURN 900  RETURN
 955  IF N9<>1 THEN 959 955  IF N9<>1 THEN 959
Línea 252: Línea 252:
 957  IF N7=1 THEN 3582 957  IF N7=1 THEN 3582
 958  N9=2 958  N9=2
-959  PRINT "COMMAND:";+959  PRINT "COMANDO:";
 960  INPUT A 960  INPUT A
-961  IF C$<>"DOCKED" THEN 964+961  IF C$<>"ACOPLADO" THEN 964
 962  GOSUB 7700 962  GOSUB 7700
 964  GOTO 7100 964  GOTO 7100
 974  PRINT 974  PRINT
-975  PRINT "   0 = SET COURSE" +975  PRINT "   0 = PONER RUMBO" 
-980  PRINT "   1 = SHORT RANGE SENSOR SCAN" +980  PRINT "   1 = ESCANEO DE CORTO ALCANCE" 
-985  PRINT "   2 = LONG RANGE SENSOR SCAN" +985  PRINT "   2 = ESCANEO DE LARGO ALCANCE" 
-990  PRINT "   3 = FIRE PHASERS" +990  PRINT "   3 = DISPARA PHASERS" 
-995  PRINT "   4 = FIRE PHOTON TORPEDOES" +995  PRINT "   4 = DISPARA TORPEDOS DE FOTON" 
-1000  PRINT "   5 = DAMAGE CONTROL REPORT" +1000  PRINT "   5 = REPORTE DE CONTROL DE AVERIAS" 
-1005  PRINT "   6 = SELF-DESTRUCT" +1005  PRINT "   6 = AUTODESTRUCCION" 
-1006  PRINT "   7 = ABANDON SHIP" +1006  PRINT "   7 = ABANDONAR NAVE" 
-1007  PRINT "   8 = ACTIVATE ENERGY SHIELDS" +1007  PRINT "   8 = ACTIVAR ESCUDOS DE ENERGIA" 
-1008  PRINT "   9 = DEACTIVATE ENERGY SHIELDS" +1008  PRINT "   9 = DESACTIVAR ESCUDOS ENERGIA" 
-1009  PRINT "   10 = FIRE EXPERIMENTAL DEATH RAY"+1009  PRINT "   10 = DISPARAR RAYO EXPERIMENTAL"
 1018  IF H6=1 THEN 9946 1018  IF H6=1 THEN 9946
 1019  PRINT 1019  PRINT
 1020  GOTO 955 1020  GOTO 955
 1030  REM: WARP DRIVE 1030  REM: WARP DRIVE
-1035  C$="MOVING" +1035  C$="MOVIENDO" 
-1040  PRINT "COURSE (1-8.9999):";+1040  PRINT "CURSO (1-8.9999):";
 1050  INPUT C1 1050  INPUT C1
 1060  IF C1=0 THEN 955 1060  IF C1=0 THEN 955
 1070  IF C1<1 THEN 959 1070  IF C1<1 THEN 959
 1080  IF C1>= 9 THEN 1040 1080  IF C1>= 9 THEN 1040
-1090  PRINT "WARP FACTOR (0-12):";+1090  PRINT "VELOCIDAD WARP (0-12):";
 1100  INPUT W1 1100  INPUT W1
 1110  IF W1<0 THEN 959 1110  IF W1<0 THEN 959
Línea 285: Línea 285:
 1130  IF W1<=.25 THEN 1163 1130  IF W1<=.25 THEN 1163
 1140  IF D(1) >= 0 THEN 1163 1140  IF D(1) >= 0 THEN 1163
-1150  PRINT "WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = WARP .25"+1150  PRINT "MOTORES WARP AVERIADOS, VELOCIDAD MAXIMA = WARP .25"
 1160  GOTO 1040 1160  GOTO 1040
 1163  GOTO 7500 1163  GOTO 7500
Línea 305: Línea 305:
 1260  IF RND(0)>.5 THEN 1300 1260  IF RND(0)>.5 THEN 1300
 1270  D(R1)=D(R1)-(RND(0)*5+1) 1270  D(R1)=D(R1)-(RND(0)*5+1)
-1280  PRINT "*** SPACE STORM, ";+1280  PRINT "*** TORMENTA ESPACIAL, ";
 1281  GOSUB 6000 1281  GOSUB 6000
-1283  PRINT F$" DAMAGED ***"+1283  PRINT F$" AVERIADO ***"
 1290  GOTO 1320 1290  GOTO 1320
 1300  FOR I=R1 TO 7 1300  FOR I=R1 TO 7
Línea 320: Línea 320:
 1309  IF D(I)<=0 THEN 1311 1309  IF D(I)<=0 THEN 1311
 1310  D(I)=0 1310  D(I)=0
-1311  PRINT "*** TEMPORARY TRUCE, ";+1311  PRINT "*** TEGUA TEMPORAL, ";
 1312  GOSUB 6000 1312  GOSUB 6000
-1313  PRINT F$" STATE OF REPAIR IMPROVED ***"+1313  PRINT F$" ESTADO DE REPARACION MEJORADO ***"
 1320  N=INT(W1*8) 1320  N=INT(W1*8)
 1322  E=E-N-N+5 1322  E=E-N-N+5
Línea 349: Línea 349:
 1405  PRINT 1405  PRINT
 1406  GOSUB 7900 1406  GOSUB 7900
-1407  PRINT N$;"BLOCKED BY OBJECT AT SECTOR"S1;"-"S2+1407  PRINT N$;"BLOQUEADO POR OBJETO EN SECTOR"S1;"-"S2
 1408  S1=S1-X1 1408  S1=S1-X1
 1410  S2=S2-X2 1410  S2=S2-X2
Línea 378: Línea 378:
 1510  S2=INT(RND(0)*8+1) 1510  S2=INT(RND(0)*8+1)
 1550  GOTO 400 1550  GOTO 400
-1600  REM: LONG RANGE SENSOR SCAN+1600  REM: ESCANEO DE SENSOR DE LARGO ALCANCE
 1610  IF D(3) >= 0 THEN 1640 1610  IF D(3) >= 0 THEN 1640
-1620  PRINT "LONG RANGE SENSORS ARE INOPERABLE"+1620  PRINT "SENSORES DE LARGO ALCANCE INOPERATIVOS"
 1625  PRINT 1625  PRINT
 1630  GOTO 955 1630  GOTO 955
-1640  PRINT "LONG RANGE SENSOR SCAN FOR QUADRANT"Q1","Q2+1640  PRINT "ESCANEO DE LARGO ALCANCE PARA CUADRANTE"Q1","Q2
 1645  PRINT "----------------- '" 1645  PRINT "----------------- '"
 1660  FOR I=Q1-1 TO Q1+1 1660  FOR I=Q1-1 TO Q1+1
Línea 399: Línea 399:
 1775  PRINT 1775  PRINT
 1780  GOTO 955 1780  GOTO 955
-1800  REM: PHASER CONTROL+1800  REM: CONTROL DE PHASER
 1810  IF D(4) >= 0 THEN 1832 1810  IF D(4) >= 0 THEN 1832
-1820  PRINT "PHASER CONTROL IS DISABLED"+1820  PRINT "CONTROL DE PHASER ESTA DESACTIVADO"
 1825  PRINT 1825  PRINT
 1830  GOTO 955 1830  GOTO 955
 1832  IF C5=0 THEN 1840 1832  IF C5=0 THEN 1840
-1834  PRINT "YOU MUST LOWER YOUR ENERGY SHIELDS TO FIRE."+1834  PRINT "DEBE BAJAR ESCUDOS PARA DISPARAR."
 1836  PRINT 1836  PRINT
 1837  GOTO 959 1837  GOTO 959
-1840  PRINT "PHASERS LOCKED ON TARGET.  ENERGY AVAILABLE = "E +1840  PRINT "PHASERS APUNTADOS A OBJETIVO. ENERGIA DISPONIBLE = "E 
-1850  PRINT "NUMBER OF UNITS TO FIRE:";+1850  PRINT "CANTIDAD DE UNIDADES A DISPARAR:";
 1860  INPUT X 1860  INPUT X
 1870  IF X <= 0 THEN 955 1870  IF X <= 0 THEN 955
Línea 420: Línea 420:
 1929  H=(X)/(FNO(I))*(3.0+RND(0)) 1929  H=(X)/(FNO(I))*(3.0+RND(0))
 1930  K(I,3)=K(I,3)-(H/W2) 1930  K(I,3)=K(I,3)-(H/W2)
-1940  PRINT H/W2;"UNIT HIT ON KLINGON AT SECTOR"K(I,1);"-"K(I,2) +1940  PRINT H/W2;"UNIDAD DIO AL KLINGON EN SECTOR"K(I,1);"-"K(I,2) 
-1950  PRINT "("K(I,3);"LEFT)"+1950  PRINT "("K(I,3);"RESTANTES)"
 1960  IF K(I,3)>0 THEN 1990 1960  IF K(I,3)>0 THEN 1990
 1970  GOSUB 4500 1970  GOSUB 4500
Línea 430: Línea 430:
 2010  IF E <= 0 THEN 5250 2010  IF E <= 0 THEN 5250
 2020  GOTO 955 2020  GOTO 955
-3000  REM: PHOTON TORPEDOES+3000  REM: TORPEDOS DE FOTON
 3010  IF D(5) >= 0 THEN 3040 3010  IF D(5) >= 0 THEN 3040
-3020  PRINT "PHOTON TUBES ARE NOT OPERATIONAL"+3020  PRINT "TUBOS DE FOTON INOPERATIVOS"
 3025  PRINT 3025  PRINT
 3030  GOTO 955 3030  GOTO 955
 3040  IF P>0 THEN 3062 3040  IF P>0 THEN 3062
-3050  PRINT "ALL PHOTON TORPEDOES EXPENDED"+3050  PRINT "TODOS LOS TORPEDOS DE FOTON AGOTADOS"
 3060  GOTO 955 3060  GOTO 955
 3062  IF C5=0 THEN 3068 3062  IF C5=0 THEN 3068
-3064  PRINT "YOU MUST LOWER YOUR ENERGY SHIELDS TO FIRE."+3064  PRINT "DEBE BAJAR ESCUDOS PARA DISPARAR."
 3066  PRINT 3066  PRINT
 3067  GOTO 959 3067  GOTO 959
-3068  PRINT "DO YOU WISH TO FIRE A SPREAD:";+3068  PRINT "DESEA DISPARAR EN ABANICO:";
 3069  INPUT M$ 3069  INPUT M$
-3070  PRINT "TORPEDO COURSE (1-8.9999):";+3070  PRINT "CURSO DE TORPEDO (1-8.9999):";
 3080  INPUT C1 3080  INPUT C1
 3090  IF C1=0 THEN 955 3090  IF C1=0 THEN 955
Línea 450: Línea 450:
 3110  IF C1>=9 THEN 3070 3110  IF C1>=9 THEN 3070
 3111  IF P<3 THEN 3120 3111  IF P<3 THEN 3120
-3116  IF M$="YES" THEN 6500+3116  IF M$="SI" THEN 6500
 3120  GOSUB 3460 3120  GOSUB 3460
 3130  X=S1 3130  X=S1
 3132  Y=S2 3132  Y=S2
 3134  P=P-1 3134  P=P-1
-3140  PRINT "TORPEDO TRACK:";+3140  PRINT "RASTRO TORPEDO:";
 3150  X=X+X1 3150  X=X+X1
 3155  Y=Y+X2 3155  Y=Y+X2
Línea 474: Línea 474:
 3240  IF F7=6 THEN 3244 3240  IF F7=6 THEN 3244
 3244  PRINT 3244  PRINT
-3245  PRINT "*** KLINGON DESTROYED ***"+3245  PRINT "*** KLINGON DESTRUIDO ***"
 3250  K3=K3-1 3250  K3=K3-1
 3255  K9=K9-1 3255  K9=K9-1
Línea 485: Línea 485:
 3301  Q(X5,Y5)=0 3301  Q(X5,Y5)=0
 3310  PRINT 3310  PRINT
-3311  PRINT "*** STARBASE DESTROYED ... CONGRATULATIONS ***"+3311  PRINT "*** BASE ESTELAR DESTRIDA ... FELICITACIONES ***"
 3313  B3=B3-1 3313  B3=B3-1
 3315  GOTO 3410 3315  GOTO 3410
 3323  Q(X5,Y5)=0 3323  Q(X5,Y5)=0
 3334  PRINT 3334  PRINT
-3335  PRINT "***STAR DESTROYED***"+3335  PRINT "***ESTRELLA DESTRUIDA***"
 3340  S3=S3-1 3340  S3=S3-1
 3345  IF S3>=0 THEN 3410 3345  IF S3>=0 THEN 3410
Línea 500: Línea 500:
 3420  GOTO 3430 3420  GOTO 3430
 3422  PRINT 3422  PRINT
-3425  PRINT "TORPEDO MISSED"+3425  PRINT "TORPEDO ERRADO"
 3430  IF E4=0 THEN 3439 3430  IF E4=0 THEN 3439
 3432  E4=E4+1 3432  E4=E4+1
Línea 515: Línea 515:
 3500  W9=RND(0) 3500  W9=RND(0)
 3502  IF T>T0+15 THEN 3510 3502  IF T>T0+15 THEN 3510
-3504  PRINT "WARP 12 CANNOT BE USED UNTIL STARDATE"T0+16+3504  PRINT "NO PUEDE USARSE WARP 12 HASTA FECHA ESTELAR"T0+16
 3506  GOTO 1040 3506  GOTO 1040
-3510  PRINT "SPEED APPROACHING WARP 12." +3510  PRINT "VELOCIDAD APROXIMANDO WARP 12." 
-3520  PRINT "ENGINES OPERATING ABOVE DANGER LEVEL." +3520  PRINT "MOTORES OPERANDO ENCIMA DE NIVEL PELIGROSO." 
-3530  PRINT "ALL SAFETY DEVICES DISFUNCTIONAL." +3530  PRINT "TODOS LOS DISPOSITIVOS DE SEGURIDAD INOPERATIVOS." 
-3540  PRINT "CRITICAL OVERHEATING--SPONTANEOUS IMPLOSION IMMINENT."+3540  PRINT "SOBRECALENTAMIENTO CRITICO--EXPLOSION ESPONTANEA INMINENTE."
 3570  IF W9>.40 THEN 3600 3570  IF W9>.40 THEN 3600
 3575  FOR I=1 TO 2 3575  FOR I=1 TO 2
-3576  PRINT "*****************************************************"+3576  PRINT "***********************************************************"
 3577  NEXT I 3577  NEXT I
 3578  GOSUB 7900 3578  GOSUB 7900
-3580  PRINT "*** ENTROPY OF"N$;"MAXIMIZED **************"+3580  PRINT "*** ENTROPIA DE"N$;"MAXIMIZADA **************"
 3582  GOSUB 9980 3582  GOSUB 9980
 3583  PRINT "  YOU ATE THAT ONE." 3583  PRINT "  YOU ATE THAT ONE."
Línea 532: Línea 532:
 3600  IF W9>.55 THEN 3700 3600  IF W9>.55 THEN 3700
 3610  PRINT 3610  PRINT
-3620  PRINT " YOU ARE TRAVELLING BACK IN TIME."+3620  PRINT " ESTA VIAJANDO AL PASADO."
 3630  T=T-6 3630  T=T-6
-3640  PRINT "*** STARDATE ="T+1+3640  PRINT "*** FECHA ESTELAR ="T+1
 3650  GOTO 1170 3650  GOTO 1170
 3700  IF W9>.60 THEN 3800 3700  IF W9>.60 THEN 3800
 3710  PRINT 3710  PRINT
-3720  PRINT " YOU ARE TRAVELLING BACK IN TIME."+3720  PRINT " ESTA VIAJANDO AL PASADO."
 3730  T=T-11 3730  T=T-11
-3740  PRINT "*** STARDATE ="T+1+3740  PRINT "*** FECHA ESTELAR ="T+1
 3750  GOTO 1170 3750  GOTO 1170
 3800  IF W9>.70 THEN 3900 3800  IF W9>.70 THEN 3900
 3810  PRINT 3810  PRINT
-3820  PRINT " YOU ARE TRAVELLING FORWARD IN TIME."+3820  PRINT " ESTA VIAJANDO AL FUTURO."
 3830  T=T+5 3830  T=T+5
 3840  IF T>T0+T9 THEN 5200 3840  IF T>T0+T9 THEN 5200
-3850  PRINT "*** STARDATE ="T+3850  PRINT "*** FECHA ESTELAR ="T
 3860  GOTO 1170 3860  GOTO 1170
 3900  PRINT 3900  PRINT
-3910  PRINT "NUCLEAR REACTOR CHAIN REACTION QUENCHED." +3910  PRINT "REACCION NUCLEAR EN CADENA DEL REACTOR DETENIDA." 
-3920  PRINT "*** TIME PORTAL MISSED ***"+3920  PRINT "*** PORTAL DE TIEMPO PERDIDO ***"
 3930  GOTO 1170 3930  GOTO 1170
-4000  REM: DAMAGE CONTROL REPORT+4000  REM: REPORTE DE CONTROL DE AVERIAS
 4010  IF D(6) >= 0 THEN 4040 4010  IF D(6) >= 0 THEN 4040
-4020  PRINT "DAMAGE CONTROL REPORT IS NOT AVAILABLE"+4020  PRINT "REPORTE DE CONTROL DE AVERIAS NO DISPONIBLE"
 4025  PRINT 4025  PRINT
 4030  GOTO 955 4030  GOTO 955
 4040  PRINT 4040  PRINT
-4050  PRINT "DEVICE         STATE OF REPAIR"+4050  PRINT "DISPOSITIVO ESTADO DE REPARACION"
 4060  FOR I=1 TO 7 4060  FOR I=1 TO 7
 4065  R5=I-.5 4065  R5=I-.5
Línea 568: Línea 568:
 4100  GOTO 955 4100  GOTO 955
 4200  REM: 4200  REM:
-4500  PRINT "*** KLINGON AT SECTOR"K(I,1);"-"K(I,2);"DESTROYED."+4500  PRINT "*** KLINGON EN SECTOR"K(I,1);"-"K(I,2);"DESTRUIDO."
 4510  K3=K3-1 4510  K3=K3-1
 4520  K9=K9-1 4520  K9=K9-1
Línea 574: Línea 574:
 4540  G(Q1,Q2)=K3*100+B3*10+S3 4540  G(Q1,Q2)=K3*100+B3*10+S3
 4550  RETURN 4550  RETURN
-5000  REM: KLINGON ATTACK+5000  REM: ATAQUE KLINGON
 5002  GOSUB 7900 5002  GOSUB 7900
 5003  IF K3<=0 THEN 5110 5003  IF K3<=0 THEN 5110
-5005  IF C$ <> "DOCKED" THEN 5017 +5005  IF C$ <> "ACOPLADO" THEN 5017 
-5010  PRINT "STARBASE SHIELDS PROTECT THE"N$+5010  PRINT "ESCUDOS DE BASE ESTELAR PROTEGEN EL"N$
 5012  RETURN 5012  RETURN
 5017  IF C5=0 THEN 5022 5017  IF C5=0 THEN 5022
-5018  PRINT "** KLINGONS ATTACK-- ENERGY SHIELDS PROTECT"N$+5018  PRINT "** ATAQUE KLINGON-- ESCUDOS DE ENERGIA PROTEGEN"N$
 5020  GOTO 5110 5020  GOTO 5110
 5022  IF K3*150<E THEN 5049 5022  IF K3*150<E THEN 5049
 5023  IF N1<>0 THEN 5049 5023  IF N1<>0 THEN 5049
 5024  PRINT 5024  PRINT
-5025  PRINT "   KLINGON COMMANDER TO ENTERPRISE---" +5025  PRINT "   COMANDANTE KLINGON AL ENTERPRISE---" 
-5026  PRINT "AS YOU WELL KNOW, YOU ARE DANGEROUSLY LOW ON ENERGY" +5026  PRINT "COMO BIEN SABE, ESTA PELIGROSAMENTE ESCASO DE ENERGIA" 
-5027  PRINT "AND WILL PROBABLY BE DESTROYED BY MY NEXT ATTACK." +5027  PRINT "Y PROBABLEMENTE SERA DESTRUIDO EN MI SIGUIENTE ATAQUE." 
-5028  PRINT "AS AN OFFICER AND GENTLEMAN, I OFFER YOU A CHANCE TO" +5028  PRINT "COMO OFICIAL Y CABALLERO, LE OFREZCO LA OPORTUNIDAD DE" 
-5029  PRINT "SAVE YOURSELF AND YOUR CREW----" +5029  PRINT "SALVARSE USTED Y SU TRIPULACION----" 
-5032  PRINT "    DO YOU SURRENDER:";+5032  PRINT "    SE RINDE?:";
 5033  INPUT S$ 5033  INPUT S$
-5034  IF S$<>"YES" THEN 5049+5034  IF S$<>"SI" THEN 5049
 5035  A7=1 5035  A7=1
 5036  N9=1 5036  N9=1
Línea 603: Línea 603:
 5070  E=E-H 5070  E=E-H
 5075  GOSUB 7900 5075  GOSUB 7900
-5080  PRINT H;"UNIT HIT ON"N$;"FROM KLINGON, SECTOR "K(I,1);"-"K(I,2)+5080  PRINT H;"UNIDAD IMPACTADA EN"N$;"POR KLINGON, SECTOR "K(I,1);"-"K(I,2)
 5082  IF H<=180 THEN 5090 5082  IF H<=180 THEN 5090
 5083  R5=INT(RND(0)*7+1) 5083  R5=INT(RND(0)*7+1)
 5084  D(R5)=D(R5)-(RND(0)*5+1) 5084  D(R5)=D(R5)-(RND(0)*5+1)
-5085  PRINT "*** CRITICAL HIT,";+5085  PRINT "*** IMPACTO CRITICO,";
 5086  GOSUB 6000 5086  GOSUB 6000
-5087  PRINT F$" DAMAGED ***" +5087  PRINT F$" AVEREIADO ***" 
-5090  PRINT "("E;"LEFT)"+5090  PRINT "("E;"RESTANTE)"
 5100  NEXT I 5100  NEXT I
 5105  PRINT 5105  PRINT
 5110  RETURN 5110  RETURN
-5200  REM: LOSE+5200  REM: PERDER
 5210  GOSUB 9985 5210  GOSUB 9985
-5220  PRINT "IT IS STARDATE"T+5220  PRINT "ES FECHA ESTELAR"T
 5230  PRINT 5230  PRINT
 5250  GOSUB 7900 5250  GOSUB 7900
-5255  PRINT "THE"N$;"HAS BEEN DESTROYED." +5255  PRINT "EL"N$;"HA SIDO DESTRUIDO." 
-5260  PRINT "THERE ARE STILL"K9;"KLINGON BATTLE CRUISERS." +5260  PRINT "RESTAN AUN"K9;"CRUCEROS DE BATALLA KLINGON." 
-5270  PRINT "THE FEDERATION WILL BE CONQUERED." +5270  PRINT "LA FEDERACION SERA CONQUISTADA." 
-5280  PRINT "YOU ARE DEAD, YOU INCOMPETENT FOOL."+5280  PRINT "USTED HA MUERTO, TONTO INCOMPETENTE."
 5290  GOTO 9992 5290  GOTO 9992
 5300  REM: WIN 5300  REM: WIN
 5310  GOSUB 9985 5310  GOSUB 9985
-5320  PRINT "IT IS STARDATE"T +5320  PRINT "ES LA FECHA ESTELAR"T 
-5330  PRINT "THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN" +5330  PRINT "EL ULTIMO CRUCERO DE BATALLA KLINGON EN LA GALAXIA HA SIDO" 
-5331  PRINT "DESTROYED." +5331  PRINT "DESTRUIDO." 
-5340  PRINT "THE FEDERATION HAS BEEN SAVED." +5340  PRINT "LA FEDERACION HA SIDO SALVADA." 
-5350  PRINT "YOU HAVE BEEN PROMOTED TO COMMODORE EMERITUS."+5350  PRINT "USTED HA SIDO PROMOVIDO A COMODORO EMERITO."
 5355  IF N1<>0 THEN 5380 5355  IF N1<>0 THEN 5380
-5360  PRINT K0;"KLINGONS IN"T-T0;"YEARS.  RATING="INT(K0/(T-T0)*1000)+5360  PRINT K0;"KLINGONS EN"T-T0;"ANIOS.  RATING="INT(K0/(T-T0)*1000)
 5370  GOTO 9992 5370  GOTO 9992
-5380  PRINT K0;"KLINGONS IN"T-T0;"YEARS."+5380  PRINT K0;"KLINGONS EN"T-T0;"ANIOS."
 5382  IF A7=5 THEN 5392 5382  IF A7=5 THEN 5392
-5385  PRINT "ENTERPRISE CAPTURED."+5385  PRINT "ENTERPRISE CAPTURADO."
 5390  PRINT "RATING ="INT(K0/(T-T0)*1000-1000) 5390  PRINT "RATING ="INT(K0/(T-T0)*1000-1000)
 5391  GOTO 9992 5391  GOTO 9992
-5392  PRINT "ENTERPRISE DESTROYED INTENTIONALLY."+5392  PRINT "ENTERPRISE DESTRUIDO INTENCIONALMENTE."
 5393  PRINT "RATING ="INT(K0/(T-T0)*1000-500) 5393  PRINT "RATING ="INT(K0/(T-T0)*1000-500)
 5395  GOTO 9992 5395  GOTO 9992
-6000  REM: SELECT DAMAGED DEVICE+6000  REM: SELECCIONE DISPOSITIVO AVERIADO
 6002  IF A+1<>1 THEN 6010 6002  IF A+1<>1 THEN 6010
 6004  R5=R1 6004  R5=R1
 6010  IF R5>1 THEN 6040 6010  IF R5>1 THEN 6040
-6020  F$="WARP ENGINES"+6020  F$="MOTORES WARP"
 6030  GOTO 8000 6030  GOTO 8000
 6040  IF R5>2 THEN 6070 6040  IF R5>2 THEN 6070
-6050  F$="S.R. SENSORS"+6050  F$="SENSORES C.A."
 6060  GOTO 8000 6060  GOTO 8000
 6070  IF R5>3 THEN 6090 6070  IF R5>3 THEN 6090
-6075  F$="L.R. SENSORS"+6075  F$="SENSORES L.A."
 6080  GOTO 8000 6080  GOTO 8000
 6090  IF R5>4 THEN 6100 6090  IF R5>4 THEN 6100
-6093  F$="PHASER CNTRL"+6093  F$="CNTRL PHASER"
 6097  GOTO 8000 6097  GOTO 8000
 6100  IF R5>5 THEN 6110 6100  IF R5>5 THEN 6110
-6103  F$="PHOTON TUBES"+6103  F$="TUBOS FOTON"
 6107  GOTO 8000 6107  GOTO 8000
 6110  IF R5>6 THEN 6115 6110  IF R5>6 THEN 6115
-6111  F$="DAMAGE CNTRL"+6111  F$="CNTRL AVERIA"
 6112  GOTO 8000 6112  GOTO 8000
-6115  F$="ENERGY SHLDS"+6115  F$="ESCD ENERGIA"
 6118  GOTO 8000 6118  GOTO 8000
-6300  REM: RAMMING KLINGON+6300  REM: EMBESTIR A KLINGON
 6301  PRINT 6301  PRINT
 6302  Q(S1,S2)=0 6302  Q(S1,S2)=0
 6304  K3=K3-1 6304  K3=K3-1
 6305  K9=K9-1 6305  K9=K9-1
-6310  Z$="DOWN"+6310  Z$="ABAJO"
 6318  FOR I=1 TO 9 6318  FOR I=1 TO 9
 6320  IF K(I,1)<>X3 THEN 6330 6320  IF K(I,1)<>X3 THEN 6330
Línea 683: Línea 683:
 6365  GOTO 6370 6365  GOTO 6370
 6370  G(Q1,Q2)=K3*100+B3*10+S3 6370  G(Q1,Q2)=K3*100+B3*10+S3
-6380  PRINT "*** EMERGENCY ALERT ***" +6380  PRINT "*** ALERTA DE EMERGENCIA ***" 
-6381  PRINT "*** COLLISION IMMINENT ***"+6381  PRINT "*** COLISION IMMINENTE ***"
 6382  GOSUB 9980 6382  GOSUB 9980
 6383  GOSUB 7900 6383  GOSUB 7900
-6384  PRINT N$;"RAMS KLINGON AT SECTOR"Z6;"-"Z7 +6384  PRINT N$;"EMBISTE KLINGON EN SECTOR"Z6;"-"Z7 
-6385  PRINT "*** KLINGON DESTROYED,"N$;"HEAVILY DAMAGED. ***"+6385  PRINT "*** KLINGON DESTRUIDO,"N$;"GRAVEMENTE AVERIADO. ***"
 6386  FOR I=1 TO 7 6386  FOR I=1 TO 7
 6387  D(I)=D(I)-(RND(0)*4+1) 6387  D(I)=D(I)-(RND(0)*4+1)
Línea 700: Línea 700:
 6398  A=2 6398  A=2
 6399  GOTO 4040 6399  GOTO 4040
-6500  REM: TORPEDO SPREAD FORMATION +6500  REM: FORMACION DE ABANICO DE TORPEDO 
-6507  PRINT "SPREAD ANGLE (0.05-0.30):";+6507  PRINT "ANGULO DE APERTURA (0.05-0.30):";
 6508  INPUT E5 6508  INPUT E5
 6509  IF E5=0 THEN 959 6509  IF E5=0 THEN 959
Línea 707: Línea 707:
 6511  IF E5>0.30 THEN 6507 6511  IF E5>0.30 THEN 6507
 6515  E4=1 6515  E4=1
-6520  PRINT "NUMBER"E4;+6520  PRINT "CANTIDAD"E4;
 6522  IF E4>1.5 THEN 6530 6522  IF E4>1.5 THEN 6530
 6524  C1=C1-E5 6524  C1=C1-E5
Línea 713: Línea 713:
 6530  C1=C1+E5 6530  C1=C1+E5
 6535  GOTO 3120 6535  GOTO 3120
-7100  REM: COMMAND LINK+7100  REM: ENLACE DE MANDO
 7105  IF A+1 = 1 THEN 1030 7105  IF A+1 = 1 THEN 1030
 7106  IF A+1 = 2 THEN 700 7106  IF A+1 = 2 THEN 700
Línea 726: Línea 726:
 7115  IF A+1 = 11 THEN 7200 7115  IF A+1 = 11 THEN 7200
 7125  GOTO 974 7125  GOTO 974
-7200  REM: DEATH RAY+7200  REM: RAYO DE LA MUERTE
 7202  IF T>T0+18 THEN 7208 7202  IF T>T0+18 THEN 7208
-7204  PRINT " DEATH RAY CANNOT BE USED UNTIL STARDATE"T0+19+7204  PRINT " EL RAYO DE LA MUERTE NO PUEDE USARSE HASTA FECHA ESTELAR"T0+19
 7205  PRINT 7205  PRINT
 7206  GOTO 959 7206  GOTO 959
 7208  IF W3<.05 THEN 7215 7208  IF W3<.05 THEN 7215
-7210  PRINT " DEATH RAY PERMANENTLY OUT OF ORDER."+7210  PRINT " RAYO DE LA MUERTE PERMANENTEMENTE FUERA DE SERVICIO."
 7212  PRINT 7212  PRINT
 7214  GOTO 959 7214  GOTO 959
 7215  IF C5=0 THEN 7225 7215  IF C5=0 THEN 7225
-7220  PRINT " YOU MUST LOWER YOUR SHIELDS TO FIRE."+7220  PRINT " DEBE BAJAR ESCUDOS PARA DISPARAR."
 7222  PRINT 7222  PRINT
 7223  GOTO 959 7223  GOTO 959
Línea 742: Línea 742:
 7227  PRINT 7227  PRINT
 7228  IF W3>.35 THEN 7260 7228  IF W3>.35 THEN 7260
-7230  PRINT " *ANTI-MATTER OVERLOAD." +7230  PRINT " *SOBRECARGA DE ANTIMANTERIA." 
-7231  PRINT " TEMPORARY PSUEDO-STARS CREATED FROM ENERGY."+7231  PRINT " PSEUDOESTRELLAS CREADAS TEMPORALMENTE A PARTIR DE ENERGIA."
 7232  FOR I=1 TO 8 7232  FOR I=1 TO 8
 7233  FOR J=1 TO 8 7233  FOR J=1 TO 8
Línea 753: Línea 753:
 7247  GOTO 830 7247  GOTO 830
 7260  IF W3>.50 THEN 7280 7260  IF W3>.50 THEN 7280
-7263  PRINT "*** DEATH RAY BACKFIRES ***" +7263  PRINT "*** RAYO DE LA MUERTE FALLA CATASTROFICA ***" 
-7265  PRINT "*** BETTER LUCK NEXT TIME ***"+7265  PRINT "*** MEJOR SUERTE LA PROXIMA VEZ ***"
 7270  GOTO 3575 7270  GOTO 3575
 7280  IF W3>.60 THEN 7310 7280  IF W3>.60 THEN 7310
-7283  PRINT "*** DEATH RAY ANNIHILATES ALL KLINGONS IN QUADRANT"Q1;"-"Q2+7283  PRINT "*** RAYO DE LA MUERTE ANIQUILA TODOS LOS KLINGONS EN CUADRANTE"Q1;"-"Q2
 7285  K9=K9-K3 7285  K9=K9-K3
 7286  IF K9<=0 THEN 5300 7286  IF K9<=0 THEN 5300
Línea 772: Línea 772:
 7300  GOTO 959 7300  GOTO 959
 7310  IF W3>.75 THEN 7325 7310  IF W3>.75 THEN 7325
-7312  PRINT "*THERMAL REACTOR ENERGY DRAIN."+7312  PRINT "*VACIADO DE ENERGIA DEL REACTOR TERMAL."
 7314  E=E-(.95*E) 7314  E=E-(.95*E)
-7316  PRINT .95*E"UNITS OF ENERGY BURNED."+7316  PRINT .95*E"UNIDADES DE ENERGIA QUEMADAS."
 7320  GOTO 7283 7320  GOTO 7283
 7325  IF W3>.95 THEN 7350 7325  IF W3>.95 THEN 7350
-7328  PRINT "*MATTER/ANTI-MATTER TRANSFORMATION."+7328  PRINT "*TRANSFORMACION MATERIA/ANTIMATERIA."
 7330  IF K3>0 THEN 7334 7330  IF K3>0 THEN 7334
 7332  GOTO 7231 7332  GOTO 7231
-7334  PRINT "KLINGONS HIT BY MAIN BEAM DUPLICATED."+7334  PRINT "KLINGONS ALCANZADOS POR RAYO PRINCIPAL DUPLIOCADO."
 7335  P8=K3 7335  P8=K3
 7338  FOR I=1 TO P8 7338  FOR I=1 TO P8
Línea 790: Línea 790:
 7346  P2=1 7346  P2=1
 7349  GOTO 1500 7349  GOTO 1500
-7350  PRINT "*** DEATH RAY GOES CRAZY ***" +7350  PRINT "*** RAYO DE LA MUERTE DESCONTROLADO ***" 
-7352  PRINT "*** DESTROYS EVERY KLINGON IN THE GALAXY ***" +7352  PRINT "*** DESTRUYE TODO KLINGON EN LA GALAXIA ***" 
-7353  PRINT "*** ALSO DESTROYS ENTERPRISE ***"+7353  PRINT "*** TAMBIEN DESTRUYE AL ENTERPRISE ***"
 7354  A7=N1=5 7354  A7=N1=5
 7360  GOTO 5300 7360  GOTO 5300
-7400  REM: ABANDON SHIP+7400  REM: ABANDONAR NAVE
 7401  IF N1=0 THEN 7404 7401  IF N1=0 THEN 7404
-7402  PRINT "THE FAIRIE QUEENE CANNOT BE ABANDONED."+7402  PRINT "LA FAIRIE QUEENE NO PUEDE SER ABANDONADA."
 7403  GOTO 959 7403  GOTO 959
 7404  PRINT 7404  PRINT
 7405  IF A7<>1 THEN 7420 7405  IF A7<>1 THEN 7420
-7410  PRINT "** YOU MAY NOT ABANDON SHIP AFTER YOU HAVE BEEN " +7410  PRINT "** NO PUEDE ABANDONAR LA NAVE TRAS HABERLE SIDO " 
-7411  PRINT "ASKED TO SURRENDER."+7411  PRINT "PEDIDO LA RENDICION."
 7415  PRINT 7415  PRINT
 7416  GOTO 959 7416  GOTO 959
-7420  PRINT "*** ABANDON SHIP ***" +7420  PRINT "*** ABANDONAR NAVE ***" 
-7421  PRINT "*** ABANDON SHIP ***"+7421  PRINT "*** ABANDONAR NAVE ***"
 7425  PRINT 7425  PRINT
-7426  PRINT "SERIES ENTER-BLITZ INITIATED." +7426  PRINT "SERIE ENTER-BLITZ INICIADA." 
-7429  PRINT "FAIL-SAFE AUTO-OVERRIDE INSERTED." +7429  PRINT "AUTORIZACION A PRUEBA DE FALLOS INSERTADO." 
-7433  PRINT "ENTERPRISE COMMANDER AND CREW ESCAPE IN SHUTTLE CRAFT."+7433  PRINT "COMANDANTE DEL ENTERPRISE Y TRIPULACION ESCAPAN EN TRANSBORDADOR."
 7435  PRINT 7435  PRINT
-7440  PRINT "*** ENTERPRISE REDUCED TO SUB-ATOMIC PARTICLES ***"+7440  PRINT "*** ENTERPRISE REDUCIDO A PARTICULAS SUBATOMICAS ***"
 7441  PRINT 7441  PRINT
 7445  A7=5 7445  A7=5
Línea 829: Línea 829:
 7525  IF S4<=0 THEN 7600 7525  IF S4<=0 THEN 7600
 7530  PRINT 7530  PRINT
-7535  PRINT "*************************************************" +7535  PRINT "********************************************************" 
-7540  PRINT "********* SUPERNOVA IN QUADRANT"Z3;"-"Z4 +7540  PRINT "********* SUPERNOVA EN CUADRANTE"Z3;"-"Z4 
-7542  PRINT "ALL MATTER IN THIS QUADRANT CONVERTED TO ENERGY."+7542  PRINT "TODA LA MATERIA EN ESTE CUADRANTE CONVERTIDA EN ENERGIA."
 7543  IF Q1<>Z3 THEN 7575 7543  IF Q1<>Z3 THEN 7575
 7544  IF Q2<>Z4 THEN 7575 7544  IF Q2<>Z4 THEN 7575
 7545  PRINT 7545  PRINT
 7546  GOSUB 7900 7546  GOSUB 7900
-7548  PRINT "UNFORTUNATELY, THE"N$;"WAS IN THIS QUADRANT."+7548  PRINT "DESAFORTUNADAMENTE, EL"N$;"ESTABA EN ESTE CUADRANTE."
 7550  GOTO 3582 7550  GOTO 3582
-7575  PRINT "FROM NOW ON, ANY VESSEL STOPPING IN THIS QUADRANT" +7575  PRINT "DE AHORA EN MAS, CUALQUIER NAVE DETENIDA EN ESTE CUADRANTE" 
-7576  PRINT "WILL BE TOTALLY ENERGIZED." +7576  PRINT "SERA TOTALMENTE ENERGIZADA." 
-7577  PRINT "*************************************************"+7577  PRINT "********************************************************"
 7579  PRINT 7579  PRINT
 7580  K4=INT(G(Z3,Z4)/99.99) 7580  K4=INT(G(Z3,Z4)/99.99)
Línea 848: Línea 848:
 7590  G(Z3,Z4)=INT(1000.0) 7590  G(Z3,Z4)=INT(1000.0)
 7600  GOTO 1164 7600  GOTO 1164
-7650  REM: STARSHIP ENCOUNTERS OLD SUPERNOVA +7650  REM: NAVE ENCUENTRA ANTIGUA SUPERNOVA 
-7655  PRINT "*** HEY STUPID.  YOU WERE WARNED NOT TO STOP IN A" +7655  PRINT "*** EY ESTUPIDO. LE FUE ADVERTIDO NO DETENERSE EN UN" 
-7656  PRINT "QUADRANT WHERE A SUPERNOVA HAD OCCURRED."+7656  PRINT "CUADRANTE DONDE OCURRIO UNA SUPERNOVA."
 7660  GOTO 8992 7660  GOTO 8992
 7700  REM: VARIABLE RESUPPLY 7700  REM: VARIABLE RESUPPLY
Línea 863: Línea 863:
 7800  REM: ACTIVATE ENERGY SHIELDS 7800  REM: ACTIVATE ENERGY SHIELDS
 7802  IF D(7)>=0 THEN 7808 7802  IF D(7)>=0 THEN 7808
-7804  PRINT "ENERGY SHIELDS DISABLED."+7804  PRINT "ESCUDOS DE ENERGIA DESACTIVADOS."
 7806  GOTO 959 7806  GOTO 959
 7808  IF C5=0 THEN 7818 7808  IF C5=0 THEN 7818
-7810  PRINT "ENERGY SHIELDS ALREADY ACTIVATED."+7810  PRINT "ESCUDOS DE ENERGIA YA ACTIVADOS."
 7811  PRINT 7811  PRINT
 7812  GOTO 959 7812  GOTO 959
 7818  PRINT 7818  PRINT
-7819  PRINT "ENERGY SHIELDS ACTIVATED."+7819  PRINT "ESCUDOS DE ENERGIA ACTIVADOS."
 7820  PRINT 7820  PRINT
 7822  C5=200 7822  C5=200
-7824  Z$="UP"+7824  Z$="ARRIBA"
 7825  E=E-C5 7825  E=E-C5
 7826  IF E<=0 THEN 5200 7826  IF E<=0 THEN 5200
Línea 880: Línea 880:
 7850  REM: DEACTIVATE ENERGY SHIELDS 7850  REM: DEACTIVATE ENERGY SHIELDS
 7855  PRINT 7855  PRINT
-7860  PRINT "ENERGY SHIELDS DEACTIVATED."+7860  PRINT "ESCUDOS DE ENERGIA DESACTIVADOS."
 7863  PRINT 7863  PRINT
 7865  C5=0 7865  C5=0
-7868  Z$="DOWN"+7868  Z$="ABAJO"
 7870  GOSUB 5000 7870  GOSUB 5000
 7875  GOTO 955 7875  GOTO 955
Línea 894: Línea 894:
 7918  A5=1 7918  A5=1
 7920  RETURN 7920  RETURN
-7950  REM: CHANGING OF THE GUARD AT BUCKINGHAM PALACE+7950  REM: CAMBIANDO LA GUARDA EN EL PALACIO DE BUCKINGHAM
 7951  PRINT 7951  PRINT
 7952  FOR I=1 TO 8 7952  FOR I=1 TO 8
Línea 903: Línea 903:
 7961  NEXT J 7961  NEXT J
 7962  NEXT I 7962  NEXT I
-7963  PRINT " YOU HAVE BEEN TAKEN TO KLINGON HEADQUARTERS." +7963  PRINT " HA SIDO LLEVADO AL CUARTEL GENERAL KLINGON." 
-7964  PRINT "IF YOU HAD A STARBASE, YOU WOULD BE REPATRIATED" +7964  PRINT "SI TUVIESE UNA BASE ESTELAR, SERIA REPATRIADO" 
-7965  PRINT "AND GIVEN A NEW STARSHIP TO COMMAND." +7965  PRINT "Y DADO UNA NUEVA NAVE A COMANDAR." 
-7966  PRINT "SINCE YOU HAVE NO STARBASE, YOU WILL BE MERCILESSLY" +7966  PRINT "COMO NO TIENE UNA BASE ESTELAR, SERA INMISERICORDEMENTE" 
-7967  PRINT "TORTURED TO DEATH BY THE ARCHFIEND," +7967  PRINT "TORTURADO HASTA MORIR POR SU ACHIAMIGO," 
-7968  PRINT "CECIL DYBOWSKI, SCOURGE OF THE UNIVERSE."+7968  PRINT "CECIL DYBOWSKI, ESCORIA DEL UNIVERSO."
 7970  N7=1 7970  N7=1
 7975  GOTO 8000 7975  GOTO 8000
Línea 918: Línea 918:
 7983  P=5 7983  P=5
 7984 N1=1 7984 N1=1
-7985  PRINT "YOU HAVE BEEN SENT BACK TO STARFLEET COMMAND." +7985  PRINT "HA SIDO ENVIADO AL COMANDO DE LA FLOTA ESTELAR." 
-7987  PRINT "YOU ARE NOW IN COMMAND OF A NEW STARSHIP," +7987  PRINT "TIENE EL MANDO DE UNA NUEVA NAVE ESTELAR," 
-7988  PRINT "   THE FAIRIE QUEENE," +7988  PRINT "   EL FAIRIE QUEENE," 
-7989  PRINT "WHICH LOOKS LIKE /Q/ ON THE SCAN."+7989  PRINT "qUE APARECE COMO /Q/ EN LOS SENSORES."
 7990  PRINT 7990  PRINT
-7992  PRINT "   YE FAIRIE QUEENE IS CURRENTLY IN QUADRANT"Q1;"-"Q2 +7992  PRINT "   EL FAIRIE QUEENE SE ENCUENTRA ACTUALMENTE EN EL CUADRANTE"Q1;"-"Q2 
-7994  PRINT "TRY TO BE MORE CAREFUL THIS TIME."+7994  PRINT "INTENTE SER MAS CUIDADOSO ESTA VEZ."
 7995  FOR I=1 TO 7 7995  FOR I=1 TO 7
 7996  D(I)=0 7996  D(I)=0
Línea 939: Línea 939:
 8056  Q$(7)="C" 8056  Q$(7)="C"
 8060  RETURN 8060  RETURN
-8100  REM: SELF-DESTRUCT+8100  REM: AUTODESTRUCCION
 8105  PRINT 8105  PRINT
-8110  PRINT "SERIES ENTER-BLITZ INITIATED." +8110  PRINT "SERIES ENTER-BLITZ INICIALIZADA." 
-8115  PRINT "IN TEN SECONDS THIS VESSEL WILL SELF-DESTRUCT."+8115  PRINT "ESTA NAVE SE AUTODESTRUIRA EN DIEZ SEGUNDOS."
 8116  PRINT "10" 8116  PRINT "10"
 8117  PRINT "   9" 8117  PRINT "   9"
Línea 949: Línea 949:
 8120  PRINT "            6" 8120  PRINT "            6"
 8122  PRINT 8122  PRINT
-8123  PRINT "T MINUS 5 SECONDS AND HOLDING." +8123  PRINT "T MENOS 5 SEGUNDOS Y CONTANDO." 
-8124  PRINT "FAIL-SAFE MECHANISM ENGAGED.  ONLY THE COMMANDER OF" +8124  PRINT "MECANISMO DE SEGURIDAD ACTIVADO. SOLO EL COMANDANTE DE" 
-8125  PRINT "THE STARSHIP CAN OVERRIDE WITH HIS SECRET PASSWORD." +8125  PRINT "LA NAVE ESTELAR PUEDE ANULAR ESTO CON SU PASSWORD SECRETO." 
-8126  PRINT "SCIENCE OFFICER HICKS HAS ALREADY ENTERED HIS CORRECT" +8126  PRINT "EL OFICIAL DE CIENCIA HICKS YA HA INGRESADO SU CONTRA" 
-8127  PRINT "COUNTER-PASSWORD." +8127  PRINT "PASSWORD CORRECTO." 
-8128  PRINT "TO CONTINUE SERIES ENTER-BLITZ, TYPE YOUR " +8128  PRINT "PARA CONTINUAR LA SERIE ENTER-BLITZ, INGRESE SU " 
-8129  PRINT "SECRET PASSWORD:";+8129  PRINT "PASSWORD SECRETA:";
 8130  INPUT V$ 8130  INPUT V$
 8135  IF V$<>X$ THEN 8150 8135  IF V$<>X$ THEN 8150
Línea 965: Línea 965:
 8145  GOTO 3575 8145  GOTO 3575
 8150  PRINT 8150  PRINT
-8151  PRINT "SERIES ENTER-BLITZ TERMINATED."+8151  PRINT "SERIE ENTER-BLITZ TERMINADA."
 8155  PRINT 8155  PRINT
 8160  GOTO 955 8160  GOTO 955
 8200  REM: RANDOMIZE 8200  REM: RANDOMIZE
 8205  PRINT 8205  PRINT
-8206  PRINT "   TYPE A WIERD NUMBER BETWEEN 0.0 AND 1.0 :";+8206  PRINT "   INGRESE UN NUMERO RARO ENTRE 0.0 Y 1.0 :";
 8207  INPUT E6 8207  INPUT E6
 8208  E9=RND(E6) 8208  E9=RND(E6)
 8210  RETURN 8210  RETURN
-8970  REM: LEAVING GALAXY+8970  REM: ABANDONAR GALAXIA
 8975  IF F>2 THEN 8990 8975  IF F>2 THEN 8990
 8980  PRINT 8980  PRINT
 8981  PRINT "STARSHIP ENCOUNTERS END OF GALAXY." 8981  PRINT "STARSHIP ENCOUNTERS END OF GALAXY."
 8982  PRINT 8982  PRINT
-8983  PRINT "FOOLISH MORTAL, YOU HAVE ATTEMPTED TO VENTURE OUT OF THE" +8983  PRINT "TONTO MORTAL, HAS INTENTADO AVENTURARTE FUERA DE LA" 
-8984  PRINT "GALAXY INTO SUB-SPACE.  ON THE THIRD TIME YOU TRY THIS," +8984  PRINT "GALAXIA Y AL SUBESPACIO. LA TERCERA VEZ QUE LO INTENTES," 
-8985  PRINT "THE LIVING GOD, KORP, WILL DESTROY YOU."+8985  PRINT "EL DIOS VIVIENTE, KORP, TE DESTRUIRA."
 8987  F=F+1 8987  F=F+1
 8988  GOTO 8995 8988  GOTO 8995
 8990  PRINT 8990  PRINT
-8991  PRINT "YOU HAVE DARED TO ENTER SUB-SPACE A THIRD TIME." +8991  PRINT "TE HAS ATREVIDO A ENTRAR AL SUBESPACIO POR TERCERA VEZ." 
-8992  PRINT "FOR THIS, ************ YOU DIE ****************"+8992  PRINT "POR ESTO, ************ HAS MUERTO ****************"
 8993  GOTO 3575 8993  GOTO 3575
 8995  RETURN 8995  RETURN
-9000  REM: RANDOM NUMBER GENERATOR+9000  REM: GENERADOR DE NUMEROS ALEATORIOS
 9010  R1=INT(RND(0)*8+1) 9010  R1=INT(RND(0)*8+1)
 9020  R2=INT(RND(0)*8+1) 9020  R2=INT(RND(0)*8+1)
Línea 995: Línea 995:
 9040  RETURN 9040  RETURN
 9045  PRINT 9045  PRINT
-9050  PRINT "ORDERS:  STARDATE = "T+9050  PRINT "ORDENES:  FECHA ESTELAR = "T
 9060  PRINT 9060  PRINT
-9070  PRINT "   AS COMMANDER OF THE UNITED STARSHIP ENTERPRISE," +9070  PRINT "   COMO COMANDANTE DE LA NAVE ESTELAR ENTERPRISE," 
-9080  PRINT "YOUR MISSION IS TO RID THE GALAXY OF THE DEADLY" +9080  PRINT "SU MISION ES LIBERAR LA GALAXIA DE LA MORTAL AMENAZA" 
-9090  PRINT "KLINGON MENACE.  TO DO THIS, YOU MUST DESTROY THE " +9090  PRINT "KLINGON.  PARA HACERLO, DEBES DESTRUIR LA " 
-9100  PRINT "KLINGON INVASION FORCE OF "K9"BATTLE CRUISERS." +9100  PRINT "FUERZA DE INVASION KLINGON DE "K9"CRUCEROS DE BATALLA." 
-9110  PRINT "YOU HAVE"T9;"SOLAR YEARS TO COMPLETE YOUR MISSION." +9110  PRINT "TIENE"T9;"A~OS SOLARES PARA COMPLETAR SU MISION." 
-9120  PRINT "(I.E. UNTIL STARDATE"T0+T9;")."+9120  PRINT "(EJ. HASTA FECHA ESTELAR"T0+T9;")."
 9125  PRINT 9125  PRINT
 9130  IF B9 > 1 THEN 9133 9130  IF B9 > 1 THEN 9133
-9131  PRINT "   YOU WILL HAVE ONE SUPPORTING STARBASE."+9131  PRINT "   TENDRA UNA BASE ESTELAR DE APOYO."
 9132  GOTO 9140 9132  GOTO 9140
-9133  PRINT "   YOU WILL HAVE"B9"SUPPORTING STARBASES." +9133  PRINT "   USTED TENDRA"B9"BASES ESTELARES DE APOYO." 
-9140  PRINT "WHEN THE ENTERPRISE DOCKS AT ONE (IS POSITIONED" +9140  PRINT "CUANDO EL ENTERPRISE SE ACOPLA A UNA (ESTA POSICIONADA" 
-9150  PRINT "NEXT TO ONE) IT IS RESUPPLIED WITH ENERGY AND" +9150  PRINT "JUNTO A UNA) ES REABASTECIDA CON ENERGIA Y TORPEDOS" 
-9160  PRINT "PHOTON TORPEDOES." +9160  PRINT "DE FOTONES." 
-9161  PRINT "THE ENTERPRISE IS CURRENTLY IN" +9161  PRINT "EL ENTERPRISE ACTUALMENTE ESTA EN EL" 
-9162  PRINT "QUADRANT"Q1"-"Q2"SECTOR"S1"-"S2 +9162  PRINT "CUADRANTE"Q1"-"Q2"SECTOR"S1"-"S2 
-9163  PRINT "DO YOU NEED FURTHER INSTRUCTIONS (REVISED 18 APRIL 73)";+9163  PRINT "NECESITA MAS INSTRUCCIONES (REVISADO 18 ABRIL 73)";
 9164  INPUT A$ 9164  INPUT A$
 9166  PRINT 9166  PRINT
-9170  IF A$<>"YES" THEN 400+9170  IF A$<>"SI" THEN 400
 9175  GOSUB 9980 9175  GOSUB 9980
-9180  PRINT "   THE GALAXY IS DIVIDED INTO 64 QUADRANTS WITH" +9180  PRINT "   LA GALAXIA SE DIVIDE EN 64 CUADRANTES CON" 
-9190  PRINT "THE FOLLOWING COORDINATES:"+9190  PRINT "LAS SIGUIENTES COORDINADAS:"
 9200  PRINT " Y--   1   2   3   4   5   6   7   8   '" 9200  PRINT " Y--   1   2   3   4   5   6   7   8   '"
 9210  PRINT "   --------------------------------- X" 9210  PRINT "   --------------------------------- X"
Línea 1029: Línea 1029:
 9270  PRINT 9270  PRINT
 9280  PRINT 9280  PRINT
-9300  PRINT "EACH QUADRANT IS SIMILARLY DIVIDED INTO 64 SECTORS."+9300  PRINT "CADA CUADRANTE ESTA IGUALMENTE DIVIDIDO EN 64 SECTORES."
 9310  GOSUB 9980 9310  GOSUB 9980
-9320  PRINT "::: DEVICES :::"+9320  PRINT "::: DISPOSITIVOS :::"
 9330  PRINT 9330  PRINT
-9340  PRINT "WARP ENGINES: "+9340  PRINT "MOTORES WARP: "
 9350  PRINT 9350  PRINT
-9360  PRINT "COURSE = A REAL NUMBER FROM 1 TO 8.99999." +9360  PRINT "CURSO = UN NUMERO REAL DE 1 A 8.99999." 
-9370  PRINT "NUMBERS INDICATE DIRECTION STARTING AT THE RIGHT AND" +9370  PRINT "LOS NUMEROS INDICAN LA DIRECCION COMENZANDO DE LA DERECHA" 
-9380  PRINT "GOING COUNTER CLOCKWISE:"+9380  PRINT "Y ANTIHORARIO:"
 9390  PRINT 9390  PRINT
 9400  PRINT "        3" 9400  PRINT "        3"
Línea 1047: Línea 1047:
 9460  PRINT "        7" 9460  PRINT "        7"
 9470  PRINT 9470  PRINT
-9480  PRINT "WARP FACTOR = A REAL NUMBER FROM 0 TO 12." +9480  PRINT "VELOCIDAD WARP = UN NUMERO REAL DE 0 A 12." 
-9490  PRINT "DISTANCE TRAVELED = INTEGER (WARP FACTOR) QUADRANTS:" +9490  PRINT "DISTANCIA ATRAVESADA = ENTERO (VELOCIDAD WARP ) CUADRANTES:" 
-9500  PRINT "   WARP .2 = THE ENTERPRISE TRAVELS 1 SECTOR." +9500  PRINT "   WARP .2 = EL ENTERPRISE VIAJA   1 SECTOR." 
-9510  PRINT "        .5 =                        4 SECTORS." +9510  PRINT "        .5 =                       4 SECTORES." 
-9520  PRINT "         1 =                        1 QUADRANT." +9520  PRINT "         1 =                       1 CUADRANTE." 
-9530  PRINT "         2 =                        2 QUADRANTS."+9530  PRINT "         2 =                       2 CUADRANTES."
 9535  PRINT 9535  PRINT
 9540  PRINT 9540  PRINT
-9550  PRINT "FOR EXAMPLE, IF YOU TRAVEL FROM:" +9550  PRINT "POR EJEMPLO, SI VIAJA DESDE:" 
-9560  PRINT "QUADRANT 1 - 1, SECTOR 1 - 1, IN DIRECTION 1 AT WARP 2" +9560  PRINT "CUADRANTE 1 - 1, SECTOR 1 - 1, EN DIRECTION 1 A WARP 2" 
-9570  PRINT "YOU WOULD STOP AT" +9570  PRINT "SE DETENDRIA EN" 
-9580  PRINT "QUADRANT 1 - 3, SECTOR 1 - 1 IN THE NEXT STARDATE."+9580  PRINT "CUADRANTE 1 - 3, SECTOR 1 - 1 EN LA FECHA ESTELAR SIGUIENTE."
 9590  PRINT 9590  PRINT
-9591  PRINT " WHEN YOU CHANGE QUADRANTS, HOWEVER, THE POSITIONS OF" +9591  PRINT " CUANDO CAMBIA CUADRANTES, NO OBSTANTE, LA POSICION DE" 
-9592  PRINT "ALL OBJECTS IN THE NEW QUADRANT (INCLUDING THE ENTERPRISE)" +9592  PRINT "TODOS LOS OBJETOS EN EL NUEVO CUADRANTE (INCLUYENDO AL ENTERPRISE)" 
-9593  PRINT "ARE RANDOMIZED TO SIMULATE 3-D TRAVEL."+9593  PRINT "SE CAMBIAN AL AZAR PARA SIMULAR VIAJE 3-D."
 9599  PRINT 9599  PRINT
-9600  PRINT "*** NOTE:  EVERY USE OF THE WARP ENGINES TAKES ONE" +9600  PRINT "*** NOTA: TODO USO DE MOTORES WARP REQUIERE UNA FECHA" 
-9610  PRINT "STARDATE.  IF THE ENTERPRISE IS BLOCKED BY SOMETHING" +9610  PRINT "ESTELAR.  SI EL ENTERPRISE RESULTA BLOQUEADO POR ALGO" 
-9620  PRINT "DURING INTRA-QUADRANT TRAVEL IT WILL STOP IN FRONT" +9620  PRINT "DURANTE EL VIAJE INTRACUADRANTE SE DETENDRÁ ANTE ELLO" 
-9630  PRINT "OF IT (AND WASTE A STARDATE) ***"+9630  PRINT "(Y PERDERA UNA FECHA ESTELAR) ***"
 9631  PRINT 9631  PRINT
-9632  PRINT "***NOTE: THERE IS A TIME PORTAL AVAILABLE BY TRAVELLING" +9632  PRINT "***NOTA: HAY UN PORTAL DE TIEMPO DISPONIBLE AL VIAJAR" 
-9633  PRINT "AT WARP 12.  YOU MAY BE CARRIED EITHER FORWARD OR" +9633  PRINT "A WARP 12.  PUEDE AVANZAR O RETROCEDER EN EL TIEMPO" 
-9634  PRINT "BACKWARD IN TIME, BUT THERE IS ALSO A .40 PROBABILITY" +9634  PRINT "PERO TAMBIÉN TIENE UNA POSIBILIDAD DE 40%" 
-9635  PRINT "THAT YOU WILL BE DESTROYED IN A NUCLEAR IMPLOSION." +9635  PRINT "DE SER DESTRUIDO EN UNA IMPLOSION NUCLEAR." 
-9636  PRINT "A WARP FACTOR OF 12 MAY ONLY BE USED AFTER 15 SOLAR YEARS."+9636  PRINT "UN FACTOR WARP DE 12 SOLO PUEDE USARSE TRAS 15 A~OS SOLARES."
 9637  PRINT 9637  PRINT
-9638  PRINT "***NOTE:  IF THE ENTERPRISE RAMS A KLINGON VESSEL, EITHER" +9638  PRINT "***NOTA:  SU EL ENTERPRISE CHOCA UNA NAVE KLINGON, YA SEA" 
-9639  PRINT "DELIBERATELY OR ACCIDENTLY, THE KLINGON WILL BE" +9639  PRINT "DELIBERADA O ACCIDENTALMENTE, EL KLINGON SERA" 
-9640  PRINT "DESTROYED AND THE ENTERPRISE HEAVILY DAMAGED."+9640  PRINT "DESTRUIDO Y EL ENTERPRISE GRAVEMENTE AVERIADO."
 9649  GOSUB 9980 9649  GOSUB 9980
-9650  PRINT "SHORT RANGE SENSORS:"+9650  PRINT "SENSORES DE CORTO ALCANCE:"
 9660  PRINT 9660  PRINT
-9670  PRINT "   THE SHORT RANGE SENSORS OF THE ENTERPRISE DISPLAY" +9670  PRINT "   LOS SENSORES DE CORTO ALCANCE DEL ENTERPRISE DAN" 
-9680  PRINT "A DETAILED VIEW OF THE QUADRANT IT IS CURRENTLY IN." +9680  PRINT "UNA IMAGEN DETALLADA DEL CUADRANTE EN EL QUE SE ENCUENTRA." 
-9690  PRINT "THE ENTERPRISE LOOKS LIKE /E/ ON THE SCREEN." +9690  PRINT "EN LA PANTALLA EL ENTERPRISE APARECE COMO /E/." 
-9700  PRINT "KLINGON BATTLE CRUISERS LOOK LIKE /K/ ON THE SCREEN." +9700  PRINT "LOS CRUCEROS DE BATALLA KLINGON APARECEN COMO /K/." 
-9710  PRINT "STARBASES LOOK LIKE /B/ AND STARS LOOK LIKE * ." +9710  PRINT "LAS BASES ESTELARES APARECEN COMO /B/ Y LAS ESTRELLAS" 
-9715  PRINT "THE KLINGONS MAY HAVE A POWERFUL COMMAND SHIP, /C/."+9715  PRINT "COMO * .   LOS KLINGONS PUEDEN TENER UNA NAVE DE" 
 +9715  PRINT "COMANDO PODEROSA, /C/."
 9720  PRINT 9720  PRINT
-9723  PRINT "***NOTE: DOCKING IS A TWO STEP PROCEDURE--FIRST YOU" +9723  PRINT "***NOTA: ACOPLAR ES UN PROCEDIMIENTO DE DOS PASOS." 
-9724  PRINT "MUST MOVE ADJACENT TO THE BASE.  THEN CONDUCT A " +9724  PRINT "PRIMERO MUEVASE ADJACENTE A LA BASE.  LUEGO HAGA UN" 
-9725  PRINT "SHORT RANGE SCAN." +9725  PRINT "ESCANEO DE CORTO ALCANCE." 
-9726  PRINT "WHILE DOCKED, STARBASE SHIELDS PROTECT THE STARSHIP."+9726  PRINT "MIENTRAS ESTA ACOPLADO, LOS ESCUDOS DE LA BASE ESTELAR" 
 +9727  PRINT "PROTEGEN AL ENTERPRISE".
 9729  PRINT 9729  PRINT
-9730  PRINT "***NOTE: CONDITION YELLOW MEANS YOU ARE DANGEROUSLY" +9730  PRINT "***NOTA: CONDICION AMARILLA SIGNIFICA QUE ESTA" 
-9731  PRINT "LOW ON ENERGY AND SHOULD MAKE FOR A BASE POSTHASTE."+9731  PRINT "PELIGROSAMENTE BAJO DE ENERGIA Y DEBE IR RAPIDO A UNA BASE."
 9735  GOSUB 9980 9735  GOSUB 9980
-9736  PRINT "EXPERIMENTAL DEATH RAY"+9736  PRINT "RAYO EXPERIMENTAL DE LA MUERTE"
 9737  PRINT 9737  PRINT
-9738  PRINT "   THE EXPERIMENTAL DEATH RAY, AS ITS NAME IMPLIES," +9738  PRINT "   EL RAYO DE LA MUERTE EXPERIMENTAL, COMO SU NOMBRE INDICA," 
-9739  PRINT "IS UNPREDICTABLE.  HOWEVER, ONE CAN CERTAINLY PREDICT" +9739  PRINT "ES IMPREDECIBLE.  SIN EMBARGO, PUEDE PREDECIR CON CIERTO" 
-9740  PRINT "THAT, IN A GIVEN SITUATION, IT WILL DO WHATEVER IT" +9740  PRINT "FAVOR, DADO LA SITUACION, HARA LO QUE QUE PUEDA CON ELLO" 
-9741  PRINT "DAMN WELL PLEASES.  THERE IS A GOOD PROBABILITY THAT IT" +9741  PRINT "EXISTEN POSIBILIADES DE QUE DESTRUYA MUCHOS KLINGONS. EXISTE" 
-9742  PRINT "WILL DESTROY MANY KLINGONS, BUT THERE COULD BE SOME" +9742  PRINT "UNA POSIBILIDAD DE DESTRIUIR MUCHOS KLINGONS, PERO PUEDEN" 
-9743  PRINT "INTERESTING SIDE EFFECTS.  IT CAN PROBABLY ONLY BE" +9743  PRINT "SUCEDER EFECTOS SEGUNDARIOS INDESEADOS. PODRA PROBABLEMENTE" 
-9744  PRINT "FIRED ONCE, BUT YOU NEVER KNOW.  IT CANNOT BE USED UNTIL" +9744  PRINT "DISPARARLO UNA VES, PERO NUNCA SE SABE.  NO PUEDE USARSE" 
-9745  PRINT "18 SOLAR YEARS HAVE PASSED."+9745  PRINT "HASTA QUE TRANSCURRAN 18 A~OS SOLARES."
 9757  GOSUB 9980 9757  GOSUB 9980
-9758  PRINT "LONG RANGE SENSORS:"+9758  PRINT "SENSORES DE LARGO ALCANCE:"
 9759  PRINT 9759  PRINT
-9760  PRINT "   THE LONG RANGE SENSORS OF THE ENTERPRISE DISPLAY" +9760  PRINT "   LOS SENSORES DE LARGO ALCANCE DEL ENTERPRISE MUESTRAN" 
-9770  PRINT "THE NUMBER OF OBJECTS IN THE 9 CLOSEST QUADRANTS," +9770  PRINT "LA CANTIDAD DE OBJETOS EN LOS EN LOS 9 CUADRANTES MAS CERCANOS," 
-9771  PRINT "WITH THE ENTERPRISE IN THE CENTRAL ONE." +9771  PRINT "CON EL ENTERPRISE EL EL CENTRAL." 
-9780  PRINT "EACH DIGIT OF THE NUMBER IN EACH BOX MEANS SOMETHING:"+9780  PRINT "CADA DIGITO DEL NUMERO EN CADA CUADRO SIGNIFICA ALGO:"
 9790  PRINT "   THE ONES DIGIT REPRESENTS THE NUMBER OF STARS." 9790  PRINT "   THE ONES DIGIT REPRESENTS THE NUMBER OF STARS."
 9800  PRINT "       TENS                                STARBASES." 9800  PRINT "       TENS                                STARBASES."
Línea 1118: Línea 1120:
 9812  PRINT "      THOUSANDS                            SUPERNOVA." 9812  PRINT "      THOUSANDS                            SUPERNOVA."
 9820  PRINT "FOR EXAMPLE:" 9820  PRINT "FOR EXAMPLE:"
-9830  PRINT "319 MEANS  3 KLINGONS, 1 STARBASE, AND 9 STARS." +9830  PRINT "319 SIGNIFICA  3 KLINGONS, 1 BASE ESTELAR, Y 9 ESTRELLAS." 
-9840  PRINT "206 MEANS 2 KLINGONS, 0 STARBASES, AND 6 STARS." +9840  PRINT "206 SIGNIFICA 2 KLINGONS, 0 BASES, Y 6 ESTRELLAS." 
-9850  PRINT "7 MEANS 0 KLINGONS, 0 STARBASES, AND 7 STARS."+9850  PRINT "7 SIGNIFICA 0 KLINGONS, 0 BASES ESTELARES, Y 7 ESTRELLAS."
 9860  GOSUB 9980 9860  GOSUB 9980
-9861  PRINT "ENERGY SHIELDS:"+9861  PRINT "ESCUDOS DE ENERGIA:"
 9862  PRINT 9862  PRINT
-9863  PRINT "   WHILE THE ENERGY SHIELDS OF A STARSHIP ARE ACTIVATED," +9863  PRINT "   MIENTRAS QUE LOS ESCUDOS DE ENERGIA D EUNA NAVE ESTAN ACTIVOS," 
-9864  PRINT "KLINGON ATTACKS ARE NULLIFIED.  EVERY TIME YOU MOVE WITH" +9864  PRINT "LOS ATAQUES KLINGON SON LIMITADOS.  CADA VEZ QUE SE MUEVE CON" 
-9865  PRINT "YOUR SHIELDS UP, 200 UNITS OF ENERGY ARE USED." +9865  PRINT "SUS ESCUDOS ARRIBA, SE USAN 200 UNIDADES DE ENERGÍA." 
-9866  PRINT "ALSO, SHIELD ACTIVATION ITSELF REQUIRES 200 UNITS." +9866  PRINT "TAMBIEN, ACTIVAR ESCUDOS REQUIERE 200 UNIDADES." 
-9867  PRINT "NOTE: YOU MUST LOWER YOUR SHIELDS TO ATTACK."+9867  PRINT "NOTA: DEBE BAJAR SUS ESCUDOS PARA ATACAR."
 9869  GOSUB 9980 9869  GOSUB 9980
 9870  PRINT "PHASERS:" 9870  PRINT "PHASERS:"
 9880  PRINT 9880  PRINT
-9890  PRINT "   ANY PORTION OF THE ENERGY AVAILABLE CAN BE FIRED." +9890  PRINT "   UNA PORCION DE LA ENERGIA DISPONIBLE PUEDE DISPARARSE." 
-9900  PRINT "THE BATTLE COMPUTER DIVIDES THIS AMOUNT AMONG THE" +9900  PRINT "lA COMPUTADORA DE TIRO DIVIDE ESTA CANTIDAD ENTRE LOS" 
-9901  PRINT "KLINGON CRUISERS IN THE QUADRANT AND DETERMINES" +9901  PRINT "CRUCEROS KLINGON EN EL CUADRANTE Y DETERMINA" 
-9902  PRINT "THE VARIOUS DIRECTIONS OF FIRE.  THE EFFECTIVENESS" +9902  PRINT "LAS VARIAS DIRECCIONES DE TIRO. LA EFECTIVIDAD" 
-9903  PRINT "OF A HIT DEPENDS MOSTLY ON THE DISTANCE TO THE" +9903  PRINT "DE UN TIRO DEPENDE PRINCIPALMENTE DE LA DISTANCIA AL" 
-9904  PRINT "TARGET.  A KLINGON BATTLE CRUISER STARTS WITH"S9 +9904  PRINT "OBJETIVO. UN CRUCERO DE BATALLA KLINGON COMIENZA CON"S9 
-9905  PRINT "UNITS OF ENERGY.  IT CAN FIRE AN AMOUNT EQUAL TO" +9905  PRINT "UNIDADES DE ENERGIA. PUEDE DISPARAR UNA CANTIDAD IGUAL A" 
-9906  PRINT "WHATEVER ENERGY IT HAS LEFT."+9906  PRINT "TANTA ENERGIA COMO LE QUEDE RESTANTE."
 9907  PRINT 9907  PRINT
 9908  PRINT 9908  PRINT
-9909  PRINT "PHOTON TORPEDOES:"+9909  PRINT "TORPEDOS DE FOTON:"
 9910  PRINT 9910  PRINT
-9911  PRINT "   INITIALLY THE ENTERPRISE HAS"P0"PHOTON TORPEDOES." +9911  PRINT "   INICIALMENTE EL ENTERPRISE TIENE"P0"TORPEDOS DE FOTON." 
-9912  PRINT "ONE TORPEDO DESTROYS WHATEVER IT HITS.  THE RANGE" +9912  PRINT "UN TORPEDO DESTRUYE TODO LO QUE TOCA.  EL ALCANCE DE LOS" 
-9913  PRINT "OF PHOTON TORPEDOES (LIKE PHASERS) IS LIMITED TO" +9913  PRINT "TORPEDOS DE FOTON (COMO LOS PHASERS) SE LIMITAN A" 
-9914  PRINT "THE CURRENT QUADRANT.  THE COURSE OF A PHOTON TORPEDO" +9914  PRINT "EL CUADRANTE ACTUAL.  EL CURSO DE UN TORPEDO DE FOTON" 
-9915  PRINT "IS SET THE SAME WAY AS THAT OF THE ENTERPRISE." +9915  PRINT "ES EL MISMO QUE EL DEL ENTERPRISE." 
-9916  PRINT "YOU MAY, IF YOU WISH, FIRE A SPREAD OF THREE TORPEDOES" +9916  PRINT "SI LO DESEA, PUEDE DISPARAR EN ABANICO HASTA TRES TORPEDOS" 
-9917  PRINT "AT ONCE.  THERE IS A TIME LAG IN LAUNCHING THEM, THE ONE" +9917  PRINT "A LA VEZ. HAY UN RETRASO DE TIEMPO AL LANZAR, AQUEL" 
-9918  PRINT "WITH THE LOWEST NUMERICAL COURSE BEING FIRED FIRST." +9918  PRINT "CON EL MENOR CURSO NUMÉRICO SE DISPARA PRIMERO." 
-9919  PRINT "FOR EXAMPLE, A TORPEDO COURSE OF 3.49 WITH A SPREAD" +9919  PRINT "POR EJEMPLO, UN CURSO DE TORPEDO DE 3.49 CON UNA APERTURA" 
-9920  PRINT "ANGLE OF 0.24 WOULD FIRE TORPEDOES AT DIRECTIONS" +9920  PRINT "ANGULAR DE 0.24 DISPARARIA TORPEDOS EN LAS DIRECCIONES" 
-9921  PRINT "3.25, 3.49, AND 3.73 ."+9921  PRINT "3.25, 3.49, Y 3.73 ."
 9924  GOSUB 9980 9924  GOSUB 9980
-9925  PRINT "DAMAGE CONTROL REPORT:" +9925  PRINT "REPORTE DE CONTROL DE AVERIAS:" 
-9926  PRINT "   THE DAMAGE CONTROL REPORT LISTS THE MAIN DEVICES AND" +9926  PRINT "   EL REPORTE DE CONTROL DE AVERIAS LISTA LOS DISPOSITOS" 
-9927  PRINT "THEIR STATE OF REPAIR.  A NEGATIVE STATE OF REPAIR" +9927  PRINT "PRINCIPALES Y EL ESTADO DE SU REPARACION. UN ESTADO NEGATIVO" 
-9928  PRINT "INDICATES A DISABLES DEVICE.  DEVICES CAN BE DAMAGED OR" +9928  PRINT "DE REPARACION INDICA UN DISPOSITIVO DESACTIVADO. LOS DISPOSITIVO" 
-9929  PRINT "REPAIRED BY A SPACE STORM OR TRUCE, RESPECTIVELY." +9929  PRINT "PUEDEN AVERIARSE O REPARARSE POR UNA TORMENTA ESPACIAL O TREGUA" 
-9930  PRINT "ALSO, DAMAGED DEVICES ARE REPAIRED 2 UNITS EVERY STARDATE."+9930  PRINT "TAMBIEN LOS DIPOSITIVOS DAÑADOS SE REPARARN EN 2 UNIDADES CADA" 
 +9931  PRINT "FECHA ESTELAR"
 9935  GOSUB 9980 9935  GOSUB 9980
-9940  PRINT "COMMANDS:"+9940  PRINT "COMANDOS:"
 9941  PRINT 9941  PRINT
 9942  H6=1 9942  H6=1
Línea 1169: Línea 1172:
 9946  H6=H6+1 9946  H6=H6+1
 9952  GOSUB 9980 9952  GOSUB 9980
-9953  PRINT "P.S.--SAVE THIS COPY OF INSTRUCTIONS, SO THAT NEXT" +9953  PRINT "P.D.--GUARDE ESTA COPIA DE LAS INSTRUCCIONES, PARA QUE" 
-9954  PRINT "TIME YOU WILL NOT NEED ADDITIONAL INSTRUCIONS AND" +9954  PRINT "LA PROXIMA NO NECESITE INSTRUCCIONES ADICIONALES Y PUEDA" 
-9955  PRINT "CAN PROCEED IMMEDIATELY TO PLAY."+9955  PRINT "PROCEDER INMEDIATAMENTE A JUGAR."
 9956  PRINT 9956  PRINT
 9957  PRINT 9957  PRINT
 9960  GOSUB 9980 9960  GOSUB 9980
-9961  PRINT "WHEN YOU ARE READY TO CONTINUE, TYPE 9:";+9961  PRINT "CUANDO ESTE LISTO PARA CONTINUAR, TIPEE 9:";
 9962  INPUT X 9962  INPUT X
 9963  GOSUB 9980 9963  GOSUB 9980
Línea 1186: Línea 1189:
 9992  PRINT 9992  PRINT
 9993  PRINT 9993  PRINT
-9994  PRINT "  DO YOU WISH TO PLAY AGAIN:";+9994  PRINT "  DESEA JUGAR NUEVAMENTE:";
 9995  INPUT A$ 9995  INPUT A$
-9996  IF A$ ="YES" THEN 5+9996  IF A$ ="SI" THEN 5
 9997  PRINT 9997  PRINT
 9998  PRINT "  ** AVE ATQUE VALE **" 9998  PRINT "  ** AVE ATQUE VALE **"
 9999  END 9999  END
 </code> </code>

Este sitio web utiliza cookies para guardar datos esenciales de su actividad, como su autenticación. Al entrar acepta el uso de cookies.

Más información