OpenEuphoria

How to get error code from Interpreter ?

• Posted by vmars May 15, 2009
• 888 views

I am running pgm #52 from 'A-Beginners-Guide-To-Euphoria-OffLine.htm' And all I get back is a Black screen flash, then back to Windows.
Please, tell me what is wrong with the pgm, and how can I get the Interpreter to tell me what's wrong; Error code or something?
Thanks!

\\ 
with trace 
   trace(1) 
include file.e 
include get.e 
include wildcard.e 
include graphics.e 
include machine.e 
--  
-- demo program 52 
 
integer foreground_colour 
sequence list_of_colours, already_used 
 
clear_screen() 
 
list_of_colours = {"blue","green","cyan","red","magenta","brown", 
                   "white","gray","bright blue","bright green", 
                   "bright cyan","bright red","bright magenta", 
                   "yellow","bright white"} 
 
already_used = {} 
 
for ix = 1 to 10 do 
     foreground_colour = rand(15) 
     while find(foreground_colour,already_used) do 
          foreground_colour = rand(15) 
     end while 
     already_used = already_used & foreground_colour 
     text_color(foreground_colour) 
     printf(1, "Text in %s\n",{list_of_colours[foreground_colour]}) 
end for 
 
-- 
keystroke = wait_key() 
 
 
\\