Your best "Hello, world!" program in FreeBasic

[thegrogen]

*removed code*
hehe screen 13 font in screen 12 resolution =)

Code:

dim array(319, 199)
screen 13
print "Hello World!"
for x = 0 to 319
    for y = 0 to 199
        array(x, y) = point(x,y)
    next
next
cls
screen 12
for x = 0 to 319
    for y = 0 to 199
        pset(x,y),array(x,y)
    next
next
sleep

Fixed.