FutureBASIC

'--Functions--

local fn hello
cls
window 1, "Hello, World", (0,0)-(512,320),_dialogmovable,classa
text _monaco,9
end fn

local fn pr
do
print "Hello, World!"
until len(inkey$) or mouse(_down)
end fn

'--Main--
fn hello
fn pr