{"id":1364,"date":"2008-03-31T10:27:00","date_gmt":"2008-03-31T10:27:00","guid":{"rendered":"http:\/\/www.bytemaniacos.com\/?p=1364"},"modified":"2008-03-31T10:27:00","modified_gmt":"2008-03-31T10:27:00","slug":"cria-del-byte-silvestre-en-ordenadores-zx-spectrum","status":"publish","type":"post","link":"https:\/\/bytemaniacos.com\/web\/?p=1364","title":{"rendered":"Cr\u00eda del Byte silvestre en ordenadores ZX Spectrum"},"content":{"rendered":"

A ra\u00edz de un comentario de mi buen amigo contertulio Na_th_an me he animado a escribir una serie de art\u00edculos sobre la cr\u00eda en cautividad de bytes silvestres en ordenadores ZX Spectrum. Aunque suene a co\u00f1a marinera, no os enga\u00f1eis, lo es.<\/p>\n

RECREACION DE HABITAT<\/b><\/p>\n

En primer lugar debemos crear un espacio para nuestro byte, ni grande para que se pierda, ni peque\u00f1o 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:<\/p>\n

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;\u00bb.\u00bb: NEXT c: NEXT b<\/p>\n

En segundo lugar vamos a poner algunas plantitas, que servir\u00e1n para que nuestro byte respire, basta con 5:<\/p>\n

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;\u00bbY\u00bb: NEXT b<\/p>\n

Y por \u00faltimo hacemos lo mismo con la comida, basta con 5 plantas de tomates (a los bytes le encantan los tomates):<\/p>\n

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;\u00bbo\u00bb: NEXT b<\/p>\n

Chachi, ya tenemos un lugar c\u00f3modo para nuestro byte.
Ahora, con sumo cuidado, lo definimos y lo ponemos en un sitio c\u00f3modo:<\/p>\n

70 LET byte=8: LET hambre=0: LET aire=0
80 PRINT AT 0,12;\u00bbHAMBRE: \u00ab;hambre;\u00bb \u00ab
90 PRINT AT 1,12;\u00bbAIRE: \u00ab;aire;\u00bb \u00ab
100 LET c=INT (byte\/10): LET b=byte-c: PRINT AT b,c; INK 0;\u00bbB\u00bb<\/p>\n

De paso hemos asignado unas variables para saber su estado, y as\u00ed saber que es lo que hace si tiene hambre o necesita respirar.<\/p>\n

\"\"<\/a>
Por si no lo sabeis, los bytes necesitan respirar cada 50 ciclos (en regi\u00f3n PAL, en NTSC son 60), mientras que comen cada 16 ciclos (sobre esto hay discusi\u00f3n).<\/p>\n

Y esto es todo por hoy, ma\u00f1ana empezaremos a dar vida a nuestro byte para ver como se comporta.<\/p>\n

\"\"<\/div>\n","protected":false},"excerpt":{"rendered":"

A ra\u00edz de un comentario de mi buen amigo contertulio Na_th_an me he animado a escribir una serie de art\u00edculos sobre la cr\u00eda en cautividad de bytes silvestres en ordenadores ZX Spectrum. Aunque suene a co\u00f1a marinera, no os enga\u00f1eis, lo es. RECREACION DE HABITAT En primer lugar debemos crear un espacio para nuestro byte, […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-1364","post","type-post","status-publish","format-standard","hentry","category-sin-categoria"],"_links":{"self":[{"href":"https:\/\/bytemaniacos.com\/web\/index.php?rest_route=\/wp\/v2\/posts\/1364","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/bytemaniacos.com\/web\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/bytemaniacos.com\/web\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/bytemaniacos.com\/web\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/bytemaniacos.com\/web\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1364"}],"version-history":[{"count":0,"href":"https:\/\/bytemaniacos.com\/web\/index.php?rest_route=\/wp\/v2\/posts\/1364\/revisions"}],"wp:attachment":[{"href":"https:\/\/bytemaniacos.com\/web\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1364"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/bytemaniacos.com\/web\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1364"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/bytemaniacos.com\/web\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1364"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}