REVISTA INDEPENDIENTE PARA USUARIOS DE ORDENADORES SINCLAIR

95PTAS.
"tUTA
-PWSS SA

Cananas 105 pías

UTILIDADES

CARGADOR
UNIVERSAL DE
CODIGO
MAQUINA
PROFANATION
O LA
§
1 MALDICION
ABU SIMBEL
BASIC

GRAFICOS
DEFINIDOS
POR EL
USUARIO
PROGRAMAS

AZATOTH
RANSOM
DESENSAMBLADOR
 iVil • I I I I I [til • til
•_ •1111
ujf/rm
I I I I F II
II 1 1 1 1H 1

¡LA MEJOR AVENTURA JAMAS CREADA!

J t J
£c0
"v<jjT ° Of, „

LA GUERRA ENTRE LAS GALAXIAS HA C O M E N Z A D O .

SOLO TU, A BORDO DE TU N A V E
"SHADOWFIRE" Y C O M O C O M A N D A N T E DE SUS SEIS TRIPULANTES (CADA U N O CON PODERES
ESPECIALES DIFERENTES), PUEDES EVITAR EL T R I U N F O DE ZOFF EL REY DE LA Z O N A NEGRA.

¡¡ACCION Y GRAFICOS COMO NO HAS VISTO NUNCA!!

PIDE ESTOS PROGRAMAS A ERBE, SANTA ENGRACIA 17, 28010 MADRID. TFN.: (31) 447 34 10 Y EN LAS MEJORES TIENDAS
DE INFORMATICA TIENDAS Y MAYORISTAS: CUMPLIMENTAMOS SUS PEDIDOS EN 24 HORAS
 • mm ^mmmmm mmmmmmmmrnmmmwm mm+m m+mmmm+m m

Director Editorial
José I. Gómez-Centurión
Director Ejecutivo
Domingo Gómez

M C R O B a ® ^
Subdirector
Gabriel Nieto
Redactor Jefe
Africa Peiez Tolosa
Diseño
Rosa Mana Capitel
Redacción
José Maria Díaz, AÑO II. N.° 3 1 . 4 al 10 de junio de 1 9 8 5 *
Miguel Angel Hiiosa. 9 5 ptas. (Sobretasa Canarias 10 ptas.)
Feo. Javier Martin
Secretaria Redacción
Carmen Santamaría
Colaboradores
14 MICROPANORAMA.
Jesús Alonso. Lorenzo Cebeira.
Primilivo de Francisco,
7 TRUCOS 9 negrita Para conse u i r la le,ra

Rafael Prades. Miguel Sepülveda

Fotografía
8 PROGRAMAS MICROHOBBY. Desensam-
Javier Martínez. Carlos Candel
Portada 12 Analizamos el «Profanation» la última aventura de Di-
José María Ponce
Dibujos
Manuel Berrocal, J R Ballesteros,
17 Gralicos Definidos por el Usuario

22 SOFTWARE Ordenación».
Cuar1a
A Perera, F.L Frontán, J. Septien, V última parte del articulo sobre «Algoritmos de
Peio. J.M López Morerw
Edita
HQBBY PRESS, S.A 26 PROGRAMAS DE LECTORES. As,ro 1 Ransom
Presidente
Maria Andrino 30 L J T j l f f ^ y y f ^ ^ ^ y Cargador Universal de Código Máquina
Conseiero Delegado
Jóse I. Gómez-Centurión
Administrador General
32 CONSULTORIO.
Ernesto Marco 34 OCASION.
Jefe de Publicidad
Mansa Esteban
Secretaria de Publicidad
Concha Guherrez
Publicidad Barcelona

MICROHOBBY NUMEROS ATRASADOS

Isidro Iglesias
Tei (93) 307 11 13
Secretaria de Dirección
Mansa Cogorro
Suscripciones
M ' Rosa González
M -' de) Mar Calzada Queremos poner en conocimiento de nuestros lectores que para
Redacción, Administración conseguir números atrasados de MICROHOBBY SEMANAL, no tienen
y Publicidad más que escribirnos indicándonos en sus cartas el número
La Granja, n." 8
Polígono industrial de Alcobendas
deseado y la forma de pago elegida de entre las tres modalidades
Tel. 654 32 11 que explicamos a continuación.
Dio Circulación Una vez tramitado esto, recibirá en su casa el número solicitado por el
Carlos Reropadre precio de 95 ptas., cada número, más 25 ptas. por gastos de envío.
Distribución
Coedts. S A Valencia. 245
Barcelona
Imprime M M I MIC M I C R M i r a B MICRO, Í I I C I ^ E W
Roteóte, S A 95 PIAS, J
Cartelera de Irún. Km 12.450 95 P1 95 PTAS 95 PTAS."
Tel 734 15 00 aw
POew iLISt
Fotocomposición MM
Espacio y Pumo. S A tnen u ir - .
Paseo de ta Caslellaria, 268 m §¡§««8»
Fotomecánica
Grol SsLSSSSM
fczequiel Solana, 16 SPTCTRI PIR
Depósito Legal: ^••UHDIA
• E N U S ™
M-36.598 1984 LCARRERAS
Representante para Argentina,
Chile, Uruguay y Paraguay. Cía C3EE
Americana de Ediciones, S.R.L. n o d i A »00«* ' ItlftKKI
Sud America. 1.532. Tel.: 21 24 64 «muBOU ATRHI
1209 BUENOS AIRES (Argentina), Mpcotauuoc M (OLOR
MICROHOBBY no se hace
necesariamente solidaria de las
opiniones vertidas por sus
FORMAS DE PAGO
colaboradores en los artículos
lirmados. Reservados lodos los
• Enviando talón bancario nominativo a Hobby Press, S. A,
derechos. al apartado de Correos 54062 de Madrid.
Solicitado control • Mediante Giro Postal, indicando número y fecha del mismo.
OJO • Con Tarjeta de Crédito (VISA o MASTER CHARGE), haciendo
constar su número y fecha de caducidad.

3 MICROHOBBY
 EL «AULA INFORMATICA»
DE INVESTRONICA
Investrónica S. A. presentó
recientemente lo que ellos denominan el
«Aula Informática», basada en los
microordenadores Sinclair (Spectrum y
QL), que la compañía comercializa en
España. Incorpora ademas, una serie de
programas de desarrollo propio, tanto
para tareas de gobierno de la Red Local,
como para el soporte educacional propio
de las tareas docentes que se realizarían
en el Aula
Para dicha aula se proporcionan todo
tipo de materiales necesarios para su
correcto funcionamiento, tanto a nivel de
hardware como de software.
En este último apartado se incorpora
un paquete que incluye programas de
tres categorías:
a) Soporte de red y gobierno de las
estaciones de trabajo desde el puesto
central del profesor.
b) Software educacional. Incluye
además los lenguajes LOGO, BASIC, y c) Software de desarrollo a base de unidades didácticas y
PASCAL, entre otros. También están programas de enseñanza.
disponibles aplicaciones de utilidad Se ha elaborado una documentación completa sobre el modo
como puedan ser la creación de gráficos de instalar este Aula informática, que se incluye en la oferta que
y el tratamiento de textos. Investrónica realiza a los Centros Docentes.

El «DA Y D» PARA EL QL
La empresa de Software,

Q L & UNIX Work Shop, ha decidido aden-

trarse en el mundo del QL,
adaptando un conocido juego
Real Time Systems ha desa- de estrategia de la compañía,
rrollado un procedimiento que concretamente el IMY D.
permite convenir progromos de De este modo Work Shop
C y Poscal, para que puedan pretende ser una de las primeras
funcionar con los paqueles empresas de Software que reali-
QDOS y CP/M-68 K. ce un juego grafito para el QL. F.I
El sistema sirve para la mayo- precio en Inglaterra será de
ría de los ordenadores 68000/ aproximadamente í. ítX) ptas.,
68008 que incorporan el siste- una < i Ira bastante alta, mas aún
ma operativo UNIX. si tenemos en cuenta que en
El paquete tiene dos compila- nuestro país podría aparecer
dores C y Pascal, coda uno de por casi ef doble de esta canti-
los cuales incorpora una com- dad.
pleta librería de utilidades para
las máquinas QDOS. ti juego ya estaba disponible
Quest Automotion ha hecho tantt • para Spectrum. con* > para
la versión del CP/M-68 K que Commodore. Se trata de un
funciona con un paquete en dis- «Wargame» que reproduce en
co para el QL de tal modo que el ordenador los acontecimien-
los usuarios que lo posean, po- tos del famoso Desembarco de
drán correr sus programos utili- Normandía, el golpe más duro
zando el paquete RTS. asestado al ejercito de Hitler
durante la Segunda Cerra Mun-
dial.

4 MICROHOBBY
 LIBROS Á

EN BUSCA DE PONCE
M u c h a s son las cartas que
c o n t i n u a m e n t e llegan .1 nuestra redacción
FICHEROS
le licitando a nuestro c o m p a ñ e r o Ponce
por las portada* que, semanalmcntc, se
publican en M i c r o h o b b y , y no son m e n o s
EN BASIC
los que c o n f i r m a n la gran expectación
que surge t o n cada una de ellas para
encontrar la habitualmentc escondida
firma del autor.
Este reto se lia «.omplicado mas en el
n u m e r o 30, en el que m i s que una firma,
nuestro querido Poncc se lia marcado un
jeroglifico.
Esperamos que esto sirva de mayor
a h í l e n t e y que constituya un m o t i v o mas
de adición a e s u revista.

[Link]

I FESTIVAL DE SOFTWARE
El c e n t r o D i v u l g a d o r d e la I n f o r m á t i c a d e la G e n e r a l i t a t d e C a t a l u -
ña. h a o r g a n i z a d o e l p r i m e r Festival d e S o f t w a r e , c o n u n v o l u m e n
d e p a r t i c i p a c i ó n b a s t a n t e alto El p l a z o d e e n t r e g a d e p r o g r a m a s
a c a b ó el p a s a d o 3 0 d e m a y o , y el j u r a d o , d u r a n t e l o s p r ó x i m o s m e -
s e s d e j u n i o y julio, h a r á la p r e s e l e c c i ó n d e t o d o s los p r o g r a m a s FICHEROS EN BASIC
que participan. Aquellos q u e finalmente s e a n seleccionados, se- Paraninfo. C. Delannoy. 173 páginas.
r á n p r e s e n t a d o s al p ú b l i c o e n el S a l ó n d e la I m a g e n , el S o n i d o y la
E l e c t r ó n i c a ( S O N I M A G ) q u e s e c e l e b r a r á e n los p r i m e r o s d í a s d e
11ay muchos usuarios de ordenador que lo primero que
o c t u b r e d e l p r e s e n t e arto.
se plantean a la hora de utilizarlo es el manejo de ficheros,
L o s p r e m i o s s e r á n d e 1 0 0 . 0 0 0 ptas. p a r a los p r i m e r o s d e c a d a por muchas razones que van desde una necesidad hasia un
c a t e g o r í a y e n las d o s m o d a l i d a d e s , j ú n i o r o s é n i o r . claro deseo de encauzar sus conocimientos por el terreno
El p u b l i c o e n g e n e r a l t e n d r á la p o s i b i l i d a d d e v o t a r a l o s m e j o r e s de la gestión.
p r o g r a m a s , a t r a v é s d e u n o s i m p r e s o s q u e r e p a r t i r á e n su m o m e n - El libro de C. Delannoy nos proporciona los medios ne-
to la o r g a n i z a c i ó n . cesarios para la creación y manejo de [Link]-
nos. además, la diferencia que existe entre un fichero ma-
Los tipos d e p r o g r a m a s q u e se h a n p r e s e n t a d o h a n sido j u e g o s ,
nual y uno informático.
d e a p r e n d i z a j e o i n i c i a c i ó n , e n s e ñ a n z a a s i s t i d a por o r d e n a d o r , vi- iras la consabida introducción que no puede faltar en
da practica, arte y cultura, y simulación. ninguna publicación que se considire medianamente seria,
U n a b u e n a iniciativa. y que en este caso pasa revista a lo que es un fichero infor-
O Q O O Q O Q c» mático, y dentro de éste el acceso secucncial. directo c in-
o & o> dexado, comen/ramos a dar nuesiros primeros pasos en la
creación de un fichero. Y es precisamente esto, lo que se
nos va a Iralar de explicar durante toda la obra.

SOFTWARE^ < < E V E P A i J T i T

En el capitulo de los Picheros Sccuunciales se explica,
por ejemplo, como se crea un fichero directorio, al princi-
pio con un programa simplificado bastante sencillo y pos-
teriormente. con otro mas general que consiste en un re-
pertorio telefónico
En to dos capítulos siguientes se amplían aún más los
conceptos del fichero secucncial con el fin de obtener asi
un repertorio más completo: grabación de información, la
lectura y los modos separadores, el I M P U T L I N E . la utili-
zación del l ' R I N T en relación al fichero y el listado de un
fichero repertorio. Todo ello acompañado de un gran va-
riedad de ejemplos
El capitulo 5. trata del concepto M E N U y de cómo debe-
mos construir el nuestro de una forma que resulte sencilla
y sobre todo, práctica a la hora de crear.
También se explican, en sucesivos capí lulos, qué son los
ficheros de acceso directo y el modo de crearlos,explican-
do además las ventajas y desventajas con respecto al se-
cuencia!.
1.1 ultimo fichero que trata este libro, es el Indcxado. en
el que se explica en qué consisten los índices de memoria
Se traía de una obra indispensable para lodos aquellos
que quieren aprender el modo de crear sus propios fiche-
ros. En el caso de los usuarios de Speclrum. estos deberán
de adecuar al Hasic de este ordenador algunos de los pro-
gramas demostrativos que hay en el libro, que han sido es-
critos en un BASIC mas generalizado.

5 MICROHOBBY
 »

¡iMENUDO CAMBIO!!
y llévate un
Tráenos tu
? 2-
_ % \ "vCCv _
„ _ • -*í * -

- ¿v^j&MSí-? -
— • • • V.
. i . - — - -

SPECTRUM
SPECTRUM PLUS
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
de! 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 horos 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 S P E C T R U M 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
cambio, 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.

O 18000 pts S' es de 16 K.

C/ Afibou n - 80. Piso 5 o ) 0 P" de Rondo, n" 82, 1° E C/ Son Sotero. n ° 3 C/ Avda de la Libertad. n ° 6 C/ 19 de Julio, n" 10 - 2 tocol 3
Telfs (93) 323 41 65 • 323 44 04 Telf (958) 26 15 94 TelfS 754 31 97 754 32 34 bloque I ® Enll izq D Tell (985) 21 88 95
08036 BARCELONA 18006 GRANADA 28037 MADRID Telf (968) 23 18 34 33002 OVIEDO
30009 MURCIA
C/ Hermanos del Rio C/ Universidad n n 4 • 2° 1 C/ Travesía de Vigo, n ° 32 1 Avda de Gaslei/. n 19 A I o D C/ Alares, n" 4 5 o D
Rodríguez. n° 7 bis Tell (96) 352 48 82 Tel! (986) 37 78 87 Tell (945) 22 52 05 Tell (976) 22 47 09
Tei (954) 36 17 08 46002 VALENCIA 6 VIGO 01008 VITORIA 50003 ZARAGOZA
41009 SEVILLA
 TRUCOS
LETRA
NEGRITA
El juego de caracteres del
Spectrum fue concebido
fundamentalmente de cara a
la utilidad, es decir, tal vez
no se prestó demasiada
atención al aspecto de las
letras. Para mantener la legi-
bilidad de los caracteres y
aumentar su estética, nues-
tro amigo Benjamín Amador
nos manda una rutina desde
Jaca (Huesca), escrita en
lenguaje máquina, que nos
permitirá escribir con letra
negrita.
Como siempre, damos el
listado en lenguaje ensam-
blador para tos interesados
en profundizar en el algorit-
mo elegido y un pequeño
cargador Basic para los <
oc
que, simplemente, quieren E
que funcione ya. Como se ff
puede observar, ta forma de
hacerlo es bastante simple;
en el listado en ensambla- ración OR, lo que realiza es Naturalmente, el nuevo original, es preciso efectuar
dor, la clave se encuentra en una suma del byte original juego de caracteres asi dos POKES:
las instrucciones SRA A y con el que anteriormente creado se almacena en me- POKE 23606,0 y POKE
OR (HL); la primera despla- hemos desplazado, consi- moria RAM tras cambiar el 23607,60
za a la derecha el byte que guiendo como resultado fi- puntero de la variable esto nos devolverá al juego
estamos considerando y la nal, una letra más gruesa CHARS. de caracteres propio del
segunda, al efectuar la ope- que la original. Para volver a la situación Spectrum.

18 ORG 65338 250 INC DE

20 •f 260 INC HL
38 LD HL,83D00 270 DEC BC
40 •i 280 LD A, C
50 ; F I C H E R O DE FORMA DE 298 OR B
60 ;CARACTERES< # 3 D 0 0 - t t 3 F F F ) 300 JR NZ,SIG
70 318
80 LD DE,#FC39 328 F I N DE LA R U T I N A DE
90 338 ELONGACION
108 NUEVA D I R E C C I O N DE 348
110 CARACTERES EN RAM 350 LD HL,#FB39
120 360 LD <#5C36:
130 LD 8C,#0308 378
140 380 #5C36 VARIABLE DEL
150 NUMERO DE B Y T E S DEL 390 S I S T E M A CHARS
160 F I C H E R O DE C A R A C T E R E S 400
170 410 RET
180 C O M I E N Z O DE LA RUTINA
1 90 QUE ELONGA E L CARACT
200 9 9 1 0 C L E f i R 6 4 5 6 8 : FOR f = 6 5 3 3 8 TO
6 5 3 6 5 : RERD a : POKE f , a : NEXT f
210 SI 6 LD A , < HL) 9 9 2 0 R ñ N D O M I Z E U5R 6 5 3 3 8
220 SRA A 9 9 3 0 DOTA 33,0,61,17,57,252,1,0,
3, 126,203 , 47, 182, 18, 1 9 , 3 5 , 1 1 , 121
230 OR < HL) , 1 7 6 , 3 2 , 244. , 3 3 , 5 7 , 2 5 1 , 3 4 , 5 4 , 9 2 , 2
240 LO (DE),A 01

7 MICROHOBBY
PROGRAMAS MICROHOBBY

AZATOTH
José Luis VILIALBA

Spectrum 16 K

El escenario, un inmenso y tenebroso castillo p l a g a d o de

trampas, guardianes, puertas que se cierran y un sin fin
de objetos que tendremos que ir recogiendo hasta
encontar nuestro objetivo.

Y este no es otro que la copa encan- cierren todas las salidas y quedarnos
tada con la que podremos salir del en- atrapados con lo que perderíamos una
diablado castillo y evitar que el malva- vida (disponemos de cinco para llegar a
do mago que habita en él. nos deje en- la copa).
cerrados en sus innumerables habita- Podemos elegir el nivel de dificultad
ciones con su maléfica influencia. al inicio del juego, de lo que dependerá
Para evitarlo, tendremos que ir reco- que la copa se encuentre en una habita-
rriendo todas las habitaciones y reco- ción más próxima o más lejana.
ger en ellas cuantos objetos nos encon- Mucha suerte, la vas a necesitar.
tremos evitando, también, que se nos

NOTAS GRAFICOS

afe<í.C>EFGHIvJKLHNOP
GO TO 1010
1 7 5 I F a = 1 8 « N D 4 b « l l OP b*12i
c*
O R S T
* * »
U A N D P 3 ; 1 A N D PEEK 2 3 5 6 0 = 9 7 T H E N
L E T a =3
GO T O
GO S U B 1 0 0 0
1010
LET p<til

1 8 0 I F b = 3 ANO t a i 1 0 OR a = l l i A
ND P l ' l AND P E E K 2 3 5 6 0 = 1 0 5 THEN
LET b = 2 1 GO SUB 1 0 0 0 LET p2=l
GO T O 1010
1 3 5 I F b = 2 1 A N D < a = 1 0 OR a»lll
AND P 2 = l « N D P E E * 2 3 5 6 0 = 1 1 1 T H E N
LET b = 3 GO SUB 1 0 0 0 LET p l = l
GO T O 1010
1 8 ? I F i r = 1 A N D i a + 3 >a A N D ia-1
<a AND t b + 3 >b AND Tb - 1 <b THEN GO
TO 2 0 0 0
3 0 0 GO T O 120
1000 LET Cl=INT IRND +51+3 LET p D-» 1 . 1 4 + R N D + 3 , IF RND »2 > 1 . 5
n V ^ N M E B Ü i f ó o m » ESTA
1 •INT
LET
(PND+2J
p 3 fiINT
LET p2 = INT
I RND +2) LET
<RND+2
P 4 « I N
THEN PRINT AT Í
• RND*1,14 +PND +4
COPA PPINT QUE E S T A P T iRND +2 > RETURN
EROIDA . Tf " PPINT 1 0 3 5 OUER 0
" C U I D A D O CON O U E D A R T E E N C E R R A D O . 1 0 1 0 LET t c = 0 LET t p = 0 LET hb= 1 0 7 0 I F h b í d i t l O AND S C ) 2 O 0 0 THE
PPINT " Q - A R R I E A " , "A -ASft-JO h b +1 CLS F O R WsO T O 2 3 S T E P 2 N P R I N T AT 1 0 , 1 1 , PAPER C l , INK
."O-DERECHA", 'I-IZQUIERDA" PRIN 3 P L Q T 0 +w , O + • OR AU 199-2+W.0 1. , AT 1 1 . 1 1 . - y - PRINT flT 2
T
"PULSA ENTEP PAUSE O D P f l U 0 . 1 7 5 - 2 +W DPAU - 1 9 9 + 2 + w . 0
SO B Q R D E R O PAPER 0 INK 7 C DRAU 0 , - 1 7 S + 2 * w NEXT ¥
LS 1 0 2 0 DRAU - 2 3 , - 2 3 PLOT 1 9 9 , 0 D
RAU - 2 3 . 2 3 PLOT 1 9 9 , 1 7 5 DRAU - 1090 FOR n = 0 TO 1 1 IF INT 'RND *
8 5 I N P U T " N I U E L DE D I F I C U L T A D
l l - l O ) ^ ",<)i
^ N GO T O 8 S
I F d i < 1 OR d i 10 T 23.-23
1025 FOR
PLOT 0 , 17S
X - J TO
DRfiU 2 3 . - 2 3
13 PPINT FLT ^ ,3 3 1=1 THEN PRINT
,INT
0 CHP«
(RND•191 +3,
I 1 4 4 + 1NT
ftT IRRR
PAPER
I RND + 16 > +

< RND + 7 < I

el, INK
9® L E T C l « I N T (PND+5)+ 3 LET s INK e i , " M H B H H M H i
1100 NEXT n GO T O 110
: =0 NEXT x
2 0 0 0 CLS FOR f i 8 TO O STEP - 1
ICO LET I v e S LET 1r =0 LET a = l 1 0 2 7 P R I N T AT 3 , 2 6 . I L Ü M l , AT 4
, 2 7 , " n . . h b , AT 6 , ; AT BEEP .05,15 PLOT 96-8*t .SO-8*r
0 LET b = 13 LET h b = 0 LET p l r l DRAU 1 6 + 1 3 + 1" , 0 DPAU 0 , 1 6 + 16 + f
LET p2 =1 LET p 3 « l LET pd=l 7 , 27 . S C . AT^ 9 ^ 26 .^BÍ-IIFLL^ " DRAU - 1 6 - 1 6 . 0 DRAU 0 . - 1 6 - 1 3
1 0 5 GO T O 1010 tr NEXT r
1 1 0 P R I N T AT a , b , INK e l , OUER '; AT ' 1 3 , 2 7 , h i
1 , , OUER O 1 0 3 0 I F P i = l THEN PLOT 2 3 , 6 0 OR 2 0 1 0 FOR f 3 0 TO 8 BEEP .05,25
AU - 1 8 , - 8 DPAU 0 , 3 2 DRAU 18,-8 OUER 1 PLOT 9 6 - 8 + f , 8 0 - 8 + r DRAU
12Ó LET t p « t p + l LET pdaPEEK 23 16•16»r ,0 DPAU 0 . 1 6 + 13 + r DPAU
560 IF INT < P N D * 3 ) * 0 THEN P P I N T flT
8 , 2 , A T 1 3 , 2 , $ " - 16 - 13 * f , 0 DRAU O , - 15 - 13 • f ME
1 2 5 I F P H = 9 7 AND ¿ 1 8 T H E N P R I N XT f OUER O
T flT a , b , INK e l , ft' LET a = 3 * 1 10 35 I F p 2 a 1 T H E N PLOT 1 7 6 , 3 0 D
RAU 1 8 . - 8 DRAU 0 , 3 2 DRAU -18,- 2 0 2 0 GO S U S 1000
P R I N T AT a , b . INK e l . OUEP 1;"R 2 0 3 0 GO T O 1010
S IF INT IRND*3> =0 THEN P R I N T A
T 8 . 2 2 , ® , AT 1 3 , 2 2 , S' 3 0 1 0 I F P l « l T H E N GO SUB 3 5 0 0 I
1 3 0 I F p * = 1 1 3 AND a > 3 T H E N P R I N F C j r 0 THEN PLOT 5 , 8 3 DRAU 18,1
T AT a , b , INK e i , " ' • " LET a=a-i 1 0 4 0 IF P 3 = l THEN PLOT 8 8 , 2 3 : DR
AU - 8 , - 1 8 DRAU 3 2 . 0 DRAU -3.18 PLOT 5 , 9 3 DRAU 1 8 , - 1 LET Pl=
P R I N T AT a , b , INK C l , OUER O GO SUB 3 2 0 0
IF INT (RND+3>=0 THEN PRINT flT
19,9, Ü AT 19,14. 3020 I F p 2 = 1 T H E N GO SUB 3 5 0 0 I
14-0 I F p = 1 0 5 ANO b > 3 T H E N P R I N F f j £ 0 THEN PLOT 1 9 4 , 8 3 DRAU -1
T AT * , b , INK e l , • LET b=b-l 1 0 4 5 I F P4. = l T H E N P L O T 8 8 . 1 5 2 D 8,1 PLOT 1 9 4 , 9 3 . DRAU - 1 8 . - 1 L
P P I N T flT »,b, INK e l , OUER 1 ; RAU - 8 , 1 8 DRAU 3 2 , 0 DRAU - 8 , - 1 ET p 2 =0 GO SUB 3 2 0 0
8 I F INT ( R N D + 3 ) = 0 THEN P R I N T A 3 0 3 0 I F p 3 e 1 T H E N GO S U B 3SOO I
1S0 IF p H = l l l AND b < 2 1 THEN P P I T 2 , 9 , "fit" , AT 2 , 1 4 , F r J =0 THEN PLOT 9 1 , 5 DRAU 1,18
NT ftT a , b . INK e l , L E T b= b+l 1 0 4 6 I F P 1 + P 2 + P 3 + P 4 < 3 THEN LET l PLOT 1 0 1 5 DRAU - 1 , 1 8 LET p3
PRINT AT a . b , INK e l ; OUER 1;" r =INT <PND+2» I F l f = l THEN LET sO GO SUB 3 2 0 0
ta = IHT (RND * 1 4 I +3 : LET l b = I N T (R 3 0 4 0 I F p 4 = l T H E N GO S U B 3 5 0 0 I
155 I F POINT i b « 8 * 4 . <21-aJ +8+21 ND + 17t +3 FOR n - i a TO Íia+2S PP F r j =0 THEN PLOT 9 1 1 7 0 DRAU 1 ,
» 0 THEN BEEP . 0 0 5 , 5 5 P R I N T AT » I N T flT n . t b . INK O, NEXT n -18 PLOT 1 0 1 , 1 7 0 DRAU -1,-16
i b ; " B " .AT i , b , OUER 1 ; " d " LET i P P I N T AT t a + 1 . I b + l T o U E R 1. 1 LET P 4 * 0 GO S U B 3 2 0 0
e =S C + 1 7 P R I N T AT 7 , 2 7 ; i C OUER 0 GO T O 105O 3 0 8 O I F P l + P 2 + P 3 + P 4 + I r < >0 T H E N L
1 6 5 BEEP . 0 0 0 9 , 1 6 I F l p > 1 9 AND 1048 LET l a = 0 LET lb=0 ET t p * 0 RETURN
INT ( f t N D < 3 l = 0 T H E N GO SUB 3 0 0 0 1049 OUER 1 3 0 8 5 LET l v « l v - l I F l v = 0 THEN G
1 7 0 I F a 3 3 A N D ( 6 = 1 1 OR b = 1 2 ) A 1 0 5 0 I F RND * 2 > 1 T H E N P R I N T A T 2 0 O TO 3 1 5 0
ND P 4 = l A N D P E E K 2 3 5 6 0 - 1 1 3 THEN +RND+1.3+RND+3 . I F R N D • 2 >1 3 0 9 0 P R I N T AT O , O . F L A S H i1 , " HA
LET a « 1 8 GO SUB 1 0 0 0 LET p3«l T H E N P R I N T AT RND + 1 , 3 + R N D « 3 , ' iffi» S P E P D I O O UNA U I D A . SIGUE . " F
1 0 6 0 I F R N D + 2 > 1 T H E N P R I N T flT b N OR r » = - 6 0 T O 3 9 BEEP . 0 1 , 1 1 NE-.T

8 MICROHOBBY
 n / GO 5UB 1 0 0 ® GO TO 1 0 1 0
3 1 0 0 LET tp.B0 RETURN
3 1 5 0 P R I N T AT 0 , 0 , BRIGHT 1,"YA
NO SALDRAS N U N C A . ' . ftT 1 0 , 2 7 ; " 0 "
3 1 6 0 I F SC > h i T H E N L E T h * = S C PR
I N T AT 13,27;hi
3 1 7 0 PRINT , FLASH 1 , 0 0 , " PULSA
UNO T E C L A PARA E M P E Z A R . " FOP
n = 0 TO 6 0 BEEP . 0 O 9 , f t NEXT ft
PAUSE 0 PAUSE 0 GO T O 8 0
3 2 0 0 FOR n = 1 TO 4 BEEP .005,-5*
n NE>T n RETURN
3 5 0 0 L E T f j = I N T (RND * 3 ) RETURN
3 5 1 0 RETURN
5 0 0 0 FOR n = 0 TO 2 0 REAO u *
5 0 1 0 FOR K =0 TO 7
5 0 2 0 READ 3 POKE USR w S + m . a
5 0 3 0 NEXT « MEXT n
5 0 4 0 DATA "<"•• , 2 4 , 4 4 . 4 4 , 2 4 . , £ 5 4 , 3 6
, 3 6 , 1 0 8 , " S " , 2 4 , 5 2 , 5 2 , 2 4 , 127 , 3 6 , 3
6.54,•l",24,60,60,24.126,36,36,3
6."W.24,36,60,24,126,36,36,102
5 0 5 0 DATA " > . " , 0 , 1 2 7 , 1 4 5 . 1 4 5 , 2 5 5 ,
136,72.63, • l",0,252,16.18,25S,13
4,132,252,"9",8,24,254,136,156,5
4.50.60
5 0 6 O DATA "a",255,253,122,122,52
, 1 6 , 6 0 . 126,"b" ,110 . 1 4 5 , 4 4 , 6 6 , 1 7 0
. 8 4 . 4 0 , 1 6 , " C " , 1 1 , 1 2 , 8 . 2 8 ,54 ,54 ,5
8.28,"«",156,162,190.136.254,137
,148,162
5 0 7 0 DATA " e " , S 6 , 1 6 , 1 6 , 5 6 , 6 8 , 6 8 ,
1 2 4 , 1 2 4 , •• ( " , 8 , 8 , 2 0 , 3 6 , 6 6 , 2 3 1 , 2 3 9
, 7 0 , " < J " , 2 . 3 , 4 . 4 , 60 .24 6 , 2 5 5 . 6 2
5 0 7 5 DATA " h " , 1 6 2 , 1 4 8 . 1 3 7 . 2 S 4 , 1 3
6 . 1-50 1 6 2 , 1 5 6 , " i " , 2 5 5 . 1 6 . 1 5 0 . 8 5 ,
6 1 , 8 5 , 1 5 0 , 3 2 , " j " , 4 . 105, 1 7 0 , 1 8 8 . 1
70,105.8,255 _ „„
50 D 5 6 3
4 ?§4 ? i l . -S : ¿ ! ó ! ¿ l é t á i l f iá?
,Í25,Í21,121,"P".158,248,1S,15.3
t177,63, í",í21,83,240,240,192,1
28,224.252
5 5 0 0 RETURN

DESENSAMBLA
Amonto OCON CARRERAS

Spectrum 48 K

C o m o su propio
nombre indica, se trata
de un desensamblador
de código m á q u i n a
con la peculiaridad de
ofrecer todos los
números en notación
decimal y no
h e x a d e c i m a l , como la
m a y o r í a de los
desensambladores
existentes en el
mercado.

Para su funcionamiento, nos pedirá

una dirección de comienzo de la rutina
a desensamblar y la longitud de ésta en
bytes, y a continuación, aparecerá el
listado de los nemónicos o memóricos

9 MICROHOBBY
 PROGRAMAS MICROHOBBY
de lenguaje ensamblador correspon-
diente a dicha rutina, como viene indi-
cado en las instrucciones al final del 610 FOR i=0 TO r Id jT>z DIS-" . "2ld de,","Id 'dei.a
620 READ bt NEXT i inc de"
programa. 6 30 LET a$=a»+t» 9002 DATA "ir,! d' . "d«í d . " l l d d
640 GO TO 290 REH 9010 impritae " c u " . L,f DIí-" . add [Link]".
I I desensablador puede interrum- "id a . ' d í ' " . 'de< d*","in« t","de
70O REM SUB. ANADE 1 NO. * * c e"
pirse por dos razones: 710 LET n2«l 9 0 0 3 DATA " H d e . " . " f f * " • " l J f n :
720 LET nui=PEEK (n* 1) ,DIS-". 2ld hl .". •2" . "iftC hl " i "i
La /ona a desensamblar no con- 730 IF a =211 TMEN LET a$s"OUt I r. c h'-.'dec h " . " l i d h , " , d í i "
•STR» (AVMI*">,«" RETURN Á004 DATA ' 1 ,I r ; ,C-IS- ."ad-i H L H
tiene una rutina en código máquina, si- l " . "2*td "dec Ki" "me i .
740 GO TO 780 "dec l " , " l i d i " . " C P i " í j r n< ,
no un programa basic, una pila de lía- D I S - " . " ¿ I d SP
750 REM ** SUB. ANADE 2 NOS. •* 9005 DATA "me £P" "int 'hl-
dec (h Li " , ' 1 L d (Ki< • . " i cf " "
los, etc... 760 LET n2=2 l j f C,DIS-" "Sdd h l . i p " "¿*id a,
770 LET nuftaPEEK In +2i «258«PEEf i " , "de c s P•
I xiste una rutina en esta zona, pe- <n«li 9006 CATA -me 4". dec j lid 4
780 LET »fza$<2 TO )+STR» líiuk* ." ."tí
9019 DATA " • , •• , 'reí n; POP
( -

ro se ha situado al comienzo de la lec- 790 IF a = 34 THEN LET it= Id i + b c " . " 2 j P n : , " "2JP "."2caU nz,"
STR» k riMM > * " I ,hl" * p <j i h be " " i add »,". 'rst O'
tura en medio de una instrucción de 3 0 0 IF A = 5 0 TMEN LET I $ =- ' I d T" + 9020 DATA "rl t I " , " f e V . 2 jP = '
STRS mu») + •i ,a "
más de un byle, por lo que el desen- , " ii : ," , "2c » t ","i4dc a
s i o
820 IF 3=67
IF INDEDAO TMEU RETURN
*$="ld <"* , " . "r»t 8" • "r e t nc , P O P de"
samblado 110 es correcto, pudiéndose
TMEN
STR» ( M U f i t í " RETURN
LET
9021 DATA "2jP nc . 1 ."2c»lt ft
82S IF as83 T H E H L E T afa'ld •"* ( . " p g i h d e ' . ' l s v b " , " r » t 16 '
llegar, de esta manera, a una instruc- STPT M U N > > d€ " RETURN ."ret
I" c" . "e>: . "2jp « , " . " i * m a.
830 IF 4=99 THEN LET i$="ld (' *
ción inexistente. 5TRS i n v t l • " • l " RETURN 9022 DATA " 2 c1 a i l c,"," " , " l s be a
S40 IF a-115 THEN LET j » - " l d <" t 24 " r e t PO " . "POP hl",
+STR» triudi p • " t . s p " PETURr» 2^p po . "."ex <SP i .h i." . "2ea 11 P O
850 RETURN . " . "pl'Jh h l "
10OO REM «* CB •+ 9023 DATA "land " . " r s t 32 "re
1020 LET r> =n * i t pe " , " jp ih t, t ' , "3 jf pe . " . -e • de
1030 LET 4 =PEEK n , h i " . 2cati pe,"," , "íxor ", rs
1040 LET » • INT (a/«) l
9 0 2 4
40 "
DATA "ret p", P O P af" *'2JP
p , " , " d i " , " 2 c a 11 lp."."push a f " . " 1
1 0 5 0 LET r = Í - > • * 8 )
1 REM . • + • • • • • * • • • • « * * « • • • * • • 10€0 IF a>63 THEN GO TO 1160 or " . " r i t 43 " , ' r e t «".••id Sp.h
2 REM DE ¿ENSAMBLADOR 2-80 1070 REM *t CB <64 «•
i PEH © ANTONIO 0C0N-19S5 10S0 RESTORE 9120 l"
9025 DATA "2JP
4 REM »•««•*-•»*** + «***»**** + • 109tí FOR i =0 TO (n „ .. .. ,, ^ .. ,.ñ. s ,•,*'«»",
f . "Se* U
9 60 TO 9900 1100 READ at NEXT i
10 CLS 1110 RESTORE 9110 9 0 9 9 REM **datas iterativa;**
19 REM *« ENTRADA DE DATOS 1120 FOR i=0 TO r 9100 DATA "add i . "4dC a il'b
50 PRINT • INTRODUCCION DE 1130 READ b* NEXT i "."íbe a. ,"and * . " x c r ","or
DATOS' INPUT "Dirección de corm 1140 LET 4»=aj+b4
« N : O . . "; d l E T N =d
USO S" TO 1260 REM 9010 i»Pri* "CP 1

9110 DATA " t " . " e " . d" . e " . "h " l
4
30 INPUT "Numero de Bytes..".f 1160 REM CB'64 ** " . ' (h l»
LET r=/«d 1170 L E T Y = L N T (a 6 4 i - l 9120 DATA "r t c . rrc " . " r t " "r
35 LET i =0 LET m í 1130 LET x»»-(8* (y+H l r " , " n s -,"í.-a " , " " , " s r i "
4C CLS PRINT DIRECCION INS 1190 PESTORE 9130 9130 DATA "bit "."res •."Sí t "
TRUCCION „ 1200 FOR i=0 T O Y
1210 READ 4» NEXT i 9205 REM .«datas de ED<124*.
íaa &EM • « LgctuRp ** 1220 RESTORE 9110
110 LET a=PEEK n 1230 FOR i=0 TO r 9206 DATA " " , " " ," " , " " , "1h b,
120 LET r.2-0 LET mded=0: LET 1240 READ b1 NEXT i leí" , " 0 ' - ' t l í ' - b " " í b C hl,be","2"
indi . =0 LET n$ = "" 1250 LET a T=a$ + STR* ' . ne9 ' . " re tn"
125 REM *« €S IX o IY*? ** 1260 IF t nd i >: =0 THEN GO TO 290 9207 DATA im 01 Id »,»","!« C.
12? IF a= 221 THEN 60 TO 3010 REM íoto ifcprme (c I •• . "ov t ' C . c " , ' 4d C h \ , bC " 21
12o IF i=253 THEN GO TO 3020 1270 REM d be,<"." "."re t i " , " '","id
130 REM *« Es CB" • «
CfiMBIA M L - < I X * D » +* 920S DATA ir, d . i < < " , " OU t " C • . d
140 IF a=203 TMEN G0 TO 1000
1280 L E T 1 0 P = L E N A » - 1
1290 FOP i = l T O I O P ,"lbC h l , d t " . " 2 " , " ","«» i " .
150 REM Es ED" + * " i d a , i , i n e ( c >","OLH < < » ,e
1300 9209 DATA adí [Link]","£ld de,<"
160 IF 4=237 THEN GO TO 2000
170 REM «* ES ITERPTIUR? * * 1310 LI FE T p P| s$ "=hat$"( C THEN
TO C * H
GO TO 1340 •• , i a ¿ " ' . d » . r " ,"»r> h , i
180 IF a >63 AND a 192 TMEN GO T 1320 N E X T R C> ."out K i . h " . "S bC h l .h l " "2"
O 4 00 1325 REM ERROR * * 9210 DATA " ' ."rrd".m
190 REM *. COSO NORMAL «* 1330 B E E P . 5 . - 1 5 B E E P . 5 . - 2 0 P t , < c ' "."ou t i c i , i ","ad c h t,h t " "
200 LET *=INT ta 101 RINT PRINT BRIGHT 1,"DeSenSa«b 2* td h l , >
210 LET r =4 - 10*» lado i n p e s i b l e e n e s t a [Link]
9211 DATA " " . " r l d " i ri f . I C I ,
220 RESTORE <9COO• • • inded> i se 14 r u t i n a e m i r o - d u z c a o í r ","SbC [Link] , 2"," >" >" ,"
230 FOR i=0 TO f 4 di r Le Ec Tc i oan«"= a * (SlT OTO
P
240 READ a* 13402 TO ) c-11*ií+n»*a 9212 DATA i r a , te 1 " , "Ow t t c > . a ••
250 NEXT i I 'c • ."adc h L .SP","2*ld £P . <"
260 REM . « LLE'JA NUMERO'* « * 1350 GO T O 3 0 0 REM 9 0 10 i » p f i « «
270 IF i í ' l l « " í " THEN GO SUB 75 2000 REM ** ED 930O REM *«datas de ED >124 * *
O
290 IF a«<l>»"l" THEN 00 SUB 70 2020 LET n=n*l 1 9316 DATA " I d i " , "CP i " ,
i ~," " , " " , " V " - " Idd" , "CPd"
i r. i " , " o u t
O
290 REM • * IMPRESION ** 20 30 LET asPEEt n 9317 DATA 1nd","OUtd " •
295 IF indi y O THEN GO TO 1270 2035 IF a*64 THEN 60 TO 2120 RE " i d i r " , " < p i r " , "i nir . "o 11
300 IF A t á i s " * " THEN LET Af = A« M goto error , „„ r "
*2 TO I•">" 2040 IF 4:124 THEN LET ind£d=20O 9 M8 DATA " " , " " , " " . Iddf"
GO TO 190 REM ,"CPdr" , " i n d r " , "Otdr" . " " ," "
3 0 1 P R I N T T AB 3, N , T O S
30 3 LET p=p*l IF p =22 TMEN LET
1 2 , A * 9010 caso normal
p=0 PRINT Rl," COPV IS 2100 REM ED > 160 ** 950O PEM • * RUTINA ( S / N ) ••
/Ni": LET dirSi=306 LET d i rrto =3 2110 IF a<160 THEN GO TO 1330 R
0& GO TO 9500 EM 9010 error 9S10 I F I N K E i ' » = " " T H E N GO TO 951
304 GO TO 308 2120 LET !nded=30O 0

306 COPY CLS 2130 GO TO 190 PEM caso nor«ai 9S20

9525
LET C S * X N K E . ' «
6EEF .2,40
303 IF 1ndix < >C TMEN LET i n d i X = 9530 IF C » = • S" OR C$ = "S" THEN 00
indi v - i 3000 REM IX O IY
TO d i r s i
310 LET n=n*n2*1+indix 9 5 4 0 CLS GO TO d i f f t O
320 IF n f THEN GO TO 340 3 0 1 0 LET i»="IX" GO TO 3 0 3 0
330 GO TO 100 REM 9010 Lectura 3 0 2 0 LET i*»"IV"
3 0 3 0 L E T n =n + 1
9900 REM ** PRESENTACION ««
339 REM • • FIN ** 3 0 4 0 LET a - P E E K (n) 9910 CLS PRINT " DE5ENSAMBL
340 PRINT n i , " Otra Dirección 3 0 4 5 PEM • es. i x - < a s o especiad* ADOR DECIMAL Antonio
<S/N>?" LET d i r s i = 1 0 LET d i r n 30<Í0 I F a = 5 4 TMEN LET 3» = " I d (" + Ocon - 1 9 3 5 Este pro9<"»»a
O =350 GO TO 9500 i $ +"*"*STR$ I P E E K (n + 1) > * " ' , " + S T Ofrece el lisiado se i o s mnemoni
350 PRINT " Teclee RUN para c P « (REEK i n + 2 ) ) LET i n d i x - 3 GO eos c o r r e s p o n d i e n - 1 e s al codtgo
on 11nuar" STOP TO 3 0 0 j „ se « a s u m a junto con i a d i r e c c
399 REH ** CALCULOS ITERATIVOS* 3 0 5 5 I F 4 « 4 l THEN LET a $ = " a d d * i o n de i a m í t r u c - Cion principa
t
, I « " , " M T
O
LET i n d i x = l GO TO 3 0 i. "
400 REM 4* a>63 V a.192 ** 9 9 1 1 PRINT P R I N T " S i se de t i en
4 10 IF a 127 TMEN GO TO S40 3 0 6 0 REM es I X - C E ? * •
3 O 7 0 I F a = 2 0 3 T H E N LET n t = " + " + S T
e et l i s t a d o cor» u n e r r o r e s d « b
i d o a que se i n t e n t a desensambla
4 2 0 REM • * a>63 y a < 1 2 8 « +
430 LET hi e I NT (ta-64l/8> R » ( P E E K i n • 1) ) L E T 4 =PEEK <n+2 r u n a s e c c i ó n de l a m e m o r i a q u e
440 LET r= a-64-(b*8> LET i n d l x =3 GO TO 1 0 4 0 no c o n t i e n e u n p r o - g r a n a e n e o d
450 RESTORE 9110 3 0 8 0 REM * * e s I X - d ** 1 9 0 de i r.a , c o n o p o r ejenplo,
460 FOR i=0 TO * 3 0 8 5 I F a = 5 7 T H E N GO TO 3 1 0 0
3 0 9 0 I F a > 4 3 AND a ; 1 9 1 T H E N L E T
t a b l a s de d a t o s , i o n a d e programas
4 70 READ A» NEXT I BASIC,e t c . "
475 RESTORE 9110 n»»"*"+STR» IPEEK (n + 1 ) i LET in 9912 PRINT PRINT "Todos IOS n u
4 8 0 FOR i = 0 TO r di =2 GO TO 1 8 0 tueros r e p r e s e n t a d o s son dccmaie
490 PEAD bi NEXT i 3 1 0 0 REM * * I x - c a s o n o m a l •• s , l o que f a c i l i t a i atoca11zaeion
S00 LET a « » " t d " t a $ * " • " * b$
510 IF a = 118 TMEN LET }$ = " h l U "
3 2 0 O L E T i r>d i x z 1 GO TO 1 8 0 de rutinas,a») co»oia i d e n t i f i c
520 GO TO 290 REM goto i»pri»e 8999 REM ««datas riornaiest-t
ación de vatores."
9913 PRINT PRINT BPIGHT 1,"
540 REM * • a > 127 «• * P U L S E UNA T E C L A
550 LET •*INT í(a-12e>/8) 9000 DATA "n0P"."2td BC,","ld
1
>B 9914 I F I N K E Y S = : — T H E N GO TO 9 9 1
560 LET r =a - 1 2 8 - *8> C) , A " , " I N Í SE , " M C B " , " D Í T B ' , " 4
570 RESTORE 9100 lid b . " , "r l <a" , "ex » í , » r " , " i d d 9915 BEEP .2.40 GO TO 10
SSO FOR 1=0 TO a hl,be "
590 READ a» NEXT i 9 0 0 1 DATA I d S , < bC) " , " d e C B E " , "
600 RESTORE 9110 in c c " , " d « c c" , " 1 id c,","frci","

10 MICROHOBBY
 SORPRENDENTE
EFECTO
, TRIDIMENSIONAL

PANTALLA DE
VIDEO GIGANTE
PARA SEGUIR
LA ACCION
DE CERCA.

DISPONIBLE 1
PARA i
COMMOOORE 6 4
Y SPECTRUM 4 8 K

UECESIT,

E, SANTA ENGRACIA 17, 2B010 MADR

TIENDAS Y MAYORISTAS: C U M I
 PROGRAMAS PROGRAMAS PROG

El secreto del templo

ABU SIMBEL
PROFANATION
Dinamic prueba nuestra habilidad y
48 K paciencia, que con toda
Tipo de luego: segundad, en más de una
Vicleoaventura ocasion llegarán a rebasar
los limites previstos.
P.V.P.: 2.100
Existen, distribuidas por
todas las habitaciones,
I Con esle programa numerosas trampas que
| culmina la trilogía que tienen como objetivo evilar
comenzara con Saimazon y a toda costa que lleguemos
que narra las aventuras y hasta la tumba del Faraón.
desventuras de Johny Arañas asesinas, serpientes,
Jones, el supuesto hermano gotas de ácido, momias, y
de Indiana Jones. un sin tm de personajes
En esla ocasión, el más nos atacarán
continuamente.
En la parte interior del
templo hay incluso una
S ¿j¿f especie de rio subterráneo
g v . » * * ! plagado de pirañas.
A * Pasar de una habitación a
olra resulla bastante
V peligroso, hay algunas
trampas en las que seria
fatal caer, ya que nos
eliminarían con toda
personaje en cuestión se ha seguridad del juego.
visto poseído por la En otras cámaras del
maldición de Abu Simbel, templo se encuentran una

Pr,
que le ha converlido en una serie de amuletos que
especie de ser deforme.
Para volver a recuperar su
antigua apariencia, deberá
serán decisivos para
continuar el camino, sobre
todo teniendo en cuenta
a/
de viajar hasta el templo de que algunos de éstos nos
Abu Simbel. donde se sirven para abnr puertas I^ WS ffB P*A f^i r-r 1 r ^ -i ^^ f-M ^ s

#!!¡r
encuentra escondido el que, de otra forma, nos ™ „ i. 1. . v .. ^ I • «t
secreto que le devolverá su resultarían imposibles de
personalidad. atravesar.
Nada más comenzar el Los transbordadores son
juego nos encontramos en unos lugares específicos T f ü
la primera de las desde los cuales podemos 3 G
habitaciones del templo, en Irasladarnos hacia otro flk ÍÜ3 CE3
3
é f i l f e o e I f i t o c -
donde una enorme esfatua lugar del templo, siendo aiiiir^
se alza ante nosotros ésta en muchas ocasiones, /¡3 G¡S C
guardando la puerta de la única forma posible de
entrada al misterioso templo llegar hasta ellos.

^ 7
del antiguo Faraón. Tras Otro punto importante es el
ésta, una enorme estructura diamante que
laberíntica, compuesta por
45 habitaciones, pondrá a
encontraremos en una de fr \1*
las habitaciones y cuyo

12 MICROHOBBY
AMAS PROGRAMAS PROGRAMAS PROGRAMAS

los objetos y de los

personajes, lo que va a
suponer al jugador lener
que dedicarle baslante
hempo a cada uno de las
pantallas.
Hay dos lipos de
movimiento, ambos en
forma de sallo, uno más
largo y olro más corto.
Cada uno de éstos nos
servirá en un determinado

momento del luego.

El nivel de dificultad es
bastanie alto, pero gracias a
la vistosidad de los gráficos
resulla muy ameno e
incluso excitante el hecho
de pasar de una pantalla a
otra, sobre lodo si tenemos
en cuenta que éstas son
mejores y también más
difíciles según vamos
avanzando.
Un juego, en delinitiva muy
bueno, recomendado para
maniacos de los
videojuegos. que estamos
seguros van a ver colmados
sus deseos de superación,
con el aliciente, además, de
OM^Cftt ese premio de 50.000 pías,
para el primero que
consiga llegar al final.

oJ\é
color va a ser muy dudas, el meior juego de por las que leñemos que ir
importante en el transcurso Dinamic. Gráficamente, pasando, han sido
del luego cuando, llegados rebosa originalidad, tamo estudiadas al máximo para » * *
Originalidad
a un punió, tengamos que en lo que se refiere a la conseguir de ese modo,
elegir entre varios colores, estructura por bloques, crear una estructura de alto Gráficos * « *

de los cuales lan sólo uno como al Iratamiento del nivel de dificuliad que sólo Movimiento * * *

nos llevará di reclamen le a color, que ha sido cuidado puede superarse

Sonido * * *

la cámara del Faraón. a la perlección. examinando a fondo cada

Valoración. Es, sin lugar a Cada una de las pantallas uno de los movimientos de

13 MICROHOBBY
 PROGRfiMfiS PROGRAMAS PROGR

las situaciones difíciles.

En la primera pantalla que
aparece al principio del
juego, vemos a la paloma
en el suelo, y sobre las
1 Kmgt Lore Ultímate ramas de un árbol, a unos
2 Alien 8 Ultímate polluelos hambrientos a los
3 Walty Mikro gen que tenemos que alimentar
4 Undefwtirldc Ultímale
con los gusanos que se
5 Decathlon Ocean
encuentran repartidos por
6 Match Day Ocean
7 Babahba Diñarme
las diferentes pantallas que
8 Gihlt Irom iho forman esle juego.
goocis Ocean Cada vez que cojamos
9 Cyclone Voitex unos gusanos, lendremos
10 Pyjamarama Mikro necesariamente que ir a
Gen otra pantalla para conseguir
11 Jet Set Witty Software nuevos alimentos
Proiects Gremlin Graphics/Serma subsistencia. En esta superando una serte de
12 Match Pomt Psion 48 K ocasión el protagonista es peligros distintos: arañas,
13 Zaxxon U.S. Gold
14 Saimazoon Diñarme Tipo ge luego: Arcaóe Potty Pigeon, que en pájaros asesinos, (lores muy
Sabré Wull castellano viene a ser algo peligrosas, helicópteros,
15 Ultímate P.V.P.: 1.900
16 Tir Na Nog Gargoyle asi como «Paloma Loca». automóviles y multitud de
17 Avalon Hewson Y es precisamente esa edificios.
Consuil Gremlim Graphics es paloma la que leñemos que En la parle inferior de la
18 Raxi Over una compañía dirigir en su arriesgada pantalla se encuentra un
Mosco w U S Gold especializada en la creación aventura por un mundo medidor de energía que
19 fíocky Diñarme de personales del mundo hostil, tleno de peligros que será fundamentalmente
20 Bruce Lee U S Gold animal, y en someterlos a pondrán a prueba nuestra durante el transcurso del
las más duras pruebas de capacidad de reacción ante luego. Cuando la paloma
Fsia lista ha sirio confec n vuela, ésta disminuye su
cionada con la opimon do tamaño notablemente y sólo
nueslros lectores. En un futu-
podremos recuperarla
ro esperamos la colabora
ción de muchos más. los volviendo al suelo o
cuales podran emitir susopi comiendo unos insectos
niones llamándonos directa negros que se encuentran
mente al Til. 654 32 11 iconel
preli;o9i paralosdetuerade
en algunas pantallas.
Madrid). También podra ha- Para que lodo no sea
cerse por caria indicando eri complicado, disponemos de
el sobre MICRO HITS. un mecanismo de defensa
que consiste en lanzar una
especie de huevos con los
Aventuras de una p a l o m a que podemos neutralizar a
nuestros enemigos durante
algunos segundos, lo que
POTTY PIGCON nos permitirá
desenvolvernos con una
mayor libertad de
movimientos.
Según vayamos recogiendo
la comida de las pantallas
más cercanas, tendremos
que ir cada vez más lejos a
por nuevos alimentos. Sin
embargo, existe una
posibilidad de simplificar el
nesgo, y es la de lomar la
dirección contraria, ya que
desde la primera pantalla
se puede salir tanto hacia la
derecha como hacia la
izquierda, lo que
lógicamente, acorta el

14 MICROHOBBY
3RMRS PROGRñMñS PROGRAMAS PROGRAMAS

recorrido de las pantallas guardados por unos tercera vez, la llave de oro.
más lejanas. Eslo ocurre | | CTRUM cíifiSjC^n^?* peligrosos piratas que Cada vez que complelemos
porque el juego está recorren los pasillos de las una lase, la velocidad y las
planificado como si diera BOOTY bodegas con el sable en la complicaciones aumentarán
una vuelta en circulo y mano. con respecto a la anterior.
regresara al mismo lugar. Todas las habitaciones del Los peligros que nos
Si logramos completar el barco eslán cerradas y sólo acechan son muchos:
recorrido y recoger todo el pueden ser abiertas con las bombas que estallan de
alimento, comenzará una llaves correspondientes, repente, el loro del capitán,
nueva fase con un nivel de que se encuentran un peligroso lanlasma.
dificultad más alio y por numeradas. Algunas de puertas que dan al mar y
supuesto con nuevos éslas son muy difíciles de muchos más.
peligros. conseguir y otras, aunque Valoración. Se (rala de un
Valoración. El programa en un principio son más programa muy enlretenido,
eslá en la linea del reslo de fáciles, luego plantean con buenos gráficos en el
las producciones de la problemas ya que si que quizás el movimiento
compañía, que ha dolado a leñemos una llave y eslé algo aniicuado con
lodos sus juegos de una
personalidad gráfica propia
que los hace láalmente
reconocibles. Al igual que
ocurre con otros personajes
creados por Gremhm
Graphics, el protagonista
del luego es de reducidas
dimensiones (ocupa cuatro
caracteres), mientras que
los gráficos de edificios son
baslante grandes, creando
una cierta desproporción
que además de curiosa, calidad del programa en si pasamos por el lugar respecto a las lécnicas que
resulla muy interesante en como por el precio. donde se encuentra otra, la se utilizan hoy día; pero a
esle tipo de programas. Pertenece a la serie antigua primera se cambiará por la pesar de ello, no
Es un juego no muy de la compañía Firebird, segunda con el desmerece en absoluto el
complicado, con buenos que en la actualidad ha consiguiente perjuicio para resto del juego.
detalles y un buen nivel de dirigido su mirada hacia el nosotros que tendremos El nivel de dificultad es lo
adicción. terreno galáctico con que ir a buscarla suficientemente alto como
programas como Buggy nuevamente. para mantener nueslro
Blast o el conocido Gyron, Una vez que hemos interés pero sin rayar en lo
Originalidad * * * En Booty, estamos muy recogido lodos los objetos imposible. Es un luego con
Gráficos * * lejos de los escenarios de las 20 bodegas del los ingredienies necesarios
galácticos. La acción se Black Galleon's, tenemos 45 para mantener nuestra
Movimiento * * *
desarrolla en los camarotes segundos para encontrar la atención bastantes horas.
Sonido • * *
de un barco, donde Jim. el llave de bronce que se
Valoración • * * prolagomsla del juego, halla en un montón junto al Originalidad
recorre las salas baio la botín. Si logramos por Gráficos * * *

cubierta en busca de segunda vez recoger todas Movimiento * * *

El botín del grumete lesoros escondidos a lo las parles del bolin,

Sonido * * *
largo del barco, los cuales podremos coger la llave de
eoorr están celosamenie plata y si lo logramos una Valoración * * *

Firebird/ABC
48 K
Tipo de ¡uego: Arcade
P.V.P.: 795

Aunque este |uego no

acaba de salir al
mercado, merece nuestra
atención lanío por la

MICROHOBBY 15
COmPLJTOJE

comprar tu ^pectrum
te %eyaícu*to¿

campuTOUE Embajadores, 9 0
28012 Madrid
Abrimos sábados por la tarde Tfna 2270980
 O M ra 9
a ai <D -0.
3 ra •o at o cg
O E ra i
U
O ó ra o>
u CJ) oi O • ••• D uc i c
"O cra o o -c U n
a-c- a
*•

c. o
—

ra a :?
c> o cu c LU "t
> §+
o U 4OIr)
: soo- 8
9 3 c oo Os
m

* r oo««.>"a2
*
ü
O a> ra §
o O 3 ra o — o •a
w V O) Q. o I í)HWIOM I-I
KtH aU
o OI "
m c u
a jü~ tft: u>
zcl o3
k-
u 2u. ra 0
O c ÜJ ra C <» o«c «ti
i c Q>
Ü 3 e n
w <n <0
O O O
O — T3 o
-<0 o ra <J
f-r C a
•c c O ra
c o Oa
o o c ra
Ill o
c * :
-o £ §
ra kj ••
CE'
o
"5 - r> •
o&cc
..y"* « Í2 o ; w
y -w o c o a » iaó I * 1E
5¡.
Mh«
ana o
aaa w
1 * 1 C0 ®
a C
« w£ üj ni

• ir, i o 3 O c o cu ra C 0) ra
co — o a»OI c '
£ wo •O O
ro
£2 o c "O 3 XJ a O c JS
s o ra cr J: M 01 C
S: í °
ra
O <> l ra o O o o o § 0)
^
ai 2 vX <1>l « O O
s = -O xO a ^
* "D 3 -Sí 3
w <
< /
>
•D — U J f
O)
T3 M a»
uc iD o 3 a ój Q. O C *D
o
c ^ 5 - 5 CrQ — O 2tfl ra "53 o O a> (3
•: •O ® ra
•n m a) y ro >» cai «C o o h O
;0 UJ O ü O « < Oo 2 c O (U o ra « w O
i
> —2 C T3 ra o J3 c « o O" 3g, T3 C ® o c-
jü O <
o •a § «O s c O >
E
~
—
. E3
~ ">
•s cr a-
ttJ u° C £¡ 3£ 2 - "o •u •f e 1 c . os> O — •ra c ^_
UJ U O o o "O 5 5 o
ií
a»
o oco > ai o
c w ® ••• uJO O O « c u <r
o « ra "O o -ü -o <* ra
O a; -O « «
c O o o O o "2 baO
» t»
o _ ® .5 _ c OD «« Cc -Ü g a
< v ® 2 S o ® & a a73j = < ü
o £
T o o . . u o a <
=
a. cc ce Z Ch- "O UHHC3«h Oí « w - > o c ?O O 2 «
•
ir
«* *« «53 «S > p z UJ LU
£ en > >
s « £
«ra ra E ra "oó E
£ o
?aaoaaa o >> raS o o c a °c to
a E i: a> C £ ¡o trt O o. ra • - í;
w 5
z
ra -ra ».ra i-ra in • oaa vtLCÚ
—

_j
0 ra v
y j CL O O* o i o o dc
i c o "p
o > o
LU , re =
03 o .2 o
1 u c I I I I B S i2 ra ¿
o> E o ^•ftjot'íiryo O c3 3 = O I I O.
W s <J>3
G. X> O
 C-i
55 ® ® v
a-e o a o

I
N
a .£ ™ £
o re
3 .
a
« ££ 5 1
® o O
II <o cO w ai < •
> c
c c ra _ ™ ü
lú H T*3r a V .®•oa» « «
>-
CQ o aj
c "C
« ra
c
~c - CC 3 ¡U o o o o C.
E O g
c r ra
fc. S a
E =
-
ü
» -t + o h-
>- tu £ S <u o sM i ü
iflin w. . a
,0 JjI— - - r- oo co o ó re o c E £ o
= = ° O o O O T- Z) O
O* O *—
re o 2 w
•-ar C O
lC a o _ ¡s i/> S -O
. yI C "O a5 "55
i- rr I \-U) a 2 ra o c <y re
cc outi üü
'.> CtiBO
C i-> k.a. a "o
^ h- o
M och MU MXHIJ i « ra > S= 3 re ra
ü: oet act uucto'j •O o o
a ilú. Ü.CL 1ZÍ.-4 « cX « o o -ü 0 00
re o co -re re s 3 w
w.
OGi ©o Í>S9 o 0 <j
•ti/' '£>r-(0 rr £ re "5 i u a
. c >. O ) a T3 >
o — o o> « ¿ re £ •re

o « 0 3
</i
'5¡ a (O 'a
—c c —o ra y0
o = | Sí3 «5
<1 U) MTu5 E 3 c.
u a> « o = o £ co
w
M I¿ Iw O.. L. T3 -O c3
IL o
E 2o o Sí re C. <ÍJ
a — c •.
II
o <9 5 0) O'C <u O) «
O o s- = g h « g 3« rara
* mm« • • 4. • • * o co a E c re E 4> a
+ * • 'I
* u *
* M * * O U) 0)
TF> + TRI •T z O "O
F N *> U'L <R + c C i
LÚ + a o • • ^
OJ •o D
* h n
EoQ
*
0 * 0 U.
+ IFL A * O re o O
a
o>.O sre
U. «
0 t-
+
•+ (J
*
* T a O X,"O •
U
2
0
£
0
»-
*
V
«
*

a re re
C"
+•
* * * •
*
• * » • » **
+
T-
_ (M PO «r in r- o
M
O H ID* «

E
z
M -0 </>
« D »_» K.
U •I • * »
UJ IX tu UJ UJ UJ UJ UJ UJ UJ •o A A
0
«U A
R
*

a a H t- H i— H .2 "5 O Ó •O
-C T
0

ra > V > >- X > >- 3 3 N * «

V* «C
0 r* 03 co CQ CC CD CD
>-
CQ co >O 01 o c • * '

C '55 re 0)
R
UO ST-H
AUU
_ u E 0 J» U: T J S

u- -5 o
c o
CQ

c c O c °3 A
0) 0
u §
i c o ra o =
re •

«
O
O) >s
ra ra re a; . u
>• ra b ~
a E x: c T3 V) S O .= O
"re
3 u. o "O v •c
>
ra ra 3
C <ü «
c =
re
"C t
ra ac c o ra
LU Z> re o
_0
u C
0) c
¿ >-
z -2
c cr <u re si
(A
> E £ 2 Qi •o — o
QJ =
* re
c S
ü ra o" ra —. —1 ra
re Oí g
c
o C
z
P 8
¿L y
c ? X
¡3 c3
a E a SE
C_J X
ra QJ 3 w £ 0
'-O
O 3 íí ' T3
u o re ra c 'c s a» O o C-ÜW
«° Ü C V> > -o 0
U
ra — 3 > 11 ut ra
a
.c 0 u) ra -= 0 "ra
c (J 2 o O
u o c
ra
c O ra iz ra ° S O
S a o LU T3 y a •o 1 ®
O) c y t o ° ce — E v¡ tu a> < o i s
ra E ra ra •o re IE CC a3
A
® <
re —
c -i o E ra c
ra 0 u>ra re 3
0 C5
ha c c •ra ^
O <D
LU
So o .-2
a c a "O T3 E s c u
ra a> i) c ra ± <0 co ra 1 ¿ w
A
c
3X a u
o 5 Oí O ^ o
o ra 13 c
3
c o
a» o; t ra a0 0 N <
O re c O c oí ~c c
>
a> O
iN " s c — ra
1
•c ® Z o c o ra ra ra 0 i.. a
C 0) ra oí
re **
• • •
—
z
Lj o ro c <u c 0 0 3 ra 0
.E ra s =
UJ LJ
£T wo £ o 0 y
d) c= E >- w o
u LU o —_ 0 a 3 0 >•
s i « O ra ©^ o C L: re •o r- <0 O Ti v *
3
® ra
15 C
<C ra CSi •5 "3
k_ ra
0 ü Z ^ CO a « vs c Z > O¿ m
c f 1 2 O
o
«
— o o — 5? 2 c y3 ra ra -0 u a
<I
U J Ü)
•o o y o 3 C
ÜJ >
5
-o CJ OC Z a •0 ra £ — c a CE 3
u 2a 4 I ^
S
W c ra a,
c re O —c a Í3 '5 £ O ra reO P
o 111 >
ti
Z u su £
ni c 0 ®
w
LU W o o :^ ¡Os «
o z
5 s o WJ ce re £3 ~O -í? -X 5— ra^ a
3
<
^E "° = u M J<
UJ
3 _
c CO C! z > "p o ra v> a
LU O LU
o w atz O
£ 2 (0 UJz oc '5 c >•" E ra c 0 E a. re o
c c CC =O
„ c
o o ra
—
O & 0) o Oí o fi o r
«
LLI t/I ^
o CC
nL ü=
QJ C
X ai — UJ —
u. h- —I ^ ra o r,
ra w LU
L«ú a® c ÜJ —
S
<Vl
=3 _ =5 o ra
uj o c «j o 005 —
ra 3 S ra ra •0 0) ®
oü wo I I O •o a E ra u y o> 3 w«

=re S ra ira o
4> .§ 3
.2 g
ra a> ra¿ c z re
cí o• 3 ra
S wa | •O
X
i s s
ra o c x c o ra J= 3) « O í 3 a o CO
ü
? 3 o oO! o
s i O) uS) <ü 2iS EraEai jo- "S
®
5 "ü Q
íS « 0w«1 E
o ra I— ra „ o — o Ü re ® S _0 O O
o = o o ra « ra i- eOc 3 ¡t a
UJ 3 ® i: a O re u £3
cu o ra « » a " 5 S § O > r 1
S CC » o V5 „ « -O cn u 1 E® o ® a) w oTJ w o O

I §I
•ra ¡.y o c
ra a o ara o> sj a> tfí®
*
a ra "S •
a
«
' C re O
W co » h"
S o = 1 .i: -o ra C/) 2"o
•
c X
«n •o ® ^ g -o ^
OCf" £
-cSSc ra o
2 3 c •a o i 3
ra
c 0 o CT i5 : g : o»¡JJtJl-kJ¿0 ra -o ra ra £ 3? « V) UJ "o
— .ra c . CJo 1 o c "5 ® - i LU o
raJ-"o o o
^ ® -
ra O
ra o o ai a u
o CJJJJ
a ov^ut-a o c—K_ o o P
O =- Tí w
a> a>
c— ' a 8 . i «o -^2 o = Eo O -O "Wi ^
c ^
* £
3
5 | C o c 5 <u
V
& WACTAÍÍA W
>- k
b ara (SI « O ra5c 1C % o
£
- ra
—— T pra
CI O L U U U O Z O

< cc? °¡y|CD I ¡ re £ o LU 3

u.
3 re c * o ra
§ a ra 01 O I 10 Ü 5 ií X " c en
CM
v> v> ra S £ o "O o a o o» Ciac rem CJs — ¿1
TT
PJ
 jT
ü _-S =_ >—o B 1
32 re
_ 2 ^ E —=re
— -
SS — CJ
—
s~ re S
"JS - -O
re 6—/5
=
S &T5 3 - ?.* —
5
re ^ s *
1
a f 9 " " re re a cu u — o .s—
oí a ^ - — Oí ^ : ? ? 3 g , i
c — i/;
3 ~ 5 £ >T
= —
= o ^
— s= T —
« c: — a ~ -o reí
~
E ^ O — ai — = — " ; a i , Í
—
j vi ~ ir. cr — — 2 =
— fO ¿3 R W - J i ' J í „ Ü j Gtzí f^Z
l S ^
=.
= n£—52 ^ -
— GJc - M
— — re re: « £ «
r= — w i w ÍC
3 — 2 «
2= 1•
S % -§ J ®
re
—
5 i:= «
S x= —2 ®« ^i 2: —
^ í
p
2
— e«ts==re ^r =J? 3. -a
= a1
"f 3 2 -2 TO S rv
; t - 3 «s a. =—a: S3 —
= =
= ra i> -= re =r 5 —- — ^ tJ 3 = « FL =
3 — «3 E5 S
K y
~ 3ü «a; = t=j ^~ 5
« ffitj J E o > = CJ — CJ —. SS £-5 S 5C =s J> I¿ Ia ss Ji l2 us i5 t
t_j m! .= 5 ~
3 S5 = - = a u > j ; 0.
o ti
— fNi
fM
OJ
o
—
C
=v —
c= es
rv
ea
cr>
US 13
u J-- = — VÍ ra s= = ~ J2 i;
5 - =
u =— S E- jj 2 —- ^ X
VI
—"
~
S i •§TO2 -- tfl ar ^ —
-

ü s 3í o« ^TO£ VI
« «
>- TO

e I ; > ; ; = "= -=. > a -s- - ^ — S 2 i? -= .E — =

J "I = 3 3 ~ —
•=
S
w 3 2 H * 5 2 n o re £¡ ~ ^ =• = •= — 2 =
Z TO £ i ¡ I ? =' I B ^ » CN> ^ S¿ -2 'g S1 ^ «
í 1 ¿ • j¡ - = — ^ -o — t> ~ I » i § | ! i c O_ = o> JZ
= i ^ U
6 1 =" ü = —
_3 = = =
a §s 1 " |I 5s5
•s H re ^§ f^ i ^- I ° J•—
p ^ í—
fl —2 S< S
"ra ff. a
—
ü
^ = TO S TO =;
SS - — ü 2C vi ii ir vt — '— C "O u > — ~ I I

a
—. 33
fsi ta CNI
O C:
as os

!Z n to iJ "3 « —
VJ
> -
z c E o
0
-3"
o ÜJ o oo «o 00
O I o - o O) ow
U H (A T3 o Sí - i S a ~ JJ _TO

0 S X O — > W 3TO« - ^
=9 c c E t-> SS td o re
<D ÍD 3
C TU z ~oT3 o c o •3 a ¡ = « |
01 < o •o
c S si ñ ñ -
J. 10 II O X b. o a
é | re 3 . C
X CL O 15 = 2 - 3 .
2 s "5
Q c w
c. 2 C u » «311 Í l H
tz U « O O '35 a> o
9-
¥ L.3 < 5 « o c
o c
O —
Cl o
O O U z
TJ 0) E
2 c3 w .0) o 2 -
o'E
to rj
£ i 4>
O
c E en
3 ü
? a:
a. o 3(
v t5 OJ
ü)
<0 ÜLT
C C5
T- 5=
O
I 3 u S i

I
f S g 3 .a C S L)>
D
5 C 41 ® « % a 0 O o®OO d.n
£
h .33 ra ^ >>
•C re 'QO . -[Link]íiq
(ft
E R C
ü
"
•5 2 " OO - 1Í1UÍ.Í51Ú ^ ,
a ra
K «
«
K- C 5i •E Jüiriiíiifiiíi • -'o
íü o
U
3 LJ O - IAU5 -<X>Oi£
o c . . ra
3 B (ú*! * - (tillar- - 41 ^
\ l i o a:
0A> 1 T5
CL ra ÍS2¡ .i ra T3 Q) «X re;
•fliD l(ji£H¿i • -IX-O
0> -^iD - -íCi*tu5 m
.(
0 c
ai • E E « Í3 ^ líO • -<rjíuiíir- -oo :
z •K 1
re ^ o O
S «
3 8 -
-<^JU¡1"ÍH£I"Í> • O!
rj •V.
re 00 ~ ra « «O * » ~í0(Cn£pi» - —•
E ÍE re « o» •o .2
• O M

I •s> _
ra «5 2 « re <V T W
u •ÍIO ijj -OIBtJ Ot.
*
H •V
"S
ra
•=
^
C
O O
T RA O * * - -(ij<o«cn -*i .B
* W
" OC CL C
£
2
O
O
ra ra 41 y
«
2 ra ^
-O G
z £ (CI£IOiiu£,.ÍI_( - o - t- a.
uiiñ -1/1 -.(DO a
C
'55 O 01 |
X W
W O O S: C
^llClrtl»^ - -.Hltt O-'
VZD«> O CL)
TJ -A •O O ni u
O. ~ " ss
S h - 'Uli'-Í -gtlv: o
IL LIO ^HÚL j- I- - •: íj
UJ
o c<-o<- ra a w • ra </>
41 o) 0 -
<_
<-C«A ' g
® A O ®
uaa<i.i(xixaaa'xzíi czáüj
ra wI 1 .2
2 c
2 G ^ O
> JjíOf raiüOÜJ « O
C 15 ^ ^ ^ m ° ra ^
O u WJ E
ra 7; OOOeJOciCi&OfU-t^iG.n 00
( T E , .
ra o _ •»u>i£>r-i;ci(7,ci-i f'j .'uíy ru^ .ju">
W £ raoorW tílID O A> _ E ^
S 3 c ra = o « aj ra l ! HHHHHHH-'4JHH
U ^toaiCLú ra cr.í o E O;
«1 C C tOO £ 1 = o ¿ a ra o C
a. co o ra OCc W. E a>
Aja^rtOO»-(tur»-'*- .o

S
£
a> >. co O 1 ra «
D <r> a A) C ! — •O C
, C «
S <U
— X 1 3

a UJ <H 'll 41 > •<* T> o * = — Í3 » 5 2 ra Q 1 0) <1>

•A ttl- v a o.-'-' u (jit. s m C 5 4) = _O -
» í í 0 !

C 1 $
2|
•O .
O S
i_ 0 * > . I ra >
ra « 00
3
® QÍ
4- h jtúú.ujuou'icrciu'-o SK » S a c -O! ra X .0
Ziu ac ra £ c 0 0 Ua- ra 3 O ra O I ; § O n
+ UCOHEZt-XOM-JOo. K w <uTO O R RA
-= UJ ¡ O &
— CO .5 ra ¡e O A . .Sí co a a
3 s 1 g
E 01 E
R- Í/3 O >« + • ****** 4 * >íi
< id 3
•
•

• uH *
* • :
1/) — O
CU• 0) aj re
M 1 • + ^

o o -o tO * 0 K
C
re co o re ra O ^ ra ¡e c tz = * cu
o. X jz> re^ •O
*
O > 3 a + h J *
3 o i ' 5. = 1S « c Vo O O 5 •
•» UJ aJ .-r 0 * -H; :
O '
O
-
.2 -o re o f UJ
*

o •c
Y» 0
W 2
« S-
o tfl CM
ra
^ <5
ra ^ \ * rt)

ra re cos c — £? le l a O + a 5 *t at - o> : O
RI*
U! ( J 3
« c £
ra o c c •
«1 * IL a + -..n
» O - fi *
O RA 0)
u 3 a t -1 U1 t Q— ao^»
—•
3
ra cE o c o
O (J O W ^ —
a> V) ™ £ «
<ñW~ "C
Si • c TE « D o o. ra o o Í5
• 3 'I (/
* B WD-lí » •«-•O
" =I = O
o re
V) S Í T
•o E s"3 J u> a= o £ o • 0 *
• [Link] )t Ve»
S
ra y© o 00 o_ « 3 «
JS -
o L. « A U SÍ 01 U OJ £ . c • *

2 o W O A O
c ra o — -ra
<fi s O ü E • <r * * + * + • + '* i- oOot
1^ W
<!J ÜO •O C o Ü.t- ÜÜJ
o ñI Í 3 o E
O
« 5 £ « G « O
^ K I/jücIÍ;
§ 3 g t
• ^
Si ^
F? 3 «
5 > vi ^ xr UJ CCouJOhJO
.'Ci to « f
^ c a a
E Q • "« •O 2 - < 0 c
<I> ce
N
>
W z> C « o
O X 3 =
«
05 - CJ
O
ST s re 0 J5
</> - E 3 re ra 1 o ra
en » E o =
(XI 1.1IDOOG
3
s •o -i ra § i
g s » «<I O O Q §
I .y ra a, .2 U II ra
< "o (0 j o
©
£

T3 <J> 1
•o re o
A. § 1
« -SÍ . T U Q « O I) Q. ra * "
3 c = ra c c -o
•C •A
o
W ¡C
c
I I Ü ra w ai T: c o O 3 V re "C
oO
 le sacamos jugo
INTERFACE MONITOR
ÜG^EOflO iUFQnCIflT B5 M 0 } al fruto de la
l-t/1
Mtl
urna invest igacion

impresora calidad margarita

SEIKOSHA SP" 8 0 0
lOKCTI »IKCTMKITE
I L K K RNISIMES
m nsTtiiM m» con t r a t a m i e n t o de t e x t o s
ITK HUHIICIS SPECTRUM (copy g r á f i c o incorporodo)

LAPIZ
OPTICO al ¡mentodor hoja a hoja^v <¡fr

3 H I L E L E S DE ZDCXt
BAS DE u a FUÜCIGÜES
<0>
también impresoro-plotter
CASSETTE V CJICRDDRIfE R I T E MAN F*
«"ui'ISISfD-f^AlWEE

nECC5ITfl»IT05»
r ; r r R r : » r r i T . i » r T r : »
PARA YODA
IF SONIDO ^ ^ e m p a p a
POR T U T V
COMPATIBLE J D V S T I C h
CDÜSIGUE CIAS HEALISaO

tm

i * » » » M
apsasiTM m msm m\ Mjeaawía
Ficheros aleatorios
tiempo medio de acceso 4 seg
amplia la memoria de tu
spectrum hasta 90 k
nueuos comandos basic
al fin tu microdriue funcionara
como un disco de uerdad
ven a v e r n o s o piuelo por correo a

PIN SOFT
PASEO DE GRACIA 11 ESC C 2 4
08007 BARCELONA TEL 93 318 24 53
SOFTWARE V
ALGORITMOS
DE ORDENACION (y IV)
Javier AÍAMAN
En este cuarto y último capítulo sobre Ordenación
tratamos sobre el m é t o d o d e n o m i n a d o «QUICKSORT»,
uno de los más veloces y especialmente r e c o m e n d a d o
p a r a la ordenación de g r a n cantidad de datos.

liste es un algoritmo en e! que lo más arrays de los sub-arrays, y asi hasta que
complicado de entender no es su fun- éstos consten de un solo elemento,
cionamiento. sino el motivo, casi má- momento en el que, evidentemente, el
gico, de su increíble rendimiento. Su array estará ordenado.
velocidad es tan espectacular que su fin la práctica, se plantea el problema
distribuidor C A R . lloare lo bauti/ó de que para cada paso se generan dos
con el nombre de «quicksort»» es decir, sub-arrays que tendrán que ser trata-
ordenación rápida. dos. Uno de ellos puede serlo inmedia-
Su principio de funcionamiento es el tamente, y además, se procura que sea
siguiente: lomamos el array y conse- el de mayor tamaño, si lo hay. (Ambos
guimos que presente una estructura sub-arrays pueden diferir en longitud
peculiar, en la que el elemento central en una unidad). lil otro, tendrá que ser
del array (el n/2) no tiene ningún ele- guardado en una «cola de espera» para
mento inferior detrás suyo ni ninguno ser ordenado posteriormente, lin len-
superior delante. listo se hace empe- guajes más avanzados que el BASIC,
zando, por ejemplo, por el extremo iz- como pueden ser el PASCAL o el APL,
quierdo del array, y buscando un ele- este problema podría resolverse tam- guientes mejoras. En adelante cada vez
mento que sea superior al que ocupa el bién mediante la recursividad. No nos que tenga usted que ordenar un array
centro del array. Si se encuentra, se extenderemos más sobre este punto. de datos, probablemente se lo piense
busca entonces desde el extremo dere- Como ya hemos dicho, éste es el al- dos veces antes de escoger el método
cho un elemento que sea inferior al goritmo que ordena datos con una ve- adecuado.
central. Cuando éste es obtenido, se in- locidad mayor, para número de dalos a Como hemos visto, para pequeño
tercambian ambos, liste proceso se ordenar suficientemente grande, (lin número de datos (típicamente no más
continúa hasta que electivamente el el Spectrum. para 100 o más dalos, por de treinta) los algoritmos elementales
elemento central tiene por su izquier- ejemplo). Sus desventajas, aparte de su son la elección adecuada, ya sea la bur-
da, todo elementos inferiores y por su mayor complejidad de programación, buja o la sacudida para datos sem¡orde-
derecha, todo elementos superiores, estriban en que ocupa una cantidad de nados, ya sea la inserción o la selección
(lin el proceso, es posible que sea inter- memoria extra, además de la del propio para datos sin ningún orden. Para mu-
cambiado el propio elemento central). array (para la cola de trabajos en espe- chos datos, en cambio (más de cien,
lin esta situación, lo único que hay ra), y en que existen determinadas dis- por ejemplo), el quicksort suele ser la
que hacer es repetir lo anterior para ca- tribuciones iniciales de datos (muy ra- elección más escogida por los progra-
da uno de los sub-arravs que quedan a ras, por otro lado, y muy dilTcil que se madores profesionales, aunque algu-
la derecha e izquierda del elemento den en la realidad en alguna ocasión) nos prefieren el heapsort, que tampoco
central. Después, repetir para los sub- que dan al traste con el sistema, que pa- desmerece, y en cambio es un método
saría a ser para dichos datos el método más regular en sus resultados, como ya
1 0 REM - qui(H:Ofl -
15 «lento». De hecho, el caso «malo» se hemos comentado. Aquí, como en mu-
20 LET U L N d i i / L N 2
30 OIM p I B . 2 ) . . da cuando en cada nuevo sub-array el chas otras cosas, es cuestión de gustos.
4 0 LET P « 1 LET p(1,11=1 LET
P <1,2) = di» elemento mayor es precisamente el lil lector avispado probablemente se
5 0 LET | Z * P ( P . 1 > LET d < > P ( P , 2
I LET p = p - l
6 0 LET i c i 2 LET j . d e LET
central. habrá dado cuenta de que queda una
t $ <1NT ( ( i I + d« ) / 2 > , í
7 0 i r * S < i . ) < X « TMEN L E T
GO TO 7 0
franja de valores sin cubrir en las ante-
8 0 I F X « < » * ( j . ) TMEN L E T
GO TO 8 0
j * J - 1 riores recomendaciones, lin estos valo-
9 0 I F ¿ < « j TMEN LET a t i i K i , ) . Conclusión res (entre 30 y 100, típicamente) no hay
LET j » ( i , ) * » 4 \ j , ) LET i f l j . i U
« LET i = t + l LET j=j-1
1 0 0 I F i < = j T H E N GO TO 7 0 más remedio que armarse de valor y
1 1 0 I F j - i Z > =de - i TMEN GO TO 1 *
e Lin conclusión, hemos visto que lo experimentar con los distintos méto-
1 2 0 I F i « l e TMEN L E T p = p * l LET
P tp , I I = i LET p ( P , 2 ) » d f c que en un principio parecía una tarea dos hasta encontrar el que mejor se
1 3 0 LET d t i j GO TO 1 6 0
14.0 I F i Z < j T H E N L E T p =p • 1
P<P,l)i>Z L E T p (p , 2 ) • j
LET simple y trivial, en realidad puede ser ajuste al problema. Para facilitar dicha
1 5 0 LET iZ=t
1 6 0 I F i Z < d « TMEN GO TO 6 0 objeto de muchos estudios y consi- experimentación, suministramos a
1 7 0 I F p < > 0 TMEN GO TO 5 0
1 8 0 RETURN

22 MICROHOBBY
 continuación un programa que podría
titularse «banco de pruebas para algo-
ritmos de ordenación».
Una ve/ ejecutado RUN aparece un
menú con los distintos comandos posi-
bles. Lo primero que hay que hacer es
utilizar el comando «A» para definir la
aletoriedad de los datos» en unidades
de tanlo por ciento. Así, un valorde 100
representa unos datos iniciales com-
pletamente desordenados, mientras
que un valorde O corresponde a ios da-
tos iniciales completamente ordena-
dos. Luego se utiliza el comando «D»
para lijar el tamaño del array. El orde-
nador generará entonces internamente
el array con las especificaciones reque-
ridas. Ahora se podrá probar cuánto

PROGRAMA DE ORDENACION 100

110
GO T O 8
FOR i = l T O d í a PRINT a ( i ) ,
FN t t l i I N T < < i PEEK 236? NEXT i : PRINT RETURN
2 ) + 2 5 6 i (PEEK 2 3 6 7 3 ) +65536+(PEEK 1 2 0 FOR i = l T O d i » LET a(i)=b(
23674»)+.02) i): NEXT i : RETURN
2 LET 9 H " " OIM 11101 DIH L 1 2 5 REM - « e n t r a d o r de v e c t o r -
t (32) 1 3 0 FOR i = í TO 8 LET t ( i ) = 0 N
4 DfiTfi 22,2,11,1 7,2,16,7,127, EXT P R I N T fiT 1 9 , 7 ; PfiPER " 1, i
1 ,
32 , 8 8 . 4 6 , 6 5 , 1 0 8 , 9 7 , 109,97,110,22 NK 7 ; " d a a e la d i a e n s i o n " : GO SUB
900 LET t ( 1 0 ) =nuae ro LET d i a =
c
5 'L-ÉT+ x « = ' ' " FFO R TO 24 R numero DIM b < d i a ) OIH a(dia)
ERO V i L E T x »» = X
x «_+ C_H R « vi NEXT I F t ( 9 ) > > 1 0 0 T H E N FOR 1 = 1 T O d í a
i LET V i v í LET COm-6 LET a ( i ) = INT (RND + 9 0 ) + 10 LET
6 GO SUB 3 0 0 b(i)*«(i>: NEXT i 5 0 SUB 4 0 0 R
8 I F NOT COK T H E N L E T a $ c I N K E ETURN
Y» P R I N T RT 15,3;"C" 1 4 0 FOR i = l T O d í a LET « ( i ) - i :
10 I F con T H E N L E T 1 | > C | < 1 ) L NEXT i
ET C $ i C I ( 2 T O t I F C C «CHRS 1 3 T 1 5 0 FOR i s l TO dia«.0O5*t(9)
HEN LET c o a =0 1 6 0 LET j • I N T (RND * d i a ) + 1 LET
2 0 I F SCREENf ( 2 , 2 0 ) - a * THEN 6 t=INT (RND t d i a ) + 1
EEP 1 , 2 0 LET r u t = 3 5 0 0 GO S U B 2 1 7 0 LET x « a ( j ) LET a(j)=a(fc)
00 LET t ( 8 ) = t i e a p o : GO SUB 4 0 0 LET a m «x
BEEP 2 , 1 0 1 8 0 NEXT i FOR i « l TO d i * LET
25 IF a i " THEN BEEP 1 , 2 0 L b(i)=a(i) NEXT i GO SUB 4 0 0
ET f l ) t = 3 0 0 0 GO SUB 2 0 0 LET 1(7 1 9 0 RETURN
1 i(ie*P0' GO SUB 4 0 0 BEEP 2,10 1 9 5 REH - r u t auxiliar -
2 7 I F a f = " 9 " TMEN BEEP 1 , 2 0 L 2 0 0 P R I N T fiT 1 9 , 1 3 ; FLfiSH 1;"ES
ET 9 » = 9 « + C H R » 8 8 FOR i = l T O 1 0 P E R O " : GO SUB 1 2 0 LET t l . F N tí)
LET g f = 9 f + S T R f t < i > + " f NEXT i GO SUB r u t : LET t 2 = F N t U : LET
8EEP 2,10 t«eapo=t2-tl I F 11e apo < 0 THEN
3 0 I F a f = " b " THEN BEEP 1 , 2 0 L LET tie»p0»ti«ap0-l+2t24
ET r u t = 4 0 0 0 GO SUB 2 0 0 LET t(2 2 1 0 RETURN
I alie«po GO SUB 4 0 0 BEEP 2,10 3 0 0 REH - p a n t a l l a -
3 2 I F a f = " 8 " THEN BEEP .1,50 3 1 0 BORDER 5 PfiPER 5 CLS
LET V i - V i + 1 GO SUB 5 0 0 LET vi» 3 2 0 PfiPER 2 P R I N T fiT 2 , 1 ; l « ( T
v i -1: I F i < > 0 THEN LET v*«Vi+l O 3 0 ) , fiT 1 7 , 1 ; ( . » ( T O 3 0 ) FOR « «
FOR j - 1 TO 1 0 GO S U B 5 5 0 LET t 2 TO 17 FOR j = l TO 3 0 S T E P 2 9
I I) m u l e r o NEXT j GO S U B 4 0 0 P R I N T fiT i , u , " NEXT j : NEXT i
BEEP .2,10 3 3 0 PfiPER 7 FOR i = 3 TO 16 PRI
33 I F a f » " 5 " THEN BEEP .1,50 NT fiT i , 2 , l f ( T O 2 8 ) : NEXT »
I F V i >1 THEN LET v u v i - 1 . GO S U B 3 5 0 FOR i = 5 T O 1 4 FOR j = 1 0 T O
500 I F i < > 0 T H E N FOR j « l TO 1 0 2 1 : P R I N T fiT i , j ; " . " : N E X T j : NE
GO SUB S S 0 LET t ( j ) = n u i t r o N XT i
EXT j : GO SUB 4 0 0 8EEP .2,10 3 6 0 P R I N T fiT 3 , 2 3 ; " S 9 d O S . " ; x j , "
35 I F SCREENf ( 2 , 1 6 ) = a f THEN B Ou i c u o r t " , fiT 6 , 3 ; " B u r b u j a " , RT 7
EEP 1 , 2 0 LET r u 1 = 4 5 0 0 GO S U B 2 ,3;"Heapsor t";fiT 8,3;"sheLlsor t"
00 LET t ( * ) = t i e a p o GO SUB 4 0 0 ,fiT 9 , 3 ; " s a c u d í d a " , f i T ie,3;"Sei«
BEEP 2,10 c c i o n d > re c t a";fiT 1 1 , 3 ; " I n s e r c i o
4 0 I F a t " " S " THEN BEEP 1 , 2 0 L n directa'.fiT i2,3;"iNsercion bi
ET r u t = 5 0 0 0 GO S U B 2 0 0 : LET 1(6 n a n a - , fiT 1 3 , 3 , " f i l e a t o r i e d a d (y.) "
1 i t i C I P O ; GO SUB 4 0 0 BEEP 2,10 ;fiT 1 4 , 3 ; " D i a e n s i o n " ; f i T i5,3;"co
4 5 I F a f * " C " THEN BEEP 1 , 2 0 L Mandos,Guardar,cursores"
ET r u t « 5 5 0 0 GO SUB 2 0 0 LET t(5 3 7 0 GO S U B 4 . 0 0
) = 1 1 6 m p O : GO SUB 4 0 0 BEEP 2,10 390 RETURN
50 i r a f » " h " THEN BEEP 1 , 2 0 L 4 0 0 REH - p i n t a v a l o r e s -
ET r u t = 8 0 0 0 GO SUB 2 0 0 LET t(3 4 1 0 FOR i = S T O 1 4 P R I N T RT i , 2
)= ti t i p o : GO SUB 4 0 0 BEEP 2,10 3 , l * ( T O 6 ) ; fiT i , 2 3 ; t ( i - 4 . ) NEXT
5 5 I F M « " q " THEN BEEP 1 , 2 0 : L i P R I N T fiT 1 9 , 2 ; PfiPER 6 , l » ( T
ET r u t = 6 0 0 0 : GO SUB 2 0 0 LET t i l O 28): RETURN
litieiPd GO SUB 4 0 0 BEeP 2,10 s o e REH - b u s c a v i - e s i a a tt -
6 0 I F a f » " d " THEN BEEP 1 , 2 0 G 5 1 0 LET c o n t . 0 : FOR i - l TO L 6 N
O SUB 1 3 0 BEEP 2,10 41
6 5 I F SCREEN» ( 2 , 1 9 ) > 1 1 THEN B 5 2 0 I F 9 f ( i ) ex ( ( 1 0 ) T H E N L E T c o
EEP 1 , 2 0 P R I N T RT 1 9 , 6 , PfiPER 1 n t =con t + 1 I F c o n t =V i T H E N R E T U R
, INK 7 , " d í t e la a te a t o r i e d a d " N
GO S U B 9 0 0 LET t ( 9 ) * n u a e r o BEE 5 3 0 NEXT i LET i =0 RETURN
P 2,10: GO S U B 4 0 0 5 5 0 REM - v a l o r -
70 I F SCREEN» ( 2 , 1 8 ) T H E N B 5 6 0 LET n $ * " ": LET i = , + l
eep l,20 input "Daae ios coaand 570 IF Q f ( i ) > = " 0 " RND 9 | I i I < • " 9
OS " ; Cf LET Cf=Cf+CHRf 13 GO " THEN LET n * = n » + 9 « ( i ) : LET i=i+
SUB 3 0 0 P R I N T fiT 1 5 , 3 , FLfiSH 1; 1 : GO T O 5 7 0
"C": LET C0B=1 5 6 0 LET n u a e r o = U f l L n » RETURN
^ Quicksort

23 MICROHOBBY
 SOFTWARE
9 0 0 REM - s a c a n u i e r o -
9 1 0 I F NOT c o a T H E N I N P U T
ro: RETURN
;nu«e
SACUDIDA BURBUJA
9 2 0 LET n $ = " "
930 IF c * ( l > > = " 0 " AND C « ( l > < • " «
" THEN LET f>$»n» + C « < l ) : LET C* = C 1 5 5 5 1 5 5 5 5
l i a TO ) GO TO 9 3 0
A
9 4 0 I F C » = C H R « 1 3 T H E N L E T CO« = 3 1 3 4 3 1 4 4 4
9 5 0 LET n u » e r o = U R L n$
960 RCTUPN 5 3 4 3 5 3 1 3 3
3 0 0 0 REM - i n s e r C c i o n d í c t r u -
3 0 1 0 FOR i « 2 T O d i k
3 0 2 0 LET x=«(i)
2 4 2 2 2 4 3 1 2
3 0 3 0 FOR j = i - l T O 1 S T E P
30*0 IF X>»a(j)
-1
T H E N GO T O 3 0 7 0 4 2 1 1 4 2 2 2 1
3 0 5 0 LET a ( j + l> = a < j )
3 C 6 0 NEXT j
3 0 7 0 L E T a T j + 1 ) «X
3 0 6 0 NEXT i
3 0 9 0 RETURN
3 5 0 0 REM - i n s e r c i ó n
3 3 1 0 FOR i = 2 TO d i •
binaria - INSERCION (DIRECTA O BINARIA)
3 5 2 0 LET X = a ( i ) : LET i 1 = 1 : LET d
e • i -1
3S30 LET « » I N T ( l i l l d t ) / S )
3 5 * 0 I F x < a < « t THEN LET dCxM-1 1 1 1 1—. © Q Y a ordenad*

©
CO TO 3 5 6 0
3550 LET i2»«+l
3 5 6 0 I F i z < = d e T H E N GO T O 3 5 3 0
3 5 7 0 FOR j = i - l TO i Z S T E P - 1 LE
3 3 3—i © "1 próxima
4J inserción
© ® ©
T a ( j +1) < j> NEXT j
3 5 8 0 LET
3 5 9 0 NEXT i
a(iZ>-X
5 5^3

©
3 6 0 0 RETURN
* 0 0 0 REM - burbuja
* 0 1 0 LET f 1 * 9 - 0 . LET
4 0 2 0 FOR j =d > • T O * S T E P
-
fc.2
-1 2 n © ©
<$J ® © ©J ©
4 0 3 0 I F a ( j - 1 1 >a < j ) T H E N L E T X-*
( j - l t : L E T a ( j - l ) «a <j> ; L E T a(j)
I X : LET l =j LET f t a ? =1
4 0 4 0 NEXT j „
4050 IF f l a 9 THEN LET r i a 9 ' 0 GO
TO 4 0 2 0
4 0 6 0 RETURN
4500 REM - shelisort - luego el ordenador ejecutará uno tras
4510
4520
LET t « I N T
FOR B = 1 T O l
(LN d i « / L N 2 ) - l SELECCION DIRECTA otro. Asi, para definir una aletoriedad
4530 LET H..-1+2T ( T J
4540
4550
FOR i « * + l TO d i *
LET x (i) r>1 4 4
r* 4 5 de 100, junto con una dimensión de 50.
y para probar el método de la burbuja y
4
4560 FOR j « i - H T O K S T E P - H
4570
4580
I F X >a ( j ) T H E N GO T O 4 6 0 ©
L E T a ( j + l í =a ( j )
3 3 r*3 el heapsort, el comando m nos permiti-
4590
4600
4610
NEXT j
LET * ( . i * * ) -X
NEXT i
5 5 £ 5 3 3 ría teclear al00d50bh. y después deja-
4620
4630
NEXT M
RETURN
5008 REM - i t i t c o o n directa -
2 2 2 2 2 ríamos que el Spectrum trabajase él so-
5 0 1 0 FOR ¡ = 1 T O
5 0 2 0 FOR j = i + l TO
d i i - 1
di•
^ 4 1 1 1 1 lo en ello. Junto con el comando «M»
5030 IF a < i » > a ( j ) THEN LET X»»<i es importante el comando «G» que
) LET a ( i ) = a ( j ) . LET a«j>»x
5 0 4 0 NEXT J
5 0 5 0 RETURN
NEXT i guarda para su posterior consulta los
5 5 0 0 REh - s a c u d i d a
551® LET i 1 = 2 : LET d e = d i » :
-
LET k larda cada método de ordenación en dalos que en ese momento se ven en la
=d i •
5 5 2 0 FOR j = d e T O i Z S T E P -1 realizar la tarea. Kn el menú aparece pantalla. Dichos datos podrán ser lue-
5530 IF a < j - l ) > a ( j ) THEN LET X=»
(j-l> LET a ( j - 1 ) = a ( j> LET a(j> cada método de ordenación con su go consultados con los comandos«5» y
•X: LET H=j
5 5 4 0 NEXT
5 5 5 0 LET
j
H i L t í nombre en letras minúsculas, salvo «8» (sin caps shift), que permitirán ver
5 5 6 0 FOR j = > Z T O d e
5570 IF a i j - l ) > * ( j ) T H E N L E T X =a una mayúscula. Si apretamos la tecla ios datos anteriores o posteriores, res-
(j-1): LET a ( j - l ) a a ( j ) LET atj)
=X L E T ll • j correspondiente el ordenador se pone pectivamente. Un uso conjunto de di-
5 5 8 0 NEXT j
5 5 9 0 LET d e s l t - 1 _ _ a comprobar el tiempo que necesita, chos comandos seria, por ejemplo, el
5 6 0 0 I F i z < = de T H E N GO T O 5 5 2 0
5610 RETURN expresándolo después sobre la pantalla utilizar el comando «ni» para introdu-
6 0 0 0 REM - q u i C U S O r t -
6 0 10 LET * : L N d i i / L N
6 0 2 0 DIM p<».2)
2 en segundos. Se pueden probar lodoso cir la secuencia al00dl0bqgd50bqgd
6 0 3 0 LET p = l
P(1,2)>di*
LET p ( l , l ) - l LET
solo algunos métodos, y en variedad de 300bqga0d300bqgque permitiría hacer
6 0 4 0 LET iZ=p(p,l) L E T d e =P ( P , 2
I LET p«p-l situaciones de longitud y aletoriedad un estudio comparativo de los métodos
6 0 5 0 LET i = j z LET j=de LET X>«
(INT ( < i Z +de > / 2 > ) inicial. Además, se incluyen cuatro co- burbuja y quicksort para diversas situa-
6 0 6 0 I F a < i ) < X TMEN LET i « » + i : G
O TO 6 0 6 0 mandos de ayuda. Uno de ellos es el co- ciones. (1 lay que tener en cuenta que el
6 0 7 0 I F X <a ( j ) TMEN LET j m j - 1 G
O TO 6 0 7 0
6 0 8 0 I F i < = j THEN LET t » = a < i > . LE
mando «M» que permite introducir método de la burbuja para 300 elemen-
T a(i»=a(j>
+1 LET j • j - 1
LET a ( j ) a w LET i
una serie de comandos seguidos que tos puede llegar a tardar horas.)
6 0 8 5 I F « < = j T H E N GO T O 6 0 6 0
6 0 9 0 I F j - i Z > = d e - i T H E N GO T O 6 1
20
6100 I F 1<d€ THEN LET P=P + 1 LET
P.'P'1!-?1 L E T P¿P^2)=de_
6 1 1 0 LET d « = j : GO T O 6 1 4 0 TIEMPOS DE EJECUCION DE LOS DISTINTOS METODOS
6 1 2 0 I F i z < j THEN LET P = P + 1 : LET
p<p,l)*iZ:
6 1 3 0 LET iz±I
LET p(p,2)=j
DATOS DATOS
6140 IF i K d t T H E N GO T O 6 0 5 0
6 1 5 0 I F p < > 0 T H E N GO T O 6 0 4 0 ORDENADOS DESORDENADOS
6 1 6 0 RETURN
8 0 O 0 REM - h e a p s o r t -
8 0 1 0 LET W i Z - I N T
•de:d>>
(diB/S)+1: LET Inserción directa 12 23 366 1444
8 0 1 5 I F w i Z d l T H E N GO T O 8 0 3 5
8 0 2 0 LET w i z = » i z - l GO SUB 9 0 0 0
Inserción binaria 56 125 373 1327
8 0 3 0 I F « 1 1 ) 1 T H E N GO T O 8 0 2 0
8 0 3 5 I F Mde < = 1 T H E N GO T O 8 0 7 0 Selección directa 489 1907 509 1956
8 0 4 0 LET x « a ( l ) LET a ( U >1 ( « d e l
LET A(«DE)=x
3 0 5 0 L E T Hde = » d C - 1 GO S U B 9 0 0 0
Burbuja 5 8 1104 4270
8 0 6 0 I F H d e > 1 T H E N GO T O 8 0 4 0
8 0 7 0 RETURN
Sacudida 5 9 961 3642
8 9 9 9 REM - ( f i b i
9 0 1 0 LET 1 > » | Z
-
LET j • » • » LET X
Shellsort 58 116 127 349
• « (i )
9 0 1 5 I F j>w<Je T H E N GO T O 9 0 6 0 Heafsort 116 253 110 241
9 0 2 0 I F j (Mde T H E N I F a ( j > < a < j + l
E
Quicksort 31 69 60 146
9030 I F L x T * a ("j>+ T H E N GO T O 9 0 6 0
90*0 LET a ( í ) =* < j ) LET i = j LET
9¿50+IF j<=vd£ THEN GO T O 9020
Primera columna: para 256 elementos.
9 0 6 0 LET
9 0 7 0 RETURN
a(i)=x Segunda columna: para 512 elementos.

24 MICROHOBBY
 • GARDEN. Siembra, cuida y
protege tu jardín y obtendrás una
buena cosecha.
• SOLADOR. ¿Lograrás colocar las baldosas de
todas las habitaciones?
• CAZA MENOR. Si tu mejor amigo te acosa, búrlalo
o perecerás.
• RULETA. Monta tu casino alrededor de tu ordenador.
• DEPURADOR. Observa cómo se desarrolla, paso a pa-
so, tu programa Basic.
ALE H O P . Ayuda al «caco saltarín» a recoger su botín desperdigado.
CRUZ. Prepara tu táctica para completar estos peliagudos pasatiempos.
DUENDES. ¿Podrá regresar a su mansión el Duendecillo perdido?
PRONOSTICO. Mejores posibilidades para confeccionar tus quinielas.
CINTAS LOCAS. Cuando tu cassette se enfada puede ser terrible... aún más.
PROGRAMAS DE LECTORES r
ASTRO 1 NOTRS GRAFICAS

Manolo ORCERA a?&m *

Spectrum 48 K Premiado con 1 5 . 0 0 0 ptas.

En una g a l a x i a desconocida, nos encontramos

a t r a p a d o s en una habitación laberíntica de la que
NKEY»="0" i
tendremos q u e salir, sea como sea. Es cuestión de 24 LET y • y ( I N K C Y » « " * " > - 2 * I I
Nr EV * =
2 5 I F ATTR ( y . y > - 1 3 THEN LET p
supervivencia. un< =pun í•100 RETURN
2 6 I F A T T R »y . > > 1 5 T H E N R E T U
»N
28 GO T O 2 0
29 RETURN
Por culpa del azar, hemos ¡do a parar salvo. Unos extraños objetos o asteroi- 30 FOR r, = 0 T O 2 1 STEP 2 PRItJT
a una galaxia no identificada y hemos des, nos atacarán si no repelemos a *T r> , <¡ I N K S j PAPER^

caido en manos enemigas. Tras ser en- tiempo su agresión. n PEAC- y 2 , x 2

NEXT

3 1 READ *
cerrados en un inmenso recinto, ten- Este será, pues, nuestro cometido, y 3 2 I F a ; >0 T H E N L E T y2ty2+'a»2
>-'4«ll LET * i £ í » i » s } l - í a u )
dremos que poner todo nuestro empe- poder acceder a nuestra nave para salir GO T O 3 4
3 3 RETURN
ño en salir de él; pero cuidado, si lo de este «infierno». 34 P R I N T AT y 2 , X 2 , "
•2 , " " GO T O 5l
",AT y2 + l ,

conseguimos no estaremos todavía a Tenemos que conseguirlo... 4 0 FOR u • 3 0 T O 2 5 S T E P

42 IF POINT <S*U-4,171-8*y»
-1
TH
EN B E E P . 0 5 . 0 L E T Pur. l » p v n t • 1 0
4 3 NEXT g
4 6 P R I N T AT y , u ; P A P E R 0 .
_ _ BEEP .01.20
~ 7 P R I N T AT y . v¿ P A P E R O , "
1 60RDER 1 PAPER 1 INK 7 CP 1 INK ? CUS
us 2 GO T O 9 9 0 0
1 1 GO T O 1000
2 0 P R I N T AT y 1 . • 1 . " ' . A T y . <, "
4&
1000
RETURN
LET x «30
3 GO SUB 3 0 0 0 J T . A T y 1 • 1 , x 1, ".AT y + i , x ; T " 1010 LET y 12
Í O FOR r. = 0 T O 3 0 OUT 2 5 4 , r> B 21 LET Xl»X: LET y 1 =y 1020 LET y 1 c2
EEP . 0 1 . n NEXT n BOROER 1 PAP 22 LET x =x + 2 * ( I N K c v ! • " ( > " I i I 1030 LET X1=3®

26 MICROHOBBY
1O40
1050
LET
LET
2000 REM a s M
punisO
¿¿¿¿-¿40

2 0 1 0 DATA 2 ^ 3 0 , 4 .4 , 4 , 4 . 4 , 4 , 4 , 4 , 2
RANSOM NOTAS GRAFICAS

. 2 . 2 . 2 , 1 , 1 , 1 . 1 . 4 , 4 , 4 . 4 , 4 , 4 . 2 , 2 , 2
.2,3,3.3.3,3.3,4.4,4,4,2,2,2.2,3
Marco Antonio ARROYO RAMIREZ
,3,3.3.3,3,3,3,1.1,1,1.3,3,3,3.2
2 . 2 , 2 , 2 , 2 . 4 . 4 , 2 . 2 , 4 , 4 , 4 . 4 , 4 . 4 , 4

20 í 1 DATA 4 , 4 , 4 . 4 , 4 , 4 . 4 , 4 , 4 , 4 , 4 , Spectrum 4 8 K
[Link].[Link].[Link].1.1.1,
1 . 1 . 4 4 . 4 . 4 . 2 . 2 . 4 . 4 . 2 . 2 . 4 . 4 . 2 . 2 ,
4 . 4 2 . 2 . 2 . 2 . 2 . 2 . 2 . 2 . 2 . 2 . 3 . 3 . 3 . 3 ,
3 . 3,3,[Link],3,0
2 0 1 9 RESTORE 2 0 0 0 GO S U B 3 0
2 0 2 0 P R I N T AT 1 3 . 1 4 ,
2 0 3 0 GO SUB 2 0
INK 5,"X" Premiado con 1 5 . 0 0 0 Pías.
2 0 4 0 FOR n : 0 T O 2 0 OUT 2 5 4 . n B
EEP . O I , n NEx.T n
2 1 0 0 LET x > 3 1 FOR n = 2 2 5 2 3 TO 2 3
2 9 5 - 6 4 _ _PCif
ífif E n . r * R l l t > NEXT n FO
R ñ = Ó TO 3 1 LET O=USR 60000 HE
XT n BOPDER O
2 1 1 0 FOR k = 0 T O 5 0 0 P R I N T AT 2 0
• PNC" * O P A P E P O. K
2 1 2 0 LET o=USR 6 0 0 0 0 , „
2 1 3 0 P P I N T AT y . y . PAPEP Oi'S'.R
T 'j*l , P R P E R1 O . f
2 1 4 0 L E T V = V + J N K C v « = " » " AND y <2
0>-<INKEY*='q" AND y .• 2 1
2 1 5 0 I F I N K E Y $ » " p " T H E N P R I N T AT
y t-10, P A P E R O. B
E E P . 0M 1 - 4 5 P P I N T AT y , X - 1 0 . PAP
ER O
2 1 6 0 LET r = 1 6 4 - e « y IF POINT 124
4,f> OP P O I N T <244,f«6» T H E N FOR
ft«0 TO 2 0 O U T 2 5 4 , ft B E E P .01.
n NEXT n GO T O 2 2 0 0
2 1 9 0 NEXT •
£ 2 0 0 LET p u r H = p u f t l + > LET x = 3 0
LET y « 2 DATA 2 . 3 0 . 4 , 4 , 4 , 4 , 4 , 4 . 4
,4 4 . 4 , 4 , 4 4 . 4 . 4 . 4 , 4 . 4 . 4 , 4 , 4 . 4 , 4
, 4 4 . 4 , 4 . 4 , 2 , 2 , 2 , 2 . 2 , 2 . 2 , 2 , 2 , 2 , 2
2 2 . 2 , 2 . 2 . 3 , 3 , 3 , 3 . 3 , 3 . 3 , 3 . 3 , 3 , 3
3 . 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 . 3 . 3 . 3 , 3 . 1
.1.1.1,1.1,1,1,1.1.1,1
2201 DATA 4 ,4 .4 4 ,4 ,4 .4 ,4 ,4 .4 ,4 ,
4.4 4.4.4 4,4.4.4,[Link],2,2,2.
2 . 2 , 2 . 3 , 3 . 3 , 3 , 3 , 3 . 3 . 3 . 3 , 3 . 3 , 3 , 3 ,
3,3.3,3,3
2 2 0 2 DATA 1 . 1 , 1 . 1 , 4 , 4 , 4 , 4 . 4 , 4 , 4 ,
4 . 4 . 4 . 4 . 4 . 4 . 4 4.0
2 2 1 0 RE S T O R E 2 2 0 0 GO SUB 3 0
2 2 2 0 PPINT «T 1 0 1 0 . INK 5. H
2 2 3 0 GO SUB 2 0
2 2 4 0 FOR n = 0 T O 2 0 OUT 2 5 4 , n 6
EEP . 0 1 n NEXT n
2 2 6 0 LET x « 3 1 FOR n « 2 2 5 2 6 T O 2 3
295-64 PONE n . 7 * P N C > N E X T r» FO
R rt = 0 T O 3 1 LET o=USP 6O0OO NE
XT r» 60RC>ER O
2 2 7 0 LET x « 3 1 FOR l « 5 0 O T O O ST
EP - 1
2 2 3 0 I F R N C ' > . 5 T H E N P R I N T RT 2 0 *
PNC-, O. P R P E R O,"*'
2 2 9 0 LET 0 = U S P 6 0 0 0 0
2 3 0 0 L E T y + l I N K E Y $ = " a " ANO y < 2
01 - I I N K E Y A N D y >0)
La misión está definida: rescatar a los integrantes del
2 3 1 0 P P I N T AT y , X , PAPER 0 , " J J ,A
T u * 1 ... . P A P E R O , T " c o m a n d o X que han sido capturados por ei enemigo y
2 3 2 0 I F I N K E V í • " p " T H E N GO S U B d
1 i P
2 4 0 0 NEXT i
encerrados en la fortaleza conocida por Ransom.
2 5 0 0 GO T O 4 0 0 0
3 0 0 0 RE5T0PE 3000 PLOT 50,170
DATA 30,0.0,-40,-30,0.0,20,30,0.
O . - 2 0 . 2 0 . 0 . 0 , 1 0 , - 1 5 .O.0 . 10.30-0.
-©.0.0,-20,O,20.S.O.O,-20,0.20,1 Para ello comamos con un helicóptero certero disparo de los cañones que de-
5.0.0.-10 •-15,0,7.0,8.-10,7
20 . 15 . 0 . O , - 2 0 , - 1 5 , O , 5 0 , 0
O,0.
-10,0,0 con el que seria fácil llegar a la torre fienden infatigablemente la muralla.
,40,-10,-10,255,255
3 0 1 0 READ a , b I F 4 = 2 5 5 T H E N GO donde se encuentran encerrados nues- Como podréis comprobar, no será
TO 3 0 2 0
3 0 1 2 QRAU » , b GO T O 3 0 1 0 tros compañeros, si no fuera por la vigi- una tarea fácil, sobre todo si nosqueda-
3 0 2 0 P R I N T AT 9,0
3 0 3 0 P R I N T "MANOOS "O..ARRIBA" lancia a que se ven sometidos y la pre- mos sin combustible; pero si lo conse-
"A..[Link]" "O. . IZQUIERDA" "P..D
ERECHA Y DISPARO""
3040 PRINT PPINT
sencia de otro helicóptero que acecha guimos, iremos acumalando puntos
SOL
O 5E P E R M I T E
AMINO"
CIRCU EL C constantemente. por cada hombre rescatado.
3050 PRINT NO SE P E R M I T E
COLISION T E Ñ E MANDO DE O I De cualquier modo, hemos de in- Las teclas a utilizar son: l \ derecha;
SPARO"
3060 PRINT SE P E R H I T E CO tentar transportarlos hasta el barco que O, frenar; I, izquierda; Q, arriba; A,
L I S ION PUN- TUR L DESTRUCCION D
E ESTRELLAS" espera en la proximidad esquivando et abajo.
3 0 7 0 P P I N T n o . ' P U L S A UNA T E C L A
PAUSE O CLS BEEP . 5 , 0 RETUR
N
4 0 0 0 FOR ñ = 0 T O 3 0 OUT 2 5 4 , n B
E E P . 0 1 , ri NE*T n
4 0 10 C L S P R I N T AT 3 , 2 , " T U P U N T
U A C I O N HA S I D O DE ' ,TAS 12. F
LA 5H 1 , 1 0 . P U N T 1 FOR f = 0 T O 7 READ » POKE 14 DATA 45,45,30,12,12,18,18,1
4 0 2 0 P R I N T AT 1 5 , 2 - 1 ' P U L S A 3 P A R A USR "á" * t N E X T I 8
NUEUR P A R T I D A " 2 DATA 24S.O,0.136,248,O,0,12 1 5 FOR f « 0 T O 7 R E f l D <* POKE
4 0 3 0 I F I N K E V » ( > " » • • T H E N GO T O 4 8 USR " h " + f NEXT f
030 3FOR / 3 0 TO 7 : READ « POKE 16 DATA 255.129,129,129,129,12
4 0 4 0 GO T O 1 0 USR " b " • f . • NEXT f 9, 129,255
9 8 9 9 STOP 4 DATA 255,64,240.248,252,254 1 7 FOR t = 0 TO 7 : READ • POKE
9 9 0 0 DATA 60,94.92,59,12,239,90, ,32,252 USR NEXT f
99,27,60,112,96,48,32.24,48,129, 5 FOR f = 0 T O 7 READ « POKE 18 DATA 113,176,84,65,139,73.4
102.126,60.60.126,102,129,213,19 USR " C " + f NEXT 1 ,96
2 .48,188,23,155.13,142,85.2,13,6 6 DATA 3 1 , 0 . 0 , 1 7 , 3 1 , 0 , 0 , 1 1 9 FOR f = 0 TO 7 : READ m POKE
0,233,216,177.112,14,141,27,151, 7 FOR / = 0 T O 7 : READ * POKE USR " j " + f , « NEXT f
60,17¿,64,170,113,176.217,2 32,61 USR " d "• + í .<* NEXT i 2 0 DATA 0,0.96.127,120.32,252,
, 1 2 , 3 , 1 7 1 ,0 8 DATA 255,2,15,31,63,127,4,6 232
9 9 0 5 RESTORE 9 9 0 0 FOR ft-USP "a" 3 30 LET h=4
T O USR " h " READ a POKE ft.a N 9 FOR f = 0 T O 7 : READ • POKE 35 LET »nlO
EXT n USR " t * < . w NEXT f 4 0 LET t-1200
9 9 1 0 CLEAR 5 t 4 10 DATA 235,8,8,8,255,64,64,64 50 LET hot=0
9 9 2 0 DATA 33,255.87,22,0,62,192, 1 1 FOR f « O TO 7 READ W POKE 6 0 LET p =0
6,31,43,94,35,115,43,16,249,114. USR • • < • * < , * NEXT í 65 LET p>0»0
43.61,32,242,201 12 DATA 0,0,146,191,255,2SS,25 7 0 GO S U B 5 0 0 0
9 9 2 5 RESTORE 9920 FOR O - 6 0 0 0 0 T 5,255 l O O REM i f « t « K « i <
60021 REAO é P O K E RI , A NEXT 1 3 FOR ( = 0 TO 7 READ m POKE •PANTALLA»
USR " 9 " • í . * NEXT 1 M M M M I t
9930 GO T O 3

MXCROHOBBY 27
 PROGRAMAS DE LECTORES
5,f BEEP . 0 5 , f * 5 NEXT I PRINT
1 0 S BORDER 3 : PftPER 0 CLS Pfl 2 4 5 I F X < 2 T H E N L E T X * S AT 2 1 , 1 , " P f t R f l U O L U E R R J U G A R PU
PER 7 CLS 250 IF INKEY $ • " » " OR INKEY«="A' LSA (S)"
1 1 0 FOR f = 6 T O 1 7 FOR n = 0 T O 6 T H E N L E T X = X + 1 P R I N T AT x-l,y; 1 0 2 0 I F I N K É Y $ = " S " OR I N K E Y f = " S "
P R I N T ftT f , n , ' i " NEXT n NEXT T H E N RUN
260 IF y > 3 0 THEN LET y » 3 0 1030 I F I N K E Y $ = "f>" THEN STOP
1 2 0 P R I N T flT 5 , 0 , " • • • •" 270 IF y < 0 THEN LET y s C 1040 GO T O 1020
1 3 0 PLOT 0 , 3 1 DRfttJ 5 5 , 0 DRAU 280 IF X >17 THEN GO T O 9 0 0 0
0,95: PLOT 0 , 3 1 DRflU 0 , 9 5 290 IF X > 4 ANO y ( 7 T H E N GO T O 9 |000 CLS BORDER 3 PAPEP 3 CL
1 4 0 FOR f * 1 8 TO 2 1 FOR fi«0 T O 000 5010 PRINT AT 0,0, FLASH 1, BRIG
21 P R I N T flT I . n , INK 3 ; " i " NEX 3 0 0 P R I N T AT X . y , INK 2 , a s
3 1 0 I F X S17 A N D y =26 OR X=17 AN
T
145 PPINT'AT 8 , 6 , " " PRINT flT D y « 2 7 OR x * 1 7 A N 6 y = 2 8 T H E N GO
8,6,"*" TO
3 2 0
9000
P R I N T AT 1 , 7 , V
1 5 0 P R I N T flT 1 6 , 2 2 , INK 1, " M H M 3 3 0 I F h O B = 0 T H E N P R I N T AT 4 , 6 ,
«hmmk" FOR f = 1 9 T O 2 1 FOR n = 2
3 To 31 P R I N T AT r , n ; INK I, • lí MARCO (ÍNTONTO^íRPd'rt) &AH
NEXT rt NEXT r
=1
340 IF X =4 ANO y=6 THEN LET hoi IREZ K ,
160 PRINT flT 18,24,"
17,27, flT 17,2 3 5 0 I F h O l i l ANO x s 1 7 AND y « 2 4 5 R I N T AT T I E N E i QUE RE
THEN LET p = p + I N T (RND*S0) LET h S C A T f l R R LA G E N T E OUE C O N S I G U E
180 PRINT flT O , O , •PUNTOS ",P,RT Di=0 P R I N T AT 0,7,p H U I R DE L f t I N V A S I O N O E L f t S T R O P A S
1 , 0 , "FUEL ¡1 2 0 0 " _ P R
«INT flT 3 7 0 I F X < 1 0 ANO y ; 2 0 T H E N L E T a R U S A S , Y L L E V A R L A S ftL B A R C O . P E P O
« t e l*INT ( 2 + 4 *RND) LET l a = I N T (7*1 TEN CUIDADO,MAN P U E S T O UN T A N
3,'UIDAS " P R I N T RT 0,19, 0 «RNDí P R I N T AT a i , l « ; I N K 0, "C OUE EN LA M U R A L L A PAPA E U I T A R £
( 1 TO h l BEEP . 0 0 9 , - 2 4 PRINT flT a l , l a L RESCATE."
1 8 1 REH * * • * • • • • • • • I F x>«t A N D y « l a T H E N GO T
•• V•A
• •R•I A
• *B*L»E •S•* O 9010
5 0 3 0 P R I N T AT 1 6 , 2 . "
A P
C-ERECH
I20UIE
182 LET 3 8 0 LET a a S a I N T (RND+1501 IF a PDA I PARADO
183
184
LET X = 17
LET X » * " r » "
LET y«25 a s = 1 2 THEN LET p i O = l
7,18,"*"
P R I N T AT 1
gM R P 1B w
[Link]. 1

200 REM ( m u í 3 9 0 I F p i O * 1 A N D y = 1 8 ANO X = 1 7 O"

4JUEGO• T H E N L E T p =p + 1 2 5 LET p i o = 0 PRI 5 0 4 0 P R I N T AT 2 1 , 1 , " P U L S A UNA T E
I4I«I«< NT RT 0 , 7 , p CLfl PARA C O N T I N U A R " PAUSE O RE
2 0 5 FOR V = t T O 0 S T E P -1 4 0 © P R I N T AT »,3®;"'5F" TURN
2 1 0 P R I N T AT X , y , INK 2,a« 4 1 0 I F X>a THEN LET a = * * . 4 PRI 6 0 0 0 LET XfcH=(21-flBS a>*8-3
2 2 0 I F I N K E Y $ = " P " OR I N K E Y f = " P " NT fiT,, a - . 4 , 3 0 , " " PRINT flT 1,3 6 0 1 0 P L O T OUER l , 2 4 0 . l i » . P k DRAU O
THEN LET x » » " » " _ UER 1 , - 2 0 0 , 0 BEEP . 0 0 5 , 3 5 PLOT
230 IF I N K E Y " o " OR I N K C Y $ » O 420 IF X<» THEN LET a = a - . 4 PPI OUER 1 , 2 4 0 , t u , D R A U OUER 1,-20
THEN LET X % B U" _ . . . NT ^ a+.4,30," " P R I N T AT a,3 0,0 P R I N T AT a , 3 0 , ",AT a-1,3
2 3 1 I F I N K E Y » « " i " OR INKCY*="I" 0, " " , AT a • 1 , 3 0 , "
4 3 0 LET i * « = I N T (RND*20• IF a 6 0 2 0 I F a + l = x T H E N GO T O 9 0 1 0
THEN LET x*«"n" x + 2 A N D a > x - 2 ANO S w e = 2 T H E N L E T 6 C 3 0 RETURN h o h i
2 3 5 I F _ x t = n " THEN LET y * y - l L a = INT m GO S U B 6 0 0 0 9 0 0 0 REH *FALLO+
ET = PRINT flT X,y+1." 1 0 0 0 NEXT V • • • * • « *
2 3 6 I F x * = " B " THEN LET y y 1 0 0 1 REM * * * * * * *
2 3 7 I F * » • ' • » " THEN LET y = y + l L 9 0 1 0 P R I N T flT X , « ; " W - " : FOR f=24
• F• I* N• A
+ *L* •« TO 2 8 BEEP . 0 0 5 , f NEXT 1
ET =" P R I N T AT x , y - 1 , "
2 4 0 I F I N K £ Y « = ••<{•• OR I N K E Y | s "O" 9 0 2 0 LET h » h - l L E T \»V IF h=0
1 0 1 0 P R I N T AT 1 0 , 3 3 . " G f l H E OUER" T H E N GO T O 1005
THEN LET x s x - l P R I N T AT X*l,y. FOR t - O T O - 3 0 S T E P - 1 BEEP .0 9 O 3 0 L E T t =v
9 1 0 0 GO T O 1 0 0

LLEGA EL

El sistema compacto que reúne en una sola unidad los siguientes elementos:
• Unidad de disco ultramoderna de 3,5" con 180 K. Salida para monitor monocromo.
• Inter face paralelo Centronics. Repetición del bus trasero del Spectrum.
• Interface de joystick tipo Kempston. Alimentación interna de todo el sistema.

FACILMENTE AMPLIABLE A 360 Kybtes.

PROGRAMAS DISPONIBLES O DE PROXIMA APARICION
Contabilidad PNC (500 cuentas/4000 asientos) Facturación
Tratamiento de textos Nóminas
Cambio de Moneda Base de Datos
Control de stocks
§
PODEMOS PASARLE SU PROGRAMA FAVORITO A DISCO o
Se
o
DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA <
u.

Distribuido en España por: SISTEMAS LOGICOS GIRONA, S . A . - Avda. San Narciso, 24 - 17005 GIRONA - Tel. (972) 23 7 1 00

28 M I C R O H O B B Y
 MADRID MADRID VALLADOUD BILBAO
CWto «co 21 23 P,Mrr HwMno n JuAn IV Jun. 3
28016 MADR>0 Ora l » C « i i A ) . n t ) AUítmh Uiauqu 63
Ir» .9liJWf4CM 02 28073 MADftiD VAL LADO LIO
Ir" ¡911 JOÍ 03 Í0 T* 11 40 00 48013 BH RAO

Ü ¡:
-lili|J
"•'I fI i •

trm^fZ^

CPC464 CPC664
Se incluyen 8 cmtas ^Manuas Se incluyen 6
deRef Basic GRATIS programas en disco Gratis
• GARANTIA AMSTRAD ESPAÑA

• SV 328, 80 K, RAM-32 K ROM

Teclado profesional, color, sonido
alta resolución CP/M. Basic
Microsoft
• VALUE PACK. s v - 3 2 8 • Magnetofón
SiSSS • Joystick - 1 0 Cintas
PHILIPS SV-605 Expander, 1 Disco
SV-605 Expander. 2 Discos
i SV-904 Magnetofón
SV-105 Tableta Gráfica
• G A R A N T I A INDESCOMP SV-603 Adaptador Juegos

PROGRAMAS AMSTRAD. Cassette • Juegos Sensacionales. 1.950 pts

SONY HB-75 Mame Mtner 2200 ptS • Código Máquina 2100 pts
Ftghter Pitor 2200 ptS • Música y Sonido 1 200 pts
worldCupFootbaii . . . . 1.800 pts. PROGRAMAS CBM-64
Decathlon 2.000 ptS • Pote position 2 400 ptS
MoonBuggy 1800 ptS • Rghterpiiot 2.200 pts
ÍSKÍS
MasterChess 1.900 ptS. • Summer c a r n e s . . . 3.400 pts
HlllllllllllMIim»»!» «WnwUHMWUIUIM Base de Datos 2.300 ptS • indiana Jones . . . . 2 350 pts
MSX spectravideo SV-728 Redero Médico 3.500 ptS. • BuckRogers 2350 ptS
Control Stock 2.400 ptS. P R O G R A M A S MSX
• Microprocesador 280-A Agenda Personal 2 400 ptS
• 80 K RAM 32 K ROM Parar el Tren 2100 ptS
Contabilidad General . . . 2.400 ptS
• Teclado profesional Time Bandits 2.100 ptS
Amsword"P T e x t o s " . . . 5 500 ptS
• Alta resolución Misión de Combate 1.500 pts
Tascopy-Tasprint 2.600 pts.
• 16 colores Tanque Destructor 1.900 ptS
Mini Office 2.200 ptS
• Basic MSX Microsoft Vacuumania 2 000 ptS
AMSTRAD DISCO
• G A R A N T I A MARCA OFICIAL También, programas para spectrum
Micropen ( B - D a t o s ) . . . . 12.000 ptS
ORIC, DRAGON. VfC-20
Contabilidad General . . 14 500 ptS
UBROS Control Stock 12.000 ptS. [NVU« A CWPS * TIPS POlHfO (Otoi t21K l W
) rtOlfr VAWHD
-

H»
Todos ios títulos para todos ios ordenadores Control vtos 8.500 ptS
• « • >i» _
PROGRAMAS LIBROS AMSTRAD
los últimos bese sellers Todos los Periféricos impresoras. • Curso Autodidacta
Monitores, etc. Envíos gratis a provincias Basic 2.900 ptS 1
incuc.» W» » lv«o»
• Facilidades de pago hasta J6 Meses • Programando con ro*HAM HHM c-
o
(Sólo Madrid) Amstrad 1950 pts un
wi
UTILIDADES

CARGADOR UNIVERSAL
DE CODIGO /MAQUINA
J. M. FRAILE
La m a y o r í a de los errores que a p a r e c e n en un
p r o g r a m a de código m á q u i n a se producen,
precisamente, a la hora d e copiarlo e introducir los
datos en el O r d e n a d o r . Para evitarlo publicamos este
artículo que os servirá de g r a n a y u d a .

Puede que una magnifica Rutina de quier razón, intencionada o no. se de-
código máquina deje de funcionar sólo tuviese durante su utilización, es im-
porque hemos confundido una «O» prescindible teclear. «GO TO menú»,
con un 0 . Para tratar de prevenir este nunca RUN ni ningún tipo de CLEAR línea ha sido admitida como correcta,
problema hemos desarrollado un com- ya que estos dos comandos destruyen ya que si no ha sido aceptada, tampoco
pleto Cargador de Código Máquina las variables y con ellas, el Código aparecerá en el listado.
que nos permitirá, a partir de ahora, Fuente que hubiera almacenado hasta DUM P. Este comando vuelca el con-
normalizar la presentación de progra- el momento. tenido de la variable aS en memoria, a
mas y Rutinas en Código Máquina y partir de la Dirección que se especifi-
minimizar, en la medida de lo posible, que. Equivale a convertir el Código
Utilización
la aparición de errores en la introduc- Fuente en Código Objeto. Esta opera-
ción de datos. Una vez cargado desde la cinta, el ción es obligatoria antes de hacer fun-
programa se pondrá en marcha auto- cionar una rutina o programa en código
máticamente, presentando en la línea máquina. En la mayoría de los casos,
Estructura y funcionamiento
inferior de la pantalla, un pequeño me- con la rutina se indicará también la di-
Todos los programas en código má- nú de opciones, a cada una de las cua- rección de memoria donde deber ser
quina serán presentados con formato les se accede pulsando la tecla que co- volcada y su longitud expresada en bv-
llexadecimal. En aquellos que lo re- rresponde con su inicial. tes. Cuando no se especifique direc-
quieran. también será incluido el co- 1NPUT. Este comando sirve para in- ción alguna es que la rutina o programa
rrespondiente desensable. troducir nuevas líneas de Código pueden funcionar en cualquier parte
Todos los valores hcxadecimales Fuente. Al pulsarlo, el programa nos de la memoria.
que conpongan un determinado pro- solicita un número de linea. Obligato- En algún caso puede ocurrir que al
grama o rutina, serán agrupados en riamente, hemos de comenzar por la intentar volcar el Código Fuente en la
bloques de veinte cifras, con un núme- línea I, a no ser que ya hayamos intro- memoria, nos aparezca el mensaje
ro de Líneas y otro de Control. Es lo ducido alguna otra previamente.
que denominaremos Código Fuente. Tras indicar el número de línea, nos 3 ELTÍ CARGADOR CM HICROHOBB.
Los datos expresados en notación pedirá los Datos correspondientes a la
1 0 F O P r. . 2 3 2 9 6 T O 5 3 3 1 2
hcxadccimal, no tienen de por sí nin- misma. Una vez tecleados (obsérvese i¿ READ < POKE n . c NEXT r ,
15 TATÚ 4 2 , 7 5 . 9 2 126.254. . 193.4
gún significado para el Spectrum ya un trazo grueso negro que nos ayuda a 0 . 6 .205 184 .25 , 2 3 5 . 2 4 . ¿ 4 5 . S 4 , 6 5 .
201
que éste es incapaz de trabajar con nú- controlar que el número de caracteres 7 O L E T a » = ••"
ICO LET » > 1 0
POKE 23658.8
LET b n 1 1 LET e*l
2 LET d = l j LET 6 ! » LET f«15
meros que no sean decimales o bina- allanuméricos introducidos sea 20 en
rios. Previamente a su utilización, el todos los casos) y suponiendo que no 100?
l*« T N C N GO T O 6 0 0 0
l» IF

Código Fuente deberá transformarse haya habido ningún error hasta el mo- 1 0 0 2 P O P r. - 1 T O L E N
100 3 IF
l«
( f ( f t ) < " C " OP l » i n > > * ' « " T
H E N CO T O 1001
en números decimales para que pue- mento. hay que introducir el Control, 1 0 0 4 NEXT n
1005 IF u n e o l i
LET l i n t « V A L
THEN POKE
l»
23609
dan ser entendidos perfectamente por que está situado, en cada Línea, a la de- PEEK 2 3 6 9 9 - 1
O ÍOOO
GO s u e 5 0 0 0 GO T

1007 INPUT " I ^ h k v m v

el Ordenador. Esto es loque llamamos recha del Dalo. Por último, el progra- ^ _ DATOS 11
, LUJE ¿ I
1¿0¿ d t » " " T H E N GO T O 6 0 0 0
Código Objeto. ma nos solicita una nueva linea, lo que 1 0 0 9 LET (X»24.-PECK 2 3 6 8 9
AT c x , 0 . d » . A T [Link]»
PRINT
138,"L

l-sia operación de transformar el Códi- nos da a entender que todo el proceso 1 0 1 0 I F ^ L E N -3% > 2 0 T M E N GO SUB 5
000 GO T O 1000
go Fuente (Dalos hcxadecimales) en anterior ha sido correcto. 1 0 2 0 FOR n i l TO 2 0
1 1 1 0 LET M»id«tn)
1 1 5 0 I F » t > C H P | 4 7 ANO « » < C M R » 5
Código Objeto se llama «DUMPING» En el momento en que se nos solicita 8 OR » * C H R » 6 * A N D » » < C H R » 7 1 T
H E N GO T O 1170
(Volcado en memoria) y la liace auto- nueva Línea o cuando se nos pide el 1 1 6 0 P R I N T AT t x . n - 1
L>ER 1 , " -' GO 5 U B 5 0 0 0
FLASH 1, O
GO T O 1 0
máticamente nuestro programa me- Dato podemos pasar, si lo deseamos, al 00
1200 N E X T fl LET Ch«0
1210 FOR n - 1 T O 2 0 5-TEP 2
diante el comando «Dump». menú principal pulsando simplemente 1215 L E T h«sL>AL d * 10) 1 1 6 «UAL d » '
r» + l ) LET c h i c h e e N E X T r¡
Una vez tecleado el Programa Carga- «ENTER». H 5560 LET C t » 0 INPUT "CONTROL ,
1260 IF c t o C K T H E N GO S U B 5 0 0 0
dor. hay que hacer GOTO 9900, con lo TEST. Tiene el doble cometido de GO T O
1 3 0 0 LET
1000

que se grabará y verificará en cinta. lisiar por pantalla las lineas de Datos 2 0 0 0 LET U « U + 1
5 O 0 0 BEEP . 2 , 0
GO T O
OLÍT 2 5 4 , 2
1000
POKE
[Link] 23689+1 RETURN
Fl programa se pondrá en funciona- que hallamos metido hasta el momen- 6000 REM ZI-IIISKJUI(£4U29
6005 PRIN" INH PAPER I , "
miento automáticamente. Si por cual- to, y de averiguar si una determinada INPLTT L O R D S A V T OUMP T E S T

30 MICROHOBBY
 de tres opciones: Salvar Código Fuente quea las siguientes posibilidades de
(F), Salvar Código Objeto (O), indican- error:
do Dirección y número de bytes, o vol- Oue el número de línea no sea corre-
ver al menú principal (R). En los dos lativo, en cuyo caso se trataría, sin du-
primeros casos hay que especificar el da, de un error de omisión de línea. Es
nombre con el que queremos salvar el decir, después de la linea 2. tiene que
Código. venir la 3. y 110 otra.
Todas las operaciones de SAVE pue- Oue la longitud de la cadena de Datos
den, opcionalmcnlc. verificarse. sea 20. Si es mayor o menor es que so-
Es muy importante recordar que bran o faltan dígitos.
nunca podrá utilizarse no salvarse el Oue las cifras introducidas dentro de
Código Objeto si antes no se ha proce- una linea de Datos no estén compren-
dido a su volcado en memoria median- didas dentro del rango de los caracteres
te el comando DUMP. utilizados en la notación hexadccimal.
LOAS. Cuando el número de Datos Es decir, entre O y F. Cualquier anoma-
a teclear sea grande, es normal tener lía en este sentido será inmediatamen-
que realizar el trabajo en varias veces. te indicada con el parpadeo de la cifra
«ESPACIO DE TRABAJO». Esto indi- Para ello, puede salvarse en cinta la errónea.
ca que estamos intentando volcar en parle que tengamos (Código Objeto) y Oue el control no coincida con la suma
una zona que el ordenador está usando luego recuperar mediante la opción de los valores de los Dalos en decimal.
para sus propios cálculos. Volcar ahí LOAD. No es necesario indicar nom- (Cada dos Dalos forman un número
significa la destrucción del programa y bre en este caso si no se recuerda. Al hexadccimal).
lodo nuestro trabajo. En tales casos, no cargarse correctamente el Código En lodos eslos casos, el ordenador
queda más remedio que elegir otra di- Fuente, el ordenador nos indicará au- nos advierte del error con una señal
rección de volcado más apropiada. tomáticamente cual l'ue la última linea acústica, a la vez que el borde de la pan-
que habíamos tecleado y cual es la pri- talla se vuelve rojo. En situación nor-
Durante el tiempo que dura la opera-
mera que hemos de introducir ahora. mal (mientras no se produce ningún
ción de volcado (depende de la longi-
error) el borde deberá permanecer
tud del Código Fuente), se nos m u e s - Los e r r o r e s
siempre blanco.
tra en pantalla la dirección inicial y las
El Cargador de Código Máquina está También hay que tener en cuenta
que restan en esc momento.
especialmente estructurado para tratar que cualquier error anula la valide/ de
SAVE. Este comando nos permite de prevenir todos los errores típicos de la línea en curso, por lo que habra que
salvar en cinta el Código Fuente (muy la introducción de datos y que, en el ca- repetirla de nuevo correctamente. Para
importante cuando dejemos el trabajo so concreto de los programas en Códi- saber las líneas aceptadas en lodo mo-
de tecleo a medias) o el Código Objeto go Máquina tienen, por lo general, co- mento pulsar Test. A partir de la últi-
(también llamado Código Máquina) secuencias desastrosas, dando al traste ma. hay que continuar introduciendo
para su posterior utilización. A l pulsar con horas c incluso dias de trabajo. nuevas líneas.
SAVE nos aparecerá un segundo menú El programa que presentamos che-
Un e j e m p l o práctico

¿100 LET i % s INKEY % IF i Ja"" THE 7 2 3 0 CLS Como ejemplo de utilización puede
N 00 TO 6100 7 3 0 0 GO TO 6 0 0 0
62O0
621©
IF
IF
i$»" I"
I » Í " S "
THEN
THEN
GO
GO
TO
TO
1000
7000
7 5 0 0 PEM Í O H B
750 3 IF a T - TMEN GO SUB 9500
valer esla pequeña rutina de Código
6220
6225
IF
IF
i » i " L " THEN
t * = "T " TMEN
GO
GO
TO
TO
SOOO
7500
GO TO 6 0 0 0
7SOS CLS FOP » = 1 TO «LEN *»> S Máquina que sirve para borrar la pan-
6230 IF I « = •'&•• T H E N GO TO 9000 TEP 2 0
6250 GO T 0 6 1 0 0 7 5 1 © P R I N T a f t a TO n * 1 9 i . " ",CHP talla lateralmente. Teclea el Código
7000 REM ttW-' * 136,"LINEA ".INT ia-20»»l
7 0 0 1 PRINT
FUENTE(Fi
no, PftPER 3 , INK 7 . "
OBJETOlO> RETURNiR)
752© N£YT a,
aooo REH SHB9
0 0 TO 6000 Fuenie. Haz D U M P en la dirección
7©02 PAUSE O IF INKEYt<>"F" AND
ine-c.t - O " « N D INKEY» >"P" TME
601© INPUT NOMBRE (Load)", LINE
40000. Salva el Código Objeto desde la
N GO T ó 7002 6 0 2 0 LOAD n « DATA M i l
"DO?
•O
IF INKEY"O" THEN GO TO 72 8 0 2 5 RANDOMIZE USR 2 3 2 9 6
S©30 LET l i a C O D E 4 * i H »256*CODE
dirección 40000, 45 bytes. Haz
a t 12 < LET i % a * i 3 TO >
7004 IF
t o eo»o
ZMKEYM"P" THEN CLS GO
8 0 3 5 CLS P P I N T AT 1© , 5 . " U l U í i «BREAK» con «CAPS SHIFT» y
7005 [Link] H2K4UEUE Ur»«a " , t » - l . A T 11 .5 . " C o a e n z a r
7006 IF ¿* • TMEN GO SUB 9500 por " , 11
8 0 4 0 GO T£_
«SPACE». Para probar que lanío ta Ru-
GO T O 6000
7000 RhNCQ
' H I2E l i 9 0 0 0 REM
tina como el Cargador funcionan co-
7 0 1 0 LET j * = C H Í ? t PEEK 2367©*CMP» 9003 IF j * = TMEN GO SUB 9 5 0 0
PEEK ¿ 3 6 7 1 . j » GO TO 6 0 0 0
7015 INPUT "NOMBRE (Savei", LINE 9 0 0 5 INPUT " D I R E C C I O N .di CLS rrectamente, teclea RANDOMIZE
r. • IF OR L E N r, » l © TMEN 9 0 0 6 I F d i (PEEK 2 3 6 3 3 * 2 5 6 + PEEK i
GO T O
7020
7015
SAUE n » DATA é t •
3 6 5 4 OR ( d i • LEN i » / 2 > > 6 5 3 0 0 TMEN USR 40000. La pantalla se verá invadi-
P P I N T FLASH l . A T 5 , 6 . ESPACIO &
7025 PRINT
EA O R I F I C A R
no. PAPER 6 , "
IS 'Ni PAUSE
OES E TRABAJO"
r> CLS
FOP m i TO 2 0 0
GO TO 6 0 0 0
NEXT da lateralmente por una cortina azul.
O IF I N f E . » * " 3 " THEN PPINT nO 9 0 0 7 P R I N T AT 9 . 7 , FLASH 1 , ' V O L C
IMh 7. PAPER 2 . " REBOBINE LA CI ANDO EN MEMORIA PRINT AT 7 , 5 , " Puedes usar esta Rutina en tus propios
NTA Y PULSE PLOY '• UEPIF,- r,» DA Oirtccton Imciai
T A :, « i |
NTE - . n i
CLS
PAUSE
PPINT
¿00
"CODIGO FUE ? o o e ^ p p i N T HT i ; ^ - i j a m t i ,AT programas haciendo previamente
7020 LET
7 0 4 0 GO T O 6000
3 TO i CLS
90io' Fote r, í " TO (LEN a * t STEP i L O A D " " CODE y llamándola luego
7 2 5 0 REM & H 4 K 4 - H H
9 0 1 5 POKE %J i ,UAL a t ( f t > • 1 6 • V A L a *
iri + I I LET d i a d i t 1
7255 INPUT PAPEP ;•,. Itlf 7. "DIREC 9 0 1 3 P R I N T AT 1 1 , 1 2 . I N T (LEN a * / desde Basic con R A N C O M I Z E USR
C ION , PAPEP 3. INK 7, "N .BYT 2-rt/2> , ••
ES " , nb
7260 INPUT NOMBRE ISÍVJI", L INE
40000.
nt IF ft»i" " O R L E N r, f 10 TMEN R n = 1 TO iol^NpX^^^T^S^ GO T
GO T O 7260 O 6000
7 2 7 0 S A ' J E n ( C O D E d i , r> b 9 5 0 0 PEM B B Z a a M l M D t - O M U r a ¡ H E $ # í i
7275 PPINT DO. PAPEP 6 DES 9 5 0 1 CLS P P I N T n o . FLASH 1 . fl
EA ' . l E P I F I C A P ( 5 N» " PAUSE O E X I S T E NINGUN CODIGO FUENTE
O IF INKCYi.-'S- TMEN PRINT 00 1 0E20210O580618112000 246
INI- 7. PAPER 2 . " REB06INE LA C I
PAUSE 3 0 0
9 9 0 0 CLEPP
CLS RETUPN
SAUE "CARGADOR" L I N 2 E53&121910FBC5210000 1031
NTA Y P U L S E PLAY " UERIF. n«COD E 1 P R I N T n 0 . REBOBINE LA C I N T A 3 112000CDB503C1E1ES06 1091
E d ) . r.b
ETO
CLS
", n $ " I m c t c
PRINT "CODIGO OBJ
" L í r i í i (m
PACA V E R I F I C A R UERIFY "CARGAD 4 1811200036091910FBE1 653
OR". PUN 5 230020D9C9000000O000 498
d PAUSE 200 9 STOP S t i t t n e n t , 6 7 2

31 MICROHOBBY
 CONSULTORIO
Ampliación de m e m o r i a adaptar el programa a un otra de 32K? PEEK 23642)—(PEEK
Spectrum de 16K bastará Al comprar el Wafadrive y 23635+256-PEEK 23636)
¿Se sabe si la memoria del con reducir el tamaño de el teclado profesional, ¿ne-
Spectrum 48K podrá seram- estas instrucciones hasta cesito comprar también el
pliable en un futuro? Y si a un que sean aceptadas por el Interface 1? Adaptación d e joystick
Spectrum de 48k se le pu- ordenador (consulte el ¿El Spectrum se puede in- a nuestros p r o g r a m a s
siera la memoria adicional capitulo 12 del manual). sertar en el interior del tecla-
del Spectrum 16K ¿aumen- Pedimos perdón a todos do independientemente del Los programas que publi-
taría su memoria? nuestros lectores a los que Interface 1? can (concretamente los jue-
haya afectado este error y gos) ¿son compatibles con
José A CANDIL - Madrid
prometemos vigilar para Claudio GARCIA - Senlla
joystick, o sólo se puede ju-
que no se vuelva a repetir en gar con las teclas?
• El microprocesador Z-80 el futuro. • La memoria no sólo hay
no puede direccionar más que ampliarla, sino también Eugenio RUIZ • Madrid
de 64K de memoria. 16 los direccionarla, por tanto, lo
ocupa la ROM y ios 48 res- L l a m a d a s a rutinas que usted propone es im- • Debido a la gran variedad
tantes son de RAM; por tan- posible. de joysticks disponibles en
to, si desea ampliar la me- Si tengo una rutina de utili- El Wafadrive no necesita el mercado, nuestros pro-
moria de su ordenador a dades, ¿es necesario gra- del Interface 1. gramas se escriben para
más de 48K tendrá que pa- barla aparte?, para que no Los teclados comerciales ser utilizados con el teclado
ginarla, además de utilizar afecte al programa Basic, permiten alojar al Spectrum pero, normalmente, no le
RAM estática, ya que el «Re- ¿dónde la utilizaré? en su interior tanto con el In- será difícil adaptarlos al
fresco de memoria» no fun- ¿Hay alguna instrucción terface 1 conectado, como joystick que usted posea
cionaria. Lamentablemente, universal de llamada a las ru- sin él.
la solución que usted pro- tinas?
pone no es viable. Proteger^ e H e c l a d o
José L. ANDRES - Barcelona
P r o b l e m a s de m e m o r i a

¿Qué se puede hacer para

P r o g r a m a r PLOTTER • Entendemos que se re- Al introducir programas que las letras del teclado del
fiere a rutinas en C/M. de 16K de larga extensión, ZX-Spectrum no se borren
Me gustaría saber para Deberá almacenarlas por en sus últimas líneas me sa- con el uso?
qué se utiliza el comando encima de la RAMTOP tras lía el mensaje de: E Out of ¿Cómo se puede. hacer
DIM. He intentado hacer que bajar ésta. DATA, cuando no me salía: que el Spectrum utilice len-
funcionara el programa La instrucción general de Out of memory. Introduje guajes como el Cobol. etc. ?
PLOTTER en mi Spectrum y llamada a rutinas en C/M es PRINT 65535-USR 7962 pa-
cuando le pongo RUN para la función USR con argu- ra saber la cantidad de me- Luis M MAROUINA • Madrid
que se ejecute, sale «Out of mento numérico, que efec- moria del Spectrum, el resul-
menor y 10 : 1». linea en la túa la rutina colocada a par- tado fue de: 8704. ¿Esta res- • Es inevitable que las letras
que hay dos comandos DIM. tir de la dirección indicada puesta es correcta o el orde- del teclado se borren con el
¿Por qué sucede esto? en el argumento, devolvien- nador tiene algún fallo? uso. La solución más co-
do como resultado el valor múnmente adoptada con-
Luis A. GASCUENA • Cuenca del par de registros BC en el José R. LUKIN • Guipúzcoa siste en cambiar el teclado
retorno. El comando a colo- por alguno de los profesio-
O Su carta es una de las va- car delante de esta función • Si su ordenador es de nales que podrá encontrar
rias docenas que han (lega- dependerá de lo que quiera 16K, no debe tener proble- en las tiendas del ramo.
do a nuestra Redacción ha- hacer con la rutina en parti- mas at introducir progra- No tenemos noticias de
ciendo ta misma observa- cular. Normalmente se utili- mas escritos para 16K. El que existan compiladores
ción y. como suele ocurrir za RANDOMIZE, pero en informe: E Out of DATA no de Cobol para el Spectrum.
en estos casos, son nues- juegos basados en el azar tiene nada que ver con la pero podrá usar los lengua-
tros lectores los que tienen puede dar problemas, a me- capacidad de memoria. jes Pascal. C. Forth, etc.,
razón. Por error, el progra- nos que la rutina esté escri- Si quiere saber cuanta comprando el compilador
ma PLOTTER apareció co- ta de forma que en el retor- RAM tiene su ordenador correspondiente en cual-
mo destinado a los modelos no el par de registros BC teclee: quier distribuidor.
de 16K cuando el listado contengan «cero». PRINT (PEEK 23732+256*
que publicamos sólo fun- PEEK 23733-16383)/1024
ciona en los de 48K. Esto se Que le dará el resultado N o r m a s de televisión
debe precisamente a la ins- Superampliación en Kilobytes. Si quiere sa-
trucción DIM que reserva ber cuantos bytes ocupa un Tengo un televisor en co-
una zona de memoria para ¿Se puede ampliar el programa , determinado lor procedente de América y
almacenar los puntos que Spectrum 48Ka 80K ponien- teclee. no se por qué mecanismo se
vamos dibujando Si quiere do en el bus de ampliación PRINT (PEEK 23641+256- ve blanco y negro -algo de

32 MICROHOBBY
 un sistema distinto en Euro- compatibilidad del software son temas que hemos trata- conectar el cable del orde-
pa— mi pregunta es: ¿conec- depende también del siste- do y seguiremos tratando en nador al adaptador.
tando el Spectrum a ese tele- ma operativo, y en el caso diversos artículos de (a re- Lo mejor es que acuda a la
visor podrían verse las imá- del Spectrum. éste es exclu- vista. tienda de electrónica y lleve
genes en color? sivo. el cable del ordenador.
El micropocesador del Televisores antiguos Otra posibilidad es que un
Spectrum es el Z-80, como M a s d e 2 1 UDG técnico le instale en su tele-
el de otros micros, ¿es posi- Rogaría me indicaran co- visor una toma de antena a
ble hacer programas equiva- ¿Hay alguna manera de mo hacer para enchufar el 75 ohmios.
lentes del Spectrum para hacer más de 21 gráficos de- cable de la antena del orde-
esos otros micros? finidos por el usuario? nador a un televisor de los Ampliación de
antiguos, que no trae la mis- memoria
Jos* Juan RAMOS-I* Coruña Luis BOTILLOS Madrid ma entrada que el cable del
ordenador. Quisiéramos saber dónde
podríamos ampliar el Spec-
Efectivamente, en Esta- Como ya hemos comen- José M ESTEPAvilla trum de 16 a 48K, a ser posi-
dos Unidos se usa la norma tado otras veces, existen va- ble. en la provincia de Valen-
de televisión llamada NTSC, rios trucos que permiten tra- Para hacer la conexión cia, y cuanto cuesta aproxi-
mientras que en España uti- bajar con más de 21 UDGs. deberá utilizar un separador madamente.
lizamos el sistema PAL. Si Todos ellos requieren un de bandas y adaptador de
Andrés y Juan-Valencia
conecta un Spectrum espa- buen conocimiento del or- impedancia que podrá con-
ñol a su televisor, lo más po- denador, e implican la alte- seguir en cualquier tienda Les recomendamos que
sible es que no vea nada. ración de ciertas variables de electrónica. La firma TE- busquen en la publicidad de
A pesar de que la mayo- del sistema (CHARS o UDG). LEVS fabrica un modelo ba- nuestra revista el concesio-
ría de los micro-ordenadores Las amplias explicacio- jo la referencia 51.616. Este nario de HISSA más cerca-
utilizan el microprocesador nes que requieren se salen aparato incluye las clavijas no a su domicilio. Ellos mis-
Z-8G (por ejemplo, el Ams- del reducido espacio dispo- de antena a 75 ohmios y un mos les informarán del pre-
trad y todos los MSX), la nible en esta sección, pero trozo de cable coaxial para cio de la ampliación.

...MI ORDENADOR ES SINCLAIR,

MI SERVICIO TECNICO ES HISSA..
V es lo lógico. Si has elegido el mejor Y recuerda que no tendrás sobresaltos
microordenador del mercado, no vas a con el precio.
repararlo con cualquiera.
"COSTE ESTANDAR POR
REPARACION"
zx&i
5.250 p í a s ,

S p e c U U ^
6.300 p t a s .

Sólo Hissa te puede garantizar S p e c t r u m

48^
la utilización de piezas originales SINCLAIR
y expertos técnicos en reparación.
.Acude a la delegación HISSA mas cercana.
C/ Afibou. n " 8 0 piso 5 ° I » C/ Son Sotao. n * 3 C/ Avda de la LiOertoa. n * 6 Bioq l ' Enti izq 0 9" de Ronoa n " 82. ) * £ C/ 19 de Julio, n " 10 • 2 * loa» 3
Tefls (93) 323 41 65 323 44 04 Terts 754 3 ) 97 754 32 34 Te« (968) 23 18 34 Telf ( 9 5 8 ) 2 6 15 94 Tell (985) 21 88 95
08036 BARCELONA 28037 MADRID 30009 MURCIA 18006 GRANADA 33002 OVIEDO

C/ Hermanos <W Rio Rodrigue*, n * 7 txs C/ Urwflfstdod. n« 4 2 * 1 • Awia de Gosieii n s 19 A • 1 • D C/ Troesio de V190 n ' 32 11 C/ Alares, n« 4 - 5 * 0
Te« (954) 36 17 08 Ten ( 9 6 ) 3 5 2 48 82 leti (945) 22 52 05 Telf (986) 37 78 87 Te« ( 9 7 6 ) 2 2 47 09
41009 SEVILLA 46002 VALENCIA 01008 VITORIA 6 VKjO 50003 ZARAGOZA
I
II
— VÍ OCASION
I
t • VENDO por comprarme un Precio del lote 20.000 ptas. Enri- teres en programas de utilida- meses de uso, valorada en
des o Work-Games. Dispongo 89.000 ptas. por Spectrum Plus

I•
Fíopy. Interlace 1, más mtcrodn- que Garcia Batalla. Avda. de
ve. tres cartuchos, nuevo con ca- Eduardo Castro 149 Gijón (AS- de más de 100 juegos. Me inte- más impresora o Spectrum 48K,
ía e instrucciones por 30.000 TURIAS). reso por el código máquina. In- impresora y cassette. Acepto
pías. También vendo VIC 20 • VENDO ZX Spectrum 48K teresados ponerse en contacto otras ofertas. Contactar con
nuevo con caja e inslrucciones con teclado progesional, en con Juan Carlos Cilleruelo Gon- Juan Carlos de Cabanyes Orte-
esp, 3k5 RAM por 15.000 pías. 50.000 pías. También vendo ZX zalo. Capitán Rojas 12. Peñaliel ga. Apartado 122.34080 Paten-
cia. Tlf. (988) 808243.
I José Jover. Tlf. (972) 231742
(GERONA).
Spectrum 16K con memoria ex-
terna para 48K. por 35.000. Para
(VALLADOLID). Tlf. (983) 880811
{fines de semana). • VENDO videojuego Atan
I • VENDO 2X81, ampliación
16K, inversor de video, tecla de
contactar llamar al til. (956)
401703, o escribir a Manuel Ro-
• ME GUSTARIA recibir tnfor
mación sobre programación:
2600 con tres juegos, cuatro
mandos, el transformador, un
I repetición, cimas de tnveslróni-
ca de Indescomp, (res libros so-
dríguez Santos. 8d. Torno blq.
14. 2 o A Chiclana (CADIZ).
Código Maquina y de los posi-
bles lectores y nociones de Ba-
catálogo e información sobre
precios. Todo por 22.000 ptas. O
I bre su uso y su manejo y uno y • COMPRO las inslrucciones sic. También deseo recibir pro- cambio por intelace 1 e interíace
uno del CM, también regalo al del «Hobbit», no importa el idio- gramas y pequeños trucos de 2, O bien mterface 2. dos man-
I comprador una película en ma en que eslen. Eduardo. tos lectores. Escribir a Juan C. dos del Joystick y cinco cintas
video sistema VHS «Ralas del Apartado 920 La Coruña. Tnana. Sinieso Delgado, 5. 2" D. de |uegos o utilidades, interesa-
I astallo» original (no copiada de • DESEO ponerme en contac- 34004 Pal encía. dos escribir a Alberto Cardona
la lele) valida para club de video. to con usuarios del ZX Spectrum • CAMBIO mesa de mezclas Cabrera. Avda. del Pais Valen-
I Acepto o cambio por Speclrum y ZX 81, de la comarca de «Rive- de 12 canales, más 2 auxiliares Ciá. 207. Benissa (ALICANTE).
ra de Duero». Tengo especial ín- marca Dmamix 212 nueva, tres
I 16K y pagaría 4.000 ptas. más

SI TE REPARAN TU

COPION ZX SPECTRUM
en BILBAO
SPECTRUM
MAS BARATO
MAS RAPIDO
PARA ZX-SPECTRUM MEJOR ACABADO HACEMOS FACIL
Programas, libros, cursos.. CON GARANTIA L A INFORMATICA
Es un programa que le permitirá
hacer tus copias de seguridad SOLO PUEDE SER

rEpair
Copia Basic y código maquina,
con o sin cabecera gesco-
gi i n f o r m á t i c a , s. a .
• SINCLAIR
1.200 ptas. • SPECTRAVIDEO
ENVIOS CONTRAREEMBOLSO C/ Telesforo Aranzadi, 1 • COMMODORE
ESCRIBIR A (antes Banderas de Vizcayal Y ahora la ampliación <Jc tu Spectfum • DRAGON
Apartado 90029, Barcelona Tfno. (94) 431 87 60 16Ka 48K por 7 500ptas. con un mes • AMSTRAD
C ó d i g o postal 0 8 0 8 0 de garantía c,Sc puede pedir mas'
Llama ai Tel 416 73 85 de 5.30 a 8.30 • APPLE
• SPERRY UNIVAC
ARTO ELECTRONICA
LOS ESPECIALISTAS EN Modtto
' Coolmbai J9 41
INFORMATICA SINCLAIR Y u SANDOVALSA
Id' 458 61 fl
COMMODORE ANUNCIESE DISTRIBUIDORES DE.
COMMOUORE -64
Uhitnu. 63
(til 253 S4 54
28003 MADRID
2801! WAR ID
'
Todo el Hardware y Software
EN
ORIC-ATMOS Jou Ofttp Pidir Omur 18
nacional y de importación ZX SPECTRUM i titsei 2! ItH 259 86 13
MAS DE 650 PROGRAMAS SINCLAIR ZX 81 !«« 411 28 SO 2803G UAOfiiÜ
ROCKWfcU-AIM-65
Club de usuarios y Club de
MODULOS
28006 MADRID
ORAGON 32 Avdi Caudi
videojuegos. Servicio de NEW BRAJN furor*!)!. 100 !»M 256 19 14
asistencia y de reparación, y DRAGON. 64 tift 221 23 62 <18015 BAAtEllMA
28004 MAISRlO
además venta por CASIO FP-200
correspondencia
ESCRIBENOS
Teléfono: 654 32 11 EUCIHONtCA SANDOVAl. S A
SANDOVAl. 3 T<Hs 44S7S58 «S/tiOO
IÍ«HJHH Gw/ikí, 78
Itll 43 68 66
Sluan. I
lili 891 10 36

Señorita Marisa SANDOVAl. 4 » 6 Ids 44bl8:>3 (8 UNIAS! 40002 SIG0VIA ARASJVl/ IMUdndl
ARTO. C/ Angli. 43 - Tienda Telp. 44784 3AVI
08017 BARCELONA 78010 MAWUD

Librería y Editorial
Microinfcrmática, le ofrece:
• La mayor variedad de libros de microinformática, Robótica etc... en cualquier nivel desde el más
capaces de satisfacer todas sus necesidades, ya sean simple al más avanzado, para sacar el máximo
profesionales, familiares, culturales... beneficio, diversión y provecho a su ordenador.
• Todo tipo de documentación sobre Para recibir nuestra información, solamente tiene
microordenadores A M S T R A D , M S X , SINCLAIR que cumplimentar y remitirnos el cupón que figura
QL... lenguajes y técnicas de Programación, debajo.

1
Por favor, anoten las materias de su interés,
i Ordenadores personales. [MOM&RE
DIRECCION
I
| Si dispone, especifique marca
„ Ocupación , CIUDAD • •
I Comentarios ICOD1COPOSTAL
provincia — — 1
I
| Estamos en la FERIA DEL LIBRO, Stand n° 102.
Paseo de Coches del Retiro, del 30 de Mayo al 15 de Junio. I ibrm. Revistas, Suscripciones. Importación > Distribución
Chiquiiutiiirá. 2R. I ocal 4 (Cocuy), 280J3 M A D R I D . Telef.: 764 50 95
 GANA UN
PORSCHE 924
(ó su equivalente en dinero)
DESCUBRIENDO EL CODIGO SECRETO
DISTRIBUIDORES EXCLUSIVOS PARA ESPAÑA:
abe analog Santa C r u z d e M a r c e n a d o , 3 1
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

MI iiintooo t t •"•» ot»oOOrt«/ort

. m/L 9
rr
i

Ü . . «...
ÉL _ i
i -
, nr

RUN BABY RUN VIKING RAiDERS MR FREEZE BOOTY

SPECTRUM 16K/48K SPECTRUM 48K SPECTRUM 48K SPECTRUM 48K

•cati
HltH
til» UJ

L1VH « *

ií]í

\a¡
MR FREEZE EXODUS ESTRA EXODUS
CBM64 CBM64 CBM64 SPECTRUM 48K

j \íi 1
l+I ^ i t l *
:
« *
j.t: i -"«a*,
% O |
MiQ *5
ra • i I
• ».'iri

HEADACHE BOOTY GOGO THE GHOST ZULU

CBM64 CBM64 CBM64 CBM64

P.s 795 Ptas.

* DE VENTA EN:
- Comercios Especializados - Directamente en ábe a n a l o g
- Departamentos de microinformática o por correo.
de