Your best "Hello, world!" program in FreeBasic

[SSC]

Code:

dim array(0 to 319, 0 to 199)
screen 13
print "Hello World!"
for x = 0 to 319
    for y = 0 to 199
        array(0 to 319, 0 to 199) = 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

hehe screen 13 font in screen 12 resolution =)