OpenEuphoria

Re: Mode 19 border color

• Posted by "Graeme." <hmi at POWERUP.COM.AU> Apr 06, 1995
• 1080 views

At 04:28 PM 4/5/98 +0200, you wrote:
>Is there some way to force the border color in graphics mode 19 to become
>something else than 16 (it is 16, right?). Because if I change color 19 to
>black, I will break the system in my palette.
>
>Einar Mogen


Try this:


include machine.e

procedure border_color(integer color)
    -- set border & background color
    sequence regs
    regs=repeat(0,10)
    regs[REG_AX]=#0B00
    regs[REG_BX]=color
    regs=dos_interrupt(#10,regs)
end procedure



Graeme.