OpenEuphoria

Screen Savers - Module Description

• Posted by "Graeme." <hmi at POWERUP.COM.AU> Jan 03, 1998
• 825 views

More Info ....

For the windows control panel to recognise the screensaver, the
program's module description string must begin with "SCRNSAVE:"

I assume there is some way to set the module description in
exw. I havn't even looked at it yet. -- Anybody?

Here's a quick routine for handling the mouse/keyboard checks:

---- Snip ----
include machine.e
sequence init
init={0,0}

procedure check_input()
    sequence reg
    reg={0,0,0,0,0,0,3,0,0,0}
    reg=dos_interrupt(#33,reg)
    if compare(init,{0,0})=0 then
        init=reg[5..6]
    elsif compare(init,reg[5..6])!=0
                or reg[4] or get_key() !=-1 then
        abort(0)
    end if
end procedure

procedure update_cool_graphics()
    puts(1,"Screen*Saver*")
end procedure

while 1 do
    check_input()
    update_cool_graphics()
end while
--- code ends ---