Collision attr routine.

[boriel]

Why not write a subroutine which pokes these values into printer buffer? Like: POKE buf,peek(attradr-32)OKE buf+1,peek(attradr-1)OKE buf+2,peek(attradr+1)OKE buf+3,peek(attradr+32). This is not standard BASIC function, and I don't think, it will be of any use for other users.

I have added AttrAddr(y, x) function in attr.bas library in the latest version 1.2.8r2139
I was thinking exactly the same:

Code:

#include <attr.bas>

Sub GetAddr(y, x, buf)
    Dim attraddr as UInteger
    attradr = AttrAddr(y, x)
    POKE buf,peek(attradr-32)
    POKE buf+1,peek(attradr-1)
    POKE buf+2,peek(attradr+1)
    POKE buf+3,peek(attradr+32)
End Sub