ZX Spectrum – Cargando BASIC de manera personalizada (II): cuenta atrás

Ahora empezamos a ponerle cosas “raras” a nuestro programa, y como vamos a grabar el juego un montón de veces voy a utilizar la variante de Crash (para no tener que escribir un montón de veces las instrucciones de grabación). Ya sabemos cómo cargar un BASIC como CODE, se lo podemos servir en bandeja a diferentes rutinas de carga. Empezaremos por una de las fáciles: la rutina de carga con contador publicada en Microhobby en el número 191.

Leyendo las instrucciones, vemos que no hay muchas cosas que hacer… hacemos un CLEAR, cargamos la rutina en 64768, la pokeamos un rato (si queremos) y la ponemos a cargar un bloque CODE con USR 65313. Aquí hay un cambio con lo que hemos hecho antes: no creo que sea buena idea cargar nuestro bloque de datos con un CLEAR modificado. Así que (por si las moscas) vamos a grabar nuestro basic con un CLEAR 64767. Lo ponemos en la línea 9999, de forma que quede así:

9999 CLEAR 64767:
     LET STKEND=PEEK 23653+256*PEEK 23654:
     SAVE "basic" CODE 23552,STKEND-23500:
     RUN 7600

Además, es muy mala idea modificar las variables del sistema, por lo que un RANDOMIZE USR 65313 no es aconsejable. Podemos poner PRINT USR, que no toca las variables del sistema y no nos dará problemas. El cargador nos quedaría así:

10 BORDER 0: PAPER 0: INK 0: CLEAR 64767
20 LOAD "" CODE: PRINT USR 65313

Salvamos nuestro cargador, salvamos la rutina de Microhobby y después salvamos nuestro BASIC usando el GO TO 9999. Ya tenemos nuestro programa grabado con contador.

Enlaces interesantes:

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s