Diferencias

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

--- superstartrek.bas [2022/03/10 16:32] – peron
+++ superstartrek.bas [2026/04/21 16:08] (actual) – editor externo 127.0.0.1
@@ Línea 1: / Línea 1: @@
-<code freebasic>
+<code freebasic sstrek.bas>
 REM SUPER STARTREK - MAY 16,1978 - REQUIRES 24K MEMORY
 REM
@@ Línea 56: / Línea 56: @@
 B9=1:G(Q1,Q2)=G(Q1,Q2)+10:Q1=FNR(1):Q2=FNR(1)
 K7=K9:IFB9<>1THENX$="S":X0$=" ARE "
-PRINT"YOUR ORDERS ARE AS FOLLOWS:"
+PRINT"SOS ORDENES SON LAS SIGUIENTES:"
-PRINT"     DESTROY THE";K9;"KLINGON WARSHIPS WHICH HAVE INVADED"
+PRINT"     DESTRUYA LAS";K9;"NAVES KLINGON QUE INVADIERON"
-PRINT"   THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS"
+PRINT"   LA GALAXIA ANTES QUE ATAQUEN EL CUARTEL DE LA FEDERACION"
-PRINT"   ON STARDATE";T0+T9;"  THIS GIVES YOU";T9;"DAYS.  THERE";X0$
+PRINT"   EN FECHA ESTELAR";T0+T9;"  TIENE";T9;"DIAS.  TIENE";X0$
-PRINT"  ";B9;"STARBASE";X$;" IN THE GALAXY FOR RESUPPLYING YOUR SHIP"
+PRINT"  ";B9;"STARBASE";X$;" EN LA GALAXIA PARA REABASTECERSE"
-PRINT:REM PRINT"HIT ANY KEY EXCEPT RETURN WHEN READY TO ACCEPT COMMAND"
+PRINT:REM PRINT"PRESIONE CUALQUIER TECLA EXCEPTO RETURN PARA ACEPTAR ORDEN"
 I=RND(1):REM IF INP(1)=13 THEN 1300
 REM HERE ANY TIME NEW QUADRANT ENTERED
@@ Línea 67: / Línea 67: @@
 IFQ1<1ORQ1>8ORQ2<1ORQ2>8THEN1600
 GOSUB 9030:PRINT:IF T0<>T THEN 1490
-PRINT"YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED"
+PRINT"SU MISION COMIENZA CON SU NAVE LOCALIZADA"
-PRINT"IN THE GALACTIC QUADRANT, '";G2$;"'.":GOTO 1500
+PRINT"EL EL CUADRANTE, '";G2$;"'.":GOTO 1500
-PRINT"NOW ENTERING ";G2$;" QUADRANT . . ."
+PRINT"AHORA ESTA ENTRANDO ";G2$;" CUADRANTE . . ."
 PRINT:K3=INT(G(Q1,Q2)*.01):B3=INT(G(Q1,Q2)*.1)-10*K3
 S3=G(Q1,Q2)-100*K3-10*B3:IFK3=0THEN1590
-PRINT"COMBAT AREA      CONDITION RED":IFS>200THEN1590
+PRINT"PUESTOS DE COMBATE   ALERTA ROJA":IFS>200THEN1590
-PRINT"   SHIELDS DANGEROUSLY LOW"
+PRINT" ESCUDOS PELIGROSAMENTE BAJOS"
 FORI=1TO3:K(I,1)=0:K(I,2)=0:NEXTI
 FORI=1TO3:K(I,3)=0:NEXTI:Q$=Z$+Z$+Z$+Z$+Z$+Z$+Z$+LEFT$(Z$,17)
@@ Línea 86: / Línea 86: @@
 GOSUB6430
 IFS+E>10THENIFE>10ORD(7)=0THEN2060
-PRINT:PRINT"** FATAL ERROR **   YOU'VE JUST STRANDED YOUR SHIP IN "
+PRINT:PRINT"** ERROR FATAL **   ESTA VARADO CON SU NAVE EN EL "
-PRINT"SPACE":PRINT"YOU HAVE INSUFFICIENT MANEUVERING ENERGY,";
+PRINT"ESPACIO":PRINT"TIENE INSUFICIENTE ENERGIA DE MANIOBRA,";
-PRINT" AND SHIELD CONTROL":PRINT"IS PRESENTLY INCAPABLE OF CROSS";
+PRINT" Y CONTROL DE ESCUDOS":PRINT"ES ACTUALMENTE INCAPAZ DE CRUZAR";
-PRINT"-CIRCUITING TO ENGINE ROOM!!":GOTO6220
+PRINT"-CIRCUITO A SALA DE MAQUINAS!!":GOTO6220
 INPUT"COMMAND";A$
 FORI=1TO9:IFLEFT$(A$,3)<>MID$(A1$,3*I-2,3)THEN2160
 ONIGOTO2300,1980,4000,4260,4700,5530,5690,7290,6270
-NEXTI:PRINT"ENTER ONE OF THE FOLLOWING:"
+NEXTI:PRINT"INGRESE UNO DE LOS SIGUIENTES:"
-PRINT"  NAV  (TO SET COURSE)"
+PRINT"  NAV  (PARA PONER CURSO)"
-PRINT"  SRS  (FOR SHORT RANGE SENSOR SCAN)"
+PRINT"  SRS  (PARA SENSOR DE CORTO ALCANCE)"
-PRINT"  LRS  (FOR LONG RANGE SENSOR SCAN)"
+PRINT"  LRS  (PARA SENSOR DE LARGO ALCANCE)"
-PRINT"  PHA  (TO FIRE PHASERS)"
+PRINT"  PHA  (PARA DISPARAR PHASERS)"
-PRINT"  TOR  (TO FIRE PHOTON TORPEDOES)"
+PRINT"  TOR  (PARA DISPARAR TORPEDOS DE FOTONES)"
-PRINT"  SHE  (TO RAISE OR LOWER SHIELDS)"
+PRINT"  SHE  (PARA LEVANTAR O BAJAR ESCUDOS)"
-PRINT"  DAM  (FOR DAMAGE CONTROL REPORTS)"
+PRINT"  DAM  (PARA REPORTES DE CONTROL DE AVERIAS)"
-PRINT"  COM  (TO CALL ON LIBRARY-COMPUTER)"
+PRINT"  COM  (PARA LLAMAR A LA COMPUTADORA)"
-PRINT"  XXX  (TO RESIGN YOUR COMMAND)":PRINT:GOTO 1990
+PRINT"  XXX  (PARA RENUNCIAR AL MANDO)":PRINT:GOTO 1990
 REM COURSE CONTROL BEGINS HERE
-INPUT"COURSE (0-9)";C1:IFC1=9THENC1=1
+INPUT"CURSO (0-9)";C1:IFC1=9THENC1=1
 IFC1>=1ANDC1<9THEN2350
-PRINT"   LT. SULU REPORTS, 'INCORRECT COURSE DATA, SIR!'":GOTO1990
+PRINT" TTE. SULU REPORTA, 'CURSO INCORRECTO, CAPITAN!'":GOTO1990
 X$="8":IFD(1)<0THENX$="0.2"
-PRINT"WARP FACTOR (0-";X$;")";:INPUTW1:IFD(1)<0ANDW1>.2THEN2470
+PRINT"FACTOR WARP (0-";X$;")";:INPUTW1:IFD(1)<0ANDW1>.2THEN2470
 IFW1>0ANDW1<=8THEN2490
 IFW1=0THEN1990
-PRINT"   CHIEF ENGINEER SCOTT REPORTS 'THE ENGINES WON'T TAKE";
+PRINT"  ING.JEFE SCOTT REPORTA 'LOS MOTORES NO DARAN";
 PRINT" WARP ";W1;"!'":GOTO1990
-PRINT"WARP ENGINES ARE DAMAGED.  MAXIUM SPEED = WARP 0.2":GOTO1990
+PRINT"MOTOR WARP ROTO.  VELOC. MAX = WARP 0.2":GOTO1990
 N=INT(W1*8+.5):IFE-N>=0THEN2590
-PRINT"ENGINEERING REPORTS   'INSUFFICIENT ENERGY AVAILABLE"
+PRINT"REPORTES INGENIERIA   'ENERGIA INSUFICIENTE DISPONIBLE"
-PRINT"                       FOR MANEUVERING AT WARP";W1;"!'"
+PRINT"                       PARA MANIOBRAR A WARP";W1;"!'"
 IFS<N-EORD(7)<0THEN1990
-PRINT"DEFLECTOR CONTROL ROOM ACKNOWLEDGES";S;"UNITS OF ENERGY"
+PRINT"SALA DE ESCUDO  RECONOCE";S;"UNIDADES DE ENERGIA"
-PRINT"                         PRESENTLY DEPLOYED TO SHIELDS."
+PRINT"                       ACTUALMENTE ENTREGADAS A ESCUDOS."
 GOTO1990
 REM KLINGONS MOVE/FIRE ON MOVING STARSHIP . . .
@@ Línea 129: / Línea 129: @@
 D(I)=D(I)+D6:IFD(I)>-.1ANDD(I)<0THEND(I)=-.1:GOTO2880
 IFD(I)<0THEN2880
-IFD1<>1THEND1=1:PRINT"DAMAGE CONTROL REPORT:  ";
+IFD1<>1THEND1=1:PRINT"REPORTE CONTROL DE AVERIAS:  ";
-PRINTTAB(8);:R1=I:GOSUB8790:PRINTG2$;" REPAIR COMPLETED."
+PRINTTAB(8);:R1=I:GOSUB8790:PRINTG2$;" REPARACION COMPLETA."
 NEXTI:IFRND(1)>.2THEN3070
 R1=FNR(1):IFRND(1)>=.6THEN3000
-D(R1)=D(R1)-(RND(1)*5+1):PRINT"DAMAGE CONTROL REPORT:  ";
+D(R1)=D(R1)-(RND(1)*5+1):PRINT"REPORTE DE CONTROL DE AVERIAS:  ";
-GOSUB8790:PRINTG2$;" DAMAGED":PRINT:GOTO3070
+GOSUB8790:PRINTG2$;" AVERIADO":PRINT:GOTO3070
-D(R1)=D(R1)+RND(1)*3+1:PRINT"DAMAGE CONTROL REPORT:  ";
+D(R1)=D(R1)+RND(1)*3+1:PRINT"REPORTE DE CONTROL DE AVERIAS:  ";
-GOSUB8790:PRINTG2$;" STATE OF REPAIR IMPROVED":PRINT
+GOSUB8790:PRINTG2$;" ESTADO DE REPARACION MEJORADO":PRINT
 REM BEGIN MOVING STARSHIP
 A$="   ":Z1=INT(S1):Z2=INT(S2):GOSUB8670
@@ Línea 143: / Línea 143: @@
 FORI=1TON:S1=S1+X1:S2=S2+X2:IFS1<1ORS1>=9ORS2<1ORS2>=9THEN3500
 S8=INT(S1)*24+INT(S2)*3-26:IFMID$(Q$,S8,2)="  "THEN3360
-S1=INT(S1-X1):S2=INT(S2-X2):PRINT"WARP ENGINES SHUT DOWN AT ";
+S1=INT(S1-X1):S2=INT(S2-X2):PRINT"MOTORES WARP APAGADOS EN ";
-PRINT"SECTOR";S1;",";S2;"DUE TO BAD NAVAGATION":GOTO3370
+PRINT"SECTOR";S1;",";S2;"DEBIDO A MALA NAVEGACION":GOTO3370
 NEXTI:S1=INT(S1):S2=INT(S2)
 A$="<*>":Z1=INT(S1):Z2=INT(S2):GOSUB8670:GOSUB3910:T8=1
@@ Línea 160: / Línea 160: @@
 IFQ2>8THENX5=1:Q2=8:S2=8
 IFX5=0THEN3860
-PRINT"LT. UHURA REPORTS MESSAGE FROM STARFLEET COMMAND:"
+PRINT"LT. UHURA REPORTA MENSAJE DE MANDO DE FLOTA ESTELAR:"
-PRINT"  'PERMISSION TO ATTEMPT CROSSING OF GALACTIC PERIMETER"
+PRINT" 'PERMISO PARA INTENTAR CRUCE DE PERIMETRO GALACTICO"
-PRINT"  IS HEREBY *DENIED*.  SHUT DOWN YOUR ENGINES.'"
+PRINT"  HA SIDO *DENEGADO*.  APAGUE SUS MOTORES.'"
-PRINT"CHIEF ENGINEER SCOTT REPORTS  'WARP ENGINES SHUT DOWN"
+PRINT"ING. JEFE SCOTT REPORTA  'MOTORES WARP APAGADOS"
-PRINT"  AT SECTOR";S1;",";S2;"OF QUADRANT";Q1;",";Q2;".'"
+PRINT"  EN SECTOR";S1;",";S2;"DE CUADRANTE";Q1;",";Q2;".'"
 IFT>T0+T9THEN6220
 IF8*Q1+Q2=8*Q4+Q5THEN3370
@@ Línea 170: / Línea 170: @@
 REM MANEUVER ENERGY S/R **
 E=E-N-10:IFE>=0THENRETURN
-PRINT"SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANEUVER."
+PRINT"CONTROL DE ESCUDOS PROVEE ENERGIA PARA COMPLETAR LA MANIOBRA."
 S=S+E:E=0:IFS<=0THENS=0
 RETURN
 REM LONG RANGE SENSOR SCAN CODE
-IFD(3)<0THENPRINT"LONG RANGE SENSORS ARE INOPERABLE":GOTO1990
+IFD(3)<0THENPRINT"SENSORES DE LARGO ALCANCE INOPERATIVOS":GOTO1990
-PRINT"LONG RANGE SCAN FOR QUADRANT";Q1;",";Q2
+PRINT"SENSOR DE LARGO ALCANCE PARA CUADRANTE";Q1;",";Q2
 O1$="-------------------":PRINTO1$
 FORI=Q1-1TOQ1+1:N(1)=-1:N(2)=-2:N(3)=-3:FORJ=Q2-1TOQ2+1
@@ Línea 183: / Línea 183: @@
 NEXTL:PRINT":":PRINTO1$:NEXTI:GOTO1990
 REM PHASER CONTROL CODE BEGINS HERE
-IFD(4)<0THENPRINT"PHASERS INOPERATIVE":GOTO1990
+IFD(4)<0THENPRINT"PHASERS INOPERATIVO":GOTO1990
 IFK3>0THEN4330
-PRINT"SCIENCE OFFICER SPOCK REPORTS  'SENSORS SHOW NO ENEMY SHIPS"
+PRINT"OFICIAL DE CIENCIAS SPOCK REPORTA  'SENSORES NO MUESTRAN NAVES ENEMIGAS"
-PRINT"                                IN THIS QUADRANT'":GOTO1990
+PRINT"                                EN ESTE CUADRANTE'":GOTO1990
-IFD(8)<0THENPRINT"COMPUTER FAILURE HAMPERS ACCURACY"
+IFD(8)<0THENPRINT"FALLA DE COMPUTADORA LIMITA LA PRECISION"
-PRINT"PHASERS LOCKED ON TARGET;  ";
+PRINT"PHASERS FIJADOS EN EL OBJETIVO;  ";
-PRINT"ENERGY AVAILABLE =";E;"UNITS"
+PRINT"ENERGIA DISPONIBLE =";E;"UNIDADES"
-INPUT"NUMBER OF UNITS TO FIRE";X:IFX<=0THEN1990
+INPUT"NRO. DE UNIDADES PARA DISPARAR";X:IFX<=0THEN1990
 IFE-X<0THEN4360
 E=E-X:IFD(7)<0THENX=X*RND(1)
 H1=INT(X/K3):FORI=1TO3:IFK(I,3)<=0THEN4670
 H=INT((H1/FND(0))*(RND(1)+2)):IFH>.15*K(I,3)THEN4530
-PRINT"SENSORS SHOW NO DAMAGE TO ENEMY AT ";K(I,1);",";K(I,2):GOTO4670
+PRINT"LOS SENSORES NO MUESTRAN AVERIAS AL ENEMIGO EN ";K(I,1);",";K(I,2):GOTO4670
-K(I,3)=K(I,3)-H:PRINTH;"UNIT HIT ON KLINGON AT SECTOR";K(I,1);",";
+K(I,3)=K(I,3)-H:PRINTH;"UNIDADES ALCANZARON AL KLINGON EN EL SECTOR";K(I,1);",";
-PRINTK(I,2):IFK(I,3)<=0THENPRINT"*** KLINGON DESTROYED ***":GOTO4580
+PRINTK(I,2):IFK(I,3)<=0THENPRINT"*** KLINGON DESTRUIDO ***":GOTO4580
-PRINT"   (SENSORS SHOW";K(I,3);"UNITS REMAINING)":GOTO4670
+PRINT"   (LOS SENSORS MUESTRAN";K(I,3);"UNIDADES REMANENTES)":GOTO4670
 K3=K3-1:K9=K9-1:Z1=K(I,1):Z2=K(I,2):A$="   ":GOSUB8670
 K(I,3)=0:G(Q1,Q2)=G(Q1,Q2)-100:Z(Q1,Q2)=G(Q1,Q2):IFK9<=0THEN6370
@@ Línea 205: / Línea 205: @@
 IFP<=0THENPRINT"ALL PHOTON TORPEDOES EXPENDED":GOTO 1990
 IFD(5)<0THENPRINT"PHOTON TUBES ARE NOT OPERATIONAL":GOTO1990
-INPUT"PHOTON TORPEDO COURSE (1-9)";C1:IFC1=9THENC1=1
+INPUT"TORPEDO DE FOTON CURSO (1-9)";C1:IFC1=9THENC1=1
 IFC1>=1ANDC1<9THEN4850
-PRINT"ENSIGN CHEKOV REPORTS,  'INCORRECT COURSE DATA, SIR!'"
+PRINT"TTE. CHEKOV REPORTA,  'DATOS DE CURSO INCORRECTO, SR.!'"
 GOTO1990
 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)):E=E-2:P=P-1
 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)):X=S1:Y=S2
-PRINT"TORPEDO TRACK:"
+PRINT"RASTREO DE TORPEDO:"
 X=X+X1:Y=Y+X2:X3=INT(X+.5):Y3=INT(Y+.5)
 IFX3<1ORX3>8ORY3<1ORY3>8THEN5490
@@ Línea 217: / Línea 217: @@
 IFZ3<>0THEN4920
 A$="+K+":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN5210
-PRINT"*** KLINGON DESTROYED ***":K3=K3-1:K9=K9-1:IFK9<=0THEN6370
+PRINT"*** KLINGON DESTRUIDO ***":K3=K3-1:K9=K9-1:IFK9<=0THEN6370
 FORI=1TO3:IFX3=K(I,1)ANDY3=K(I,2)THEN5190
 NEXTI:I=3
 K(I,3)=0:GOTO5430
 A$=" * ":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN5280
-PRINT"STAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":GOSUB6000:GOTO1990
+PRINT"LA ESTRELLA EN";X3;",";Y3;"ABSORBIO ENERGIA DE TORPEDO.":GOSUB6000:GOTO1990
 A$=">!<":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN4760
-PRINT"*** STARBASE DESTROYED ***":B3=B3-1:B9=B9-1
+PRINT"*** BASE ESTELAR DESTRUIDA ***":B3=B3-1:B9=B9-1
 IFB9>0ORK9>T-T0-T9THEN5400
-PRINT"THAT DOES IT, CAPTAIN!!  YOU ARE HEREBY RELIEVED OF COMMAND"
+PRINT"ES SUFICIENTE, CAPITAN!!  HA SIDO RELEVADO DEL MANDO"
-PRINT"AND SENTENCED TO 99 STARDATES AT HARD LABOR ON CYGNUS 12!!"
+PRINT"Y SENTENCIADO A 99 STARDATES DE TRABAJO FORZADO EN CYGNUS 12!!"
 GOTO 6270
-PRINT"STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER"
+PRINT"EL MANDO DE LA FLOTA ESTELAR REVISANDO SU REGISTRO CONSIDERA"
-PRINT"COURT MARTIAL!":D0=0
+PRINT"UNA CORTE MARCIAL!":D0=0
 Z1=X:Z2=Y:A$="   ":GOSUB8670
 G(Q1,Q2)=K3*100+B3*10+S3:Z(Q1,Q2)=G(Q1,Q2):GOSUB6000:GOTO1990
-PRINT"TORPEDO MISSED":GOSUB6000:GOTO1990
+PRINT"TORPEDO ERRADO":GOSUB6000:GOTO1990
 REM SHIELD CONTROL
-IFD(7)<0THENPRINT"SHIELD CONTROL INOPERABLE":GOTO1990
+IFD(7)<0THENPRINT"CONTROL DE ESCUDO INOPERABLE":GOTO1990
-PRINT"ENERGY AVAILABLE =";E+S;:INPUT"NUMBER OF UNITS TO SHIELDS";X
+PRINT"ENERGIA DISPONIBLE =";E+S;:INPUT"NRO. DE UNIDADES DE ESCUDOS";X
-IFX<0ORS=XTHENPRINT"<SHIELDS UNCHANGED>":GOTO1990
+IFX<0ORS=XTHENPRINT"<ESCUDOS SIN CAMBIOS>":GOTO1990
 IFX<=E+STHEN5630
-PRINT"SHIELD CONTROL REPORTS  'THIS IS NOT THE FEDERATION TREASURY.'"
+PRINT"CONTROL DE ESCUDOS REPORTA  'ESTE NO ES EL RESORO DE LA FEDERACION.'"
-PRINT"<SHIELDS UNCHANGED>":GOTO1990
+PRINT"<ESCUDOS SIN CAMBIOS>":GOTO1990
 E=E+S-X:S=X:PRINT"DEFLECTOR CONTROL ROOM REPORT:"
-PRINT"  'SHIELDS NOW AT";INT(S);"UNITS PER YOUR COMMAND.'":GOTO1990
+PRINT"  'LOS ESCUDOS AHORA TIENEN";INT(S);"UNIDADES A SU MANDO.'":GOTO1990
 REM DAMAGE CONTROL
 IFD(6)>=0THEN5910
-PRINT"DAMAGE CONTROL REPORT NOT AVAILABLE":IFD0=0THEN1990
+PRINT"REPORTE DE CONTROL DE AVERIAS NO DISPONIBLE":IFD0=0THEN1990
 D3=0:FORI=1TO8:IFD(I)<0THEND3=D3+.1
 NEXTI:IFD3=0THEN1990
 PRINT:D3=D3+D4:IFD3>=1THEND3=.9
-PRINT"TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP;"
+PRINT"TECNICOS LISTOS PARA EFECTUAR REPARACIONES A SU NAVE;"
-PRINT"ESTIMATED TIME TO REPAIR:";.01*INT(100*D3);"STARDATES"
+PRINT"TIEMPO ESTIMADO DE REPARACION:";.01*INT(100*D3);"STARDATES"
-INPUT "WILL YOU AUTHORIZE THE REPAIR ORDER (Y/N)";A$
+INPUT "AUTORIZA LA ORDEN DE REPARACION (S/N)";A$
-IFA$<>"Y"THEN 1990
+IFA$<>"S"THEN 1990
 FORI=1TO8:IFD(I)<0THEND(I)=0
 NEXTI:T=T+D3+.1
-PRINT:PRINT"DEVICE             STATE OF REPAIR":FORR1=1TO8
+PRINT:PRINT"DISPOSITIVO           ESTADO DE REPARACION":FORR1=1TO8
 GOSUB8790:PRINTG2$;LEFT$(Z$,25-LEN(G2$));INT(D(R1)*100)*.01
 NEXTR1:PRINT:IFD0<>0THEN5720
@@ Línea 261: / Línea 261: @@
 REM KLINGONS SHOOTING
 IFK3<=0THENRETURN
-IFD0<>0THENPRINT"STARBASE SHIELDS PROTECT THE ENTERPRISE":RETURN
+IFD0<>0THENPRINT"LOS ESCUDOS DE BASE ESTELAR PROTEGEN AL ENTERPRISE":RETURN
 FORI=1TO3:IFK(I,3)<=0THEN6200
 H=INT((K(I,3)/FND(1))*(2+RND(1))):S=S-H:K(I,3)=K(I,3)/(3+RND(0))
 PRINTH;"UNIT HIT ON ENTERPRISE FROM SECTOR";K(I,1);",";K(I,2)
 IFS<=0THEN6240
-PRINT"      <SHIELDS DOWN TO";S;"UNITS>":IFH<20THEN6200
+PRINT"      <LOS ESCUDOS BAJARON A";S;"UNIDADES>":IFH<20THEN6200
 IFRND(1)>.6ORH/S<=.02THEN6200
 R1=FNR(1):D(R1)=D(R1)-H/S-.5*RND(1):GOSUB8790
-PRINT"DAMAGE CONTROL REPORTS ";G2$;" DAMAGED BY THE HIT'"
+PRINT"CONTROL DE AVERIAS REPORTA ";G2$;" AVERIADO POR IMPACTO'"
 NEXTI:RETURN
 REM END OF GAME
 PRINT"IT IS STARDATE";T:GOTO 6270
-PRINT:PRINT"THE ENTERPRISE HAS BEEN DESTROYED.  THEN FEDERATION ";
+PRINT:PRINT"EL ENTERPRISE FUE DESTRUIDO.  LA FEDERACION ";
-PRINT"WILL BE CONQUERED":GOTO 6220
+PRINT"SERA CONQUISTADA":GOTO 6220
-PRINT"THERE WERE";K9;"KLINGON BATTLE CRUISERS LEFT AT"
+PRINT"HABIA";K9;"CRUCEROS KLINGON RESTANTES AL"
-PRINT"THE END OF YOUR MISSION."
+PRINT"FINAL DE SU MISION."
 PRINT:PRINT:IFB9=0THEN6360
-PRINT"THE FEDERATION IS IN NEED OF A NEW STARSHIP COMMANDER"
+PRINT"LA FEDERACION NECESITA UN NUEVO COMANDANTE DE NAVE"
-PRINT"FOR A SIMILAR MISSION -- IF THERE IS A VOLUNTEER,"
+PRINT"PARA UNA MISION SIMILAR -- SI HAY VOLUNTARIOS,"
-INPUT"LET HIM STEP FORWARD AND ENTER 'AYE'";A$:IFA$="AYE"THEN10
+INPUT"DEN UN PASO AL FRENTE Y DIGAN 'YO'";A$:IFA$="YO"THEN10
 END
-PRINT"CONGRULATION, CAPTAIN!  THEN LAST KLINGON BATTLE CRUISER"
+PRINT"FELICITACIONES, CAPITAN!  EL ULTIMO CRUCERO KLINGON"
-PRINT"MENACING THE FDERATION HAS BEEN DESTROYED.":PRINT
+PRINT"QUE AMENAZABA LA FEDERACION FUE DESTRUIDO.":PRINT
-PRINT"YOUR EFFICIENCY RATING IS";1000*(K7/(T-T0))^2:GOTO6290
+PRINT"SU PUNTAJE DE EFICIENCIA ES";1000*(K7/(T-T0))^2:GOTO6290
 REM SHORT RANGE SENSOR SCAN & STARTUP SUBROUTINE
 FORI=S1-1TOS1+1:FORJ=S2-1TOS2+1
@@ Línea 290: / Línea 290: @@
 A$=">!<":Z1=I:Z2=J:GOSUB8830:IFZ3=1THEN6580
 NEXTJ:NEXTI:D0=0:GOTO6650
-D0=1:C$="DOCKED":E=E0:P=P0
+D0=1:C$="ATRACADO":E=E0:P=P0
-PRINT"SHIELDS DROPPED FOR DOCKING PURPOSES":S=0:GOTO6720
+PRINT"LOS ESCUDOS CAYERON PARA ATRACAR":S=0:GOTO6720
-IFK3>0THENC$="*RED*":GOTO6720
+IFK3>0THENC$="*ROJA*":GOTO6720
-C$="GREEN":IFE<E0*.1THENC$="YELLOW"
+C$="VERDE":IFE<E0*.1THENC$="AMARILLA"
 IFD(2)>=0THEN6770
-PRINT:PRINT"*** SHORT RANGE SENSORS ARE OUT ***":PRINT:RETURN
+PRINT:PRINT"*** SENSORES DE CORTO ALCANCE DESTRUIDOS ***":PRINT:RETURN
 O1$="---------------------------------":PRINTO1$:FORI=1TO8
 FORJ=(I-1)*24+1TO(I-1)*24+22STEP3:PRINT" ";MID$(Q$,J,3);:NEXTJ
 ONIGOTO6850,6900,6960,7020,7070,7120,7180,7240
 PRINT"        STARDATE          ";INT(T*10)*.1:GOTO7260
-PRINT"        CONDITION          ";C$:GOTO7260
+PRINT"        ALERTA            ";C$:GOTO7260
-PRINT"        QUADRANT          ";Q1;",";Q2:GOTO7260
+PRINT"        CUADRANTE         ";Q1;",";Q2:GOTO7260
 PRINT"        SECTOR            ";S1;",";S2:GOTO7260
-PRINT"        PHOTON TORPEDOES  ";INT(P):GOTO7260
+PRINT"        TORPEDOS DE FOTON ";INT(P):GOTO7260
-PRINT"        TOTAL ENERGY      ";INT(E+S):GOTO7260
+PRINT"        ENERGIA TOTAL     ";INT(E+S):GOTO7260
-PRINT"        SHIELDS           ";INT(S):GOTO7260
+PRINT"        ESCUDOS           ";INT(S):GOTO7260
-PRINT"        KLINGONS REMAINING";INT(K9)
+PRINT"        KLINGONS RESTANTES";INT(K9)
 NEXTI:PRINTO1$:RETURN
 REM LIBRARY COMPUTER CODE
-IFD(8)<0THENPRINT"COMPUTER DISABLED":GOTO1990
+IFD(8)<0THENPRINT"COMPUTADORA DESACTIVADA":GOTO1990
-INPUT"COMPUTER ACTIVE AND AWAITING COMMAND";A:IFA<0THEN1990
+INPUT"COMPUTADORA ACTIVA Y ESPERANDO ORDENES";A:IFA<0THEN1990
 PRINT:H8=1:ONA+1GOTO7540,7900,8070,8500,8150,7400
-PRINT"FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:"
+PRINT"FUNCIONES DISPONIBLES DE LA COMPUTADORA:"
 PRINT"   0 = CUMULATIVE GALACTIC RECORD"
-PRINT"   1 = STATUS REPORT"
+PRINT"   1 = REPORTE DE STATUS"
-PRINT"   2 = PHOTON TORPEDO DATA"
+PRINT"   2 = DATOS DE TORPEDO DE FOTONES"
-PRINT"   3 = STARBASE NAV DATA"
+PRINT"   3 = DATOS NAV BASE ESTELAR"
-PRINT"   4 = DIRECTION/DISTANCE CALCULATOR"
+PRINT"   4 = CALCULADOR DE RUMBO/DIST"
-PRINT"   5 = GALAXY 'REGION NAME' MAP":PRINT:GOTO7320
+PRINT"   5 = MAPA 'REGION NAME' GALACTICO":PRINT:GOTO7320
 REM SETUP TO CHANGE CUM GAL RECORD TO GALAXY MAP
 H8=0:G5=1:PRINT"                        THE GALAXY":GOTO7550
 REM CUM GALACTIC RECORD
-REM INPUT"DO YOU WANT A HARDCOPY? IS THE TTY ON (Y/N)";A$
+REM INPUT"QUIERE UNA IMPRESION? LA TTY ESTA ENCENDIDA (S/N)";A$
-REM IFA$="Y"THENPOKE1229,2:POKE1237,3:NULL1
+REM IFA$="S"THENPOKE1229,2:POKE1237,3:NULL1
 PRINT:PRINT"        ";
-PRINT"COMPUTER RECORD OF GALAXY FOR QUADRANT";Q1;",";Q2
+PRINT"REGISTRO DE COMPUTADORA DEL LA GALAXIA PARA CUADRANTE";Q1;",";Q2
 PRINT
 PRINT"       1     2     3     4     5     6     7     8"
@@ Línea 337: / Línea 337: @@
 PRINT:PRINTO1$:NEXTI:PRINT:GOTO1990
 REM STATUS REPORT
-PRINT "   STATUS REPORT:":X$="":IFK9>1THENX$="S"
+PRINT " REPORTE DE STATUS:":X$="":IFK9>1THENX$="S"
 PRINT"KLINGON";X$;" LEFT: ";K9
-PRINT"MISSION MUST BE COMPLETED IN";.1*INT((T0+T9-T)*10);"STARDATES"
+PRINT"LA MISION DEBE COMPLETARSE EN";.1*INT((T0+T9-T)*10);"STARDATES"
 X$="S":IFB9<2THENX$="":IFB9<1THEN8010
-PRINT"THE FEDERATION IS MAINTAINING";B9;"STARBASE";X$;" IN THE GALAXY"
+PRINT"LA FEDERACION MANTIENE";B9;"BASES ESTELARES";X$;" EN LA GALAXIA"
 GOTO5690
-PRINT"YOUR STUPIDITY HAS LEFT YOU ON YOUR ON IN"
+PRINT"SU ESTUPIDEZ LO HA DEJADO A USTED EN LA"
-PRINT"  THE GALAXY -- YOU HAVE NO STARBASES LEFT!":GOTO5690
+PRINT"  GALAXIA -- SE QUEDO SIN BASES ESTELARES!":GOTO5690
 REM TORPEDO, BASE NAV, D/D CALCULATOR
 IFK3<=0THEN4270
 X$="":IFK3>1THENX$="S"
-PRINT"FROM ENTERPRISE TO KLINGON BATTLE CRUSER";X$
+PRINT"DESDE ENTERPRISE A CRUCERO DE BATALLA KLINGON";X$
 H8=0:FORI=1TO3:IFK(I,3)<=0THEN8480
 W1=K(I,1):X=K(I,2)
 C1=S1:A=S2:GOTO8220
-PRINT"DIRECTION/DISTANCE CALCULATOR:"
+PRINT"CALCULADOR DIRECCION/DISTANCIA:"
-PRINT"YOU ARE AT QUADRANT ";Q1;",";Q2;" SECTOR ";S1;",";S2
+PRINT"ESTA EN EL CUADRANTE ";Q1;",";Q2;" SECTOR ";S1;",";S2
-PRINT"PLEASE ENTER":INPUT"  INITIAL COORDINATES (X,Y)";C1,A
+PRINT"INGRESE":INPUT"  COORDINADAS INICIALES (X,Y)";C1,A
-INPUT"  FINAL COORDINATES (X,Y)";W1,X
+INPUT"  COORDINADAS FINALES (X,Y)";W1,X
 X=X-A:A=C1-W1:IFX<0THEN8350
 IFA<0THEN8410
@@ Línea 362: / Línea 362: @@
 C1=1
 IFABS(A)<=ABS(X)THEN8330
-PRINT"DIRECTION =";C1+(((ABS(A)-ABS(X))+ABS(A))/ABS(A)):GOTO8460
+PRINT"DIRECCION =";C1+(((ABS(A)-ABS(X))+ABS(A))/ABS(A)):GOTO8460
-PRINT"DIRECTION =";C1+(ABS(A)/ABS(X)):GOTO8460
+PRINT"DIRECCION =";C1+(ABS(A)/ABS(X)):GOTO8460
 IFA>0THENC1=3:GOTO8420
 IFX<>0THENC1=5:GOTO8290
@@ Línea 372: / Línea 372: @@
 PRINT"DISTANCE =";SQR(X^2+A^2):IFH8=1THEN1990
 NEXTI:GOTO1990
-IFB3<>0THENPRINT"FROM ENTERPRISE TO STARBASE:":W1=B4:X=B5:GOTO8120
+IFB3<>0THENPRINT"DE ENTERPRISE A BASE ESTELAR:":W1=B4:X=B5:GOTO8120
-PRINT"MR. SPOCK REPORTS,  'SENSORS SHOW NO STARBASES IN THIS";
+PRINT"SR. SPOCK REPORTA,  'LOS SENSORES NO MUESTRAN BASES ESTELARES EN";
-PRINT" QUADRANT.'":GOTO1990
+PRINT" ESTE CUADRANTE.'":GOTO1990
 REM FIND EMPTY PLACE IN QUADRANT (FOR THINGS)
 R1=FNR(1):R2=FNR(1):A$="   ":Z1=R1:Z2=R2:GOSUB8830:IFZ3=0THEN8590
@@ Línea 386: / Línea 386: @@
 REM PRINTS DEVICE NAME
 ONR1GOTO8792,8794,8796,8798,8800,8802,8804,8806
-G2$="WARP ENGINES":RETURN
+G2$="MOTORES WARP":RETURN
-G2$="SHORT RANGE SENSORS":RETURN
+G2$="SENSORES DE CORTO ALCANCE":RETURN
-G2$="LONG RANGE SENSORS":RETURN
+G2$="SENSORES DE LARGO ALCANCE":RETURN
-G2$="PHASER CONTROL":RETURN
+G2$="CONTROL DE PHASER":RETURN
-G2$="PHOTON TUBES":RETURN
+G2$="TUBOS DE FOTONES":RETURN
-G2$="DAMAGE CONTROL":RETURN
+G2$="CONTROL DE AVERIAS":RETURN
-G2$="SHIELD CONTROL":RETURN
+G2$="CONTROL DE ESCUDOS":RETURN
-G2$="LIBRARY-COMPUTER":RETURN
+G2$="COMPUTADORA":RETURN
 REM STRING COMPARISON IN QUADRANT ARRAY
 Z1=INT(Z1+.5):Z2=INT(Z2+.5):S8=(Z2-1)*3+(Z1-1)*24+1:Z3=0
@@ Línea 411: / Línea 411: @@
 G2$="POLLUX":GOTO9210
 ONZ4GOTO9130,9140,9150,9160,9170,9180,9190,9200
-G2$="SIRIUS":GOTO9210
+G2$="SIRIO":GOTO9210
 G2$="DENEB":GOTO9210
 G2$="CAPELLA":GOTO9210
 G2$="BETELGEUSE":GOTO9210
 G2$="ALDEBARAN":GOTO9210
-G2$="REGULUS":GOTO9210
+G2$="REGULO":GOTO9210
-G2$="ARCTURUS":GOTO9210
+G2$="ARTURO":GOTO9210
-G2$="SPICA"
+G2$="ESPICA"
 IFG5<>1THENONZ5GOTO9230,9240,9250,9260,9230,9240,9250,9260
 RETURN

Texto-Plano

Herramientas de usuario

Diferencias