OpenEuphoria

Re: What happened to OpenEuphoria and Euphorria

• Posted by doncCcole Dec 13, 2016
• 1477 views

Here's the code I'm using to test.

When I bind it comes out ok.

When it's bad 7 comes out pink.

So I think something is wrong with my interpreter.

If the .exw comes out all right on your computer then it must be my interpreter. But they why is it binding ok?

What should I do, reinstall Euphoria?

It was working ok little while ago (with Windows 10). I didn't change anything with Euphoria.

include win32lib.ew  
include graphics.e 
<eucode>  
global procedure pause() 
  object ii 
     puts(1,"\n  [ANY KEY] = Continue     [F1] = Force Err         [Esc] = Exit     \n") 
 ii=wait_key() 
   if ii=27 then 
    abort(0) 
   elsif ii=315 then 
     ?9/0  
   end if 
end procedure 
<eucode> 
constant nums={"0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22"} 
    for y=0 to 16 do--bk_color 
    text_color(2) 
    bk_color(15) 
        printf(1,"bk_color=%d\n",{y}) 
       bk_color(y) 
         for x=1 to 15 do --text_color 
        text_color(x-1) 
    --  text_color(BRIGHT_GREEN)--dosen't work 
           printf(1,"text_color=%d nums[x]=%s getdec=%d\n",{x-1,nums[x],getdec(nums[x])}) 
         end for 
    pause() 
    end for 

Thank you
Don Cole