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