84
Pragramas/JLieqDs/mnntaies/ Cnogn ITlaqutna Como crear marcianos yotros nstruos

Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

  • Upload
    others

  • View
    0

  • Download
    0

Embed Size (px)

Citation preview

Page 1: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

Pragramas/JLieqDs/mnntaies/Cnogn ITlaqutna

Como crearmarcianosyotros

nstruos

Page 2: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

Muy Jill adireccbnes, etc. jflJiora a

) lormato para Imj

ni 80 columnas!

CHESS THE TURK

I trabojat en codigo

[moquino. Muy wilioso para

iniclarse o ampflot

I conocimieritos.

FULL SCREEN EDITOR

! IMPORTADAS EN EXCLUSIVA

PARA ESPANA

POR SINCLAIR STORE

THE RDDIGITAL TRACER

EXCLUSIVA SINCLAIR STORE

CcnelpodrascoplarcmlqiileralDUjo.por Unico en su genera Joyslick pragrc^ ;le

compliaido que sea y posorlo con memorio que almacena wrios

posleriormente a la Impresara. Muy ulil juegos a la vez, durante tiempo

para dibujos cartogroticos. indelinido.lncluye Interlace con sallda

qje pemiile conexlan de olros perifttaB

Escucha coma twbla tu Spectrum. Muy

i.iii ni ntroducirle losprogramcs pues "

"diclendo" los comandos y datos, y r>

tiace falta mlrar o la panlalla.

Descubre sus multiples apJicaciones.

Crea tus proplos dibujos dlreclamerto™"

la pantolla

Desarralla tu imaglnacion al limite.

PROGRAMAS EN CARTUCHOPARA MICRODRIVE DESARROLLADOS POR

SINCLAIR STORE

- Trotamiento de textos.

- Base de dates

Nuevos progFamos en preparacion.-

Ven a vemos a nuestras "Super-Boutiques" informalicas.

SOMOS PROFESIONALES

BRAVO MURILLO, 2(aparc. graluito en c/. Mogallanes.l) Tel. 446 62 31

DIEGO DE LEON, 25 - Tel. 261 88 01 - MADRID

Page 3: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

^--^X I SISCRIPCIONES

^2/^ *| S~4Pli^:J

-^^^SSNtf^2^^p£0£!i-^^

, Con esie niiiiiiTu, lus k-itori-s pndi-.m apra-oar una nuvedad qi.c es evidcntc- jl tacto y j Li vista. ZX riene 16paginas mas. Esto seexplica litilnieiiic- pur nuesrru deseu de aseiMrarijui- mdo t'f material iseneradu pore! tnundu delos ordenadi u-t-s Sindair rtiiLja aibida en esu trita mensual.

Por ntra p.irte. queremos poner de relieve una vez mis nuestra satisiVci&a pur el mnvimienio t|iie se esti

treandu en tunm a est a via Imj. Sun mucliDS lu> leiini'cs que lies csiTihen o mis 1 Kirn.in pur teletunu para ofrecerse n

colaburar. No siempre podemos aceptar estt.s c.isun dt lincna vulunc.id. pern sun hienveiiidos v esperamos que

EN PORTADA LIBROS PROGRAMAS COMENTARIOSLa serie "Ginstruya su Estavez>secdtJnbiblio- Conrinuamos publicando Comentar lus muchos

lus prujjrams que nusenvianha venido deleitando For- mentario de un libro que. lus lecrores. Y, tomo decos- mercado para el Spectrum

aunque mis no fuera pur su cumbre, volveremns a .idver- nos llevarfa, sin duda, misesee mjmeru (aunque espe- n'rulo. esra teniendo muehe tir que, si bien no tudns espaciu del que dispunemos.

exito 'BASIC para niHos", Peru de tualquier forma el

deralle sobrc algunos de lus de Wan v Manjjadj. editado cud en verbs impresusobde- lector entontrara. romo cada

^nas rratados). Est* ultimoLiruln ha sidu dediiadn a

T5S clasicos jueJJOS de inspi-

por Para'ninfo. ce a la gran cancidad retibida. mes.elanalisisdealgunosde

Pagina 73 A menos que se cenga coo-

cieniia de que el progrmaesas cassettes que nos llenan

las horas.

ration c-piirijl. pupulariiicn- enviado no meretia publi- Pagina 14"

re conocidos romo ''de mar- carse, rened un pom mas de

Pagina 4 Paginu 16

SOFTWARE DIRECTOR: Norbertu Gallego • COORDINADOR EDITORIAL: [. A. San; • REDAC-CION: Alt.-JLin.il,. DiuL-H. Ar.ihi.il I'-i-d... Sum^n f in/.. CisihmJ,, (,'.:iy,-,. [nan Arendbia *

Ftmjiid.i li.'iu.i DLSfcNO; Ra.ira,, S,,air.i • k.liu.k [.,.1- PIBUNIOKMATICA. S.A, •

PRESIDENTEilaTnauu.. Jinan • niKH.Idk roKIA] \ .. b<:- . I ..ill, j- • ...[ministra-

tion INFOMD1.S. .S.A. • CONM-JklU i ni-l IC.AIX.i: iam.,n.l.. H,,kn • CFKENTE DECodijjo MJquina" se queda- CIRCLLACION V V'ENTAV l., : , <..:„, t-... • PROOUXION: Micul Oriiuv., . M-HVICIOron inconciiaas. Aqui prosi- CL1ENTES: Ara..ii... 7ur.v • IEEE DE PI Ml l( IDAD: M...a

1,.,. M.a: a • ! )ir< .-. ., a

fo"7e t^Ten.a'^T/ut.t)"Martinez Velarde.

Redaction v .,.!iustrjinin i B.j>.. Manila. •"- 2H0JO Madrid Tel 7.* 7.1 1} publitidaJ

Madrid: Nieces Ftrnindcj i EW.. MunlJ... *" JHDJi) Mjdrad Ttl "' 'K, 62:91, • Pahku.kidHar«l ( ,na:(". i.k.... _ .

,;-... Tl - ., ' „..:. .

_

• . ..pusk.. Lcpil: M.S7-452-1'ftli • Distrisuvi '•I'-l .1 i 'V.il.kl. [-.,-., s , .V..H1H. M..knd • E^l. ma-fink-.

Pagina 79 Karmat. C/Pantoja. 10. Madrid • Impriine: Hl-i.o C'TDrreLim. a. .'.SuV. Madrid. Solidnit.,

control O.J.D.

Page 4: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

Construya su propio juego (ultimo cap

Marcianitos, ccyotros monsti

r Ins jutgi.s de .1] mnr.-J.-i

.is dijxi-

.. .Aw

tan Its reflejos y la habilidad del

JL»M.i< ir. Estus jue^iis sun Ins reyes del

Ttadn, batiendn retords de venias

ltinu.irneiUL Su cr.m exir.ii se debt a

(acilidad de manejo y a la rremenda

cciiin que suelen cener. Aimque su

:iiejii St-Li senL-illii im dchcmns eng.i-

Esios juegos son los mJsJifici-

irugramar ye" ' "

is inventiva. No (alios uri Ins pmgrjrius si

mime, despues de les de descubrir. (jimo v.

isiblel! lenguajes (itntn sus defeoos j

a abordai (-1 t-amino mi.- suu'illo para

BASIC contra codiy.li m,it|iiiiin el prngramador amateur, vamos a e\-

piiL-jr aiiiiLi sc put-dt-n ruali/.ir juegos

de accion en BASIC cunsiguiendo unavti.M-iti.iJ Jccenie.

Aunque, evidenremente, los prn-L'.r.im.is nn Inmui .ilcanzar la

"a codig"i> ni;'it|Li [iki

un kugiuji.- scniilln di-

ke de[

reglas <--. rogr

CI BASICaprendcr y c

aso dken algui

defedca destaca

ejecutan los prngramas. Esc factor es

; nefnstn para esre ripci de ran pasMs,

put-di- ejecutarsi _1 in

1 rapidu. Llt-|-iLfidifi]i.iii

le las jnstrutciones que pi.iig.imos y di-

.oinii his pollgam u.s. Cuidqiiitr lengiujt

,M .|„. los

siltemas mas usuales de acelerar u

programs. Ttidos ellos se basan en el

BASIC y no netesiijn iiingiin conuci-

rilicritn especial. A parte de ins que

damos existen multiples mis que no

Eodemos comentar, pern cuandu escri-

3 un programa recuerde que todo se

puede hater de dos modus (al menos).

y uno de ellos sera mis ripido que los

bucleEOR NEXT demro del cual iri

poniendo por nrden consecutive) Ins

disrintos metodos de ejecutar la uccion,

eche mano al cronometro y en unos

Page 5: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

EN PORTADA

itulo)

tmecocos•uosn4to. ..bri cu.l „ el ,1„™, mi, un ntim TO. En la CO np.ir, ion B= X* (A> AND A<20)

A<1. si que Con lo que el problems queda uhv iudu

resultado de • Utilice nombrt-s de variables de una

Cuando cl ordenador ejetuta el pro- resultado altr adoe Best no, peru sola letra: Si el nombre tie una variable

f^i \V nT^mcd^''"^^ "no

si A no en B se tiene varias letras es mis farilmenre

almacen: . Por LLinipitTisible, pero el ordenadnr tarda

sirven para nada (por ejemplo Ids exprosio mple ueA<l mas en leerlo (no es una broma) y

REM) el ordenador pierde un tiempo oui.-d..: X1. Un ca

~i

*(1 + [- l*(0)]queda

crea si el valor

ptrdcra tiempo. Siempre que sea posi-

ble utilite una sola letra para nombrar

• Ponga las subrutinas mas usadas ill de A est 1 y 20. las variables.

ptintipio; aunque la tosrumhre es pu- ton la es jraIF...THENe valor de • Evite lo mas pusible losGOTO y Ids

llet las subrutinas al final del prngra- X no ser jdificado a poresra GO SUB: estas instrucciones implican

tna. lo tierto es que si se poiien al zona de ii n.i busqueda en memoria con la con-

principio el 5pectrum tarda menus rip do' n X un secuente perdida de tiempo. En caso de

cert). Par modilicamos la ser netesario procure que Ins salcus se

luquc al printipio del prngrama una 10 o sigue: hagan a las primeras lineas del pro-

mstruccidn GO TO 5000 en 5000 10 X= 1 <S + [- 1*(A>20>] + grama.

ponea tudu el proton di- initialization

definition de caratteti's prouTiirniihles,

ttt ' v las subrutinas mis usadas ilecr

datos del tecbdo t! del joystick, dibujar

en panralla. etc) coloquelas lo misp^< imas al principio del programu

o^kpueda, aunque, pur suputstu. de-

tiXde la instruction GO TO 5000.

F'I

• Comprima todo Id que pueda: aun-//

de tumptender y modificar. el urtlena- Jdor las ejecuta mas rapido que si ',; westuviesen sueltas, pot tanto, siempre

J>*«~

que pueda escriba codas las instruct lo- rries que pueda en cads linea.

fc. i% -

sumen mutho mas tiempo de proceso

que una variable normal. Si puede

evitar usarlas aceierata el prugrama• Proeute eviiar Ios IF... THEN: Mu-

Sj

r' *""// /,

crucrura del tipo IF... THEN por una

sencilln operation matematica, asi e! ^p •i0 LET IF A<1 THEN X= 1

^ ^ ^^^H20 LET IF A>20 THEN X = —1Se puede sustituir por: A Ili)LETX=l*(A<l) + (—1*(A>20) 1 \ k

lis to se puede hater aprovechando

que el resulcado de una comparaticin es Ci 'A tt'lk

Page 6: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

EN PORTADA

MarcianitOS...• Utilice el menor niimero de varia- muy diverso tipo: jay.ilici, teclado, que podamos jugar con ellos. Parables posible: nutndo el ordenador us.i p.intjila. impresi r... etc. li gosuna variable, la tiene que buscar a fa de action el dispositive de salit tener un conodmietito minimo del sis-

largo de una labia donde estan almace- cvidcn lenience 1 p.inuihi tema hexadecimal y del binario (evi-

dentemente aquellos que tengan dieci-nos tardara en encuntrar la que busca av.iz tin ) la seis dedos pueden dar esta parte por(sobre tudo si es la ultima). entrada dedatos puede ser n ada. sabida).

.e puede jugar ci n el teclado o CO El ordenador por demru funcionaii'Vlkk. Aunque nprincip o el tec ado- solo can unos y CerOS (sistema binario)

i'ntr.iil.is v salidiis mi ofrecc dificultaJ. e\isten dete y fas cantidades se expresan en funcionri.idos procediuii ni.s par; re! de esros diis digitos. Pero al camb>*el

sistema de numeration tambia iar*™'nTudo program;! que tenga algunauiilid.ul tL.ima dacos de un Jispusitivn

masimu rendimi nro, as, n

viene saber "leer Ins joystick de modo el significado de la cifra. Un 10 en

de enrrada, los process y devueke los decimal significa: l+1+l+l+l+l+l+lresuliados por el disposirivo de ntrada. + 1+1. sea, 10. En cambio 10 en

Todos escos dispusitivos pueden ser de binario significa 1+1, es decir, 2. Paracomprender el funcionamiento basico

que una mas uno es diez (en binario).

+ recurie al proceso de transformar el

niimero a decimal. Aunque esre proceso

parczcj dific.il, en realidad es muysencillo, a cada posicion binaria le

la figura 1 y dadn un niimero binariosumamos los mimeros decimales que le

correspond en, con fa que obienemos el

niimero deseado. Asi 00010110 expre-sado en base 10 sera; 16+4+2= 22.

- Para que el ordenador ejecure el proce-

Hp*1

so basra usar la sigmente instruction:

I0I.ETA = 1*P1 + 2*P2 + 4*P3+8*P4 + 16* P5 + ^2" P6 + 64* P7 + >f**P8

C.onri-ntendo las variables PI, P2, ....

HI

P8 los digitus binarius correspundien-

tes al primer digito binario, al segtmdo,... respectiveamente La operacitin anre-

Mr /m 120*0 + 64*0 + 32*0 + 16*1 + 8*0 —4*1 + 2*1 + 1*0=22.

El proceso inverso es algo mascomplicado de realizar. Para- con vertir

un niimero decimal en su equivalente

binario hay que ir mirando cada digito

por separado, empezando par el demis peso. Si el niimero dado es mayor

igual que el valur decimal del digito,

v^l enronces este vale 1 y hay que rescar el

vB j nuacion comprobar el digito inmedia-/ ramente inferior. Por ejemplo, el mi-

—<.

wr>'

'

mero 25: empezamos a corrfprobar si es

mayor que 1 28; como no lo es, el octavodigito esti a cero y no realizamosWV̂ ^— ninguna nperacion Lo mismo sucede

Page 7: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano
Page 8: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

Marcianitos.m los dos siguienres, vs que 25 es

tenor que 64 y que 32. En cambtrj cnnquimo : t-mpezjiidu ,i toiuar ilesde el

nibuir :

del antiguo. Aoirresjiundicnrt

que 8, realizan

(9—8= 1 y el

siguienres (el n

; igual ii

i su digicu corrcspon-

numerti (9) en lugar

il 8, al ser 9 mayor. ,1 mi.™ rmsvgiro vale 1 1. Los dus

:er y el segundo, por

..ilcLiLindu- el digiio v.ili

isi es que hemos realiz.idu .ilgiiii.i parte

l.:i sentencia correspndiente en BA-ilt es algo mis lurg.i y uMuiplicada quea uiiliz.ida pjta pasar de binario a

LET P8 = 1* ti28<=A): LET A=l—12B*P8 : LETP7= [• <64<=A) i

ET A = A—64*P7 : LET P6= 1*

32<=A) :LET A= A-32*P6 : LET

teclas a la vez (pur ejemplo, mover la

nave y disparar), esro no es reconocidopor la funcion INKEYS, sino que nosdar.i sul.imtiiie i-l valor de una de las

dosreclas. Para saber todas las reel as queescan aprcuiia- a la vez, hay que usar

otra funcion. La instruction IN lee

datos de un periferico dandonos unniimem asixiadti at dato. En el easo del

teclado hay una sene de valores de la

funcion que nos dan una indication de!j) feci. is pulsadas.IN 65278 nos mdica si estaii pulsadas

CAPS SHIFT. Z, X, C, V.IN 32766 dara SPACE, SYMBOLSHUT, M. N, B.

IK mil dara A. S, D, F, G.IN B15Q d.irj INTER. L, K, J, H.IN .-1

. I -,i, Q, ^. E, R, T.

IN Uya dara P. O, 1. U, Y.

P5 = 1*U6<=A> ; LET A=A—!6'P5 prrsion decimal de un bvre (queLET P4= 1* (8<=A) ; LET A=

A—8TP4 :LETP3 = I* (4<=Ai : LETA=A—4*P3: LETP2=I* (2<=A) : MK ii,,,

:

ay,,d,(

ptrol^cincoLET A= A—>'P2 : LET PI = 1* mis ba

U=A) : LET A= A— 1-P1. las tec as correspond ien res. Por ejem-En cada digito se comprueba si su piosi lacemos IN 32766 y el ntimero

lee Id pasamos a binario, noss.'ikirj naexpresion del <ipu 000! 1 101.

JfSliR iando los tres bits de la izquier-

rumple. En ei caso del octavo (P8> al da, que no se usan para nada, nos quedaser falao (comparado con 25 1 nos da un 11101,

valor decimal asociado mukipliiadu

jor el digito, si este vale I, la resra se

do 128*0= que es el valor que >YM1' )L SHIFT Si tstuviesen dosbits b os, serial! dos teclas las que

en pulsadas. etc. De este modos saber que itclas estan pulsa-

Los

de datos, por si no se acuerda) para te.'dos tipus distmt.- fa . .. ' :

:ecloiio es muy sencilla, haciendo unINKEYS sabremos si bay alguna tecla

prerada y obtendremos su valor, peroel problema surge cuando se puisan dos

micnius hiisa-os del i,, v„kk,El interface Kempsron fundona de

modo diferenre. La cntrada se hacemediante un IN 31 y los valores leidos

se inccrpretaii al reves. Si un bit esta

alto, entonces est buton (o direction

del joystick) esta pulsado. En la f igura 3viene represeniado el bit que corres-

ponde a cada position /«Con estos datos ya se puedc rtu Pa-

llida In tiitradu, los datos ya descom-puestos se pasan al programa principal

pnro que los ucilice en el control del

juego.

Respecro a la salida que entrega e!

S'ibrt graiitos que le ayudara mas quecualquier estuero comentario que pu-dieseniiii d,ir aqui.

Ideas hasicas de los juegos

En los juegos de aeddn es donde .

ideas bjsitas que se deben considerar a

In hora de hater un juego, de modo queresulre lo mas divertido posible.

En primer lugar se dtbe poder moriry matar. Si el jugador no sufre dano opuede hacerselo a los dermis el juego

pierde gran cancidad de in cures (;miraque es bestia el ser humano! t convir-(iendose en un simple riro al bianco.

Debt predominar la action sobre la

presentation. Si un juego es nipidu pero

Feu, el jugador podra dear que podn'aser mas bonito, pero jugara porque es

divertido, En cainbio si es muy bonito

program a excesivamenre", dejelo

niiij.) pero rapido.

La difitulrad del juego debe ai

Page 9: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

EN PORTADA

faril j! final. Un Hindu de uinseguir

esto cs meter un bude de espera FORNEXT que se hace tttttWH a mtdidj

juego la persuna e

de descanso, esto h

[uego.

Estas son bs lini

sij>uitndulafi pudra

premier pur que se hace tada una de las

jtxiones. Cuando se ha podidti se ha

incluidu una iiis-rruction REM para

explLark], pern dentro del nutleo del

juegu se hail qukado para aumenrar la

rapidtz (se^iin declaim is nines). Buenasuerte con sus juegos.

Fernando (iniiu

DEL DIBIT BI.I

VALOR DECIMAL ASOCIADG

FIGURA 2

IZDL1IERDA DERECHA ARRIBA ABAJO DISPARO

PROTEK 5 ! 8 1 7 6 1

SINCLAIR i 61

71

o » o

SINCLAIR 2 1 12

1

' 3 5

FIGURA 3

IZQUIERDA DERECHA ARRIBA ABAJO DISPARO

BIT 1 31

2 5 4 i

. so to eeoe

IK1K af

<T b,a-i; " -4. ";prin'*»'' IF mTHEN LET

4T RT r,*;' 1"

:IF f <2

k.gT PMrrf'flT r.t£" "

.>2 THEN PRINT RT h--aa THEN PRINT RT I

1 TO 300:

Page 10: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

EN PORTADA

Marcianitos..

LET i.

(NOT 1) THEN I

40 oo to 10

IF U-0) BND

: PRINT: PR II

iei& stopieae rem ** um an5880 REM ** imiruccB8ia CLS ; PRINT AT :

CIONES DC JUEQ0"seae paint

i print "i

5fc90 FOR: NEXTB TO 7:

NEXTsiaa for i «a to'U5R "E"»i ,: N—sua for I >a -

siae for:

"G"+i ,* NEX"i FOR 1=8 TO '

RERD .

READ I

RERO I

RERO J

P.ERD 1

S145 LET u-0S150 CL5 : LET »-15: LET biS0: LET C-1B: LET 4-1: LET t>0: LET f

-52; LET g.0: LET h«l5160 REM If I. direction m ,.-:-. i -,

5170 LET 1=1: LET m-0; 50 TO IB6000 REM *t dlttfi di loi dibujos6010 DOTS 805, 20S, 286, 127, 03, 5,

1

,1 , 179 , 179 , BBS , 254 , 982 , 192 , 126 ,

1

6020 DRTR 1,1,1,7,7,266,266,256,186, las.iaa.aat

. aa*., 255, ass, ass6630 DATS 54, 4.7, 167,306,146,16,67,167 0«, 160, 91, 201, 44, 66, 168, i46040 DRTR. 0,7, 7, 2, a, 2, 2, 0,0, a, 7,

Page 11: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

dr>L^in?i

~c

jLA NUEVA BOUTIQUE DE MICROORDENADORES

Comprandoun

oun i m t m ,> I

Bag Hsax

te regalamos

50BASIC PROGRAMAS

[ CURSO

+o+

KEY INFORMATICA, Embajadores, 90 (Madrid) -Tfno.: 227 09 80 - 227 91 E

Page 12: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

TE AYUDA A POTECON PERIFERICDS DE G:

1 TECLADOMULTIFUNCIONAutentico teciado prolesional con 52 teclas lipoIBM grabadas con lodos los caracteres del Spec-trum. Amplificador de sonido. Interrupter ON/OFFcon piloto de aviso y Joystick para movimiento decursores. No necesita desmontar el ordenadory esta prevista la incorporacion delinterlace I en el interior delteciado para cone>deMICRODBIVES.

Precio: 14.850 pi

3 CONTROLADOR DOMESTICOPermite a su Spectrum recibir y emitir datospor ocho canales simultaneamente contra-lado por ti mediante sencillos programas,puedes activar cualquier tipo de circuito elec-tranico o electrico. Tanto los canales de en-trada como los de salida se encuentran elec-tricamente aislados del ordenador.Precio: 11.400 ptas.

4 AMPLIACIONDEMEMORIADE16a48K EXTERNA

mmsmma

joi la seieccion ae componente;sita manipulaci6n para su insta

Precio: 10.600 ptas.

5 AMPLIACIONDEMEMORIADE 16 a 48 K INTERNA

Precio: 9.500 ptas.

6 AMPLIFICADOR DESONIDO

7 INTERFACE JOYSTICK

Conecta el spectrum a cualquier impresora tipo

paralelo (Centronics) o serie RS/232. Reproducecualquier pantalla incluso en alta resolucion y color. No es necesario ningiin programa adicionapara su funcionamiento.

Precio: 11.600 Ptas. Cable: 1.900 Ptas.

QQq

7

a '

INTERFACE JOYSTICKPROGRAMABLE

Permite laconexionde cualquier mando dejuegosJoystick con el Spectrum. Todos los programas yjuegos pueden ser contralados por el Joystickadaptandolos de una manera simple y sin necesi-dad de programas adicionales.

Precio con mando: 9.100 Pts. Sin mando: 5.900 Pts.

PARA MAS INFORMACION

Permite controlar con el Joystick los juegos deSpectrum que vengan preparados para este sis-

tema.

Precio sin mando: 3.700 Pts. Con mando: 6.600 Pts.

Page 13: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

CIAR TU SPECTRUMHAMTIA INTEHNACiaiSIAL

i-ri ^^h.

^^^^^( ^^^,ao*J^ ^^SsS

L^"""'" V EN

Page 14: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

Tipo: Ji/ego

Diiiyihiiicliir: DhiamkFormaIn: Cassette

Spectrum 48 K

mmlunpii s<Jt "

uego permite uni

jugadures. En Ins

dt>5 P

»*£& ttpn - bs V

"ugadJryLede rbi- ¥

uranltlaoinibgra

a version de un wfe n

"end"! KTde

nimo de rt< dj.li>s

gado que obrenga

£T»5 P

^;™in r

bos ernes. S

todos sus L-it-rums t

tius ¥ Hew

incsperado. dando una nnualegre. Si se prefieren Ins

juegn.s "irueleiruales" en

vez de los "marcianiws",

esta es unj buena rfceddn.

PUNTUACION:AD1CC10N: 7

PKI.SFNTAUON: 8

GRAFICOS: 8 ACCION: 6

Pyngrtuntt: Stiimtrzoi.

Tip"-- ]"^oDhlvibnitlnr: Diuuiii,

Formain: Cassette

Sped,;,,,! 48K

[OS Spectrumamacos. c

Jisfrutaran mrao lotos

PLINTH ACION:ADICCION: 6

PRESENTAGON:GRAFICOS: 7

ACCION: 8

Page 15: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PONTE A LOS tlflNDOSDEUN SPECTRUM.

Ahoratu micro: jrderwrlcr SPLOTPUM es aun, MAScon sus r.i.ev-i re:ue:zof; Mhvrodrivt?. Interface I . interface 2

iPor fin podras grabar y leer mlormaci

jO disfrutar a lo grande con la mas e

¥ sobie todo v;

a vanedad de progr;

>r la posibilidad de aprendt

»a que puedes obtener mayor rendimiento de tu SPECTRUM

PONTE A LOS MilNDOS DE UN SPECTRUM

Page 16: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

^fl ^f*^L. __~B-' MH

^Ts^JjA j^k >iW/**^J*^

^V*^^BS^^'^--^^^^^™^. ^B

to.

FjEp^lS:mg% 1 i^| 3"

Page 17: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

^SxdcUcw^foafunCect^te^de, 4 \ \

Ha seleccionado para usted cuatro excelentes programas de juego para su ordenador SPECTRUM.

Diviertase con ellos y, ademas, ahorre dinero con esta oferta unica y exclusive para los

lectores de esta revista.

.pfinHOYMISMO

i-,M-lui;i<ARSE U

,-jSSa^ J OJPOfl DE PfDDQ

Hll'.'.:i!H)l F VllXTKA KU.MBOLSO __ CON TARIK1A UE CREDITO D

»*..««. II MM

Page 18: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

FORMULA 1

^aha i-n c-llo su vida..., \p

•ia 5i] linici p(»ibi[iJ.iJ

Aj-UM.-n Garcia

a lo sucedidu: *

uba

; 10 a

Mtible. Las

200 ii 2:

500 j 600, LjL-.iijJeL-.imbin

tenia ties velocidodes v la

ittsirmxten INPUT <fe In

linen 2 permitia hacer el

eawbia El cuntru] del cache

de r -.

^ET " =3 __£; .;"o.. ; INFI FORMULA DE ! BOLIGO EN

„a.tgf * = 15: LET v.aaRE-Tlkc.. £L5

10 -MD d13 ..ET J=s*l

la RE-D=5ae ThEN UET '

15 IF NOT a @N0 NOT bo^E __ GO TO 40

jO Pur.E £3692,-1; PRII.: :-. :.:

"." :." ::....LET u=u-i. CO TO SOSO3S LET X=X- ijNHE-, *-;34 PAUSE 0*240 60 TO 10

300 oath 10.21,10,20,10,19,13,19, 11, 19,9,19, 18, 19 ,11 1 19^ 10 'lsll4, 19, is, 19,14,19,15,30, 13,19.1318.14,13.12, 19, 11, 19,10,19, 9. 10.3,19, ?,is,e. j.7,5.14 4 id210 DATA 5, 13, S, IS .5, 13,5,13,7,

14,3, 15.9, IS, 10. 16. 10.17,9 . 13 9

.

13, 10.20, 10,213.0 i/HTfi IC.Sl, 11 .21, 13,31. 14,3

i, is.se, 16, .17 .o.if..io,ii.ii so.20. 33, SO. -c 3:3 20..-C, = 5,17,36, IB,^6, I-;., Si, 13, 3. 1, 10,30, li, 19, 13,17, 12,17, 11, IS, 10,19,19,20,10,24

500 POKE U3R510 POKE USR- -IKE " = "538 POKE USR

S50 POKE USR560 POKE U5R570 POKE U5R53a POKE USP.590 POKE USP.500 POKE USRS10 POKE U5fc530 POKE U5R630 POKE USR640 POKE USR6S0 POKE U5R

'H"-*0,219H-+l.i55K- tS.Si'B'rt"+3,24'H"+4,2»H-+5.90H" +6,126

5D00PWS

A tiidj veloddad e

'iamos el talon de 5.000leseias ,i A Justin Can

650 RETURN" —fl Tt

.._.m"JEt'i -

50205004 IF 0=3 THEN LET fsj5005- OLS ;

PRINT AT 10,4, "5'SUEDROO SIN OOCHES 1

: PAUSEET i'=2: CL3 GO 7.;, EOSC5010 ps:NT hT 3 9, FLASH 1; 'MP,

. . FLASHLO.iC r--:INT AT £0.1. FJL5E S PARAICNTINUhR T, fARA TfiRMINSR'-

5055 IF S-.Ci TH£-.| .30 TO 50405030 PRINT ST 15,1; 'SU PUNTUACION £6; ",i503E IF ji3 THEN LET g =s5035 PRINT "LP. MAYOR C0N3E0UIDA

i TO 504

5036 GO TO 5

FLASH 1: PRINT AT 6,8JHS"

5070 PRINT AT 11,8; "I* IZQUIERDfl

JffI„ftT 14.8,-590 PUNTOS C

JISPONE DE T

PULSE OUmLOUIER letr

5980 . ...OCME NUEU05035 PRINT AT

TOPI 0: RETUI

Page 19: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

La 3- generacion de softwareaudio + programas

ii CENTENARESDE REGALOS!!uno de cada tres

casetes tienen regalo

seguro y TODOStienen participaciones

para el Sorteo de

regalos en la

GRAN FINAL NACIONAL

Patrocinado por

INVESTRONICACECOMSAMOTOVESPABELLTONS, S. A.

EDITORIAL PARANINFOREVISTA ZXREVISTA TODOSPECTRUM

SOL1CITE YAELCASETEA SU PROVEEDOR HABITUAL

2925 ptas.

PRODUCIDO POR BELLTONS y PARANINFO SOFTOBTENGA LA MAXIMA PUNTUACION Y COMPITA EN LA

GRAN FINAL NACIONAL QUE SERA ANUNCIADA EN ESTA REVISTA

Page 20: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

•.:j Jr I.™ iifdrnaJo

bo lus HP >- HP

5 Je |m,:i>i v

iii'in lu .it- pasar pur

.1. i. ii i !u FScil, ouei

i 80,

HUH). |600.

(.r.iph.1 B-. Um ,<IXWJ.

*0 REM DaJid Bibera Cm3d PAPER 7 INK 0: BORDER 540 go 5ub soeo

i LET 3=19: LET

5« PAINT BRIGHT 1.P.T 1,7, "ft 1

.hec-hje ift"ieo print '"Ei ttierono tuma

n La Jt?atui-» d« pouch dtl d

128 FOR n=l TO 4: BEEP 1,3,10;PAUSE 53: NEXT n148 PRINT ST 5,li3, "-HELLOT'isa beep .i^-se beep .as.seieo print "Contest* on poutii?a pmuse lao print •'• -&qy

ENCUENTRALA 51 PUEDES. M JR JA OA!!, VA A EXPLuTAR DENTAG DE i MINOTQS."isa pause iaa<=03 CLS21B PRINT BRIGHT 1, "EL J£p = ,--.»Minto d* di*tur bios tiha ai«gido

'PARA DESPLAZARTE EN EL F

que", at at, 18;

408 CL5 :PRINT '

as pal nrra a

458 PRINT PAPER 5,

A

I

a,i

sao for n=i to iaa510 LET bl«Sl*INT lRND*a!SiO LET bi=»3+INT .RND*b)55C IF bl>5 OP t-2>6 THEN PRINT

PAPER 4. RT bl, bi. " "

5&0 IF PND<.3 AND ibl<=4 OR b2

(

= 5) THEN PRINT PAPER 4;AT bl,65,

See SEEP .305.84.590 NEXT n683 LET «*M-S1»INT iRND**)610 LET **X=i2+INT <RND*bl640 IF ATTR isii .*;-.*.

i= 32 THEN Q

TO 600ioaa PRINT BRIGHT l,fiT Sl,S8i"t1010 LET llBftl: LET B2=S21830 POKE 83673, a POKE 83672,0,;.;c s&t-i mo'. ir,i*fi '.:

1581 LET ttlSB-INT iPEEK 83673.5. 1+PEEK 23672/50)

Page 21: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

1585 PRIST hT 0,23-lEN STR» tj"TIEMPO ;"i t1510 LET i(=INKEYt1=15 IF INKErt-, >"* THEN PRINT ST

153& IF i»="5" AND ma;s£ hNP RTTR (H;i2-lio3s THEN LET iti = r,i«-l

1533 IF a*= i1 RND hltgg AND RTT

s ::., .f. . i,.i-: :;.-: THEN LET ml=i)ll + l

1540 IF (( =: RND nii^U MNP RTTR in 1-1, 111 S j < >32 THEN LET r.l = nn-l1550 IF as =£ hNC njtSa AND RTTp (nu.sii + ij -.

. o= THEN LET rne = r„2il1680 PRINT E-fiiLinT i.hT l« 1 , IB 2 ,

" ("

.650 i-ET r,l-ml _ET ni=Ni21700 IF Ir.-E.i .• " ThEN -SUIT STni.naj " "; beep .02, -49

P.C0C IF ;..=»! fiiiD t:-..-:=ro£ THEN aTO 3«00

2200 if t-,=o then so to 4000asso :-o to iseei0£3 ."RINT 6RIGMT

ioc5" = 0R n = i to 1il/ni - BEEP .l,n*30 US FOR n = 10 TO.05.20* il.Ti) . BE

3100 PRIST BRIGHT

. -i, 175- lia'j.il -4,n;NEXT n

.11350 i-o; r. =0 TO 594100 BEEP .01,-40 CLS BOPPfPN0.7: PAPER RND*74 150 NEXT niiCC SC'.I'E-: E. PAPER 7: OLS,i = -,. jT .ii . 4 iJ M-M'.i a, 30.:t .;=. >:; :.,-:h..j 20,01380 i-l-IM' AT 6 .

1"; P. I. p.

; FlPS 1 1 J AT

BEEPne-.t

STEP -

05 , 4.0*

oEr.P

6100 IF IiiKE. * = "r6150 IF INh;EV* = "i

E£O0 £0 TQ SG00

5, "OTRR 'JEZ-

THEN STOP

d,)Gi.EuTPfii.H §v _:e: :

"ft 5h6.3Th.JE (ft

Page 22: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

TE OFRECE

Al ser importadores directos. podemos ofrecerte Ic

Con cada programs adjuntamos las *

SEGURIDAD

AHORRO

AYUDAGARANTIA

COMODIDADBasta que nos escribas a l-t^t^S Safe*.™ PONZANO 25. 28003 MADRID, o que Names al (91) 459 93 90 indicando

lo= programas que desees entre los que aparecen en este anuncio. Los recibiras contra reembolso en to domicilio**

o software durante 4

==-1 j""T 'M ,! T a\" '° n,

'°":'r',, Jfc-y^^l .

'" '

. ss r defensor de

Page 23: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

K§Pt|Ss,<is»,« Ponzano. 25- 28003 MADRID- (91) 459 93 90ERBE SOFTWARE ES UNA DIVISION DE ERBE CASTELLANA, S. A.

Page 24: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

MINICONTABILIDAD

iirve para almaienar infur

iirnabilid.nl diitnestka. V/imgrama e*t:i ilivididn in

iliis panel, iledicatfas .1 ug

peiius bam ji 1. o I j primer a.

y a dams estnctmneoK do-

mesticus l.i KgutkU. Vim-

i litstintns tipcionwque present. 1

:

BANCO

OPCIONKS:I littruducir nmtepnui

[ pueden riumducir de I .1

H mncepliis que serin re

penriviis en Ins dine mesisSu lunjiiiud maxima es lit

;1

Cambiar

frasa Jc nui'vn .1 I. is u|Wio

i Vi'iilii.ir Hiwspliis

Imprinw k» umceptiw dr-

1 [ninniudr dmim Sic

pundcn Ins darns Si tl mesM.kiiad,. es e| 1 [UNliROIpide el s.iklii del ,ii"m amiriur. awmiilamkilii lada mesiiasia fin de aiiii Ult«isnlitiia pur order) Ins Viikl-

11 mix-plus y Ins iiiipriim- en[l.inE.llJ.I. d.UKltl .1LIE11lll.il 111

nadus del incs iorfcsp.ui-

). C.imhi.ir darns. Cam-

3"'

dot i) del t

del 1L-»piMl-

7. Gisa, SjIij ,1 la sec-

rion ( ASAH Almaitnar propruma

una eiiqinM esuoli-uda. tn

exic caa. "tontabfc 84". lue-

ri/itai .niiiiiii.iiii.i

ncfl Coorepttt* ion sus co-

rrespond iente* dams. (Cu-111.1 la memiiru del nrdena-

diir no esti loialmenie ik.ii-

piidHi rml.ivi.i si' podrijii in-

trni.liii.ir husta (lien umtep-

u> dams ifjimo la memo-na del iirdenadiir nn esia

inialmeme ucupudd, tmlav i.i

st podrlna inimJ.iii.-ir mjSd.nu.s alrerando el

ile 1 .iriabies de la

Al iittrndueir h« darns hayque rener en luema si sunpiisimns [tngrcllK) 11 nefia

livns (pasrns) y,i que teller

si son p<»l'

(in . m^n s igas-

1 qi«- el nrdenadorsumara Indus Ins dalus par.

dar el saldo. Si 1111 se van

OPCIONKS:I Intiududr umcrptus

\ dalns S.ilnn.i el mes para

INT I PEC'a ols;t.i;.iO'

lie print paper *. at a.a;- a6HN00lie PRINT PAPER 6. AT *.*," 2

iae input -seccion ,»•14Z II- ui» = 'l" THEN GO TO 178150 If u(."i'- THEN GO to sea

13d

INT PRPER i,>_CL =

190 I 1INT I

NTRODUCIR OONCEPTOS±83 PRINT PAPER i,i

AHBIAR UN CONCEPTO310 PRINT PAPt-R S; 1

ERIFICAR CO-i;EPT,.j£28 print paper s. (

.. ..;is datoslit point paper o,(

CAtlOIAR UN DATO

S40PRINT PAPER S,t

RIFICRR DATOS ''

SSI CRINT PAPER 6.(

see PRINT PAPER 7, I

i-..-iH, £r.M~ t-:OjSBMp-a?e input opcidnsee if zm"£" thensge if zfa'i 1 then

per 2 CLSJ0<2 If !«•

=ER £ CLS

t-ER 1. GO Sul

THEN BORDER S PRjo to *ieTHEN BORDER 3. PA

jo to 4iaTHEN BORDER 1. PA

BIO 00 TO 538' THEN BORDER 1 PAsic iio to saeTHEN BORDER 1 PR

Sie; 00 TO 530< go to see

360 IF I#»"ff*' THEN GO TO 888:t: : jO to 27aj-0 INPUT NUMERO DC CONCEPTOS1 * IS) "in380 IF fiJlB THEN GO TO 38«488 DIM «|[ft,17) DIH Bll2,ni118 FOR k>1 TO n428 IF If.'l" THEN GO SUB 528425 LET f.B LET OJ."0": IF Kl9THEN LET fl«»""; LET f «3438 LET 1 .« QO SUB 788: PRINTINK 7;AT *,f-J;St,'Uii PAPER 6; I

Page 25: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

450 IF

INPUT... IF4=0 if

GO TO 47(

tc5ncepto numerg '

then go to a?aQQ TO 470

I TO 370_ ..iPUT C0NC-. . .

490 IF x«0 THEN GG TO 272490 If X;n THEM GG TO 470500 IF J»»"a" THEN GO SUB 530:

30 TO 410513 IF z»."5" THEN GO SUB 68B

GO TO SG0Si* INPUT "CONCERTO "

; t IX ) ; Rl

IF I"6" OR ZC>"S

HEN GG SUB '

560 LET '

570 FOR »»i iu n580 IT I»»"4" THEN SI5B5 LET 7=3: LET gi»'THEN LET 9«-"": LET590 LET !•?; 00 SUB '

610 PRINT PP.PER 0,

paper ;

GO SUB 760- -,3, 80; "

2,38-j;

6S0 LET i

630 NEXT X640 LET c (m + n «c im+i) +e <m) : I

; .t :» -U tiO 5UB 750630 PRINT PAPER 7; INK ; ST :

,3, " SflLDU, HT . +1 jj-j.

660 IF I " " 'tS?N ,

690 1. _.630 GO SUB 730

i 370.

i'S" THEN CLS

'30 RETURNINPUT 'SRLDO P.NTEP.IOR '

740 return'7E0 LET dja""770 LET Y.-STRi i

780 FOR j.l TO LEN?90 IF y< ( J! rdl TNI600 NEXT j: RETURN

Page 26: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

538 PRINT PAPER 6;CONCEPTQ

6; INK B, HT 8, 20;

"

TO 18*mio-ia RETURNase spiue " -GO TO 1176SS8 BORDER 8: PARES: 3:™ "J, ST 0, J-

PAPER .

iBER 5;AT 6,8;'

Er.ij OP;

,; 3uD'_.::saa prl.

;.-:fi:sr5aa prini furt™ j, en 9 ,v

,

AMSIAR UN DATQ'3113 PRINT PAPER *;ST 18,2,'

BANCO9Sfl INPUT "OPCION '

i borde'-£T :

;

I T0°9i

_ I 00 TO 368OR s»= -£ OR it1: PAPER 1: 00 :

GO Tj 1818

' THEN INPUT "CON!

1288 INPUT "DIA-CONCE!

1818 IF C|im,z) "THEN GO TO 1188

182B INPUT lc»Cf« ,1) ) ,<

1838 ir »«»"3 B THEN CI

1818 IF d In ,i) »0 THENIflia LET i =d in ,1 j ; GO1855 LET 9|x"0"

: IF I

1868 PRINT : PRINT INIarea 6; ink 8; " ";(|ii3; INK 7.T0B 33-jiy*

GO SUB 768

, M|.l.IK 8;Ti

INT AT B, 9; "PARE LA CIN^A.7, "REBOBINE LP CINTh ATPULSE PLRV PARR UERIFICSR

BANCO

a

nENU OPCIONES

INTROOUCIR CONCERTOS

CAMBIAR UN CONCEPTQ

UERIFICRR C0NCEPTG5

4 INTRODUCIR DflTOS

5 CAMBIAR UN DHTO

6 UERIFICAR DST05

CASA

ALMACENAR PROQRAMA > DRT05

CRSB

8 MENU OPCIONES

1 INTROOUCIR CONCERTOS Y DRTOS

£ UERIFICAR CONCERTOS V DATOS

3 CAMBIAR UN DATO

Page 27: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

Asi es la impresora GP50S. Pensada y

desarrollada para ser utilizada con fu

Spectrum. Directamente. Sin interfaces.

Ademas con posibilidad de imprimir en

diferentes colores. Para dorte, aun, mas"color" a tu Spectrum.

Y como estamos celebrando la apertura de

Sinclair Store 2 queremos obsequiarte con

un CHEQUE REGALO por valor del 10% del

importe de la compra de tu nueva impre-

sora GP50S de SEIKOSHA

Ven a vernos. Ahora tienes dos puntos

para elegir. Podras ver, ademas, la masamplia variedad en accesorios y software

paro SINCLAIR.

Y recuerda nuestras increibles condiciones

de pago (desde 600 Pts. al mes).

SOMOS PROFESIONALES MMDiego de Leon, 25Tel. 261 88 01

Bravo Murillo, 2

(aparc. gratuito en

c/. Magallanes, 1)

Tel. 446 62 31 - MADRID

Page 28: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

CIFRADO/DESCIFRADO sdoopus

CIFRAHClavi 'lib™

Mens. ;i origim

do el ordenadiw:

ii- riuYiisiubs. numero ni

i daria p m.'.s ai posibk'

lifrador. S «e i ir -.:.'.. t

liiscula, »-' ; ; | •

icar el fin di I mi nsapespudu, t prujjiama in-

i el erro: unpririisoido

signo de .i',ut:,.|;j 1 i ;,n.

siempre Be rifra de la misrMftforma, depender a de in pi' -

'

liciiSn en r I mensaje. It) que

hsw iinposfWe descifrsr es-

1 !.,.j rspacios •:<

dfran, pot (aoiu, da .gu

Hue escen o qw no^ hi tin dr incnsajc

iodica cun (SIMMS.SHIFT + M)

5. Se podri borriir

apretandu la teclo "O";

obstante, caando se esre ti-

frando o descilrandu, no si

Page 29: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

BMH* inripcrnmpfi"1r"'n"a. "1 Talt.65E 311 1?. ZBOi 6 WarJnd LH

i p n n d u c r o Hill |

ZX=v:,i n!,,i--i..«™-f| wtesDEuivin inn

Incluw.to.nmm.t.iD a l».r .It BIDEBCOUf. S 1 |,„, . n, in i.i

tow M MM.

Page 30: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

ck-Si.-itr.inJi.>. V una "E" si LTukjuiir i -n^j ru.l l ai.in.L

escribiendo. el textt! Bene 20 tineas de

Una vez que no se pantall.i. st- pudri pjsnr a In

ajes. el prugrunia se cribiendn.

•borrari" en 10 segun- 9. El progrinu se jlma-

renaencHitacttti'XWE*"

j j"vt V""jen'

l)

tem'r .ii.i.'.in.iiiLa i. h'nea 8100) y l,>

|.L-i-Min.ii no autorn10. El pm.ur.u,i,<v

crito para un "ZX i

. REM clf r.do (2. .100 byteSl

CL5~~BORDER 6: PHPER 7. INK

RHfl PRRF1 CIFPFiR D DE5CIFRHR"

SB

36° PRINT "TUB IB ; " INSTRUCCIONE

•90 PRINT —Esta programs pern.

REM initioCLS : INPUT -cifrar, descit

GO TO 12!

LET .5=CHR» ('.CODE Ell -3E)

PftUSE 150: Cl-StuPRINT FLRSM lilt*; TLRSH 0; C

HllB

B|iET trrB- LET n«eMH BUCK principal

LET a=CDDE INKEY»: BEEP .B5

IF a 1132 OR a<97 THEN LET bLET 91:32: GO TO 2110LET a=a-97LET n.n+1: IF n>LEN C» THEN

LETLET c=(COt>E c«tn)l-97

= "f "LET b=a+ic* le *= c 1 i - (e* <e *

IF b>25 THEN LET b=b-2SifSI IF b<B THEN LET b=b+E6ilBS

PRINT hi; FLUSH l;kl; FLRShi

TO 3500si*a

PRINT "."3010 input "Lo inpriso-7 ls/n)';r

IF r *="n " THEN GO TO 4.000384-0 GO TO 3a 10

3510 input "Lo i mpr i no -* (s ^-n) ';i

*

LET Cr=0:^PRINT FLR|Hil, K>; l-LR f

R* Si : GO TO SI35*0 GO TO 3511

4.030 IF r*="n" THEN CL5 ;PR:

io^iiegundos": PRUSc'saB: NEU

INCORRECTR"; RT 14,5; Fl_lEMC LR CLRUE CORRECTR"PUT IS

PROGRRHP. PRRR CIFRRR _0 _DESCIFRRR

INSTRUCCIONES

Page 31: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

iPOr Fin El Monitor En ColorPara Spectrum!

74.500

"*Tenemos ImpresiqnantesVentajas

0*

Sorprendentemente. el

cub de Microvitec, es el

finico monitor aprobadopor la BEAB con unasalida especialmente

diseiiada para aceptar la

serial del Sinclair

SpectrumDIRECTAMENTE.Este niismo monitor

tambien incluye unasegunda salida pararecibir la serial T.T.L.

para el uso de otros

microordenadoiincluyendu el Sinclair

I„ ORIC 1/Atmos,

Acorn Atom, BBC,Sharp, etc.

Esta sorprendenteventaja sobre otros

monitores viene dada. pur

la gran brillantez de supantalla. gracias a su

resolution de 585 Pixels

en horizontal por 452Pixels en vertical, y unabanda de 18 Mhz.

mcrowitec

MOMTORES COLORb ®

Es importante milk-ar

que el cub de Microvitec

ofrece una reproduccion

en color que nunca podraproporcionarle unatelevision domestica.

Multilogic, S. A. tiene

disponibles va estos

modekw (1431 MZ4) conuna GARANTIA TOTALDE 1 AftO

DfSTRlBUIDO EN EXCLUSIS

multilogicRamon de Santillan,

7SJG16 MADRID TEL 458 7473

POB:

Page 32: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

BILLAR AMERICANO mmFina men •. Jw* m,s tJctli in! (!f) K S|U'ttrum).

Ni>rWV< rjpliif H a Lint!

... 1!.., 1:

n. .. <:

1(1: c ruphtf A

mpfcic A . ii...

?8£fi? St gX eiUs„T' 0: CUNO

103 DAT ft

3,0,

il:41i*tli*a«.»H?265

PPPER 0:

'*> PT 16 a^" '.

310 PRINT AT 15, e.,,l"',RT 1 &*"" .31;FOR

T 0.31, '»"" "iff? a, l

IfciS'^1"'

6,i6.-*' ?•**»

323 uW

*12: LET L == iCri;-

:kt a: eeft

Page 33: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PARA LLEGAR MAS LEJOS...

F MICROSOFT BASIC> FORTRAN 80 * Microsoft Logo * COL€CO tortuehos

JJ1~,: CP/M * CoLul 80 * MACROENSAMBLADQR Z8G * Ensamblador CP/M

""s?ec'!;;s.xs .:;.:;:. .!"",.','. ',;;:,»,',NV, PANASONIC. PIONEB1 cadi [ji!: !:.! ,°. '.n, .;.,l

SANVO.

•—• »,=,,..,. ™"" .,„,. "";""' gj «££»MM S

NIMM K TSCLAS

'.;-,-'. El- .1 " -Nil !: , ..

,

ranftmKs.,.

B B

ti." >SK' MSI (mciniH)

sir

NO

PRECIO PA/ P. 76.000 49 900 168.018 79.900 58.50D 140 000 67B0O 59 500-

indEsnnmpHARDWARE H^>-

Page 34: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

*6- LET

LET

-171

518 LET 8»«j t-C r*7; LET ^2-20LET «i»S8A 2: IF 1*3 OR l>13 ORC<3 OR C>23 THEN LET £2«4_ imr^

l-UlsSa let

.

.- c . ,

a=i.Cui 0. LET uiaSQR»K8' If 'PI ™EN LET

OYER l,xl+x,«l+

l')*PI/12: IF 0>2iPI THEN LET o-

56iS PLOT INK 3, OUER l,Xl+X.Wl*j

; DRAW INK 5, UUER I; xS.vS: IFINKEYf*"!" THEN SO TO 568573 3u TO 520530 LET kO»5IN 0. LET C0=-l0559a go sub leae let i«a let p

"sea LET i=ATTR lltlO,(»C«) i if:=C9 OR ;=al THEN PRINT RT L.c;OJER u).

M " 00 TO 685

31B LET ir,l,.i-3a-9: LET i*i*7;BO TO 60Siaaa print paper a, flash i;rt i8, 2. "INTeNSIDflD": LET i»7leie print at ia,ia-i, ink i; brIGHT !,"". RT 2a,ia-L, INK i; BRIGHT };'"iaaa pause 9; if £NKeYmo"l" theN LET i«i-l: IF i -

1§38 IF INKEV«="r*_TMEN.LeT.

J - . 1 1 * :

=saLET

i .INT it/2:

ia*a co -

iesa letSTli INK

URN

TMEN GO TO

ET

PINT PAPER 7,RT 1";BT a«,*. IN

SO TO 10202eea print at i,c," ": quer i. i

- PAPER 3; PRINT AT t+lo,C+C'i FOR J=48 TO -18 STEP -5:.8flS.»: NEXT a, PRINT AT (. +

+C0,"4": OVER 3; INK 7: PRPE.. IF v«l RND inK=7 TMEN GO TO

2588aeas if

r°4?+

:

25882885 if muj then print flrsh i,AT 7,2. -LO 5IENT0, PfRO RL METEft LA ", HT S.5, 'NEGRA HilKbR Lfi PA

RTIOA' FOR *=1 TO -28 STEP -6:BEEP .1,8 NEjkT PRINT ' -PUL5E UNR TECLA PARR JUGAR OTRA "; PAUSE a RUNaaia let j ijj «j ij> tii print at i6*2iij,2B, PRPER 7, "

" i «T 16 +

a. j, as, ink s.jiji: go sue 3©aego to sae-a

ssae eeet •Oa BEEP 1,-S: LET jtj)"jij)-lpint Paper 7, at i6+2*j.2s,

"

-,RT 16t2*J,aB, INK 2;j7ji: Gi

449CO

seaa if. 382a3818 IF j.l AND

.

k go to 3aae;aae print oyer i.at is.i?; flhsM lj=il." ",RT 28, 17; FLR8H

,

i j=2) ;

" ";RETURN i

7888 3AUE "biUlf" LINE 1

INTENS IPRO JUG .

:

*

Page 35: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

ELZL

yi/llllUAVWr/#flltllti

inMi

.^MA^^PP*- «IK*S^55 K^H^M^M 4 EALFARE5 H

jQ^J/ncvc/digit C/„ T.„„. 2„ S 1a..^ ......... . ^

Page 36: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

256COLORES

capacidad grafiu delSpretrum. Nusotros. vjm.is

"a lejos; ,Nada menus que

256 mlucesl

Esirutrtira del programs;— lineas 20 y 60; Defi-

nition Jc variables.

— I.ineas 30. 40. 50. IJe-

Finidiin dc grfficos: "A" Li-

neas hi>rizonrales; "R" li-

neas veriicales; "C" puntosi modo de ubleto ajt-ttrez.

— I.ineas 70. 80. 'X): De-rimcii'in \jrijbles alfanurix"

i el di-

1 10: Prepu).e grafku ikif;

SjOOOPTASPRINT principal de la. lines

210- Un« 150. 160: Defi-

imprt-sii'in disiinms hliiuiics

posiblts: I" i FLASH I, h(BRItiHT), p (PAPER), i

(INK). El POKE 23692,255de U llnea 210 m urili/j

pjta evitar el SCROLL

raphic A, V

, 2?s . oTsss , e ,BS

"' MSJCT a

•:i ?!

THENrGO 5

V <1 OR " >S1

THEN1©©

1? S

.y,.-,.. o« K.EV*-o-

Page 37: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

zaa pause t

EAB NEXT P

3£B NEXT f

37B PRINT BT

BOLOS disposition de hater hhIu

claae de plenns. La figure del

He iiqiii una nueva vet- meme por ei matgcn den1-

wi ili-J pLiej>i> ill- l<« bolus, tho v pjru abadr kis bolus

'Tim poJri ver el grificu solo babra .te prcsionar l:ii.i1-

1,1,'. L.i'd.f.Lulrjil nmsHci 1- .idi-ai.ido: Dispone .It 10

niveles de juetfu, y eras ul- tiempo. (16K Spectrum).

5 DIM RUB

°ii i ) + c cj-i> »S) e

A-i^SiL1?-?"

*^ print RT x,i; •»•'; rt X+i.X; "

«^gTN|Jl,i.-l

TO 1 STEP -1: BEEP

P=B + 1

5JW0PWSNo! s gratoLini iphiv

Line aphit

Apremiado coo 5.000 pe-

1 RECORD EN

iaa print 1

WBB PRINT I

TIRROR5=4.

Page 38: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

TANQUE

10: Graphic ABGraph it CD

210: Graphic CD405: Graphic AB605: Graphic E

Graphic I7

805: Graphic G

Graph, H L nea 2505: GraphicGraph, K Graphic(naplu

K 1 nej 9060: Graphic

nea 60t)0: GraphicE L neu 74100: Graph,

5.000 PTAS

r

S BORDER 8: pbper;

Page 39: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

El mercado, lo dominamos

n

Commodore COMPUTER VIC-20

Microprocesadon 6502 de MOSTECHNOLOGY de 8 bits.

Memorial 5 Kbytes de RAM)s a 32 K.

C.O.S.E.S.A.G/ Barquilio, n.= 25 - Madrid-<t

Telfs 222 69 49 232 36 44231 29 1B-221 55 07

Telex 49771 GOQUMADRID-4

',, "? -'...-'.'..,.

TARJETA PEDIDO

-^€-

fcS^N'

/ {Cataiogo ordenadores)

!/ (catalogol, eK' 100 Ptas.

Page 40: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

THEN LCT U-U-MT- CO

22,30 IF BTTR IU.S-1) .13 THEN LET

CT P 1: PRINT INK 2 RT u,b; "

= 12 THEN

PRINT INK 3;RT <j,b-i;-'»RT •J.B;

ft£££^rT NTO

2aSlB

U'

B; " *";«

IF BTTR lU+S.B

B"jR,o; "§ s

INT INT B=INT Y TH

3 60BB

IF P=l OR P=2

" ";RT U+1,8;

"

LET X=X- tIMK.EV) + ( INKEY

?Sf"IF NUrt=15 THEN

S.4.; "GRNR

3879 IF INK.eY»-"2" rMEN GO TO *BIF INKeY»."B"

!•""

Y: BEEp'".'lt.81«N, -1GO O S0BB

FOR N-S TO K: FOR J=IB T! PRINT

6S: NEXT J: Ne

FOR N=9 TO AGS.1,66: MSFOR N=i TO 7:

NEXT N74 B0 3RINT INKT x,y; "-.r

:

-.;:" ;ftT X+l,Y;ftT X-l.Y; Beep ,1,-61+N: NeXT N

PRINT FLftSH 1; QUieRES juon

9010 FOR

3B3B POKE9B4.0 NEXT905B NEXT . ^T906a for o^a to as i

letUiIPJT (RND»191 : PRIIn.Tti; ': ncxt aTO 1 LET T.INT IRI

"»*»*': NEXT;t,W; ++**"iPT 1

gaoa for I20: PLOT 33,40:

p,0: DP.AU INK 3;i»,-|

,63

till BrtS i;i;Sifl?d;2Si:isST74,

lit! glf§ 1***1 :fli?tiZ?io5:£8A?

ai7E|1ORTR 1S6, 140,314,146, 124,16

9lla1rjRTfl 126 , 2S5 , 35S , 126 , 255 , 25

919B DBTB 8 , BS , S , S3 , B , 127 , S ,

B

320Q DBTB 0,00,69,126,126,60,90,

±±**4

Page 41: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

DE TODA CONFIANZAASIESi

Por algo es el Servicio Oficio.1 INVESTRONICA poro los productos SINCLAIR

SIN SOBRESALTOS.Grocios al "COSTE ESTANDAR POR REPARACION" siempre sabes, de antemanc, lo que cuesta

el reparor tu microordenodor SINCLAIR, una vez caducada la goranlia de tu equipo.

Sin presupuestos previos, sin gasfos adicionales, tenga lo que tengc

In microordenodor, por mucho que sea, el cosle siempre sera el mismo segiin el siguiente cuadro:

Aflemos tienes la goranliu i 0.^*111de que tu equipo sera reparado l^HH-—

C/ Anbau. n.° 80, piso 5.° 1."

ells: (93) 323 41 65-323 44 0408036 BARCELONA

-DELEGACIONES HISSA.

B. Bloq 1° Entl Izq. D.

Avda. de Gaslelz, n.° 19 A - 1.'

Tall.: (945) 22 52 0501008 V1T0RIA

C/ Atares, n.° 4 - 5° DTell : (976) 22 47 0950003 ZARAGOZA

Tell. (954)36 17 08'

41009 SEV1LLA

0/ Timffisin de Vigo, n." 32

HORARIO DE ATENCION AL PUBLICO: de 9 h. a 13 h. (excepto Madrid: de 8 1/2 h. a 17 1/2 h.)

AMPLIAMOS POR UN ANO LA GARANTIA DE TU SINCLAIRSi to microordenador SINCLAIR aun esto con la GARANTIA INVESTRONICA vigenie y deseas ampiiarla por un aria mas

(a padir de la techa de caducidad OS la mlsrna), nada mds sencillo:

HISEA le ampiia la garantia pot el rnlsmo importe de la que te caslaria una reporacion.

Rellena el cupon can lodos tos datos y envialos, con todo lo que se te indlco, a la delegation HISSA de MADRID

.

A los paces dias reablras tu NUEVA GARANTIA

- CUPON -

D con domicilioen ..

calte/plaza ,, n." telefono D.Pdeseo ampliar en UN ANO la gorantio de su equipo SINCLAIR, cuya GARANTIA INVESTRONEft aun estd vigente.

La fecha de compra del microordenodor fue el dla ,„ de de 198Para ello adjunta, a este cupon, la GARANTIA INVESTRONICA y un talon nominal a HlSSA por el siguiente imporle,

que sefiala con una X. —

i

rpr B(enj3j50PteJ|"Enviar el cupon Firmado

V-l » -*..miRK'U'2bUHtaS.B o HISSA.[Oj^ctrumJ6M^^il c/ SQn g^ 3n=rgjw4nim 48K: |6.3WJ^J| 28Q37 Mfipgp^

Page 42: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

Pregunta: Mc parece es-

resiva la cantidad de pro-

gramas de bingo publica-

que hay persona* como yo

que no les gusla el bingo

Resuuista: I": v id c

n

[Ctucii -

[e hay gustos para todo y

qui/j* liaya resullado c\-

lero 5. Podriamos ha-

re siringido la select ion,

pero quisi

indo 1;

Fregtmta: Poseo an ZXSpearum 48K que, per

Canarias no induye ma-nualcs en casiellano. lo que

upiovechamienlo Agrad,--

;spues

2.100 pis. B precio de la

t'inla a la quo bare referen-

da es de 3.700 pis., inclui-

dos los gastos de envio.Pregunla: Tengo i

po deantigosque poigual que yo un ZJC Spcc-

Kcspuesta: Supti

problemas no es

Pregunta: Tras acnplar

una impreaora SEIKO-SHA GP-50S a mi Spec-

que es posible sacar unacopia del original que sc

imprime. Mc gusiaria que

10, que sera del programaC, lo que ocurre es q.iibri'imprcsioniin las

elememo de la tabla "y".

Viendo la instruceion 20,

.ensionado eon solo dos

eii'in que hauen referencia a

esas tec las-, para que rts-

pondan a oiras teclas, Asi

si ikseii pulsar la "A" en

vex del "j", ptiede cambiar

la instruction que hacen

Page 43: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

tmpriiniendo en pantalla de 2 por 2 6 4 por 4 pixels?

una serie de lineas que (Para que sirven alguiios

forman. en Iresctapas. uno signus como "#". "@". "•'

ili'.Liiiiin.iiii- grnficos. o "£". si es que licnen

Mi pieguma es: jCiimo alguna luncion como "$" orejli/ar graficos mediaiite ":"?

este proceso? Patricio Garrido

C. Bravo MurciaMadrid

LECTORES

len de las lineas 5 y fi da la nos ha comentado es lo-

ei.saeidii de un error de talmente correcto. De to-

irograma, dos modus eim, pruebe las

Manuel Seco de Herrera lineas 4. 5. 6. H,30y40,IoValencia que hay cure eomilla liene

que ir en niodo gralko. ARespuesta: HI funciona- eonlinuacion tiene el lista-

nienio del programa que do de dichas lineas:

i

i

Hespuesla: Los grificos Respuesla; Cuando an

4i!i- atwecen en la- einla- programa llace relerencia a

J. luciins so,, cargadas con ""' 'f'reee.on superior a la

ei eoniando .VCMXtt. v -"-'- logicamente no se

,li la misma m.ma'a se reflere a las variables del

1*den almacenar. Para ""*«". .*'"° a ».11 PpW"-

cllo. cuando lenga un era- ma en codigo maquuiEi al-

S FOR 0=M TO CODE "» "

E FOR fl:=H + C TO CODE "V*-C11 LET X=CODE "3B LET X*X+(INKEY*='S" HN£> X<C

ODE 'Vl - (INKEVt ="5- AND X>CODE

*»IF F>CODE T'" THEN GOTO COD

cumando: SAVE "nomhre res "lr u.

n numera de pi-

;le! traheo" SCRLLN*. V ^' ! - l[lit"

1 """ •'S P llr * °

de la misma forma euando posible. ereando una full-

uuiera earmark, tendia Que "• ^ue '"•-''kec la conver-

,1,,- 1, ...den de: LOAD sion. pero no s.mpre es

"nombre del graTicr)" lactible. ya que un caraetei

SCREENS. reprcsentado por unacombinaci6n de pixels in-

ferior a 4 por 4 es pricti-

Pregunla; Me he com- perfeelamente aeepiable.

jrado un mitrodrive en ya que "a" es una variable

lnglaterra y me vino el que toma su valor en la

cassette de demostracion linea anterior. Siempre queestropeado. Al inlemar el valor de esta variable

cargar el primer programa est£ entre II y 7 no habraa maquin.i ilaha un Ilk- mil ningun problema. En cuan-

fabeticos). Lossignosn queVd. hace referenda no lie-

Pregunia: ,,Por que en nen ningiin sianificado en

cintas como la de "hori- Basic, salvo el primero conzonles" en el listado del el que puede direccionai

proiirama wenen dircccio- operaeiiii.es de entrada v

lies eon cil'ras de .1(1.000 en salida de informacidii. es-

.iilehnle. lnicmras en el pccialmeme ^cin el micro-

f%v de msLruceiones solo drive. Pruebe las sigtiienies

.'mi, "\ariaMes del sis- insirucciiits para ver los

;enia" que van desde 23552 eaiiales de salida. (Si nc

ii la 23732? jComo podria liene impresora no podrahacer un caracter o pixel ver el efecto de la instruc-

del 8 por 8 puntos en uno cion 120).

found. Yo lo que pretendo to a la segunda pregunta,es que ii ustedes me harian el programa sera aceptaiio

el favor de grabarme una si las transformaciones soncinta nueva y fotocopiarme interesantes v aportan me-sinoesmuchamolestialel joras sustanciales.ibn.i en espaflol.

C.C.G.Las Palmas

es

mp os7ble aVnder' reTte Pregunta: Me gustaria

ipo de eonsukas por elsaber sni'i! mi nieniii'rai

no,nemo 1 o -scmimos video de alia resolucion s c

nea en la pantalla.90>PRINT 80; "ZX Spectrum": PhU

130 KftlN: di, "ZX Spectrum": khU

~1££ PRINT 831 -'Magazine " PAUSE

i

i

Madrid

Pregunta: En d n.= 4 el Respuesta: Obtener un

nrograma ik quiniclas e.sia mimem de earaeteres dis-

equivocado en la linea 15. (into de 32 es solo cuesuouva que pone BORDER, v de sofiwtin: LoLneameine

grama de vueslra revisla es es grande (normalmenlc el

IransTormado, inlrodu- doblel la resolucion de vi-

eiendole nuevas cosas deo no es suficiente y el

i.puede ser presentado a monitor puede ayudar bas-

J.M.G.T. lener'un monitor para tra-

Malaga bajar con mas de 32 earac-

Respuesta: BORDER a es teres por linea.

Prcaunla: Soy poseedor fine para 1 Kbyte" de la

de un ordenador ZX 81 y pagina 39 no admile s

al iratar de inlroducir el proceso apareeiendo e

pro lira ma que llgura en la error B/7: Dado que lo

revista n.a

1 titulado "Son- valores de la linea 7 depen

Page 44: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

SATELITES DE JUPITERCon cmc programs pudra

idenrificar b siruaiii'm de his

Cuatm srirelires de jiipicer

mis hrill. lines destu bier cos

por Gulileo, sin lener querecurrir ill laboruisu pruteso

en las ubbs mri'es|mnJien-

KS, «m la mlsma fiabilidud

y mayor tomodittod. La rea-

iel 10 ill 1201. scimruttuten

-s In fecha de la que se desea

pcriodo tit tiempo en es

Jin piK'Jt- rclici l.i duraf]

que se ilesee. deade minui

tmniJuicin Lis datus, Ji-«

el primer ill ultimo dia i

riles uirrespondiente 3

kill.] ilt-j;ida y di-Spnts

periodos tie hurus y minui

Jia. (.mi uLijt'to tie evitar

salida de pjnulla si: tuntit-ra que e! niimeni de i

. BRIGHT 1: BORDER 1: PRPER S

I SO TO 40

110 REM '

' 180 LET\

130 REM '

ISO LET i

isa if ni170 IF ll<

/100: PRUSE 5

163: LET tlrt! LET I

5JD00PTASf

EN LET q«?oo if iTHEN LET210 LET

31 Jc»**9!

ISno/4.580 ORn-ae

til 1101 KH

inno^4.6S5

21 *b*a 13) +

ill *t-ll (12

320230240260260270$8$Sao

EN L

LET dla«co sue eooFOR ««<J TO f STePLET dadl+tLET y«(*712+*nno>LET y=INT y-13LET dj*u*d-,5IF anno ••-INT (anT djmdj-lIF anno/4-500 ORL£- oj.dj*!

REM "Obtencion dl

1/8

•365. SBi

»nnO/4=52BTHE310

320ISO330

LET

LET

-dJ-241EOS0. LET V-PI/

i358.476+.B56fi003*r)

*

340 LET = (225. 328 t.0B30SB3*r)

*

350 LET • 1221.647+. 9O2B170»r) ft

360 LET •l.Q3*SXN r, + .02t6IN (2

370N IS388390

LET .6. 6372. SIN n*. 1673 #51

LETLETl'2iLET

126.07 -US. 486»C0S 111

400 =ifl6N ( (SIN «*V))/h)J410420mi

LETLET

r-h/173ID 1184.5506 +203.40566

Page 45: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

9 W-—W 9^ w

NUEVA GENERACION

Page 46: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

433 LET I

iMJ.Z-3:443 LET I

» 141.6B19+181, 28163

< 10a. 977a -.-ae .23451

- ti78,3SBS +21. 46798

«5.oae*siN u in«9.397*SIN u (3)«14.96S*SIN <J 13)-26.364i.SIN u (4)

1 U.0 THeN PRINT POP

55B LET IliKKIII562 NEXT i

578 LET yl.gl-l538 NEXT59a INPUT "OTRfi RERRESENTRCION

11a PLOT 16, y: drsu sa,a: PLOT.7,u: DRBU -Se,a: PLOT 16,y-ll/DP.RU 5,B: PLOT 247, J-ll^i: OR

I -E,«: PLOT 16,y-M/S: DRRU IBi: PLOT 247,y-Ll/2: ORRU -18,3:

39 TO 2SS STEP 3

' 129, 1S7: DRRU a. -1.69

ii= (

.I'll'lliUillUIII.'l :

RINT PAPER 1

"iaa' returnLIS! PRINT RT 7,18; "5RTE.LITEST 9,13; "DE";«T 11,11; "JUPITERpause ioa- CLS1018 PRINT RT 3,3;

5PU8* II

;;.;PRPER

;

>ES "i INK -CRLI5TO

18, 3j"

1

IB, 3; "

PP.USE 12a

IBM PRINT RT 11

or diuai d* JU-

nae pause iaaa-

'

3*NIHE0E5

Page 47: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

VENTAMATICpresents

EL CARNET DE SOCIO DEL CLUB NACIONAL DE USUARIOS DE LOS ZX(ZX81, ZX-SPECTRUM Y QL)

int'ormaiivo exclusive para los SOtios." Boleti

' Servicio lelef6nico' Fabulosas oferras especiales.' Descuento del 10% y plaia preferente en los cursotde informalica tie VENTAMATIC en Barcelona.

* Grandes descuemos para los socio* dc hasra el $*>"..,

en Sus compras de ordi/nadurL-r.. piTifrncos. acccsorios v programas (SINCLAIR, COMMOI.H 1UHORIC, etc.) a VENTAMATIC.

* ^vieos de pmgramas en cada boletin.

""-rializar los pmgramas realization..isihilidad de ci

' Regalo a elegir al formaliz;

•EL PRTMEROY CON MAS SOCIOS DE ESPANA»

INDICES ULT1MOS NUMEROS BOLET1NES

! LOS DESCUENTOS EN COMPBA8 %

B VENT*J*S OFREC1DAS POB EL |

HO I.. F.TIN DE 1NSCRIPCION

Ah

Page 48: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

RESCATE1 esrc iuegu el jugJLkir

represents a un suldado dc

la ONU (kis coooddos Cus-

ds Andes) que hadecnrrar

;n un campo minndu para

rcscj tar a las per* mas BlfB-

p.i.las denim. Para ello ha

de muverse snrtcando I as

mrnas invisibles hasra llegar

a el. cogerle y llcvarle J la

salida. La difiodrad del juc-

gu reside en que el ordena-

dr.r avisa ante la prokinudad

puede saber la directum

riba. abajo, derecha u iz-

lauierda) it la misma. Se

nunseja probaren el nivel 1

irse emuciunandu poo> a

puco. El nivel 10 es para

Nncas jirafkas:

Lineas 80- MO. 8M0:.iraphic "A" (hoinbrei.

Lineal 8055, H070: Gre-ihic "B" (cercado).

I.incjs M200: Oraphie "C"

5D00PTAS

.izuk-v Niistimn It- invi-

uiikjS a Llisfrutar del me-

redd., premio de 5.000

i ESr'ffl.

(3,331 ;LET

."HSutadO"

30 PRINT

:

01 CiVi l«S 1-traPadiRINT AT 14,4, "Titni

ss pause sa.se6e PRINT BRIGHT l;RT ai.a;"Puk

a una tad* part tnp*i«r"es pause e

?8 prInt rt a.Sj PRPER *,"Conl

"ae'pRiNT rt 5,e, (*) St puana

S3 PRINT RT 14, 1«; FLRSH 1;"RE .

SCRTEI II ' ._ I

SB INPUT "Niv*l d< di 1 1 CU I tad"?(1-bajo- a lB-auo-> ";df : ir di

il OR H>U THEN 60 TO SS90 PRINT RT 21,5, PLASH 1; "But

lee pruse lieIBB LET pl-5: INK 1ne 53 sue saselie so sue eiee139 GO SUB 01M135 LET lh-S: LET Ch-16 _136 LET Ztmzh; LET U»ll>! LET C

at -alie PRINT RT Lr148 1? RTTR <U

ef itSi^46 if RTTR tlf

L*$ IF RTTR Ur

14B ir RTTH Hf

VM*If PL-l THCN PRINT PRPER 3,RT 8,10, "PCLIGRO HINR": LET >lit168 LET *«»INKBV«: If ••"B'' TM

165 IFC

a»i"B" THEN LET CtlMh+l

36 THEN L

36 THEN L

36 THEN L

m THEN L

Page 49: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

Venga a nuestros precios

sin competencia

VBAZAR DILHI: Seine Oilim, II Scrcehna

INTIRJOYA: Mm Cristim, 9- BoKehno

DE VENTA Mul1 WWI* fbza Marin 9- Barcelona IGakribsj

cu. tosGumttiao&iOnmin us- k*»aBAZAR KARDIS: I Cmcrica, 130- MmBAZAR DCLHI: M Sumo 5 tkida

BAZAR TAIWAN: Peps, 35- Hospfokt

VINTAS AL MArOR:

REGISA Comertic, II U 319 930 -Barcelona

WfWU-M^ /A'i;^7TTo,"i ORIC~I l4 l-UJ

-'II JH

Page 50: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

PRINT AT 0^

PRI.NT Pf

T -*>»«'184 IF I

186 IF

'l90 IF 1

LET I

!ii AN

"paper' Br-- *o iei

LET i

,i3a THEN LET .

,>20 THEN LET

.. *t=36 THEN CO SUB 0330281 IF *l"38 AND r«S»l THEN LET

3*8L

IF *l*M AND r«»»0 THEN LET

SlS'pRINT AT 0, IS; PAPER 5;

"

215 PRINT AT IC.CCJ" "i LET CC=Csi8 IF »i"+cn(j«ri<:iv then bo toMM220 CO TO 140

7999 STOPsaea restore eeia: for i»usr "»"TO U&R "»"+7; READ a; POKE f,UA

L ("BIN "+STRJ a) : NEXT f

3905 TOR L=USR n h" TO, U3R "ft?:READ *- PQCE L,s: NEXT I

3007 FOR L=USR BC'' TO USR "C +7;

3010 data nooa;*, 111100,1011010, lOliooo, 100100, a,9023 DATS 0,178,68,170,0,170,68,

Sa22 DATA 0,0,24,60,60,60,0,03040 RETURN3050 REM .

SSw"¥SrerWS5?"PR II

S^^^fTr'o'.Ti Taper sj

8110 LET nTT7. TT^td?*"***

I|| as i:W8V«SjW>i

ueT i

=INT iRND*16+4> ; IF ATTR il.clo

3150 NEXT

3.63 "",

i_4eTURN!

"aT"o",T! i

I: "E5PERE, DePAPER 5;

.FLAS

6170 LET I.... .

5i=v FOP i =i TO minS1S0 LET C«INT iRNC>*30tl) ; LET L

= INT kRNDil6-t3) : IF ATTR 11, CIO33 THEN GO TO 81903500 PRTT lUfi, 4, AT Ut,"'"3£10 NKXT i- PRINT AT 0,0, PAPER

RESCATE

Page 51: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

RNDt.68 THEN LET Ch«r. Ch«r-i; LET cHO«CfcO+l: PRINT PRPER 5;RT B,4; "CIOIL MUERTO

839a 'FOR L«I TO 4Mj NEXT I

Hf IF h«f-3 THEN PRINT FLR5H 1

, PAPER 5;RT 0,0; "

^ mr%HISIuN

FRfiCfiSMDS "j FOR L"l TO300: NEXT L. CO TO 350*'-— —TNT RT 0,0; PRPER 9j

"

; RETUP

,.«; "F*Li Cididei.

'RINT BRIGHT 1,RT_7,0; "Tgn;

3420 PRINT FLRSH 1; AT lB,B;"Ha i

3*30 if'ckojo THEN PRINT HT_,ia.<

344-0 IF s*l+«K0<ri(iv THEN PRINT

3450 PRINT RT 21, 3;

'

3490 STOP

IISI Slfoe.a;

".,

9507 FOR

-32; IF PEEK

351S POK= i. .13

:iEEP i,B;EXT '. GO TO S<9300 BORDER 5

=22523+32 TO 22523*704- ' =33 THEN GO TO 352

9030

9399

RINT RT.MjlJ"!

'RUSE 0: 'go'tO :

23653-2S6*PEEK 23654

NO MAS ERRORESW\ • Mecanismo de arrastre de alia seguridaa

• Carrete mecanico protector de cinta' Evita tirones y arrugas

> Alineamiento de protection

* Duracidn optima\ • Carcasa plastica transparente

'$\ • Visualization instantanea

**i • Archivo tacit

• Busqueda rapida

• Utilizable en cuatquier cassette

• Indice de errores del 0,02 %• D/seriado y desarrollado por:

© I C I

Page 52: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

INTERES

5.000 PTAS

cilcuio ^t iniereses simples

1 cipii de inn-res itffllill. y

. f : - :

;

Page 53: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

i PIDELOS EN TU TIENDA

!

Page 54: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

CIRCULOS

5.000 PTAS

M A.ytk--.

,

.-

Mr. - "v

':.'i

- '- '\;'r„:*\

FLSSH. 11 "6*1.'

to": PAUSE 500: CLSjCIRCLE li

,38,90; CIRCLE 123,88,60: LjtRuL186,38,40: CIRCLE 186,86,30

3 FOR X=l TO 6.

4 PRUISE 30. BORDER Xi NEXT ,

^^i 1/ >J I f .'.

COMPUTERS, S.A.

ffifcw*ZX SPECTRUM 48K

INTERFACE I

^^Hf 62.900'

S BORDER 0: PfiPER 0: BRI0HT 1

10 INPUT "Irurodujca It Prin«rP15

CiF

tp>100 THEN PRINT FLASH 1

20 LET° j:1a*PI*PW LlB/5,78)3B CIRCLE 188,38.8035 FOR <-.0 TO j

40 LET i«W130*PI50 LET sx.60*SIN *: LET SW-80*

' ea'pLOT 188.83: DRRU OVER \. I

m 8; ax ,iy

?1 IFXP«100 THEN PRUSE 150: PR

Ml PLR3H l;"HujO ".Pi < ;

10 TO 500: STOP80 INPUT "introauici SL itaund

1

la' I*np*q'l00'TH£N_PRINT ..FLflSM 0T>

/ (10/5.78) )

90 LET Ka{ CS«f»i<

100 FOR 1 = (j+3) 1

110 LET I»«I./18B»(120 LET sx=S0*SII

"l-0 PLOT 128,58:

140' NEXT I

I

„r -It ZX SPECTRUM 48K

39.900'

Microdrive .

Csrhictms p-

Microdrive .

175

TODO ESTO ES SOFTWARE, ORIGINAL Y LEGITIMO

OFERTAS ESPECIALES PARA CLVBS PE SOFTWARE

Page 55: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

"Jt*,j "Ami. . .

508: STOPlee if p+i<;

gi78^IF P+q*!

;M l; "LOi !il u , auiTOP188 LET n>=< (B*PIti

190 FOR n = iK+3) Tl20a let c»n,-iae»p218 LET *x-B8*3IN

10 THEN INPUT '

:er porcsntaj*• 188 THEN PRIN"

L.ET S*=8i

,33: DfiRU OkJER 1,

Rlr-.T f;.h:h l, "R;IBN PPU5E 15<

" ,qj "SCii"*GO TO BOB:

IEN INPUT "»

>iea then_pr:

338 NEXT u

368 IF P+q-FLASH 1, "U

"J 5T0P37a LET B=

338 FOR C*i0+3> TO 6390 LET 0*C-'iee*PI480 LET sx=ea*SIN D;

410 PLOT 128,38: &RRU OYER li INK 3,6X,SYii-3 NEXT C438 IF P+gtr»**Y«iee THEN PRUSE158: PRINT FL^Sh l,-RojO

M _=

t: "X": q6 to "Baa. stop440 IF p+q + i-+*+u il03 THEN PRUSE158: PRINT , FLftSH 1, AROJO

^°., :: Rli^"';

"fl

™""'!r?^",; :: 02rd

::^''-«is_""! C!

*1iga :p-

._. .5,8: BEEP 1,8: „.8: BEEP 1.2: BEER .5,3: BEEP .5,2: BEEP 1,0: BEEP 1,5: SEEP 1,5;BEEP 2.7: BEEP 1,3: BEEP 1,5: B

EEP 2,7: BEEP .75,7: BEEP ,25,6:fe'VabIKp'!:!: m :?*?

7; BEEP .25,3: BEEP ,5,7: BEEP .

5,5. BEEP .5,3. BEEP .5,2; BEEP1,0: BEEP 1,8: BEEP 1,-5; BEEP 2,»: BEEP 1,0: BEEP 1,-5: BEEP 2,

Page 56: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

PRESTAMO HIPOTECARIOMurfios sin foj que a la ror .V

hurj dc i- i: i"so « v<':- rinui.ren U netcs.Jud t!e ioci.ii te fX

i.'ii una Caja .'i Ahornis sas va»u

: restamode Imnid„..: ,: tonus H.I...I..S Je ,lc 'Tee

.,..:.!. tie .

.,.. bols i..

pie .,, .,..,: que

s PRINT : PRINT5 print ink 7, prper i

interes hipotechpioib print : printas print

;;Este pi

"Ispprint*

3fl PRINTii"C»LCUl«f >.i I

'51' print35 PRINT "*ntid*d banc;

37 PRINT*

~

40 PRINT "no hipoiecsri

4.1 PRINT43 PRINT " CtCt Ud

.

,01 djtOS"44 PRINT4B PRINT "d« Camidad ,

46 PRINT RT 20,8, FLRSfPULSE UNA TECLR

45 PP.U5E 0: CLS

fig sub 2000so sue 3000PLOT 8,188:« 48

'RINT

DRRU £85,0

390 SO SUB 7000400 PRINT410 PRINT "Trim*,!

420 So' sue'^laS*

bilktad de ndttiuir el Crediti

j sus posibilidades, en vc

;lf aderuafse ;l pnSstamiuo

HI t jlt'jhi. en J basadii ei

!j lljp:tid:: l-i'irciulj lunu

5JJ00PTAS

470 IF b«»"S" THEN SO TO 500480 IF b»»"n" TH£N SO TO 0000430 IF bl="" THEN 00 TO 450500 INPUT

505 RESTORE510 IF jEt-V530 IF ji."i530 IF *!="•'540 If I|»*'V550 SO TO 311600 STOP

Sub 33eS

1200 PRINT1380 RETURN2080 INPUT -lni*r*i ( tn v.

2180 PRINT "Snttril =• "; C,£200 PRINT5380 RETURN3080 input "flnoi par* a«vj

3100 print 'Divolucion «n '

3200 PRINT3300 RETURN7000 RERD P7100 LET l-a*p7808 LET i-r/1007300 LCT n»il+i /P)tt7400 ^et K»c*»i /(,) tn/ (n-1)7500 RETURNS500 DfiTfl 12,4,23000 CLS : PRINT RT 10,7; "IMR F1NRLIZROQ"9810 PRINT RT 12,18; "Gracii

Page 57: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

HIPOTECRRIO. lessee i

CfiNTIDRD I

i Cantidtd, im.

PULSE UNfi TECLR

. 12592 PtS'

35841 Pat

SIMPLIFICANDO FRACCIONESI pro^mmn muy sim- uimpuniendolj hastu llojpr.

peru en modo algimo si exisre, a la fruition masI, cl que nits munda simplifitjda posible. Pruebe

foU Lui.i Sintfifl. Un buen a hiU'er lumperitiunes entre

rugrama para prubar sus varitis jugjdores.

ihiinljdi's mari-mjtiias. [.j pivsi'iiudtin nues de-

listed introduce una frill- rnasiado buena, peri) comociun y L'l ordenadur vj des- tudu titnt sus vc-nciias, jir.i-

igualinenre viliJu pain <

ZX31 i! Spectrum (ambuen la version de !6K min

5JTO0PTAS

) LET NS = 1

:>D<U THEN GO TO 35

320 LET DENsOEN/Cl li_>

330 LET NtJ) =1310 LET DID !

85 PRINT "IGURL R 0"90 INPUT NUM.DEN

100 IP DENi0 THEN GO TO 390110 PRINT NLM - "

.

DEI120 LET NUM1=NUM130 LET DEN1=DEN140 FOR J>2 TO NUM150 IF NUM1/J-INT (NUM1/J) =0NUmol THEN GO TO 160155 GO TO 200150 LET Nil) nj170 LET 1=1+1160 LET NUMlaNUMl/JISO GO TO IN200 NEXT J210 FOR Ul*2 TO DENS20 IF DEN1/U-INT <DEN1/U)=BDENlnl THEN GO TO 230

335 SO TO 270230 LET D !K) .U240 LET K>K + i250 LET 0EN1«DEN1/U250 GO TO sae270 NEXT U2S0 FOR J»l TO 1-1290 FOR L=l TO K-l

PRRR ACRBRR CON DENGMINRDOR

PARR RCRBRR I

|R V DENGMINRDOR.DENOMINRDOR

1IBE NUMERRDOR Y DENOMINflDOR

.

I RCRBRR CON CENGNINRDOR

escribe numerrdqr y denominriprrr hCrbrr con denominhdor

Page 58: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

MAPASrl ZXSl. Per., OUUMJ I*IMS

r*

.2 :c -.-> =9-- ~-<z i l£" c=:-

22 := :-.-? j: eT -i£-i let c*o+

-r' -

; 7 ';" ' =--* "HEN PPIMT

1 j>"I '_

": =

-*"ff|Tp F »J I --1EN PRINT

". . 1EN PPINT

HEN PRINT

^r'

Page 59: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

. /(HOR/f TODOS A..4

SANDROICTWO

f^P™ DF>STHCHiS£ I

|JvJ •- I

6F -

MICROBYTE ijn Cerd-do. 59 MADR'D-35

in";-r"' 91-6565002

Page 60: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

BLACK-JACK

xgu; r.i ^ilnhl;!:' fin l-m<

]. El objetu del juegii es tieiie Uerccho a

tamrar 21 puntos u iKer- supfementu™.urse In mis pi>sible .1 ilitlw (Spun nun -i8Kt

unlpleftctl) su iuegi

5. Clifedo un juga

., ufaEMfidu uru pur

Nous

142

gr£fic

141..p..

"T"

143]44

"R""C"

10101020

"C"

"R"10W "T"1(M0

,p ..

1070

Craph it "P"

"

"B""C"

"ir"T',.

p..

"10"

&000PTHS

5.000 pesetas que It

ii &i" teHfW 5;*Wjrck";pt 18,6; "Si C. Of U i3-il-

4* FOR Xi50 FOR 1158 RERO 1

78 NEXT J

50 NEXT )

IS DATA- '

2.23.8iee dsth

ts.filie DRTfl

0,1ise drth '

7,8, aiae BRTa

a,

a

lie POKE 236*6141

151 '

l*i b 1

EXTIBSAT

15, a163

IBjdlex+ i

ieel JU'161

[S

ET ,

3*. 119,187,137,6

3,187,187,

137, 68,

S

107, 137,10I

ei,ei,ei,7

ii'INPUT^

.. .ata>99999i, :m6N go TO 165178 CL5 : PRINT PIT .

ZR LB PRRTIDR": BEEP.IE, 0: SEEP .16,9:188 CLS196 LET 1.6; LET ji

t LET !.•: LET 0-4.T pl»ii LET 03-0; LE"P1A-6: LET PiO-a LE"*""

;LET b»"""

a£a ink 1 inuerse1,1; tot*li;HT 1,86; \.<

se e88* INPUT "Cuinl!

uaes if apuicase c.

R »Bul>tOltU THEN 81

aes INK 3: PRINT RT

289 PRINT I

iliifft

1 sue aeee

Page 61: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

Joshua ioshua Joshua

Formas de asociarse

Modalidad A: Mediante la compra

de por lo menos una cassette a precio ,

de venta al publico normal.

Modalidad B: Mediante la aportacion de por lo menos una cassette

siempre que sea original (y no copia) y de interes para el club.

(500 ptas. de revision)

Y podras cambiar tus programas cuantas veces quieras por solo 500

ptas. al mes.

Mas de 300 titulos nacionales y de importacion. Todos originales.

Solicita informacion indicando el microorde,nador que posees.

^ Joshua cursos. PROCRAMADOR BASIC 3 NIVELES6.500 ptas./mes.

. PROCRAMADOR EN CODICO MAQUINA (Z80)

Orientado al Spectrum.

. CURSOS DE FORMACION DE PROFESORADO.

. SEMINARIOS DE 10 H. "EL BASIC EN LA ESCUELA".

VENTA DE CASSETTES DE IMPORTACION POR CORREO CON-TRAREEMBOLSO, CON UN 15 % DE DESCUENTO.

VENTA DE MICROS CON DESCUENTOS PARA ESTUDIAN-TES Y MAESTROS.

MONTAJEY EQUIPAMIENTOS DE AULAS INFORMATICAS.

Provenza. 2B1, 2°, 5.a - Tel. 215 83 37 08037 Barcelona

toshua ioshwa Joshua

Page 62: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

li PRI1; "URCKGO SUB

aaa go sub 3ae»272 go sub laaeaaa go sub 4.eaeage NEXT ra

ail IF plfl-ai THEN FLRSINT AT 11,1; "BLACK".; ATia

;FLASH 8: GO SUB 5383

:

952: LET lOUUitoUL; GOTO 4»«318 IF pl«9 OR pl»18 OR Pl«ll T

MEN INPUT "DObia ? "jai „ _329 IF ia«»"s" OR IM^S ) AND t

CptaLl>«apul»2 THEN LET ipUl-JpUl*2- INK 2: PRINT RT 3,l;apul; GO5ub iaee: go sub aaea: go to 3b

8

339 IF pl>31 THEN INK 3i Pg™T

Sii1 i>°Hiil'V?™5§l TH=N CO

TO 388 _ „,..358 INPUT "Carta J t.llt THE ki co18* ?898*"gg aSS SSSa? go

HIS S§

3378 IF 8*-"n" OR i»-"N" THEN GO

3883IF P1R<-81 THEN LET Pl-Plg,

488 IF Hfiiai THEN FLASH fi.MINT RT 11,17; "BLRCK-jflT 18,17;' UROK": FLASH 8: GO SUB 5188: «*B 958: LET to t« lS«tOA»il

4±a if pa-9 or pa-is or pa-n tHEN INPUT , OobLi ? "J bj _

KI_

,4.28 IF <bf»"»' OR bl«'i I AND I

otSi.a>«apuS#a then let apua-apua*a ink a- print rt 3,86; apua: 5O SUB iea8; GO SUB 3888; GO TO *

843a if pa>ai THEN INK 3: print

RT 29,17; "SB ha pasadp": BEEP 1

,

8: LET tola L»tOta L3: LET apu«apuS- LET C-26: GO SUB 888; LET tota L2«tQta I GO TO 43844a if pa-ai or pafl-ai then go

TO 48845a INPUT -"Carta ? 1 **-«,«„ ._468 IF dS»"S" OR di-^S" THEN GO

" "888;GO TO 43SUB 1888: GO SUB

• "n

'

OR d»«"N" THEN GO {

488 IF P8fl<«21 THEN LET P8-P8R589 PAUSE 68585 INK til PRINT AT 3,U+p-l*»

Page 63: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

BIB PRINT AT 1 , t* *P -141 /8; h* SUB 8188: GO SUB 888::LET tot*

528 BEEP .1,30 l&a total530 INK 8: IF Pefi-21 THEN FLASH 638 IF p2.«21 BND P3-P0 THEN IN

K 2: PRINT BT 3,88i "-"1: PRINT BT 1,18; "BLACK-JACK";FLASH 8: GO TO B7« 5*a go to 7ea54.8 IF pb>il THEN INK 3; PRINT ese if pia.ii bnd pia.bi then go

bt a.ia;"Mt K« p«*»ao": beep 1,0: 00 TO 880 878 IF pl>«ai THEN GO SUB B888:ES8 IF BbA>»17 AND PbB<«a: THENSO TO 67B

GO SUB 988. LET lotlLlHOTIL880 IF PS-H AND pifl.ai THEN GO

56* IF Dbil7 THEN SO SUB 1000;so sub ieaa: go to 348

TO 780e»a IF pSfil THEN so SUB 5iae:

578 IF pbB<«21 THEN LET pbipbD575 IF Pl-11 AND P1R«E1 THEN QO

'50 5JB iSC LET l.o!n:.IOlH.700 if tot»ii<aaa then print at

TO SB5 li . 1 . "St ,t iii3!< . CMSJ S. O'.'ER!;"', ooER 8,BT ia,l;"«L aintr880 IF Pl.a21 BND PDPb THEN GO

sue saac- go sub 90a: let ton 01f'1 GO TQ 718

) SSa IF pKaai AND PKRb 'HEN SOsub saaa: go sub see: let tot*,

701 IF lotai.2.200 THEN PRINT BTll,17;"St It acjbo",CHR| 6j OUC

R !,"''', DUES B.AT 12,17;"tl dint.-ol " GO TO 748I"l0t4l

888 IF pKill AND Pl-Pb TneN INK a: PRINT BT 3,ffl; "" 785 PRINT AT 21 ,

4; "Ou i « rtn jug*sas if pa-n bnd pSB-ai then soto 7aasia if pa<-ai bnd pa>Pb then aoSUB 510B: GO SUB 988:

:LET lot!

ia»iot*l.Sae IF pi<.il AND P3tpb THEN GO

'710 Ler si.ink.eyi: if *«" theN GO TO 7107B8 IF *•"»" THEN SO TO 188738 CLS : PRINT AT 9,6;"UUELUhND£ NUEUO";RT IB, 5; "EL CASINO LE

CRSCRDE CRSCRDE CRSCRDE CR5CRDE

CRSCRDE CRSCRDE

Page 64: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

74B 5T0P

328 PRINT RT l,!- ;"

330 INK 1; INVERSE 1: I

640 RETURNSaa INK 2: PRINT P,T 3,iSIS LET toti l«tot»l+»Pl

T»&a let tolaT"Wi*l»(;970 PRINT RT lifi"sea INK 1. INUER5E 1.l.i'itOUL: INUER.SE 3S90 RETURN

101a ir i

: LET l>ilasa if i

1050 letiaea if c

1070 if e

t» >3fl THEN

= STR* e»MI"1" THEN LI

THEN LET1090 IF ci-"l2" THEN LET110$ If ci-"l3" then l3t{iff RETURN .

aa&o in> . ,23; DRRU 32-32, a: DRRU

2005 ii

aaie pi

j|,?aaaaa nIjeisesa PI203S BEEP .1,3a2048 LET l..lilS2asa if

15,

pl»pl+(

>1 TMEN LET PlRnl

ALUNIZAJE

3020 INK t ;PRINT

3830 PRINT RT IS,3335 BEEP .1,303240 LET 0>otl63asa if Lsr-.i.ii :

cifli.13 TMEN LET3050 LET p2=Bi+;»i

ILET p2R"P2t

4000 INK 0: PLOT2,0 DRhU 0,41; 010,-41laai rem430S IF n-.

4010 PLOT1:0,404020 IF 1-1 TMEN LET-i=r S LET Vi"l

:50

4030 INK I; PRINT RT

-32,0: DRRU

30 TO 4080

1 THEN LET |

>1 THEN LET

pyl. LET r-1If 19 RETURN . ,„5100 LET l«MlateUl«pu2: LET r»265118 RETURN

<ft

a is ij'

ib—i rs» * » • v *

SPOOPIftSE=frenado bruit

Tuilus liubitst'iniis Ji-si'ii-

h.ibi.i qut seguir .iik-hiiirf

) = "AB")6 ="A", "t

ii'iu. .k-iniul.

Page 65: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

REM Somos pfofesionales

REM Da mejor servicio

REM lenemos tambien COMMODORE, ATARI ATMOSMULTITECH y SPECTRAVIDEO, HARD ySOFT.

REM CAMBIO acepla equipos de 2' mario al adquinr Dlro nui

REM Consultaries tus necesidades

RENOVACJON EN MARCHA, S.A.

c/. Espronceda, 34-2° ml -MADRID-3Telefono(91)4412478

REM SHOP 1

c/. Galileo, 4 -MADRID- 15

Telefono (91)4452808

HARD SPECTRUM JUEGOS

1 Spectrum 16 K

1 Ampliation a 48

1 Interlace Dmgramable

"Vlrnoresora Alphacom 32

Interface Microdrive

' Microonve

HARD SPECTRUM UTIUDADES

1 Spectrum 48 K

1 Tecladoprotesional

1 1nterface para lelo

' Impresora CP 8L . . .

1 Maquina escribir electronica

SILVER-REED. ..

1 1nterface maquina

1 Plotter 4 co lores

.

41.900 Ptas.

16.800 Ptas

13.100 Ptas.

59.000 Ptas.

SOFT SPECTRUM JUEGOS TOP TEN

TRAT. \(TEXTOSESPANOIJ LQU|N'ELASJ ^"^5.000 Ptas. 5.000 Ptas. 4.500 Ptas.

"A CARACTERES fTRIANGULOS

( HOJACALCULO

lOMNICALC-2

( PIANO 1

ELECTRONICS

'.cr oiras d MO Ptas. si

En cintas mgiesas 400 Ptas. si

Sdlo versiones originates

REM FRANCHISING

puntual informal; ion.

REM PEGATinaS

REM CAMISETAS

990 Plas 3 moflelos REM MEMBERME, REM I LOVE YOU. REM FOREVERIndicar lalla: peouers. normal y granoe

CONTABILIDAB frRAMSEXPflEsI

I OFICIAtQ IMICRODRIVE I

5.000 Ptas. 4.500 Ptas.

BOLETIN DE PEDIDO

Nr;.,--!irr y Apellldbs

DireccFdrt y Telelono

Deseo recirjir ma's information

Deseo adquwr

Pfkio total fincluye 300 Plas He gaslos de eiivmi

Giro Poslal Q Giro teieqraliai JrBralBrenraI

Inrjresoenmeniai/iy.niHANr.ii.ii rh.hao Rk,s Rosas 44 MTalon arliunio D felon ffifiloiimdd adjunln C

far |ela VISA numere

Fetlta CaQutiriad hruu

Page 66: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

izaJtttJoftc e.fii;1 REM fliuninjiL...S RE5T0RE ;

FOR i «0 TORD a: POKE U5R "a " *ii«AJ*JSF\.UDRTR 3,127,157,58,127,99,96,240,192,254,39, 163,254,198, b^lB

.

5 BORDER 5: PAPER

13 LET f»B; LETH": LET b»»"20 PRINT FLASH 1

(P,H

INK

.14: LET

"EU9t ni

40 IF INKEYS-"P" THEN LET cmb-40: LET V-1S: 50 TO 70

50 IF INKEY«-"lt>" THEN LET v>16LET cmb«32: SO TO 7053 IF INKE'V«»"t" THEN LET cmb-

S5: LET V»1B = CO TO 7065 SO TO 4070 CL5 ;

PRINT INVERSE i; "LIST° 90 PRINT INUERSE IJflT 11,10;"STflRT"100 BEEP 0.3, -1: uLS110 PRINT RT 8,Bi" ",HT 8-lSl

'

T_",flT 20,18;" ";flT^10,2B;"

"111 DRRU *0, 128, 0.3. PLOT 64,12DRRU 32,- 2.7 PLOT 112,104

,8,1.2: DRRU 26,-104,-1:

DRRU

Inuerse l; "UEINUERSE i; "COM

'MV-

DRRU *,a,PLOT 168 ,

8

112 DRRU 36,89,0.3. DRRUPLOT 229,89: DRRU -27,30,113 DRRU 0,20: DRRU 40,0

1114

BDRRU 3,0: DRRU 0,-100: DRRU

-30 , -30,4: DRRU 30115 PRINT RT "

LOCIDRO" J RT 0,2'8USTIBLE" .

117 PRINT RT119 PRINT RT

"»", RT 5, 18; "«" _,„.121 IF INKEY*»"q" THE

1: LET cmb»CI»b-l: BEEPT V«V-1: 00 TO 134122 IF INKEYi-'W" THEN LET CI

cmb-2: BEEP . 1, f:LET

f »f +1- 00 TO 134123 If INKEYI-:«" THEN LBT «fc-

cmb-4: LET v«V-3: BEEP . 16 , f:LE

TlK'tf

!

xlB«?S-*f* THEN LET c.b-cih-6: LET V-V-6: LET T*1*X: BEEPlii'iF SSkIV*" — "« «

• , ?! LET *

'"•

LET

C '"/ CTI IOOC3 u r / w n i\ i-

LCI I I Cl\

BA.RCSLONA-13

ili: .

:

:

i-j

"- Nijjii.K-M: ::i

VERSI DH EN CASTiLLAKO

MS 111 40 HUEVOS P»0GR»MA5

PROPIOS E HP0RHD05

Page 67: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

T V«S: CO TO 13*126 IF INKEY««"0" THEN BEEP .

,f: LET cm b>Cmb- . S l LET C-C-l:TO 13*127 IF INKEYIVP" THEN BEEP .

,f: LET C»C+1: LET cm b-cm b- . 5

:

TO 13*129 LET faf+l: LET vaw+a.5134 IF SCREEN! <f^c) ".,'' *ND 3C

REEN* if , C+l) ". " "THEN SO TO 100

135 IF SCREEN! tf,C)<>" " THENGO TO 80S136 IF SCREEN! C f , tC+lil < >" " T

HEN SO TO 836139 PRINT AT f,c;xl1*0 PRINT RT 1,3. ";PT 1,3;

v;RT 1,25;" "iflT l,25;cmb»1*3 IF cmb<«0 THEN GO TO 300

150 BEEP 0.2,-10162 PRINT RT f , c; b*163 GO TO 121802 CLS : PRINT FLASH 1; "COMBUS

TIBLE RaGTAGO"'" PRINT ATf-l,c r3;''V RINT AT 11, 13; FLASH

1": GO TO 1010

: IF v -;»« THEN PRINT "Aper facto :vtt* a La NASA

1000 CLSlunuaje1002 IF V"Fa Li ci laa Lunizado"1004 IF u>2 AND V <-B THEN PRINT"ALunizaje defectuosoihau he r ido

BATALLANAVAL

1006 IF V>5 AND V<=8 THEN PRINT"No hay supe rv iv ien tes .

"

1008 IF V>3 THEN PRINT "Haa a b i

*

rto un crater da 2 Kms"1010 FOR i«l TO 100: PAUSE 0: RU

it- siem-

que las

hxistcn juego;

pre perduraran

nuevas tccnologlas io unit

que permit irau sei.i pract

carlos mas aSmodontente

ayudarle a matarel tfpip

5J00PTASjuego dc Ins barcos Esta

version presents el gran ali

cienie dc que podra jugar

bastante atrprable

La lon^itud del prugrama

es considerable, peri) csla-

Enr quedesdt

irompleto

programs para los

tes del ZX81. Nuesti

doble felicitacion y I:

5.000 ptas. de premio.

Page 68: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

— .- .-- :; E5 -

: _

LJrr : =;' bud*io_=- = _ _ INT =;,:-,:if - z . -: = . -. =1

r ua IN'-: _

- _:

pn: --

= ::---."f

I A~-

- - : - : 5 : -

.

. : -- RNOiiaai? rrtEw :;"." :

: i- == : --. : -= :

: : -: 3d? - . :

=.

-_ -:

i LET : I -. ; I -. = i

, ;5€ ::-.:- :

~: .

-i~i

" .-. " -"-;- - : : -l :

i _;" : +i : : t .

? ?: : : = 5 : -

]

-f -: le - - . .

:.;

: : 5 PARTS'

PRIMEPh ?fi

then ::~: ;,:

' -~ ••: N + ie- I =£ ~-rEN :-.--:> 3C^NT -- s ; D + 2 * I *iS C

" - 1-6 B-. a7 -

-,= :. :-:~: i ,::.- _i. =- :;

NT flT M + 2 N+16- : :co --fN -:-ct-:

--

: = =

HT AT ft CI) +2,8 ill +ie B-: : : +ie B-i. =~ THEN GOTC 2102

Page 69: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

~-= :-:~ .;:"

mercado reservado para software.

unviensionNbVVDISTR1BUIDOR EXCLUSIVO SUMINISTROS VALLPARADIS S.A. c. PASTEUR, 3 TARRA5A (BARCELONA)

Page 70: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

mss let - = -_ 3+1 = iS52E ^--I-;T ;t £l.U:r. .1I53B If P-'jV'I JP SoZiL THEN

C* 5 (Li = 100

: then ::-: ibba= --£ieeo+73* - r-

1600+70* - = - : ; - . -p+i Or: =.RT £1, 14. p :

)R 2(L) THE

-h 3 ' >ZiLj THE

THEN 30TC 17*0

174S+05* ; '9; 745 + 35« - - -.- " 2 1 1 4 , Pp+i c-: =:

SOT 2 1550

-.--

32fi> *7E * c30TG _f ;0-~C* H (P + l 3 + 1) aiLET H (P + l + 1' =1PRINT fit £l,li;P," 5;- = - i. C= C ' '- THEN

IF r _ ' OR £ • • '_ THEN

LET c . ^ = 10?

-I ZZ<;1 thei :-:-

: isse

f

T_~!«ft =*

. 1=

I I

""' '-s

-/ fcTl'i i II_ - III U II U I

Page 71: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

FROGRAMAS

5350 IF INKEY$="M" THEM N£'.;SlSfi PRINT h7 5:13 HP.S PERDIDO.__ .ThB 4

: "DEDICATE H LH HP.TI_^E=

NAVAL "^

iAHORA n SPECTRUM TAMBIEN HABLfl!fCiUlRlR IAIH I IjjISI PIEIEICIHI

SINTETIZADOR DE VOZ PARA SPECTRUM 1 6 6 48

• Moduladorde sonido por TV• Vocabulario infinito. Sintetiza mediante alofonos de lengua inglesa

(fragmentos de voz) permitiendo la construction de cualquier palabra

utilizando sfmbolos foneticos

Entonacion para humanizar la smtetizacion. Se puede utilizar

rrtaytisculas y minusculas consiguiendo de esta forma a

la silaba de la palabra.

Compatible con Sinclair Micro-Drive 1

ICIUIRIRIAIHI

lfl»SlLlOlTl

OMSACasiello. 25. 3. E - Madrid- 1 - Tetel. 335 37 01

Page 72: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

PROGRAMAS

a.lfclJJrl.Eg

C/Miguel Yuste, n.° 16 - 28037-MADRID - Telf. 204 51 98

SINCLAIR SPECTRUM

— Ampliaciones de memoria— Reparaciones garantizadas

Si su SPECTRUM SE CALIENTALE BAJAMOS LA TEMPERATURA.

(Menos averfas, mas duracion, mejor funcionamiento.

TAMBIENCOMMODORE, AMI, COMPATIBLES

APPLE E IBM.

»

Page 73: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

BASIC PARA N1NOSSofia Watt yMiguel Maitgada.

Ed, Paraninfo

128 Pans. 500 Plas.

Quien haya visto a un

niflo con tin ordenador sa-

be que para el nn es masqueunjugueie. Unjuguetemay especial que pronto

despertara su interes coinn

cualquier ingenio electriS-

nico. pero sobre todo un

jingle con el que solo

^P jugar. Algunas veces

imroducira un programa v

manejaraesaseMrafiuspa-labras de PRINT y GOTOcuyo significado desconoce

y no le preocupa lo masminimo: sabe que eso sirve

para poder jugar. ,-,Acaso

preguntan los ninos por la

mcjor forma de introdueir

Siempre que sale un li-

bro didactico para ninos.

adopta la forma decuento.con profusion de comics ycolores. No ha sido este el

camimi seguido por Sofia

Watt y Miguel Mangada en

este libro. parlicularmenteinteresados en que los ni-

nos acudan a el por la

simple at'icion de inieiarse

en el BASIC.

En la portada destaea

Arturo. el personaje crea-

do para darle un poco de

alegria a las expIleadenes:un pequefio listado en BA-SIC con las e\presiones

mas simples, objeto de es-

ludio del libro: y una frase

que merece una especial

consideration: con nolas

LIBROS

Basicpars ninos

*didaclicas para padres y

educadores.

No existed capitulos. pe-

ro se puede hablar de once

sectaries distintas en cada

una de las cuales se esludia

una palabra clave del len-

guajc BASIC (PR/NT. LET

...). Solo se citan las masbasicas excluycndose, co-

mo se cita en las primeras

paginas. aqucllas que "porsu complcjidad conceptual

escapan de los objetivos de

este libro".

Durante la explicacion

del uso de los distintos

comandos se encuentrandistintos recuadros titula-

dos "Notas para el adul-

to". que son las notas di-

daclicas a las que se hacereferenda desde la porta-

da. a fin de aconsejar dis-

tintas posibilidades de de-

sarrollo de los conceptosestudiados. Asi por ejem-plo, en la seccion eorres-

pondiente al coma rrdo LETse puede encontrar: Ha]ver al nifio las diferenci

entre PRINT A v PRINT"A".

*-1*CV^V

iAH0RA!

VlfV^ jFULGURANTE AYUDA

SV*" PARA EL MEJOR ORDENADOR!AL FIN FLOPPY DISK PARA EL SPECTRUM

CON NUESTRO INTERFACE EXCLUSIVO:

-^fcSistema operative* en EPROM.-^Rjtillza sdlo 128 bytes de memoria del Spectrum.

— Permlte acceso aleatorio.

— Gapacidad para 4 unidades de floppy totalmente

standard de 5 1/4".

— Compatible con Drives de 40 y 80 pistas, de una o dos caras

— Manejaun maximode 1,6Mbytes.

— Emplea los comandos del Spectrum.

— Protegido con "password".

— Facultad de Merge de programas en Basic.

— Gran facilidad de empleo.

TAMBIEN EN STOCK TECLADOS PROFESIONALES.

INTERFACES DE IMPRESORA, ETC.

AMPLIA GAMA EN SOFTWARE Y HARDWARE.PIDA CATALOGO MAS DETALLADO A:

f\JM*(i Sistemas Logicos Gerona

Apartado 380 - 17.080 GERONATelef. (972) 23 7100

SILOG SOFTWARE

P.EGISTRO DE COMPRAS

3oftw.nL em B™

LAaERHYTOS (4-9 i

ELAS PARA PROFECMASTEH DisefiOS

ADEM AS..,

QltO<k APar1ad0 38° " 17Q80 GERONASUi") Telef. (972)237100

Page 74: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

W»]L'i[J:;»ViJ:iilig»?iVil:)[igrft\MJ;?iViJ:Mig^Vil:ni]

ZX pone sus paginas a

disposicion de los lecto-

res que deseen publicaranuncios clasificados paracompra-venta de ordena-dores y perifericos, inter-

cambiar programas o sim-

plemente tomar contactocon otros usuarios del

Sinclair. La publicacionde estos anuncios sera

gratufta. No seran acep-tados los que tengan ca-

racterpublicitario. Enviarlos textos, acompafiadosde direccion, identifica-

tion y telefono a:

Revista ZX.Tablero de anuncios

C/BravoMurillo, 377.Madrid - 20

cartuchos de juegos para

Spectrum 16K. Jose Wat fa Fan-

dirto. Tel. (91) 246 DO 59

Vendo ZX Spectrum 48K.onckiiSin 6

Carlos Gutierrez. Tel. (91) 2

60 54.

Dispongo de programas p

ofrezco para tormar grupo O

intercambio e inlormacion.

Llamar al 89 14 69 por las

tardes. Preguntar por AlfonsoEsparragosa.

Cambio programas del

Spectrum de 16 y preferen.ie

mente de 48K. Estoy interesa-

usuarios del Spectrurr

talunya (preterentemi

Barcelona), p£

gemque utilice ordenado-

i este (in. Javier S'egu-

.ondres. 26, Cerdayola

libro Basic en castellano.

40.000 ptas. negociables. Fran-

cisco Javier. Tel (93) 322 37 1 4.

441 90 93.

Vendo comecocos y 30 De-

fender (originales) para ZXB1

(16K), por 1.000 ptas. cada una6 1.500 las dos. Victor Manuel.

Tel. (91) 227 74 07.

Estoy interesado en contac-tar con usuarios del Spectrumen la provincia de Cadiz, para

l. Mas de 100 pi on id

Basic y CM (juego;

snsambiadores y de

i 25 buenos

yoria), para el Spectrum de16K por 4.000 ptas. Tambienvendo el programa "The key",

en cinta, por 600 ptas. PacoTel (975) 22 20 36. Soria

Vendo programas para ZXSpectrum de 16K o 48K. Espa-notes y de importation. Carlos

Enrique. Tel. 244 41 08 de

Madrid.

tomar contacto

con usuarios del Spectrum pa-

ra intercambio de programas e

inlormacion. Jose Ignacio

Fdez. Ramos. C Bolos, 1. 3.°

F Murcia-5.

Desearia recibir de algunos

usuarios del Spectrum progra-

de dificultad. que intercambia-

ria por otros programas de mi

coleccion. Julio Delgado. Tel.

(953) 69 29 51.

nuevos. Todo con garantia

11.000 ptas. Juan Carlos. Tel.

B95 29 77 de Madrid.

Cambio o vendo cualquier

programa para ZX Spectrum.

Mas de 300 comerciales. Envio

lista. Alberto Garrido. Tel. (91)

445 29 86.

IDEALOGICDE

,CI> Tl*.- 50156 JONC

iPOR FIN!, EL SOFT DIDACTICO Y RECREATIVOMAS EXITO EN U.S.A. DISPONIBLE EN NUESTRO MERCADO

IdeaLogic, S. A.es una nueva emprssa dedicada a la

distribucion y manutacturacion de software y acceso-rios para microordenadores que ofrece, a partir de este

mes de octubre, una innovadora gama de productosque sin duda dara mucho que hablar.

Distintas marcas de reconocido prestigio internacio-

nal y de gran exito en el mercado nan firmadocontratos en exclusivacon IdeaLogic, para que esta las

represente en el mercado espanol.

IdeaLogic contara con su propia red de distribucion

que cubrira tambien las Islas Canarias y Andorra.DJcha red esta en fase actual de negociacion.

Los primeros titulos que aparecen vienen a cubrir unimportante hueco existente en los actuales catalogosde software. Nos referimos a la parcela del software

educativo y didactico. El lider mundial en este campoes, sin duda, la firma de Boston SPINNAKER SOFT-WARE CORP., cuyas ventas representan el 40% del

mercado americano. De esta firma IdeaLogic lanza

cinco titulos: MIL CARAS. tECLAS DIVERTIDAS,COMPULANDIA, EL RANCHO y un nuevo productoque ya ha sido denominado como el "MICHAELJACKSON DEL SOFTWARE"; este es ALF EN LASGRUTAS DE COLOR. Todos estos programas han sido

cuidadosamente creados por especialistas en la edu-

cacidn, en los graficos, la musica y la programacion,con un objetivo central: el nino, que a la vez que juegacon el ordenador aprende.

Otra marca muy ligada e interesada en el mundo del

nino es F-P Learning Software, sus titulos son de muyreciente aparicibn en los Estados Unidos y ya han

recibido innumerables elogios. De su catalogo Idea-

Logic presenta en un primer momento LABERINTOSLOGICOS, BAILEMOS! y NUMEROS LOCOS. Estosdivertidos programas son realmente encantadores yhacen realidad el que el microordenador puede ser

usado como herramienta ludica a la vez que educativi^.

y creativa. VEl software de IdeaLogic aparece para Apple lie,

para el cual esta desarrollando un largo catalogo desoftware educativo, y tambien para los microordenado-

res Commodore 64 y Sinclair Spectrum.Para los usuarios del C-64 llega MUSICALC 1, 2 y3,

con el cual es posible convertir su Commodore en unaautentica orquesta, componiendo canciones, modifi-

candolas, ariadiendo, cambiando instrumentos y expe-

rimentando creativamente con la musica. Todo ello

aun sin poseer conocimientos musicales. Su unicalimitacion es la imaginacion del usuario.

Otras importantes novedades son la Valiant Turtle,

robot mecanico para ser usado desde el lenguaje

LOGO, la tabla grafica de bajo precio SUPER SKETCHy el irrompible joystick de precision SUPER STIK.Por fin, y como novedad de desarrollo propio,

presenta un monitor en color de media-alta resolucion

para ser usado tanto con micros que dan serial RGB olos que otrecen serial compuesta. Su precio es muyinteresante.

IdeaLogic tiene preparadas otras diversas e intere-

santes novedades lanzara proximamente al mercado.Susoficinasestan en Gran Via de Carlos III, 97k, 08028BARCELONA. Tel.: 330 33 08'.

Page 75: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

<EspectacuIcues posters Qigcmtes

(42,5x59,5 cm.) cthora o tu ctlccmceHemos ampliado para tl estas tres portadas de la revista ZXy las hemos convertido en espectacularesposters gigantes (42,5 x 59,5 cm.) impresos a todo color, y a un precio realmente excepcional,para que decores tu casa con estas reproducciones sacadas directaraente de los dibujos originates.Elige un poster por solo 250 Ptas. (mas 50 Ptas. de gastos de envlo) o eljuego de tres por solo 600 Ptas.(mas 50 Ptas. de gastos de envio). iNo pierdas tiempo!jPidelos ahora mismo! Es una oferta linica

y limitada.

Recorta y envia este cupOn HOY MISMO a:

ZX (POSTERS)Bravo Murillo, 377 - 280KO-MJUORID

CUPON DE PEDIDOEnvlenme a mi domicilio, al precio de 250 Ptas. cada uno, mas 50 Ptas.de gastos de envio, los posters que le indico a eontinuacibn.Queda bien entendido que pidiendo los tres posters obtengo un ahorrode 150 Ptas. (Solo pagare 600 Ptas. mas 50 Ptas. de gastos de envlo).

Poster K.» 1 Q Poster N.* 8 Poster W." 3

Q Los tres posters por solo 600 Ptas. (mas SO Ptas. de gastos)

El importe lo abonare

FOR CHEQUE CONTRA REEMBOLSO CON Ml TARJETA DE CREDITO

American Express Visa Interbank DNumero de mi taijeta

II 1 I I I I I I I I ITT1Fecaa de cadi leid-ni _

Direccion _

Ciudad

Page 76: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

GUIA PRACTICA - GUIA PRACTICA - GUIA PRACTICA

Academia Matematicas

GURSOS DEINFORMATICA

DISTINTOS LENGUAJE5

TRECTt-K-

9EdnTRDL

Jg Ordcnadorts dc pmion, Ordtnadorci^S punu. DISTRIBUTOR EXCLUSIVO rd SINCLAIR ZX SPECTRUM &S COMMODORE Microdrive t

« SHARP <Va dFsporvhl.;-.' p' w^' '?:-' -*- -£ * * =#'^"

SI quia res form or

CLUB SINCLAIR, rellena

y erwtolo o troalo personolmenle a

PHOTO COPY. <:/, Thbso Her^m, 9. Lo Corufio

Pronto reel Biros noildas nuestras,

VC&KW

AiJCROA* -;=!

ORDENADORES PERSONAL.ES VMICROORDENADOHES DEGESTION

i SPECTRUM. OfllC-1

. MEW BRAIN

, KATSONi APPLE

i ALTOS

SOFTWARE STANDARD

V PORMACION

<j> COMPUTEST

REPARAMOSSUSPECTRUMCONGARANTIA

a! telt. (91)416 73 85

" /^ * VALMAR D!V, ' ^ . INFORMATICA5LI TIENDA DE INFORMATICA EN CADIZ

LEOFRECE* Ordenadores;-Sinclair -Sharp -Toshiba— Honeywell Bull —Dragon —Apple- Gran bib

* Perifericr.

ioteca tie programas y libros

s conformes a sus nacasidades

|B

SINCLAIR / ZX - SPECTRUM

CESPEDESDISTRIBUTOREN

VALENCIA componentes election icos

C/SanJacIntO:

, 6

Tfno. 3703581 / 370 17 24

LIBROS- PROGRAMASACCESORIOS

ZX SPECTRUMen BILBAO

libros, informacion...

JATENCION!

USUARIOS mDEL MICRODRIVEZX SPECTRUM

Ya disponemos del PlanNacional Contable Microdrive

* Archivo Plan Contable256 Cuentas

* Archivo Asientos1024 Asientos

* Extractos de Cuentas* BalancesSituacionSumas y Saldos

y todo en ZX Spectrum.

&K VVorld-A

Page 77: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

GUIA PRACTICA - GUIA PRACTICA - GUIA PRACTICA

CLUB DEL JUEGOCOMPRA — VENTA

PROGRAMAS DE OCASIONZX 16-48K

Entre otros: Space Raiders, TimeGate, Froggi, Billar Americano,Harrier Attak, Figther Pilot, Tunel3 D, Styk, Scuba Dive, BaseDatos. Ajedrez Cirus y 1 00 titulos

mas, pidenos el tuyo.

Por solo 900 Ptas, mas gastos deenvio, puedes conseguir tu

programa preferido, garantizados

y comprobados.

Pidenos gratis nuestro catalogode programas.

Rellena este cupon:

4^k recibir contra reembolso:^Bmbre del programa

ME LO ENVIAN A:

D

Calle

Poblacion

Telefono (si tienes)

ENVIAR A:

CLUB DEL JUEGOApartado Correos 34.155BARCELONA

Lfcc

MAJADAHONDA

Especializadoen sintzlair-

Micro-ordenadores

•Perifericos y accesorios

Programas• Libreria deMicroinformatica

Urb. Jardin de la Ermita

Majadahonda { Madrid

)

MICROGESAESPECIALISTAS EN SINCLAIR

ACCESORIOS: Lapii Optico, Amplifi-

cador sonido, "Modem" Telefdnico,

Cassette Especial, Microdrlves, Inter-

face 2. Programas standar y a medida.

CURSOS de BASICC/Silva, 5 - TbI 242 24 71, Madrid -13

LDGimflTICfl,S.a

"r^Bdri

UN NUEVO CONCESIONARIOPARA

ORDENADOR SINCLAIR

2X51: 14,975 ptas.

Sinclair ZXSpectrum 16K; 32.000 ptas

Sinclair ZXSpectrum 48 K: 41.900 ptas.

Y un sin fin de programas para juegos,education y utilidades/gestidn.

No pierda el tren de la informatics

ESTAMOS EN PLENA PROMOCION

elecirornca

LUVIORDENADORESPERSONALES

ACADEMIA SH

ii^ier-

i—epair-Reparacion de

:

• ZX Spectrum•ZX81 «ZX PrinterLlame al tfno, 416 73 83 en horario

de tarde y consiiltenos su caao.

u MULTISYSTEM, E. A.

BOUTIQUE INFORMATICA

Tod as lai novadadai t

PRECIOS ESPECIALESPARA COLEGIOS

Y TIENDAS

VIC-20COMMODORE 64ZX81 1KSPECTRUM 48KORIC ATMOS 48KMICRODRIVEINTERFACEJUEGOS (Importados)

* * *Tel. (93) 242 80 11 BARCELONATel. (93) 319 39 65 BARCELONATel. (93) 725 20 59 SABADELL

(A partir 18.00 horas)* * *

MICRO / RAMObispo Laguarda 1, 1.B

08001 BARCELONA

Page 78: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

EL SPECTRUM Y LA L.G.B.

Programas L'n exiwniKi (-48 K.)

• PUNTO LINEA PLANO

• ( iRci'\v[-:ai-NQA y orcui.o

•;i. ra:ii:,iFnn-.ifT.rp

NECESITAMOS• PROGRAMADORES CODIGOMAQUINA CON DOMINIO DELZ-80 Y 66502.FANATICOSROMPETECLA-DOS DE COMMODORE-64.

• REPRESENTANTES PARA TO-DA ESPANA (EXCELENTES CO-MISIONES).

Dirigirse por escrito adjuntandohisiorial y pretensiones economicas a

VENTAMATIC Dpto. Personal.

C/ Corcega, 89 06029 BARCELONA.

IMPORTACION YVENTA DIRECTA

ZX81 IKSPECTRUM 48KMICRODRIVEINTERFACE 1

CARTUCHOQL 128K

11.500.ptas

36.900 Ptas

14.500,pta5

14.500, ptas

1.400, Ptas

110.000.ptas

Envios contra reembolso

COMPUTER DISKONTPlaza Blasco de Garay 17, 1.-

I BARCELONA

™ SIFT, S. A.

PROGRAMAS PARAEL ZX SPECTRUM

* * *APARTADO 46.340

MADRID

B ELECTRONIC^£SANDOVAL»

OISTHIBUIDORES DE

ROCKWELl-AIM-65VIDEO GENIE-EG-2000

CASIO FX-9000P- SINCLAIR ZXB1OSBORNE 1 -DRAGON-32NEW BRAIN • EPSON HX-30

-ARTO-HOBBYS-INFORMATICA ^^

SINCLAIR(Distrlbuidor oflclal de Irwestrdnica)

Todo el Hardware y Software nacional

MAS DE 650 PROGRAMAS

videojuegosVenta por correspondenciaSOMOS DIFERENTES

ESCRIBENQS E INFORMATEARTO CI Angli. 43. BARCELONA-0601^

ZX SPECTRUM 48 KZX INTERFACE 1

ZX MICRODRIVECOMMODORE 64

PRECIOS MUY INTERESANTES

jCOMPRUEBELO!

Envios a toda Espaha por correo

o transporte urgente.

Cientos de referencias.

SERVICIO POST-VENTA

GARANTIA TOTAL

INTERNOVEL (EA 3 BJT)

c/ Victor Catala, n° 4

Torroella de Montgri (Girona)

MICROGESAESPECIALISTAS EN SINCLAIR

Spectrum 48K(desde 1.239 pts. al mes)

Interface 1 4 Microdrive — 35.000 pts.^(desde 1.084 pts. al mes) Vtmpresoras: Seikosha, New Print, Star(desde 774 pts. al mes)

Accesorios, Perifericos

Ampliaciones de memoria

Toda clase de programas

Programas "serios" adaptados a microdrive ZX:

— Contabilidad (plan Nacional Contable)— Administradores de fincas.— Programa agente de bolsa.— Proceso de textos.— Calc {hoja electronical.— Gestion archlvos.— Control de stocks.— Superquinielas (imprime directamente los

boletos).Programas tambien disponibles en cassettes

TAMBIEN TENEMOSCommodore 64, Vic 20 Spectravideo, Katson,MPF II y otros.

C/Silva, 5 -4. a Tel. 242 24 71 - 28013 MADRID

Page 79: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

CONGO MAQUINA

KMScrolls a izquierda

SOFTWARE

i piinr.ill.iver caracteres de

ta incorporada en unos pocosmedio de Software en el ZX

La funcion "scroll" define la facultad de

una direction determinada. Esca funcion

ordenadores. pern se puede "fabricar" pi

Spectrum.Normalmente se efectiia un scroll cuando la pancalla se ha llenado y se da

licencia para introducir nuevos caracteres. Este scroll se realiza hacia arriba.

Aqui incorporo dos rutinas de scroll, una hacia la izquierda y otra hacia la

dtrecha.

En la rutina de scroll hacia la izquierda todos los caracteres son desplazados

un numero dererminado de pixel* lucid la izquierda. Este numero es variado, y s:

es igual a 8, se simularia un desplazamienro de todos los caracteres en un;

columna hacia la izquierda.

Pasemos a explicarlo mediante el listado assembler 4. El programa t

Especificaciones: listacio assembDescription General: scroll hac

Entrada-. Ningun requerimiento

Salida: Todos los caracteres de I;

numero de pixels detet

Registros Usados: A, B, C, H, L.

4 para ZX Spe(

la izquierda.

porven desplazados en u

nido del registro B.

700070007002

7005

7007

7008700A700B700C700E7010

7011

70137015OOi.iOi)

00100

0608 001 10

211:F57 00120 BUCLE30E20 00130A7 00140CB16 00150 BUGLE I

2B 00160OD 0017020FA 001803E.3F 00190

BC 0020020F2 002 10

I0ED 00220C9 00230

00240

ORG 700HLD B, PIXELSLD HL, 22527

LD C, 32

AND ARL (HL)DEC HLDEC CJRNZ BUCLEILD A, 3EHCP HJRNZ BUGLE2DJNZ BUCLE3RETEND

,PIXELS A SCROLLEAR,FIN ARCH1VO PANT..CONTADOR1ND. ARRASTRE =Rotate Left

> BUCLE 1

- > OTRGCARACTER

7002 BUCLE 3

7005 BUCLE 2

7008 BUCLE 1

30 REM INTRODUCE CODXOO MfiOUINH

49 FOR F-28672 TO 8869350 READ R; POKE F.Bl NEXT F: L

ET T«0£0 FOR F.S8672 TO 8869370 LET T-T+PEEK F: NEXT F80 IF T 08806 THEN PRINT "ERRO

R EN PfiTflS": STOP90 DATA 6,8,33,856,87,14,32,16

7,303,22,43, 13,38, 250, 63, 63, 188,

100 PRINT-PULlfl UNA TECLA PARAPONER EN MARCHfi EL COOIQO MHO

UINfl" : PAUSE 0: RANDOMIZE USR 86672

Page 80: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

APRENMENDO EL

CONGO MAQUMA'u. Modifitando e! v

) de pixels que se deben r

: he pusto 8, que corresponde con ki que es el apcho de un taratter.

problema. El registro

lla. El registro simpleidifitado sin que

almacena la ultima direction del archivo de t

zado como contador y es decrementado p;

is a la instruction RI. (HL) (= Rotate Left) el contenido dei registro

es rotado hacia la izquierda. La figura I muestra la action de este

co. HI. debe ser decrementado para pasar a la siguiente position de

iria denrro del archivo de pantalla.

proceso se repite hasta que el registro H (que almacena el byte alto del

ru de pantalla) alcanza el valor 3FH, la primera position del archivo de

lla es 4000H, donde H, el byte alto, tiene el valor iOH y L, el byte bajo, el

00H. Dado que HL se decrementa paulatinamente sabremos que here*onado el archivo de pantalla, justo cuando H alointe el valor .3FH. En 4Pse ejecutarfa la instruction DJNZ, que pasaria a realizar un scroll ton el

Despllugar

mos la instruction RL registro. Su significado es: Rotate

atia la izquierda. Cada uno de los bits del byte del registro o(

de su "conipanero" de la izquierda. El 7.bit pasa a posicionarst

dor de urrastre, y el bit que antes estaba almacenado aqui, se ubica al

n.O. Por eso mismo, debe tener el indicador de arrastre el valor 0, a:

izar ton la rotation. Precisamente la orden AND A riene

Left

ndicador de < l el - 0,

registro A su contenido.

Si se desplaza el contenido de un registro doble, y esie regisi:

puntero del arthivo de pantalla, ocasionara un scroll en este

La rutina antagonica a la de la izquierda es, por supuesto, la de

deiecha. LI list.idu assembler 5, desvela con k desensamblaclon. e

Espccif•

listado assembler 5 para ZX jpettrum 16K/48K.Description Ge eral: stroll ha ia la derecha.

Entrada Ningu 1 requerimient

Salida: Todos los caractetes de i pantalla se ven desplazados en un Mdel registro B. ™numero de- pixels determinado por el contenidt

Registr JS Usados: A, B, C, H. L

7000 00100 ORG 7000H7000 0608 00 1 1 LD B. PIXELS ; PIXELS A SCROLI.EAR

7002 210040 00120 BUCLE} LD Hi, 16i84 ;FIN ARCHIVO PANT.70O5 0E20 00130 BUCLE2 LD C. 32 ; CONTADOR7007 A7 00140 AND A ;1ND. ARRASTRE -

7008 CB1E 00150 BUCLE 1 RR (HL);Rotate Right

700A 2E 00160 1NCHL700B OD 00170 DEC C

700C 20FA 00180 |RNZ BUCLE ;S1 C <>0 -y BUCLE1700E 5E58 00190 LD A, 58H ;S1 58 >H -> OTRO7010 BC 00200 CP H ;

CARACTER701 1 20F2 00210 |RNZ BUCLE27013 I0ED 00220 D|NZ BUCLE37015 C9 00230 RET00000 00240 END7002 BUCLE7005 BUCLE7008 BUCLE

Page 81: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

ANO I - NUMERO 2. REV1STA EXCLUSIVA PARA USUARIOS

EDITOR DE TEXTOPARA CASSETTE Y MICRODRIVEEXCLUSIVO:

PROGRAIWA DE 6RAFIC0S PROFESIONALES

ANAUSIS DE INTERFACES PARA IMPRESORAS X\,^PIXEIAPIXELPORLAPANTALLA <g^

<fc

Page 82: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

SOFTWARE

APRENMENDO EL

CODIGONIAQUINA

e6dlgO maquina. Esta subrutina es muy paredda a la de la izquie

Enumeremos las diferencias encrc una y otra. El puntero del arch

almacenado en HL, comienza en la primera posicion de pantalla (4000H). lin

este caso se hace uso de la instruction RR (HI.) (= Rocace Right). El comerbinario de HI. es desplazado hacia la derecha. Tambien acma el registro C EC

con cador.

La figura 2 muescra la action de la instruction RR registro. A la hora de

comprobar si se ha abandunado el archivo de pantalla, se escoge el valor 58H

30 REM INTRODUCE CODXGO MROUZNfl

40 FOR F-28672 TO 2869350 RERD fl: POKE F , R : NEXT F; L

ET T»0se for F-aae?3 to 8669370 LET T-T+PEEK F: NEXT F30 IF TO 1963 THEN PRINT "ERRO

R EN ORTRS": STOP90 DRTR 6,8,33,0,64,14,32,167,

203,30,36, 13, 38, 860, 62, 88, 166, 38,848, 18,837,301100 PRINT "PUL5R UNA TECLfl PRRfiPONER EN MRRCHfl EL CODIOO MRO

UINR": PRU6E 0: RANDOMIZE U5R 86678

i de Septiembre:

iE\ J7|6 5 |4 3|2|]|0|Indicator

deEyte del contenido de HL

El comeruierda. El

Arrastre

idu binario del

valor del bit 7

registt

2

1 doble

al iodic

HL es desph zado er

re, y e

£ J\m h|4 3I2I1J0Indicador Byte del con enido de HL

Arrastre

El con tenecha.

El valor

do binario del regis tr > doble HL es desplazado er

el bit n.° p sa al ndicado r de arras.re, y toe,

ra compararlo con el byt alto del registro HL, que es punter

,"i

H llega a tener el valor 58H, es serial inequivoca que se ha abandonado el

archivo de pantalla y que se debe procesar el siguiente pixel.

Tal y comu ocurre en el listado assembler 4, se puede modificar 1

pixels a ser desplazados, modificando el 2.byte del programa.En muchos programas, sobre codo en juegos, y dentro de estos, en los 1

temas "Laberinro" se encuentran las funciones scroll en todas direcciones. Estincurporan movimiento a sus graficos.

Page 83: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

0£0mme%

o &hl

TODOS ESTOS PROGRAMAS

^F\HAM ESTADO SITUADOS »i^m_PRIMERGS PUESTOS

DE LAS LISTAS ^ • i

vjJtsubisN *

y*

n---i

i

ilHgglBlill

PROGRAMASORIGINALESDE IMPORTACIONPARAcr>iri-.TRUM

§raB!l

'"Cw-*"-' "-" **''

Envienos a MICROBYTE San Gerardo. 59 MADRID-35

I0IAL

|.ip»ii.i.-. ;

|pob!a~'cr

Id P Teieioro

1 Corrtj Rpp.-nOclso PRECIO TOTAL PESETAS

ZX ENVIOS GRATIS &w 91-6565002

Page 84: Como crear marcianos yotros nstruos · 2011. 11. 25. · Cuandoclordenadorejetutaelpro-resultadoaltradoeBestno,perusolaletra:Sielnombretieunavariable f^i \V nT^mcd^''"^^ "no si Ano

16 K

GARHNTlZflflOS

DETU >2

SPECTRUMSi tienes un SINCLAIR ZX SPECTRUM de 16 K y deseas ampliarlo a 48 K ahora puedes

hacerlo con toda garanlia.

Acude a tu Concesionario Autorizado INVESTRONICA y en breve espacio de tiempo

dispondrds de tu Spectrum con MAS POTENCIA.Ademds INVESTRONICA arnpliard por tres meses la garantia de tu equipo,

independientemente de la fecha de adquisicion y te obsequiard con una

Cinta de Demostracion de 48 K.

Amplia,

ahora, hi SPECTRUMde 16 K a 48 K.

Con garantia...

Con mas garantia.