boriel Wrote:@tachuelita, te traduzco lo que dice @LCD:
ZX BASIC usa la numeración 0..n-1 para las cadenas. O sea, la primera letra de un String A$ sería A$(0), mientras que en el BASIC original del Spectrum es A$(1). Esto se hace por rendimiento. Pero puedes hacer que empiecen en 1, usando el parámetro --string-base=1. Para arrays sucede lo mismo, y puedes usar --array-base=1 para que empiecen en 1, como en el Sinclair BASIC.

Quote:También ten en cuenta que cuando ZX BASIC evalúa una condición booleana en un IF, el resultado puede ser 0 (False) o <>0 (True). En el BASIC original de Sinclair siempre era 0 ó 1, aquí no, porque esto da más velocidad. No obstante, puedes forzar que siempre sean 0 ó 1, usando el flag de compilación --strict-bool a costa de un pequeño (mínimo) impacto en el rendimiento.

Quote:Por último, si quieres despreocuparte de todo esto, puedes usar el flag --spectrum que activa todo lo de arriba a la vez para mayor compatibilidad.

tachuelita Wrote:Right, I don't know the compiler option --string-base=1 ... How do you apply?
Now understand that my mistake was not having subtracted 1 to index of (x$). that's right?
Anyway, I have to get used to start with zero index of the strings. I guess it has its advantages.

Then, still posing routines that are not properly compiled.

The next routine, try to copy a movie of frames at ATTR address on the screen.
But The variable 'ymalo' ( " y " coordinate) does not work because it always stays at 0. i dont know why :

Code:

'-----------------------------------------
'         EXPLOSION (prueba)
'
'    cargar explosionATTR.bin en 62000
'-----------------------------------------

600    LET ymalo=10     ' IT"S  =10  NOT =0  !!!!@#$^& GRRRR
    LET xmalo=15

3000     BORDER 0
    CLS
    LET expd=62000
    LET pijota=22528
    
3010    '----- movie -------
3059    FOR d=(0+ymalo) to (9+ymalo)
3060    FOR q=(0+xmalo) to (6+xmalo)
    LET cod=pijota+(32*d)+q
    LET codi= PEEK expd
    IF cod > 22528 AND cod < 23296 THEN
        POKE cod,codi
    END IF
3085    LET expd=expd+1
3086    NEXT q
3088    NEXT d


3090    IF expd > 63050 THEN
        GOTO 3000
    END IF

    
3100    GOTO 3010

the corresponding compiled file:
http://www.mediafire.com/?nl20ws5g09xhgh9

in this case I don't need upload the file attributes, because you can see the attr-movie-frames like a black window

GRACIAS NUEVAMENTE!!! (me esta gustando esto de escribir en ingles, solo que no se si es la sintaxis correcta)

tachuelita Wrote:- Esto hace que me surja la siguiente pregunta: como hago para utilizar numeros negativos (y que me funcione el codigo)??

tachuelita Wrote:Tambien necesito saber como hago para utilizar los numeros que estan despues de la coma en una variable, por ej: LET a= a + 0.02
- Como hago para que una variable soporte este tipo de valores?

teclita Wrote:- Como hago para hacer etiquetas con nombres para las SUB-rutinas asi no depender del engorroso numero de linea del spectrum basic?