El programa aparecido en la página 10 del número 2, es tremendamente útil y funciona a la perfección. Pero como he estado enredando en él, envío unas sugerencias en torno al scroll de pantalla.
Esto se consigue con:
LD B,18 - 6,18 CALL 3584 - 205,0,14 RET - 201
que sólo ocupa 6 bytes y congela las líneas de cabecera.
Resumiendo, he modificado el programa como sigue:
310 LET contador=contador+1: IF contador>17 THEN RANDOMIZE USR 30014: POKE 23689, 3 345 DATA 6, 18, 205, 0, 14, 201 350 FOR n=30000 TO 30019: READ x: POKE n, X: NEXT n: RETURN
Cuando el contador sea 99 y se ejecute la línea 320 sí aparecerá el temido mensaje «Scroll?». Pero esto no me he puesto ha resolverlo. ¡¡No tengo cintas con tantos archivos!!
Zacarías Sánchez :: Cartagena