Herramientas de usuario

Diferencias

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

Enlace a la vista de comparación

Ambos lados, revisión anteriorRevisión previa
Próxima revisión		Revisión previa
superstartrek.bas [2024/07/31 19:36] – peronsuperstartrek.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>
 10 REM SUPER STARTREK - MAY 16,1978 - REQUIRES 24K MEMORY 10 REM SUPER STARTREK - MAY 16,1978 - REQUIRES 24K MEMORY
 30 REM 30 REM
Línea 56: Línea 56:
 1160 B9=1:G(Q1,Q2)=G(Q1,Q2)+10:Q1=FNR(1):Q2=FNR(1) 1160 B9=1:G(Q1,Q2)=G(Q1,Q2)+10:Q1=FNR(1):Q2=FNR(1)
 1200 K7=K9:IFB9<>1THENX$="S":X0$=" ARE " 1200 K7=K9:IFB9<>1THENX$="S":X0$=" ARE "
-1230 PRINT"YOUR ORDERS ARE AS FOLLOWS:"+1230 PRINT"SOS ORDENES SON LAS SIGUIENTES:"
 1240 PRINT"     DESTRUYA LAS";K9;"NAVES KLINGON QUE INVADIERON" 1240 PRINT"     DESTRUYA LAS";K9;"NAVES KLINGON QUE INVADIERON"
 1252 PRINT"   LA GALAXIA ANTES QUE ATAQUEN EL CUARTEL DE LA FEDERACION" 1252 PRINT"   LA GALAXIA ANTES QUE ATAQUEN EL CUARTEL DE LA FEDERACION"
Línea 72: Línea 72:
 1500 PRINT:K3=INT(G(Q1,Q2)*.01):B3=INT(G(Q1,Q2)*.1)-10*K3 1500 PRINT:K3=INT(G(Q1,Q2)*.01):B3=INT(G(Q1,Q2)*.1)-10*K3
 1540 S3=G(Q1,Q2)-100*K3-10*B3:IFK3=0THEN1590 1540 S3=G(Q1,Q2)-100*K3-10*B3:IFK3=0THEN1590
-1560 PRINT"AREA DE BOMBATE   ALERTA ROJA":IFS>200THEN1590+1560 PRINT"PUESTOS DE COMBATE   ALERTA ROJA":IFS>200THEN1590
 1580 PRINT" ESCUDOS PELIGROSAMENTE BAJOS" 1580 PRINT" ESCUDOS PELIGROSAMENTE BAJOS"
 1590 FORI=1TO3:K(I,1)=0:K(I,2)=0:NEXTI 1590 FORI=1TO3:K(I,1)=0:K(I,2)=0:NEXTI
Línea 93: Línea 93:
 2080 FORI=1TO9:IFLEFT$(A$,3)<>MID$(A1$,3*I-2,3)THEN2160 2080 FORI=1TO9:IFLEFT$(A$,3)<>MID$(A1$,3*I-2,3)THEN2160
 2140 ONIGOTO2300,1980,4000,4260,4700,5530,5690,7290,6270 2140 ONIGOTO2300,1980,4000,4260,4700,5530,5690,7290,6270
-2160 NEXTI:PRINT"ENTER ONE OF THE FOLLOWING:"+2160 NEXTI:PRINT"INGRESE UNO DE LOS SIGUIENTES:"
 2180 PRINT"  NAV  (PARA PONER CURSO)" 2180 PRINT"  NAV  (PARA PONER CURSO)"
 2190 PRINT"  SRS  (PARA SENSOR DE CORTO ALCANCE)" 2190 PRINT"  SRS  (PARA SENSOR DE CORTO ALCANCE)"
Línea 104: Línea 104:
 2260 PRINT"  XXX  (PARA RENUNCIAR AL MANDO)":PRINT:GOTO 1990 2260 PRINT"  XXX  (PARA RENUNCIAR AL MANDO)":PRINT:GOTO 1990
 2290 REM COURSE CONTROL BEGINS HERE 2290 REM COURSE CONTROL BEGINS HERE
-2300 INPUT"COURSE (0-9)";C1:IFC1=9THENC1=1+2300 INPUT"CURSO (0-9)";C1:IFC1=9THENC1=1
 2310 IFC1>=1ANDC1<9THEN2350 2310 IFC1>=1ANDC1<9THEN2350
 2330 PRINT" TTE. SULU REPORTA, 'CURSO INCORRECTO, CAPITAN!'":GOTO1990 2330 PRINT" TTE. SULU REPORTA, 'CURSO INCORRECTO, CAPITAN!'":GOTO1990
Línea 111: Línea 111:
 2380 IFW1>0ANDW1<=8THEN2490 2380 IFW1>0ANDW1<=8THEN2490
 2390 IFW1=0THEN1990 2390 IFW1=0THEN1990
-2420 PRINT"  ING. JEFE SCOTT REPORTA 'LOS MOTORES NO DARAN";+2420 PRINT"  ING.JEFE SCOTT REPORTA 'LOS MOTORES NO DARAN";
 2430 PRINT" WARP ";W1;"!'":GOTO1990 2430 PRINT" WARP ";W1;"!'":GOTO1990
 2470 PRINT"MOTOR WARP ROTO.  VELOC. MAX = WARP 0.2":GOTO1990 2470 PRINT"MOTOR WARP ROTO.  VELOC. MAX = WARP 0.2":GOTO1990
Línea 118: Línea 118:
 2510 PRINT"                       PARA MANIOBRAR A WARP";W1;"!'" 2510 PRINT"                       PARA MANIOBRAR A WARP";W1;"!'"
 2530 IFS<N-EORD(7)<0THEN1990 2530 IFS<N-EORD(7)<0THEN1990
-2550 PRINT"DEFLECTOR CONTROL ROOM RECONOCE";S;"UNIDADES DE ENERGIA"+2550 PRINT"SALA DE ESCUDO  RECONOCE";S;"UNIDADES DE ENERGIA"
 2560 PRINT"                       ACTUALMENTE ENTREGADAS A ESCUDOS." 2560 PRINT"                       ACTUALMENTE ENTREGADAS A ESCUDOS."
 2570 GOTO1990 2570 GOTO1990
Línea 174: Línea 174:
 3980 RETURN 3980 RETURN
 3990 REM LONG RANGE SENSOR SCAN CODE 3990 REM LONG RANGE SENSOR SCAN CODE
-4000 IFD(3)<0THENPRINT"LONG RANGE SENSORS ARE INOPERABLE":GOTO1990+4000 IFD(3)<0THENPRINT"SENSORES DE LARGO ALCANCE INOPERATIVOS":GOTO1990
 4030 PRINT"SENSOR DE LARGO ALCANCE PARA CUADRANTE";Q1;",";Q2 4030 PRINT"SENSOR DE LARGO ALCANCE PARA CUADRANTE";Q1;",";Q2
 4040 O1$="-------------------":PRINTO1$ 4040 O1$="-------------------":PRINTO1$

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