0% encontró este documento útil (0 votos)
59 vistas36 páginas

Trucos y Programas para Spectrum

Cargado por

Sauri Sau
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
0% encontró este documento útil (0 votos)
59 vistas36 páginas

Trucos y Programas para Spectrum

Cargado por

Sauri Sau
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd

REVISTA INDEPENDIENTE PARA USUARIOS DE ORDENADORES SINCLAIR AÑO II- N.

° 19

95 PTAS. m
EDITA
HOBBV
SA

Canarias 105 ptas.

TRUCOS

PARA
DIBUJAR
FIGURAS Y
CREAR
EFECTOS
PROGRAMAS

AJEDREZ
•CALENDARIO
PERPETUO
EXCLUSIVA MUNDIAL

AIIIN 8
¡ULTIMATE
ATACA
DE NUEVO!

FUNCIONES
MATEMATICAS
INV€SDfSK 200

EL PASO MAS SERIO


PARA EL SPECTRUM
Lo más nuevo para tu Spectrum,
por fin ha llegado.
INVESTRONICA te ofrece
el sistema de discos.
Lo último en la tecnología de microinformática.
Ve e infórmate en
tu concesionario INVESTRONICA.
Director Editorial I
José I. Gómez-Centurión
Director Ejecutivo I
Domingo Gómez
Redactor Jele
Africa Pérez Tolosa
Diseño
Jesús imesta
Maqueta
Rosa María Capitel Año II • 19 • 12 al 18 de marzo de 1985
95 ptas. (Sobretasa Canarias 10 ptas.)
Redacción
José María Díaz
Gabriel Nieto 4 MICROPANORAMA.
Colaboradores
Jesús Alonso, Lorenzo Cebe ira. | TRUCOS 9 A r c h i v o s m á s le ib,es- M á s d e m BREAK. Diferenciando bloques. Crear figuras,
Pnmitivo de Francisco,
Rafael Prades
Fotografía
Javier Martínez
8 PROGRAMAS MICROHOBBY. ff*** »
Carlos Candel
Portada
H NUEVO. últimos programas en el mercado.
C o m e n l a n o d e ,os

José María Ronce


Dibujos )9 BASIC. Fww»ones.
Manuel Berrocal. J.R. Ballesteros,
A Perera, F.L Frontán. J. Séptien, CONCURSO HOBBY SUERTE Más in,0fmaciím ^^es,e ?fan c o n c i -
Peio, J.M. López Moreno so con ei que puedes conseguir importan-
Edita" tes premios.
HOBBY PRES& S.A.
Presidente
María Andrino
ANALISIS. Amplio comentario de una importante primicia: El «Alien 8*.

Consejero Delegado
José I. Gómez-Centurión 26 PROGRAMAS DE LECTORES. En tres dimensiones El helicóptero Conver-
' sor de unidades.
Administrador General
Ernesto Marco
Jele de Publicidad
30 SOFTWARE. Cuarta y Última parte de «Gráficos en Movimiento».
Marisa Esteban
Secretaria de Publicidad 32 CONSULTORIO.
Concha Gutiérrez
Publicidad Barcelona OCASION.
isidro Iglesias
Tel.: (93) 307 11 13
Secretaria de Dirección
Marisa Coporro
Suscripciones

PREMIADOS HOBBY-SUERTE
M.J Rosa González
M.' del Mar Calzada
Redacción. Administración
y Publicidad
La Granja. n.° 8
Polígono Industrial de Alcobendas
Telf.: 654 32 11 ESTA SEMANA
Dta Circulación Antes de dar la relación de los afortunados en el concurso HOBBY-SUERTE,
Carlos Bsropadre
queremos aclarar que hemos recibido algunos números dados por premiados que, al
Distribución
Coedís. S.A. Valencia. 245. ser tecleados, dan negativo. Por este motivo, rogamos a nuestros lectores que
Barcelona. comprueben sus números correctamente y lean detenidamente tas instrucciones
Imprime publicadas.
Rotedic. S.A. Dicho esto, ofrecemos la lista que, hasta el momento de cierre, hemos recibido.
Carretera de trun. Km. 12,450
Tel.: 734 15 00
Fotocomposición MANUEL GONZALEZ REZA HUELVA LAS PALMAS (CANARIAS)
Consulgraf ALCOBENDAS (MADRID) Cinta de programas. Cinta de programas.
Nicolás Morales. 34 - 1 ° Un Joystíck con su interface LUIS PASTOR VERCES GREGORIO PEREZ SESMA
Tel.: 471 29 08 MIGUEL ANGEL ALONSO SIERRA HOSPITALET (BARCELONA) AlCORCON (MADRID)
Fotomecánica MORON DE LA FRONTERA (SEVI- Cinta de programas. Cinta de programas.
Zescán LLA) FFRNANDO REZOSTA ECHARREN
Nicolás Morales. 38 Un Joystíck con su interface. C!ZUR MAYOR (NAVARRA)
Tel.: 472 38 58 MIGUEL ANGEL BARQUERO RODRI- Cinta de programas.
Depósito Legal: GUEZ ENRIQUE CASTILLO SAN MARTIN
M-36.598-1984 MADRID MADRID
Representante para Argentina, Suscripción a Mícrohobby semanal. Cinta de programas.
Chile; Uruguay y Paraguay, Cía. RAUL MORAL MARTIN ALBERTO YLLERA FERNANDEZ
Americana de Ediciones. S.R.L CUENCA MAORID
Sud América. 1.532. Telf.: 21 24 64. Cinta de programas. Cinta de programas.
1209 BUENOS AIRES (Argentina). MIGUEL ANGEL LOPEZ CORTES M ' JESUS VAQUERO BECARES
MICROHOBBY no se hace MADRID BENAVENTE (ZAMORA)
necesariamente solidaría de las Cinta de programas. Cinta de programas.
opiniones vertidas por sus MIGUEL MORENO MISIP FERNANDO RAMIREZ GARCIA
colaboradores en los artículos LERIDA CIUDAD REAL
firmados. Reservados todos los Cinta de programas Cinta de programas.
derechos, OSCAR ARROYO ESTEBAN ENRIQUE CRESPO BALLESTEROS
Solicitado control MORATALAZ (MADRID) SEGOVIA
OJO Cinta de programas. Cinta de programas.
FRANCISCO PEÑA FERNANDEZ MIGUEL TORRES P1ÑEIRO

MICROHOBBY 3
mío [HmmmmiM UN COMPUTADOR «JARDINERO»
Entre todas las suscripciones recibidas
durante el pasado mes de enero, hemos Dos ingleses, Patricia y Toby Hodd,
procedido al sorteo mensual de un «QL» quieren convertir al QL, de un
y tres M1CRODRIVES con INTERFACE, computador personal, en un
que han recaído en esta ocasión, en los computador de jardín.
siguientes lectores: El ordenador responderá a cuestiones
- 1.° PREMIO, un «QL« que le ha corres- como «arbusto, fragancia, fuerte», para
pondido a Carlos Rodríguez de las He- describir aquellos que queramos elegir; y
a términos como «sombra y completa
ras. O Sierra de los Filabes, 99.28038
humedad», para describir el hábitat que
Madrid. Número de suscripción 9.310.
requieren cada una de las plantas
- 2.° PREMIO, un MICRODRIVE con su para vivir
interface, a José Manuel Hernández
El programa contiene una información
Barona. que vive en la calle Pilastra,
muy completa para todos los aficionados
46. ATienda. Durango (Vizcaya). Núme- a floricultura que verán, de este modo,
ro de suscripción 3.268. colmado su deseo de poseer un archivo
- 3.9 PREMIO, otro MICRODRIVE con su que les permita realizar cualquier tipo de
interface correspondiente, a Vicente consulta sobre el tema, en un momento
Bosquet López. Avd. José Antonio, 97. determinado.
Morata de Tajuña (Madrid). Número de Los Hodds son unos entusiastas
suscripción 4.680. conservadores, con una historia de vida
- 4.° PREMIO, un MICRODRIVE con in- salvaje, dedicada a la investigación
terface, que recayó en Antonio Corti- en la India.
les Pueyo. C/ Eudides, 1 1 . N . ° de
suscripción 2.617.08031 Barcelona.
Por un módico precio de 12 libras, se
puede conseguir una copia de su •ti
u. \yNL'l
¡¡¡ENHORABUENA!!! programa. mmmsmm

SPECTRUM: EL MAS VENDIDO COPIADOR PARA


MICRODRIVE
Recientemente han sido publicados
por un prestigioso periódico inglés, el
Ohserver. los últimos resultados
referentes a ventas de ordenadores
en este país.
Según estos datos, se ha vuelto a
demostrar la supremacía de los
ordenadores Sinclair sobre e! resto
de sus competidores, a pesar de los
UNIMMS VENMMS
esfuerzos de éstos por conquistar el La compañía de Software
Romantic Robot, ya ha termi-
mercado. nado la nueva versión mejora-
En el gráfico de ventas por unidades, da de su copiador para Micro-
drive Trams Express.
\ podemos observar que Sinclair ocupa
Este tenía grandes limitacio-
• " \ casi la mitad de las ventas totales, nes a la hora de hacer copias
de la mayoría de los progra-
' .' ' •" >

i • • seguido por Commodore y más lejos


mas, por lo que resultaba inú-

ya, por Acorn, Amstrand, y el resto,


til en bastantes ocasiones
a mucha más distancia. Con esta nueva versión se
En cuanto a facturación se refiere, el nos asegura que podrán co-
piarse la mayoría de los pro-
Spectrum también ocupa los primeros gramas disponibles en el mer-
lugares a pesar de ser un ordenador cado aunque si como nos ima-
FACTURACION
más barato, debido sobre todo, al ginamos se exceptúan los tur-
bo. se habrá adelantado muy
m ACORN COMMODORE gran volumen de ventas antes poco, ya que casi todos salen
SINCLAIR reseñado, seguido muy de cerca, eso ahora con este nuevo sistema.
sí. por sus tres principales
AMSTRAO | \ OTAOS
competidores.

MICROHOBBY 4
ALTERNATIVA A IOS
QL MICRODRIVE*
En Sinclair se opina que es teóricamente posible unir los
microdrives del Spectrum al drive del port de extensiones
que hay en la parte derecha del QL.
A
El único problema que al parecer se han encontrado, es
el de que la apertura del acceso al cartucho d e b e volver-
se hacia atrás, lo cual supondrá una seria dificultad a la
hora de insertarlos en la unidad.
Por otra parte, el cable también tiene que ser invertido
para que la conexión oueda ser hecha a un tercer micro-

ramar
« • — m i i ii niiiy.-»
•¡SBS*li:.

drive. De todas formas, eso no garantiza tampoco que la


conexión pueda ser lo suficientemente buena para que el
ZX drive pueda trabajar.
Si después de todo lo visto se consigue hacer funcionar
CODIGO MAQUINA PARA
a los microdrives, se habrá logrado una alternativa bara-
ta a los QL microdrives. El ZX-81 Y
PARA EL SPECTRUM
Ediciones Técnicas Rede. 158 páginas Joan Sales Roig.

Todo programador que se precie de serlo, no habrá


completado su ciclo de aprendizaje, si no se ha intro-
ducido en el código máquina. Este libro pretende dar-
nos una especie de cursillo sobre el tema, de una for-
Se está comercializando en Inglaterra un pro- ma lo más clara posible.
grama que, por sus características, supone un Está pensado, en un principio, para personas que ya
nuevo concepto en juegos para ordenador. Se tengan conocimientos de Basic, aunque éstos sean muy
elementales, y trata a lo largo del mismo, de presentar-
trata de Deux Ex Machina, de la compañía Autó- nos, desvelados, los secretos más recónditos de este pe-
mata U.K., el cual nos narra una historia de Cien- culiar lenguaje.
cia Ficción, como si se tratase de una película. Tiene 20 capítulos, los cuales están estructurados en
tres partes claramente diferenciadas:
La historia ha sido creada por Andrew Stagg, 1— Introducción y conceptos generales de progra-
y tiene la peculiari- mación de los microprocesadores Z 80.
2— Instrucciones del lenguaje máquina para el Z 80
dad de incorporar, y forma de empico.
además de una cinta 3— Estudio detallado de la programación del tecla-
con el programa, otra do, y técnicas de programación.
El contenido principal del libro gira en torno al Z X
de larga duración 81, aunque la mayoría de los términos que vamos a usar
que contiene la ban- durante el aprendizaje, son los mismos que para el Spec-
da sonora que acom- trum. Sin embarga existen diferencias en algunos as-
pectos, ya que hay temas que, por otra parte, no se tra-
paña a éste, y que tan, como es el caso de los atributos del Spectrum, el
podemos ir escu- sonido o tos U D G . Otro problema lo entraña la dife-
chando según avanza rencia del mapa de memoria de uno y otro ordenador.
A pesar de todo ello, puede ser un buen libro para
el juego. iniciarse en el tema, bastante completo, con unos apén-
La música ha sido dices al final del mismo muy útiles para el programa-
creada por conocidos
**
VlDkMlmu
l M\ dor. Una idea sería, sin duda que se hiciera una ver-
laaoiia sión de esta obra para el Spectrum, sobre todo tenien-
músicos ingleses, en- do en cuenta que hoy día hay 200.000 usuarios de este
tre los que destaca el DEVS EX M A C H I N A ordenador.
popular Ian Dury.

MICROHOBBY 5
TODOS LOS MESES DIEZ BUENOS
PROGRAMAS INEDITOS
PARA TU SPECTRUM
YA EN
CASSETTE TU
cada mes te ofrecemos una cuidada selección de buenos programas
de juegos y utilidades, con la garantía de Microhobby-Semanal.
NOTA: Lo* programa* de M U cinta no han sido publicados anteriormente.
KIOSCO
EL
395ptas. N.° 1
Tiro pichón • Randax • Sintetizador
U-33 • Barras • Hiperynto • Rótulos
Cazafantasmas • Dúplex i Agenda GRATIS
CON EL
N.° 1
UN CASSETTE
VIRGEN
SOUNDONSOUND
PROGRAMAS

SPECTRUM
16/48 K
TRUCOS

FORMAS GEOMETRICAS
Para todos los usuarios los, cuadrados, pentágonos, ción BREAK no responde. no se puede decir que esté
del Spectrum es bien cono- etc., que giran sobre si mis- También podemos hacer muy pensado en este senti-
cido cómo funciona la sen- mos creando un efecto muy que «a» sea buscada aleato- do, algo podemos hacer, em-
tencia DRAW, a, b. c, donde curioso. riamente, con lo que es to- pezando tal vez por lo más
«c» indica la curvatura de la Para obtener figuras cu- davía más inesperado el simple: incrementar la clari-
línea. Ahora bien, cuando riosas, probar con «a» como: efecto conseguido. dad y legibilidad de nuestros
programas.
En este sentido, Valentín
Creus, de Barcelona, nos in-
dica que al colocar un texto
aclaratorio en una sentencia
REM, si ponemos espacios
detrás hasta completar una
línea, ésta estará claramen-
te separada de las que la si-
gan. Valentín matiza así otra
serie de trucos acerca del
mismo asunto publicados
en números anteriores.

ARCHIVOS
MAS LEGIBLES
A la hora de almacenar ar-
chivos en el microdrive, és-
tos pueden ser de cuatro ti-
pos:
1— Programas Basic: sin
token.
2— Bytes (rutinas en len-
«c» toma valores (considera- 7335, 4196,10125, 8499, 2378, guaje máquina): to-
dos en radianes) muy gran- 12074, 8927, 7072. 4032, ken CODE.
10 PLOT 127,87
des, lo que tenía que ser una 2535. 4351 20

INPUT 'HL«»ero=
DRFIU S O , 5 0 , N U *
NVO 3— Matrices (numérioas
línea se transforma, depen- Dado que la figura creada ¿o p«use íoo CLS o alfanuméricas): to-
50 GO TO 10
diendo del número «c» elegi- está formada por una sola ken DATA,
do en figuras como triángu- sentencia (DRAW), la fun- 4— Pantallas: token
SCREENS.
Una posible manera de di-
MAS DE ciones, resulta interesante
conocer que, por lo menos,
único código (¡sí!, el de
BREAK) y ejecuta exacta-
ferenciarlos con claridad, es
introducir en el nombre del
UN «BREAK» existe una manera más de
detener el programa no in-
mente la misma rutina ROM. archivo el TOKEN correspon-
diente a cada tipo, ya que
Como todos nuestros lec-
tores conocen, una de las
cluida en los manuales, me-
diante la pulsación SIMUL-
DIFERENCIANDO sólo nos ocupará un carác-
ter. a pesar de tener más de
formas más «ad hoc» de de-
tener un programa en curso
TANEA de la siguiente se-
cuencia de teclas:
BLOQUES una letra. Aunque lo hemos
nombrado en otras ocasio-
{aparte de desconectar el CAPS SHIFT + SYMBOL Como hemos comentado nes, para refrescar la memo-
Spectrum), es pulsar simul- SHIFT + Z en ocasiones anteriores en ria recordemos que un TO-
táneamente CAPS SHIFT + El programa se detendrá esta misma sección de tru- KEN es una palabra reserva-
SPACE con idea de obtener, como si hubiéramos pulsa- cos. es conveniente que los da por el sistema operativo
programas protegidos apar- do BREAK. programadores, especial- del Spectrum y que sólo
te, el consolador mensaje Advertimos que este truco mente si son noveles, ad- ocupa un byte en la memo-
«D. BREAK...» para poder resulta inútil para acceder al quieran buenos hábitos de ria del ordenador; se obtie-
inspeccionar cuidadosa- listado de aplicaciones cuyo programación desde el prin- nen de la forma usual; por
mente el listado del progra- sistema de protección sea cipio, tales como la progra- ejemplo, si quisiéramos sal-
ma en cuestión. inhabilitar la susodicha tecla mación estructurada, méto- var una rutina en código má-
Aunque este planteamien- «BREAK», porque el ordena- do «top-down» y un largo et- quina en microdrive, el nom-
to probablemente no reza dor reconoce la triple se- cétera. bre seria «rutina CODE» y
con nuestras propias aplica- cuencia anterior como un Aunque el Basic Sinclair ocuparía 7 caracteres.

MICROHOBBY 7
PROGRAMAS MICROHOBBY r

CALENDARIO PERPETUO
80 REM C A L E N D A R I O P E R P E T U O
90 REM SPECTRUM 1 6 / 4 8 K
100 REM § J. MORON
110 DATA 100,24,66,98,82,74,70,
0
1 2 0 FOR \ » U S R " N " T O U S R "N"+7
1 3 0 READ X POKE I , X : NEXT I
1 5 0 BORDER 7 PRPER 7 INK 0 C
José MORRON BORREGO LS
160 PRINT N O C I S T E UN L U N E S ' ' UN
MIERCOLES? U N . . . ? " PRINT
1 7 © P R I N T " T U S O B E S C U A N T O S ANO
Spectrum 16 K S TIENES..
S SEMANAS''
SABES T A M B I E N CUANTA
CUANTOS D I A S " » " PRIN
T
1 8 0 P R I N T " E L D I A DE N A U I D A D DE
L A N O QUE UIENE, SERA D O M I N G O ' '
Con este útil programa conocerás en qué cae esa fecha , SERA. , .?
190
PRINT
P R I N T " E L 5 DE MAYO DE 1821
señalada o esa onomástica que nos interesa recordar, , M U R I O EN
BONAPARTE
SANTA ELENA NAPOLEON
C U A N T A S S E M A N A S Y CU
pero con la particularidad de que la podremos conocer ANTOS D I A S
O ERA...?"
M A C E ? . ERA U I E R N E S ' '
PRINT
para cualquier año futuro que deseemos. £00
PARA T U
P R I N T •CUANTOS D I A S F A L T A N
PROXIMO CUMPLEAÑOS''"
PRINT
210 P R I N T " P R E G U N T A S A S I SON L A
S OUE A Y U D A A R E S P O N D E R E L PROGR
La peculiaridad de este Calendario es- tituido en 1582 y posteriormente genera- AMA"¡AT 2 1 . 3 , INK 2 , INUERSE 1,"
PULSA CUALQUIER TECLA " PAUSE
triba pues, en que abarca desde el año lizado. O CLS
2 2 0 P R I N T AT 1 0 , 5 , " C A L E N ¡>
I de la Era Cristiana, hasta cualquier año Consta de dos partes: en la primera, A R I O " P R I N T AT 12,5,'I
^^^^^MMMMMM PAUSE 130
futuro por lejano que sea. Concretamen- se ofrece la hoja de un mes completo, £ 3 0 C" I M C ( 2 4 )
240 DIM M* <12,121
te, desde el a ñ o 1 hasta el 1582 se ajusta que, por supuesto, puede copiarse en im- 2 5 0 D I M S$ 1 7 , 9 I
260 DIM N*(7,12)
270 DIM F * < 2 8 , 3 )
al calendario Juliano; desde el 1583 en presora; en la segunda parte, el Spectrum 2 8 0 DATA 0,31,59,90,120,151,181
,212,243,273,304.334
adelante, al calendario Gregoriano, ins- calcula la diferencia (en días, o en sema- c2 ?9 v0 L»n
D A Ti An 0 , 3 1 , ,6u0v , ?9 i1 , 1 2 1 , 1 5 2 , 1 8 2
,213,244,274,305,335
nas y días) entre dos fechas del calenda- 3 0 0 DATA " E N E R O ' , " FFE B R E R O 1 MAR

rio Gregoriano.

8 MICROHOBBY
610 IF H ES
= 2 AND A N O/4
<> I
N T A
IN 920 C L S I
N P
U T "
P R I
H ER A FECHA
20","ABRIL","HAYO","JUNIO","JULI 0/4) THE
N L ET Z = 21 D I
A -
» " ; DI, " M ES
?" ;
M 1,
"AÑ 0?'
*
O "
,
"A G O ST O "
"SE P T I
E M B RE",
"O CT U BR 620 IF A NO >15 80 AND M ES
=2 AND A ; Al
E"
,"
N O VI
E M BR E " ."D ICIEM B RE" N O/10
0= I
N T (A N O / 100) T
M EN L ET Z = 9 3 0 I N PU T " SE G U N D AF E CH AD I
A ">
31 0 D AT A " D O M N
IG O "
L U NE S 21 " , D2 , " M E S»
- " , M2 , " ARO' ",R2
", "
M A RT ES •• , "
M I
E RC OL E S
" , "
JUEUE 630 IF M ES = 2 AND A N O /400
= I
N T (
A 940 I F A l< 1 5 8 3 T H EN P R I
N T AT 8,
5 ",
" VIER N E S " "
,SA BA DO N O /4
0 0 ) T
H EN L ET 2 =14 0, " EN TR A D A NO UAL IDA." PR I
N T
32 0 D A TA " 1 8 1 S 22"," 2 9 640 L E TD = A N O *
36S *
I
N T ((
A N O-
1 )
/ P R I
N T " A H B A SF E C H A SD EBEN S E R PO
16 23" ," 3 1 0 1 7 24."," 4 1 1 1 4)-INT ( A N O / 10 0) + I
N T (
A N O /4
O 0) S T E R IO -RE S AL AÑO 1 5 8 2 " P R I
N T A
8 25"," S 1 2 1 9 26"," 6 1 3 20 650 L E T D = D + C (
M E S+BIS) T2 0 ,
5 ,
" PU L S A C U A L Q U E
IR T E C L A -
27"," 7 1 4 21 28" 660 L E T D = INT M (
D /7)-
IN T( D/7 > P A U S
E0 C L S GO TO 420
33 0 D A TA " 29"," 30"," 31',"", )*7.1) 9 5 0 L ETD 01= D 1 L E T D 02= D 2
670 FOR N = 1 TO 7 960 L ETA 01= A 1 L E TA 02-A 2 L E T
Ó-
V
íOATA " 29"," 30" t"" i " " t"" > " 630 L E T U = D +N M 01=M 1 L ET H 0 2=M 2
690 I F ANO = 1562 AND M E S< 10 T M E N 970 L ET AT = A 2-A 1 L E T M T =M 2M
- 1
650 D
ATA " !9","","",""/""<""i"
L ET U = D + N-4 9 8 0 IF M T < 0 T H E N L E T AT =AT -1 L
7 00 IF A N O :
1 582 AND M E S
= 1® T H E N E TM T=M T + 12
360 D ATA (
3 7 0 FOR N a l TO 2 4 REA D C (
N iN C LS PR I
N T " O CT U B R E DE 1 5 8 2 F U 9 9 0 L ET S 1 = I
N T (Dl/7) LE T S 2 = I
EXT N EE L MES DE L A I
N ST A U R AC I
O ND EL C N T (D 2/ 7 )
3 8 0 FOR N = 1 TO 1 2 REA D M »(
N ) A L ENDA R
O
I G R E -
G O R I
A N O . SO L O T U U O 1 0 0 0 L E T S T = S 2 -S 1
N E XTN 21 D IA S, S AL -
T A N D O DEL J
U E V E S 5 1 0 1 0 L ET B IS 1 = 0
AL UIE R N E S 15" GO TO 7 70 1 0 2 0 IF A1/4 sIN T ( A l/ 4 ) T H E N L E T
3 9 0 FOR N=1 TO 7 READ S «( N )N
7 10 IF A N O < 1582T H EN L E T U «D + N- BIS1-12
EXT N 4 1 0 3 0 IF A l
/ 1 0O = INT (A l/ 10 0 ) TH EN
400 FOR N -
1 TO 7 REA D N * (
N )N 720 I F U > 7 T H EN L E TU = U -
7 IF U L E T B IS 1 = 0
EXT N > 7T MEN GO TO 72 0 1 0 4 0 IF A l
/ 4 0 0 eIN T ( A l
/ 4 0 0 ) T M EN
4 1 0 FOR N=1 TO 2 8 R
E A D F « (N ) 7 30 IF U <1 T H EN L E T U=U +7 IF U L ET BIS 1 = 12
N E XT N < 1T M EN GO TO 73 0 1 0 50 L E T BIS2-0
4 2 0 P RI
N T AT 6,
1 0 ,
"OP C IO N E S' P 740 P R I
N T TAB 4 , S $ ( U) ; M S ( N ) , F $ i 1 0 6 0 IF A 2/ 4= I
N T ( A 2 / 4) T H E N L E T
R IN T AT 10 ,0,"U E R UN MES C OM P LET N +Z ) SIS2=12
O" P RI
N T AT 12,15, P U L
SA íl>" ^^^p^r^^^^^^ I N K u; ' I ^ ^ B H H 1 0 7 0 IF A 2/ 1O 0 = INT (
A 2/ 1O 0 I T H EN
4 3 0 P RI
N T AT 16 .
0 ;
"TI
E M PO E N T
RE
L E T B IS 2 = 0
DOS FE CH A S" P R I
N T AT 18,15,"P
1 0 8 0 I F A 2 / 40 0 = INT (A 2/ 4 00 I T H EN
ULSA <2
> " 7 7 0 P R I
N T AT 19,0,"MES A N TE R I
O LRE T BIS2-12
4 40 I F I N K E Y »« "1 " T H E N C U S G O A . E L S IG U I
E N T E S C O P I
A EN I M P
1 0 9 0 L ETD 1 = D 1 + A l*
3 6 5 + I
N T ((Al-1
TO 47 0 R ESO R A I. H EN U O T E RH N
I A R T. )^4)-INT ( A l
/ 1 0 0 ) + IN T (
A 1/ -
4 0 0 )
4 50 I F I N K E Y «= "2 " T H E N C L S G O
1 1 0 0 L E T D 1
= D 1+ C ( M I + B IS1 )
TO 87 0
780 I F I N K E Y »
* "A" OR IN K E Y * B 1
"1
4"1 0 L ETD P 1 -
IN T (( i D 1/ 7) -INT (
D
4 60 GO TO 4 4 0
TH EN L E T M ES = H E S -1 1/7))*7.1) IF DPIí1 T H EN L ET D P
4 7 0 P R IN T P R I
N T F OR N= 1 TO
7 9 0 I F M E S= 0T H E N L ETM E S= 12L1= O P 1+ 7
1 2 PR IN T TAB 5 ,
M fiN ) ,
N N E XTN
E T A N O = A N O l
- 1 1 2 0 L E TD 2= D 2+ A 2t3 65 + I
N T ((A2-1
4 8 0 I N P U T " Q U E MES L E I N T E R ES A ?
8 0 0 I F I N K E Y $ ="S" OR IN K £ Y $ )/4)-INT (
s" S' A 2/ 1 0 0 )
• IN T ( A 2/ 4 00 )
(
D IG AE L N U M E RO ) ",MES," D E
TH EN L E T MES = HES + 1 1 1 3 0 L E T D 2= D 2 + C(H 2 + BIS2 )
OUE AÑ O ? " , ANO
8 1 0 IF M E
S = 13 T H E N L ET ME
S = 1 11L4 .
0 L ETD P 2
= INT (< (D 2 /7 )-IN T( D
4 90 I F MES < 1 OR M E S > 12T H E N C LS
E T A N 0= A N G + 1 2/7))#7.1) IF D P 2)7 T H EN L ET D P
P RIN T AT 12 ,
0 ,
"E N T R A D A E RR ON E
820 I F I N K E Y $ = "A" OR I
N K E 2 =D
Y " 3 " P 2-7
A , P R U EB EO T RA U E Z " P A U S
E 2 0 0
O R IN K E Y »= " S " OR I
N K E Y «= "S" T 1H1 5
E 0 IF D P 2•£ 1 T H EN L ET D P2 = D P£+ 7
C L S GO TO 4 7 0
N GO TO 510 1 1 6 0 L ET DT » D 2 -D 1
500 IF ANO <1 TH EN C L S P R I
N T A
8 3 0 IF I N K E Y S = "O" OR I
N K E 1
Y %= 'o"1 7 0 L E T DPT = D P 2 -
D P I
T 8,0, LO S IE N T O . NO ESTO Y P RO G
1 1 8 0 L ET U = INT (
D T/ 7 )
R A M A DO P A R A C A LC U L A R A Ñ O S A N TERI T H EN B O R D E R 7: P A P E R7 I
N KO
O R E S A LA ERA C R I
S T I
A N A " P R IN T C L S GO TO 4 1 2
1 19 0 I F D P T > 7T HEN L ET D P Ta D P T-
7
A T2 0,
6 ,
" P U L S A C U A L Q U I
ER T E C LA " 8 4 0 IF I
N K E Y " T " O
R IN K E Y * = '
t"
LET U=U + 1
P A U SE© C L S GO TO 420 TH EN B O R O ER7 P A P E R7 I
N K 0
1 2
G 8 I F DPT <1 TH E
N L ET D P T=D P T+7
5 1 0 B O R O EPO P A P ER0 N
I K 7C C L S ST O P
LET U = U - 1
L S P R IN T AT O .f
l.
M > ( M ES ) •AT 0 . ¿ 8 5 0 I F I N K E Y § * " I" OR IN K E Y » = '
i"
1 21 0 P R I
N T " D ES DEE L ",5$(DPI)
I,AN9 PF^T - m i n i T H EN C O P V
P R I
N T .D01;" D E M,
' »(
M ©1 > P R I
N T
860 GO TO 78 0
DEL ARO ",A01
S 20 IF A N O < 1 583T H E N P RI
N T T A 6 8 7 0 P R I
N T TAB 3 ;
"D IF E R E N C IA E N T 1 22 0 P R IN T PR I
N T "
H A S
T AE L " , S
6 "
.
C A L EN D A R I
O J U L IA N O " P RIN T R E DOS FE C H A S" P R I
N T T A B 3, " p . t1DP2) PR I
N T P02," DE " ,
M «(
M 0 2
GO TO 5 4 0 PRINT P R I
N T D E L AÑO ",A02
530 P R IN T TAB 5"
;C A L E N D A RIO G R E 1 23 0 P R I
N T PR I
N T PR I
N T " SO N "
G O R I
A N O " P R I
N T 8 80 P R I
N T " A M BA SD E B EN S E R P O ST P R IN T
S 40 L E T BIS =0 E R I
O R E S R L A IN S
T A U R A C I
Q ND EL C A L 1 24 0 I F DPT =7 TM EN L ET D P T= D P T-
7
550 I F A N 0 /4 -
IN T ( A N O/ 4) TH EN L E N D R R I
OG R E -
G O RI
A N O A (Ñ O 1582)" L E T U s U + 1
E T 6IS=12 P A U SE 5 0 1 25 0 P R I
N T I N T (DT/7)," S E
M AN A S
560 IF ANO > 1 5 8 0 AND A N 0/ 1C 0= I
N T 890 P R I
N T PR IN T " E L M ES NO DE Y " , D P T , " D I
A S"
(
A N O / 100 1 T H E N L ET B IS= 0 B E I N T R O D U C IR SE POR S UN O M BR E . S 1 26 0 P R I
N T PR I
N T s ",DT," D I
A
5 7 0 IF A N O / 40 0= I
N T I A N O /40O ) T H N
IO POR SU N U M E R O "
: P A U SE S O
EN L E T BIS-12 9 0 0 P R I
N T PR IN T " E S T A P A R T ED 1 27 0 P R I
N T AT 20,0. A LGU N O TRO D
E LP R O G RA M A NO CON- T R O LA L O S E R A T O *'P U LS A C U ALO UI
E R TEC L
A "
580 L ET Z = 0
R O R E S . D IA , MES Y A KOl D E B
E N I N 1 28 0 P A U S
E0 CL S GO TO 42 0
5 90 IF MES =4 OR MES «6 OR M E S= 9 O I
C A R S E CON CU I
D A D O " P A U SE 50
OR M E S» 11T H E N L E T Z =7 9 1 0 P R I
N T AT 20,5, F L A SH 1 ,"P U L
600 IF H E S = 2 AND A N 0/ 4=IN T A (N O SA C U A LQ U E
IR T E C L A " P A U SE 0
/A.) TH EN L E T Z = 14

AJEDREZ AB C D
1 t
N

EFGHIJKLMNC
* J * 1

QR s T u
H % 1 H t
• • -
OT
A

1 i i
S

i i M
GRAF
ICAS

Manuel TRUJILLO SERRANO


Spectrum 48 K

Este es un programa para jugar al ajedrez en el que el


ordenador trabaja como tablero y jugador a la vez. S PA PE
R5 BORD E R5 CLS I
N
K 2r P APER6 PRI
N T F LASH 1,
A T 1
2,9." AJ
E DREZ ", F LASH 0
8 GO SUB 9000 GO SUB 8000
10 L ET nj=10 D M
I t(8.8,3) D I

NEí£ ¿0RN?Í1 TO 2 FOR 1=1 TO 4


Con él, tendremos constantemente en pulsando «SPACE», y repitiendo la mis- LET r U , C ) . ( U 3 l ) R<t=2>
O O
R (
l«3))*ñ+U=4) N E X
T (. NEXT C
pantalla la visión de un tablero de aje- ma operación para elegir la casilla final. 20 FOR (.
= 1 TO 8

drez, con sus fichas correspondientes y En la segunda opción podemos pulsar 40 FI?R(Í==Í»TSNS (C =1) TH EN L E T
t < l , C ,3> =5 GO TO 70
el color concreto de fichas que juega en la tecla «E», tras lo cual, el ordenador 50 I É C=1 T
H E N L ET t(l,C,3)-t<
l-l ,8,3) GO TO 70 ,
cada momento. nos preguntará hacia qué lado queremos 60 L ET t (l ,3) =6*-(l <l . C-l,3)

Para elegir la jugada sólo existen dos enrocarnos y si el enroque será largo o -SSM^Uir'ói'^U) T
H E
N LET
t ( (. , C , 2 ) =1 GO TO 100
posibilidades: en la primera, cambiare- corto. 80 IF ( C « 7 ) O R (C =8) T H EN L ET
mos una ficha de posición seleccionan- El programa se encarga, por otro la- t(L,C,2)=2
90 LET
GO TO I
t ( l , C , 2)
CO
=1 (l , C , 3)
do, primero, la línea y la columna de la do, de detectar movimientos erróneos, 10
O TO
0 I
1
F ( C O I )
8 0
AND < C < ) 8) T
M E
N G

ficha a mover mediante dos asteriscos, comer, mover, y demás funciones.

MICROHOBBY 9
WPROGRAMAS MICROHOBBY

HO LET l M , C , l l ! i U s l l OR (1=6 0 580


I ) «14 i OR ( 117) ) *2 + I ( l =3» O 830 IF It (la ,ca , 1> =51 AND IABS
R <l«6) ) + 3 + L ( l = 4 I HHD I t I l ,C ,2) « ( l - i a i o l i AND (AB$ ( c - t n < >1) T
l ) l * 4 + ( ( l s 5 > AND (l(L,C,2>=ll>+5 HEN BEEP 3,40 GO TO 580
« ( ( 1 = 4 1 ANO ( T < L , C , 21 - 2 ' > + 4 * I < l =
5) AND (t ( l , C .21 -21 > «5 840 IF (l(14,Ca,1)=61 ANO (<<ca
(>7t RND (ca < >21 AND (AB5 U J - t l
13® IF tce¿l OR (C-7P THEN LET >1)1 OR I ( (ca =7) OR (ca=2ll AND
L (L , C , 1 1 » 6 (ABS lca-c>>2)) OR ( < r = l l AND (C
190 IF (C < >21 AND (C<>1> ñNC> IC a>C)l OR i<f=2> ANO t c a c l l OR (
t,7) AND ( C < > 8 • THEN LET 1(1, C,1 ( ( l < n a ) AND ( IABS f l - t « ) > l ) OR
) >0 (ABS (c-ca l > 1) OR (l ( l , < ,1) =0•))
200 NEXT C ) OR ( (Isla) ANO ( l ( l , C,11 t>0)))
£10 NEXT l THEN BEEP 3,40 GO TO 580
215 BORDER 2 PAPER 5 CLS 841 GO SUB 1000 IF ( t ( i a . c a , l )
220 FOP U 1 TO 8 «1) AND ( la•1> THEN LET e ( l , f l - l
230 FOR C = 1 TO 8 842 IF (l < la , ca , 1» «11 AND ( l 3 =8
240 PAPER (6-t ( l , C , 3 ) ) *6+ (t ( l , C 1 THEN LET e ( 2 , f ) = 1
,3)-S)*7 843 IF l < i a , C 4 , l ) s 5 THEN LET e<
250 PRINT AT 3 + 2*l-1,3+2+C-2, 1, 11=1 LET e ( 2 , f ) = 1
" , RT 3+2+1-2.3+2+C-2, 844 IF t ( l , C , l > < > 5 TMEN GO TO 8
266 NEXT C 48
270 NEXT l LET 7 «0 845 FOR i—10 TO 50 BEEP . l , i
27S LET V - l LET a-1 LET b«2 BEEP . 0 5 , i - 9 NEXT i
230 FOR l - l TO 8 846 IF /=1 THEN INK 0 PRINT AT
290 FOR C=3 TO b 15,22, •GANAN";AT 17,24."ROJAS
300 GO TO 310+10 * l <l ,C ,1> " STOP
310 LET b9«" " GO TO 380 647 IF (=2 THEN INK 0 PRINT AT
320 LET b»*' H8 1 ' : GO TO 380 15,22,"GANAN";AT 17,24;"UEROES
330 LET b«e" • A " GO TO 380 " STOP
340 LET b $ a" t G>0 TO 380 848 IF ( l ( l , C , 1) < >01 AND U ( l , t
350 LET b9«" & I " GO TO 380 , 1) < >61 THEN LET r (t ( l ,C ,11 , (3-f
360 LET b» = " GO TO 380 J)=r(t(i,c,ll,(3-íil-l
370 LET b9 „ i 849 IF t ( l , C , l ) < > 0 THEN FOR »=1
380 PAPER 7*(6-t (l,C,31 I *6* (t ( l 0 TO 50 STEP 4 BEEP . 1 , i : BEEP
, C , 3 í -5 ) INK 4 * ( t ( l . C .2) s2 > +2+ ( . 0 5 . i - 9 NEXT i
t ( t , C , 2 > - l l PRINT RT 19-2*1,1+2 850 LET t ( l , C , 1) =t < la , ta , 1) LE
* c , b 9 ( l TO 21,AT 20-2+l,1+ 2 + C,b9 T l ( l , C , 2 ) = í LET l l l a , C a , 11 = 0
(3 TO 4) L E T i (i a , ca , 21 (la , ca , 31
450 NEXT C NEXT l 855 LET V - l LET a-la LET b=ca
460 IF v — 1 TMEN LET V-2 LET n 860 GO TO 870 + 10*t (4 ,Jrb,A1)»
7 LET b-8 GO TO 280 870 LET b*»" GO TO 940
46S IF 1=1 TMEN GO TO 3300 880 LET b» =•' OH " GO TO 940
500 PfiPER 2 INK 6 PRINT FLASH 890 LET b* = ' GO TO 940
1,AT 2,23,"AJEDREZ" PAPER 4 I 900 LET b» = f l GO TO 940
NK 0 910 LET b$ = f' GO TO 940
530 LET taS
930 LET b f - " ít-
920 LET b • =' GO TO 940
SS0 PfiPER 5 . 1
560 IF í=2 TMEN LET f = l INK 0 940 PAPER 7 * ( 6 - 1 (a ,b,31 ) + 6 * ( l la
PRINT AT 10,22,"JUEGAN ",AT 12, , b , 3) -51 INK 4 « ( t I a , b ,21 =2) +2* <
24,"ROJAS " GO TO 580 T <a .b,2) B1> PRINT AT 19-2*a,l+2
S70 LET f-2 INK 0 PRINT AT 10 • b , b * ( l TO 21,AT 20-2 + a,1+2 *b; b«
,22,"JUEGAN",AT 12.24."UERDES (3 TO 4)
580 BEEP .05,1 LET la>8 LET C 950 IF v - l THEN LET v=2: LET a=
4 = 1 FOR 4=4 TO 19 STEP 2 PRINT l LET b = C GO TO 860
AT 4 , 1 , " " A T 1 , * , " " NEXT * 960 GO SUB 5000 GO SUB 6000 G
PRINT fif 2 + 2 * ( 9 - i a i , 1 , " * ' . A T 1,2 O TO 550
+ 2 * C 4 , " *" 1000 IF (t ( 14 , Ca , 1> =61 AND (ABS
590 IF 1NKEY»-"" TMEN GO TO 590 (ca-c)>l) AND (ca<>21 AND (ca<>7
600 IF INKEY»s"7" TMEN LET ia = l ) THEN BEEP 3,40 GO TO 560
4+1 1001 IF (X (la .ca ,11 =6) AND <l < > l
610 IF INKEY9s"6" TMEN LET U s l 4) AND <C=íal THEN BEEP 3,40 GO
TO 580
a 620 IF INKEY9-"S" TMEN LET C3=C 1002 IF ( t ( i a , ca , i ) - 6 ) ANO ( l < >l
31 AND ( (ABS ( l a - i ) >1) OR (l<l,C f = 11 +8+ ( f=2» ,1) =0 LET l (8* lb$ = "
a¿30 IF INKEY»="6" THEN LET CÍ=C ®, 1 1 = 0 ) )
THEN BEEP 3,40 GO TO 58 2"I + ( b * - ' 1"1 , ( f « l ) +8 *(f =2) .2) =1 (
* 635 IF INKEY*»"C" THEN GO TO 30 1010 IF l ( l 4 , c a , 1 1 < ) 1 THEN GO TO e+ ( b * « " 2 " i + ( b * - " l " l ,((-11+8*(<-2
1080
1015 FOP P - < l - i a i *<c>ca»*(ca+l> + ) ,3)
00
650 IF <14 <1> THEN LET 14 = 1 (i a = 11t(ca > c)»(c+l> + (ca=c> * ( l > l a 3120 LET l (7 *(UAL <b* I -1> *(2-UAL
651 IF (la>8> TMEN LET 14=8 Í * ( L A * 1 ) + c e a > C > * < l a > L » * i I + L I TO
lp$l 1 +8 + (UAL ( b® I - 11 + (UAL <P«>-
652 IF 1(4)81 THEN LET C3-3 ll+2+12-UAL
(i = t a i M c x a i t ( c - D + ( i = ia) + < c a > c 2-UAL (bf) I * (2-UAL (p9>>+(
653 IF (C3íl> THEN LET t í j l ^ ) *(ca-l> + (ca-ci + (l s u * t i - l i + (ca (b 91 > +(UAL (p9) -1) . <2-fI +6
660 BEEP .005,40 PRINT AT 2+2+ • c1» íla > U • l la-1) »((-11,11=5
<9-ia-l> . i ; " " . « t a+2* i 9 - i a + l i , i 3121 LET 1(7+ (UAL (b9> -11 * (2-UAL
" "TAT 2+2*(9-ia> ,1,"*",AT 1,2 + 1040 IF l ( ( l < > la ) *P + ( l = lai + l a , ( c ( P 9) ) +8 + (UAL < b 91 - 1' * (UAL (P9»-
2* t c a - i ) , " "»AT 1.2+2+(ca + i ) , ' i<>c) *p+(ca-ci*ca,1><>0 T H E N B E E I I +2 *(2-UAL (b9>1 + (2-UAL (P9I1+1
P 3,40 G O T O 530 2-UAL . (b9> I +(UAL (p|l -1) , (2-f1 +8
'IÍO^F^INKEY**'»" " TMEN GO TO 5 1 0 5 0 NEXT p *(f-1),2)*(
90 1090 IF ( t ( l a , c a , 1 l <>31 AND (1(1 3130 LET t (6 + <UAL (b9I -11 * <2-UAL
680 FOR l=50 TO 0 STEP -5 BEEP 4,ca , II < >4) THEN GO TO 1200 ( P 9) I + 7 * (UAL l b 9 I -11 * (UAL (P9>-
1095 LET pela LET M-ca 1) +3*(2-UAL (b91 1 * (2-UAL <P9>>+2
681,LETNl'=8 Y*ET t = l FOR 4=4 T 1100 LET p = p + ( i > i a ) - ( l < l a i LET * < 2-UAL ( b9 > > * (UAL ( P 9 ) - D , ( 2 - M
0 19 PRINT AT 3 , 1 , " "; AT 1 , » ; " m=»+ ic >ca)-<c <ca) +8+(f-1I,1)-1
NEXT a PRINT AT 2 + 2* («-(.), 1; 1 1 1 0 I F ( P = l ) (B-C) GO 3131 LET l < 6 *(UAL ( b91 - 1 > * (2-UAL
(P 91 I + 7 * (UAL (b9>-l)*(UAL (PSI-
ANO THEN
••»" , AT 1 ,2+2 + t , • »•• 1200
II +3+ (2-UAL (b9) I « (2-UAL (p 91 I +2
TO
690 IF INKEY 9 = " " TMEN GO TO 690 1120 IF t ( p , n , l ) < > 0 TMEN BEEP 3,
700 IF INKEY 9 = " 7" THEN LET l=t + 40 GO TO 580 + (2-UAL ( b91 I +(UAL (Ptl -1) , 12-11
1125 GO TO 1100 • 8* ( f - l l ,21 =/
1710 IF INKEY«="6" THEN LET 1*1- 1200 RETURN 3170 PRINT AT 15,22,"
3000 REM enroque RT 17.22," ": LET 1=1 G
720 IF INKEY»="S" THEN LET C=C- 3010 PPINT AT 15,22,"ARRIBA 2",A 0 TO 275
T 17,22,"ABAJO 1" 3300 LET e <1 , f > =1 LET e ( 2 , f ) E l
X730 IF INKEY 9 = " 8" THEN LET C-C +
3011 IF INKEY*-"" TMEN GO TO 301 GO TO 550
1 5000 REM caabio del peón
750 IF l l x l l THEN LET l «1
1
3012 IF (INKEY(<»"!") AND (INKEY 5005 PAPER 5 INK O
751 IF ( 1 >81 THEN LET 1=8 t O " 2 " l THEN GO TO 3011 5010 IF (t ( l , C , 1) < >6» OR KC()8I
752 IF ÍC>8» THEN LET C-8 3013 LET b*=INKEY* AND ( C O l l l THEN RETURN
753 IF IC<1I THEN LET Cal 3040 FOR w=l TO 40 NEXT w PRIN 5015 FOR 1=1 TO 4 IF r ( l , ( ) < > ( (
760 BEEP .005,40 PRINT AT 2+2+ T AT 15,22,"LARGO 2 ",AT 17,22, 1 - II + (ts2) + (l-31 ) «2+(t-41 THEN G
(9-1-1),1, " ",AT 2 + 2*(9-1 + 1) . 1, " "CORTO í " O TO 5020
",AT 2+2+<9-1),1,"*";AT 1,2+2+1 3041 IF INKEY«="" TMEN GO TO 304 5016 NEXT \ RETURN
C r l l - " ".«T 1.2+2*(C + l l , " ",AT 1 5020 PRINT AT 14,21;"ELIGE " ; AT
1
3042 IF (INKEY f < >"1"í AND (INKEY 16,21,"TORRE . . 1",AT 17,21,"CA
, 2 + 2 * C ; " «'
THEN GO TO 6 f < >"2"1 THEN GO TO 3041 BRLLO 2";AT 18,21;"flLFIL . . 3".
770 IF INKEY9<>"
3043 L E T p $ = I N K E Y % RT 19,21;"REINA . . 4'
90
780 IF ( ( l - l a ) ANO ( o c a l ) OR < 3080 FOR i - 6 * < i a 1) *(b* = "2") +4 *(f 5030 IF INKEY 9 ="" TMEN GO TO S03
I U l , { | , í l < ) f l OR <»<l'¿¿2)=n O * l ) * ( b $ = " l " l + 6 *(f =21 * ( b t - " 2 " ) +4 * 0
5039 LET b9 - INKEY 9 IF (b9<>"l ,, >
R (t ua ,ca , 1» =0) THEN BEEP 3,40 ( f=2) *<b» = "l"> TO 7*(UAL (b(> -11 AND (b9 < >"2"1 AND (b9<>"3"l AND
GO TO 580 +2 *(2-UAL (b»)> STEP (UAL ( b * ) - l (b9<>"4") TMEN GO TO 5030
790 IF ( K l í . C í . l l » ! ) PND )-(2-UAL (b$l) 5040 LET O-UAL b 9
a) ANO K o c t l TMEN BEEP 3,40 G 3090 IF l ( i , 2 - í + 8 * ( f - 1 ) , 1 ) <)0 TM 5050 IF r ( 0 , f l = ( ( 0 = l ) OR (0=2) O
EN BEEP 3,40 PRINT AT 1S,22;" R (0-3) 1 «2+(0-4) THEN GO TO 5030
°80® IF® (t ua ,Ci , 1» »2) ANO NOT ( AT 17,22;" GO 5060 LET l ( l , C , l ) - 0 LET r ( 0 , f > »
(<ABS (L4-l)«2> AND (A8S (£»-£»» TO 580 r (o,fi+1
I I OR <(ABS cca-c)=2) AND <ABS 3100 NEXT , 5070 PRINT AT 14,21;" ",A
( U - U ' l l l l TMEN BEEP 3.40 GO T 3110 IF e (UAL < b f ) , M * l THEN BEE T 16,21," ";AT 17,21;"
°810°IF tt(La,C»,l)=3> fiNO^lABS P 3.40 PRINT AT 15,22, 2 1 ";AT 18,21," "
";AT 17,22;" *• GO TO 5 •• p y
( l a - U o f l B S (ta-C)l THEN BEEP 3, 80 5080 LET 'v =2 LET a«l LET b-C
40 GO TO 580 3115 LET l (5, (f = 1) +8* ( f=21 ,1) =0 GO TO 860
620 IF (t ( La . ca , II =4) AND U <>1 3116 LET t ( S , ( f - I I + 8 * í f = 2 1 , 2 » * t ( 6000 REM labia»
a? AND ( c o c a . AND <ABS <i-iai<> 5 , (I = 11 +8*(f=2) ,3) 6010 LET V =0
RBS (c-cal) TMEN BEEP 3,40 GO T 3117 LET l (8*(b» = "2"i +(b* = "1"> , ( 6020 FOR i — 1 TO 8 FOR j = l TO 8

10 MICROHOBBY
603O IF (v-1) RND (t<i ,j,21 =f> T 00111100,BIN 00000000,B1N 0O00OW
HEN RETURN 00, "T" ,BIN 11111100,BIN 11111100
6040 IF l ( í , J , 2 ) > f TMEN UET val ,BIN 011111100,BIN 00111100,BIN
6OS0 NEXT j : NEXT 00111100,BIN 0011110O,BIN 000000
6060 LET n j =n j - 1 00,BIN O00OO000
6070 IF ~ nnjJ 30
=0 TTMEN
ME PAPER 5: INK 0 9090 DATA "P",0,0,BIN 00000001,6
PRINT RT 17,21; "TABLAS" BEEP IN 00000111,BIN 00011111,BIN 001
.3,15 BEEP .6,-10 STOP 11111,1.3
6080 RETURN 9lOO DRTR "u",0,BIN 01000000,BIN
6000 REM ifisuuccionei [Link] 0110O000,BIN 11110
80S0 BORDER 4 PAPER 6 INK 1 000,BIN 11110000,BIN 11110000,61
6100 LET a«-" ESTE ES UN PROGR i: lllOOúOO
fitlfi PARR ÜU-GAR RL RJEDREZ ENTR 9118 DATA i",BIN 00000111,BIN 0
E DOS JUGADO-RES. [Link] [Link] 0000011
Lfl JUGADA R RERL 1,&IN 00OOO111,BIN OC001111,BIN
IZAR SE ESCO-GE EN DOS PASOS, EN 000111111,0
EL PRIMERO, MEDIANTE DOS RSTERI 9120 DAT fi "O",SIN 11000000,BIN 1
SCOS MOVILES (TECLAS 5,6,7 Y 8), 1000000,BIN 11000000,BIN 1110O0O
SE ELIGE Lfl FICHA R MOVER; UNfl <? SIN 11100000,BIN 11110000,BIN
VEZ RERLIZflDOESTO, V PULSRDfl Lfl
TECLR 'SPRCE PARA FIJAR LR POSI 11111000,0
9130 DATA "a" ,0 , 1,3,3,1,1,3,1
CION, VOLVE- MOS R RERLIZRR LR M 9140 DATA "£",0,8IN 10000000,BIN
ISMR OPERA- CION PRRR SELECCION [Link] 11000000,BIN 10000
RR Lfl CRSILLR FINRL DE Lfl FICHfl O0O,8IN 10O0OOO0,BIN 11O00000,BI
MOVIDA. TU SPECTRUM SE E N 10000000
NCARGflRA DE MOVER, COHER, DETEC 9150 DflTfl "d" , 1,1,3,3,3,BIN 0000
TflR MOVIMIEN-TOS ERRONEOS, ASI C 0111,SIN 00011111,0
OMO EL FINAL DE LA PRRTIDR. 9160 DflTfl "f",BIN 1000O0O0,BIN 1
flDELRNTE Y OUE [Link] 11000000,BIN 11O0000
GANE EL MEJOR SUERTE" [Link] 111OO0O0,BIN 11111000,BIN
6110 CLS FOR i s i TO LEN a< PR 11111000,0
INT a t l i ) , 9170 DflTR -g",0,0,0,0,0.0.1,3
8120 IF af<i)<>" '• TMEN 8EEP .03 9180 DflTR "h" ,0,0,O,[Link] 10
, RND +10 BEEP . 03 ,30 +RND 4 20 000000.8IN 11000000
6130 NEXT i : RETURN 9190 DflTR " j " . 3, 1,1,1,3.7,7,0
9000 REM caracteres 9200 ORTfl "[Link] 11000000,BIN 1
9010 FOR i = l TO 20 OOOOOOO,BIN 10000000,BIN 100OOO0
9020 READ P* 0,BIN 11000000,BIN [Link]
9030 FOR j=5 TO 7 1110O00O.0
9040 REflD d 9210 DflTfl "L" ,O, 1,2,4,2,1,1,15
9050 POKc USR P»+j,d 3220 DATA "»",0,BIN 1000000-BIN
9060 NEXT j O10000O0,BIN 001OOOO0,BIN 010000
9070 NEXT i __ [Link] 10000000,BIN [Link]
9080 DATA "q",BIN 00000000,BIN O 11110000
[Link] 00111111,BIN 0011111 9250 DATA "n",0,BIN 00001010,5,7
1,BIN 00111111,BIN [Link] ,3 1 1,15
[Link] 00111111,"t",0,BIN 9260 DATA "C",0,BIN 01010000,BIN
11001100,BIN 11111100,BIN l i l i l í 1O1O0000.8IN 11100000,BIN 11001
00,BIN 11111100,BIN 11001ICO,BIN 010,BIN 1OO00100,BIN [Link]
11001100,BIN 11111100,"e" ,BIN 0 N 11110000
0111111,BIN 00111111,BIN 0011111 9270 RETURN
[Link] [Link] [Link]

MICROHOBBY NUMEROS A TRASADOS


Queremos poner en conocimiento de nuestros lectores que para
conseguir números atrasados de MICROHOBBY SEMANAL, no tienen
más que escribirnos indicándonos en sus cartas el número
deseado y la forma de pago elegida de entre las tres modalidades
que explicamos a continuación.
Una vez tramitado esto, recibirá en su casa el número solicitado por el
precio de 95 ptas., cada número, más 25 ptas. por gastos de envío.

H M I M K M I C R M I C R O MICRO! M K R O H »
MPl 95PTAS 95PTAS."
LA'/Ji'J

FORMAS DE PAGO
• Enviando talón bancario nominativo a Hobby Press, S.A.
al apartado de Correos 232 de Alcobendas. Madrid.
• Mediante Giro Postal, indicando número y fecha del mismo.
• Con Tarjeta de Crédito (VISA o MASTER CHARGE), haciendo constar
su número y fecha de caducidad.
EL JUEGO PARTICIPATIVO MAS DE TRES MILLONES AHORA TODAVIA MAS EMOCION
MAS VENDIDO DEL MERCADO DE PESETAS EN SUPER-REGALOS Por el hecho de enviar la tarjeta que
El éxito ha sido rotundo, esto lo Te diremos que una de cada tres acompaña a la cinta del
demuestran las más de 5.000 cintas cassettes ya contienen premio directo: Un, Dos, Tres...,ésta ya te da derecho a
vendidas. Y es que no se trata de un viajes, moto-vespas, sintetizadores, participar en la "Carrera" del Chollo.
juego de software vulgar y comente. microordenadores (Spectrum, QL) y un Si la cifra de tu cassette coincide, de
Ahora puedes ver que tu Spectrum te sinfín de obsequios de primera. izquierda a derecha, con los números
ofrece en casa el concurso más Pero además también tendrás la que obtengan en la baraja los
famoso de televisión, en el que pueden oportunidad de participar en "La gran concursantes en televisión, podrás
intervenir tres parejas. Verás que es Final" y conseguir tu Chollo. conseguir:
igual de apasionante que el concurso Un Ordenador QL y
original y por supuesto casi con un Monitor a color PHILIPS o
idénticos premios. Te aseguramos Una Moto-Vespa
desde ahora, que tus fines de semana Si sólo fueran tres las cifras que
serán de auténtica emoción. coincidieran,de derecha a izquierda
te llevarías:
Un Spectrum y un Sintetizador
CURRAH o Una Vespino.

• • I
SI ENVIAS ESTE CUPON, RECIBIRAS UN REGALO SORPRESA
Deseo recibir gratis el Boletín del Club, con información de periféricos, soffware y libros a precios muy especiales. \
D I
Calle Provincia j
\ Edad Profesión J
Participa
con tu Spectrum
en la gran final
del 22 de Junio.
iiY llévate tu gran chollo!!
Patrocinadores
del concurso:
investronica

CECOMSA

M O T O VESPA
REVISTA

La cinta del Un, Dos, Tres..., te garantiza


tu diversión, pero por si fuera poco BELLTON®
te proporciona regalos tan estupendos
como los del concurso de la tele.

MANDANOS ESTOS DATOS A:


.APARTADO 2 1 0 1 4 - 2 8 0 8 0 MADRID.

Deberás enviar 50 pts., en sellos de correos, para gastos de envío de dicha información y tu regalo Sorpresa.
PROGRAMAS PR0GRRMR5 PROGR

Las aventuras del hombre araña

Hulk. Se ha conseguido, al
SPIDERMAN igual que en éste, dotar a
Ouestprobe los gráficos de un gran
48 K
atractivo a cambio de
sacrificar la amplitud del
Tipo de juego: Aventuras
lexto, lo que por otro lado,
Inglés facilita la comunicación con
la máquina, sobre todo, para
aquellos que no dominamos THE L'IZRRD
con demasiada soltura el
idioma inglés Esle
Exits MORTH
*********************
vocabulario comprimido y de OUCH!
carácter generalizado, TELL ME UHftT TO DO E
O.K.
abarca gran extensión de TELL ME UHfiT TO DO S
posibilidades pero siempre O. K
TELL ME UHRT TO DO
dentro de un reducido
campo léxico, al que
rápidamente podremos pequeño comic demostrativo al final de éste, vienen
acostumbrarnos. en el que se nos introduce, explicados con todo detalle
Las instrucciones inglesas de forma amena, en la los comandos que se
vienen acompañadas de un historia que vamos a vivir, y pueden utilizar y las
características de cada uno
Recien comercializado de los personajes
en Inglaterra, ha Tenemos amigos, como
llegado hasta nuestras Madame Web que es una
manos la última creación, Médium Profesional, y
nacida de la estrecha
colaboración entre Marvel
Comics y Scoth Adams.
Continuando con la saga I dm iri a w a i t i n g rocwn Uisxble ítems
que comenzara con el
Eleuator s h a f t C a l i button. I ** in * ómíc* «fita»
increíble Hulk (La Masa), •CIO 6*W N«tt«r *->3
llega ahora hasta nosotros E x i t s WEST EAU> Ofit
Spiderman. dando vida, O.K. Oh. «
cibernética en este caso, al TELL ME UHflT TO DO : E --•ÍCLL I * W«T W t*' ' I'
O, K ITLL NR I H I I IO WJ I
conocido personaje del TELL ME UHFIT 1"0 DO ? OPEN DOOR
0.1 I ey.®rt my Spider stre-ngth»
cómic. -TELL ME UHñT TO DO r •
'r j
m

I mm •
m
Ím(» "ir til i it*-i
Crib ú r i
t m t » ItfcT
- - p l t l L t» '0 II'

Uit. Mt u » i ro tu •

muchos enemigos: Electro,


Sandman, Mysterio.
i M i n a s*all office. Visible Ringmaster Doctor Octopus
Lizard y Hidro-Man, además
HVt'ROMnH ñquíirium de, como en todos los
Exits WEST juegos de este tipo, el
El juego está dentro de la »**•«*»»•*••••*«••«•*»••»»**•••*••******** misterioso Examinador Jefe.
misma línea del famoso ? _ Í : T E ; L L me j o oo • S PfO^faf^a sigue una serie
personaje y lodo lo que se O. K _ de situaciones lógicas por
refiere al programa, en 0~KTELL ^ WHñT T 0 ? ese motivo es necesario que
cuanto a técnica se tel.l me u h h t T 3 DO • nos planteemos una
entiende, es muy parecido a estrategia a seguir, y que

14 MICROHOBBY
MRS PROGRAMAS PROGRAMAS PROGRRMRS

analicemos cuidadosamente juego de un carisma


cada una de las situaciones diferente, conservando,
antes de tomar ninguna además, unos buenos
decisión gráficos.

MflDflME WEB
E x i t s SOUTH una moto de gran cilindrada,
0 K
sobre unos automóviles de
gran envergadura.
m
TELL ME UHñT TO DO ? N
O.K. Al principio de la prueba
— TELL ME UHñT TO DO ? H
1 can t qo FHfiT d i r e c t i o n . podemos optar por dos
TELL ME UHfiT TO DO • • fórmulas distintas: pulsar
enter. con lo cual la moto
Valoración. La aventura Originalidad * * *
se situará en el lugar de
está en la linea del Hulk. Gráficos comienzo de la prueba, o
pero en esta ocasión, el bien dirigirnos nosotros
Desarrollo * * *
pasar la prueba de la moto,
personaje es. quizá, mucho mismos allí, con lo cual
Valoración * * * ya que hay que tener en
más atractivo, lo que dota al podremos tomar mayor cuenta bastantes factores,
carrerilla que nos permita como la velocidad, la
efectuar un salto más carrerilla tomada
Un deporte peligroso grande. anteriormente y. sobre todo,
la posición del motorista, ya
que podemos modificarla a
JUMP CHALLENGE nuestro antojo, poniendo al
Martech motorista totalmente vertical
48 K en la moto, o inclinado en el
manillar. De esta última
Tipo de juego: Arcade
forma, ganaremos en
Inglés velocidad, mientras que en
la primera podremos elevar
íCflR 1 S B A- C ep la posición de ¡a moto. Pero
PEM» S'PEEP I ciudado con los «caballitos»
C A P S ••C O ® ! pueden resultar peligrosos.
Valoración. Es un juego
bastante bueno, en el que
los gráficos han sido muy
unas motos saltaban sobre En el panel de mandos se cuidados, Todos los scroll de
una fila de automóviles, nos informa sobre la pantalla están muy bien
pasando de una rampa a velocidad que llevamos, el confeccionados y el
otra. Pues eso. exactamene número de revoluciones, el movimiento en líneas
esa es Jump Challenge. número de prueba y los generales es bastante
Al principio tenemos una obstáculos que vamos a bueno. Un programa muy
bicicleta, que hemos de tener que saltar, los cuales bueno de competición que
moflee h dirigir hacia una rampa, con irán aumentando a medida nos mantendrá largas horas
el fin de conseguir saltar que logremos pasarlos, frente al ordenador.
Muchos de nosotros una hilera de barriles siendo por tanto, cada vez
habremos asistido en dispuestos uno al lado de más difícil la prueba. El Originalidad * * *

alguna ocasión, o por lo otro. Si lo conseguimos, inconveniente está en que Gráficos * * *


menos lo habremos visto en pasaremos a una nueva sólo podemos tener un fallo, * * * *
televisión, esos arriesgados fase en la cual, esta vez. y la verdad sea dicha, Movimiento
* * * *
espectáculos en los que realizaremos el salto con resulta muy complicado Valoración

MICROHOBBY 15
expoociq,
i
i

La Feria del Tiempo Libre íSS 9a EDICION

PISCINAS • CARAVANAS-CAMPING • AUTOMOCION • MOTOCICLISMO • ULTRALIGEROS • NAUTICA • DEPORTES •


FOTOGRAFIA • VIDEO • IMAGEN-C(NE • MUSICA • ALTA FIDELIDAD • COLECCIONISMO • VIAJES Y VACACIONES •
JUEGOS Y PASATIEMPOS • MODELISMO • LIBROS

m
-Recinto Ferial • Casa de Campo - Madrid-
(FEMA
TO m
TT
® a« w
- VI . O) tr> w r-

I
O) : V c D « I TO a>
s w OO c «i u:
®
v o <1) i 2 ® « _¡3> ort T3 •o
o <a T3 0)Q. a> o a o C
u
0c a
5
u U C 2 O
o
H u <0
•i > •o 1 « " 0) '3 «
* c¥ E? o ®
>
U v m ® x>
i-
<U H

0
C0
CL
>- o T) Cf » 2 TO c
_l O ií. c c a. H iv - Z O <fí 2 « E o O •O c2 ®£ d
J
I o
: Z
z O 3
O :
a.
* * * * m
x o
in» :
«c -®
u c-
z
o
M
o3 n
•• •• o;
CT 2
$ T 3 O
1 o "o >2 2
—¡
2
3
O

<L
> O 1
rao" i
u
: W a .«o
í* n *<* ZO* + - K)®
* *
o d * o ®z
* *

sh
IDO
* ce * a
*
:
* O * Oll-H
-
+ M * 4IZZH D
t> u
: ® : ®: ®
* Ift *
» tu *
«t
I—'h-
*i O * Ji-HlLl LtJ Z (- II : a
<ro o ** <IDr ** * c t a-a-i
* ljUhlA
ntf uto "®® ** a a Dd Ds a««® «o®
-O» *o«tnru »
Q. •*
r »* ®--a-
® sa o) ** < r * Z: <080.01 ®-IU
|-®0>
Ota > tu I I I I lll r l * M ®n >n S S 8 rt * a o **
• » » rf « ott^ou n I ?
ox ¿o^o^o c •• * ibzhi:
Uh : Oo * * * * * H
*
O<
* *
I-
Z\Hz M Zl-ZhZHO
WHH •••«i* *)S>z«i- T M H Z O
5 Q.H QH D a a n - o x a r b z onn)(- C TO 2r C TO a) o
HH o_ o_ o
aaik. [Link] ZFFMÍE a z o m OÍD z ag'voiü a h « o _)
Z(X<-U- ILOO
IM Sí
™ 2 O C O3 U «= E c o.
adjoM m w w oct míl «a [Link].C oa H„«oacot£ M tL"HZW o O E o _
m Z Z Z M) O U Z = C 5 O* 2
OLWA® sin®® « o® ®w®S«S®
C
IflOu® OlüOllllAlüS® ® ® ®r®hj® 2 •
O TO ai O®
oHucii nx*x*x»io COflN <0BQiQ<~ rtin i0i.N«0<-cno nnn-oh^iin w
_ 4
'
C8 V)—
Q) ' O5 ^TO + 9a •c Tí
ojoi i oí wh ojj-oii-oia) 0)01 -(« oioironw nn ««icnoaioin I/) 10 «10 WhW < TO
RFPLULHQH RT H HR* Hrl H; i-inrin" HH RL HWRI: RT RT
cai _o
2 TO
i s Jfi
« o i t t 1
TO E
TO Ki t = X ÍO X ™ QJ E E 2

<1) O « Xw 13 _J
3
£ 8 g o;
2 u3 o
Í 5 — F
O 3* •o £ 3
<ü O® _j £TOm OTO CO
x
B
sos H U I- tr E G O
u _l lü S » -
5

hhh; J ® -i TO O8-co S 5 c 5 a2 ® »
N CL O
< </> « S S A I o-O)
5 nj S2
z OOO: 01 rf z TO o > < D (0
»—
-! «— « ® o w -o •o GO T3 J3 -o 0)
N h r
• * * OOO»
OOO*
X x K
* o * * ri * * * * +
OTO ¿ <b c V)
: H f>
* aa * *
* *

* H * a IIM ZZZQ
X:
iu o ***• * ttl
:
H « Q. O
TD Oa ^? I
*
* irt * a * -i (I) * * : J N
* * * * * *

* a * z * u IÜUIIUZ X
*

* o *

<D a»
a •rir« .„ * O * x Z :y *
*
z
|L| *
*
TO E UJ •O
* O *
* D
H
*
4> a t-X
CL UJ -
X Z Z * Ct * > tu o *
* a »
z *
* o * XJ TO
— > V> TO W
*
*
O
\
* O * _l> SÉ: : : - lü u * <r * 71 r z + o * * a * 2 ** 2
* rt * a * Z H /MI: * x r * a * HH a * h- -ttJ * I m S © 2 "2 «
o O c
*
*
a
3
<f
*
r *
* 01 ..)- H v v a II ® t-+ ® *
# 1 *
o * h1
axrt rt ® it ** a UJ **• I- ® *
+ J
< r ** w 2. <2 « c
°
« <1)
» O saco M: : : «8(1dxoi cu* * o * O CT « cO) o <u 0) TO 2
+• ** «i a *
n «ti u II «rH • o oí * * l-X" tii o + * o. « 3 < G ?

*
hxo ffli5 o '¡5 i_- '5
Zrt I- Z xx * ii O •***•» * Z X no * * * * * Z h 5 ®C
TO
£ O mi- r H|- r <5 o O) Á O O ¡ T3
u UCtdU«LU-lt.k.(-0 auiu. IhOU aujouj 0)
C < u '« oc < oc 2
a J ( L Ü . J H H H H O auiL ILOÜJ CL-ll-lh HUOCC ajoa ® "Cl®> CC 33 LU O 0 2 o í
j (0 m
© ssssossnus ®®®H®Q®
O 0 . J H HOtr i/)®® I ® s® ios®® 03 — m — ¡D < < o ! Ü 0) CL>TO S
®<H0J -i»® Si-iOJ® C 05 ( 1 1 1 E 3
ra
z*® HOtO+^in® o <o N1 !£)
Í J I e
I
<n hhh»
TO - -

®s® II ®o®<-< CO O) 5 -2
• rlH HHHrt TO y 2 X «T TO"
3'o.
-I ID
n «-< <U 3 o Q. o>

4) o Ci SS c 0) o ra
s . TO co' z 5
® O)
!r =
> c flj
5 5 OT1«
c
cr -TO g s ffl c
ra E t< TO
c 82 CJ> 0)
• ^
•O -O ^ a o RJ ai E
JL
•2 o TO oc® + TO +
•o O c •t c•o 4) «í TO i 2 ccu o> 9-
c 1 •o "O c CT
•O c3 5 COr o aj C)l o. o •o « ® C
-TOO yTO Q. «w < c o < g e T3 OI
o —ra 2
cr 3 o o •2 3 3
£ tña> TO ^o> «o» I! 5 II < £» O o
« « ¡5 cCT3 ¿i cW CTCCO o It <
a 0) OTO_ ® CL
2 c O) « e X) E
cc
8 3 3 ra 9Í, JLüI OC t j X- a 0) iS c3 CJ ul x
O C0 - ÚT J O . "O § '•£ Lu _l CL CL
§ O ra
ao 6TO TOC
O J 0) l i l i 2 * 2 •o a l i l i

_ ÍÑT & ¿>TO C •O 5 O ó) T— TO


ra w c
®
>--TO T®3+ C 3 ij
f +
0 " "O —^
3O) «® o 3 o S g-
« SS
— TO
O
0
o O TO Z TO
1
a TO | c c ®
o ® CO ®
" >

I I o TO> CO 2 IT) «3
2 O ® w
O) ® * ^ s 9 •o ® E O 6 •O ®
•o z k-T w o ®• 3 T3 "C.
® 3*
s |
•o »«2 sT) i l
'•£ "o c Ik - < ^ 2> 2 a <D
TO 2 « í
a> jc
®c — -TO
0 %9 •o ra J5 z ra TED —
c
r'
co S
E C"- C. o. £
s« n
® ra o "O 2 c c 2
®
10 Í II Í II 1o) crs O 3 o« •o en CL o o
2 SS o t- o t- -o 'c3 cf o ®
¿ o OE OE
2 o C r- w a)
>

io
Q. z z 3 wO a o o
^ 3 ® TJ 1 3 c® CT
Z
< O)
=
E X t¡J X UJ iS -O 3 CL . 0) . CO
E h I " ÍS 5 o k_ T5 ®
c <u
LU
x _i a _i O O
TOüo ® 3 C/5 SS 5 O •Sg "D
P l~
o 3)
LU UJ TO "2
«
® T TO N
-

I I o o> TO 3 UJ c/J
- TO

3 C
o
d>
^ ® c ® é cij
- T3 CO "O c® ó
•TcO c-TO2"¡Sa. 111 I
2 >. J» TO v>
c, c2 ®w .1
«o) o
c
3 Si«; 2
u
?
®o 2 x o ra Q
p -g TO C
CO V)
®
TO o
o cd .t: 0 o o' " ÍM * o
^ O Í >

o o o
« Í
S2 § c cr ®c c 2i *« ? „
1
3 s ¡n 8 f s II co a 0 f c s - r-
®
o •o 5 o TO
•TO
o '
«
C 3g o.
•O
•§ ® X® o
I! O o o c »
co 3 w •o
>.
TO
o
T3 •T_O os <sN
§ü
3 o ®I I® C U k. a z «> a> — 3 ® í
O
" «

TO £•O o 3 o 2 E l¡j X UJ X 01 RA 5 2 C ^
c T E !> ®® _J CL X Ü O « ® ra" CO
o o I 3 oS ® «i ¡ir J 2 2 o §® Í D
3 3 — CV)
o
•o 3 CT u n e® l i l i oírao) o
> To3f í3 S!W en
C <S/ o A o2
3 <D <5 ¡3
QJ C
•o ra ~ o o» J2 ra - ü
o o 2 == a. z¡ I % « g »—i
to
c 2 CL O)
o * c
C $
'O _ 0)c T- - O -ra 3 a? fc
1 § 2 w Z ^O C O) c o O
•O
£ O o CL
«
ra "2 z W 2 w CT QJ -C •ra

O g)
— ra

( 0 II CQ II -ra 3 « ra u
V)
2 ra CL O H o I- O Q) £
QJ O
° ? O. 2 2
£O E x tü 5 UJ lC QJ
z o o> Q. J Q . J LU °ífí CT c £
<D
co co =
s O) ülT O Q.
c M i l NI O
•ra
9
1
W <1) *Oy. vm —
0 9 9
a c c c
V
• *NOOOí
^

c
1 >• »r>
V0 * C l- Ío -> © H •
N *••
ra « •• c- -I &H
.• — •o • •
ra

i
ES..
ra 3 « • -• zv -cvt
ra o> .5 ® o• a » « O* H
O E -0<t
r 2 E ra u aq * o V •*
zC *• o
«O ow - 3 ¡ o^ wtf -©OvaCl
* C >.QO **
O <o -« =5
a
nj
f= o «- -OI >:»0 O O"„.* «O
) * • ' f l *

c £ -2 c
s Q> 5
a So S " a| It tiw"tiO cK3 zOK
O) 05 zt ja A UÍ*. UA«o
ra
» ra o «mOUI H(
J 4 M :a J»H* ojaco
ra
°-ra UJ E C Y » 1 -Sí
w S g, B * »• > D O h

£ .a? é «

CNI
II (Ni
o ~
c
m
o
CL

a « OIIÜ O "OÍS z o «Ol- T


M
m —'

oA II «Ú ü "X UJ "Z "za V m


tu z -«a > n
—i
z
w o - UJ® : £ o H : V » : - H r w
«-( (P A>a zMrt
* : .í^l -1
ri
-1 H :
: <»
MOC^®
flH
«ir ^a A o
li VQV vO v * vo v-a A 41 * Ifi * !f> +
: O - —O <lt «o
JJ^Jit- A
* wai 1 O A > * *
h- » A T>~ -o»" h : lü a
* z *
o *
A*
vS «a '.O ONOO A o a hct
* + * * *
<B o
*
H *
O O ONClh-

4<
A
* *
o o nZ «O Ü z: Z I (S z: Zh O
H
* o **
A a na * a i* d
* *

z : lü a Ha
Z: Z(J

z a •X z V» a "<r z
*
» o
*
0>(n® <J "S
*
O
«
Xi ld~
£ Z " h _ »-t>
w M I* O -DO ** H **t
*

ÜJ-: o k.
•M Xrt: ® lIr<SJl«i _ _ w_ _ r rlQ '•Z o * ftl I-O»
D - cirtHH
ítocr» un
V HH * M **
*
(_W®
* —'

C : -®<- K : = OC tN T® H": : V IS *
»«ÚN«D8 D a *
*

: HHJL *»CIN<JNT<Í) «HCINA ^ * *


a
<-
: « II QNHHa: ú'-z- í T>"Z: ^ M :— -t-(V W UJ * Hl-H : «O m * u *
: 11 ^j : w: ; u «a " 0> : : "«KTIIZ «-<: : ii vfln II fcj«-t * * I I CAÁ OH 3
ff »0 M *j0 v ««-o * - Z m *
(_ »Z O + * * ** «ioa *
H
ig —: w — «iiaHD V :— «•ot-OK 3 — —
* * #

D HH HMM a D >Ü3
a H Í S « 0 CL H- : D. K ® a !- : • Z
aa aaa H^Huiir
HX
z U-ZIUUJ
zM IL1UU. : CSOZILIUU. « O H O Z Ü-IUTT. « Ü » ( U O Z ILIUIL H O » - O U J
H J H IIO OmhjHaZZÜH HJM '••[Link] M HJHAZFL..(3O; CLÜ aaa
AZ„ mh *<r • a '•o SO O® oo® ® * Í S (r- 8 8
0110® «<r«®®(vu>®£ aso aiins-o »o® Qwruin® » v
O
i» ( l O i f - í a c r ^ r - r - o — : »)-cri ® •ntu® •Hft CJ-Í mk£>r^ 00 -(Tt i-i®
rt HRTRF —: .RLRIHHH D HRLIFTRCLH OC T) ^ oí «ifucu a -"Hfuri no oo uno
HÜIHHRT •HtllHrt^a: <HH , ^ QH aHH

ü o I- o
o M J (D(_ rt• K " h •• n
o 10
®
-I oia i a I H+ IHI *O
z z H OH> H HX Kx h
m o U) tu o t-Z "> zM ZM O Z *
x u
« t- r WO no O
z h oa ua a aa aII oca
m o oa a
o
a *«i o 41* 31 x X Z
CL N

til
* * * **
0 O M a «1 zz-1 Z zW*O Ü Z </) LÜ m
* * * * *

* O m tii <0 tii


* *
O
*
® ^ U II 4114141 * * « O 1» tüui o u x a Xa JO X m
*
*
* H * o a *
* *
••1 41 1- I» h *
«i a + 0 *
^A m w® H t-h h t- I- H £ :
ti<
r í a x
* a ** tz «i K O «i 41 z 1»
*
* « *
J i* O ** x UJ: ID *
a i* H He 4 1 ttJ
*
+ o * u a tii 4 * H Jtt) ••i 0
*
O » 4 1 M til
*
«U t-

M *
H tii a * 0 tii - : >a a : *i
nc cu®
H ** X til lOH®: Si
: «UJ *
•0-1 i :n :n S
• *

+ o ** X tii a tii H * OhZ : UO OO n ® ** a D ** O0I H * H o **


r
M »
*
m * M oí CQ * li 3C
oa:^ mZz I- : » ® O
o® Oc
1- :> 41
r l r t g II n
n ii(fiW(* ~
H
wOiO® 3 * U
* a * ^ * 01 * ra «i i f»- O h K
*
víinn
*
S -*r>>HZ too®: y- *41 0 4 1 *
*

t t- O
*
* *
* D * O * HS- IU ii: : CIO " hLO UJ *
41 sa H I ®a 41 X 4 1 ¥<<nIUU • r **
a « j£»|| Ii «SJ «0 * a •
*
UIOL 01
O * r * a * o «i
* . UJ - ÜJ U L
1*
*
• C II c i' c 41 : s¿: Sí y. <D m
o til 4. * aaDZZ ®Z X I D M X « ) H X I O H ZODO i
*

Cl- C|- Gfc


s
u * * * * «i z-f» • • o n j k i o « O Z " S Z . . ® Z
*
(0MMX10H
* • *

41
* • »
Z|- z - Z H
* * * »

r
a
a r «z<- H y- éí. «O SH
H D «X ai-ixaii IxaHxr <n«-l irtrt
O U. O ü_ o U- X
o iü MO oauj oa uoauu
oa<n [Link]: aO-IIÜ üjwou-k. o u.
kj «a a [Link].a ziLiza jjommamH a C w n i l H a o a H u - o o o u j Ü
a D HJHSHH(]Joai9UK
^ : so®o® ®s®oo
o 3«0® O o o Hoooa
3H0® 3110® soso®
® 10 OO» v> <0 r-O
n i SO® oOcO oQoSdU®l® 0h®lrH
0 ai oí S O S O S 7(0®
oí«ni O^IOlONirt «0 «n o> O <yi Hoimioo 1
oiíioior- «dOKii oowoooooo
0101010101 OO0IaO a o ao ( n o n o s
*

h « HuHH'tH HrfOlOIOI
ao te
j
É * f "8 ¡s
<0 4
a

I
&Í5 Ss
> -ñ ° ra ©
^i , £ o TJ
o
O C© ©
£ o a. > "O k.
O
w 'o ® o <D .O
I.
'C -r O) t c "o
"5 o ü ® 5 o — ra

* * * * *
*
"O Q-XJ T3 © 00
m
* ;
*
*
* aao *m
* a • OC
* a ** »-
<0 *m H(h
* o
** C
«i CK CZ a

z HD
£rn XI- ra
oot UIÜ © ü r w 8
IlCl za •a © .52£ ©o
OS o® <- cE B
C ©<11g f s
Hftl n* 8 |
«10 tDtO o -O o o « g © 9ra
1 . s

S
ra o (0 © „ — «
3 "O O ¡g ©
-O y ^ ™ "O P >
cr 2 o "C <ü «
•ra S > > o- -o©« -o
© 2"
"O
(9 S Ss
O 01 ra
th »il <'
• xl> E
<AOiAO: <Q
o CLoa* O)
o
G. Q, : "O
I- H
KttJt-lUxT
UJ-IUI-Jrt - © tfj
_l -J O" © © a .rae© ¿ o c - j ra - 1 ra
z Zao g g-g S á « T3 © n3 '5" s 5 = á i s "O • X © T 3 - O C > c -oraT? 1- u
E ra cr oí T 3 ra O 5
«3 8 ' É d
zuztu —' " «c
~~ =
W -Q m «O
« ^r -
© ® o « S_ ra 2
UJlwX >«
0

i S I « > Q. 5 © ® © « = I es © .§ g f 5 © ra „ 3 c ra c — — o .= . ra
ihxi-*> © 2 5 5 ó - 5 Cj Í2 _ 353in v¡ a.
o TD w © © <JU 3 — C U
C7" c ~ s
H h o | lS'l-2 ü
S Q 0.O
HOrtOl f
"O 3 <fl * ^ ^ ral i? | 5 © « © & •D O
c
O O" © w _ 3 8 Í « cr c m
XXJlXIH • "O 3r ° ^ - I' « ra © ra "o « <¿ .£ -t: ra —S jr
W -E CE ra5
_ a a> "" Z ®
"U O c 3 £
2 c © o o
o.r "aGr ) C —
13
iflVlMtA M CZ « ü ¡Sf g © — — 3 2¡S a o = j2j
OOcOI-C a s i I S E C S ffl •tí « ñ j C0 • = © ©©o z — ra c xa
aaaaz bD o , o 15 o
2 © o i2 o 5 E ra 5 3 o a) 3 ra "w oj 3
«í xhl
© § ra - S?
CE O) TD © O.
"O
O 00 ==
©v
cc O O) "O c o CO s ™ «O X3 </io. ra "a í/5
Ü-lLLLU-CtO UOllLl
[Link]. ZtOC
SOSOS®sos
CM
CSJ
^OlO-tiniO M ) B
tflHW^IHrtH
ininOTirttf) HHH CM (M
t<M CM en co

d) oE ra © ra
« ra ^ 2 ü •o "5
3
>
"D © c ra
2o
3 "O ra c
i ü (0 3
O
Á '5) 03 8
T©3 ra
"O «O a i5 I_
h •o C
•O © ra o
vi i in I I E ra
c ra a r-M
© <r>
*o 3t s o :5
•ra co 3 ra
v>
01
O -c
TíC cu •D ©c
"O 3 "©
Oc o M •o-
ra ra « ii ii
® ra © E E /I a . o£ o S c _J 14.
»
© ©o £- V) 3o " lO 3 Q.
= c ra o_ 1 * ra n O
Q. E
© c .2 if) ©
£ g ÜT O 3 -o O a- o " "a
•ra ^
ra
' 5 8-5 o "ra

V
OI
K
CMCM
(A CM
0 lo
u K.
O

©
-ra
ra
ra
=>

>
L.' •o
© ©2 rt
'o
ffl tf
.— © T
5 © 53
(w •
I o
c 0 a
i a U)
'ra

E
©
V)
ÜT
> 1
(0 <Ü t^
y) .J.
o
o
cuz yz ei fzl ae * o <r> Q> "O
23 cO) ra •tr
0
ut X *• I -r-
C 3 »t-
* O-
I- H
O + +
N ¡5 2 « e»
o>- o>- o
> >c ^ra Es 0> —
o [ 9O- -"O^O"
j» -O-OP
• * •s
0 0 O)
IT> LO
C\J
- é l 8»
^ O . O 01 o 5. 4 • » a •íf co N o 0) £
« - c" OI * : « en ra
•o
«4 «fl «OCOC 1 O
CC 2 £
O
I Z ^ " 1 ra <" -
8
0 tí
cc
«I ( * •>•>«] a "s
_ _ ' O cr yco
un
0) ' - - - • • o o o—o - - -
CO -d ° '55 ra
Z ( / ) Z s
0
* O O e».
- I o •• o : — >> «-W4 0 co 0
o o •O z x * - - O•* 1 ra a c

ra • o O * —••:>:> 3 » ) « c : £ - - ii - - U
W CO 11 CO II i(B- i— A
I *• <É|>L:
><tOZC C A C C «ff I-a #
e "o
M :2 ra
1 ®
u
111 ^ * OvV ZdZil* •o
í H J ¡ h x "-[Link]í 5 : h O-Z 2 C
g> » — o 1 o ®
w > 2
o- o° 1 I § § ac t i t r uj
:

« ro a
a ^ Q . - j c l _i a & =
| E ti 5 ÍI¡ o. ra jjjhmqm * Ja
o n Co — o
E l g ra a> ra
M i l
5
O ra « a ra
T3 C O J J *« •o o
I I I !

c
•o "
0)
c
O
CO
ra co ra
3 ra
-2
« ég 3
C Q. c- a
ra
o ra ® O cr t : w •2 — x ra
c
§
ai
=
«
Q.
«i
ra
« ra 3 ra
8 o 3
E c ra co cr
ra ra £
! « Oí
<D ? a * • M . a m a; w
o § - c co u
. ® C
FFL Q. * * l-l
a t».
: 5 : z « í>« >
ra q> ra — c O ra 8 o
v. B"C O-
0) w
x> ra ra ra t c o oo
ra = c
•> o• oc
•a ® « : - fe
cj • u •o -o D
c .£ ra 3
ra ra :& o ra >
s
x> o 3 T3 »-M « •
oí « C .2 « I : s • : « -1 na £ e SESS
^ gu ra o
'o
ra -®o -S2 lOCt 4>
ra c 2 _ ra S ra 3 6 KM*H«
tE£££S=e W
ra ra ¿ ® M a» = ® Í -
c « S
N
5 5 - 2 -ra ... oa uza^ac
a i a - M. 3 5 - ® g-8 o
= "5 05
c « ~
<D C ra J5 « 5 . "D ü o n«t"oe> o» ÍO >9 ' « g - c «a- Sí
S g a C Ul 3 S ra
ra W O j 8 = 8 8o rajara
"s <0 a . ® a i O « -3 T3
> o cr

— O o có 2 c o « ra c
ra ra T5 o> >> S o SsS uj ;*
E '3 '3 ra •o ra «a
0
Z ^ ra c > • 0
„ 2 U i ra cr ra ¡O
3
« í2>» S 3 C» 0<J V

> co UJ O ra
3 CO : OO - -h 3
? E 'r
fe | # o> C
•ra
2 3 2- ra • a • -o;>. - 0
I o 3 S •c CJ ra c
• aa *•
c w O c +
ra n ra cc 0 v>ra
ra j 1 ; 00- f CZCO^
í f : •
ti
x C
ra
= 8 ?
ra
u *—• o i « E *
* O
Ó
• **•.•••• a • » • » •
*
- (— II
II 2 _
« = c
,c
O
0 c
ra • 0 ra
w
ra
E S
•3 "
3
ra • B
• a t »
•• 1ÍÍ5-W-» t «[ HO
m
ra o
ó
£
w ro co « cv
í 5 0 : 1 ^ -t—• co ra
c ra -00*
X h- I - N
•f.
^C l -»0"
—' 3 c °SO =c3 ® J b
* * * * *
33 o » Z
cc •o o r a v(-f- : M
o
£ "O „ - E » 2 c Z(L HUUI. >-U(I a: 0
ra C ir m ra ra co § ^ 2 ra ra M X U J H 4 J L a 0>45
3 &
UJ
a. t « ® 5
w O
ra ra s •o o 0 5QCQ13S OO 0*0 0-0
5 1 ra w «
<0 . c ra c co 3- o n s :flM
3
I I I ra «2 JJ
T3 o CL E T3 ra ra o a ra

— ra

ra ra ra y ra ra c
:— ra £ S-
o
ra
«ra
= 2 «i ra o e a —• CL
£ra * " - ¡ 2
«
-a c ra x
S» W kl ' _a 2 <D
J J C «
« 5 <1 « ra o - w
•o lS. ra
10 ra
* X £
2 Z 7 Ojl* 2
U w >íí|-: 2 O z
* o Omí- O •--3 ra 2 §
o f- 1
E
- f f * •

or.
s i "o " ra
• «O- •» ra c o 2 2 _
? OHOOI-». ra - o o c "o
° «o v • +r>t
CC
c r a
c i. O K
a aoo f-
._ o ^ « O) ® r2 g
"O - 2 T3— wv fe I
«®C
Tí C es S Í ?
«o2 »*Z
~
ra 3
c
v*—
C 3
o
«
ra u. 2 CC —
c -2
3 Qj
C
¡¡•-IÍ.©«. UUOtt »¡ft • a UJ
c ra ra g - a 5>
Eco
m
PmC«OJJIO za
e,
e» >
'O c • *
j o •o o ui — 3
o oí o
•o c
ra
.c o tfí 2

2 *c>* n x C 3 g
ra ra co ¿
rac CM A
X ra
ra ra CO 3
c £ 2 «
c1 E
e ca CL
T3 V < ra
ra
« rT «
~
3 2
—a o
2>
2 ra E
4) •O
*B
2 ra co I ra°
CÜ v >
S C
j 2 ra
W
p
O I ( M CM
S S ^
c V 3
e •o •ora < aí fii a . ® -ra
o
c i/i ii < co .
. CD :
^ W
O (/) •ra
c
t o co
00 co
c c
5 ^ ~ao . ra C ra
O) —
ra
-
ra E
L_ Z£ < Ul
2
cc co ra
UJ ce LL X O cc oc cc
ra J ü. i h LL o, a a.
UJ
i¡T UJ co O
o I I I I « 1

» (O 0) <fí mE
•ra o
.¿
ra w ra
"i "Oo c tl.1 c O o
ra ra ra
E e « c E ¡2
g 00 ra CL g ra 2! -*—• — CO "2
§ ra o
o ©
«
c
1 § £ jS
o
•c ra 3 o
01
ra CO O) ra
c ra 3
o O ra
o 'C •o o
ra a 0
ro
co
0
— T3 S o ^ , -o ^T3 O "O
.S! ra ra o) «5 o ^ •S ®
ro -o ®« § O & e co c
V
«ra CL
ra ^ « = 3 2 -o > ra ra T3 (o cr o c c TJ
ra
CT w
3
•o •s:
o ra 2 Q. "2
S c 0 o ra ®
ra ^ o « O
03
"O
m • S 2 X) s 2 « W
ra ® 8 & 5 0 ra 2
ra 'C cc
co
1 0 O)
3 ^ra
« ra ro co
( A 53
w xrai 5 'i
^ TJ
o
S «
c ro
® o
e
« 5 B o.
ra CL ""o C c C O cS có
3r- o
S E ra
c
* i t ra cCJ ra
u
m
•o <o ra « 3
CL C
CO 3 1 ra raS-s ® >= "S* M ra ra
ra ^ 2 ^ 0
•ra
ra </> ® I 3 o .2 «
ra c ra = o £ S
c ra
3 "D
ra
3
a.
0
•C
ra
T3 ra 3

o
c
£ S5 < 2 2
•fo CO
c •ss g. E
v-
c
ra ^
vi ^ P ra ^ ¿
ra
3 3
ra
Q. CD
55 £
ra B ¿ -g g
w ra O J3 3 o c í ra o E
c C 3 a . UJ U
ra ra E»
•ra ra
ra £ w ra 7ü
ra c cr - 3 <D a E O" "
.2
I O .i;
S E c CO 'co ra
C0 ra
73C7
3
3 ra
» Si
ra co ra o í S ra o
. 2 -C 3
•o x-o
-65 £ c - £ COP ra 2 o ra ra
® S í a CO ra lO- ' O)P ai l t t
o ra o71 . 5 3 .b: c
V) 13 c « 0 5
X Q. fc
Z O < — í lS y £ 2 — ra y :
a
U l «® •ra t : o ^ ra e E | UJ
^o •c• ra c ra ra 3 5 ^ :2 ra ra 3 ra S. 0) o ra ra S t c 9
Q. = s
ra -ra
c co ra 1 I c o. ^ ¿ o 'o ü "O o c O co o o ra I
"o y
PRkMIOS

«HOBBY SUERTE
¡EMANÉl^M

Nuevamente, exponemos a continuación las bases para participar en nuestro concurso HOBBY
SUERTE, con el que se podrá ganar hasta sesenta premios semanales de la manera más
divertida y fácil.
Para conseguirlo, utiliza la cinta que incluía MICROHOBBY en el número 15 y disponte a seguir las
instrucciones que ahora te facilitamos.

Cómo íonwrsar 1. El único justificante para reclamar mió de este concurso, caduca el día
un premio determinado, es la po- 30 de junio de 1986.
Con la cinta HOBBY SUER- sesión del cupón con el número im-
TE (que también puedes con- preso en él. PREMIOS SEMANALES
seguir escribiendo a HOBBY 2. Todos los números susceptibles de
PRESS, S.A. Apartado núme- dar premio están registrados ante - PRIMERA CATEGORIA: Un Spec-
ro 54.062, de Madrid, inclu- notario. trum 48 K (o un Microdrive y un In-
yendo en el sobre 180 ptas. en
tres sellos de correos de 60
ptas. cada uno) podrís cargar
el programa, saliendo, a con-
tinuación, en la pantalla de tu
Spectrum, la máquina «traga-
perras» conocida por todos.
Pulsando la tecla ENTER.
empezarán a paipadear los nú-
meros situados en la parte su-
perior de la máquina. Con los
mandos Z y X. podrás ir situán-
dolos en la línea azul de la pan-
talla, hacia la izquierda o ha-
cia la derecha, hasta describir
la cifra correspondiente a tu
cupón una vez fijada tras pul-
sar SPACE. Ya tienes tu núme-
ro tecleado y, en ese momen-
to. las frutas de la máquina ini-
ciarán su parpadeo hasta apa-
recer en pantalla el resultado
de la suerte.
HOBBY PRESS. S.A. no se hace terface 1. a elegir por el interesado).
responsable de ningún otro cupón SEGUNDA CATEGORIA: Una im-
Otras que no corresponda a los números presora GP 50 de SEIKOSHA, es-
adoraciones previamente registrados. Tampoco
se atenderán reclamaciones verba-
pecialmente diseñada para Spec-
trum (dos premios).
Como también especifica- les que no vengan acompañadas TERCERA CATEGORIA: Un Joys-
mos en el cupón, puede darse por la posesión del cupón con el tíck con su interface (tres premios).
la casualidad, al introducir número premiado. CUARTA CATEGORIA: Una sus-
aleatoriamente en el programa cripción a MICROHOBBY Semanal
4. Cualquier lector puede solicitar de
una serie de números, que sal- por un año (cincuenta números. Si
esta editorial la comprobación de
ga premio. Otra posibilidad de el lector premiado ya es suscriptor,
la entrada d e los p r e m i o s
acceder a él, podría ser la de podrá optar por prolongar su sus-
semanales.
«alterar» el programa para que cripción anual o un premio de quin-
un número determinado apa- 5. HOBBY PRESS, S.A. se reserva el ta categoría). (Catorce premios).
rezca como premiado. Por to- derecho a resolver, según su crite- QUINTA CATEGORIA: Una cinta
do ello, enumeramos, a conti- rio, cualquier cuestión no prevista de programa, a elegir entre un va-
nuación, una serie de aspectos en las bases de este concurso. riado surtido de juegos, utilidades,
que es interesante conocer: 6. La reclamación de cualquier pre- etcétera.
ANALISIS
V
ALIEN 8
Domingo GOMEZ y Gabriel
Ultimate/ERBE
NIETO
• Spectrum 48 K • Videoaventura • 2.800 Ptas.

Ha llegado a España Alien 8 , la última creación del


Ultímate. Continúa, de este modo, un estilo que había
empezado con Knight Lore, y que ahora, en Alien,
alcanza su más alto grado de perfección.
La primera vez que ve uno este juego, partes nunca fueron buenas. Aunque
irremediablemente se acuerda de otro, tampoco deberíamos decir esto, ya que
Knight Lore. La estructura del programa Alien 8, es además, una historia dife-
es muy similar a la de éste; sin embargo, rente.
lo que por un lado podría considerarse En esta ocasión, el personaje central
c o m o una repetición, resulta por otro, del juego es un robot, encargado de con-
una mejora cncomiable tanto de técnica trolar una nave espacial, que ha sido lan-
c o m o de imaginación, lo que nos garan- zada al espacio. Esta, contiene en su in-
tiza en cierto modo, que este juego es in- terior todos los archivos, bibliotecas y co-
cluso mejor que el otro, d e j a n d o mal nocimientos de una raza, que al ver en
aquella famosa frase de que segundas peligro su supervivencia, decide iniciar el

22 MICROHOBBY
éxodo hacia otro planeta. Para lograr el tas se encuentran rodeadas por peligro- lo es mucho más fácil dirigir a nuestro
objetivo, todos los h u m a n o s tienen que sas minas), con tan sólo manejar los con- personaje cibernético, sino que además,
ser cyrogenados en cámaras que les per- troles que están distribuidos por la nave. podemos utilizar los objetos que hay re-
mitan sobrevivir durante los largos años Otra de nuestras misiones, es mante- partidos por las diferentes pantallas con
que va a durar el viaje. ner las válvulas termóleas en sus posicio- una mayor libertad.
«Cibot», el robot encargado de con- nes correctas, lo cual va a ser muy im- Los gráficos son tan buenos c o m o los
trolar todas las funciones de la nave, se portante a lo largo del juego. del Knight Lore, y la sensación de tridi-
pone en marcha, y comienza a realizar Hay 128 pantallas distribuidas en for- mensionalidad es casi perfecta. La téc-
su peligrosa misión: mantener activadas ma de nave, 24 de las cuales contienen nica de Filmation ha sido también utili-
las cámaras donde se encuentran los tri- los dispositivos necesarios para que pro- zada con una notable maestría por los
pulantes. cedamos a su reactivación, colocando en creadores de Alien 8, para los que este
La nave tiene gran cantidad de habi- ellos las válvulas adecuadas que nos se- tipo de programación no tiene ya ningún
taciones y corredores, que a veces pue- rán indicadas en cada momento. secreto.
den resultar muy peligrosos. Existe tam- Durante el desarrollo del juego encon- Resumiendo, podríamos decir que mu-
bién, el riesgo de invasiones alienígenas, traremos multitud de cosas: escaleras, chos de los que vean este programa, pue-
si viajamos a velocidades inferiores a la balcones, pasillos con alienígenas, puer- de que piensen que es una repetición del
de la luz. tas escondidas, monstruos mecánicos, y anterior; sin embargo, es necesario tener
Los robodroides son unos mecanismos un largo etcétera. en cuenta que c u a n d o se ha alcanzado
cibernéticos que podemos utilizar c o m o Valoración.— Reúne todas las técnicas la perfección, es muy difícil superarla. Al
ayuda en algunos momentos de apuro de Knight Lore, y ha conseguido supe- menos en esta ocasión se ha igualado, e
(por ejemplo, c u a n d o tengamos necesi- rar la perfección de éstas. El movimien- incluso en algunos aspectos superado, lo
dad de entrar en habitaciones cuyas puer- to, por ejemplo, ha sido mejorado, no só- que desde luego no es poco.

f » ii
A
f¿ - 4 M
VEFIPSÉ

MICROHOBBY 23
'ANALISIS

MAPA
DEL
ALIEN 8

24 MICROHOBBY
s SALIDAS POSIBLES

O VALVULAS TERMOLEAS

MINAS EXPLOSIVAS

o COSMONAUTA CBIOGENI2ADO

• HUEVOS OE ALIENIGENA

&> MONSTRUO

H ROBOT TELEDIRIGIDO

p RATON MECANICO

FUERZA ENERGETICA
• •f

O OBJETOS MOVILES
PROGRAMAS DE LECTORES

EL HELICOPTERO
Andrés SECO HERNANDEZ
Spectrum 48 K Premiado con 1 5 . 0 0 0 pts.

La destrucción del enemigo, cualquiera que sea, es la


misión que nos ha sido encomendada en esta ocasión
como conductores de un flamante helicóptero.
El juego consiste en destruir todos los tar a 10 ó más enemigos en menos de 240
vehículos posibles y evitar que los antiaé- movimientos, p u n t u a n d o en la tabla de
reos que aparecerán a los lados de la pan- records, los tres que más puntos obten-
talla, acaben con nosotros. gan.
Otro dato a tener en cuenta es que al Hay una bonificación de 1 helicópte-
disparar una bala hemos de esperar a que ro y 6 balas una vez obtenidos los 40 pri-
llegue abajo antes de repetir el disparo. meros puntos y en los 70.
Contamos con 20 balas, 5 helicópte- Los mandos para su manejo son:
ros y 240 movimientos variables, que se —«X»... derecha
pueden modificar cambiando los DATAS — « Z » „ . izquierda
de la línea 101 y la sentencia IF...THEN —SPACE... fuego.
de la línea 230. Nuestro objetivo será ma-

NOTAS GRAFICAS
161 I F X>24 THEN LET X-24
A B C Q E F 6 H I J K L M N 0 P 162 I F HM = 0 T H E N L E T X B = X + 1
165 P R I N T AT Y , X I , " ",AT YB.
XB1, PAPER 5 , INK 0 , A T Y,X,"
",AT [Link],"t"
Q R 1 7 0 I F I N K £ Y « = " " AND MM=0 T H E N
A 1 P R I N T AT Y B . X B , " " : B E E P .01,-
5 L E T Y B BYB + 1 P R I N T AT Y B , X B , "
I" L E T HM = 1
1 7 5 I F HM p 1 T H E N L E T Y B = Y B + 1 P
R I N T AT Y B - 1 . X 8 . " " BEEP .02,50
1 8 0 P R I N T AT 1 7 , 5 , Z * C Z ) BEEP .
03,20
1 8 5 I F Y B = 1 6 T H E N P R I N T AT 16,X
2 REH m m «BOMBARDEO * # • » » * * • B, F L A S H 1, 1 LET MM=0 LET YB
© A N D R E S SECO H E R N A N D E Z €> =4 BEEP . 7 , - 5 GO S U B 5 0 0 0
5 GO SUB 9 0 0 0 RESTORE GO T 1 9 0 LET RND1=RND LET RND2=RND
0 100 RANDOHIZE LET RND3=AND LET R
10 PAPER S BORDER 1 INK O 8 ND4IPND
RIGHT 1 CLS FOR A > 1 8 TO 1 9 F 2 0 0 I F r n « í l > r n d 2 + . 7 THEN PLOT 3
O R _ B = C TO 3 1 P R I N T INK 1 . A T A . 6 2,72 C>RAU 8 0 . 8 0 BEEP . 2 . 0 PLO
; " • NEXT 6 NEXT A RANDOHIZE T 32,72 D R A U OUER 1 , 8 0 , 8 0 IF X
¿O FOR i = 1 5 TO 1 9 PRINT INK 1 = 1 4 OR X = 1 3 OR X = 1 2 OR X s 1 1 T H E N
, AT a , 0 , AT a , 2 ? . " • M É É É " LET H E L I B = H E L I B - 1 P R I N T AT 16.
NEXT i 2,HEL18 P R I N T AT Y . X , " * * " 8EE 10OO
3 0 FOR a = 0 TO 1 FOR b = 0 T O 3 1 P .3,RND*10 P R I N T AT Y 7 X 7 " 2 5 0 NEXT Z
P R I N T AT a , b . PAPER í , " " NEX , A T Y B , X B , " •• ' L E T X * 1 4 LET YB = 2 6 0 GO TO 1 4 5
T b NEXT a 4 L E T XB = 1 5 L E T MM=0 FOR R = 1 2 1 0 0 0 FOR S = 0 T O 1 0 0 NEXT S CLS
5 0 P R I N T AT 0 , 0 , PAPER 4 , " P U N T TO O STEP - 1 BEEP . 0 1 . R NEXT BORDER 0 PAPER 0 INK 7 BPI
0 5 " , AT 0 , 2 6 . ' B O U B A S " , A T 0 , 1 3 , " R E R P R I N T AT Y . X ; W " , AT Y B . X B , GHT 0 CLS P R I N T AT 1 1 , 1 1 . " • S E
C O R D " , PAPER 5 , A T 1 , 1 , OOOO",AT "T" GO T O 2 2 0 ACABO'" FOR S = 0 TO 6 0 0 NExT S
1 24. 0 0 0 0 ,AT 1 , 2 8 ; " 2 0 " PRINT £ 0 5 I F r r » d 2 > r n d 3 + . 7 THEN P l O T 3 1 0 0 5 I F S C O R E s O T H E N GO TO 3 0 0 0
AT 2 O . 0 , 2,72 DRAU 4 0 , 8 0 BEEP . 2 , 0 PLO 1010 CLS I F SCORE > U A L <x»i3>>
6 0 FOR B = 0 T O 1 5 PRINT INK 2, T 32,72 D R A U OUER 1 , 4 0 , 8 0 IF X THEN L E T G » « " TERCER
PAPER 6 . ' • • " , NEXT E s 9 OR X * 8 OR X • 7 OR X = 6 OR X = 1 0 1 0 2 0 I F SCORE>UAL < X * 1 2 > ) THEN L
6 5 P R I N T AT 2 1 . 0 • • ANDRES OR X = s OR X = 4 T H E N L E T HELIBiHEL £T G » =
2) LET
SEGUNDO
Rt(3)>R|(2)
LET X*i3)=.«$'
SECO H E R N A N D E Z IB-1 [Link] 16,2,HELIB PRINT
?0 PRINT P A P E P ^ T l N K 7 ,, A T AT V y , * B E £ p .3lRN[>»le. p 1 0 3 O I F SCORE > V A L ( X * < 1 > ) T H E N L
15, ET G í = " P R I M E R " LET X«(2)=X»il
0 . " H E L I . ' , AT 1 5 . 2 7 , ENEM." PAPÉ R I N T AT V , X , " , A T YB , X B , " "
R^S, INK O . A T 1 6 , 2 , " 5 " , A T Í6,29. L E T X = 14 LET YB = 4 L E T X8 = 1S ) L E T R« ( 2 ) =R$ <1)
LET MHíD FOR R = 1 2 TO O S T E P -1 1 0 3 5 I F SCORE <UAL ( X » ( 3 ) ) THEN G
7 5 P R I N T AT 3 , 1 4 , " , AT 4,1 BEEP . 0 1 , R NEXT R P R I N T AT Y , O TO 3 0 0 0
5, f , * T 1 7 , 5 , Z < ( l i , AT 1 4 , 2 , A *L'l "'0T YB,XB,"T" GO TO 220 1 0 4 0 P R I N T AT 5 , 2 , INUERSE 1 ES
, A T 14 2 8 , A , AT 1 3 , 3 , V , AT 1 3 2 1 0 I F r n d 3 > c n d 4 • . 7 THEN PLOT 2 C R I B E E L NOMBRE D E L " , G $ , A T 6,11,
* 28 . \ 55-32.72 DRAU - 8 0 , 8 0 BEEP .2,0 " C L A S I F I C A D O " , A T 7 , 7 , " S O L O 1 5 CA
3 0 GO TO 1 2 0 PLOT 2 5 5 - 3 2 , 7 2 D R A U OUER 1,-8 R A C T E RE 5 . " i INUERSE O
1 0 0 POKE 2 3 6 S 8 . 3 READ S C O R E . H E 0.80 I F X —14 OR X a l S OR X » 1 7 OR 1300 IF G»«" PRIMER THEN LET B
L I B , C ONUS. N I G H , F I R E , t i C topo DIM X = 16 THEN LET H E L I B = H E L I B - 1 PR si ' THEN LET
R * i 3 . 15 i DIM - « - 3 . 4 ) FOR A = 1 T I N T AT 1 8 , 2 , HEL I B P R I N T AT Y . X , 1310 IF G»*" SEGUNDO
0 3 READ R»<A> NEXT A FOR A = 1 "KM" BEEP . 3 , R N D » 1 0 P R I N T AT
TO 3 P E A O >'. 1 < A ) NE * T A 1320 IF G«=" TERCER ' THEN LET 6
o, 1 ,®» . £ ¿ 5 , O 0 . 2 0 . 0 , " Z X SPECT Y,x;"
4 L E T YB =4
",AT [Link]," "
L E T XB = 1 5
LET X = 1
L E T MM=0
=3
"UN . SPECTRUM' , " Z X SPECTRUM" 1 3 2 5 INPUT "NOHBRE LINE I*
FOR R « 1 2 T O 0 S T E P - 1 BEEP .O 1 3 2 6 I F L E N I * > 1 5 T M E N GO TO 1 3 2
. OO0O " . ' 0 0 0 0 ."0000 1.R NEXT R P R I N T AT Y . X , " «F- "
111 DIM ¿ $ . 2 2 , 2 2 ) LET Z»ll>«"* 5
,RT Y B . X B , " T " GO T O 2 2 0 1 3 2 7 LET R | I B ) * I S LET X » < B i « S T R
Í 1 3 FOR A = 2 TO 2 2 LET Z«iA)»Z« 2 1 5 I F r n d 4 > r n d 1 + . 7 THEN PLOT 2 * (SCORE)
< f i - 1 . 2 2 > . Z $ < A - 1 , TO 2 1 ) NEXT A 55-32,72 DRAU - 4 0 , 8 0 BEEP .2,0 1 3 S 0 GO TO 3 O 0 O
1 1 4 GO TO 1 0 PLOT 2 5 5 - 3 2 , 7 2 D R A U OUER 1,-4
0,8O I F X s 1 8 OR X n l 9 OR X « 2 0 OR
1 2 0 P R I N T AT 1 , 1 8 - L E N S T R » H I G H X = 2 1 OR X = 2 2 OR X = 2 3 OR X = 2 4 OR
,HIGM,AT 11,2, FLASH 1, INK 0,"Z X = 2 5 THEN LET H E L 1 8 a M E L 1 6 - 1 PR 3000 BORDER 6 PAPER 7 INK 0 C
-DERE. X - I Z O U . SPACE-FUEGO" BE I N T AT 1 6 , S , H E L I B P R I N T AT Y , X ,
EP . 7 , 5 0 FOR A = 0 T O 3 0 : B E E P .1 " I B " B E E P . 3 , RND-110 P R I N T AT
,-S NEXT A 8EEP . 7 , 5 0 PRINT A Y.X," ",AT YB,XB," " LET X « 1
T 11,2;" 4 LET YB = 4 LET XB»15 L E T MM=© NEXT b
";AT 11,14, F L A S H 1¡ INK 0;" FOR R = 1 2 TO O S T E P - 1 : BEEP .O
' Ufii" PAUSE 0 3 0 1 0 FOR A = 8 TO 3 1 P R I N T AT 3 , A
1 , R NEXT P R I N T AT Y , X ¡ " " ,"_",AT 5 , A , , A T 9,A,"_" NEXT
1 3 0 P R I N T AT 1 1 , 1 4 , " ": LET
X•14 L E T XB = 1 5 LET YB =4 LET V
,AT [Link], T": GO T O 2 2 0
2 2 0 I F H E L I B = 0 T H E N GO T O 1000
A
2 3 0 L E T 11 «IBPO = 1 1 e » i p O + 1 I F Ue
>3 LET HM=0 3 0 2 0 P R I N T AT 4 , 1 1 , INUERSE 1,"B
1 4 5 FOR Z = 2 2 T O 1 S T E P -1 i p o = 2 4 0 AND C 0 N U S < 1 0 T H E N P R I N T 3MBARDE0." FOR A = 1 TO 3 PRINT
1 5 0 LET X 1 = X : LET XBlsXB FLASH 1 , A T 1 1 , 9 , " T I E M P O ACABADO. flT 5 + A , 5 , R » ( f i ) . A T 5*P,24;X«(R)
1 6 0 LET X=X + ( I N K E Y « = " X " ) - < I N K E Y " FOR S = 0 T O 6 0 0 NEXT S GO TO NEXT A
Í="Z"> I F X<4 THEN LET X=4 3 0 3 0 P R I N T AT 1 5 , 1 0 , INUERSE 1,"
0TRA->(S/N) "
3 0 3 5 LET HIGH=UAL CX»(1))
3 0 4 0 LET A $ = INKEY C I F A » a " " THE
N GO T O 3 0 4 . 0
3 0 5 0 I F R » < > " S " THCN STOP
3 0 6 0 LET SCORE*© LET ti<«po-0
LET F I R E =20 LET H E L I B » 5 L E T CO
NUS*0 GO T O 1 0
5 0 0 0 I F SCREEN» 1 1 7 , X B ) O " " TME
N L E T SC ORE = SC ORE + S + I N T <RN[>*10I
LET C0NUS=C0NUS+1 P R I N T RT 1 ,
5 - L E N STR» SCORE,SCORE PRINT Rt
1 6 , 3 0 - L E N STR» CONUS;CONUS PRI
NT RT 1 7 . X B , F L R S H l , " f " L E T XB
aX + 1 BEEP - 1 , 3 5 PAUSE 3 PRINT
RT 16.5,"
I F S C O R E > 4 0 RND S C O R E < 5 5 T H E N
LET HEL15 = M E L I B * 1 LET FIRE=FIRE
•6 P R I N T RT 1 6 , 2 . M E L I B , R T 1,29;
"00",RT 1 , 3 1 - L E N STR t [Link]
S C 0 4 I F S C O R E i 7 0 RND S C O R E < 8 5 TM
EN L E T H E L I B = H E L I B + 1 LET F I R E
I R E P R I N T RT 1 6 , 2 , H E L I B , RT 1 ,
i® "00",RT 1 , 3 0 - L E N STR« FIRE,FI
RE
5 0 0 5 P P I N T RT 16,5,"
5 0 1 0 LET F I R E =FIRE - 1 P R I N T RT 1
, 2 - 3 , ' 0 0 " , RT 1 , 3 0 - L E N S T R * F I R E , F
IRE I F F I R E * 0 T H E N P R I N T RT 11,
S . ' L R S B O M B R S SE R C R B R R O N " GO T
O 1000
5 0 2 0 RETURN
9 0 0 0 RESTORE 9OO0 FOR R = 1 TO 1 8
RERD H | FOR 6 = 0 T O 7 RERD C
POKE USP R » + B , C NEXT B NEXT R
9 0 1 0 OATR "R",1,63,1,31.53,71,63
.25 B' ,128,252,128,129.255,192.
128,126 C",126.60.24,[Link]
4,O,"O",31 13.13.127,255.127,49,
%l • . " i 5 ' ¿ : : W I f t ¡ 133,113'. I I S : 3SS; I
4 , 24
9 0 2 0 DRTR G" , O , 1 6 , 1 6 , 1 2 3 , 2 5 1 , 1 2
7.43,48."H".0,0,16,16.56.254,48,
*S."1",O.32,38.¿8.110,25S,10¿,10
2 ., " ü " , 8. W5 J. 8I 5 , 1, ±7 f0\J, 1. i7 (0U, 6, U5 J. .3 5 . 1: A7 f0V. 1
, A7 /
O. "K" , 0 . 2 4 . 6 0 , 1 2 6 , 1 2 6 , 6 0 . 2 4 , 0 , "L
•.0,32,118,112,56.29.15,7
9 0 3 0 DRTfl "M",7.13,15,28.63,63,2
l.O,"N",126.192,224,[Link]
?.O,"O .0.4.14,14,28 . 184,¿40,224
P" .224 . 1 7 6 , 2 4 0 , 1 5 6 , 2 5 2 , 2 S 2 , 2 4 .
S. O .1,3,7,6,15,31,48.0,"R",153
90 , 6 0 . í 5 3 , 9 0 60 126 , 126
904O RETURN

EN 3 DIMENSIONES
Valentín GARCIA FERNANDEZ
Premiado con 1 5 . 0 0 0 ptas.

Spectrum 16 K

Este programa
representa en tres
dimensiones y en
cualquier tamaño que
entre en la pantalla,
frases y letras para
componer títulos a tu
antojo.
Representa también números y carac-
teres gráficos (también los definidos por
el usuario), así c o m o mayúsculas y mi-
núsculas, con lo que podrás realizar to-
do tipo de combinaciones para tus pro- C
gramas. £
Otro dato a tener en cuenta, es que las
PROGRAMAS DE LECTORES
medidas que el programa pide son en pi-
xcl de alta resolución.
Anímate y verás la utilidad de este pro-
CONVERSION DE UNIDAD
Antonio SORIANO GONZALEZ
grama que inserta todo tipo de explica-
ciones para su mayor aprovechamiento. Premiado con 15.000 Ptas.
Spectrum 48 K

h,b*yl+u DRAU O , - V I NEXT h Con este programa podrás hallar las equivalencias
3 LET x 3 . a * x l * x ; LET y3«b«yl+
y IF POINT ,b +1>+POINT
í =© T H E N P L O T x 3 , y 3 DRAu
<a-l,b
x l , y l
entre las distintas unidades en las que pueden medirse
a I F POINT < a , b - 1) • P O I N T
, b > - 0 THEN PLOT ' 3 + l , y 3 - y l

DRA
muchas magnitudes físicas.
U x 1 ,yl
5 I F POINT i t , b + 1) +POINT (a t i
, b ) < >1 T H E N P L O T * 3 + x l , v 3 DRAU Opera con tres cantidades (longitud, camente, aparecerán en pantalla las can-
X 1 ,y 1
6 I F POINT ( a , b * l l « 0 TMEN PLO área, volumen), por ejemplo, en longitu- tidades correspondientes en los cinco sis-
T x3+xl,y3+yl DRAU
7 IF POINT < a + l , b > = 0 TMEN PLO des opera con metros, kilómetros, pulga- temas restantes con los que actúa.
T x 3 * 2 * X 1 , y 3 +y1. DPAU 0 , ~ y l
8 RETURN das, pies, yardas y millas. Así pues, po- Para salvar el programa, teclear la ins-
9 PRINT AT £1,0. FLASH 1," Pl-
ise uní tecla para continuar •• demos elegir cualquiera de las seis opcio- trucción SAVE «CONVERSION» U N E
PAUSE 0 CLS
1 0 P R I N T AT 8 1 , 0 , " Q u i e r e ver i
as i s t r u c i o n e s ís/n>" IF INKEY» nes (por supuesto, se elegirá la unidad en 9910.
= " " T H E N GO T O 1 0
11 CLS I F I N K E Y » . " S " OR I N K E que se conoce la cantidad) y, automáti-
Y » = " S " T M E N GO T O 2 8
1 2 INPLTT " * • " , x , "Y • " , V ^
> 1 8 7 OR y í = 8 T H E N P R I N T 0Í,"8<Yí
157": PAUSE 1 0 0 GO TO 1 2
13 INPUT ' F r a s t INPUT "t 62137. P R I N T AT 6 . 1 3 , b 2 , A T 8,13,
i n i a ••; t INK t b1,AT 10,13,b3,AT 12,13,b4,AT 14
,13, b5,AT 16 , 13 . b 6
14. L E T x2 = INT ( ( 2 5 5 - x ) / (LEN f 1 2 9 0 GO SUB 9 4 0 0
»+9> ) 1 3 0 0 I F I N K E Y » s " 0 " T M E N GO T O 1 0
18 INPUT " H í x i » o " ; t x 2 > ; " flnth
o puntos 1 3 1 0 I F I N K E Y » = " 1 " T M E N GO TO 1 2
1 8 I F X 1 > X 2 T M E N GO T O 2 1
17 LET y 2 . I N T <<y-8>/8'
18 INPUT " H J K I I O " , < y 2 > , " a n o ílll
pun tos " ; y 1 14.00 CLS INK 3 P R I N T AT 0,0,"
1 9 I F y 1 > y 2 T M E N GO T O 2 1 C O N U E R S I O N DE P U L G A D A S
20 L E T y . y - y l * 7 5 REM
6 PEM _
21 PRINT hT 2 1 , 0 , í » 14 10 GO SUB 90O0
22 FOR a . O T O L E N f » « 8 7 GO T ü - 5 9 1
10 CLS INK 3 P R I N T AT 0,0, 14.20 INK 3 INPUT "Lon9 <n pulga
2 3 FOR b = 0 T O 7 C O N V E R S I O N OE U N I D A D E S — das. ",c 1
24 I F POINT < a , b > = l T H E N GO SU
INK 1,AT 4,1,"-MENU-" 14.30 INK 1 LET [Link]*.02S4 LET
B 2 NEXT b 2 0 INK 1 P R I N T AT 5,1,"- C3.C1f.O0OO3 LET C4=C1*,08333
25 ,AT 5,7 LET c S = C l * . 0 2 7 7 6 LET c6=Cl*.00
26 NEXT a GO T O 5 5 ,"+",AT 4 , 7 : " I " : FOR n = 6 T O 1 5 002 P R I N T AT 6 , 1 3 , C 2 , A T 8 , 1 3 , C3
2 7 REM presentación P R I N T AT n , 7 , " | NEXT n , AT 1 0 , 13, C l , A T 1 2 , 1 3 , C4,AT 14.1
2 9 PRPER 1 INK 9 CLS 3 , c S , A T 1 6 , 1 3 , C6
3 0 P R I N T AT 5 , 3 , " C o n e s t e pro?
30 INK 4
, 8 ; " 1 - LONGUITUDES.
BRIGHT 1 P R I N T AT 7
( 1 » " AT 10,6 14.40 GO SUB 9400 _
rama p o d r a " ; A T 8 , 3 , " c o m p o n e r tos , " 2 - ARERS <21 " , AT 13,8," 1450 IF INKEY»r"0" T H E N GO TO IO
títulos de";AT 11, 4 , " P r e s e n t a c I 1460 IF INKEY»="1" T H E N GO TO 14
on p a r a s u s " , a t 14,o, programa
3 - UOLUMENES...
40 FLASH 1 INK 3
13>": BRIGMT 0
P R I N T AT 1 8 00
s"", en* t r e s dinensione!' , 5 , " P U L S A UNA T E C L A < 1 - 4 ) . " FLA 14 7 0 GO TQ 1 4 5
31 PRINT B l , F L A S M 1 . - P U L S E UN 154.9 REM
A T E C L A PARA C O N T I N U A R "
SH 0
SO I F I N K £ Y $ = " 1 " T M E N GO T O 1 0 1550 CLS TÑK , P R I N T AT 0,O,
3 5 PAUSE 0 CL5 00 CONUERSION DE P I E S ••
33 PRINT
PER 4 , " X , Y " ,
8 R I G H T 1,
PAPER 1, B R I G H T 0
Pfi e
60 IF INKEY(a"2" THEN GO T O 20
1 5 6 0 GO S U B 9 O 0 0
>
; " son loas coordenadas I m J ' O0_ 1 5 7 0 INK 3 I N P U T "Lony en Pies:
3 4 P R I N T AT 3 , 6 , " d e l punto ext 70 IF INKEY»="3" TMEN GO TO 30 ", d i
re*o superior AT 5 , 6 , " i z q u i e r d o 00 ' 1580 INK 1 LET d 2 . d l t . 3 0 4 8 LET
del titulo" I N K E Y « s " 4 " T H E N GO T O 4 0 d3«di*.00030 LET d 4 = d l * 1 2 LET
35 PRINT AT 3,12, PAPER 0;"Eje 0 0 89 00 6I F0 TQ 50 d5=dl*.33333 LET d6=dl«.OO019
• PIO" 9 9 8 REM P R I N T AT 6 , 1 3 , d 2 , A T 8,13,d3,AT
36 PRINT AT 13,9, INK 7, " >", I 10,13,d*,AT 12,13,di,AT 14,13,d5
i- v
10O0 CLS INK 3 PftlNT flT í , . ,
— •1 0 , T i u l . i JLJ
tab r I I — C O N V E R S I O N DE L O N G U I T U D E S — ' ,AT 16.13,d6
1 5 9 0 GO S U 6 9 4 0 0
INK 1 P R I N T AT 6,4,"MetfOS...
1 8 , 9 . " X s -••O Yi67" . • < 1 ) " ; AT 3 , 4 , " K i l o t e 1 6 0 0 I F I N K E Y » . " O " T M E N GO TO 1 0
D P A U •10,0
37 P R I N T AT DRA
38 PLOT 7 5 , 6 7 t ros (2)",AT 10,4,"Pv 1 6 1 0 I F I N K E Y » . " 1 " T M E N GO TO 1 5
U 0,-40 líidas ( 3 > " , RT 12,4 50
39 PRINT U l , F L A S M 1 " P U L S E UN , "P| e S <4 > " , A T 1 6 2 0 GO « o b
A T E C L A PARA C O N T I N U A R 14,4, "Yardas . "
,AT 1 6 , 4 , " M i l t a s 1700 CLS INK 3 PPTÑTAT 0,0,"
3 , 1 , " L í S letras y
4 0 PAUSE O CLS CONUERSION DE Y A R D A S
4 1 P R I N T AT <6)", INK 3 , A T 2 0 , 7 , " P U L S A OPCIO
N (1-6» . "
5 , 1 , " e s t á n foraado
s 11» b o l o s gráficos'' 17 1 0 GO S U B 9 0 0 O
4 2 P R I N T AT 1010 IF I N K E Y | i " 1 " THEN GO TO 11
s por pun tos , el" 00 1720 INK 3
s "; e 1
INPUT " L o n y en yarda
4 3 P R I N T A T 7 , 1 , " p r 0 9 r a n a le p 1020 IF INKEYts"2" THEN GO TO 12
« d i r á e l ancho y" 50 1730 INK 1 LET e 2. e l * . 9 1 4 4 LET
4 4 P R I N T AT 9 , 0 , " e i a n o («n P 1030 IF INKEY$="3" TMEN GO T O 14 €3»€1*.00091 LET e 4 . e l * 3 6 LET
i*ei> de l o s nuevos
4 5 P R I N T A T 11 4 , " p u n t o s q u e i
90 eS.e1*3 LET e6.« 1*.00057:
T AT 6 , 1 3 , e 2 , AT 8 , 1 3 , e 3 , A T
PRIN
1040 IF INKEY t = " 4 " TMEN GO T O 15 10,13
os femaran" 50 ,e4.,AT 1 2 , 1 3 ; « 5 , A T 14 , 1 3 , e 1 , A T 1
4.6 P R I N T A T 1 3 , 1 2 , P A P E R 0; "Ej 1O50 IF INKEY»*"5" THEN GO T O 17
6.13,c 6
«»p 10"
4 7 P R I N T AT 15, 0 , " A n c h o : 1 " , " A n 00 1 7 4 0 GO S U B 9 4 0 0
1750 IF I N K E Y » = " 0 " T M E N GO TO 1 0
ChO=4" " A l l O » l " , •A 1TO = 3 " ' • p u n t o 1060 IF INKEY»."6 TMEN GO T O 18
1760 IF I N K E Y » . " 1 " TMEN GO TO 1 7
ñor ina I " 50
00
4 8 PLOT
,50,10
80,50 CIPCLE INK 2,80
1099 1770 50 TQ
1 8 4 9 REM
4 9 P R I N T AT 1S,27, CIRCLE 1850 CLS INk
1 1 Q g ""CONVERSION DE METROS - ' °'
INK 2 , 2 1 7 , 5 1 ÍO CONUERSION O
50 INPUT c""coniinuar ••••(••••• 1110 GO SUB 9OO0
repetir-,v» IF víi"r" OR v»«"R" 1 8 6 0 GO SUB 9 0 O 0
I N P U T "LOng en « i l l a
T H E N GO T O 2 6 1120 INK 3 INPUT "Long en netro
1670 INK 3
5 1 CLS INPUT " c o l o r BORDER < "l 1 3 0 ' I N K 1 LET a 2 * a l « . 0 0 1 : LET S ", f 1
0-7)",u BORDER u a3=a1*39.3701 LET a4=a1*3.28084 1680 INK 1 LET Í 2 = f 1 * 1 6 0 9 . 3 4 L
5 2 INPUT " c o l o r PAPER (0-7)",u LET a S x a l t l . 0 9 3 6 1 LET a6=al*. ET f 3 = f 1 * 1 . 6 0 9 3 4 LET f4..fl*6336
PAPER U 00062 P R I N T AT 6 , 1 3 ; a l , A T 8,13, 0 LET f 5 = í 1 * 5 2 8 0 LET f6=fl*176
5 3 CLS GO T O 1 1 a2,AT 10,13,a 3,AT 12,13,a4,AT 14 O P R I N T AT 6 , 1 3 , f 2 , A T 8 , 1 3 , f 3 , A
5 4 REM s a l i d a s de inagcn ,13,a5,AT 16,13.a6 T 10,13, f4,AT 12.13, f5,AT 14,13,
55 INPUT " t i t u l o conpleto (S/n 1 1 4 0 GO S U B 9 4 0 0 f6,AT i é , i d , Í 1
)",0« I F O » = " n " OR O » = " N " T M E N 1 1 5 0 I F I N K E Y » . 0 " T H E N GO TO 1 0 1 8 9 0 GO SUB 9 4 0 O
GO T O 1 2 1 1 6 0 I F I N K E Y » = " 1 " T H E N GO TO 1 1 1 9 0 0 I F I N K E Y « = " O " T M E N GO TO 1 0
5 6 P R I N T AT 21,O,"
INPUT " s a l i d a itapres. o
00 1 9 1 0 I F I N K E Y » - " 1 " T H E N GO TO 1 8
1170 GO T £ _ 50
caset ( i / Í ) " , C Í I F o $ = " i " OR o » 1 9 2 0 GO TQ_
. . . J.. T H E N COPY INPUT " d a s copi 1249 REM ,
1250 CLS INK 3 P R I N T AT 0 , < 1 9 9 6 REM _
as? <s/r>> o* I F o * = " s " OR o » = " 2 0 0 0 CLS INK 3 P R I N T AT 0,1,"
S " TMEN I N P U T " c u a n I a s " ; 1 1 FOR CONVERSION DE K I L O M E T R O S
C O N V E R S I O N DE A R E A S — — "
0 = 1 TO T I COPY NEXT O INK 1 P R I N T AT 6 , 4 , " M e t r o s CU
5 7 I F 0 » = " C " OR 0 » = " C " T M E N I N 1260 GO SUB 9000
1270 INK 3 INPUT "Long en (1io« adrados íl)"¿AT 8,4,"Areas.
PUT noai b r e . - i « a g e n " , o » SAVE o »S <2)",AT 10,4,"He
elros " ; b l
CREEN*
5 8 INPUT " q u i e r e continuar? ts 1280 INK 1 LET b 2 = b l « 1 0 0 0 LET clareas <3) AT 12,4
[Link] t39370. 1 LET b41b1»3280.84 ;"Kí loattros cuadrados. <4>",AT
zn)";o* I F o * = " S " OR o » » " S " T M E 14,4."Yarda< cuadradas..... <5)"
N GO TO 1 0 LET b5=bl* 1093.61 LET b6=bl*.
59 LET «.USR 0

28 MICROHOBBY
, A T 16 , 4 , " P e r e s .
<6>"; ÍNR 3 , R T 2 0 , 7 , " P U L S A OPCIO
N < l-6> . "
2 0 1 ® I F I N K E Y » = " 1 " T H E N GO T O 2 1
00
2020 IF INKEY»="2" TMEN GO T O £2
50
2030 IF INKEY»a"3" THEN GO T O 2*
00
2040 IF INKEY*="4" THEN GO T O 25

2050 IF INKEY » =" 5 " THEN GO T O 27
00
2 0 6 0 I F I N K E Y » « " 6 " T M E N GO T O 2 8
50
2 0 7 0 GO T Q 2 0 1 0
2 0 9 9 REM
2 1 0 0 CLS I N K 3 P R I N T AT 0,0,
^ C O N U E R S I O N OE M E T R O S C U A D R A D O S -
2 1 1 0 GO S U B 9 1 0 0
2 1 2 0 INK 3 INPUT " A r « a en netro
s cuad al
2 1 3 0 INK 1 LET a 2 - a l * . 0 1 LET a
3 =a 1* . 0 0 0 1 LET a4= a 1 * . 0 0 0 0 O 1 L
ET a s = a l t l . 1 9 5 9 9 LET a6=al*.0O0
25 P R I N T RT 6 , 1 8 , a l , A T 8,16,a2,
RT 1 0 . 1 8 ; 4 3 , R T 12,18,a4,AT 14.16
,a5,PT 16,18,»6
2 1 4 0 GO S U B 9 4 0 0
2150 IF I N K E Y » = "* O " TMEN GO T O 10
2160 IF I N K E Y " 1 " THEN GO T O 21
00
2170 G O TQ 2 1 5 0
2249 REH H i m - ü W ü K b t í S
2250 CLS I N K 3 P R I N T ftT 0 , 0 , "
C O N V E R S I O N OE A R E A S
2260 GO S U B 9100
8270 INK 3 INPUT "fleca en «reas
", t> 1
2280 INK 1 LET b 2 = b l « 1 0 0 LET b
3 =b1«.01 LET b4 = b 1 * . 0 0 0 1 LET b
S=bl+119.599 LET b6=bl*.02471
P R I N T RT 6 , 1 8 , b 2 , A T 8 , 1 8 , b l , A T 1
0 , 1 8 . b 3 ,AT 1 2 , 1 8 , b 4 , A T 14,18,b5,
AT 16,lé,b6
2 2 9 0 GO S U B 9 4 0 0
2 3 0 0 I F I N K E Y » = " 0 " T H E N GO T O 1 0
2310 IF I N K E Y T H E N GO T O 2 2 ,. i * # ^ V í OS 9,dS,AT
3 5 9 0 GO
16 , 1 9 , d 6
SUB 9 4 0 0
50 [Link] imperiales... 3600 IF INKEY » = " 0 " THEN GO T O 10
2 3 2 0 GO T O 2 3 0 0
rt¿6 3 ' O T 20 PULSA OPCI 3610 IF INKEY»*-1" THEN GO T O 35
2 3 9 9 REM 50
lili
JN'.'EPS-IOII HECTAPE 1 1I -F6 1 I.N K E Y » = " 1 "
2 4 0 0 CLS INK 3 PRINT A "To ON
301" THEN GO T O 31
— C O N U E R S I O N DE H E C T A R E A S 00 I F I N K E Y » = '" 2 " TMEN
302 GO T O 32
2 4 1 0 GO S U B 9100 50 I F INKEY»»' •3" — CONUERSION DE PIES CUBICOS
2420 INK 3 INPUT Arta en secta 303 TMEN GO T O 34
00 I F I N K E Y » = " 4 " T H E N GO T O 3 5 3 7 I O GO S U B 9 2 0 0
£4*0 INK'i LET C 2 » C 1 * 1 0 0 0 0 LET 304 3720 INK 3 I N P U T "UO l e n P i t S C
C3 =C1 • 1 0 0 LET c 4 = c l * . 0 1 LET c 50 I F I N K E Y » » " S " T H E N GO T O 3 7 ubi eos ", e1
S K I • 11959 . 9 LET C6=C1*2.47105 305 3730 INK 1 LET e 2 s C l t . 0 2 8 3 2 LE
P R I N T AT 6 , 1 8 , C 2 , A T 8,16,C3,AT 00 I F I N K E Y » = " 6 " T H E N GO T O 3 8 T « 3 =e 1 + 2 8 . 3 1 6 LET e4=el+7.4804
10,18. Cl,AT 12,18, C4,AT 14.18.C5 50 8 LET e 5 = e l t l 7 2 S LET e6=el+6.2
, A T 1 6 , 1 8 , C6 3 0 7 0 GO T O 3 0 1 0 2883 P R I N T AT 6 , 1 9 , e 2 , A T 8,19,e
2 4 4 0 GO S U B 9 4 0 0 3 0 9 9 REM 3,AT [Link] 12,19,e 5,AT 14,
2 4 5 0 I F I N K E Y » = " O " T H E N GO T O 1 0 J3 1
I 0VV I^-
0 CU¿> . THI WÍ R N I N T RT 0 1 0 » 19.«[Link] 16,19.£6
2 4 6 0 I F I N K E Y « = " 1 " T H E N GO T O 2 4
00 JER
- C O N U E R S I O N DE M E T R O S C U B I C O S - 3 7 4 0 GO S U B 9 4 0 0
3750 IF I N K E Y » s " O " T H E N GO T O 1 0
2 4 7 0 GO T O 2 4 5 0 3 1 1 0 GO S U B 9 2 0 0 3 7 6 0 I F I N K E Y « = " 1 " T H E N GO T O 3 7
2 5 4 9 REM 3120 INK 3 INPUT " u o l en « c t r o i 00
2 5 5 0 CLS INK 3 P R I N T AT O.0, cúbicos " ; a l 3 7 7 0 GO TQ J 7 5 0
C O N U E R S I O N DE K I L O M E T R O S C U A D " 3 1 3 0 INK 1 LET a 2 = a l * 1 0 0 0 LET
2 5 6 0 GO S U B 9 1 0 0 33s*lt264.171 LET a4«41•&1023.7 lis! 0(#í „
2 5 7 0 INK 3 INPUT " A r e a en kilo» LET a 5 = a l # 3 5 . 3 l 4 7 : LET a6*a1*2 CONUERSION DE ACRES
tiros cuad " , d 1 19.978 P R I N T AT 6 , 1 9 , a l , A T 8,19
2 5 8 0 INK 1 LET d 2 = d 1 *1O0O0O0 L , a 2 , A T 1 0 , 1 9 , a 3 , AT 1 2 , 1 9 , 4 4 , A T 1 3860 GO S U B 92O0
ET d 3 t d 1 * 1 0 0 0 0 LET d4 =d1 * 100 L 4 , 19, a5,AT 16,19,a6 3870 INK 3 INPUT "Uol «n acres
ET d S = d 1 * 1 1 9 5 9 9 0 LET d6=dl#247. 3 1 4 0 GO S U B 9 4 0 0
105 P R I N T AT 6 , 1 8 , d 2 . A T 8,18,d3 3 1 5 0 I F I N K E Y * = " 0 " T M E N GO T O 1 0 3 8 0 0 INK 1 LET f S s f l * . 0 0 4 5 5 LE
.AT 1 0 , 1 8 ; d 4 , A T 1 2 , 1 8 , d i , A T 14,1 3 1 6 0 I F I N K E Y » = " 1 " T M E N GO T O 3 1 T i3=f1+4.54596 LET r4efl+l,2O0
8,d5,AT 16 . 1 8 , d 6
2 S 9 0 GO S U B 9 4 0 0
00 95
.16054
LET f5=fl»277.42 LET
P R I N T AT 6 . 1 9 . Í 2 . A T
f6=ri+
8,19
3170 GO T£ Í[Link] 10.19,f4.,AT 12.19;f5,AT 1
2 6 0 0 I F I N K E Y » = " 0 " T H E N GO T O 1 0 3249 REM
2 6 1 0 I F I N K E Y » = " 1 " T H E N GO T O 2 5 4 . 1 9 , f 6 . AT 16 , 1 9 , 11
50 3250 CLS INK 3
CONUERSION
P R I N T AT
DE L I T R O S
0 , 0 , "
— —
3 8 9 0 GO SUB 9 4 0 0
2620 GO T O ¿600 3 9 0 0 I F I N K E Y t = " 0 " T H E N GO T O 1 0
3 2 6 0 GO S U B 9 2 0 O 3 9 1 0 I F I N K C Y » = " 1 " T H E N GO T O 3 8
27O0 CLS INK 3 P P I N T AT
CONUERSION D E ' Y A R D A S CURDADAS
0.0."
"
3 2 7 0 INK 3 INPUT " U O l en l i t r o s 50
" , bl 3920 GO T O 3 9 0 Í
2 7 1 0 GO S U B 9 1 0 0 3 2 8 0 INK 1 LET b 2 = b l * . 0 0 1 LET 6993 REM __
2 7 2 0 INK 3 INPUT " A r e a en yarda b3«bl*.026418 LET b4•b1*61.025S 9000 INt- 1 P P I N T AT 6 , 1 , ' M e i r o s
s cuad " , e i LET b 5 = b l » . 0 3 5 3 2 LET b6*bl*.2 • . AT 8 , 1 , " K 1 l o » e l r o s . ",AT
2730 INK 1 LET C 2 = e l * . 0 8 3 6 1 3 L 1998 P R I N T AT 6 . 1 9 , b 2 , A T 8,19,b 1 0 , l . " P u i j a d a s . . . ".AT 12,i,"PI
ET e 3 » c 1 * . O 0 8 3 6 LET £4=el*.00O0 [Link] 10,19,b3,AT 12,19.b4,AT 14. es ,RT 1 4 . 1 , " Y a r d a s
4 LET e 5 = e 1 • . 0 0 0 0 0 0 8 3 6 1 3 LET e 19.b5,AT 16,19.b6 " , RT 1 6 , 1 , " M i l i a s ": RETUR
6 - e l * . 00021 P R I N T RT 6,18,e2,AT 3 2 9 0 GO S U B 9 4 0 O N
8.18,[Link] ÍO,18 [Link] 12,[Link] 3300 I F I N K E Y » = " 0 " T M E N GO T O 1 0 9 0 9 6 REM
.AT 1 4 . 1 8 , 6 l . A T 16.18,e6 3 3 1 0 I F I N K E Y ® = " 1 " T M E N GO T O 3 2 9 1 0 0 INK 1 P R I t i T ÑT 6 , 1 , " M e t r o s
2 7 4 0 GO S U B 9 4 0 0 50 cuad " , AT 8 , 1 , " A r e a s
2 7 5 0 I F I N K E Y Í » " 0 " T H E N GO T O 1 0 3 3 2 0 GO T O 3 3 0 0 ••, A T 1 0 , i , " H e c t a r e a s
2 7 6 0 I F I N K E Y $ = " 1 " T H E N GO T O 2 7 3 3 9 9 REM . ",AT 12,1,"Kitone tros cuad. ",
00 3 4 0 0 CI^S INK 3 P R I N T AT 0 . 0 , " AT 1 4 , 1 ; " Y a r d a s cuad ",AT i

1121 SÍMPWWBWr 0.0.


— C O N U E R S I O N DE G A L O N E S U . S . — 6 . 1 . "R c r c ; _ . • . . . , . _ . _ . • • RETURN
9198 REM GgtgjgBÉBSS
3 4 1 0 GO S U B 9 2 0 0 9200 INK 1 P P I N T AT 6 , 0 , ' M t t r o »
3 4 2 0 INK 3 INPUT " u o l en gaiont c ú b i c o s . . . . ".AT 8 , 0 , " L i t r o s . . .
- — CONUERSION DE ACRES • ",AT 10,0,'GaiOn U.S..
s u.S. " ; c i
3 4 3 0 INK 1 LET c 2 » d t . 0 0 3 7 9 LE ",AT 12,0,"Pulgadas cubi
22 86 76 00 GO
I N K S3
UB I9N1P0U0T "Area «n acre» T C3=C1+3.78532 LET e4=cl+231.© cas.. ",AT l4,0;"Pies cúbicos...
01 LET e 5 = C l * . 1 3 3 6 8 LET e6xCl« . . . " ; AT 1 6 . 0 , " G a i o n e s n p t f m e
2 8 6 0 ' INK 1 LET í2=í1+4046.86 L .83270 P R I N T AT 6 , 1 9 , C 2 , A T 8,19
ET I 3 = f 1 « 4 0 . 4 6 6 6 LET Í4=íl*.404 5 " RETURN
;C3,AT 10,19;[Link] 12,19,C4;AT 1 9 3 9 8 REM
69 LET Í 5 = í l t - 0 0 4 0 5 LET f6=íl* 4,19,cS,AT 16,19,e6
4840 P R I N T AT 6 , 1 6 , 1 2 , A T 6,18,f 9 4 0 0 INK 2 P R I N T AT 19,0,"Para
3 4 4 0 GO S U B 9 4 0 0 volver a i nenu p u l s a (0i.",AT 20
3 , AT 1 0 . 1 8 , r 4 . AT 1 2 , 1 8 , f 5 , AT 14, 3 4 5 0 I F I N K E Y » = - 0 " T M E N GO T O 1 0 ,0;"Sino Pulsa <11." RETURN
16 , Í 6 , AT 16 , 1 8 , í 1 3460 I F I N K E Y $ = " 1 " T H E N GO T O 3 4 9 8 9 8 REM H U O I
2 8 9 0 GO S U B 9 4 0 0 00 9 9 1 0 D A T A 1! 8 0 , 2 5 5 , 2 S 5 , 0 . 0 , 0
2 9 0 0 IF INKEY» • " 0' T H E N GO T O 1 0 3 4 . 7 0 GO T O 3 4 ; 9 9 2 0 DATA 2 4 , 2 4 , 2 4 , 2 4 . 2 4 , 2 4 , 2 4 , 2
2 9 1 0 I F I N K E Y » = " 1 " T M E N GO T O 2 8 3 5 4 9 REM 4
50 3 5 5 0 CLS 1 I N K 3 P R I N T AT 0,0, 9930 DATA 24,24,24,255,255,24,24
2 9 2 0 GO T O 2 9 0 0 C O N U E R S I O N OE P U L G A D A S C U B I C A S " ,24
2 9 9 9 REM H H I M r i T Í l 3 5 6 0 GO S U B 9 2 0 0 9 9 5 0 FOR n « 0 TO 7 : R e A D a POKE
3000 CLS INK 3 P P I N T AT 0 . 0 , " 3 5 7 0 INK 3 I N P U T "UO l e n PUl94d USP "a' + n , a NEXT n
C O N U E R S I O N DE U O L U M E N E S as c u b i c a s " , d l 9 9 6 0 RESTORE 9 9 2 0 FOR n = © TO 7
INK 1 P R I N T flT 6 , 4 . " M e I r O t C 3 5 8 0 INK 1 LET d 2 = d 1 « . 0 0 0 0 2 LE READ a POKE USR " b " + n , a NEXT
UbiCOS ' 1 > " , AT 8 , 4 , " L i t r o T d3>dli.01639 LET d4=dlí.00433 r»
s (2»";AT 10,4."G LET d 5 = d l + . 0 0 0 5 8 LET <J6=dl#.0 9 9 7 0 RESTORE 9 9 3 0 FOR n = 0 TO 7
alones U.S »3)",AT 12, 036 P R I N T AT 6 , 1 9 , d 2 ; A T 8,19,d3 READ a POKE USR "C"+n,a NEXT
i -Puiaadat cubicas i4)";AT ,AT 1 0 , 1 9 ; d 4 , A T 12,19;di,AT 14,1 n
9980 POKE 23609,10 GO T O 10

MICROHOBBY 29
SOFTWARE

GRAFICOS
El\l MOVIMIENTO (ylV)
Miguel SEPUL VEDA
Ya sabemos casi todo sobre el movimiento de los
gráficos por la pantalla y de cómo conseguir una
animación adecuada y natural. Ahora, en este cuarto y
último capítulo, veremos cómo hacer girar las figuras
Estas rutinas sólo funcionan con figu-
cuando intentamos cambiarlas de dirección, tanto
ras creadas por el programa del primer
horizontal como verticalmente. artículo. Este, va a c o m p a ñ a d o del dibu-
Para introducirnos de Heno en este te- tencias DATA 16, 18 y 20 tiene los octe- jo de una figura que es la que se va a usar
ma, nada mejor que unos cuantos ejem- tos del código máquina de la rutina de para la demostración de estas rutinas.
plos que nos ayudarán en su compren- giro vertical, que se carga a continuación El método para crear la figura y hacer
sión. De este modo, si queremos crear la de la anterior, en la posición de memo- la demostración, es el siguiente.
figura de un hombre caminando hacia la ria 64429 y tiene una longitud de 61 oc- Primero se carga en memoria el pro-
derecha, el frontal de la figura debe ir ha- tetos. Hace una comprobación de la su- grama creador de figuras. C u a n d o se ha-
cia la derecha. ma de los octetos de las dos rutinas por ya creado, ésta no se salva en cinta de
Ahora bien, si cambiamos la dirección si al introducir los datos se ha produci- cassette, y a la pregunta de si quiere crear
y lo hacemos caminar hacia la izquier- d o un error. más figuras, se contesta que no. Enton-
da, la figura del hombre caminará de es- La sentencia de la linca 70, almacena ces aparecerá el mensaje de STOP, des-
paldas si no se gira la figura horizontal- las rutinas a partir de la posición de me- pués se pulsa NEW y ENTER y este pro-
mente y se pone el frontal de la figura moria 64376 y una a continuación de la grama se borrará; pero la figura creada
hacia la izquierda. otra; pero c o m o las dos rutinas son reu- seguirá en memoria porque está por en-
Otro ejemplo sería la figura de un bicables cambiando los valores del bucle cima de la R A M T O P y el c o m a n d o
avión ascendiendo, en cuyo caso el mo- FOR-NEXT y teniendo en cuenta la lon- NEW sólo limpia la memoria hasta la di-
rro del avión iría hacia arriba; pero en gitud de las dos rutinas, que es de 114 oc- rección de memoria indicada por la
el supuesto de que se haga caer en pica- tetos, se puede ubicar en la parte de la RAMTOP.
do, si no se gira verticalmente y se pone memoria que se quiera, siempre por en- A continuación, se carga el programa
el morro del avión hacia abajo, la figura cima de la R A M T O P que está situada en de este artículo que ya se ha salvado en
del avión caería de cola. la dirección de memoria 27999. cinta de cassette antes de haber cargado
Estos giros se pueden hacer de dos for- También se pueden ubicar las dos ru- el programa creador de figuras. Se nos
mas distintas: la primera, más lenta y tinas por separado, teniendo en cuenta pedirá qi si queremos cargar la figura,
costosa, es tener 2 rutinas, una que mue- su longitud y creando otro bucle FOR- a lo que ex ntestaremos negativamente, ya
va la figura hacia el lado derecho o ha- NEXT. El valor de comprobación de la que la tenemos en memoria.
cia arriba, y otra que invierta la figura suma de los octetos de la rutina de giro C u a n d o nos pida el número de octe-
hacia la izquierda o hacia abajo en el mo- horizontal, es 4837, y el valor de com- tos y número de sean, le daremos los mis-
mento de almacenarla en el archivo de probación de la suma de los octetos de mos que le hemos dado al programa
pantalla. la rutina de giro vertical, es 6336. creador de figuras al componer ésta, que
La segunda forma, más rápida y más son 2 octetos por sean y 16 sean de al-
barata, es la que explicaremos aquí, que tura.
consiste en girar la figura, tanto horizon- Más adelante pedirá los atributos con
tal c o m o vertical, en la misma posición los que vamos a mostrar la figura en pan-
de memoria d o n d e está ubicada, o sea, talla y el octeto b a j o y alto de la direc-
como si cargáramos la misma figura pe- ción de memoria donde está la figura
ro girada en la posición de memoria don- creada que, si le hemos dado la 28000,
de estaba la otra. serán 96 y 109, respectivamente.
Vistas un poco las facilidades de estas A partir de este punto empiezan las
2 rutinas, pasamos a explicar el progra- demostraciones del programa. La prime-
ma que acompaña a este artículo y que ra es la del giro horizontal de la figura
es una demostración. que va avanzando horizontalmente por
Las sentencias DATA 10, 12 y 14, tie- la pantalla y, al llegar a los bordes, gira
nen los octetos del código máquina de la figura y avanza hacia el lado contra-
la rutina de giro horizontal, que se car- rio. La segunda demostración es la del
ga en la posición de memoria 64376 y tie- giro vertical de la figura, que sube y ba-
ne una longitud de 53 octetos. Las sen- ja por la pantalla y cada vez que llega

30 MICROHOBBY
a p u n t a n d o al primer octeto del primer
sean, y al registro doble H L a p u n t a n d o
al primer octeto del último sean. Com-
probar si están a p u n t a n d o los dos regis-
tros dobles DE y H L al mismo octeto y,
si es así, salir de la rutina y si no, cargar
en el registro B la longitud en octetos del
sean. En este punto, se irán intercambian-
do los octetos las posiciones de memo-
ria que apuntan los registros dobles DE
y HL, tantas veces c o m o indica el regis-
tro B. Pone a p u n t a n d o al registro doble
DE al primer octeto del siguiente sean y
al registro doble H L al primer octeto del
al borde superior o inferior, gira ver- variables, salvar cl número de sean en el anterior sean. Si apuntan los dos al mis-
ticalmente y cambia el sentido del movi- registro doble AF, y poner al registro do- m o octeto, entonces el giro vertical de la
miento. ble DE a p u n t a n d o al principio del sean, figura se ha completado y sale de la ru-
La tercera demostración es u n a com- y el registro doble HL a p u n t a n d o al fi- tina.
binación de las dos rutinas, con lo cual, nal del sean.
se consigue un giro circular c o m o cl mo- Carga en el registro A el octeto que FIGURA I
PRAMT
vimiento de las manecillas del reloj, o vi- apunta el registro doble DE, y carga en
ceversa. el registro C el octeto que apunta el re- UDG

Las variables usadas por estas rutinas, gistro doble H L . Carga el registro B con RAMT0P

también van en el buffer de la impresora el valor 254 que lo usa como control de
en las direcciones siguientes: un bucle que se repite 8 veces, ya que po- W0RKSP 80H

23303 - Número de octetos del sean (lon- ne todos los bits del registro a I menos NL
C O M A N O O Q U N E A DE
gitud del sean). el bit cero que lo pone a cero, hace el des- PROGRAMA QUE SE ESTA
CORRIENOO
23304 - Número de sean {altura de la fi- plazamiento de los tres registros 8 veces E-UNE
80H
gura). para girar los octetos, y almacena el re-
VARIABLES
23306 - Octeto bajo de la dirección de la gistro A en la posición de memoria que
VARS
figura en memoria. apunta el registro doble DE. PROGRAMAS EN BASIC
23307 - Octeto alto de la dirección de la Antes de almacenar el registro B, com- PR0G 80H
figura en memoria. probar si es la misma dirección de me-
INFORMACION PARA CANALES
Estas cuatro variables son usadas in- moria que se ha almacenado cl registro CHANS
dependientemente por cada una de las A. Si no es lo almacena y si es, entonces MAPA DE MICRODRIVE
23734
dos rutinas y tienen el mismo signifi- ha terminado de girar todo el sean, com- VARIA8LES DEL SISTEMA
cado. probar si se han terminado los sean y, si 23552
A continuación, se hará una descrip- quedan repetir la misma operación con BUFFER DE IMPRESORA

ción rápida de las rutinas en código má- el sean siguiente hasta acabarlos todos y 232%
ARCHIVO OE ATRIBUTOS
quina para facilitar su modificación en entonces sale la rutina.
22528
caso de interés. La rutina de giro vertical actúa de la
ARCHIVO DE PANTALLA
La rutina de giro horizontal actúa de siguiente forma:
16384
la siguiente forma: l^o primero que hace es cargar el re-
ROM
Lo primero que hace es cargar el re- gistro índice IX con la dirección de las
gistro índice IX con la dirección de las variables, pone al registro doble DE

10 DATO 2 4 3 . 2 2 1 , 3 3 . 4 , 9 1 J",AT 4,I;"DAR EL 2 8 0 POKE 2 3 3 0 3 , f t b R A N D O H I Z E US


12 DATA 5 9 , 8 , 9 1 , 4 2 , 1 0 , 9 1 , 8 , 8 4 , nu» e r o d e l PAPEL y la TINTA y R 64429 POKE 23303,nb*8
9 3 , 2 2 1 , 7 8 , 3 , 6 , 0 , 9 , 2 2 9 , 4 3 , 2 6 . 7 8 , 6 1 para a c t i v a r el FLASH Y BRIGHT 2 9 0 FOR n » 1 5 8 TO 0 S T E P - 1 GO
, 2 5 4 , 2 0 3 , 3 3 , 3 1 , 2 0 3 0 para d e s a c t i v a r l o s " : LET ai SUB 4 4 0 NEXT n
14 D A T A 1 6 , 5 6 , 2 4 9 , 1 8 , 1 2 5 , 1 4 7 , 4 3 0 0 POKE 2 3 3 0 3 , n b : R A N D O H I Z E US
0 , 8 , 1 1 2 , 2 5 4 , 1 , 4 0 , 3 , 1 9 , 2 4 , 2 3 1 , 2 2 5 160 INPUT ' PAPER = LET at=a R 64429 POKE 23303,nb+8
, 4 , 6 1 , 3 2 , 2 1 6 , 2 5 1 , 2 0 1 •8 3 1 0 NEXT
3 1 5 POKE
í
23302,1
16 DATA 2 4 3 , 2 2 1 , 3 3 , 4 , 9 1 170 INPUT •INK= ••; LET at=at+
18 DATA 2 3 7 , 9 1 , 1 0 , 9 1 , 4 2 , 1 0 , 9 1 , a 3 2 0 FOR f s l TO 4
5 8 , 7 , 9 1 , 2 2 1 , 7 8 , 4 , 6 , Ó , 9 , 6 1 , 3 2 , 2 5 2 180 INPUT ' BRIGHT s ';a LET a t = 3 2 5 FOR n « 0 TO 1 5 9 S T E P 2
, 6 , 0 , 2 2 1 , 7 8 , 3 , 1 6 7 at *64 3 3 0 POKE 2 3 3 0 0 . n . POKE 23301,n
R A N D O H I Z E USR 64000
2 0 DATA 2 3 7 , 6 6 , 1 2 2 , 1 7 2 , 3 2 . 3 , 1 2 190 INPUT "FLASH= " . a LET at=a 3 4 0 POKE 2 3 3 0 3 , n b R R N D O M I Z E US
3 , 1 7 3 . 2 0 0 . 2 2 9 , 6 5 , 2 6 , 7 8 , 1 1 9 , 1 2 1 , 1 t • 128«a POKE 23305,at
8 , 1 9 , ¿ 5 , 1 6 ¡ 2 4 7 , 2 2 5 , 1 2 2 , 1 7 2 , 3 2 , 2 2 R 64376 POKE 23303,nb#8
2 0 0 CLS : INPUT " D a r octetos ba 3 5 0 POKE 2 3 3 0 0 , n + 1 POKE 23301.
5, 1 2 3 , 1 7 3 , 3 2 , 2 2 1 , 2 5 1 , 2 0 1 jo y alto de la d i r e c . de la f
50 REM Carga la r u t i n a "Oibpix igura= " ; a ; " - " ; b POKE 23306,a
n+1 R A N D O M I Z E USR
3 6 0 POKE 2 3 3 0 3 , n b
64000
R A N D O H I Z E US
eis" : POKE 23307.b
6 0 CLEAR 2 7 9 9 9 LORD "OibPixel R 64429: POKE 23303,nb*8
2 0 4 POKE 23301,90 3 7 0 NEXT n
S"CODE LET C•0 2 0 8 FOR Í = 1 TO 4
7 0 FOR n « 6 4 3 7 6 TO 6 4 4 8 9 READ 3 8 0 NEXT f
2 1 0 FOR n =0 TO 2 3 9 GO S U B 4 2 0
a L E T c=c+a P O K E n,a N E X T n NEXT n
3 9 0 I N P U T " Q U I E R E S A L U A R L A S RU
TINAS ", LINE a•
80 I F C<>11173 THEN PRINT "ERR 2 2 0 POKE 2 3 3 0 3 , n b : R A N D O H I Z E US
OR DE C H E C K 5 U M " STOP 400 I F a * = " S " OR a t * " s " T H E N SA
R 64376: POKE 23303,nb+8 UE " H o r I z u e r t i " C O D E 64376.114
100 INPUT "QUIERE CARGAR LA FIG 2 3 0 FOR n = 2 3 8 T O 0 S T E P - 1 : GO
URA " ; LINE at 4 10 STOP : N E U
SUB 4 2 0 NEXT n
« i ?
1 0 R a«="S" THEN LO 2 4 0 POKE 2 3 3 0 3 , n b : R A N D O H I Z E US 4 2 0 POKE 2 3 3 0 2 , 1 POKE 23300,n
AD ""CODE R 64376 POKE 23303,nb*8 R A N D O H I Z E USR 6 4 0 0 0
1 3 0 I N P U T " N U B , de ocíelos de a 2 5 0 NEXT ( 4 3 0 POKE 2 3 3 0 2 , 0 R A N D O M I Z E USR
nchura= ",nt> POKE 23303,nb*8 2 5 5 POKE 23300,125 &400O RETURN
1 4 8 I N P U T " N U M . de sean de a n o 2 6 0 FOR f i l T O 4 4 4 0 POKE 2 3 3 0 2 , 1 POKE 23301.1
ra» ";ns POKE [Link] 2 7 0 FOR n =0 TO 1 5 9 GO S U B 440 R A N D O H I Z E USR 64000
150 CLS P R I N T AT 2,5;"6 NEXT n 4 5 0 POKE 2 3 3 0 2 , 0 R A N D O H I Z E USR
64000 RETURN

MICROHOBBY 31
I CONSULTORIO
Compatibilidad dor con más software del imposición en una entidad Para funcionar con 48K.
de programas mercado. bancaria y deseo ampliar su su Spectrum requiere, ade-
Las cintas que editamos capacidad a 48K. Animado más de los circuitos que us-
Me gustaría saber si los
contienen tanto los progra- por los artículos aparecidos ted nos menciona, un
juegos y programas comer-
mas de MICROHOBBY co- al respecto en los números 74LS32 colocado en el zóca-
ciales o caseros de otro o
mo los que publicamos en- 5 y 6 de su revista y antes de lo de IC 23; Compruebe si
para otro ordenador, como
viados por nuestros lectores. comprar la ampliación inter- este circuito está insertado
por ejemplo los de Commo-
na, decidí abrir el ordenador. en su sitio. Si es así, puede
dore podrían servir para mi
Sistema turbo Mi sorpresa fue mayúscula ocurrir que tenga puentea-
Spectrum.
al comprobar que sobre la das las patas 14 y 5, en ese
También quisiera saber si ¿Podrían decirnos en qué tarjeta impresa ya estaban caso levante el puente y los
las cintas que cada cuatro consiste básicamente un ubicados todos los integra- 32K. superiores quedarán
números hacen contienen programa turbo y en qué se dos que corresponden a la desbloqueados. Para verlo
también los programas de diferencia de uno normal? ampliación (ocho memorias más claro consulte el dibu-
los lectores. José L. y Gustavo A. MERA La Cowña
TMS 4532-L3, dos 74LS157, jo aparecido en la página 33
Francisco J. CAROBarcelona • El sistema turbo es un un 74LS00 y el puente en- del número 8 de nuestra re-
• Los programas escritos método de protección de tre LINK y OV). vista.
para un ordenador normal- programas, para conocer co-
Insisto en que el ordena-
mente no sirven para otro; mo funciona le remitimos al
dor trabaja sólo con 16K. Cables para
en su Spectrum no podrá número 14, página 26 de el cassette
desde el mismo día que lo
correr más programas que nuestra revista.
tuve, lo que me hace sospe-
los específicamente realiza- char que puede tener los Tengo un Spectrum 48K. y
Curiosidades
dos para él, a menos que es- del marketing otros 32K. de memoria blo- las instrucciones vienen en
tén escritos en Basic y pue- queados exprofeso para dis- inglés. Desearía me explicá-
da adaptarlos. Pero consué- Poseo un Spectrum 16K. tribuirlo como 16K. rais por medio de la revista
lese, tiene usted el ordena- que obtuve al realizar una Alberto LLUMA Barcelona cómo he de colocar los ca•

REPETICION DE LA CASSETTE
Debido a problemas de carga que, SOFTURRE
al parecer, habían detectado nuestros
lectores, y para que todos ellos puedan CEfíTER
seguir el desarrollo de nuestro concurso
HOBBY SUERTE, semana tras sema-
na sin ninguna dificultad, hemos creí- PRECISAMOS DISTRIBUIDORES
do conveniente repetir la edición de la
cinta y exponer las siguientes recomen- DE SOFT
daciones: EN TODAS LAS ZONAS
• Probar la carga con distintos ajus-
tes de tono y volumen. DE ESPAÑA.
• Limpiar, si fuera necesario, el cabe-
zal del cassette. INTERESADOS CONTACTAR
• Tener en cuenta que, aunque el pro-
grama del concurso funciona per- CON Sr. H. CANUT
fectamente en el Spectrum de 16 K
y en el de 48 K, el «MOONBA-
O Sr. A. PASCUAL
TLEE» sólo es adecuado para el de TELF.: 432 07 31
48 K.
• Por último, recordar que cada pro- SOFTWARE CENTER
grama se encuentra grabado dos ve-
ces en cada cara, por si hubiera
cualquier tipo de problema. Avda Mtslra). 10.1* D esc ./da Tet ¿32 07 31 08015 BARCELONA

32 MICROHOBBY
1

bles para efectuar la graba- T O ; de forma que MIDS locar la memoria «en parale- a partir de la cual quiere que
ción de los programas a cin- (a$,2.7) se escribiría con el lo», es necesario además di- se auto-ejecute su progra-
ta y luego la reproducción Spectrum como a$(2 T O 7); reccionarla. El microproce- ma. Si desea que se ejecu-
de lo grabado. asimismo LEFTS (a$,5) se sador Z-80 puede direccionar te desde el principio utilice:
También desearía saber si escribiría como a$ (TO 5) y 64K. de memoria total, ya SAVE «nombre» LINE 1.
por medio de alguna cinta RIGHTS (a$,4) como a$ (4 que dispone de un Bus de En cuanto a la rutina de
de cassette o alguna otra TO). Con la práctica observa- direcciones de 16 bits, pero rótulos de la cinta HORI-
cosa pueden hacerse pro- rá que esta notación es bas- tos primeros 16K. están ocu- ZONTES le remitimos al ar-
gramas en Pascal con el tante más cómoda. pados por memoria ROM ticulo aparecido en el núme-
Spectrum. que contiene el sistema ope- ro 8, página 16 de nuestra re-
S.U.S. • Barcelona Después de BREAK rativo, intérprete de Basic y vista.
Para grabar coloque uno juego de caracteres, por lo
¿Cómo conseguir que a Riesgos
de los cables desde la sali- que no quedan más que
continuación de una instruc- 48K. disponibles para RAM. de las pantallas
da MIC del Spectrum a la
entrada MIC o INPUT del ción «Brek into program» o
Efectivamente se podría ¿Hasta qué punto daña la
cassette. Para cargar lo gra- similar aparezca escrito
añadir más RAM paginando TV a la vista?
bado. coloque el otro cable «CLAVE DE REARME: GO
la memoria, pero habría que ¿Qué distancia es la co-
desde la salida EAR, OUT- TO x», donde x seria la línea
desarrollar además un soft- rrecta para televisores gran-
PUT o EXT SP a la entrada a la que deberíamos ir para
ware adicional que se encar- des y pequeños?
EAR del Spectrum. (este úl- continuar y no borrar las va-
gase de gestionarla, acce- ¿Sirve de algo colocar en
timo cable no deberá estar riables?
diendo a las distintas pági- la pantalla un papel de ce-
conectado cuando grabe). ¿Se puede añadir chips nas a través de los «ports», lofán transparente, verde,
En el mercado podrá en- de memoria en paralelo con ya que el sistema operativo azul o ambar?
contrar sin dificultad compi- los ya existentes en el 48K. no está preparado para ello. José L. ABA LOS La ftioja

ladores de Pascal para su hasta completar 64K?


Spectrum. Antonio fílOUELME Madrid Actualmente existe una
Auto-ejecución polémica entre especialistas
Fragmentación con MID$ «Break into program» no en higiene ocupacional
¿Qué instrucción, rutina o
es una instrucción, sino un acerca de los riesgos higié-
modo hay de que los progra-
En algunos programas es- mensaje que aparece en la nicos potenciales de las
ma se auto-ejecuten y no
critos en Basic, aparece la pantalla del ordenador cuan- PCD (Pantallas Catódicas de
aparezca al terminar de car-
orden MID$ y la pregunta es: do se pulsan las teclas que Datos); si está muy interesa-
garlo el mensaje O.K.?
¿Cómo se puede aplicar es- realizan la función do en el tema podrá encon-
¿De qué manera simple
ta orden a un Spectrum 48K «BREAK». No es necesaria trar bibliografía al respecto.
puede un novato como yo
(como el mió) o 16K. claro? ninguna clave de rearme, ya En cualquier caso, lo
que si pulsa a continuación utilizar la rutina de rótulos
aconsejable sería consultar
Cristóbal CUAN Toledo
el comando «CONTINUE» de la cinta HORIZONTES?
con un oftalmólogo.
La función MIDS al igual (que se encuentra en la te- Luis ROSADO Sevilla Si lo desea, podrá encon-
que LEFTS y RIGHTS se uti- cla «C») conseguirá seguir trar en el mercado unas pan-
liza en la mayor parte de los con la ejecución del progra- Rara que un programa se tallas especiales para colo-
dialectos de! Sasic para ma sin borrar ninguna varia- auto-ejecute, guárdelo en car delante del televisor, pe-
fragmentar cadenas; no es ble. Cinta con la instrucción; SA- ro no podemos garantizarle
el caso del Spectrum, que En cuanto a su segunda VE «nombre» LINE n donde nada en cuanto a su efecti-
utiliza para todo la función pregunta, no basta con co- «n» es el número de la línea vidad.

MICRO-1 DRUMEN
Jorge Juan, 116.28023 • Madrid, Tel. 274 53 80. Or. Dramen. 6.28012 - Madrid. Tel. 239 39 26.
Hardware Software Spectrum Tratamiento textos. 2.270
Spectrum 48 K (wmal y plus) 20% Día Alien-8 (novedad Erbe) 2.495 Froit machine 1.650
Regalo 1 joystíck + 6 cintas Raid Over Moscow (novedad Erbe). 1.960 Harrier attack 1.785
Amstrad CPC64 K (cassette y monitor verde}.... 74.400 Match-Day 1.925
Joystíck dos fuegos. 2.350 Ghostbuster (caza-fantasmas} 2.520 • Si tu pedido de software es superior a 3.000 ptas.. gratis dos
Joystíck 4 fuegos (profesional! 3.175 Gift from the gods 2.360 cintas C-15.
Sony Hit Bit 55 + Software (6.000 pfe) 49.000 Blue Max 1.975 • Llámanos o escribe a cualquier tienda, y recibirás tu pedido
Impresora Admate 100 (100 cps.) 47.500 Knight Lore 2.475 contra-reembolso Sin ningún gasto de enría
Teclado Saga-1 (profesional) 15.300 Zaxxon 1.950
• Madrid capital, reparto propio Máxi mo 24 horas (sin gastos),
Teclado Dktroniks 11.900 Combat lyrot 1.925
InterruptorfReset 1.375 Software Amstrad (promoción) • Más productos sin detallar, llámanos, te informaremos am-
C-15 (cinta especial computadoras) 85 Roiand on the rapes, 1.650 pliamente
Microdrive... 1.375 Gaíactic plague 1.650 • Buscamos distnbuidores en toda Esparta.

MICROHOBBY 33
r DE OCASION
• VENDO por 12.000 pts o cam- 82 (de 2 a 3 de la tarde), pregun-
bio por accesorios para ZX Spec- tar por Fran.
trum, un vídeo-juegos PHILIPS • CAMBIARIA IBERTREN escala
G 7000. Dirigirse a Pablo López 3N por ZX-81. y que además inclu-
Creemos necesario comunicar a nuestros lectores un plagio cometido en el nú-
Glez. O Pizarro, 69. 4 o B Vigo yera transformador, cables y ma-
mero 16 de nuestra revista, en el que aparecía un programa con el título de BINGO.
Tfna 986/41 59 80 nual. Admito otras ofertas Intere-
El «autw« de dicho programa, Juan Martínez Cufiado, copió uno q u e bajo el mis-
• COMPRO ZX Spectrum 16Kb sados escribir a: Luis Carrillo Her-
por 20.000 ptas. No me importa su nández O $ ' Ana n.° 26. 1° izda
mo epígrafe, salía publicado en el número de ZX correspondiente al mes de abril
estado externo si por dentro está Alcantarilla (Murcia)
de 1984.
bien Tampoco si el aparato es de • CAMBIO libro «Basic Básico»,
Par este motivo, a la vez que expresamos nuestro malestar, comunicamos a este importación Ofertas a Daniel Car- más colección de revistas micro-
•hábil- lector nuestra decisión de no aportar la canlidad estipulada de 25.000 pías., mona Félix O Queipo de Llana 1. hobby. más colección de billetes de
por la publicación de un programa en esa sección. Fregenal de la Sierra (Badajoz). lotería (tengo más de cien), por
Tino 924/70 00 06 a partir de Spectrum o ZX 8i Interesados lla-
las 3 PM mar de 1 a 2 y de 7 a 8 al 785 13
• VENDO ZX Spectrum en per- 12 ó escribir a Ismael Jurado. O
fecto estada en garantía hasta el
ALSI
San Damián 185. entresuelo 1°. Ta-
14/11/85. con salida para monitor, rrasa (Barcelona)
comercial, S. A. incluyendo cables, manuales en • VENDO ordenador personal ZX
FACTURACION/Spectrum castellana interface y joystick 8i en perfecto estado, comprado
Un solo programa que manota 20 ficheros do artículos y direcciones con un total
kempston y un libro de programa- hace un arto, con cables manual.
de 1000 artículos más 400 direcciones de clientes, etc.. en un solo cartucho ción basic. por sólo 39.000 pts F. alimentación y algunos progra-
Esle programo se utiliza para Tfno. 456 63 52. preguntar por mas por 10.000 pts . negociables
• Realizar facturas (hasta 10 conceptos). • Realizar o(eHas(fiasla 10 conceptos). José.
• Realizar pedidos (hasta 10 conceptos) • Realzar albaranes (hasia 10 concep- Video-juego para TV BíN. COLOR,
tos). * Llevar ol control de stocks (1.000 artículos). * Listas de precios (aumento • ME GUSTARIA cambiar un ór- con juegos (6) + una pistola para
automático) • Envío de circulares (400 direcciones) gano CASIO VL-TONE con instruc- éste por 4 000 pts negociables Es-
Instrucciones totalmente en castellano ciones y con algunas canciones cribid (los interesados), lo antes po-
De venta en El Corte Inglés y tiendas de informática por un ordenador ZX 81 con todos sible pues me voy a la mili. a. Ra-
ALSI. S.A. Antonio Lópoz. 117. 2a D • 28026 Madrid Teléfono 475 43 39 sus accesorios: libro de induccio- lael Hernández Márquez B/4 Esc.
nes. conectadores para la televi- 16, 4.2 Campoclaro (Tarragona)
sión y fuente de alimentación Mis • INTERCAMBIO MAMAIIYA
PRECIOS ESPECIALES sertas son las siguientes: David Ri- C-330 Prolestonal de 6 x 6 y 6x12,
PARA COLEGIOS VENTA DIRECTA vera Valverde O Santa Susana, 8, objetivos intercambiables y a estre-
Y TIENDAS 4o. 4. Tfno.: 763 51 64 Hortaieza nar. por Spectrum 48K o por Sin-
SIN INTERMEDIARIOS
COMMODORE 6-» Madrid 28033. clair OL pagando una diferencia
2X81 1K ORIC ATMOS- • VENDO ordenador ZX 81 con
SPECTRUM 48K Agustín Párbole Jabardo Pardo Ba-
COMMODORE 64-16
ORIC ATMOS <U}K UNIDAD DE DISCO
todas sus conexiones y el manual, zán. 12. 28016 Madrid Tfno 91/413
MICRODRIVE
DATASSETTE-SPECTRUM 48K oor 12.000 pts Llamar al 965/38 09 97 28
IfJTERFACE
JUEGOS (Imporlados) SPECTRUM 64 K
* * * MICRODRIVES-INTEFFACE 1
Tcls t93> 242 80 11-319 39 65 ULTIMOS MODELOS
BARCELONA
tel (93) /2S 20 !>9 SABADELL Seis meses d e garantía
(A partir 18.00 ñoras)
* • *
MICRO (Impon). C/ Magallanes. SI •
MICRO /RAM ático. Barcelona 08004. Telf.: 242 19 99.
Obispo Laguarda 1. 1.° (De 7 a 10 de ta noche)
03001 BARCELONA

J
ARTO
I O S ESPECIALISTAS EN I N E O R M A I I C A
SINCLAIR V C O M M O D O R E
T o d o el Hardware y S o l t w 3 r e nacional EL UNICO COBALT ORIGINAL
y de i m p o r t a c i ó n
M A S D i 650 P R O G R A M A S
C l u b d e usuarios y C l u b d e v i d e o | u e g o s
Servicio de asistencia y de reparación,
EN CASTELLANO
y ademas venta por c o r r e s p o n d e n c i a
ESCRIBENOS
ARTO. C / A n g l i . 43 - Tienda Y CON GARANTIA
08017 B A R C E L O N A

(PANTALLAS EN CASTELLANO)

/MICRO'
ES EL DISTRIBUIDO POR:
HACEMOS FACIL ANUNCIESE SOFTWARE CENTER,
LA INFORMATICA
• SINCLAIR • SPECTHAVIOEO EN
DISTRIBUIDOR EXCLUSIVO
•COMMODORE • DRAGON

MODULOS
• AMST RAO «APPLE
• S P Í RHY UNIVAC
. 1*41
••" ÍUHM iui< n

PARA ESPAÑA.
JAOAIWAPAIO
w bwl Jl 'rt* II
i»' «i»»
WU WAfmio ncw ii Teléfono: 654 32 11
TOMWIi
Caw*. I I
!«•• )i"ÍJ«
1
ICO
!•>' nt'tia
WH WA*l«O l OK'tVUKIiOhA Señorita Marisa
'ii' IIMK
7* M )
T... NI fg»
«OU UÚOvm A.<ii'.' [Link] ' '") < .-«.i :.-••: Í;'0/ Í' .-V-. RAP T. A¡A

34 MICROHOBBY
« S o u n d on Sound,
una cinta muy Personal»
La cinta virgen para Personal Computer C-10 y C-15.

U¡o ¿ ¿ - o n

Avenida de Fuentemar. 35. Polígono Industrial de Coslada (Madrid).


Teléis.: 671 22 00 / 04 I 08 / 12 / 16.

También podría gustarte