or what i am trying to do (dynamically coloring output text in %cw) is just impossible?
include <windows.ins>
iun = 33
kolRed=rgb@(255,0,0)
kolGrn=rgb@(0,255,0)
kol =rgb@(0,0,255)
i=winio@('%ac[esc]&','exit')
i=winio@('%tc%55.15cw[vscroll,local_font]&',kol,iun)
i=winio@('%lc&',ihw)
i=winio@('%lw',ilw)
do i=1,15
kol=kolGrn
call SET_CONTROL_TEXT_COLOUR@(ihw,kol)
write(iun,*) 'Green'
call temporary_yield@
call sleep1@(0.5)
kol=kolRed
call SET_CONTROL_TEXT_COLOUR@(ihw,kol)
write(iun,*) 'Red'
enddo
end
