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
historia.bas [2022/01/25 20:27] – creado peronhistoria.bas [2026/04/21 16:06] (actual) – editor externo 127.0.0.1
Línea 1: Línea 1:
-<code basic>+<file freebasic historia.bas>
 10  REM ************************************************************* 10  REM *************************************************************
 20  REM *  HISTORIA                                                 * 20  REM *  HISTORIA                                                 *
Línea 28: Línea 28:
 270 INPUT OPCION% 270 INPUT OPCION%
 280 IF OPCION% = 2 THEN GOTO 600 ELSE GOTO 300 280 IF OPCION% = 2 THEN GOTO 600 ELSE GOTO 300
-</code>+300 REM *****  PANTALLA 1A  ***** 
 +310 CLS 
 +320 PRINT "**********************************************************" 
 +330 PRINT "*                                                        *" 
 +340 PRINT "*                                                        *" 
 +350 PRINT "*                                                        *" 
 +360 PRINT "*       Esta es la pantalla 1A de tu historia            *" 
 +370 PRINT "*                                                        *" 
 +380 PRINT "*                                                        *" 
 +390 PRINT "*                                                        *" 
 +400 PRINT "*                                                        *" 
 +410 PRINT "*                                                        *" 
 +420 PRINT "*                                                        *" 
 +430 PRINT "*                                                        *" 
 +440 PRINT "*       Elije otro:                                      *" 
 +450 PRINT "*                                                        *" 
 +460 PRINT "*         1 - Quiero seguir un destino                   *" 
 +470 PRINT "*         2 - Quiero buscar otro destino                 *" 
 +480 PRINT "*                                                        *" 
 +490 PRINT "*                                                        *" 
 +500 PRINT "*                                                        *" 
 +510 PRINT "*                                                        *" 
 +520 PRINT "**********************************************************" 
 +530 INPUT OPCION% 
 +540 IF OPCION% = 2 THEN GOTO 900 ELSE GOTO 1200 
 +600 REM *****  PANTALLA 1B  ***** 
 +610 CLS 
 +620 PRINT "**********************************************************" 
 +630 PRINT "*                                                        *" 
 +640 PRINT "*                                                        *" 
 +650 PRINT "*                                                        *" 
 +660 PRINT "*        Esta es la pantalla 1B de tu historia           *" 
 +670 PRINT "*                                                        *" 
 +680 PRINT "*                                                        *" 
 +690 PRINT "*                                                        *" 
 +700 PRINT "*                                                        *" 
 +710 PRINT "*                                                        *" 
 +720 PRINT "*                                                        *" 
 +730 PRINT "*                                                        *" 
 +740 PRINT "*       Elije otro mas:                                  *" 
 +750 PRINT "*                                                        *" 
 +760 PRINT "*         1 - Quiero seguir un destino                   *" 
 +770 PRINT "*         2 - Quiero buscar otro destino                 *" 
 +780 PRINT "*                                                        *" 
 +790 PRINT "*                                                        *" 
 +800 PRINT "*                                                        *" 
 +810 PRINT "*                                                        *" 
 +820 PRINT "**********************************************************" 
 +830 INPUT OPCION% 
 +840 IF OPCION% = 2 THEN GOTO 1500 ELSE GOTO 1800 
 +900 END 
 +1200 END 
 +1500 END 
 +1800 END 
 +</file>

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