Returning to basic do not run PRINT.(*solved*)

[compiuter]

I was testing an attr routine. I launch it with pokeing it and randomize usr 60000.
When returns to basic, the problem is if I put a single print, then returns out of memory.
Not this if I put a print at.
I think the compiler affects to variables ch add or something.

Code:

Sub GetAddrTileFull(y, x, buf)
      Dim attraddr as UInteger
      attradr = AttrAddr(y, x)
      POKE buf,peek(attradr-32)
      POKE buf+1,peek(attradr-31)
      POKE buf+2,peek(attradr-30)
      POKE buf+3,peek(attradr+2)      
      POKE buf+4,peek(attradr+34)
      POKE buf+5,peek(attradr+34+32)
      POKE buf+6,peek(attradr+34+31)
      POKE buf+7,peek(attradr+34+30)
      POKE buf+8,peek(attradr+34+29)
      POKE buf+9,peek(attradr+2+29)
      POKE buf+10,peek(attradr-1)
      POKE buf+11,peek(attradr-33)
  End Sub
Dim x,y as uinteger
x=peek 23421
y=peek 23422
GetAddrTileFull(y,x,23400)

command line:
zxb attr1a.bas -T -B -a -Z -O1 --org 32768

Regards.

[boriel]

Please, copy & paste the code here using the "Code" button above. You can also send it to my by email.
I'm currently rather busy, and there is another bug fix pending. :oops:

[compiuter]

The problem is using in basic.
The routine seems to go on.
The problem are the effects in print or others.
I posted the code above. :?

[boriel]

The compiler returns "Out of Screen" (not Out of Memory). This bug is due to PRINT coordinates changed by the PRINT routine system. I will fix it as soon as possible (still busy!)

[boriel]

Okay, seems to be fixed. Please download latest version (1.2.8s703) and tell me if it worked! :roll:

[compiuter]

Okay, fixed now.