OpenEuphoria

2. border

• Posted by Jean Hendrickx <jean.hendrickx at EURONET.BE> May 19, 1997
• 924 views

Hello,
Comming again on a problem with Gif viewer
"Is it possible to take that ugly border out?"
around  April 17, l suggest this solution:
-- DOSBORD.EX  Interrupt example
include machine.e
constant  ERR = 2

sequence reg_list -- list of register values

reg_list = repeat(0, 10)
-- function: AH = #10 AL= #01 => fix color of border
reg_list[REG_AX] = #1001
-- BH : set color of border (0000 is black)
reg_list[REG_BX] = #0000
-- Call DOS interrupt #10
reg_list = dos_interrupt(#10, reg_list)

if remainder(reg_list[REG_FLAGS], 2) then
    puts(ERR, "Problem with Get DOS version interrupt\n")
end if
-- --------------------------------------------------
The useful code can be appened to the file Gif Loader
and that works.
Hope this help.
Jean H.
jean.hendrickx at infoboard.be