MicroHobby_029

95 PTAS.
'(.DITA
'iKWHV
íPMSS SA
Canarias 105 pías.
PROGRAMAS
TRON
LANAVE
PICNIC
Nuevo
SHADOWFIRE
GALACTICA
COMO •
RESOLVER!
LABERINTOS
BASIC
LOS
EN EL
SPECTRUM
> . \ l 1 ,\l H 1 r m r r A lu Utgo de 311(111 jAin los mew j es nplorathxrs fctn
m vw menudo piolín* H limpio tV ABU SIMBl I Atañas.
VKttCMl miMOtligtf. f%l«j\ KimoiulUiMi se muiqu (te i,
L t nntodu Ilegal .1 la canut* mnimoiu W iMítenliltr üdltr ion
•z »di > imposibíf. lodoí los que inicnlaton jaiii»
ftqieuion Ahni a Janhf Jones. mieslro heroe :• «3 1 ttilfftUl
Sfl«"um Pu l s y 18 K 7 100 pin
mém*I
50.000 Pesetas
4. • VJ V / - S i » Í-W L # t al primero en descubnr
el secreto de ABU SIMBEL
Servimos a tiendas y almacenes telf. (91) 447 34 10. Télex 22542 JAGA E. Pedimos contrareembolso (Sin G/E y adhesivos regalo) a:
«MANSION» DINAMIC: C/Tilos, 2, 21. MONTEPRINCIPE, BOADILLA DEL MONTE, MADRID TLF. (91) 715 00 67
Director Editorial
José t Gómez-Centurión
Director Ejecutivo
Domingo Gómez
Subdirector
Gabnel Nieto
Redactor Jefe
Mica Pérez Toiosa
Diseño
Jesús Imesta
Maqueta
Rosa María Capitel
I
Redacción
José Mana Díaz,
Migue) Angel Hiiosa, 95 ptas. (Sobretasa Canarias 10 ptas.)
Feo. Javier Martin
Colaboradores
Jesús Alonso, Lorenzo Cebeira,
Primitivo de Francisco.
m MICROPANORAMA.
Halael Prados, Miguel Sepúlveda PROGRAMAS MICROHOBBY. Ecuaciones diteren-
T
Fotografía cíales. Tron.
Javier Martínez. Carlos Candel
Portada
TRUCOS Para ob ' e n e r decimales. En modo «G». Para borrar la pan-
talla. Electos de color y sonido. Sobre la inversión de pan-
José María Ponce
talla. Recuperación de lineas.
Dibujos
Manuel Berrocal. J R Ballesteros. i O A / f "Shadowlire» y -Monty is inocent-, dos programas de re-
A Perera, F.L Frontan. J. Septien. H H I f U C w K J ciente aparición que comentamos en esta sección.
Pe)o, J.M López Moreno
Edita 1 7 BASIC.
HOBBY PRESS. SA
Presidente ESTRATEGIA Cómo resolver laberintos.
Mana Andrino
Consejero Delegado PROGRAMAS DE LECTORES. ¡4™ ve Pic Nic
José I. Gómez Centurión
Administrador General 3 0 SOFTWARE A|9°ri,rnos de ordenación (2.É parte).
Ernesto Marco
Jefe de Publicidad 3 2 CONSULTORIO.
Mansa Esteban
Secretaría de Publicidad 3 4 OCASION.
Concha Gutierrez
Publicidad Barcelona
isidro iglesias
Tel.: (93) 307 n 13
Secretaria de Dirección
Mansa Cogorro
PREMIADOS H0BBYSUERTE
Suscripciones
M.° Rosa González
M ' del Mar Calzada
Redacción. Administración
y Publicidad
La Granja, n " 8
Polígono industrial de Alcobendas
ESTA SEMANA
Tel.: 654 32 11
Dto. Circulación SABINO SAMPlON CHAIME-
Carlos Peropadre ANGEL MARTIN BARRENO. ALBERTO MUÑOZ SANZ.
TA. Hernán Cortés, )0 Dupl. Alcalde Blózquez, ó, 2 o I. ICA- Marcelino Alvarcz, 25, ! A .
! Distribución (ZARAGOZA) 50004. DIZI. IMADRID).
Coedis. S.A. Valencia. 24 b Grifo de progromos 15. a Cal,)
Barcelona Uno suscripción o Miaohohby Un ¡oyshclc con su mlerface f3."
JOSE ANTONIO BUSTA- Semanol por un año (4Cal.) Cal.)
Imprime MANTE GAMBOA. Addojolí,
i Rotedic. SA PEDRO RODRIGUEZ ALBA. PABLO SIGUENZA BRAVO.
4, 4. B. IMAIAGAI. Gral. Luis Alarcón de lo Alas- Rebeiro, 7,3. A leganés (MA
Carretera de Irun. Km 12.450 Uno impresora GP 5 0 de Seifcos
Tel. 734 15 00 tra, t, T, 3. (SEVILLA). DRIDI.
ha 12." Cal.) Gnía de programas 15." Cal ) Uno suscripción a Microhobby
Fotocomposición
Espacio y Punto. S.A PASCUAL PEREZ RODRIGUEZ. CARMEN SAN VICENTE PE Semanal por un año 14. a Cal.)
Paseo de la Castellana, 268 Virgen de la Fuensanta, 20,1 REZ. Pedro Sopono, 6, 3.".
Fotomecánica (VALENCIA). (HUESCA).
Lasercolor Gnfa de programas (5," Cal.) Gnía de programas 15 ° Cal.)
Ateiandro Villegas, 31
JESUS ASTY BICARlO. Roque JAVIER CASTAÑERO FERNAN-
Depósito Legal:
de Astunex, 5, 3.' I. Oñote DEZ. Portades, 28, Bjo. (LO-
M 36598-1984
(GUIPUZCOA). GROÑO).
Representante para Argentina, Gntn de programos 15 ' Cal.) Una suscripción a Microhobby
Chile, Uruguay y Paraguay. Cta
Americana de Ediciones, S R L JESUS ALVAREZ MORENO. Semanal por un año 14. a Cal.)
Sud América. 1.532 Tel.: 21 24 64 Dr. Fermín Garrido, Edl, Sto. JAVIER MAX ALBERT. Almozón,
1209 BUENOS AIRES (Argentina) Domingo, B¡o. (GRANADA). 7 IMADRID).
Gnfa de programos Í5." Cal.) Gnia de programas (5 " Cal.)
MICROHOBBY no se hace
necesariamente solidaria de las JOSE ANTONIO SANTAMA- MARIO MARCOS GARCIA. Al-
opiniones vertidas por sus RIA DIAZ. Francisco Cerda, 47, calde Pineda, 1. Astorga
colaboradores en los artículos 3.". Onteniente (VALENCIA). (LEON).
firmados Reservados lodos los Gnto de programas (5." Cal.) Un Spcclrum 48 K ti." Caf.J
derechos IÑAKI GARCIA MEDINA. Al-
CARLOS CERDA GOMEZ.
Solicitado control calde Palau, 51, 2.°, 1". Am-
OJO Montaña, 79, 3.a, 4.a. Vilode-
posfa ITARRAGONAI.
cón (BARCELONA).
Cnia de programas 15." Cal.) Cinta de programas 15." Cal.)
MICROHOBBY 3
J k
EL PASCAL
DRIVE CUMANA:
DE H/FS OFT NUEVA UNIDAD DE DISCOS
Los usuarios de Spectrum, p o d r á n pidez, c o m o d i d a d y fácil ac-
Está disponible on nuestro país disponer de una nueva u n i d a d de ceso de t o d o tipo de datos,
el Pastal de la Compañía ingles,) discos, con todas las ventajas de ra- que éstas tienen.
Hifsoft, sin limar a dudas el mejor
compilador de esle lenguaje que Se trata del Drive Cumana,
existe en la actualidad para Spet- ^ con la v e n t a j a sobre otros
trum. modelos, de llevar incorpo-
El programa incorpora todas las
funciones y comandos standard r a d a la u n i d a d de a l i m e n t a -
del lenguaje Pascal, además del ción, l o g r a n d o de este m o d o
control extendido de los gráficos un diseño mucho más com-
para Spectrum.
El manual del programa está es- pacto y de fácil acceso.
crito integramente en castellano. El Interface de disco Beta
También está disponible un pa- Spectrum es totalmente c o m -
quete de desarrollo de programas
en Código Máquina para el ZHO. p a t i b l e con los flopy C u m a n a
desarrollado para Spectrum. Se de 5 1 / 4 y 3 1 / 2 p u l g a d a s ,
trata del Ensamblador/Desensam-
blador/Editor/Monitor de Hifsoft, de 4 0 u 8 0 pistas, de d o b l e
el DEVPAC. cara. C a d a Interface se su-
Nos permite ensamblar fuente ministra con un c o m p l e t o
desde cassette y microdrive y es
totalmente reubicable. m a n u a l del usuario.
Existe t a m b i é n una u n i d a d
de disco d o b l e .
Existe en el mundo actual-

• mente un sentimiento de so-
lidaridad con el pueblo etiope,
que tan difíciles momentos está pa-
sando. Recientemente es el caso de la
iniciativa de algunos conocidos músicos
ngleses formando lo que se ha dado en llamar
la Band Aid, para grabar un disco con el tema
«Feed the World» que se ha convertido en muy poco
tiempo en un número uno.
Pues bien, ahora también el Spectrum va a aportar su gra-
nito de arena, ya que algunas de las más importantes casas in-
glesas se han puesto de acuerdo para lanzar al mercado un pro-
ducto, con programas para Spectrum, que reúne una serie
de títulos de conocido prestigio, como son:
Spellbound - Beyond.
Slarbike - The Edge.
Kokotoni Wiif - Elite.
The Pyramid - Fantasy.
Horace Cioes Ski-ing - Psion.
Gillian's Gold - Ocean.
Ant Attack - Quicksilva.
3D Tank Duel - Real Time.
Jack and the Deanstalk - Thor.
Sorcery - Virgin.
Además de estos programas lleva
grabado también por la otra cara el
tema musical «Feed The World».
En España ya está disponible y,
según nos han comentado, lo está
distribuyendo la empresa de softwa-
re Serma.
4 MICROHOBBY
PARA DISFRUTAR DEL SONIDO
Parece ser que está de moda lanzar al merca-
do aparatos que modifican las precarias condi-
DICCIONARIO
ciones sonoras del Spectrum, dotando a nuestro
ordenador de nuevas posibilidades acústicas.
Pin Soft comercializa el adaptador de sonido del
BASIC
para T V. Sistema B/G, de la compartía Sinter. que
nos permite conseguir amplificar el sonido a tra-
vés del receptor de T.V.
El aparato se conecta directamente al S p e c -
trum en el bus de expansiones de nuestro orde-
nador y lleva incorporado un cable con una clavi-
ja que se conecta a la toma MIC.
Se trata de un buen invento, que nos permite
disfrutar del magnifico sonido de algunos j u e g o s
comerciales, que por cierto, últimamente se
preocupan bastante de la música y de los efectos
especiales sonoros.
DICCIONARIO
DEL BASIC
Paraninfo. Willie Hart. 152 páginas
Hasta ahora hemos estado acostumbradosa utili-

zar todo tipo de diccionarios como ayuda en las ta-
rcas más diversas Ahora, con este diccionario in-
formal ico encontraremos los términos más común-
mente utilizados en el Basic.
La obra pretende que podamos utilizar progra-
mas de u n ordenador a otro. Contiene más de ocho-
cientas entradas que abarca casi todas las senten-
cias. comandos o funciones que podamos encon-
trar en tos diferentes sistemas Basic.
LOGO La idea es buena, porque de este modo si encon-

tramos una sentencia Basic desconocida, al cono-
cer su modo de funcionamiento, podríamos aso-
CASTELLANIZADO, ciarla a otra que nosotros utilicemos corrientemen-
te y. de este modo, entenderde una forma másclara
PARA SPECTRUM
como actúa cada comando.
La primera parte de la obra empie/a, como viene
siendo obligado en todo tipo de publicaciones, in-
troduciéndonos al Basic general y a lo que ellos de-
nominan Basic standard.
Ha salido al mercado español una En el capitulo 3, se definen los formatos de las
instrucciones explicando el modo en el que están
versión Logo, totalmente en castella- construidas estas y adoptando un sistema interme-
no, para el Spectrum. dio que sirva de explicación para las diferentes ver-
siones Basic.
Se trata de la versión oficial de Sin- El capítulo 5. es quizá de los más interesantes del
clair, de este lenguaje, en la que todos libro, por supuesto con el diccionario en sí, ya que
trata de ofrecernos una visión general de los códi-
los comandos y mensajes en pantalla gos que utilizan todos los micros, así como los ma-
pas de memoria de cada uno de ellos, aunque claro,
han sido traducidos al castellano. de una forma un tanto superficial.
Recordamos que el Logo es consi- La parte sin duda más interesante de todas, es la
del diccionario Basic, que nos va mostrando por or-
derado como el lenguaje más propi- den alfabético la mayoría de los comandos que uti-
cio para aprender programación den- liza este lenguaje, con una explicación del modo en
el que actúan éstos en cada ordenador.
tro del terreno educativo. Bienvenido Es una interesante obra de consulta, que puede
ser útil a cualquiera que pretenda conocer más de
sea. cerca el Basic en sus diferentes versiones.
5 MICROHOBBY
m¡á • u i i i • I k i a • I• l i f i i » l f K M Í f = = = = = ==
l l l i i l H r c
C O N V I E R T E T E E N LA E S T R E L L A D E L B E I S B O L A M E R I C A N O C O N
1 EN INGLATERRA.
SORPRENDENTE
EFECTO
TRIDIMENSIONAL
PANTALLA DE
VIDEO GIGANTE
PARA SEGUIR
LA ACCION
DE CERCA.
DISPONIBLE
PARA
COMMODORE 64
Y SPECTRUM 48 K
fitp
tí™" Uta.,
PID E ESTOS PRI

TIENDAS DE
IT
11
¡LA MEJOR AVENTURA JAMAS CREADA!
LA GUERRA ENTRE LAS GALAXIAS HA COMENZADO.

SOLO TU, A BORDO DE TU NAVE
"SHADOWFIRE" Y COMO COMANDANTE DE SUS SEIS TRIPULANTES (CADA UNO CON PODERES
ESPECIALES DIFERENTES], PUEDES EVITAR EL TRIUNFO DE ZOFF EL REY OE LA ZONA NEGRA
¡¡ACCION Y GRAFICOS COMO NO HAS VISTO

PIDE ESTOS PROGRAMAS A ERBE, SANTA ENGRACIA 17, 28010 MADRID. TFN.: (91) 447 34 10 Y EN LAS MEJORES TIENDAS
OE INFORMATICA TIENDAS Y MAYORISTAS: CUMPLIMENTAMOS SUS PEDIDOS EN 24 HORAS.
PROGRAMAS MICROHOBBY
TRON
Juan Miguel PICAZO
flBCO
a i z 3
0 R 5 T
C
4
U
NOTAS
F G H
S 6 7
GRRFICRS
I
fi
J
3
K L M N O P
n a c o
Spettrum 48 K
¿Te a c u e r d a s d e Ea f a n t á s t i c a b a t a l l a de m o t o s d e la
película T r o n ? p u e s b i e n , este j u e g o i n t e n t a ser u n a
i m i t a c i ó n d e la m i s m a , c o n efecto t r i d i m e n s i o n a l .
Dos son los jugadores que, obligato- el momento de tomar una nueva direc-
riamente, han de participar en él y su ción. Estas teclas son:
misión es arrinconar a su contrario
obligándole a estrellarse contra el bor- jugador izquierdo derecho
de de la pista o contra la pared que se va
formando en su movimiento. arriba Q P
El programa tiene cuatro direcciones abajo A L
de movimiento automático, es decir, izquierda Z N
que sólo tienes que pulsar una tecla en derecha X M
2 0 0 PRINT INK 7 , PAPER 2 , 8RIGH 126,98,98,126,O.O,126,96,4,6,16,

T 1; FLASH 1;RT ¿ 0 , 9 , " P A R É Lfi C I 32 ,0
NT A " 770 DATA 0,60,36,126,98,96,126,
2 1 0 PRUSE 100 0,0.62,34,62,6,70.126,0,0,0,0,0,
3 0 0 PRPCR 0 80RDER 0 CLS 0,0.0,0
3 1 0 FOR » = 0 T O 2 0 0 PLOT INK 1N 7 7 5 D A T A 0,126,98,14,6,0,24,0,0
T (1+RND*6> , 2 5 5 * R N D , 175«RN0 NEX .0,0.0,0,0,24,0,0,0,0,0,0,24,8,1
T i 6,0,40.40,0,0,0,0,0,O,0,24,0,0,0
3 2 0 INK 5 , 24 , 0
4 0 0 PLOT 3 2 , 1 3 9 DRAU 3 5 , 0 DRA 7 8 8 DATA 0,62,34,126,98,98,98,0
U 0,-1* DRAU - 1 0 , 0 DRAU 0,-66 .O.124,68,124,70,7®,126,0,0,126,
DRAU - 1 5 , 0 DRRU 0 , 6 6 DRRU - 1 0 ,64.$6,98,126,0,0,60,34.34,98,
, 0 : DRRU 0 , 1 4 98,124.0,0,126,64,126,96,96,126,
4.10 PLOT 8 0 , 1 3 9 DRAU 3 5 , 0 DRA 0
U 0,-40 DRRU - 1 0 , 0 DRRU 10,-39 7 8 5 DATA 0,126,64,126,96.96,96,
DRAU - 1 1 , 0 DRAU - 1 1 , 3 9 DRAU 0,0,126,70,64,102,96,126,0,0,34,
0,-39 DRAU - 1 3 , 0 DRAU 0.76 34 , 6 2 . 9 8 , 9 8 , 9 8 , 0 , 0 , 8 , 8 , 8 , 2 4 , 2 4 , 2
4 2 0 PLOT 1 2 8 , 1 3 9 DRRU 3 5 , 0 DA 4,0,0,6,8,8,12,76,124,0
RU 0 , - 7 8 DRAU - 3 5 , 0 DRAU 0 ' , ? 6 7 8 8 DATA 0,72,80,126,98,98,98,0
4 3 0 PLOT 1 7 6 , 1 3 9 : DRAU 1 6 , 0 . DR ,O,32,32,32,96,96,126,0,0,34,54,
flU 1 2 , - 2 7 DRAU 0 , 2 7 . DRAU 15,0 42,98,98,106,0,0,50,42.38,98,98,
DRAU 0 , - 7 8 : DRAU - 1 5 , 0 DRRU -1 10&.0.0,126,66,66,70,70,126,0
3,39 DRRU 0 , - 3 9 DRAU - 1 5 , 0 DR 7 9 0 DATA 0,126,66,126,96,96,96,
RU 0 , 7 6 0,0,126,66,66,106,102,126,1,0,12
4 6 8 , 1 2 4 , , , 9 8 , 0 , 0 , 1 2 6 , 6 4 , 1 2 6
4 4 0 PLOT 3 2 , 1 3 9 DRAU 6 3 . - 2 7 P
.6,6,126,O.O,126,82.16,24,24,24,
f
LOT 6 7 , 1 3 9 DRAU 3 9 , - 2 7 DRAU -1
1.0: PLOT 6 7 , 1 2 5 DRAU 3 9 , - 1 7 D 0,0,6 6,66,6 6,98,98,126,0
RAU 0 , 4 . PLOT 5 7 , 1 2 5 DRAU 46,-1 795 DATR 0,70,34.16,18,14,4,0,0
7 DRAU 3 , 0 PLOT 5 7 , 6 0 : DRAU 4 6 ,74 , 42.42, 42,20,20,0,0,98,98,60,
,27: DRAU 0 , 1 9 PLOT 4 2 . 6 0 DRRU 60 , 7 0,70,0 ,0,70,70,100,24,24,24,
57,27 DRRU 5 , 0 PLOT 4 2 , 1 2 5 D 0,6,1¿6.100,8,16,102,126,©
RAU 5 6 , - 1 7 : DRAU 0 , - 1 9 PLOT 32, 800 PAPER 0 INK 6 BORDER 0 C
125 DRRU 6 3 , - 1 7 DRRU 3 , 0 PLOT LS
32,139 DRAU 6 3 , - 2 7 : DRAU 0,-4 803 POKE 23606,186 POKE 23607,
4 4 5 PLOT 8 0 , 1 3 9 DRAU 3 1 , - 2 7 P 252
LOT 1 1 5 , 1 3 9 DRAU 7 , - 2 7 DRAU -1 805 PRINT FLASH 1,AT 0,14;"CR>o
1.0: PLOT 1 1 5 , 9 9 : DRAU 8 , 1 DRAU
0,11 PLOT 1 0 5 , 9 9 DRRU 1 4 , 1 . D 1 0 P R I N T RT 2,O,"*34146*0AA8=2
RAU 3 , 0 : PLOT 1 1 5 , 6 0 DRRU 7,27 >s0A+O*CD*2> * C A 8 > * * 2 0 i C 4 «70284-3
DBRU -3,12 ) , 4 *27 >20A*2 > - C R 0 * » , 0*-?0A4 3 «8D4*
4 5 0 PLOT 1 0 4 . 6 0 : DRAU 1 5 , 2 7 : DR E 0 8 8 « 2 A 4 0 c 3 >* 4 = * E D * 4 8 C A > * <>E8 <84
flU 3 , 0
RAU 4 , - 1 1
PLOT 9 3 , 9 9
PLOT 9 3 , 6 0
DRRU 2 3 , 0
DRRU 2 2 , 2
D 0 "
»C> * > « 2 > = C A 0 * 4 , # 1 > A 3 4 * 3 4 * , 0 * * > 8 B C
7 : DRAU 0 , 1 1 PLOT 8 0 , 6 0 DRRU 3 8 1 5 BEEP . 0 6 , 8 PAUSE 5 0

1,27 DRRU 4 , 0 PLOT 6 0 , 1 3 9 ORA 8 2 0 P R I N T RT 7,O,"*4,t<>E8<84=C
U 31,-27 DRAU 0 , - 2 3 > *B4«A40,810*2>•***,08*C42;06/**
4 5 5 PLOT 1 2 8 , 1 3 9 : DRAU 0 , - 2 7 P M i M M H i i H u i i H 0RR810 , , , , , 8 ,
LOT 1 6 3 , 1 3 9 DRAU - 2 3 , - 2 7 DRAU ,,,,1,7************0109>11,11fO#
-11,0 PLOT 1 6 3 , 6 0 DRAU -23,27: , , 11 1 i - * * * * * * * * * * * * 8 1 9 D 8 4 R 3 0 , , I ,
DRAU 0 , 2 3 PLOT 1 2 8 , 6 0 DRAU 0 , 11111,••**••******«34A4270,,,,G,
2 7 : DRRU 1 1 , 0 PLOT 1 2 8 , 1 3 9 DRA
U 0,-27 DRRU 0 , - 2 3 8 2 5 BEEP . 0 8 , 8 PAUSE 5 0
4 6 0 PLOT 1 7 6 , 1 3 9 DRRU -31.-27 8 3 0 P R I N T AT 14,0,"»4,*<>EB<84=
PLOT 1 9 2 , 1 3 9 DRRU - 4 1 , - 2 7 DRR C >*4B*0DC > < 0C82 > , * = > 3 4 1 4 B * < 0 * C 4 «
U -6,0 PLOT 2 0 4 , 1 1 2 DRRU -49,- 4 A * 0 ' ' A 4 C 0 3 e B * . OB * C 4 * 2 , 0 B - * ' * 0 4 B í 4
7 : DRRU - 4 , 7 : PLOT 2 0 4 , 1 3 9 DRAU , * >A34 = 0 3 > A * « > * , 4 4 * * < 0 B « 8 D 4 * D = 0 * 990 IF XNKEYfO" • TMEN GO T O 9
-49,-27 DRAU 0,-7 0*,0 *E4I," 90
4 6 2 PLOT 2 1 9 , 1 3 9 DRAU -61,-27: 6 3 5 BEEP .06,8 9 9 5 POKE 23606,0 POKE 23607,60
DRAU - 4 , 0 PLOT 2 1 9 , 6 0 DRRU -6 9 0 0 FOR 1 = 6 5 3 6 8 T O 6 5 5 2 7 9 9 6 GO T O 8 0 0 0
1,27; DRAU 0 , 2 3 PLOT 2 0 4 , 6 0 DR 9 0 5 READ n POKE i , í > : NEXT x 1000 P A P E R 0: INK O BRIGHT © C
AU - 4 9 , 2 7 DRRU 4 , 0 PLOT 191,99 9 1 0 DATA 0,255,255,127,63,31,15 LS
91,60
DRRU - 4 1 , 0 DRRU 5 , - 1 1
DRAU - 4 1 , 2 7 DRAU 0 j 1 1
PLOT 1
P
.0,126,126,126.126,126,126,126,1 1010 L E T x > 9 LET y»l L E T • =©
LOT 1 7 6 , 6 0 ORAU - 3 1 , 2 7
26,126,190,222,238,246,250,252,0 LET n « 0 LET * = 10: LET b * l LET
DlÍAU 5 , ,0,2S5,255,255,255,255,255,0 r =0 LET s - 0 : LET <jer=0 LET iIH
0 PLOT 176,139 D R R U - 3 1 , - 2 7 D 9 2 0 DATA 0,63,95,111,119,123,12 «0
RAU 0 , - 2 3 5,126.126,0,63,31,15,7,3,0,0,128 1015 INK 5
4 6 5 PRUSE 2© ,Í60,176,18i,188,190,126,0,0,62, 1020 FOR q - 1 T O 1 6 9 STEP 8
4 6 6 BRIGHT 1 67,255,189,231,0 1030 PLOT ©,<* DRAU 255,0 NEXT
4 6 7 PAUSE 2 0 9 3 0 DATR 30,58,46,44,44,46,26,1 1040 FOR q - 6 T O 2 5 4 STEP 8
4 6 6 BRIGHT O 4,14,26,46,4 4,4 4,46,58 ,30,O,0,12 1050 PLOT q , 0 . DRAU 0,175: NEXT
4 7 0 PRINT INK 2 . BRIGHT 1 ; A T 19 4,194,255,189,231,0,0.0,0,24,40, <1
, 9 , " © 1 9 8 5 J - M P P" 0 , 0 , 0 , 0 , 0 , 8 , 2 4 , 3 6 , 2 4 , 0 , 0 1120 PRINT INK 2; BRIGHT 1;AT 9,
4 7 5 PRUSE 100 9 4 0 DATA 0,0.42,20,34,22,0,0,0, 0, "
7 5 0 FOR i = 6 4 9 5 4 T O 6 5 2 6 9 38,16,42,64,42.82,0,74,85.130,13 1130 PRINT INK 1; BRIGHT 1;AT 10
7 5 5 RERD ft POKE i , n : NEXT > 8 , 6 5 , 1 3 0 , 8 9 , 4 4 , 0 , 1 1 6 , 3 8 , 3 4 , 1 0 2 ,8
7 6 0 DATR 1,126.70,74.86,102,126 2,106.0 íséo IF izq*2 T H E N GO T O 2 1 0 0
,128,0,8,24,6,24,24,24,0,0,126,9 9 5 0 DATA 0,32,20,46,34,16,110,0 1510 IF izq«3 T H E N GO T O 2 2 0 0
8, 1 4 , 4 6 , 7 0 , 1 2 6 , 0 , 0 , 1 2 4 , 6 8 , 2 8 , 6 , 7 , 0 , 0 , 1 6 , 5 2 , 2 8 , 2 , 1 0 6 , 0 , 0 , 0 , 0 , 0 , 6 , 1520 IF 1 z q = 4 T M E N GO T O 2 3 0 0
0,126,0 2000 LET *>X: LET
7 6 5 DATA 0,14.22.38,126,12,12,0 ^ • ^ P f i l N T 00; FLASH 1, INK 7 , " " 2010 IF I N K E Y ( = " q " T H E N GO T O 20
,0,62,32 ,62,6,70,126,0,0,124,64, ORO 1 2 > < 4 = I O A * ? D , B 4 * . B " , 0 2 4 . * * # " 50
8 MICROHOBBY
2 1 3 0 L E T y =y - 1 I F y < 0 OR A T T R ( 3 2 7 5 LET b - b + 1 I F b > 3 1 OR R T T R
X , y I < >5 T M E N GO T O 7 0 0 0 < a , b > O S T H E N GO T O 7 1 0 0
2140 PRINT INK 2, BRIGHT 1 , R T •, 3 2 8 0 PRINT INK 1, BRIGHT 1,RT f,
n;" " PRUSE V PRINT INK 2, BRI S," " PRUSE V : P R I N T I N K 1, BRI
GHT 1 , A T X , y , " " GHT 1 ; RT a , b , "
2 1 4 5 GO TO 2 5 0 0 3 2 9 0 LET d i r a l GO T O 1500
2 1 5 0 LET X - X - 1 : I F X < 0 OR A T T R ( 3 3 0 0 LET r * a LET S * b ,
X , y I < > 5 T H E N GO T O 7 0 0 0 3 3 1 0 IF INKEY $ « " n T H E N GO T O 3 3
216C PRINT INK 2, BRIGHT l . A T • , 50
n," ' PRUSE V PRINT INK 2 , BRI 3 3 2 0 I F I N K E Y * - " » " T H E N GO T O 3 3
CHT 1 , RT X , y , " " 75
2 1 7 0 LET i z q = 3 GO T O 2 5 0 0 3 3 3 0 LCT a x a + 1 I F a > 3 1 OR R T T R
2 1 7 5 LET x«x + l I F X > 2 1 OR R T T R < a , b > < > 5 T H E N GO T O 7 1 0 0
< X , y > < > 5 T M E N GO T O 7000 3 3 4 0 P R I N T INK 1, 8 R I G H T l . R T r,
2100 PRINT INK 2 ; BRIGHT 1,AT m, i , " " PRUSE V. P R I N T I N K 1 ; BRI
n." " PRUSE V PRINT INK 2, BRI GHT 1 , R T a , b ; " "
GHT 1 , A T X , y , " " 3 3 4 5 GO T O 1500
2 1 9 0 LET GO T O 2 5 0 0 3 3 5 0 LET b a b - 1 I F b < 0 OR R T T R (
2 2 0 0 LET » « x : L E T n =y » , b > < > 5 T H E N GO T O 7 1 0 0
2 2 1 0 I F I N K E Y » « - r " T H E N GO T O 2 2 3 3 6 0 P R I N T INK 1, BRIGHT l . R T r,
50 s ; •• PRUSE V P R I N T INK 1, BRI
2 2 2 0 I F I N K E Y * K " X " T H E N GO T O 2 2 C H T 1 , RT a , b , " "
75 3 3 7 0 LET d « f = 2 GO T O 1500
2 2 3 0 LET X » X - 1 I F x < 0 OR R T T R ( 337S LET b « b + l : I F b > 3 1 OR R T T R
X , y ) < > 5 T H E N GO T O 7 0 0 0 ( a , b > < > 5 T H E N GO T O 7 1 0 0
2 2 4 0 PRINT INK 2, BRIGHT 1,RT 3 3 8 0 P R I N T INK 1, BRIGHT 1,RT r,
n," ••; P R U S E v : PRINT INK 2, BRI S;" " PRUSE V P P I N T INK 1 , BRI
CHT 1 , R T X , y ; " GHT 1 , R T a . b , " "
2 2 4 5 GO T O 2 5 0 0 3 3 9 0 L E T d e r • 1 : GO T O 1500
i\i
2 2 5 0 LET y * y - l I F y < 0 OR R T T R ( 7 0 0 0 GO T O 7 2 0 0
X . V l o S T H E N GO T O 7 0 0 0 7 0 0 5 LET t d = t d + 1 LET p a s p a t l I
8260 PRINT INK 2; BRIGHT 1,RT B, F p a > * p a r T H E N GO T O ? S O O
n," " PRUSE v PRINT INK 2; BRÍ 7 0 1 0 P R I N T PRPER 0 , INK 6 , BRIGH
GHT 1 , R T X , y , " " T i , H 0 , j » 111,11," "Jugad ";pa;
2 2 7 0 LET i z q =2 GO T O 2 5 0 0 " " , J * ( 2 1 , t d
2 2 7 5 LET u « u + l I F y > 3 1 OR R T T R 7 0 1 5 PRUSE 5 0
( X , y ) < > 5 T M E N GO T O 7 0 0 0 7 0 2 0 GO T O 1000
2200 PRINT INK 2, BRIGHT l . R T • , 7 1 0 0 LCT C 0 l « l GO T O 7 3 0 0
n," ••: P A U S E V PRINT INK 2 ; BRI 7 1 0 5 LCT t i = t i + l LCT p a « p a + l I
GHT l . R T X , y , " " F p a > »p a r T H E N GO T O 7 S 0 0
2 2 9 0 LET i z q » l GO T O 2 5 0 0 7 1 1 0 P R I N T PRPER 0 , INK 6 , BRIGH
2 3 0 0 LET * ' X LET m y T 1, 8 0 , J » < 1 ) , T I I " " , " J U 9 I D ",pa,
2 3 1 0 I F I N K E Y » « " 2 " T H E N GO T O 2 3 •' J « (2) . t d
50 7 1 1 5 PRUSE 5 0
2 3 2 0 I F I N K E Y « » " X " T H E N GO T O 2 3 7 1 2 0 GO T O 1000
75 7 2 0 0 INK 2 BRIGHT 1 P R I N T RT •
2 3 3 0 LCT x = X + l : I F x > 3 1 OR R T T R ,n," " PRUSE 2 0 P R I N T RT • , r i ; "
(X , y ) < > 5 T H E N GO T O 7 0 0 0 " PRUSE 2 0 : P R I N T RT
2 3 4 0 PRINT INK 2 , BRIGHT 1 , A T • , PRUSE 2 0 P R I N T RT m , n , " " PRUS
n," PRUSE v : PRINT INK 2, BRI E 20 P R I N T RT » , n , " " PRUSE 2 0
GHT 1 ; A T X , y , - " P R I N T RT ". PRUSE 2 0 PR
2 3 4 5 GO T O 2 5 0 0 „ „ , I N T RT • , I t , " " : P R U S E 2 0 PPINT
2 3 5 0 L E T y =y - 1 I F y < 0 OR R T T R ( RT • , n ; " " RUSE 2 0 P R I N T RT •
x , y ) < > 5 T H E N GO T O 7 0 0 0 .n;" ' PRUSE 3 0
2 Í 6 0 PRINT INK 2 , BRIGHT l.RT 7 2 1 0 GO T O 7 0 0 5
n," PRUSE V ¿RINT INK 2 ; BRI 7 3 0 0 INK 1 BRIGHT 1
GHT 1 ; RT x , y , " " 7 3 1 0 P R I N T RT r , S , " " PRUSE 15
2 3 7 0 LET i z q « 2 GO T O 2 5 0 0 P R I N T RT r , i , " " PRUSE 1 5 : PRI
2 3 7 5 LET y « y + l I F y > 3 1 OR R T T R MT RT r , » , " ": PRUSC 15 PRINT R
(X . y ) < >5 T H E N GO T O 7 0 0 0 T f ,i; " ": PRUSE 15
2 3 8 0 PRINT INK 2 , BRIGHT l . R T m, 7 3 2 0 P R I N T RT r,%¡" ": PRUSE 1S
n. " " PRUSE V PRINT INK 2 . BRI P R I N T RT r , " 11 : P R U S E 1 S PRI
GHT 1 ; R T * , V , " NT RT f , t , " " PRUSE 15 PRINT R
2390 LET i Z < t i l GO T O 2 5 0 0 T r , * , " " PRUSE 15 P R I N T RT r,
2 5 0 0 I F d e f o 2 T H E N GO T O 3 1 0 0 í ; " PRUSE 3 0
2 5 1 0 I F d e r = 3 T M E N GO T O 3 2 0 0 7 3 3 0 GO TO 7 1 0 5
2 5 2 0 I F d « r « 4 T H E N GO T O 3 3 0 0 7 S 0 0 I F t d > l i T H E N GO T O 7 5 5 0
3 0 0 0 LET r=a LET t=b 7510 IF t d = t i T H E N GO T O 7 5 7 5
3010 IF I N K E Y | i " p " T H E N GO T O 3 0 7515 CL5
SO 7 5 2 0 P R I N T PRPER 0 , INK 6 , BRIGH
3 0 1 5 IF INKEY l " T H E N GO T O 3 0 T 1 , 8 0 , J » ( 1 1 ; t i , " ;"Juâd:",pa,
75 " " ; J * Í2! ; t d
3 0 2 0 LET b =b +l I F b > 3 1 OR R T T R 7530 PRINT 8RIGHT 1, INK 2 , PRPE
( • , b > < > 5 T H E N GO T O 7 1 0 0 R 0,RT 6 , l l ; 0 « ( l > , R T 10,8;"ES EL
3 0 3 0 P R I N T I N K 1, B R I G H T l.RT f, CAMPEON?•«"
i,- " PRUSE V PRINT INK 1; BRI 7 5 4 0 PRINT ORIGHT 1, INK 4 , PRPE
GHT 1 , R T a , b , " " R 0;RT 16,10,"OTRA PRRTIDR?"
3 0 4 0 GO T O 1 5 0 0 _ _ .,_.., , 7S42 IF I N K C Y T H E N GO T O 0 0
3 0 5 0 LET a * a - l I F a t 0 OR R T T R ( 00
a , b ) < > 5 T H E N GO T O 7 1 0 0 7545 IF I N K E Y » = " n " THEN STOP
3 0 6 0 PRINT INK 1, BRIGHT 1 ; R T r. 7548 IF I N K C Y » » ' " " T H E N GO T O 754
»," PRUSE v PRINT INK 1, 8RI 2
GHT 1 , R T a , b , " " 7 5 5 0 CLS P R I N T PAPER 0 ; INK 6.
3 0 7 8 LET de r »3 GO T O 1S00 BRIGHT i,no.o» ( i ) , i i , " ","Jugad
3 0 7 5 LET a=a + l I F a > 2 1 OR R T T R " ; p » , " " , J » ( 2 ) ; t d
( a , b l < > 5 T H E N GO T O 7 1 0 0 7555 PRINT BRIGHT 1: INK I ; PRPC
3 0 8 0 PRINT INK 1, BRIGHT 1 ; A T r, R 0,RT 6 , 1 1 , J * ( 2 ) , R T 10,8;"ES eL
S , " •• PRUSE V PRINT INK 1, BRI CAMPEON'! >"
CHT l . R T a,b," 7 5 6 0 GO T O 7 5 4 0
3 0 9 0 L E T d e r =4 GO T O 1500 6000 DIM j « ( 2 , 1 0 l PAPER 0 INK
3 1 0 0 LET f I » LET t « b _ 4 CLS
3 1 1 0 I F I N K E Y $ » " p " T H E N GO T O 3 1 8 0 0 5 LET pa 3 0 LET P i f . 0 LET td
50 »0 L E T 11 = 0 LET V «0
3120 IF I N K E Y » » " l " T H E N GO T O 3 1 8 0 1 0 PRINT BRIGHT 1,RT 2,14;"MEN
75 U " , R T 5 . 0 , " 1 NOMBRE J U G A D O R IZOU
3 1 3 0 LET b =b - l I F b < 0 OR R T T R C JERDO.",RT 7,0, 2 NOMBRE J U G R O O R
a , b ) < > 5 T H E N GO T O 7 1 0 0 O E R E C H O . " , A T 9 , 0 , " 3 C U A N T R S PAR
3 1 4 0 PRINT INK i ; BRIGHT l . R T r, TIORS JUGAMOS.",AT 11,0,"4 UELOC
i , " •'; PRUSE V P R I N T I N K 1, BRI IDAD." .
GHT 1 , R T a , b . " " 8020 PRINT BAIGHT 1; FLASH 1;AT
3 1 4 5 GO T O 1 5 0 0 „ „ „ , 2,14,"MENU:": PAUSC 100
3 1 5 0 LET a = a - l I F a < 0 OR R T T R I 8 0 2 5 PRINT BRIGHT 1; FLASH 0 , A T
» , b l < > 5 T M E N GO T O 7 1 0 0 £,14,"HENU:" PRINT BRIGHT 1; FL
3 1 6 0 P R I N T I N K 1 ; B R I G H T 1 ; AT f, ASH 1 ; A T 5,0,"1"
»;•• " PRUSE V PR I N T I N K 1 , BRI 8 0 3 0 P R I N T AT 2 1 , 0 , ' H A X I H O 1 0 CA
s e i s I F I N K C Y » * " • " T H E N GO T O 2 0 GHT 1 ; R T a , b ; " " RACTCRES"
75 3 1 7 0 LET d e r » 3 GO T O 1500 6 0 4 0 INPUT J«<1>
3020 L E T y « y t l I F y > 3 1 OR R T T R 3 1 7 5 LET a = a + l : I F a > 2 1 OR R T T R 8 0 4 5 PAUSE 3 0
<X , V ) < > 5 T H E N GO T 0 7000 ( a , b ) < > 5 T M E N GO T O 7 1 0 0 8 0 5 0 PRINT BRIGHT 1; FLRSH O;AT
2030 P R I N T I N K 2¿_ B R I G H T 1 , R T • , 3 1 8 0 PRINT INK 1, BRIGHT 1 , R T r, 5 , 0 ; " 1 " P R I N T BRIGHT 1, FLASH 1
n, " PRUSE V . P R I N T I N K 2 ; ORI 1, • " PRUSE V PRINT INK 1, BRI ,AT 7,0,"2"
GHT 1 , A T x , y " " GHT l . R T a , b , " " ^ „ „ „ 8 0 6 0 INPUT JS<2)
2 0 4 0 GO T O 2 5 0 0 3 1 9 0 LET d e r - 4 GO T O 1500 8 0 6 5 PRUSE 3 0
2050 L E T X « X - 1 : I F X < 0 OR R T T R ( 3 2 0 0 LET r = a LET s>b 8 0 7 0 P R I N T AT 21,0,"
x , y > < >5 T H E N GO T O 7 0 0 0 3 2 1 0 I F I N K E Y « « " f i " T H E N GO T O 3 2 ": PRINT BRI
2060 50 GHT 1 , F L A S H 0 ; R T 7 , 0 , " 2 " : PRINT
n ; " " P R PI NATU S EI N Kv 2 P , B R I G H T 1 , AT
RINT INK 2;
a,
BRI 3 2 2 0 I F I N K C Y » « " B " T H E N GO T O 3 2 BRIGHT 1. FLRSH 1 , A T 9 , 0 , " 3 "
CMT 8 0 8 0 P R I N T RT 21,0;"RECOMENDABLE
2070 1 , A T x , y , " " 75
2 0 7 5 LET i z q « 3 GO T O 2 5 0 0 3 2 3 0 LET a = a - l I F » < 0 OR R T T R ( ENTRE 5 Y 2 5 "
(X , y L E T X *X 1 1 I F X > 2 1 OR A T T R a , b ) < > 5 T H E N GO T O 7 1 0 0 8 0 9 0 INPUT par
2000 > < >5 T M E N GO TO 7 0 0 0 3 2 4 0 PRINT INK 1; BRIGHT l . R T f. 8 1 0 0 P R I N T RT 21,0,"
n, " PRINT INK 2, BRIGHT l . A T Él, i , " " PRUSE V PRINT INK 1; BRI PRINT BRI
CMT P R U S E V P R INT INK 2 , BRI CHT l ; R T a , b , " " GHT 1 , F L A S H 0 , A T 9,0,"3"
2090 1,RT * , V , " " 3 2 4 5 GO T O 1 5 0 0 8 1 1 0 P R I N T BRIGHT 1, FLASM 1,AT
2100 L E T i z q « 4 GO T O 2 5 0 0 3250 LET b = b - l I F b < © OR R T T R < 11,0,"4": P R I N T AT 21,0;"HAXlMA
2110 LET » « x LET rt=y a , b ) < > 5 T H E N GO TO 7 1 0 0 1 - HINIHA 10"
50 I F I N K C Y » = " q " T H E N GO T O 2 1 3 2 6 0 PRINT INK 1, BRIGHT 1 , R T f, 8 1 2 0 INPUT V
2120 1," ": PRUSE v : PRINT INK 1; BRI 8 1 3 0 PRINT BRIGHT 1; FLASH O,AT
75 IF I N K C Y » = T H E N GO T O 21 GHT 1 i R T a . b ; " 11,0,-4.": P R I N T AT ¿1,0;"
3 2 7 0 LET d c r - 2 : 60 TO 1500 0 1 4 0 GO T O 1000
9 MICROHOBBY
W PROGRAMAS MICROHOBBY
R UNGE KUTTA
Jordi VIÑAS BASCOMPTE
3075
Puntos
INPUT
por
"Ovitrt i t p r m r
p a n t a l l a '
F L f i d » IC » = • • $ " OP C » = " S " >
3 0 7 ? I F FLfiG >1 THEN P P I N T TAB 5
- UN M O M E N T O "
3050 LET
3090 OIM
h-(XN-X0I•(N-l>
P(N,£>
,C*
los
LET
3 1 0 0 LET P>1,1)«X0 LET P(1 i£) »Y

0
3105 LET HSiH'2
Spectrum 16 K 3110
3115
FOP
LET
TO N
X C = P < I - 1 . 1» LET Y C t P H
-1,21
3120 LET K l s F N K (XC . Y O
L E T K 2 - F N K C X C + H 2 . F'C + H 2 +K 11
Este p r o g r a m a d e u t i l i d a d e s sirve p a r a la resolución d e 3130
3140 LET K3*FN K(XC+H2,YC+H2*K2>
3150 LET f 4 = F N K ( X C * H . RE +M * K 3 L
ecuaciones d i f e r e n c i a l e s o r d i n a r i a s de p r i m e r o r d e n , 3160 LET P » Y C • M ' 6 • C K 1 * S * K S *
anuo** 1 -i'
b a s a d o e n el m é t o d o d e Euler. 3 1 7 0 ILFE T F LP f iI CI =. l1 ) T«XC
3130
*H
MEN P P I M T P ( I , l l
.P ( I • s > - .
3200 N E X T I
Para resolver este tipo tic ecuacio- la función solución. Los puntos cuyo 4 0 0 0 REM • « GRAFICA •«
4 0 1 0 LET > M I N » P ( 1 , 1 > L E T J.MFIX =>
L E T YMfiXsP ' 1 , 2 1
nes, demasiado frecuentes en proble- número escogemos nosotros, los pode- MIN
MAX
LET /MlfloV
mas de física, química, ingenieria.etc. mos obtener, bien en forma de tabla 4020
4030
F O P 1 = 2 T O M
I F P I I , 1 > > X H f i > T M E l l L E T XMA
XmP < I . 1 • GO T O 4050
se utilizan métodos analíticos (integra- (valores X e Y) o en forma de gráfico 1040 IF P ( I , 1 ) X M I N TMÉN L E T XMI
»J=P Y M A X THEN LET
GO T O 4070
."Mfi
ción solución, la cual no queda bien de- la misma escala para ambos ejes o con 4060 IF P < I , 2 l < Y M I N TMEN LET
N *P ( X , 8)
,MI
terminada si no se saben las condicio- escalas distintas, calculadas para que 4 0 7 O NEXT
4 0 8 0 LET E H i 2 3 9
I
(XttfiX-XMINf LET
EU-144 . (YMAX-YMIUI
nes iniciales (uno de los puntos por ocupen toda la pantalla. 4090 I N P U T " O U I E R E UNA E - C 4 U > 9
u a i Para a » - b o s t j«i'1 ", t »
donde debe pasar). Pero muy a menu- 4100 I F c » « " n " OR c » - " N 1
TO 4 120
T H E N GO
do la resolución analítica es muy difícil 4110 I F E ' J < =EM T H E N L E T

4 1 1 5 LET CU=EH
EM«EU
3OO0 P R I N T
o incluso imposible. Hs ahora cuando 0NÍ5 OIFE-
t'E P R I M E R O R D E N POR B L METODO
4 1 2 0 CLS
LET > «0
IF XMfiX«XMXN:=0
LET Y í 0
THEN
GO S U S 4 1 7 0 P
LOT * P , 1 9 OPfiU 0,156
entra enjuego nuestro Spectrum veste DE RUNGE
3010 PRINT
- KL'TTFL "
AT S.4. "Ecuacion dY 4130 I F Y M A X í Y M l N =0 THEN LET
- d x » *>•' O LET Y 30 GO S U B 4 1 7 0 PLOT 7,
programa. 3020 INPUT " E n i r e l á t '.i Ti c l Orí 4 t t YP: ORRU 2 4 © » «. „ ,
u t i u z a r x C V COMO ) | ' 9 U K 4 1 4 0 FOR 1 = 1 TO N : L E T X=PiI,l>
Con él, una ve/ entrados la ecua- er. t o s " . ft» L E T Y >P ( 1 , 2 )
XP,YP NEXT I
GO S U B 4 1 7 0 PLOT
3030 PPINT rtT 5,31.fi»
ción, valor inicial y final de X y el valor 3 0 4 0 D E F F I I K ( X , Y> » U f i L
305O INPUT " v a l o r i n u i i i
fi»
y f i n *
4 1 5 0 P R I N T AT 2 0 , 0 , " X M I N = " , X M I N ,
AT 20,16,"XMRX=",XMRX
4 1 6 0 P R I N T fiT 2 1 , 0 , YMIN-",YMIN,
inicial de Y obtenemos los puntos que i x-> • x o . x n AT 2 1 , 1 6 , " Y M f i X : " , Y M f i X STOP
3060 INPUT " v a l o r i n i c i a l d e Y? 4 1 7 0 LET XP=EM* I X - X M I N I +3 LET Y
. O
queramos (n a entrar) aproximados a 3070 Input "no. de p u n t o s ? PiEUt(Y-YMINI»24 RETURN
10 MICROHOBBY
TRUCOS
PARA OBTENER DECIMALES
Si queremos obtener un
número determinado de de*
cimales, con este truco que
nos manda José María
Martínez Arbex, lo conse-
guiremos.
o e r PH P M . Y I » t n T <T.HMY>
' IMPI/T numero "-N
5S ¿NCUT PECIMSK.ES • &
40 CEIHT FU P I N CL
Si por ei contrario lo que

pretendemos es realizar po-
tencias con base negativa,
tendremos que proceder a
la ejecución de este peque-
ño listado.
no' • ivâ) . > tur i, i i i . i a p j «tv»2

i
2» niPüT eose • B
do tHPur c-pONtN+t • e
«O CRIKT ru P¡E E>
PARA BORRAR LA PANTALLA SOBRE LA INVERSION DE PANTALLA

B. Morcegas nos escribe, todos los caracteres menos
Hay muchas formas de José J. García Quesada nos no para mandarnos un truco los dos del centro de cada
proceder al borrado total de envía la siguiente: sino, según él mismo dice, linea.
la pantalla, en esta ocasión para corregir uno publicado Este pequeño error se re-
en el número 8 de nuestra suelve de una manera fácil
revista sobre la inversión de una vez desensamblado,
1 0 r e s B r 3 1 B 0 9 TO 3 1 3 ! T j Í E A; n m ( pañi Ja. Al parecer, el fallo haciendo POKE 50012,16.
A , » : "(EXT R
28 H I 1 6 , 8 , 3 3 , 0 , 6 4 , 2 3 3 , 3 P . 3 5 , 1 7 4 , 2 3 8 , consiste en que se invierten
83,22,-B,16,-13.105,175,13
3 0 P R 1 M AT l f l . 9 ; " C L S - H 0 T I I 0 N T J l t . " :
r ; u s c 0 : R 6 ' " ) C ! - ¡ *E US<1 3 I 0 B ?
íu^ülín t i reublcablc. RECUPERACION CURSOR
DE LINEAS EN MODO «G»
Cuando estamos reali- Luis Sotillos Sanz nos
EFECTOS DE COLOR Y SONIDO zando un programa y quere-
mos volver a una linea muy
manda un truco para reali-
zar si queremos que el cur-
Ya hablábamos en el nu- nos explica mediante el lis- anterior a la que estamos te- sor nos salga directamente
mero 13 de MICROHOBBY tado que ofrecemos a conti- cleando para hacer alguna en modo «G», para hacer
de un truco con el que con- nuación, la manera de obte- corrección, bastará con te- gráficos. Para ello, nos re-
seguir color, sonido y par- ner también el efecto de co- clear el número de linea an- comienda utilizar RAND
padeo Pues bien, otro lec- lor y sonido. terior a la que queremos co- USR 4567. Con esta senten-
tor. Ramón Martínez Sanz, rregir. apretar ENTER y pe- cia parecería que todo ha
dir EDIT. con lo que apare- desaparecido, como un
cerá en pantalla la linea de- NEW; pero si pulsamos EN-
10 CLEÑR 3 2 5 0 0 seada. TER. aparecerá el cursor en
20 FOR X=0 TÜ 11: REHD i De esta manera, con este «G».
30 POKE 3 2 5 0 0 + X , I
40 NEXT X truco que nos envia Luis F. En este espacio también tienen ca-
50 DFITÑ 6 , 2 5 5 , 1 9 7 , 1 2 0 , 2 1 1 , 2 5 0 , Clamp, nos evitaremos tener bida los trucos que nuestros leclo-
16 , 2 5 2 , 1 9 3 , 1 6 , 2 4 ? , 2 0 1 res quieran proponer
60 P R I N T U5R 3 2 5 0 © que ir con el cursor de un la-
Para ello, no tienen mas que enviar-
do a otro, un proceso dema- los por correo a MICROHOBBY,
siado lento y aburrido. C/ La Granja. 8. Polígono Industrial
de Alcobendas (Madrid).
11 MICROHOBBY
PROGRAMAS PROGRRMfiS P R Ü G JMi
El i m p e r i o c o n t r a el g e n e r a l 2 0 H
SHADOWFIRE
Beyond/ERBE Revenge, y luego de
48 K
repente un nuevo giro de la
compañía, que vuelve a
Tipo de ¡uego: Aventura interesarse por las odiseas
Gráfica espaciales con dos
P.V.P.: 2.100
programas, uno para el
Commodore, Psi Warrior, y
otro que aparece
simultáneamente para
Commodore y Spectrum,
La compañía Beyond
Shadowfire, que tiene
consigue su primer
además la salvedad de que
éxito importante con un
programa de corte espacial
«rTMTrn»
Psytrom. una mezcla de p ¡ 3 ra £3 •
i» ni
arcade y aventura que
reúne todos los alicientes
que son necesarios en los
juegos de luchas
M É n
Sil í3£'
R
a
• •
«0t
interplanelarias. Sin
m t-
fe
'
'
-ií<:Í- Y-ra-
A
1
tik ¿a.
^ + A...
m m
1
ra •
r u a l - O
embargo, y a pesar de ello, es lanzado en España con Kryxix, el cual tiene en su Lo más curioso del
Beyond avandona su estilo una versión para cada poder un microdisco con programa es que tanto los
«galáctico», y decide ordenador en cada una de los planos de una nueva movimientos que
finalmente entrar de lleno las caras de la cinta. nave, Shadowfire, con la realizemos como las
en los juegos de aventura La historia en la que está cual seria posible llegar al instrucciones que damos a
con un programa, Lords of basada el juego tiene claras planeta donde se esconde los personajes, se
Midmght, considerado por influencias de las epopeyas Zoof. transmiten a través de un
la crítica internacional como galácticas cinematográficas, Nuestro objetivo es utilizar panel donde hay una serie
uno de los mejores y más concreatamente de al comando Enigma (un de dibujos cada uno de los
programas de aventuras, «La Guerra de las grupo de guerreros al cuales nos servirá para
además de tener unos Galaxias». servicio del imperio) para hacer cosas diferentes,
grádeos sensacionales. El General Zoff es un traidor conseguir rescatar a Kryxix, igual que si dispusiéramos
Tras éste, llegaría la al imperio que tiene utilizando todos los medios de un lápiz óptico. De este
segunda parte Doomdark's prisionero al embajador de que disponemos. modo, estamos ante la
12 MICROHOBBY
aftMftS PROGRRHRS PROGRRMRS PROGRAMAS
primera aventura en la que para llevar a los personales superior de cada una de las
han sido suprimidos los de un lugar a otro y que diferentes pantallas y nos
lexlos. solo puede utilizar el indican, mediante diversos
Durante el juego podemos androide Manto. colores, la situación en la
acceder a varias pantallas Pantalla de Movimiento. que se encuentran los
en cada una de las cuales Aquí es donde decidiremos personajes.
podemos realizar dilerentes la dirección que va a seguir Nuestro comando está
quizá hayamos visto en más

de una ocasión, ésta está
R a 5 B B I muy bien llevada en todo
H momento. Es una aventura
diferente a todas las que
B T iaiE:.-.:."-^,- .ZlPi i M hemos visto hasta ahora,
tanto por su tratamiento
¡WÍ ! r * como por la cantidad de
* * ® * detalles originales impresos
IS
en el juego, como por
m <1 "U0 eiemplo, el hecho de que
se iuegue a tiempo real, o
de que exista un programa,
que aparecerá en
septiembre, que nos
permita cambiar el juego y
dotarle de nuevos
elementos.
misiones: nuestro personaje, siempre compuesto por seis

Equipo Enigma. Aparecen que. por supuesto, ésa esté personajes, cada uno de los
todos los personales de libre o dispongamos de la cuales tiene unas
este equipo y podemos llave que nos permita abrir características peculiares,
elegir con cuál de ellos la puerta. que debemos de conocer a
vamos a actuar. Pantalla de Batalla. Es el la perfeción si queremos
Pantalla de Objetos. Se lugar donde podemos obtener resultados positivos
pueden recoger, soltar o ordenar a un personaje en nuestra misión. También
activar objetos, además de entrar en combate, o bien es necesario conocer a los
utilizar el arma con el que defenderse cuando la enemigos. Originalidad * * * *
estará dispuesto a entrar en situación lo requiera. Valoración. El juego es de Gráficos * * * *
combate. En esta pantalla Pantalla de Comandos de una desbordante Sonido * * *
se encuentra también el Misión. Aparecen en todo imaginación, y aunque está

basado en una historia que Valoración • • * *
transportador, que sirve momento en la parte
13 MICROHOBBY
PROGRAMAS PROGF
I
La f u g a d e S c u d m o r e tiene la peculiaridad de
hacer que nos volvamos
invisibles por un corto
MONTY 15 INOCENT periodo de tiempo. Olro
punto importante que debe
ocupar nuestro interés, es le
armería donde se
encuenlran una serie de
armas que contienen cinco
balas cada una.
Durante el desarrollo del
luego encontraremos
muchos personajes y
diversos objelos: policías,
esqueletos, a Mad Axeman,
Monty es un curioso
personaje, famoso
entre muchos de los
usuarios de Spectrum por
ser el protagonista de una
sene de juegos.
En esla ocasión, Monty ha
sido desterrado a vivir entre
asesinos, incendiarios y
criminales bajo el peligroso
mundo de la prisión de
Scudmore. Su amigo, el
roedor enmascarado Sam
Stoai. está dispuesto a
conseguir la libertad de
Monty, y ese es
precisamente nuestro
objetivo, conseguir que
Sam logre su propósito.
Tenemos que recoger una
llave de la oficina del
Alcalde para abrir la puerta
de la celda. Hay ocho llaves
y ocho puertas, por lo que
adecuada. Ello nos obligará con la que probar suerte. el Jefe Loco, el Alcaide,
será necesario que las
a regresar en más de una Monty ha colocado unas horcas, celdas de
probemos una por una
ocasión a la oficina para botellas en el camino con confinamiento, fantasmas,
hasta lograr dar con la
recoger una nueva llave una poción mágica que armas con cinco balas.
14 MICROHOBBY
AMAS PROGRAMAS PROGRAMAS PROGRAMAS
calaveras y un sin fin de moverse en cualquiera de original con un buen pantallas del juego están
cosas más. las direcciones, además de tratamiento, que quizá al bien construidas.
En juego es muy imporlante recoger los diversos objetos principio pueda parecer un
el tiempo que empleemos que encuentre en su poco flojo, pero que va
en realizar nuestra misión, camino, cada uno de los aumentando de interés Originalidad * * * »
ya que éste va a ser el que cuales podremos utilizar según vamos pasando de Gráficos * * * •
determine la puntuación con una finalidad diferente. una pantalla a otra y acaba
Movimiento * * *
que obtengamos. convirtiéndose en un juego
Nuestro personaje puede Valoración. Un programa algo más que divertido. Las Valoración * * *
MICROHOBBY 15
INTERFACE MONITOR
le sacamos jugo
BDCEDAO larDBKIflT AB al fruto de la

CMMUOOX
ea.H-t/1
MM WVW
DTDO investigación
impresora calidad margarita
SE CMCTI PIKCRMCITC
SEIKOSHA SP 8 0 0
UHISK EXPH5MM5
« nsiaint NU
m e HKiKticH SPECTRUM con tratamiento de textos
(copy gráfico incorporado)
LAPIZ
OPTICO w
al imentador hoja a hoja
3 ü X CELES DE ZDCXJ
también impresora-plotter -
• AS DE FUdCiaUES
CASSETTE V CJICRDORIfE RITE MAN F* ^ ^
IPul'HIBVa'fJUWEB
rECE5iTamo!>
REPREiErTflirTEb
PílPfll TODA
IF SONIDO
POR TU TV Empana
CCUPRTX BLE J D V 5 T I C K
CGCISIBLJE CIAS REALISMO
tm
M
(DPsasrju^tD m m m t m M r a a i i w g
Ficheros aleatorias
tiempo medio de acceso 4 seg
amplia la memoria de tu
spectrum hasta 98 k
nueuos comandos basic
al fin tu microdriue funcionara
como un disco de uerdad
PIN SOFT
ven a vernos o piuelo por correo a
PASEO DE GRACIA 11 ESC C 2 4

0 8 0 0 7 BARCELONA TEL 9 3 318 24 5 3
tn
co
I I I
rt ChO
i
- ^ 3 > . ..
0J 'I- cu N
a 1o
1- H:
(ú o UJ
UJ
01; 1 o 3 -o u Z ü
* ** w <r> <-o V) o
y> t-
A• ©K c01 -
*aii) - o
O tuo
(-i cuN
oí ctctf o
3
U £ c
^
IH»
L>
ZIU3-1I c
fojoci'H
*• t i c+e
J J
_i i- Q.—
a tajai
J K
iti a
(_« a - fe '
a.
v
IÜT»
o
z sü
Z í zM oo o Z
lijCt
M
u
* lO: :
lOX ll
w a rt r
a: Z- 1(0
l- : lu en • oo uj -Ifs. i-
i-o* lliIz © H;
0l v> Irt o
* i^H
• -
* 0= : ao
m GJX rt«
a
ua© - : >
O w©
cu II - |u ow ou O?
©
_J CP r» -Hifi o * CCCE OO I-
ftj a (7 * Q<ÍHfi H Z I- : Z t- 13
»©a :R ha
h <HU> 11no
*
£
Z 3©cn
>\-
-tn -wat-i * IÜ3C - h (E aia «OH
ZWCO ©OJO • ** c -a II x »>i 31 II 31
IUI-H > bz ujaoihiijo LULJl—
l ll- xl- A: ifi
jacnzirti- 33335™!. '(/) (Ef
_ 1-
*
T-
o_JZZ>IL
a a » Ha xaHZ xt-za
HD
Z<Jia a3o
d c r a i H o r í - •> CLXXX3 Z W IM dHiO-HM
-
_
U. aactctcív auja© OOOUJUJ
M
ÜMH M a
u. (Lm a luadoaujujoa ujoaujiuiuz
UJ ir) Hwoaao oocjoa-aao •
c m
ti.aa.zz m Ma a aai-tLaz-iu-a ziLazocaH
a ld z
rtOIrtZ* o> r-®<7i 00100 © ÍS Q O u"iía>0>0 dHdÎrlflHHH
•Hoto-"* T t * i n > o i w
cu o soossH()SQ<miio aioosooo OJ
«¡OtJirt®rtOrt(-ci^v0iD|£iifi-r^ CT'SWoiSrt <yrt
0*: CSCRffi ff' » oirwUíiD rto^rtrtcy ©o soogosai® Ortrtrtcucu
01 CP <71OIZC<T'
m C71<JIJ<JI C OI CFIW CFIIJIOI ~ rt <V " Qrtrt rtrt^lrtrfrt | rt
o O O a+
in o a. -x
OJ * >t * + * *n tu» -
a <^rt
a. * * a o
<A >
lli X' * O * i-i z ax3>
41 aí oí t-
Z * H * "O
L Ti z (A +P* * +* » n * * a * 1fi * o <r o
<*
<9 (0 m ** d * ll * * * li-'l— O
O -t u -- * M ** es ** ujio-'a *
*
—tu a O
M o a l- O
* ÚCl * t-h
E s * tu
<¥
¡LOJÜJ a o 2 10 ** j ** a 10 - *
O * a + Iti * * a. -t
:: :<v
w+a
*
a o UJ w 0 *
lf * o * a * * iu -i U.3
uia" GC >n + m * u a * (D t ifl * a rt no) - C
a o O) a *
*
III •»» o : -o - O \ *
a
* * s » a UJ * a ortfoHco-"
a©* ii x i +
D * o *
*
• o + a * a
*
la OI "a- - T ¿o<J- ii (n * o o>-ow

* +O O w* ©a oooox?
luí * a * a
H • * ü * o * <n
* _ J oi-i-i-H- -c
— tu ai • > •o * 3 * a lflf
*
1 # * * a. n O *
+ D > ^rtUrt a h ©o
Ji-noe-t* i'ui ii©ujiri
3<_i-ifU - O » O
o * Ü * o 1* a IJGOGCL
a«<J II
* * lf * * * *
+ o » O * ii ^rnocaâ
CttD*i- II « z—
«tu©©
J<uü> -¿ÜL |-íUiJZ>.0 2 *
.*
*
+* + UJ ox y*- r
*
* *
*
*
*
* * ^ # * H sut:
a rtiti iü z z i / ) H Q.
3 t- a z UJ Olí) z *
OZj-Oltfl-UlV- UJm: 3 o O n vanan
wowoa a z a t-t-aaH - - xx«
ooiuwooaeurt wuja: az
â
I-IÜIÜ QUJQ.UJ aa i 1t u Q w a u_ccii.ii. u ®o-i_iii-u_a — X zzaniH
iftajsía-i--» OQ.: a -" a a
IM
lll • z
I
Otfflcitu^lrtiíní r-concnou)
O
3
**
O OÔQO
oí oînior-
o
rt s
o
oj.
o ©®rtojo i
-wseOHs©
rt®rtrtrtHrtJ, wrtr-rtUJrtrt
r-.©<oa ®®in®oi<oii (wooot <n ••
gifficri-otcmw i fficieo^t- a j J -Hrt
<3
I
CO C
rt4 h(r ..
O
« + O
j_L>
£ 10 Z-
ü -a
1»
O *
O z «oa<- •9
w a ÜZ n
+ e c
OJ >f « ZUJ»
ara : IB
tu ÜI "O m
(0 Hrt.»o : _>
o
z Z y. <- x aD
o ir H
Hi_ o
j h
o mU 5> :í
lit » Ô .«L
«
Oí ¡n O Ouw I- ©<« ©
ó r ™ "D — i» a ns©©oj
z «I H OLH c
II w a 0> uudmtu t H-IUhO
ZHhZrt^Dj-
>-
1- IX u íl» </>
a OJTO h i- a© HXXHCOl
ü •ü JL n a 3 o 3 tu iüu.aN aiuiiJa oazo
UJ > p _l JH azzaunwo
ll m '/;-. ' i
0) 4SXh -O
E ©O©© UOCU©
<3 c >.©©rt
©
O Wrtrtrt
o;» v>
0)
C yo
O eo <j> o O.
*J E c "5
c O) co
©
<n ra
N*« .a
©
c
o ce O
0
0 o "O O)
a c d)
o (0 c«u
3
O o
I u.
Oí *
*
+ * * * * m
z
1-1
o
z
a
Irt
* *
©
* M
* **
(U (V ' <ü co 4) ¿ O O * tz
o ' S * 10 * t- *m a
ai c o 8 o » a© * o * tu a rtrt
H
H
c o x * a
©
£ N » ^ .52,= * m a ruó».
*
cu ® —o C a
XL % 5 "O
~ o o
• ai c 8 5^ 3 ~ *• o •• I- m a t>
o 3 trt *• OO--
• O •f ov O CT ™ o < ^.c ta o
©
O a * a i* © UH-u
N <0
U
o v> — * 3 i* a ifl «8SL
w O "» S -I £9 s s —i *
- 3• «
r»e©
> 4 **
O *•
5 T3 .2 O) » K M
*
: s : n *o —• E S
_ I ?
<D o CTo * ^ + * ** * aÜJOjiXU
* o 2
so
• « • ©
: c : r» « « I «3 o> « c a> <Ü u ^ § •D ©c M « (0 '5 r
2 a
a zaat-
c (0 O nj 8 1= » rsicr
a i a+ «c m i"M a> OJ = u o aoow
a
ove « OI « -o « - 2 > i-
CJl © ñ « ~ o co a m au.ii. j
t3s2J3s2í v H í M o 15 " c w.
6
w nj W Q oírt rt(\|0*
^t©©©
o z "S E O
C
£ o> a)w C
(•HO
ubojoaasbuiij > eo O
°
I
s « JJL&Ú&Ú6JJZ V <D C w 2 « 3 E M
o -o <c
-ro
5 Si11
.1 j
os «
o
É a
3 | g 5
£ 5 a o o
«
o
© ©
ro O
o •o
o
O i: S
s« CM
0) A
v •¿ o o ra
2 c
3E
I
•O u
~ m ' £
c a - w
4 ra o w <3
v ra o a « 5 -u O 3 o» E
Ifl W T3
0 ra o E u) ra •cra —o "E « °
a> 3
3 ¿i
£ y O Oí w
> i2
.2; ra Qo>
ra o 3 0
tu a>
z *
M-0
LÜ 1 O
• Ü
w
> O
C0 -o c3 i- en 0) 1
él Cj) y ra aj O u
« I_ .ra O (O
-o 2 •b m .
™
2
*
U "O ra ra£o o
ai c * y £ "O
=n JS
3 0) - 5 c « (fl •c
o wt
ra
o cr ü ra
CL \/l íj : J ra «
T3 w
en ra
CL E 'DQJ
•3 u
O
u a) c a>
rtíU 3 C « o a - a) w
o 2 = C ¡D C
ü -o
Q, coL.a o GJ ¿
oí a O «O = o2
•a;
Cío o oE « y
OU1-' : : O £ ra
t-d-- -c O M C O h.
a - H O tu o ra ra ra15
wE ra
QCll. a jO •o « oo Q C JS O! o. o
ii t¡ c c coz
cfc t-UJ Da
ZH <f>Z)
IHJxHtíO
o a o wa oa j o u O o c uí c
o 0) a> T3 CL
ILCLH z a UCLUOCC
a. s>
W I
 A
LL CC 0) ra «
(A n V) %> tu o
_ -o
>
0) O vi as
a> « Ô
ai o ® i) c
0) V- ^*- O» 3 o
•o ra S O u) ü j cr •o o
o
^ fu V)
M o>
V)
S: a
U) £
z >
» s o c
ra
o o «
ra u
o UJ NJ .9
u u o ra <r>
m
-= O
c 0C CC
»-
E w
LU f 5J 0
-1 J w
•ra
o « UJ UJ - ra
ac a o
•O T5 — Q. > o.
a -a ~
0 «o » <5 o <í Q> I » 40 « « ' > o • o C o
3
= ^ > s « r(0 £o ra ra ra fl> O c2 « T3 o o
a 0 E o -ra
c 5 ,
2 > u ra « o ^>
ra J5 3 CL V ra <5 OI E
ra o U co ra q . O
o
3
«
-0) . . T3
HW^Mdlí o —
i w •o o
tfl
07 c
H-rf II 0 •V + 2 5 i o
E E o> . . ai o o> —_ « S O
re js 9
3
C ®
« S
T3 o
JO O
u
0
§ OJ <D- c
T3 •c
V O O 0) a 1 O u
O
ra ra L ra <3 o3
uO 41 yQ":H»
» o
o o
X)
'3 ra c
a HC 11 II "O T) O . o vi 5-¡2 10 c 2 C ^ o ra c ra JO "

_lt- «J ra <n ra
i/I sSí S
0) u 
w
35
0)
ra
t- l-H-a^X a (ti
> ra a>
Q « -O < ra . "O
U
HIUJHUJJJILJZJIU
.
Z UJU- Z W I
U O U <d
« o ra £
I 8 S ra " S ra <D
x vi ra
"O 3 L. i : a c U
r r & ®rac tn
2 c « 8 § O T3 £ ran
'ra
» w O
s
O c>
®o o ra c a
Iz a > S 5ra ol 5
O tfl — X3 T)
cu uiioiTiiniri a o « c ® g> fi
£
to •= c ra o» ra
c5 ¿5
I
o o
•re -re
3 -4id oO- Í5 ;
3 0) CL S=
«
ra
y e° o Si E
«— « & o 5
i
Sí E & c w o "O I 5
0) .Ü 3
Q.
J "2 o
° <Uf o £ o. E C 1 S í 1 i o c ' » c ra C O
I I
en o JS ra c O) V¡
•4 -0L(JI H -T- H -O H 10 r* - « - -O© C« EA
-®H -^ÍH in r-oioi
- -® - - ©
- ©OÍ
- (XI01
-- - - -(©H OOT Ü
©R-aitoo»H »-< -c- H -tn ,-i -ci
^ -HH - TTW©
-®H OIH -10H IO « -H -
* * * * «I «H -ft) - (XI
* * ©H_-©H V W -H H - O O I H ^D ,T ^ « - IFLWH CG
§
Z(- * (O * - - ^ '(TH - -OH -H,H -TÍ
* * * * * * O * ojh -O,*OJ , t£>ru ©OJ
- -TU
N® - O
-
* * I 1 , * (_ * 01 H -10 H "TÍ H.H -O rf -i9 ai -® H
* O * t->- * a * -HR» -®CN •Sd -OJH - --4.H -40 oj no -HW
*
* 3 *
* tu o
a.-'
* O * ©OI -©OJ -
- - © - - ©
©H -
H -H
O H -Cn-^ -H - ¡OH , ® H
H - Í J H H -TF) H
LOFT - H O
* * « - - 10 W
* © * _ o * UJ * ©ID RT N®*-< -®H -(ORF - - O H J S H -TFI OIMNT -
* W * Zu * A * O) - - r t - » ©H , OJW . t£>(XJ « OU - - CI
7 T R * (I * UJ * * -©f^- "-I -U) " O ^ H -fs H -0> H - cr. T-t
RA * A "
* uxo ' - -~
©^ - a i H - -TIW iCrl -
I-1Ü - - -TFÍ CU<-< -FFLOH . <7>H - '•H H
-rtoirt f ) H d to H -r^. H - ntr-w cy
— K © * J *
*
*
(0
3
*
*
a H
© * © * Cio-ifuoD^
x?»a * ((-I +* - - - - -F^RT - W - - -
• i * © * - A. RL » •Otf- -<001 ©RT .FJ^RT . .
®C\I -0(711001
* *> y*- -4OH - rt - f y H n 10 M io<u -OJH
9t
* *
— — • — S
| , RFV
* * * * *
O -ID © H • WH - H
dlOÍ'OCTOH tTH -ttlfl -Njd » Jri Vansa rocana-I0H ^ IRT
Í C¡ Z Z
h - t - - -©)- -HH). 10 ^ ^ H - - -HT_
1 A M
tuiua oui (Kof-ar-ffiftinoH -iioh.flflrt
OH *ÚH . >ÜH .rlüri -INH. O C®H-
flrl
- F a«a ua
—.{ s s
-L/> -FL® -OH -HH
® l D H ® « r t ~ © © H - S f K r t - © 4 H ©(Orf ©OCUONO)
— — 8 HOIO
s e s s s
RTRTÎ: HFTT
®r-f-©(úaiH© >HH® -OH©
H » "tli * cy© -r-
.(010H - © ( f l H . N H -(0 - -HGT
Q -U)©H(0H©
- -T «H - -OlIftH -AIIOH -«JlOH -Ojr-H «O^FLIDI -
— - -i
- - Í
• — • -S
z
- —i—5 * * * * *> * ** *
• • • -Í
m * * •<
* O N 4> V) * * * * *
* H * UJ If * » * * * * * H-
10 * a W CC w J A
|
* *
lf¡ +
*
- • — - f * a • * UJ * a * *
* a *
* — • -C
0
* © *
o
* a
a
* a
H
*
• + <J1
^©iri®o©r-©©©(\i© Mi z> *
*
ü
* \ * * *
3 3 + O * w O * a
z
-> *
Í Ó *
*
<0
a
* 3
©
* «
w M
*
II© 11© II© H© II © 11©* >1a +* * £0 O
I-
U
CL
o oô o o s ^**
* *
- . i en * 3 + H * * a. * d T - © > _H
>_© I _ © © T _r ® ©S *
l * -H 3 * XAIN
Í * O O • I» CL LLJ-— —' —' H * N + H Q
a
*
. - - . .. 2 • + * «Y C
u Cí O<0 Oto ott) O ® OÍD ott) •
* *
** * w * * ** * OuDuûDuDuDuDu < C K l ü UJ
• R * • • - ' rS ra
o
a
h- to m ifí <n in too OZIO T-UM
i l I H J XDOI
ni r tfih- I- H I- I- H 3 1
H-T • • • • J>B o ILIILIO ÜJOUJOUJOÜJOÜJOAÜJ Quieta u a h b j
RF - * i I . R
c
V
UJ
a O ce j» jo jo jojuaa u.aa.0. ziioa
•
<U©S © © © © © S © S © © Q S S ® © 8 G©7>©
I!! Orllf) ifir-®0>® HcuO^í lOtOf-
© ©
Ft-i ¡ I ! !I • o 1 l - f cu o
m HHH^hhhh
B(JL©H (\IOFFI©
HHOlftl ftlOJÍJl©
5 Í t .- ; s S A c -t H
2.
H H H » H , ftl - JS A o
I
©
H ~ -10 W
(0- O
H -*H
-fe
; H - H , ITIÍXI
H- X í -- <3 (O
S -O H g «
~
- - -o C O
<0: 01 ® -^H ©H CJH 7>
O— H H H -H , W - +
c » « U
» -H -lO
3
X
©- OÔH ©t- 0 • «1 • O
<r>
O ra 'c
o - H -H - 0H0 ), 1H0 0
-1 na -O
c
t- 3»
-**
: 2 : CO
0 O ©
o ® -V> -Ti "TÍ
H
*** * •r4 : 2 :
A
T ¿Z¿ % O
Oh H, O
®H JH
*
-tOH Ho• «A
OI H ,01-H -
* * * * * * *
« - a * O u 9 3 O) C
(O * o * •4 * 5 1 S CCFIL' * o
Sra *ra8
* *
01 z * co a «4 ' - - 'C
z oí
tu
- -^HOJH H ,
•^©H -H - woj H- * aH *
* II ** H * Ou 11 w t
• coces i c 9 o"
* * c * h * c
H - -U1 -\¡) IFL O-O * O
*
m G ! OIE3C>
3 * ua 0 2
> =
r u
t-ij + O
*
• ®H JH • UJ
*
O01S©ST?SIOS
— II © 11© 11 © <1 ©* a ** -UJ o T ojoaa
SFF
tiu
t- IOHH -H - H . 01 - tria. H O ©
* >•*
* A « LSAOOÜI
© * ao *
a® • ©
- - -01 -10 •c
* * *
x 3<(rií> a *
WWIOH^H HH o « -OHOHOHOHQ ** 3 SOI 1 >1* 6 O SOOfOgO
o
* * _I I»
. ü.0) * u «o oiaa m
H -H "-H - H , H -0) o *
* *
1111 11 XoZ
*
S " !
o o© 0© O© O© *
- * 3
7*- * * * * T5 2
O (-O * * * +* O -4 \í) tn
ffHdHdH (ZH ffH - a -401 * * * * * * * * * ^ o.a
I H I
QZ ZH 10 0 «) 10® a z h 3
H 1- - 1- - hr l-H 1- h h 3©OE hCH < v>
<1© HCC4- H iiioa l-Xh)-
N
UJ1L. CCQÜJ UJUJUJUJ 3 ra "C © o
a" a.oa ©O -©H©H-
OH ©01 -
-O
(CUJ
cía
UJWOUJOlUOUJOflC JHUJ
j JO j o - i o - i o & o t o a JU-Q. jzja 3J' o .S o O T3
s © ©©© © h s n © u > H s i o h s io oí ®s ©sss©©©©ss©or>© Q© © e®io© « O ^ ra
io® r ^ o w © - H H O J H «PlH - ^ H - fv.fflffl® H OIO 410 o*© HOJO ra
©ss® ce - © ^ ra
oicu OJOIOJ (0(00 -O - O O - O O «o 0 0 O 4 4 -4 4 4 "í 4 H
© ©S® AEOOC ~ ©
ra w © "O
- H -T H O H OH
cO® í\ceJ- ra ~ra£3i; ¡I 3 ^
O) ü w ©
'
O 5
• osa © ©S _ © R CT„
«TINC 3 T3 W
O. -a ra M
-S • ^ W A-Ü
V.OC
--MIIC or ra ©
—
i
S
ra o
O :
- E» -ra
F
: © ^ ^ © © C £ © v>
. ; P-
®
> O
A> JS
« 3 ra
®
r .> *
01 ©
H H ©w n UUOUUUXu
-1JK.JJJG1.0I
©
<0
O) c
-© 4 - 10 * - * *
-2 _ ¡o
M
Z © ® «© * r- © © ©
N O C UJ
C C
a © - U O
a
H © 0 0
* <* -
am O ©
ato oa
H H H «H
-
* (_iii O Ü IM C
UJQ. ©
H uja
*
O
*
*
H aa aa a
* * * «
* * > * aa aa oa lOaiN 10 Ifí ©
* <0 * © a a a oa © c
UJ -H H H O
* *
C
=5 3 3
©
* a © * lOt^H © 3
O
*
* © a H "C ©• ***** z * * * 0)
** * * * * * O
o •o
U1X * *
* * * * * * *
-rf *
*
* * >- O ©
* \ * I a *
* UJ oc -
-H co®o * * lOOt - * o
* 0 * O * a * - . * 0 * X- * © * © © ©01 * > *
© </>
« Sí c
OCe * 0 * ©(O -
- ©
* 0 * a
0
* * o * O®01
h
* a
* M
0
* - -. * - © * E ü ©
£2 =ra © Wo E
©* ra
a * a © * y- * - - H r»
w «1 H 0 *
H O * © *
* *
1-
H
* *
« 3
0
* * l-t- * * x>koi * a * tOffl H 01 -® * 0 *
ra .E a
*
* * © 911 H UJ - ®H * © * 1^1010 tOHf-
© c ra w 2 rao
£ * ©
a
naca * E » T- -
r-oj© *
-to - * r
*
* * - * -
* * * a
UJ
* * cu c * * CC nv * *
* * ** * * * * * * * * * * CL-(- ct_i_ * * * * * O Ol-O * * * * * - * * * * * c o JD ra a o § «
r
0
a r
zz
(£HH
1-
xaHMxr
ZZF
h
HCIZZI- (roa ar-a arâ © o S©
u> * Q. 7D « S 3 : a :
UJ 0 UJ oaa uoaaujuj
©a z.
UJUJU.Ü.OW
1- H
ato<iH(i©a atoa© 1-
© O c
u.aa -QHQHÜ o
§§
a © a zu.aa.za accnaocr a aaioa V * £ « © ra C -D
0 ©o© 1
N - -
e c o° . y '5 =3 o ra
H1 H
4 ©®s©s©
©©©©©©
H
s
10©f-©0>©
© -®o©r-®
•a
©©8©
H JUO ra o oí ü 5)
H rHHHHrHH
H0101»10®
H -Hf)H|oOJ HOlmOJOl
-©
1s
"o a 2 & « » 2 °
10
(N >H rl< 0) 01
© O
J
s
— ra
E O " O c °
ra ©
o — © V A5 .F
CJ CSJ
s 1 w O)
z o Q > ra O ra OJ
"> £
TJ © » o o B
nj <£w>
N
o .
© O m £ u *
C cc •D 5 ir » %
0) A
"S >. 2 ©
© "O s «
O _
O Q
ra O E ™
S 2
c >
o> O •o
a -o O > o
o
: ? : _0 I '5*
>-
3 u
* u * *
a
• "w £c £
c a w = X
o ;0 U) ra O
Qifi tfl ao -í 1O
5
0) T5 w 3 nr
O ©
%
: i : CTI VI c 0) w o
O
o •o 5 » o u
Cf <
•
Zo4' O •o o (3
-4 S*. •a a cc © w <
ú1LC •CC c»
u
o c o c-J
> a «a
 i O
m 73 c o So -O
flj ®
3 X © o A ° « Ui ,
I
TO hih r* <0 ra _ 3 o S
c«H
u o O o
Olí) (0^
- ,
- (H
O - a -o
_ ra
- "5
ra
N O
| © C
•O 5
» •
o »
£
£
a ra
U O 4>
a •D (_> «
ra
*
n
-
« - H * BÍSt* o c 't ü « SJ ra— u w
w =• ra >• "D
ra « O UJ
w- <0©S> z
- » -
MI) a « 3 a> ® & « o S : ÍO
i-l -f)
-<H ** * * * **
uúú 2 S ^
u 3 o UJ O -- I - o
(VI ® - » r* -
H -01IÍ) -10 •* o<1 •• a— « ü tn "O
s ra « w c I s s
l§ | ^
k. z
%
9 a f, o
c ü
w 2
0 *• o®-. ü«
®»"t - ©H »4 -ÍH . o r > c o o o c c c
(01
VI - -<H H - -s -©
»
OI UJ <1> ••
U
»
*
-
•(>••
í Í I <L> ra w- 3
OOOI -© moi' -' - i •: 4'iflH
•:***** w o
X! ° ® »
Q. : n «o®? S- a. •o 1
5 •* • Ok. o
>- ra ra c« cf o L •• - o
•ra
* 01 - ** - O ©
-W0I' H UK O ra 3 E X) to ra c z * * ce
£ O ) cr ra c
CU - - -ID aAHHÍ-O
t»" c « 3 Ht-
o a» . o •o ™ o — 7" O
rtT* - « E 3
<-l .«101 u
a ouuu_>o
cjjjftc O « Ü. •LBF-OX
c « a. TJ « 0) LL
•* -OCVI - - * - - w £ C o v* • - 2 UÚU JU
OKJL!
1 ? V O
(VI O - -•*(/>©
CJ (TI ^
•ÍOLFFL©
c
O ~ 3 3 « © & o o o O V ra (n SS mm 3rara
rt «H - - - «.
-
- -
-OI01
a a c T e oo ^ w 3
0rt
>*H.rt
P)0. 3 ra o oSS. £ ra §2 9 Z V) 5-i o
ni -©-oso 1
-
cu (xaâto^cinKicu • k. I « w*
- t-H - -h*-1 +• -
acoiDi -®<rp>aio 3
iz ~¿
A ©
i
"SOÜH •QOIHÚHÚ - O ra c3 oo
>-
-p. ^ . , ® « o O O *
o > -O ra c p a.
-o r o ".Q „(0 oü
o © O O «
JO '3 £ = s T3 c s x"
«->
CM ™ © ©
O "O •—
A
C
•O 3 . o O rt
-O
©
o '"O « O
ra o> cc
© < o
a © =5
"o 'E "S O ra a
o
XJ cc ' V Á © o © ra
o o a* © A
o © A c w =
*l T3 O S » - © . ®
* CU < •• ^tf) rt 4>
u
12 © E .2 ® •= « « c
o -.-4 -© >H<-I C
h—
O
(K OI**© -© - - « CU <V
ra
E I 8 8 u o
© « 2 —
— o *« § O• = !
6
- -> -*i(\| ID TtO «
irt vh -rtO - - - o co c3 « i f ra z
K
5
<-)8<ÚT40I -•"(© © O ra 3 © © ¿GJ 2 g "

i/) © c
- -^ftl - -OÍ - - w - l
oí© -ojo -o>r- - « •
H -i ra
N w •o I era©
oí -OI«HHCU - -
. -HOCD - - CU
©01 -H© - v> to © ¿ t< tr<r> -i—• -o
© o QJ i *—
rt - V J H ^ S - © «H«-t (J1 V o 2 ss ® co
A Oo oO< iu ¿ | ^
c .© c ra © « © © RA
u) 3 sí ra •2 .•
© •o -o 3 -O « § 13 -S
-(V0J - -.-T© -
HH -r-s - -©
- -
(Oíd o
*
3
? C
« 0 a o> o
_ © 0 *-
5 o ra ra
ü Sg © ©. UJ <£> - 2
(V ©
T3 A
o & ai S I S
Q ffl £ O 3 •o o o
fu -CUCUÔlO» « - - OI
A
w C
ü a 01 ©ra w >»
© S 2 I<d ,<2¡0^ 3
«
- -»h -<r>
©oí --¿r* ^ -
in
H-H o> <¡> C , — > o V) (0
W tó 0)
° o£ ra © G -s m ÍP 0 8
- lOrC-lTl -O . - - •o Oo E © o o © — < o S ® 3 V
o c Tí a© srai 3
-fÔI - -í-l<J> - Nfl) 01 o) •a ra -3 « 1 "O 'C 1> o o cr
Ort -(O® - Hrt - - 01 O o c « = C © ra O T3 £ ai o ZL i 15 ® m
© u c -S o a - © N
o | OI ^ I
T3 (O © TJ c
•= E ra © = O raO c ©
~ -ra
- -h -o w -®c> a» w .ü ra « .y © W.
-o o> 3 <¡, " 3 ? 0) f ra © ©
ra O
ra I4> "Q. % -a E «ra 5 ^ra|
o © ^ « 3 © ir T)
9
§
ât otH
-<irt -a * - a
o »
5 1
o « C ¿
© © E_ o .52 3 = "I © -c _ C ¿ o •o ra ©«
rgâu)«H c
ra 5 S M o © © c © § © -D © Q.
OJ •aog -úcnp) CJTÍ -a C N © c
.. -0) ra w ü w p3 .8 o E O) o « ©ü
13 © ra c " 3
-cu -</)
-o w
i €c ra • a» 5 =
£ ©
~ —S ra «
s
c «ra a£ 5.o 5 o o) © ra o O! •D u 3
Q ra £ • © "O ra "©ra
©
o co •«- 3 O _ © P c W 3 ») c - O © = l l ? © ¡2 -2 3 © o O
" - h -T-ofn - -<r>
S « 2 > W M "c c 3 ©
© UJ•2 o
ra <5 ~ CC v © •D © "O 3
ra u <5 ra
c
o "J o Ü « o U) UJ S ^ ra o ©
ra o 0) S o S — S w Ol ©ü O co> S
o) ra - » I ra o 5V © c S c
Q
a> ™ E í co ••fz A © 3 ^ = o c X S £Sí •ra
N
é tlM
r c B i
rr r
m
DISTRIBUIDORES EXCLUSIVOS PARA ESPAÑA:
abe analog Santa Cruz d e M a r c e n a d o . 31
2 8 0 1 5 M A D R I D . Tel. 2 4 8 8 2 1 3
Télex: 4 4 5 6 1 BABC E
abe
Z i J Í l
¿L. ¡ ' jÉMÉ'É

IT I Ij
IHLC « *
v
^ *
.y f¡¡¡¡ J<3 ftPJ, 1"

M — ^ .... * MwaoMBMMaai
RUN BABY RUN VIKING RAIDERS MR FREEZE BOOTY
SPECTRUM 16K/48K SPECTRUM 48K SPECTRUM 48K SPECTRUM 48K
«••( i f u a i
M I OH
Wggg
í i w mt¿ léái'jim
t-iuc» * *
Vf • *
I : « / V -- J I
* *
-
i \ ,
^ ¡I
• u •
MR FREEZE EXOOUS ESTRA EXODUS
CBM 64 CBM 64 CBM 64 SPECTRUM 48K
'wrnAs
•.. , ¡ . i
j\
 ^KJH
it i v/tni r i
J » r» »,'H 1
HEADACHE BOOTY GOGO THE GHOST ZULU

CBM 64 CBM 64
P.V.P.: 795 Ptas.

CBM 64 CBM 64
* DE VENTA EN:
- Comercios Especializados - Directamente en a l i e a n a l o g
- Departamentos de microinformática o por correo.
de
ESTRATEGIA
Y COMO RESOLVER
LABERINTOS
Sergio MARTINEZ
En ei n ú m e r o 2 6 se v i o fa f o r m a d e c ó m o construir
l a b e r i n t o s lo s u f i c i e n t e m e n t e c o m p l i c a d o s c o m o p a r a
q u e a Teseo, a u n a y u d a d o d e l hilo d e A r i a d n a , p u e d a
d e s c u b r i r la s a l i d a d e u n a f o r m a f á c i l .
A h o r a , nos surge u n a p r e g u n t a i n m e d i a t a : ¿ C u á l es la
f o r m a d e a y u d a r a nuestro a m i g o e n a p u r o s a salir d e l
l a b e r i n t o d e la isla d e C r e t a ?
Bien, hagamos avanzar a Teseo por con una escalera justo en el centro de
el laberinto hasta que se encuentre con ella, ésta será la salida. Si la entrada es
un muro, en esc momento le hacemos una puerta lateral de la sala, resulta evi-
girar a ta derecha, y continuamos avan- dente que con este método empezare-
zando. Ahora estamos en una encruci- mos a dar vueltas alrededor de la habi-
jada, ¿avanzamos?, ¿lomamos el cami- tación sin que lleguemos nunca a la sa-
no de la derecha o el que va de frente? lida.
Resulta evidente que asi no llegaremos Tanto el listado de este método (lis-
a ninguna parte (en todo caso llegare- tado I) como el del siguiente (listado 2)
mos a hacernos un lio). han de copiarse tal como están, junto
Como vemos, se necesita un método con el programa del n." 26. Si ya tenemos
que de forma sistemática, vaya proban- el anterior en cinta, podemos hacer un
do un camino y encuentre una solu- «MERGE» una vez copiado éste.-
ción. Aquí se verán dos maneras de Las variables h, v y dir significan la
conseguir este dibujo. posición horizontal y vertical en el la-
berinto, y la dirección que seguimos.
La codificación de dir es la siguiente, si
Método de la mano derecha es igual a 0 la dirección de avance es a la
derecha, igual a 1 es hacia arriba, 2 ha-
El primer método para sacar a nues- cia la izquierda y si es igual a 3 entonces
tro héroe del apuro en que lo hemos la dirección es hacia abajo. (Ver figura
puesto es muy sencillo. Consiste sim- 1). De esta forma si a dir se le suma 1
plemente en ir recorriendo el laberinto quiere decir un giro a la izquierda en la
de forma que a nuestra derecha siem- dirección de avance, y si se le resta I es
pre haya un muro. Es decir, si a noso- un giro a la derecha. Las variahles nh y
tros nos sueltan en medio de un labe- nv se usan para ir probando cada una
rinto y queremos salir de el, to que de-
bemos hacer es acercarnos a una pared de las posibles posiciones a seguir.
y después empezar a avanzar de forma En las líneas 600 y 610 se inicializa
que nuestra mano no deje de tocar dir y se hace una copia del laberinto
nunca el muro situado a nuestra dere- que está en a$ a la variable 1$, esto es
cha. Si Teseo hubiera sabido de este para no destruir el laberinto original en
método, no habría necesitado ningún las manipulaciones en la búsqueda de
cordel para salir del laberinto. una solución. Luego, se sitúa v y h en el
¿Cuál es la «pega» de este método? punto de salida y se llama a la rutina
El algoritmo tiene dos importantes fa- que está en la línea 1000. Esta es la ruti-
llos. a saber, que si el laberinto no tiene na de búsqueda propiamente dicha. En
salida nos encontraremos dando vuel- primer lugar, la rutina comprueba que
tas y vueltas sin llegar nunca a la con- no se ha llegado al final, si no es así, se-
clusión de que el laberinto no tiene so- guirá a la derecha para comprobar si
lución. Además, es necesario que el hayonohay un muroalli. Siel lugarse-
punto de salida y el punto de entrada al ñalado por nv y nh no es un muro, en-
laberinto estén en el borde del mismo. tonces se continúa por allí, y si lo es, se
Por ejemplo, supongamos un «laberin- hace un giro a la izquierda (sumar 1 a ta
Códigos de dirección en el avance a través
to» consistente en una sala inmensa del laberinto. variable dir) y se continúa buscando.
22 MICROHOBBY
Listado 1
£50 fit'l
5 6 0 PEM 1
60P LET p * = t « (2S . 35»

610 FOR i e l T O LET l*i.< i*
(11 NE * T
63 h»3 LET VtJ 60 5UE 10

OO
640 STOP
1000
10 10 RE I-I
1030
LET P»=P»«i*
S $sS.TR* h •
>TR*
í « = t * ( 1 TO 2)
IF v r 2 3 AND h = 3 3 TMEN L E T 1
P R I N T RT 2 0 . 3 0 . INVERSE 1
GO T O 1 4 6 0
11 la pos it'f' i r . a 11 d
i n f t n 11 f en anti
3RÍ I F 1 $ <v , h ) < > " TMEN LET L»
1130
t"F" 6 0 TO 14ÍO
114.0
1150 Lpir, i W » » i
1160
11?0 LPERTI N Tv « vRT+ I V - 4 , H - 3 INUERI-E :
1160 6EEP 0.01. 6EEP 0.01,h
1190 so f-'.'E. 1000
1200 REH
1210 L E T U » V - J
1220 L E T b=h*l
12 30 I F t t » " T " T M E N 60 TO 1410
1240 GO S U B 1000
1250 IF t » = - T " THEN 60 TC
260 REM
(70 LET hah-1
1230 LET vmv-1
1290 GO 5 U B 1000
1Í00 IF r _ » . " T " Tt
1310 REM
1320 L E T v =v • 1
1330 LET h " K - 1
1340 6 0 $UB 1O0O
1350 IF t l ^ ' T ' THE
1360 REM
1410 LET * «LEN p *

1420 L E T h » V R L p « < X - 1 TO I
1430 L E T v a V R L P * < x - 3 T O - T-
1440 L E T F ' * = p » < TO * - 4 !
1450 RETURN
1460 P R I N T a 1 ,RT O . 0 . '
14 7 0 P R I N T B l . R T 0,7. FLR5M 1,
RESUELTO •'<
1 4 3 0 RETUPN
Método de la vuelta atrás por ahí no se debe ir, y luego se vuelve en ella. Y cuando un valor se saca de pS
al lugar desde donde se inició ese cami- esta variable decrece. P$ actúa como
no intentando avanzar por otro sitio. una «pila», es decir, el último valor en
Expliquemos ahora un método que
entrar es el primero en salir. Si este al-
no tiene los inconvenientes del ya vis- Para realizar este algoritmo debe-
goritmo se realiza en código máquina
to, aunque en cambio, es bastante más mos solucionar primero un pequeño
se aprovechará el «stack» del Z-80 para
complejo de entender y de programar. problema: Es necesario ir guardando
realizar esta función. La función de
El algoritmo es de los llamados «Trial las sucesivas posiciones que vamos re-
guardar estos valores se realiza en las
and error» (intento y error) o métodos corriendo; cuando a partir de un sitio
lineas 1040-1090, y las de recuperación,
de «vuelta-atrás». Estos métodos se ba- probemos un posible camino, debe-
en las lineas 1410-1440.
san en una búsqueda sistemática de to- mos guardar esa posición y cuando ese
Los lugares por los que no se puede
das las posibles soluciones descartando camino se descarte, recuperaremos la
avanzar son los muros y los sitios ya re-
aquellos caminos que no llevan a la re- posición de partida y verenio si se pue-
corridos. En primer lugar avanzaremos
solución del problema. Es decir, se in- de intentar otra posibilidad.
hacia la derecha, si no podemos, ire-
tenta ir por un camino hasta que nos Los valores de v y h se van guardan- mos hacia abajo, si no hacia airas y si
demos cuenta de que se llega a un cado en forma alfanumérica en la varia- por ahí no podemos seguir, intentare-
llejón sin salida, entonces se marca ese ble p$. Esta variable va creciendo a me- mos ir. por último, hacia arriba. Si nin-
lugar con una señal para indicar que dida que se van guardando posiciones guno de estos intentos tiene éxito, en-
MICROHOBBY 23
I
El laberinto, que puede ser generado con el programa que presentamos en el número 26, se resuelve fácilmente como muestra la
linea verde.
AnD 1 t (nv
BEM S o T v c T o n d < L >. » b e r » r i t o 1000
550
560 REM po r 4 1 -.lodo " i f P*>t 1010 PEM
1C¿0
RUTINA ce BUÍOUEOI 1130 IF l * ( n v , n h I '>
,rih i í t TMEH LET d i t =d t r + 1 GO
570
11 d t r t c h a "
1030 PEM TO 1 0 7 0
530 PPINT B1.flT O,O," H B 114.0 IF U i n v . n h P !••»'• TMEH P R I N T
LABERINTO ío-to IF v=23 ñutí THEM PPI ÑT -3 ,h-3 . •
30 RE I r, c I S I : h p r i »u€ r a NT RT 2 0 . 3 0 . INMERSE l , " » - GO T poicion tí
on i O 11*0 a P a <• I
Ifcló REH 1 1 6 0 LET
1 1 7 0 LET
h=nh
l»(v.hi
V inv
ppirrr RT
oew i'i. i ( (25 , 3S > LET d i f s l
&IO FOR 1 = 1 T O LET L*<1>=4* L060 LET J i í r d i f - 1 -3 . - 3 INUEPSÉ 1 . ' t "
i i NEXT ÍOÔ IF d l i ' 3 TMEH LET dif=0 1 1 S C GO T O 1000
1080 IF d i r - 0 THEN LET d i O 1 1 9 0 P P I N T n i . AT O O.
1090 BEEP 0 . 0 1 , h
1 1100 LET n h i h t ( d i r = 0 » - ( d i r s í i 1200 PPINT 0 1, AT O.?, FLASH L,
PJU hc3 LET U=3 PRIMT «T 1110 LET n v ; v « l d i f = 3 l - l d i f ; l ) RESUELTO ' 1 1
IH'JEPiE 1, * GO 3 U B 1000 1120 PEM 1 2 1 0 PAU5E 0

<£•10 STOP 1 2 2 0 PETUPM
toncos se marca la posición, {en el pro- lución, en caso contrario, no existe sali- gunos rodeos que nos harán calificar
grama esto se hace con «x»). Para saber da al laberinto. I lay que tener en cuen- de bastante «tonto» el método. Esto
si un intento tiene éxito, la subrutina ta que los laberintos creados por el pro- ocurre sobre todo con el primero, por-
devuelve en la variable tS la letra «T»; grama del n." 26 siempre tienen solu- que el programa se ciñe absolutamente
si no es asi, devuelve una «E». ción, y esta última característica del al sistema impuesto.
método no se utiliza en este caso. Si Hay una mejora evidente que puede
Observaremos que para cada intento
cuando se utilize el programa no se sabe ser aplicada independientemente del
se llama a la subrutina en la línea 1ÜÜU,
si el laberinto liene salida o no, enton- método utilizado, y consiste en hacer
es decir esta rutina se llama así misma
ces se debe comprobar la variable tS que el programa se encamine directa-
todas las veces necesarias hasta que, o
después de llamar a la rutina. mente hacia la salida, si es que encuen-
bien se halle la solución, o bien deter-
tra un pasillo que lleve hacia allí. Es de-
mine, después de haber probado todos Este segundo algoritmo se encuen- cir, si se encuentra un sitio a partir del
los caminos posibles, que el laberinto tra en el listado 2. En la figura 2 se pue- cual se «ve» la salida, en ese momento
no tiene solución. de ver un laberinto y su solución. se abandona el sistema seguido hasta
I n resumen, si después de llamar a Después de ejecutar ambos méto- allí y se encamina directamente hacia
la subrutina en la variable t$ hay una dos, algunas veces nos daremos cuenta la salida. Dejamos esta posibilidad al
«T», entonces se ha encontrado una so- que hay casos en que el programa da al- estudio e investigación del lector.
24 MICROHOBBY
micro * i
CENTRAL: Or. Drumen. 6. 28012 MADRID. Tel.: 239 39 26 (metro Atocha)
SUCURSAL: Jorge Juan. 116. 28028 MADRID. Tel.: 274 53 80
SPECTRUM 48K (incluido libro en castellano y 8 cintas): 15% Oto.

SPECTRUM PLUS (incluido libro en castellano y 8 cintas): 20% Dto.
...Y además como OFERTA EXCEPCIONAL, 3 REGALOS:
- 1 libro Basic
- 1 Joystick Gran Capitán (hasta 30-6-85)
- 1 Manual de bolsillo del Spectrum
AMSTRAD 64K (cassette y monitor verde) + 12 cintas de regalo: 67.900 ptas.
Precios en Hardware y Software sin competencia. Somos profesionales.
SOFTWARE SPECTRUM
BASEBALI 1.795 AVALON 1.925
ZAXXON 1.950 COBALT 1.590
SKOOL DAZE 2.295 APRENDIENDO BASIC 1.590
SPY HUNTER 1.975 KNIGHT LORE 1.875
BRUCE LEE 1.975 UNDERWURLDE 1.875
MATCH DA Y 1.975 GIFT FROM THE GODS 1.875
BLUE MAX 1.975 MAPSNATCH 1.590
RAID OVER MOSCOW 1.960 SABRE WULF 1.875
GHOSTBUSTERS 2.620 DECATHLON 1.620
ROCKY 1.750 WRIGGLER 1.450
Si tu pedido de software es superior a 3.000 ptas. gratis 2 cintas C-15 y un cheque por valor de 200 ptas. que
te será descontado de tu próximo pedido.
Todos los programas de ERBE SOFTWARE, llevan la pegatina para el sorteo del 24 de julio, e instrucciones
en castellano.
LIBROS SPECTRUM
ZX-MICRODRIVE 1.300 ¡¡OFERTAS!! (hasta 30-6-85)
60 PROGRAMAS COMPLETOS 1.100
JOYSTICK QUICK SHOT II 2.995
GUIA PRACTICA DEL SPECTRUM 1.100
TECLADO DKTRONIKS (teclas grabadas) 9.990
BASIC CURSO ACELERADO 900
TECLADO SAGA - 1 13.900
BASIC PARA NIÑOS 495
INTEFACE—1 + MICRODRIVE + 4 PROGRA-
BASIC AVANZADO PARA NIÑOS 575
MAS DE GESTION 27.875
COMO PROGRAMAR SU SPECTRUM 850
IMPRESORA SEIKOSHA GP-50S 24.500
CODIGO MAQUINA DEL SPECTRUM 1.200
IMPRESORA STAR GEMINIS 10X (hasta
10", 120 c.p.s. FENOMENAL) 59.900
CUALQUIER IMPRESORA DEL MERCADO 20% Dto.
ACCESORIOS MEGA-SOUND. ¡Novedad! Haz que el so-
C - 1 5 (cinta especial computadora) 85 nido salga por tu T.V. 2.895
Interface T. Kempston 2.495 SHADOW FIRE 1.975
Joystick Gran Capitán 2.500
- LLámanos o escribe a MICRO-1. Dr. Drumen, 6. 28012-Madrid y recibirás tu pedido urgentemente contra-
reembolso, SIN NINGUN GASTO DE ENVIO.
- Buscamos Distribuidores. Venta a tiendas y almacenes.
- Más productos sin detallar. Llámanos, te informaremos ampliamente.
Y recuerda, puedes pagar hasta 36 meses con sólo un 10% interés anual.
PROGRAMAS DE LECTORES
P/C-NÍC
Luis AYUSO DIAZ
Premiado con 1 5 . 0 0 0 Ras.
u
NOTAS GRAFICAS
Spectrum 48 K
U n a p l á c i d a m e r i e n d a en el c a m p o es lo m á s a p r o p i a d o
080
p a r a a d m i r a r el c o l o r i d o y la b e l l e z a q u e le e n g a l a n a 8 5 LET hO*hO+l
7 0 I F hO > 2 6 T M E N L E T b - b + 1 : LE
T hO = 0 PRINT , AT 1 9 , 3 1 ; INK 0 ; "
en esta é p o c a d e l a ñ o . A p e s a r d e ello, c o n este 1 9 , 2 8 , " "
72 IF b * 2 TMEN P R I N T AT 18,31;
p r o g r a m a c o m p r o b a r á s q u e n o t o d o resulta t a n INK 0, "!*"
7 3 I F t = 3 T M E N P R I N T RT 18,28,
«poético». I N K 0 , ••>»••
74 I F b=4 THEN P R I N T AT 19,28,
I N K 0 , "IR" PAUSE 20
75 IF b * 4 T M E N L E T v =v - 1 8EEP
El juego te sitúa en un entorno pri- rendar en paz, un ejercicio de lo más .25,30 LET b>e P R I N T AT 19 , h o
maveral en donde te dispones a disfru- frecuente como habrás observado si ' " , RT i P a t ? ^ ; » 1 » . » ^ - ? ^
9
n 4.2 TO 16: P R I N T RT 4 , 0 , INK 0
tar de una suculenta merienda; pero, eres amante del campo. ": BEEP .1,4+10 NEXT 4 : NEXT
íl GO T O 40
cuidado, unas incordiantes hormigas S0 INK 1 P R I N T AT 0 , 7 ; p : PRIN
Para mover, cuentas con tres teclas: T AT 0 , 2 9 , v
intentarán apoderarse de tu fruta al 9 0 GO T O
1 0 0 FOR
50
f « 3 TO 14 POKE 60018,f
menor descuido. Por ello, tendrás que O-izquierda RANOOMIZE USR 6 0 0 0 0
f+ 1,4+1, INK INT
PRINT AT
( R N D » 5 I ; " ¿ B " , RT
f , 4 + 1, " M U " NEXT í IF ATTR (f +
ir matándolas (a ellas y a unas libélulas P-derecha 1 , 4 + 1 ) > 1 2 8 OR R T T R t I + 1, 4+2) >128
TMEN LET b=4 IF b = 4 T M E N GO T O
aliadas de las hormigas) si quieres me- M-pisar. 75
1 0 5 F O R 2 a• 1155 T O 1 18 P R I N T AT 1+
1,4+1; INK AT 2 , 4 + 1 , INK
INT (AND«5
110 I F Z + 1 = 1 9 AND 4 + l = h 0 THEN L
ET p - p + 2 P R I N T AT 2 0 , h o ; INK 0;
"V",RT 20,ho, OUER 1 , " X " : FOR i»
0 TO 6 BEEP , 0 0 1 , 2 3 NEXT i LE
1 REM MERIENDA..1985 3 3 FOR n =0 TO 3 1 S T E P 2 : PRINT T hO « 0
S
CLS
3 FOR n-0 TO 21 PRINT RT O , 6 AT 2 1 , n ; INK 0,">W": NEXT n 115 I F Z + 1 * 19 AND 4 + 2 » h 0 THEN L
: FLASH 1, PRPER 6; INK 2," P A R 3 5 I F v = 3 T M E N P R I N T AT 18,29, ET P « P + 2 P R I N T AT 2 0 , h o ; INK 0,
&R LA CIN+R ": BEfeP .1.50-n NE I N K 4-, 4 * , R T
40
19,29, b*
I F v > 2 T H E N GO S U B 1000
"X",AT
9 TO 6
20,ho, OUER 1 ; " V " :
BEEP . 1 , 5 5 : NEXT i
FOR
LET
XT n
4 5 I F v = 1 T H E N GO S U B 1100 hO =0
7 GO SUB £000
8 INK 2 PAPER 4 BOROER 4 C 47 I F v = 8 T H E N GO T O 1200 117 I F z + l«=19 AND (4 + 1< >ho OR 4
LS 58 LET ¿ i * + h0I TMEN BEEP , 2 , 2 3 FOR n =4
10 GO S U B 3000 6 ) - C I N K E Y • a " O " ANO a >01 PRINT A 0 TO 5 0 OUT 254,n NEXT n
15 GO S U B 5 0 O T 2,4, INK 2 , " BU " , A T 3 , 4 , " «fi> 119 NEXT Z
25 GO S U B 1500 1 2 0 FOR f » 2 0 T O 3 S T E P -1 PRIN
30 P R I N T AT 2 0 , 0 , INK 4 , " 55 IF INKEY»B"»" THEN GO SUB 1 T AT - f , 4 + 1, " "- , A T f - 1 , 4 + 1 , INK^
00 PRINT INK 4 , A T 20,4,
PAUSE 20 60 PRINT AT 1 9 , h O ,
POKE 6 0 0 1 5 i h o
INK O , "
R A N D O M I Z E USR
.
60
M BEEP .O01, í +20 NCXT f
PRINT AT 20,O, INK 7 , " | 122 LET m=»+l
Z
|
26 MICROHOBBY
1 2 5 I F » > 5 T H E N P R I N T RT 16,INT ",AT 19,0;" (X I BEEP . 0 1 , 2 0 + 0 : PAUSE 6 NEX
(RND * 2 5 1 + 1 , " 1 2 0 2 FOR x = 0 TO 6 6 E E P . 0 8 , 4 11
0 T x
1 3 0 P R I N T RT 1 6 , 4 + l i INK INT <R P R I N T AT 2 1 , X , INK 2;" «¿Jw 3 0 7 0 FOR X « 1 TO L E N b« PRUSE 4:
NOt5>, FLASH l ; g » N E XT X PRINT AT 2 , x , PAPER 6 , b * ( X Í : BE
135 RETURN 1 2 0 3 FOR X E0 TO 3 BEEP . 0 1 , 4 0 EP . 0 1 . C O D E b t I 1) + 2 0 NEXT X
5 0 0 80RDER 4 : PAPER 5 INK 5 C P R I N T AT 2 1 , x ; INK 2 ; " 3 0 7 5 FOR X » l TO L E N C* PAUSE 4
L5 NEXT X P R I N T AT 4 , x , PAPER 6,C*(X) BE
5 0 2 LET j « l LET p =0 LET V«3 1205 LET J - j + 1 : IF j . 4 THEN P R I N EP . 0 1 , C O D E C « ( X » - 6 0 NEXT X
505 PRINT INK 1 , " P U N T O S p , " T RT 0 , 2 9 ; V : GO T O 700 3 0 8 O FOR X - l T O L E N d« PAUSE 4
MERIENDA*" , j ." UIDA5=";v 1 2 1 0 P R I N T AT 0 , 2 1 ; j : LET V « 3 ; G P R I N T AT 5 , X ; PAPER 6,d»(X> BE
5 10 F L A S H 0 RETURN O TO 2 5 EP . 0 1 , C O D E d < (X ) - 6 0 NEXT x
7 0 0 P R I N T RT 10,7, INK 3; FLASH 1500 LET M - 0 LET 4»10 LET ho«0 3 0 8 5 FOR X " 1 T O L E N ( • PAUSE 4
l; PAPER 7 , " FRUTA PERO I D A " : P LET b>0 P R I N T AT 7 , x ; PAPER 6,t*(X> BE
R I N T AT 8,5, 1505 LET CET b * . " < 2 > " L EP . 0 1 , C O D E e * I X ) - 6 0 NEXT X
ET LET d » » " » Í V * : LET €•« 3 0 9 0 FOR x » l T O L E N <* PRUSE 4
' 7 0 5 FÓR'O 0 STI BEEP " X ' T LET LET 9 t « " W P R I N T AT 8 , X , PAPER 6,í»<x) BE
.1.0 LET x . I N T <RNDtl9)+2 LET 1510 RETURN
u•INT <RND»31> LET b r = I N T (RND 2 0 0 0 FOR f = 0 T O 2 0 FOR 0 = 0 T O 7 3 0 9 5 0 ^ ó S ° X » 1 ' ? ¿ X L É N ® 9 » N E PAUSE 4 :
*1» LET i n • I N T IRND +8) LET t i * RERD x : POKE USR C H R t (144+f)+ P R I N T AT 1 0 , X , PAPER 6 , 9 » ( X ) : B
INT (RND+2J P R I N T RT FLASH H , X ; NEXT O: NEXT f „ EEP . 0 1 , C O D E 9 * < X > - 6 0 NEXT X
Í4, BRIGHT b f , INK i n , u k " : BEEP 2 0 0 5 DATR 0,241,217,109,55,27,7, 3 1 0 0 FOR X " 1 TO L E N h ( PAUSE 4 ;
,1,0+2 BEEP .1,0+4 NEXT n 31 , 0 , 3 1 , 5 1 , 1 0 2 , 7 6 , 1 8 4 , 2 2 4 , 2 4 8 , 6 , P R I N T AT 1 1 , x ; PAPER 6 , h * < x ) 6
7 1 0 FOR v « 5 0 T O 3 0 S T E P - 1 BEE 46,71,132,132,67.48,15 EEP . 0 1 , C O D E h f ( x í - 6 0 NEXT x
P ,001 ,v +6 LET X B I N T (RND+191+2 2 0 1 0 DATA 8 , 4 , 2 2 6 , 3 3 , 3 3 , 2 2 6 , 1 2 , 2 3 1 0 5 FOR x « l TO L E N t * PAUSE 4:
: LET y =INT
INT ( R N D * 11
(RND+201+10
LET i O « I N T
LET
(RND #8)
b f . 40 , 1 2 4 , 8 2 , 7 3 , 3 6 , 1 8 , 9 , 4 , 2 , 0 , 0 , 1 2 8 P R I N T AT 1 3 , x ; PRPER 6;i«(X) B
, 6 4 , 3 2 , 1 5 6 , 9 4 , 9 4 , 2 , 8 6 , 2 5 4 , 2 2 6 , 2 2 EEP , 0 1 , 2 0 + x ; NEXT x
LET f 4 * INT (RND+ll P R I N T AT X, 6,76,30,26,94,76,32,22,15,31,12, 3 1 1 0 FOR X « 1 TO L E N j « PAUSE 4 ;
y, INK IO, FLASH Í 4 , BRIGHT br, O P R I N T RT 1 4 , x ; PAPER 6 ; J t ( x ) B
O U E R 1¿ BEEP . 0 0 1 , v +3 BEEP 2 0 1 5 DRTA 6 , 1 , 6 , 1 , 3 1 , 4 9 , 7 2 , 1 3 2 , 3 EEP , 0 0 2 , 1 + X : NEXT X
.001 .v NEXT v 2 , 6 4 , 1 7 6 , 6 4 , 2 4 8 , 1 2 , 1 8 , 3 3 , 1 3 2 , 1 3 0 3 1 1 5 FOR X * 1 T O L E N H • PAUSE 4 .
7 1 5 I N P U T " Q U I E R E S HRS F R U T A ? ( S , 1 2 9 , 6 5 , 3 2 , 1 6 , 6 , 7 , 3 3 , 6 5 , 1 2 9 , 1 3 0 , P R I N T AT 1 7 , x ; PRPER 6,»$(X> 8
/O) " , j t 4 , 6 , 1 6 , ¿ 2 4 , 0 , 3 , 3 , 2 4 6 , 2 5 2 , 8 2 . 7 3 , 1 EEP . 0 1 , C O D E »»<X)-60 NEXT X
7 2 0 tfi j H " í ' TMEN CLS GO T O 4 6 , 0 , 1 9 2 , 1 9 2 , 1 1 1 , 6 3 . 7 4 , 1 4 6 , 7 3 , 2 1 3 1 2 0 FOR X s 1 T O L E N b ( PAUSE 4:
15 7,121,223,89,217,121,223,89 P R I N T RT 1 6 , x ; PAPER 6 , b * ( X ) : B
725 IF j f n " n " TMEN STOP 2 0 2 0 DATR 0 , 0 , 0 , 3 1 , 1 2 7 , 2 5 5 , 2 5 5 , 2 EEP .01,20+X: NEXT x
7 3 0 GO T O 7 1 5 55,127,36,36,230,254,255,255.63 3 1 2 5 FOR X • 1 TO L E N L» PAUSE 4 :
1 0 0 0 F O R X = 2 8 TO 1 S T E P - 1 PRIN 2 0 2 5 DATA 3 6 , 5 0 , 1 0 5 , 1 2 5 , 6 2 , 5 3 , 2 5 P R I N T RT 1 9 , X , PAPER 6 , 1 » < X ) B
T RT 1 7 , * , INK 3; " V " , AT 18 , X , " ,17,8.92,145,236,77,172,152,136 EEP . 0 1 , C O D E l»(X)-70 NEXT X
 " , RT 1 9 , X - 1 , I N K O, MK " 2 0 2 7 DRTA 129,195,231,255.255,16 3 1 3 0 FOR X • 1 TO L E N b > PAUSE 4:
6EEP .01,X BEEP - 0 1 , x - l NEXT X 4 , 7 3 , 1 4 6 , 3 1 , 2 4 , 3 1 , 2 4 , 3 1 , 2 4 , 3 1 , 2 4 P R I N T AT 2 0 , x ; PAPER 6 , b * ( X ) : B
P R I N T AT 17,0, 2030 RETURN EEP , 0 1 , 2 0 + x : NEXT x
",AT 1 8 , 0 , "
"¿AT 19,0," 3 0 0 0 LET *«• D I A DE CAMP 3 1 3 5 FOR X I 1 T O L E N * t PAUSE 4
1 0 0 2 FOR X =0 TO 2 5 BEEP .01,23 O P R I N T AT 2 1 , X , PAPER 6 , » * ( X ) :
EEP . 0 1 , C O D E M » ( X ) - 7 0 NEXT X
6
P R I N T AT 2 1 , x , INK 3;" 3005 LET b» =
NEXT X 3 1 3 6 RESTORE 3 1 3 6 FOR n « 6 0 1 0 0 T
1 0 0 3 FOR X * C T O 19 BEEP .01,40 3010 LET C*« TE ENCUENTRAS EN O 60120
P R I N T RT 2 1 , X , INK 3," E L CRHPO 3 1 3 7 READ 4 POKE n , 4 : NEXT n
NEXT X 3015 LET d|> TERMINRNDO TU MERI 3 1 3 8 DATA 3 3 , 0 , 8 8 , 1 . 0 , 3 , 2 3 7 , 9 1 , 0
1 0 0 5 P R I N T AT 1 8 , 2 9 , INK 2 , t t . A T ENDR... ^91^126^163^176,119,35,11,120,17
19,29,d • 3 0 2 0 LET «*> CUANDO TU FRUTA
1 0 1 0 LET v =2 ES ATACADA 3 Í 4 0 ' F O R ' n = O TO 7 BEEP ,40,10+r
1 0 1 5 RETURN 3 0 2 5 LET f t = POR LAS HORMIGAS. POKE 2 3 2 9 6 , 1 7 6 POKE 23297,n
1 1 0 0 FOR x « 2 8 TO 1 S T E P - 1 PRIN R A N D O H I Z E USR 6 0 1 0 0 ; PRUSE 4 0 N
T AT 1 7 , X , I N K 2 , ' ^ís. " , A T 1 8 , X ; " 3 0 3 0 LET 9»* TU UNICA DEFENSA EXT n
W " , AT 1 9 , X - 1 ; I N K O. • M » Wn " E S MATAR 3 1 4 5 FOR n > 2 1 TO 0 S T E P - 2 PAUS
BEEP , 0 1 , X BEEP . 0 1 , x - 2 NEXT X 3 0 3 5 LET h»« O QUEDARTE S I N FRU E 4 BEEP . 0 2 , 5 0 - n P R I N T AT n,0
P R I N T AT 1 7 , 0 ; " ,AT 18,0," TA. INK INT (RND + 4 1, W m W
w V
" ; AT 19,0," 3040 PERO C U I D A D O CON
1 1 0 2 FOR X « 0 T O 1 5
P R I N T AT 2 1 , x ; INK 8, "
BEEP .04,50
at^rt":
LAS
J & W
3 0 4 5 LET jt* A L I A D A S D E L A S HOR
NEXT X M I G A S V tf >* 3 1 5 0 RESTORE 3 1 6 0 FOR n»6O00O T
1 1 0 3 FOR m í TO 9 BEEP .01.40 3 0 5 0 LET K|> USAR T E C L A S 0-12 O 60035
P R I N T AT 2 1 , X , INK 8 , " QUIERDA. 3 1 5 5 READ 4 POKE 0 . 4 NEXT n
NEXT X 3055 LET (.•• P-DE 3 1 6 0 DATA 6 , 2 , 1 9 7 , 3 3 , 0 , 0 , 1 7 , 1 , 0 ,
1 1 0 5 P R I N T AT 1 8 , 2 9 ; INK 2;c«,AT RECHA. 2 2 9 , 2 0 5 , 1 8 1 , 3 , 1 , 2 0 0 , 2 , 1 7 , 0 , 1 0 , 2 2
19,29;f» 3060 LET M-PI
1110 RETURN SOR.
1 2 0 0 FOR X « 2 8 TO 1 S T E P - 1 ; PRIN 3 0 6 2 FOR X • 1 T O L E N b » PRINT AT 3 1 7 5 FÓR n * 0 TÓ 7 BEEP .20,1+0
T AT 1 7 , X, I N K 2 , " X , " , RT 1 6 ,X;" 0,x; PAPER 6 , b « ( X > . BEEP .01,60 POKE 2 3 2 9 6 , 1 7 6 POKE 2 3 2 9 7 , O P
W " , AT l é , X - l , ÍNK 0 , ' » * W* -X. NEXT X R U S E SO R A N D O H I Z E USR 6 0 1 0 & NE
BEEP . 0 1 . X - * ; feEEP .01,X-2 NEXT 3 0 6 5 FOR X • 1 TO L E N * t PRINT AT X T ft
x: P R I N T RT 1 7 , 0 , " " , AT 18,0; 1,x; F L A S H 1, PRPER 6 , INK 2; 3180 RETURN
LA NAVE
José Luis RODRIGUEZ
Spetfrum 48 K
S o m o s los c o n d u c t o r e s
de u n a g r a n n a v e
e s p a c i a l q u e tiene q u e
a t r a v e s a r el e s p a c i o
interestelar h a s t a
l l e g a r a su destino,
t a r e a n a d a fácil si
t e n e m o s e n c u e n t a los
p e l i g r o s q u e nos
acechan.
En nuestro recorrido, nos movemos
automáticamente de izquierda a dere-
cha. pudiendo hacerlo de arriba a abajo
mediante las teclas «Q» y «A», respecti-
vamente. Nos encontraremos mons-
truos parpadeantes que irán aumen- /
MICROHOBBY 27
PROGRAMAS DE LECTORES
turulo su número paulatinamente y
que hemos de esquivar, y, cada cierto P r e m i a d o con 1 5 . 0 0 0 Ptas.
tiempo, nos aparecerá en la parte iz-
quierda de la pantalla un indicador que
nos advertirá del peligro de un disparo (riuitst i p ^ n t i U í obten GO SUB 2 0 i O GO SUB 2 5 0 0 FOP a =
ira bonos tKtra, PAU3E o cls 1 TO 6 P R I N T AT FN J ' l , F N b«l,
próximo si permanecemos en esa zona. 1 0 CLS
Í = 1 TO 6 0
L E T t=0 LET w a 0
PLOT INT
FOR
T RND » 2 5 6 1 , I
B R I G H T 1,
XT á
INt
FOP » s l TO 5
1, F L A S H i , ¿f
PPINT INK
NE
3,
NT ( P N D * 1 6 S ) NEXT * PPINT BRIO flT F N a n . F N b l I , " O " NEXT FO
HT i . " P u n t u a c i ó n PEE P i s l TO 4 P P I N T AT F N » ( ) . F N b
ord LET n=4 LET P= 0 CO S U U . INK 4 4 NEXT i FOP 4 = 1 T
El 1000 LET «I=12 LET x=0 LET t C 3 P R I N T AT FN a M , F N b ' l , INK
NOTAS SRftFICftS LET
12 LET f=b
G=X
LET g=x LET at=IN
5,"A" RETURN
2 0 0 0 FOP a = 4 0 T O - 2 0 5 T E P - 2 BE
KE . « GO SUE- 5 5 5 0 I F »«= a THE EP . 0 1 . a NE <T a P P I N T AT • , x , "
N LET TITTL IF ti > 2 1 THEN L E T » X LET n e r . - 1 GO SUE 2 0 1 0 LET
•*12 LET x = 0 P P I N T AT • , > , " *
P B C D E 14 I F THEN LET > : k - l I I F n >0 T H E N GO T O 1 2
£ & O * @ F M 2 THEN LET
16 L E T XA» , 1
»=21
if >: 3 1 T H E N F O P
2 0 0 2 PPINT BRIGHT 1.AT
Ha ri na 11z ado
10,0,"
a = l TO 30 BEEP ,01 a
NEXT a PPINT 81. BRIGHT 1, FLASH 1, ' P u l
P R I N T ST 1 . 9 LET =0 LET F i i yna l i t i a - pause o go to 10
• P < 1 GO S U 6 1(300 GO T O 12 2 0 1 0 LET b * « PRINT INK 2,
5 0 CO S«JB 5 5 5 0 LET P = P - - " GO AT 1 . 1 2 , " . AT 1 . 1 2 . b * > TO n )
SUB 2 5 O 0 LET a sftTTft ( i . k i PPIN RETURN
T AT F J . P R I N T PT INK 2 5 0 0 P R I N T AT 1 . 3 . F N ) ( l p l IF p
O 1 60 SUE- 5000 LET a-O DEF F I Í FREEP .01,-10 IF »=BIN 11 >o T H E N L E T i ! f
n >a 1 =«STr» • íef ' t£ TO 1 U L Í O L T H E N GO T O 2 0 0 0 2 5 0 1 P R I N T AT 1 . 2 2 . F N a * t q •
EF FU lllsIllT pPNC*20«2> DEF FN ¿ 1 IF h ' O THE'I L E T I F ... 2503 RETURN
b 11«INT irnd* 3i • i > =0 THEN PRINT AT t . 0 : " 5 0 0 0 FOP ñ = l TO 5 READ A »
2 BORDEA 6 PAPEP ? FOR A - 0 - - - 6EEP .0 5 0 0 1 FOP E = 1 TO 15 STEP 2 LET B
TO 4 0 3 T E F 3 CIRCLE 127.S" A ^ C O O E A t <E1 - 4 6 IF B > » THEN LET
E-T A P P I N T AT 1 2 . O 6PTGHT i 1 -10 BEEP .01 40 P R I N T AT t-0
ÑAUE E S T E L A C IF l = t a T H E N GO T O 2000 5 0 0 3 ' LET C«COOE A*iE+l)-46 IF C
SI 1 9 6 4 ..'OSE L U I * - P O C P I G U 9 THEN LET C=C-7
ET " P R E S I O N E UNA T E C L A 22 I F a=BlN OOlllOOO T H E N GO T
5O05 LET B =B »16 *C. POKE USR "A"•
PAUSE O CL E. 25 IF a « B I N 0 0 1 1 1 0 1 ; T H E N EEEF IE-1)/2+*+<A-1> .6 NEXT E NEXT
ES"
5 PRINT BRIGHT
Ev i t í
i ItJ5TPIJCC I O N
i i. H i t o i t f f y - 1 10 LET pap+SOO GO SUE 2 5 0 0 A RETURN
d i r i j a su nave ¿on • t t ¿t? IF S =e I t J 0 0 1 1 1 1 0 0 T M E N B E E F 5 5 5 0 IF INT I R N D * 9 > » 0 ANO TH
das q i h j i i a »ff i M ' y i <h*< . 1 20 LET p= p * 1000 GO SUE 2 5 0 EN L E T w a I N T (RND*10+1> LET t = I
tí ab»jo> y t u i t t chocar con O
30 IF » . 6 I N 0 0 1 1 1 1 0 1 T H E ' l
NT i R N O + 2 0 t 2 ) P R I N T AT 1,0,
lOi £neihi40l tragándose j . 1 30 L E T p =p + 1 5 0 0 GO SUE
6EEP
250
S S 6 1 RETURN
RUN DATA "FE70301F1F3O70F
lií figuras q u í d«r. bonos E , 11S3C4AS27E42FF99 1 ,"002442618
í * t r as « ? t h } f v í o r.o toe» 4 0 GO TO 12 1422400","0016166666161800","3C4
.-•••••<:• •z-oei p í o * .
•I» i s o o H í i . "
•> i c o o pvnto*
"Cada « e i que » i o o e LET w i p PR INT AT 1.0, 299A5A599423C"
PUNTOS
José Luis SFl VI
P r e m i a d o con 1 5 . 0 0 0 ptas.
1 0 0 FOR y = 1 T O 1 9
7;AT y , l , q » :
£ 0 0 FOR w = 0 T O 9
NEXT y
INK 7 , BRIGHT 1 ; A T
PRINT PAPER
PRINT PAPER 1
0,2»w+l,*,A
T 2 0 , 2 * » • 1 , M , AT 2*<t + 1 , 2 0 , ¥ , AT 2 *
w+l,0,w NEXT u
2 1 0 INK 1 FOR X = 1 2 TO 1 5 6 S T E P
16 FOR y = 2 0 T O 1 6 4 S T E P 16 PL
OT X , y NEXT y NEXT X INK 0
Spectrum 48 K 2 2 0 P R I N T AT 0 . 2 2 , " ( h , v ) "
220.163 PPAU - 5 , 2 DRAU 0 , - 4
PLOT
ORAU 5 , 2 ORAU - 2 4 , 0 ORAU 0 . - 2 4
ORAU 2 , 5 DRAU - 4 , 0 DRAU 2 , - 5
Si la s a g a c i d a d y la r a p i d e z son tu fuerte, disponte a 1"
2 3 0 P R I N T AT 1 , 2 9 , " 0 " , A T S , 2 4 ; "
demostrarlo en este j u e g o en el que tendrás que 2 4 0 GO SUB 4 0 0

2 5 0 LET l s I N T l2*RNDl
2 6 0 I F t - 0 T H E N P R I N T AT 9,23;"
enfrentarte a un d u r o contrincante: tu Spectrum TU TURNO" GO T O 5 0 0
2 7 0 I F t a l T H E N P R I N T AT 9,23,"
MI TURNO" GO T O 8 0 0
4 0 0 LET 1 = 0 OIM » ( 1 0 , 1 0 )
Para desarrollarlo, contamos con un lumna vertical y la tercera será o cuan- 4 1 0 FOP h = l TO 9
LET » ( v , h ) = 0 NEXT V
FOR v a l T O 9
NEXT h
gráfico cuadriculado repleto de puntos do el trazo sea horizontal y 1 cuando 4 2 0 P R I N T AT 2 1 , 0 , INK
A J U G A D A DEL S P E C T R U H "
3,"ULTIM
440 LET qs£ LET C0»0 LET cl=0
que tenemos que ir convirtiendo en sea vertical. 4 5 0 LET d a 1
460 P R I N T PAPEP 7, BRIGHT 1,AT
cuadrados en turno alternativo con el 17,23,"TU a ",C0," "
Dicho esto, sólo queda hacer dos 4 7 0 P R I N T PAPER 7, BRIGHT 1,AT
ordenador. C ada ve/ que al trazar un 19,23,"YO = " , C l ¡ " "
aclaracionesxomo en total hay SI cua- 4 9 0 RETURN
lado cerremos uno de los cuadrados de 5 2 0 I F C0 + C1> = 6 1 TMEN GO T O 6 0 0
drados para llenar el gráfico, no hay po- O
la cuadricula, el jugador que lo consi- 5 2 5 LET H=0 BEEP . 0 5 , 2 5 PRINT
sibilidad de empate; por otro lado, el AT 1 2 , 2 2 ; INK 1 , " T u jugada ,AT
gue se anota un punto y repite jugada. 14,24;" " INPUT -'jugada
programa impide las jugadas ilegales. 8^0 PRINT PAPEP 7, INK 1, BRIGM
La jugada consiste siempre en un nú- T l.AT 14,24," " , j ( , " "
540 LET j0BUAL j f
mero de tres cifras, la primera cifra in- Animo y no te confies, te asegura- 550 LET a aINT (.0/100) LET bba
j0-1004a LET b *INT (bb-10) LET
dica la fila horizontal en la que se en- mos que el Spectrum es un difícil ad- C ibb-10»b
560 GO SUB 5500
cuentra el punto, la segunda cifra la co- versario. 570 IF fal TMEN BEEP .3,0 GO T
O 520
560 INK 1 PLOT 12+16«b,164-16*
a DRAU 16•I1-CI , - 16* C INK O
600 GO SUB 6500
610 IF fc>0 TMEN GO TO 520
750 LET t=t+l IF t«2 THEN LET
10 POKE 23658.0 CLS PRINT A 50 PRINT AT 12,1,"Para dar tu
jugada tienes que i n t roduc i r uri 790 GO TO 260
tal
T 6,13,"PUNTOS",AT 11,9,"JOSE LU numero de tres Ci-fras. La p r i » 800 GO SU6 4000
IS 5ELUI" era indica la fitahorizontal do
20 RANOOHIZE FOR i=0 TO 50 nde inicias tu tra-zo, la segund 62© PRINT AT 12,22, INK 2;"Mi j
BEEP ,02,1 BEEP .01,1-3 NEXT i a es la columna vertical y la te uâda ",AT 14,24,"
30 CLS PRINT AT 0.1, En t i t t rcera ¿era B eitrazo es vert 850 GO SUS 2000
juego aparece una cui-dricula teal o B si es horizontal." 870 PRINT PAPER 7, BRIGHT 1, IN
de 9 x 9 cuadros cuyos ver11 ees K 2, AT 14 ,24 , " " , * , b, C , " "
están definidos por puntos." 60 PRINT «T 21,0,"PULSA UNA TE 860 BEEP .05,20
40 PRINT AT 5,1. El jut?0 cons CLA PARA EMPEZAR." 890 PRINT PAPER 7, BRIGHT 1, IN
iste en trazar la-dos di la cuad 70 PAUSE O BOROER 6 PAPER 6 K 3, AT 21,26, " ";a, b.C, " "
ftcuta tn turno alternativo con CLS 940 GO SU8 6500
el SPECTRUH, de «o do que cuando 80 LET q»m" 950 INK 2 PLOT 12+16*b,164-16•
se coMpteta un cuadro se obtiene a DRAU 16#ll-C) ,-16fC INK 0
un punto y ganaet que «as cua 90 FOR y =0 TO 20 PRINT PAPER 960 LET d«d+l
dro* completa." 1,q»," " NEXT y 970 LET t - t * l IF t.2 THEN LET
28 MICROHOBBY
t =0 THEN PRINT AT 2.2+b+2, ©RIGHT 1;
5280 I F a b = 0 ANO
v + 1 , h ) = 1 + • t v + 1, h
v 9 TMEN LET B f t LET U 1 LET a ( l , b + l ) "- 1
9 9 0 GO T O 2 6 0 i 6705 IF a:0 AND C=0 THEN GO TO 6
2 0 0 0 I F d > 4 0 T M E N GO T O 2 1 0 0
2 0 1 0 LET C = I N T < 2 * RNDI LET a = I N
5 3 9 0 LET » ( v , h i : l » » ( v , h l 550
T (10+RNO) LET b = I N T (10+RND)
5 3 0 0 I F 1 Z = 0 ANO h - 1 THEN I F »<V
6710 IF 4=9 AND C«© THEN LET m<9
2 O 2 0 GO S U B 5 5 0 0
• h - l > » 4 THEN LET a t v , h - l ) = - l PR
.b+1)= 1+B(9,b+ll IF a(9.b+ll>3
2 0 3 0 I F f = l T H E N GO T O 2 0 0 0
INT BRIGHT
í1«C1+1
I,AT 2 +V,2+h-2,l LET
THEN PRINT AT 18,2*b+2, BRIGHT 1
2 0 5 0 GO S U B 6 O 0 0 , t LET U l LET • ( 9 , b + l » = - l
2 0 6 0 I F j V * 0 T H E N GO T O 2 0 0 0
5 3 2 0 I F dÉ = 0 AND h ( 9 TMEN I F a<v 6715 IF a=9 ANO C «0 THEN GO TO 6
2 0 9 0 RETURN
,h+l>:4 T H E N L E T * ( v , h + 1 )• = - 1 PR 550 »
2 1 0 0 FOR a = 0 T O 9
INT BRIGHT 1,AT 2 * v , 2 * h + 2 , t
C IsC1 + 1
LET
6720 IF t> = 9 AND e«l TMEN LET nía
FOR £ » « T O 1
FOR b = 0 T O 9 :
R N D W > 1 T M E N I F • (V + l , 9 i =1+» ia + 1,9) IF •<a + l,9i>3
2 1 1 0 GO 5 U B 5 5 0 0
5 3 3 0 I F a f =0
THEN PRINT AT 2+a+2,18. BRIGHT 1
2 1 2 0 I F f » l T H E N GO T O 2 2 0 0
- 1 , M * 4 THEN L E T B ( v - 1 , h > » - 1 PR
, t LET t.=i LET » (a + 1 . 9 I = -1
2 1 3 0 GO S U B 6 0 0 0
INT BRIGHT 1, RT 2 1 v - 2 , 2 * h , t LET
6725 IF b=9 ANO C«1 TMEN GO TO 6
2 1 5 0 I F j V • 1 THEN RETURN Clac1+1
I F a <v
550
2200 NEXT C NEXT b NEXT a
5340 IF ab=0 ANO V ( 9 T H E N 6730 IF b=0 AND C»1 THEN LET B(a
2210 L E T q i < ) « l GO T O 2 1 0 0
+ 1 , h ) =4 T H E N LET « (v + 1 , h ) « - 1 PR
• 1,11 • 1 +»> (a * 1,1) IF • > a +1, 1) > 3
3 7 0 0 RETURN INT BRIGHT
el=el+l
1, AT 2+v+2,2+h;t LET
THEN PRINT AT 2+a+2,2, BRIGHT 1,
4040 I F d < 3 T H E N R E T U R N l LET LET ftia+l,l)z-l
4 0 5 0 FOR h r l TO 9 : FOR v » l TO 9 5490 RETURN 6735 IF b z0 AND C=1 THEN GO TO 6
4 1 5 0 I F a(V,h)<3 T M E N GO T O 4 1 7 0 5 5 5 0 LET í=0 SSO
4 1 6 0 I F a ( v , h ) * 3 T H E N GO S U B 5 0 0 5 5 6 0 I F a >9 OR b >9 OR C > 1 T H E N L 6740 IF C i l THEN GO TO 6850
0 ET r = l RETURN 6750 IF c =0 TMEN LET Bla + l . b + H *
4 1 7 0 NEXT V. NEXT h
5 5 7 0 I F a > 9 RND b " 9 T H E N L E T f«1 1+a(a + 1,b + l t
4 2 0 0 I F C0 + C 1 > » 8 1 T H E N GO T O « 0 0 5580
RETURN
I F b = 9 AND Co© T H E N L E T f«l 6760 IF C»0 THEN LET «(«.b + D a l *
0 a(a,b+1)
4 5 0 0 RETURN
RETURN
S S 9 0 I F a = 9 AND C « 1 T H E N L E T f . l
6770 I F B ( a + L , B + L ) >3 T M E N P R I N T
5 0 4 0 LET r =0 LET iZ=0 L E T d e =0 RETURN AT 2 * a + 2 , 2 + B +2, BRIGMT l , t LET
i =1 LET i» i a + I , B + i > » - I
L E T a r «O LET ab*0
5 0 5 0 I F ATTR < V • 2 , h + 2 - 1) < > 5 6 THE
5600 I F ATTR ( 2 + 4 + 1 + C , 2 * b + 2 - C > : > 6780 IF B(a,B+1) >3 T H E N P R I N T AT
N L E T r =(• + 1 LET »z=l
5 6 THEN LET f » l
S 6 1 0 RETURN
RETURN 2+a,2+b+2, B R I G H T l , t LET H•1+
5 0 6 0 I F A T T R i v+ 2,h »2 + 11 <>56
N LET a < A , B + 1 ) « - 1
THE 6 0 0 0 I F C = 1 T H E N GO T O 6 2 0 0 6790 GO TO 6550
N LET r a r + 1 : LET ¿C-l 6 0 1 0 I F a i S RND m l . b + l l <fl T H E N
6850 IF C=1 TMEN LET BCa+l,b+lt=
5070 IF
N LET r =r +1
ATTP < v + 2 - l , h + 2 ) < > 5 6 THE LET JV«1: RETURN
1 + » <4 +1,b+1)
LET a r =1
5 0 6 0 I F ATTR (v «2 + 1 , h + 2 ) < >56 THE
6 0 2 0 I F a = 9 ANO B ( 9 , b + l ) < q TMEN
6860 IF c * l THEN LET a(a+l,b)«l+
N LET f i f í 1
LET j V * 1 RETURN a (a + 1 , b i
5090 IF f O
LET ab=l
THEN INK 1
6 0 3 0 I F a >0 T H E N I F B i a , b + l ) < q A 6870 IF a(a+l,b+l)>3 THEN PRINT
h - 4 , 1 8 0 - 16 • V ORAU 16,0
PLOT 16* ND B ( a + l , b + l ) < q T H E N L E T _iv = l R AT 2+4+2.2+b+2. BRIGHT 1,1 LET
D R f i U 0, ETURN t i l LET a Ía +1.b+1)=-1
-16
0
DRRU - 1 6 , 0 DRAU 0 , 1 6 INK 6 0 4 0 LET j v a0 RETURN 6880 IF • l a + l , b ) > 3 TMEN PRINT AT
6 2 0 O I F b » 0 AND > 1 1 * 1 1 ) 1 4 TMEN S*4+2.2*b, BRIGHT l , t LEf 1*1+
5 1 0 0 I F r » 3 T H E N GO S U B 5 2 5 0 LET j V = 1 RETURN * L E T a (A + 1 , B> » - l
5 1 1 0 I F r « 3 ANO 1 = 0 T H E N L E T C 0 = 6 2 1 0 I F b » 9 AND ft(4+1,9)<q THEN 6 8 9 0 GO T O 6 5 5 0
8 0 0 0 FOR « > 0 TO 21 PRINT AT y,2
C0 + 1 LET j v = l RETURN
S 1 1 5 P R I N T P R P E R 7, B R I G H T 1;RT 6 2 2 0 I F b > 0 THEN I F » ( a + l , b ) < q A 1, " " NEXT <j
17,25,C0," - ND • 14 + 1 , b + 1 ) < q T H E N L E T j v ^ l R 8010 IF C0 > C1 THEN LET TU
5 1 2 0 I F r » 3 RNO t - 1 T H E N L E T
c í o
el» ETURN
6250 LET j V i 0 RETURN
GANAS "
8 0 2 0 I F C 0 Í C 1 THEN LET VO
5 1 2 5 P R I N T PAPER 7 , BRIGHT 1,AT 6 5 0 0 GO T Ó 6 7 0 0 GANO "
19,28, Cl," " 6 5 5 0 I F K > 0 A N D t =>0 T H E N L E T c0> 8 0 3 0 P R I N T AT 4,22,1PUNTUACION"
5 1 4 0 I F r « 3 T H E N P R I N T AT
2, BRIGHT l ; t :
Vi2,ht
LET X V . M s - l GO
C0+14* 8 0 4 0 PRINT INK 1 , R T 6 , 2 4 , TU
6S5S PRINT PAPER 7, BRIGHT 1,AT BRIGHT 1 ; " ", C0,
TO 4 0 0 0
5 1 5 0 RETURN
1 7 , 2 8 , CO.
6560
"
I F 1 = 1 AND t « l TMEN L E T
8050 PRINT INK 2,AT 8,24,"YO
cl= BRIGMT 1, ' " ; C 1 ; " "
5 2 5 0 I F U > 0 RND h > l T H E N L E T a C
V , h - l ) o l + » (v , h - l )
Cl + 1 8060 PRINT FLASH 1,RT 12,21,C«
5 2 6 0 I F d e =0 AND h < 9 T H E N L E T *(
6 5 6 S P R I N T PAPER 7, BRIGHT
19,28,Cl;" "
1;AT 807O PRINT AT 21,0,"
v , h + l ) = 1 * * (v , h + 1) 6 5 8 0 RETURN 8100 PRINT AT 18,23;"RtPilet ?";
5 2 7 0 I F a r = 0 ANO v > 1 T H E N L E T •( 6 7 0 0 I F a r O AND C » 0 T H E N L E T AT 20 ,24 . " <• o B) "
v - 1 , h ) ( v - 1 i h ) ,b+1)«1+»(1,b+1) IF
* ( 1
8110 IF INKFY»= *S •• TMEN RUN 80
( 1 , b + 1 ) >3
8120 IF INKEY < *"O" THEN STOP
8130 GO TO 8110
MICROHOBBY 29
SOFTWARE
ALGORITMOS
r
DE ORDENACION (II)
Javier ALEMAN
En este s e g u n d o c a p i t u l o d e la serie s o b r e o r d e n a c i ó n ,
a n a l i z a m o s los m é t o d o s d e inserción d i r e c t a , inserción
b i n a r i a y selección d i r e c t a , los cuales t i e n e n en c o m ú n su
sencillez y r e l a t i v a r a p i d e z . J u n t o a ellos, el shellsort, u n
p r i m e r p a s o h a c i a m á s a v a n z a d a s técnicas.
•MU inserción directa Método de inserción binaria
¿Quién no ha jugado alguna vez a las Es una mejora del anterior método.
cartas, y ha tenido que ordenarlas para En la inserción directa cada elemento
evaluar su jugada? Pues bien, es muy es tratado buscando cuál es el sitio en
posible que para realizar dicha ordena- el que le corresponde ser insertado,
ción usted haya utilizado sin saberlo, el dentro de los elementos ya ordenados.
método de inserción directa.
La inserción directa puede describir-
-2
se de la siguiente manera. Cogemos el
Dicha búsqueda es secuencial: se va
primer elemento y decimos que él por
mirando elemento a elemento hasta
sí solo es un array ordenado. Evidente.
encontrar uno menor. Y la mejora se va
Ahora cogemos el segundo elemento y X • 0 (i)
a introducir aquí. En vez de buscar se-
vemos si es mayor o menor que el pri-
cucncialmcnte, realizaremos una bús-
mero, colocándolo en su sitio. Ya tene-
queda binaria. Esta consistirá en «pro-
mos un array de dos elementos ordena-
i . I -1 bar» a ver si cl sitio de inserción es justo
do. Con el tercer elemento hacemos al-
en la mitad del array ordenado. Si no es
go similar, comparándolo con el segun-
así, probar en la mitad de la mitad, etc.,
do, y luego con el primero, insertándo-
hasta encontrar el lugar. Se demuestra
lo en el sitio adecuado. En general, al
que este procedimiento encuentra an-
llegar aun elemento se le va comparan-
tes, por término medio, el lugar de in-
do con todos ios anteriores hasta que
NO serción.
uno sea menor que él, en cuyo caso es
insertado inmediatamente detrás. En
el cuadro adjunto puede verse como se o(j + i)«o(j) Método de selección directa
¡. j-l
desarrolla el proceso. Tras tratar el últi-
mo elemento, el array está ordenado. Se basa en el siguiente sistema: Pri-
mero se da una pasada por todo el array
Al contrario que los métodos ante-
buscando el elemento de valor míni-
riores, este algoritmo da el mismo nú-
$1 mo. Luego se intercambia con el pri-
mero de pasadas, tanto si los datos es-
mero. Ahora se repite el procedimiento
tán en completo desorden, como si ini-
con todo el array salvo cl primer ele-
cialmente están casi ordenados. Lo
mento, luego con todo el array salvo los
único que cambia de un caso a otro es
a (]•!)»* dos primeros elementos, y asi hasta el
el número de veces que se efectúan
final.
movimientos de datos. Su ventaja prin-
cipal estriba en su extrema simplicidad Este algoritmo es similar en efectivi-
de programación, siendo válido para dad al de inserción directa, comportán-
i • +1
pocos datos a ordenar. Para datos de- dose algo mejor para datos desordena-
sordenados es más rápido que los ante- dos y algo peor para ordenados.
riores, mientras que para ordenados, es
más lento. it
REM - i n t t r c i o n binaria -
SI 2 0 POP i « 2 TO
30 LET x t » a « C i , > :
dt*
LET iZ = l LE
i e PCM - i n s e r c i ó n d i r t c i t - T de > i - 1
15 > : 40 LET a i i a d z I N T <<iZ+de)/3>
3 0 FOR i - 2 TO di* 50 IF x f « | ( i i t l d , l THEN LET d
GD
30 LET x « c » f ( i ,) « - • i tad-1 CO T O 7 0
60 LET m a l tad+1
4 0 FOR J « i - 1 T O 1 S T E P -1
5 0 I F x í > = » » < j . > T M E N CO T O 6 0 70 I F izodl T M E N GO T O 4 0
60 LET « f C J + l , i « « « ( . i , ) 8 0 FOR j - i - 1 T O i Z S T e P - 1 LE
7 0 NEXT J T a t < j + 1 , I =3 í i j , ) : N E X T j
80 LET a t ( j + 1 , ) - x t 90 LET «*(iZ,I»X»
9 0 NEXT t 1 0 0 NEXT i
100 RETURN 1 1 0 RETURN
Inserción directa.
30 MICROHOBBY
Método Shellsort
ESCOCER UN N
I CRUENTO
Su nombre viene de su descubridor
D. L. Shell. También es conocido co-
mo ordenación por inserción con in- «CRUZAR UH* INSERCION
CORRE CTA M U CACA UNO
crementos decrecientes. La idea intui- OC LOS CONJUNTOS CC
DATOS SEPARADOS POR
tiva en que se basa es la siguiente. El DICM INCREMENTO
método Shell presupone que usual-
mente cada dato a ordenar se encuen-
tra muy lejos de la que será su situación
final. Es decir, que si procuramos reali- Jt-G*D
zar los movimientos entre «distancias»
largas, tendremos más probabilidades
de que un determinado dato llegue CAUftAR EL N
I CREMENTO
pronto a su situación final. Desde lue-
SheJIshort.
go, esta suposición es muy discutible,

siendo el principal argumento a su fa-
vor el que efectivamente funciona: El
método Shell consigue tiempos de or-
denación sensiblemente inferiores a
cualquier método elemental.
Este es el último de los métodos ele- En la práctica, se empieza conside-
mentales que vamos a ver. Los siguien- rando los datos de ocho en ocho, por
tes pueden considerarse ya métodos ejemplo, realizando entre ellos una or-
avanzados. denación por inserción directa. Así, el
1 con el 9 con el 17... quedan ordenados
I -i entre sí, y el 2 con el 10, con el 18, etc.
Luego se repite el procedimiento con
X >0(1)
incrementos de cuatro, y finalmente
II • I con incrementos de dos, y de uno en
uno con lo que el array quedará com-
pletamente ordenado. Aunque parezca
m • iNt (II«déla mentira, este procedimiento así descri-
to da un resultado mucho mejor que la
inserción directa o cualquiera de los
otros métodos elementales.
Un problema aún no resuelto es que
n« m + 1 de »m - l
secuencia de incrementos da mejores
resultados. Knuth, uno de los grandes
teóricos de la algorítmica, presenta evi-
dencias (no pruebas) de que una buena
elección es la sencuencia 1, 3, 7, 15,
31..., (2 t n)—1.
La comprensión de este algoritmo
corrí* toooíuw
elwentosarirtir puede ser algo más complicada, aun-
OtL MARCAOO POR que se cuenta con el organigrama ad-
junto. Entre los métodos avanzados és-
te es el peor, por lo que en general, será
0(ll)'X
preferible usar bien el heapsort, bien el
quicksort.
I«I • I
Selección directa. 10 REH - s h e i t t o r t -
15:
20 LET t - I N T (LN d i * / L N 2J-1
30 FOR TO t
40 LET * • - 1 + 2 t ( t - B )
58 FOR i t t + 1 T O d i •
18 REM - selección d i r e c t a - 80 LET X $ • ! $ l i . )
15 : 70 F O R J - i - f c T O fc S T E P -fc
2 0 FOR I - l TO d i • - 1 80 IF x J > 4 É ( j , ) T H E N CO T O 110
3 0 FOR G I L + 1 TO D Í A 90 LET a»<J+k,)•»•<¿,l
CEJ
40 IF 4 T<i,) >AA<j,I THEN LET X 100 NEXT j
« • « « ( i , ) : LET a « « 4 * í j , > LET 110 L E T a • ( j +H , ) " X •
dt l j , ) «X» 120 NEXT I
50 NEXT j : NEXT i 130 NEXT •
60 RETURN 140 RETURN
Inserción binaria.
MICROHOBBY 31
CONSULTORIO
Joysticks obtenemos a partir de la locación del 7809?, pues se- De todas formas, le acon-
abundante bibliografía que gún tengo entendido, se trata sejamos que se abstenga de
Me parece muy bien el arti- existe sobre el Spectrum, o de un transistor. realizar el montaje si sus co-
culo de los joysticks del nú- bien por experimentación nocimientos de electrónica,
José FERNANDEZ • Canillón
mero 8. pero creo que se han propia. no le permiten tener un míni-
quedado un poco cortos, ya mo grado de confianza en el
que ofrecen intertaces para El 7809 • El Spectrum requiere en- resultado {los ordenadores
los KEMPSTON y los SIN- tre 7 y 11 voltios para funcio- son aparatos sumamente
CLAIR. pero no para todos En el número 15, en la sec- nar y absorve una corriente delicados, y el más pequeño
los demás. También me gus- ción «Consultorio», indicá- comprendida entre 600 y descuido puede tener gra-
taría saber cómo han obteni- bais a Eduardo González de 800 miliamperios, depen- ves consecuencias).
do los datos de la página 8. Córdoba una forma para evi- diendo de la capacidad de
tar el calentamiento del or- memoria. Recalentamiento del
Como ya hemos dicho denador intercalando un El 7809 es un circuito in- Spectrum
varias veces en esta sec- 7809. tegrado estabilizador de
tensión, con salida a 9 vol- Lo primero que me ha cho-
ción, lo que es KEMPSTON o Supongo que el mencio-
SINCLAIR no es el joystick, nado 7809, será un estabili- tios y capaz de suministrar 1 cado de mi ordenador es la
sino el interface. Ambos in- zador para 9 voltios. Si es asi, amperio. facilidad que tiene de reca-
terfaces sirven para todos lentarse por la parte poste-
mis preguntas son: Si mira el circuito de fren-
los joysticks del mercado. rior. ¿Me podrían decir por
¿Puede trabajar perfecta- te, con las patas hacia abajo,
qué se recalienta, y si hay al-
Respecto a los datos de la mente el ordenador a 9 vol- la de la izquierda es la entra-
guna forma de solucionarlo?
página 8, suponemos que tios?, ¿no hay peligro de que da, la del centro es la masa, y
se refiere a los ports y datos alguno de sus componentes la de la derecha es la salida.
¿El interface es el mismo
entregados por el joystick. no funcione correctamente y Deberá montarlo después
para el Microdrive y el joys-
Estos datos, al igual que to- dé resultados erróneos? de los condensadores de fil-
dos los demás necesarios tick? Si no lo es, ¿son com-
En el caso de que se pueda tro de la fuente, y es conve-
para elaborar los distintos patibles?
trabajar a 9 voltios, ¿podríais niente colocarle un radia-
articulos de la revista, los publicar un esquema de co- dor. Feriando FERNANDEZ
' 'M-l? l/-lrlH EI* ÉM'E EFin

Ba
r
I I I I - I I I I IT
l'TTTTTTT-T)
n m
//Por menos de 14.500pts.
tenga un verdadero teclado profesional!!
T a c t o y a s p e c t o a g r a d a b l e • C o m p a t i b l e c o n t o d o s los p e r i f é r i c o s
6 7 t e c l a s p a r a f a c i l i t a r el m a n e j o d e l S p e c t r u m # C o n s t r u c c ¡ ó n r o b u s t a y e r g o n ó m i c a
Instalación en 5 m i n u t o s ® M á s de 2 . 0 0 0 unidades vendidas en t o d a España
DE V E N T A EN LOS M E J O R E S S I S T E M A S LÓGICOS GIRONA, S.A.

E S T A B L E C I M I E N T O S DE I N F O R M A T I C A Avda. San Narciso. 24 17005 GERONA Tel. 1972) 23 71 00
•r
• El calentamiento del or- mismo principio, si bien, el las 40 del «48K». una decisión, pida a su dis-
denador, se debe al disipa- segundo resulta algo más V,c*nre QALVEZ - Madrid
tribuidor que le deje probar
dor de! circuito encargado barato en relación con sus varios teclados, incluyendo
de entregar los 5 voltios que prestaciones. • Si no le gusta el teclado el del PLUS, que no es tan
requiere para su funciona- Ambas máquinas son del Spectrum PLUS, le reco- malo como usted cree.
miento. Es perfectamente exactamente iguales, la can- mendamos que se compre La diferencia en el número
normal y no debe presentar tidad de memoria disponible el Spectrum 48K, ya que la de teclas de los distintos te-
problemas. para el Basic es de, aproxi- única diferencia entre am- clados, se debe a que algu-
Para el Microdrive se utili- madamente, 41 K en el caso bos es, precisamente, el te- nos llevan en una sola tecla,
za el «INTERFACE 1». y para del Microdrive y de algo me- clado. funciones que en el Spec-
joystick el «INTERFACE 2». nos en el caso del Wafadri- No obstante, le recomen- trum requieren la pulsación
Ambos son totalmente com- ve. damos que antes de tomar simultánea de dos teclas.
patibles.
Teclados
Microdrive y Voy a comprarme un Spec-
Wafadrive trum PLUS y quisiera saber si
AVISO A IOS LECTORES Y SUSCRIPTORES
este ordenador se puede Hobby Press. S A , con el fin de mejorar la atención
¿Qué es mejor, el Micro-
acoplar e introducir en una que habitualmente presta a sus lectores y suscripto-
drive o el Wafadrive, y por
consola de teclados profe- res, ha abierto una nueva oficina, en la calle Arzobispo
qué? Morcillo, 24. of 4 28034 Madrid, para atender todas
sional de las que existen para
¿Cuál es la cantidad de Ks las consultas que se originen relacionadas con envíos
el Spectrum 48K, ya que aun-
que tiene utilizables el Spec- y suscripciones
que el Spectrum PLUS dis-
trum 48K y cuántas el Spec-
pone de teclado profesional, Asi pues, de ahora en adelante, para agilizar sus pe
trum PLUS?
no es todo lo profesional que
didos y ofrecerle un mejor servicio, le rogamos se din
ja a la dirección antes reseñada, o bien llame a los te
cabe esperar.
Orabiel PASTOR • Mallorca
lefonos 733 50 12 /33 50 16 y 733 59 04 (señorita
También quisiera saber Raquel Jiménez)
Tanto el Microdrive como cuál es la diferencia entre las
el Wafadrive se basan en el 58 teclas del PLUS frente a
• N.° 1 en Inglaterra
Le a c o m p a ñ a la g r a b a c i ó n de M o o n s of Júpiter. • El m e j o r COPIADOR del a ñ o 1985
• Banda original c o n s o n i d o e s t e r e o f ó n i c o .
DE VENTA EN LAS M E J O R E S T I E N D A S DE INFORMATICA PIDELO CONTRA REEMBOLSO, SIN GASTOS DE ENVIO.
Galileo, 25 - Tels. 447 67 03 / 91 51 / 98 09 Nombre

28015-MADRID Dirección Población
Apartado de Correos 14 119 - 28080 M AOflID I Codtgo P Pedido

— V i OCASION
• VENDO ZX Speclrum 16K, leresados en Interfaces y Hard- cluyendo: manuales en castella- til. (965) 101756.
como nuevo, con manual, ca- ware, en general para el Spec- no, cables, salida para monitor, • VENDO Intertace 1 y ZX Mi-
bles y luente de alimentación, lrum, (y ordenadores en gene- interface y joystick kempston y crodrive por solo 29.000 ptas.
debido a cambio de equipo; ral). programas por solo 39.500 ptas. Totalmente nuevos y con ma-
además, regalo cassette con Tenemos conocimientos del Có- Tlf. 4566352 (horas de comida). nual en castellano. También ZX
programas de representación digo Máquina, para cualquier Preguntar por José. Spectrum 48K. por solo 30.000,
tridimensional de objetos en posible adaptación del lenguaje. • INTERESA conocer chicos y con cables, adaptador y manual
perspectiva cónica, dibujo Indi Deseando pues intercambiar chicas de toda la provincia de en castellano. Francisco Rocha
mensional de (unciones de do- estos conocimientos. Interesa- Segovia, para intercambiar Betancor. Crta del Centro, 7. Ta-
ble vaanable. resolución de dos llamar de martes a sabado. ideas e impresiones del Spec ñía baja. 35017 Las Palmas. Til
ecuaciones polinómicas de gra- Tlf. (93) 2290741 Preguntar por trum. Dirigirse a; Luis Moreno (928) 353550. Sin gastos de en-
do menor o igual a tres, un cursi- Javier. Mañanas de 11 a 14 ho- Marinas. Toribio Sanz 3 Coca vío. y envíos rápidos a provin-
llo de programación Fortran y un ras. lardes de 17 a 20 horas. (SEGOVIA). cias.
programa de introducción al có- • QUISIERA que alguien me • VENDO Videoiuego Philips • VENDO consola de video-
digo máquina del Spectrum. con mandara las instrucciones del G-7000 con tres cartuchos in- juegos Atan con caja y manual
abundantes instrucciones, Todo luego «El alquimista» en inglés o cluidos. por 20.000 ptas. Juan de instrucciones. REGALO seis
por 31.000 pías. Llamad a San- español, pago gastos lotocopia Martin. Tirso de Molina, 25. bajo luegos (En busca del arca perdi-
tiago (hijo). Til. 2439760 (MA- y envío. Jesús Agreda, apartado Gandía (VALENCIA). da, Defender, Missile Comand.
DRID). 238 La Laguna (TENERIFE). • BUSCO el esquema electró- Dodge Em,Donkey kong.Space
• MF. GUSTARIA entrar en • SE VENDE ZX Speclrum 48K nico del Spectrum. Ofrezco a Invaders). mando y transforma-
contacto con usuarios del Spec- con manuales, accesorios y pro- cambio esquemas de intertace, dor, todo ello casi nuevo. Desea-
trum 16/48K en toda España y gramas comerciales (juegos y amplificadores, o cualquier co- ría contactar con personas resi-
especialmente en Galicia, para utilidades), a estrenar, garantía sa. Ponerse en contacto con Luis dentes en Madrid. Su precio,
intercambiar inlormación en ge inveslrónica con la fecha en Ruiz Fernández. Avda. de Orí 20.000 ptas. Llamar al 4643458
neral. listados, etc. También es blanco 2.700. impresora GP505 huela 6 03006 Alicante o bien al a partir de las 8 de la tarde.
r
taria interesado en cambiar el con 12 rollos de papel a estre-
original del programa Fighter P<- nar. garantía en blanco 21.500.
lot por el original del programa TV b/n 12" ELBE mod. 1215
Tornado Low Level (Vortex). Car- 9.000 ptas. Urge mucho. José
los Letra. Gral. Pardiñas 14-16- Rafael Díaz. Antonio Maura 3 6 . 2
6 A Santiago de Composiela dcha (OVIEDO). Til. 253795.
i
15000 Tlf. (981) 592116 (a partir
de las 8 de la tarde).
• DESEARIA contactar con in
• VENDO ZX Spectrum en per-
fecto estado con garantía hasta
el 14 de noviembre de 1985 in-
i
i COPION ZX SPECTRUM
en BILBAO
PARA ZX-SPECTRUM
Programas, libros, cursos.
Es un programa que te permitirá
hacer tus copias de seguridad
Copia Basic y código máquina,
OFERTA SENSACIONAL con o sin cabecera gesco-

g> informática. s. a.
1 . 2 0 0 ptas.
C/ Telesforo Aranzadi. 1
- LIMITADA - ENVIOS CONTRAREEMBOLSO
ESCRIBIR A (antes Banderas de Vizcaya)
Apartado 90029. Barcelona Tfno 194) 431 87 60
¿QUE TE PARECEN ESTOS PRECIOS? Código postal 06080
#
La experiencia manda
vMICRO t-r
SINCLAIR - QL luner
HACEMOS FACIL
con 4 Programas LA INFORMATICA
85.950 Desde 1983 reparando
Spectrum's • SINCLAIR
• SPECTRAVIDEO
Y ahora, la ampliación de 16K • COMMODORE
G A R A N T I A : 6 meses a 48K te cuesla sólo.' yiOPtas . • DRAGON
montaje y garantía incluidos. • AMSTRAD
M A N U A L en castellano Llámanos al tel.: 4167385 de
5.30 a 8 de la tarde • APPLE
e
• SPERRY UNIVAC
ELECTRONICA
I O R F R P i n Compositor Lhemberg Ruiz, 1
29007 MALAGA. Tel. 27 30 43 SANDOVAL s a MoÓnir Cokmbi» 39 41
LiluMt 63 l«l 458 61 íl
DISTRIBUIDORES DE Tel 7S3 S4 $4 26016 VADM0
COMMOOORE64 711003 UAttD
Deseo recibir: Pulir Dwmm. 18
• i
o s* Ofif}t
• S I N C L A I R QL a 85.900 ORIC-ATMOS
contra reembolso j G a
s s
a 21 MI ?59 86 13
•
ZX SPECTRUM
• SPECTRUM PLUS 29.999 SLNCLAIH ZX 81 1 (
41 4 11 2( S
O 78036 U I ORO
I
incluyo talón nomin. ROCKWELL AIM-65 ? W )
(
I
6 W A Í
l
R l
i
DRAGON-3?
fWfKWil 100 JWi GmJI 15
NOMRRF NEW BRAIN
ld« 221 73 62 0 trii ?SS 19 M
DRAGON-64
2800< WA0RD I 801 i BARCELONA
CASIO FP-20G
n o M i r n in í/«ti»tl Goiuite. 76 SiMti I
POR1 A C I O N
EL EC1 R O N C A S A N O O V A t S A
SANDOVA.l 3 - Tcts 44SÍSSB 44S7600 « iHt 43 68 61 Mi 831 '0 36
SANXi JVA.i v 6 I<*s 4461833 (8 UNE asi 000? SEGOVA I AHANJU/t .Vídiríi
PROVINCIA TFI • Tele. 44784 SAVl
?60!0 UAnnip
iü
ii Ya estamos abiertos!!
en
a
C/ BALMES, 191, 5.°, 4.
Entre Travesera de Gracia y Avenido Diagonal
DISPONEMOS DE LAS ULTIMAS NOVEDADES

APARECIDAS EN LOS DOS ULTIMOS MESES EN EL MERCADO INGLES
DRAGONTORC POTTY PIGEON BOULDER DASH
POLE POSITION BRIAN BLOODAXE 30 STARSTRIKE
FINDERS KEEPEERS SHERLOCK HOLMES SPIDERMAN
GRAND NATIONAL TURMOIL SKOOLDAZE
HUNCHBACK II WORSE THINGS HAPPEN AT SEA
ii MAS DE 200 TITULOS DIFERENTES, INCLUIDOS
LOS 50 SUPEREXITOS'84 Y LO ULTIMO DE UK'85 !!
TRABAJAMOS CON:
ULTIMATE • U.S. GOLD • OCEAN • MICROMEGA • MICROSPHERE • etc....
ADEMAS CADA MES, TRAEMOS LAS ULTIMAS NOVEDADES DE LONDON

ACEPTAMOS SOCIOS DE TODA ESPAÑA
SHIFT CORP. C/ BALMES, 191, 5 °, 4 ° - 08006 BARCELONA
¡¡MENUDO CAMBIO»
yllévate un
Tráenos tu
SPECTRUM
Renuévate con
INVESTRONICA.
Ahora INVESTRONICA te da El Spectrum Plus es lo más Manda tu ZX Spectrum
la oportunidad de hacerte con el nuevo del mercado. Si tu (sin cables, ni fuente de
microordenador más moderno Spectrum es estupendo; el Plus alimentación) a tu Servicio
del mercado: EL SPECTRUM es fabuloso. Podrás disfrutar de Técnico Oficial
PLUS. un teclado profesional; (HISSA) más cercano, bien
Sólo tendrás que entregarnos tu 17 teclas más que el Spectrum, personalmente o por agencia de
ZX SPECTRUM... es decir 17 ventajas más... y transportes (los gastos son por
...lo demás será visto y no visto, por supuesto lo podrás utilizar cuenta de INVESTRONICA) y en
el Spectrum Plus ya es tuyo. con todos los programas y 48 horas ya podrás disfrutar de
Tener un ordenador Sinclair es periféricos que ya tienes, puesto tu nuevo Spectrum Plus.
la garantía de estar siempre a que el SPECTRUM PLUS es Sólo tienes que abonar (contra
la última. totalmente compatible con todo reembolso) 12.000 Pts. ( * )
el software y accesorios del
spectrum. Además
INVESTRONICA al realizar el
cambia te da de nuevo
6 meses de garantía,
una nueva cassette de
demostración y un libro de
instrucciones a todo color.
No te lo pienses... cámbiate a lo
último, tienes las de ganar.
C) 18000 pfs si es de 16 K
C/ Anbau n ° 80. Piso 5." 1 0 P° de Rondo, n 0 82, 1 ° E C/ Son Sotero. n u 3 C/ Avda de lo Libertad. n° 6 C/ 19 de Julio. n.° 10 2 o local 3
TeffS (93) 323 41 65 323 44 04 Tetf (958) 26 15 94 TellS 754 31 97 754 32 34 bloque I o Enll tzq D Telf (985) 2) 88 95
08036 BARCELONA 18006 GRANADA 28037 MADRID Telf (968) 23 18 34 33002 OVIEDO
30009 MURCIA
C/ Hermanos de! Rio C/ Unwrsidod n* 4 - 2 o C/ Travesío de Viga n" 32. 1 ' Avda de Goslei/. n" 19 A 1 0 D C/ Alores, n ° 4 5 o D
Rodríguez. n° 7 bis Tell (96) 352 48 82 Telf (986) 37 78 87 Tell (945) 22 52 05 Tell (976) 22 47 09
Tel (954) 36 17 08 46002 VALENCIA 6 V1G0 01008 VITORIA 50003 ZARAGOZA
41009 SEVILLA

MicroHobby_029

Cargado por

Copyright:

Formatos disponibles

MicroHobby_029

Cargado por

Información del documento

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

MicroHobby_029

Cargado por

Copyright:

Formatos disponibles

95 PTAS.

Existe en el mundo actual-

Hasta ahora hemos estado acostumbradosa utili-

LOGO La idea es buena, porque de este modo si encon-

PID E ESTOS PRI

¡LA MEJOR AVENTURA JAMAS CREADA!

LA GUERRA ENTRE LAS GALAXIAS HA COMENZADO.

¡¡ACCION Y GRAFICOS COMO NO HAS VISTO

2 0 0 PRINT INK 7 , PAPER 2 , 8RIGH 126,98,98,126,O.O,126,96,4,6,16,

7 : DRAU 0 , 1 1 PLOT 8 0 , 6 0 DRRU 3 8 1 5 BEEP . 0 6 , 8 PAUSE 5 0

3 1 0 0 LET P>1,1)«X0 LET P(1 i£) »Y

do la resolución analítica es muy difícil 4110 I F E ' J < =EM T H E N L E T

Si por ei contrario lo que

no' • iv^a) . > tur i, i i i . i a p j «tv»2

PARA BORRAR LA PANTALLA SOBRE LA INVERSION DE PANTALLA

quizá hayamos visto en más

misiones: nuestro personaje, siempre compuesto por seis

estará dispuesto a entrar en situación lo requiera. Valoración. El juego es de Gráficos * * * *

combate. En esta pantalla Pantalla de Comandos de una desbordante Sonido * * *

se encuentra también el Misión. Aparecen en todo imaginación, y aunque está

BDCEDAO larDBKIflT AB al fruto de la

impresora calidad margarita

PASEO DE GRACIA 11 ESC C 2 4

la OI "a- - T ¿o<J- ii (n * o o>-ow

nifu - <wi wnoOo W

a HC 11 II "O T) O . o vi 5-¡2 10 c 2 C ^ o ra c ra JO "

<-)8<ÚT40I -•"(© © O ra 3 © © ¿GJ 2 g "

¿L. ¡ ' jÉMÉ'É

.y f¡¡¡¡ J<3 ftPJ, 1"

HEADACHE BOOTY GOGO THE GHOST ZULU

P.V.P.: 795 Ptas.

60P LET p * = t « (2S . 35»

63 h»3 LET VtJ 60 5UE 10

1410 LET * «LEN p *

IH'JEPiE 1, * GO 3 U B 1000 1120 PEM 1 2 1 0 PAU5E 0

SPECTRUM 48K (incluido libro en castellano y 8 cintas): 15% Oto.

demostrarlo en este j u e g o en el que tendrás que 2 4 0 GO SUB 4 0 0

•MU inserción directa Método de inserción binaria

go, esta suposición es muy discutible,

' 'M-l? l/-lrlH EI* ÉM'E EFin

DE V E N T A EN LOS M E J O R E S S I S T E M A S LÓGICOS GIRONA, S.A.

Galileo, 25 - Tels. 447 67 03 / 91 51 / 98 09 Nombre

Apartado de Correos 14 119 - 28080 M AOflID I Codtgo P Pedido

OFERTA SENSACIONAL con o sin cabecera gesco-

DISPONEMOS DE LAS ULTIMAS NOVEDADES

ADEMAS CADA MES, TRAEMOS LAS ULTIMAS NOVEDADES DE LONDON

También podría gustarte