es:ganimedes
Diferencias
Muestra las diferencias entre dos versiones de la página.
Ambos lados, revisión anteriorRevisión previaPróxima revisión | Revisión previa | ||
es:ganimedes [2015/02/04 16:45] – [Listado del programa] jevicac | es:ganimedes [2022/06/30 10:03] (actual) – jevicac | ||
---|---|---|---|
Línea 1: | Línea 1: | ||
- | ====== | + | ====== |
- | ===== Ficha ===== | + | {{: |
+ | ===== Ficha ===== | ||
^ Autor | Jorge Pérez Barreiro | ^ Autor | Jorge Pérez Barreiro | ||
^ Computadora | Amstrad PCW 8256 / 8512 / 9512 | | ^ Computadora | Amstrad PCW 8256 / 8512 / 9512 | | ||
Línea 13: | Línea 14: | ||
===== Capturas ===== | ===== Capturas ===== | ||
- | ^^^ | + | {{:otros: |
- | | {{ :juegos: | + | |
- | | {{ :juegos:capturas: | + | |
===== Descripción ===== | ===== Descripción ===== | ||
Línea 21: | Línea 20: | ||
Clásico arcade de matar marcianos similar al juego Galaxian. Las oleadas sucesivas nos invaden y hemos de defender la tierra con ardor. Debemos procurar que los alienígenas no destruyan los bidones de combustible situados bajo la línea de acción de tu cañón. ¡Ánimo y a la batalla! | Clásico arcade de matar marcianos similar al juego Galaxian. Las oleadas sucesivas nos invaden y hemos de defender la tierra con ardor. Debemos procurar que los alienígenas no destruyan los bidones de combustible situados bajo la línea de acción de tu cañón. ¡Ánimo y a la batalla! | ||
+ | ===== Listado ===== | ||
+ | |||
+ | * **__Listado - GANIME.BAS__** | ||
+ | |||
+ | < | ||
+ | 100 REM MARCIANOS (C)12-5-1988 Jorge Perez Barreiro | ||
+ | 101 ' | ||
+ | 102 ' | ||
+ | 110 cls$=CHR$(27)+" | ||
+ | 120 DEF FN at$(v, | ||
+ | 130 inverse1$=CHR$(27)+" | ||
+ | 140 inverse0$=CHR$(27)+" | ||
+ | 150 cursor1$=CHR$(27)+" | ||
+ | 160 cursor0$=CHR$(27)+" | ||
+ | 170 scrab$=CHR$(27)+" | ||
+ | 180 scrar$=CHR$(27)+" | ||
+ | 190 DEF FN ventana$(a, | ||
+ | 220 RANDOMIZE PEEK(64504!) | ||
+ | 222 re=0 | ||
+ | 225 PRINT cls$ | ||
+ | 230 f$=" | ||
+ | 240 PRINT FN at$(7, | ||
+ | 245 PRINT FN at$(8, | ||
+ | 250 PRINT FN at$(11, | ||
+ | 260 PRINT FN at$(16, | ||
+ | 990 GOSUB 9500 | ||
+ | 1000 RESTORE 9000: | ||
+ | 1010 RESTORE 9010: | ||
+ | 1020 RESTORE 9020: | ||
+ | 1030 RESTORE 9030: | ||
+ | 1040 RESTORE 9040: | ||
+ | 1050 RESTORE 9050: | ||
+ | 1060 RESTORE 9060: | ||
+ | 1070 RESTORE 9070: | ||
+ | 1080 RESTORE 9080: | ||
+ | 1090 RESTORE 9090: | ||
+ | 1100 RESTORE 9100: | ||
+ | 1110 RESTORE 9110: | ||
+ | 1120 RESTORE 9120: | ||
+ | 1130 RESTORE 9130: | ||
+ | 1140 RESTORE 9140: | ||
+ | 1150 RESTORE 9150: | ||
+ | 1160 RESTORE 9160: | ||
+ | 1170 RESTORE 9170: | ||
+ | 1180 RESTORE 9180: | ||
+ | 1200 PRINT FN at$(28, | ||
+ | 1210 a$=INKEY$: | ||
+ | 2000 PRINT cls$ | ||
+ | 2040 p1=INT(RND*35)+5: | ||
+ | 2050 vi=3: | ||
+ | 2060 fm=0: | ||
+ | 2062 pnn=84: | ||
+ | 2063 bi$="": | ||
+ | 2065 nn=0 | ||
+ | 2070 i1=2:IF INT(RND*2)+1=1 THEN i1=-2 | ||
+ | 2072 i2=1:IF INT(RND*2)+1=1 THEN i2=-1 | ||
+ | 2075 i3=1:IF INT(RND*2)+1=1 THEN i3=-1 | ||
+ | 2350 FOR t=0 TO 44:PRINT FN at$(0, | ||
+ | 2360 FOR t=1 TO 28:PRINT FN at$(t, | ||
+ | 2370 h1$="": | ||
+ | 2375 h2$="": | ||
+ | 2378 h3$="": | ||
+ | 2400 PRINT FN at$(1, | ||
+ | 2410 PRINT FN at$(20, | ||
+ | 2450 PRINT FN at$(7, | ||
+ | 2460 PRINT FN at$(9, | ||
+ | 2470 PRINT FN at$(11, | ||
+ | 2480 q=INT(RND*41)+1: | ||
+ | 2490 q=INT(RND*41)+1: | ||
+ | 2495 q=INT(RND*41)+1: | ||
+ | 2500 a$=INKEY$: | ||
+ | 2510 GOTO 2535 | ||
+ | 2520 PRINT FN at$(18, | ||
+ | 2535 IF fm=1 THEN pm=pm-2: | ||
+ | 2536 IF nn=1 THEN PRINT FN at$(5, | ||
+ | 2537 IF nn=1 AND pnn<=4 THEN nn=0:PRINT FN at$(5, | ||
+ | 2538 IF nn=0 AND INT(RND*100)=1 THEN nn=1:pnn=84 | ||
+ | 2539 IF pm=5 THEN fm=0:PRINT FN at$(pm, | ||
+ | 2540 IF fb=1 THEN pb=pb+2: | ||
+ | 2545 IF fb=1 AND pb=20 THEN GOTO 5600 | ||
+ | 2550 p1=p1+i1:IF p1>=44 THEN i1=-2 | ||
+ | 2560 IF p1<=6 THEN i1=2 | ||
+ | 2570 p2=p2+i2:IF p2=47 THEN i2=-1 | ||
+ | 2580 IF p2=3 THEN i2=1 | ||
+ | 2590 p3=p3+i3:IF p3=47 THEN i3=-1 | ||
+ | 2600 IF p3=3 THEN i3=1 | ||
+ | 3000 GOTO 2450 | ||
+ | 4000 co2=co:IF a$=" | ||
+ | 4010 IF a$=" | ||
+ | 4020 IF ASC(a$)=32 AND fm=0 THEN fm=1: | ||
+ | 4030 GOTO 2535 | ||
+ | 5000 IF pm=11 THEN lo=cm-p3+1 ELSE GOTO 5050 | ||
+ | 5005 IF lo<1 OR lo>41 GOTO 5050 | ||
+ | 5010 IF MID$(h3$, | ||
+ | 5011 pu=pu+20 | ||
+ | 5015 IF lo/ | ||
+ | 5017 MID$(h3$, | ||
+ | 5020 GOTO 5200 | ||
+ | 5050 IF pm=9 THEN lo=cm-p2+1 ELSE GOTO 5100 | ||
+ | 5055 IF lo<1 OR lo>41 GOTO 5100 | ||
+ | 5060 IF MID$(h2$, | ||
+ | 5065 pu=pu+50 | ||
+ | 5070 IF lo/ | ||
+ | 5072 MID$(h2$, | ||
+ | 5075 GOTO 5200 | ||
+ | 5100 IF pm=7 THEN lo=cm-p1+1 ELSE 2536 | ||
+ | 5102 IF lo<1 OR lo>43 GOTO 2540 | ||
+ | 5105 IF MID$(h1$, | ||
+ | 5110 pu=pu+150 | ||
+ | 5115 IF lo/ | ||
+ | 5130 MID$(h1$, | ||
+ | 5200 fm=0:PRINT FN at$(pm, | ||
+ | 5205 nm=nm+1:IF nm=30 THEN nm=0:GOTO 2370 | ||
+ | 5210 PRINT FN at$(1, | ||
+ | 5250 GOTO 2536 | ||
+ | 5300 fb=0:FOR t=1 TO 25: | ||
+ | 5310 vi=vi-1: | ||
+ | 5315 IF vi=0 THEN GOTO 5500 | ||
+ | 5320 GOTO 2400 | ||
+ | 5400 PRINT FN at$(5, | ||
+ | 5500 FOR y=1 TO 7: | ||
+ | 5505 FOR t=1 TO 100:NEXT t | ||
+ | 5511 PRINT inverse1$: | ||
+ | 5515 FOR t=1 TO 30:NEXT t | ||
+ | 5530 NEXT y | ||
+ | 5550 PRINT FN at$(22, | ||
+ | 5560 IF INKEY$<>" | ||
+ | 5562 IF pu>re THEN re=pu | ||
+ | 5565 GOTO 2000 | ||
+ | 5600 pl=cb-28 | ||
+ | 5601 IF pl<1 OR pl>30 THEN GOTO 5610 | ||
+ | 5602 IF MID$(bi$, | ||
+ | 5610 PRINT FN at$(20, | ||
+ | 5615 MID$(bi$, | ||
+ | 5620 IF bd=10 THEN GOTO 5500 | ||
+ | 5630 GOTO 2545 | ||
+ | 8700 END | ||
+ | 8800 FOR t=200 TO 220:PRINT CHR$(t);: | ||
+ | 8900 STOP | ||
+ | 9000 DATA 129, | ||
+ | 9010 DATA 129, | ||
+ | 9020 DATA 193, | ||
+ | 9030 DATA 131, | ||
+ | 9040 DATA 134, | ||
+ | 9050 DATA 97, | ||
+ | 9060 DATA 0, | ||
+ | 9070 DATA 32, | ||
+ | 9080 DATA 5, | ||
+ | 9090 DATA 2, | ||
+ | 9100 DATA 33, | ||
+ | 9110 DATA 132, | ||
+ | 9120 DATA 62, | ||
+ | 9130 DATA 6, | ||
+ | 9140 DATA 43, | ||
+ | 9150 DATA 248, | ||
+ | 9160 DATA 0, | ||
+ | 9170 DATA 16, | ||
+ | 9180 DATA 94, | ||
+ | 9500 REM GRAPHIC' | ||
+ | 9510 MEMORY 62227! | ||
+ | 9520 lla=62228! | ||
+ | 9530 RESTORE 9610 | ||
+ | 9540 FOR s=62228! TO 62280! | ||
+ | 9550 READ a$: | ||
+ | 9570 POKE s,a | ||
+ | 9580 NEXT s | ||
+ | 9600 RETURN | ||
+ | 9610 DATA 2A, | ||
+ | 9620 DATA F3, | ||
+ | 9630 DATA EB, | ||
+ | 9650 CLEAR:SAVE " | ||
+ | 9700 POKE 62272!, | ||
+ | 9998 STOP | ||
+ | 9999 CLEAR:SAVE " | ||
+ | </ | ||
===== Controles ===== | ===== Controles ===== | ||
Línea 26: | Línea 200: | ||
P = DERECHA | P = DERECHA | ||
ESPACIO = FUEGO | ESPACIO = FUEGO | ||
- | |||
- | ===== Programa ===== | ||
- | |||
- | {{: | ||
- | {{: | ||
- | {{: | ||
- | {{: | ||
===== Carga del programa ===== | ===== Carga del programa ===== | ||
Línea 38: | Línea 205: | ||
1.- Introducir el disco CP/M por la cara 2 | 1.- Introducir el disco CP/M por la cara 2 | ||
2.- Escribir BASIC y esperar a que cargue | 2.- Escribir BASIC y esperar a que cargue | ||
- | 3.- Retirar el disco CP/M e introducir el disco que contiene el Ganimedes | + | 3.- Retirar el disco CP/M e introducir el disco que contiene el juego Ganimedes |
4.- Teclear run " | 4.- Teclear run " | ||
+ | |||
+ | ===== Extras ===== | ||
+ | |||
+ | * Listado del programa en una revista de gran tirada de la época | ||
+ | |||
+ | {{: | ||
===== Descarga ===== | ===== Descarga ===== | ||
- | * {{:juegos: | + | * {{:otros: |
===== Enlaces ===== | ===== Enlaces ===== | ||
* [[http:// | * [[http:// |
es/ganimedes.1423064746.txt.gz · Última modificación: 2015/09/21 07:27 (editor externo)