OpenEuphoria

Euphoria rocks!

• Posted by Matthew A Nunyabidness <matt1421 at JUNO.COM> Sep 18, 1998
• 479 views

When it comes to programming languages, Euphoria is a cut above.
Euphoria.ex:
-- Flash! Written for Euphoria by matt1278 at juno.com
-- Also written for QBasic and written and compiled for QuickBASIC
include graphics.e
include get.e
integer a
clear_screen()
a=1
while 1 do
a=a+1
if a>15 then
a=1
end if
text_color(a)
position(10,30)
puts(1,"Euphoria!")
if get_key()!=-1 then
position(10,28)
text_color(BRIGHT_CYAN+BLINKING)
puts(1,"Euphoria rocks!")
if wait_key() then
end if
exit
end if
end while
abort(0)