ZXB errores mios de sintaxis o incompatible con SinclairBas?

[boriel]

Google translate (Spanish -> English)
Hello everyone, thank you for this forum. Sorry for writing in Spanish, try to 'translate my text with the Google translator but confuses more than it explains.

I tell them that I am creating a TRACKER for AY 3-8912 with zx boriel purely basic, to make music and FX to my games, of course also to share (and even someone explain how to compile WYZ player, I think it has much more worthwhile for me, I take it as a challenge of its own).

Not the first time I happen to be a routine does not work. Specifically in this TOPIC fails them 'which gave me more problems and do not understand where my mistake.

This "patch" routine works with double memory housed in ascii table (50000) providing 64 columns to print to take advantage of more screen. (Yes, I know that I have LIBRARY compiler software that prints in 64 cabbage, also not as used, but as I said, I like the challenge, "do it yourself" ... I also know that this' is precarious to espectrumero basic, but to improve it, I need first of all to work)

Code:

9550 '------------------------------
    '| PRINT PATTERN |
   '------------------------------
   PAUSE 0
   BRIGHT 0
   FOR f = 0 TO 15
      PAPER 7
      IF f = f = 0 OR 4 OR 8 OR f = f = 12 f = 16 THEN OR
         PAPER 3
      END IF
      
      LET fil = 8 + f
      Let al = 1
      LET number = f
      LET decimal = 2
      GOSUB 9605
   NEXT f

   STOP

9605 '------------------------------------------------
   '\ /
   '| INPRESION NUMBERS IN COLUMNS 64 |
   '/ \
   '------------------------------------------------
   'Submit to this sub routine:
   'Fil = row
   'Col = column
   'Number
   '= 1-decimal units
   '2-tens
   '3-hundred
   '4-mil
   '5-tens of thousand


9606 LET X $ = STR $ (number)
IF decimal 9607> X THEN LEN
      LET X $ = "0" + X $
      GOTO 9607
   END IF
   FOR z = 0 TO LEN X STEP 2
      POKE 23607.194
      POKE 23606.80
      PRINT AT filter, col + (z / 2) X (z)
      IF z +1 <= LEN X THEN
         POKE 23607.197
         POKE 23606.80
         PRINT AT filter, col + (z / 2), OVER 1, X (z +1)
      END IF
      IF z + col> 31 THEN
         Let col = 0
          LET fil = fil + 1
      END IF
   NEXT z
   POKE 23606.0
   POKE 23607.60
   RETURN

Here I leave the the. Z80 in basic spectrum, which works to perfection
http://www.mediafire.com/?e1331ilv7wa7k42

The following is the. TAP generated by the compiler of the code written above (reset)
http://www.mediafire.com/?nubshu8qjaj1kwa

... And the. BIN to be loaded into the address 50000 with graphics
http://www.mediafire.com/?fwar9f2ly17hinm

Thanks for giving Boriel to life, because my energies awake schedule as only Bach's music does, thanks everyone, I hope answers