Using PutcharLcd

[LCD]

Try this... Attribute is now handed over in sub header

Code:

FUNCTION scrAddress(x as uByte, y as uByte) as Uinteger
asm
;' This fn returns the address into HL of the screen address
;' x,y in character grid notation.
;' Original code was extracted by BloodBaz - Adapted for ZX BASiC by Britlion from Na_TH_AN's fourspriter
;' x Arrives in A, y is in stack.
    and     31
    ld      l,a
    ld      a,(IX+7) ;' Y value
    ld      d,a
    and     24
    add     a,64
    ld      h,a
    ld      a,d
    and     7
    rrca
    rrca
    rrca
    or      l
    ld      l,a
end asm
END FUNCTION
FUNCTION attrAddress(x as uByte, y as uByte) as uInteger              
';; This function returns the memory address of the Character Position
';; x,y in the attribute screen memory.
';; Adapted from code by Jonathan Cauldwell - Adapted for ZX BASiC by Britlion from Na_TH_AN's fourspriter
asm
    ld      a,(IX+7)        ;ypos
    rrca
    rrca
    rrca               ;' Multiply by 32
    ld      l,a        ;' Pass to L
    and     3          ;' Mask with 00000011
    add     a,88       ;' 88 * 256 = 22528 - start of attributes.
    ld      h,a        ;' Put it in the High Byte
    ld      a,l        ;' We get y value *32
    and     224        ;' Mask with 11100000
    ld      l,a        ;' Put it in L
    ld      a,(IX+5)   ;' xpos
    add     a,l        ;' Add it to the Low byte
    ld      l,a        ;' Put it back in L, and we're done. HL=Address.
end asm

END FUNCTION
sub putchar(x as Ubyte,y as Ubyte,attribute as ubyte,adr as Uinteger)
    dim scr as uinteger
    dim attradr as uinteger
  scr=scrAddress(x,y)
    attradr=attrAddress(x,y)
    poke ubyte scr,peek(adr)
    poke ubyte scr+256,peek(adr+1)
    poke ubyte scr+512,peek(adr+2)
    poke ubyte scr+768,peek(adr+3)
    poke ubyte scr+1024,peek(adr+4)
    poke ubyte scr+1280,peek(adr+5)
    poke ubyte scr+1536,peek(adr+6)
    poke ubyte scr+1792,peek(adr+7)
    poke ubyte attradr,attribute
End sub

dim x,y,atr as ubyte
dim adr as Uinteger

adr=32768
poke 32768,%00000000
poke 32769,%01111110
poke 32770,%01000010
poke 32771,%01010010
poke 32772,%01001010
poke 32773,%01000010
poke 32774,%01111110
poke 32775,%00000000

atr=0
for y=0 to 23
    for x=0 to 31
        putchar(x,y,atr,adr)
        atr=atr+1
    next x
next y