problem in my fast_puts()
- Posted by Lee woo seob <wslee at HHI.CO.KR> Apr 03, 1997
- 887 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