OpenEuphoria

Hello,

I think this may be a bug. Whenever I goto write data to a file, my program crashes on me. Here is the code.

 
constant HP = 1 
integer handle, fn 
sequence file, fName 
 
fName = getSaveFileName(Main,file,FrostType) 
 
 if length(fName) = 0 then 
        return 
 end if 
 
  handle = open(fName,"wb") 
 
 if handle = -1 then 
 
  fn = message_box("Save Error", 
                  "Save File Error", 
         MB_TASKMODAL) 
 end if 
 
 print(handle,HP) 
 puts(handle,"\n") 
 
 close(handle)