POKE STRING and @string$

[LCD]

While we are there. How about this?

Code:

sub FillMem(mem as Uinteger,size as Uinteger,byt as Ubyte)
    asm
        ld h,(ix+5)
        ld l,(ix+4)
        ld d,(ix+5)
        ld e,(ix+4)
        inc de
        ld b,(ix+7)
        ld c,(ix+6)
        dec bc
        ld a,(ix+9)
        ld (hl),a
        ldir
    end asm
end sub

paper 7:ink 0:cls
do
FillMem(16384,6144,85)
asm
    halt
end asm
FillMem(16384,6144,170)
asm
    halt
end asm
loop until inkey$<>""

I think, this may be usefull for some coders here too. But I'm just playing around...
Edit: replacing

Code:

ld d,(ix+5)
ld e,(ix+4)

with

Code:

ld de,hl

should work too and save some bytes.

Code:

sub FillMem(mem as Uinteger,size as Uinteger,byt as Ubyte)
    asm
        ld h,(ix+5)
        ld l,(ix+4)
        ld de,hl
        inc de
        ld b,(ix+7)
        ld c,(ix+6)
        dec bc
        ld a,(ix+9)
        ld (hl),a
        ldir
    end asm
end sub