OpenEuphoria

Re: And I thought it would be easy ?? Dos program to a windows program ??

• Posted by kinz Jan 16, 2011
• 1684 views

See please one possible solution:

include dos_rescue.ew --- from the Insolor's package   
                      --- http://www.rapideuphoria.com/dosrescue2.zip 
include swfuncs.e 
include get.e 
      object a,b,r,w 
 
      r = 1 
      a = prompt_number(" Type num ",{}) 
      b = prompt_number(" Type num ",{}) 
 
      clear_screen() 
 
      while r > 0 do 
           r = a - b* floor(a/b) 
           if r = 0 then 
             exit 
           end if 
           a = b 
           b = r 
      end while 
 
      puts(1,"The Greatest Common Denominator is ") 
 
      ? b 
 
b = getc(0) --- press Enter instead of wait_key() 
 

Works for me with eui.exe of 4.0. But Rob's dos_rescue.ew of lw doesn't force it to work with exw.exe of 3.1.1, sorry.

And it runs ok with exw.exe of 3.1.1 without includeing of dos_rescue.ew at all.

kinz