OpenEuphoria

help requested

• Posted by Francesco Marangoni <gar7314 at IPERBOLE.BO.IT> Sep 23, 1998
• 661 views

To all Euphoria enthusiasts

I can't understand how to make this watch working good:
in text mode works OK.
in graphics mode (18), wich is what I need, I see a sort of rain (?) over=
 the watch.
Somebody can help me?

include graphics.e
atom i
sequence s,coordinate
i=3Dgraphics_mode (18)
-- cursor(NO_CURSOR)   --needed in text mode
coordinate=3D {{2,78},{2,75},{2,72},{3,72},{3,75},{3,78}}

procedure orologio()
        s =3D date()
        for i=3D1  to 6  do
            position((coordinate[i][1]),(coordinate[i][2]))
            printf (1,"%02d",s[i])
        end for
end procedure

while get_key() !=3D 27 do
    orologio()
end while
i=3Dgraphics_mode(-1)