Cría del Byte silvestre en ordenadores ZX Spectrum

A raíz de un comentario de mi buen amigo contertulio Na_th_an me he animado a escribir una serie de artículos sobre la cría en cautividad de bytes silvestres en ordenadores ZX Spectrum. Aunque suene a coña marinera, no os engañeis, lo es.

RECREACION DE HABITAT

En primer lugar debemos crear un espacio para nuestro byte, ni grande para que se pierda, ni pequeño para que sufra de claustrofobia. Una buena medida es 100 bytes de espacio, los cuales vamos a presentar en pantalla en una rejilla de 10×10 caracteres:

10 REM Cria del Byte silvestre
20 PAPER 0: BORDER 0: INK 7: FLASH 0: BRIGHT 0: CLS : PAPER 8
30 DIM a(100)
40 FOR b=0 TO 9: FOR c=0 TO 9: PRINT AT b,c; PAPER 1;».»: NEXT c: NEXT b

En segundo lugar vamos a poner algunas plantitas, que servirán para que nuestro byte respire, basta con 5:

50 FOR b=0 TO 4: LET c=(INT (RND*9)): LET d=(10*(INT (RND*9))): LET a(c+d)=1: PRINT AT c,(d/10); INK 4;»Y»: NEXT b

Y por último hacemos lo mismo con la comida, basta con 5 plantas de tomates (a los bytes le encantan los tomates):

60 FOR b=0 TO 4: LET c=(INT (RND*9)): LET d=(10*(INT (RND*9))): LET a(c+d)=2: PRINT AT c,(d/10); INK 2;»o»: NEXT b

Chachi, ya tenemos un lugar cómodo para nuestro byte.
Ahora, con sumo cuidado, lo definimos y lo ponemos en un sitio cómodo:

70 LET byte=8: LET hambre=0: LET aire=0
80 PRINT AT 0,12;»HAMBRE: «;hambre;» «
90 PRINT AT 1,12;»AIRE: «;aire;» «
100 LET c=INT (byte/10): LET b=byte-c: PRINT AT b,c; INK 0;»B»

De paso hemos asignado unas variables para saber su estado, y así saber que es lo que hace si tiene hambre o necesita respirar.

Por si no lo sabeis, los bytes necesitan respirar cada 50 ciclos (en región PAL, en NTSC son 60), mientras que comen cada 16 ciclos (sobre esto hay discusión).

Y esto es todo por hoy, mañana empezaremos a dar vida a nuestro byte para ver como se comporta.