OpenEuphoria

problem in my fast_puts()

• Posted by Lee woo seob <wslee at HHI.CO.KR> Apr 03, 1997
• 1317 views

Hi, pals!

I have got some trouble in my program. Heeeeelp me please!

I myselp made fast_puts() routine using poke() as follows, but did not work well
when it is used with "switching display pages".

graphic mode is 80x25 color text mode.


---- code starts here

include image.e
global procedure fast_puts(integer ForeColor, integer BackColor,
                integer row, integer col, sequence string)

sequence screen, buffer
integer str_len

screen = #B8000 + get_active_page()*4000    -- Is this Incorrect ??????
str_len = length(string)
buffer = repeat(BackColor*16+ForeColor, str_len*2)

for i=1 to str_len do
        buffer[i*2-1]=string[i]
end for

poke(screen+(row-1)*160+(col-1)*2,buffer)
end procedure

----- code end here