OpenEuphoria

 
-- This is a simple program that shows demonstrates the BUG. 
-- 
-- If you run the following program using WIN2000 ver 4.0 binaries or 
-- the WIN98 ver 3.11 binaries. 
-- The ? [$] and the printf both print the same value. 
-- 
-- If you run the same code using WIN98 ver 4.0 binaries then the 
-- ? [$] and the printf DIFFERENT values. 
-- 
-- Of course you have to use include dll.e on the WIN98 ver 3.11 binaries. 
 
-- Start junk.exw ------------------------------------------------------------   
 
include std/dll.e 
 
sequence x 
 
function foo(sequence n) 
n &= define_c_var(open_dll("user32.dll"),n) 
? n[$] 
if n[$] then return sprintf(" %d ",{n[$]}) end if 
end function 
 
x = foo("MessageBeep") 
 
printf(1,x,{}) 
 
if getc(0) then end if 
 
-- End junk.exw ------------------------------------------------------------