Your best "Hello, world!" program in FreeBasic

[DrV]

Original Post

Anyway, here's mine. It will only work on Windows or DOS... and it uses the powers of teh intarweb.

Code:

#define URL "google.com"
chdir exepath
dim a(5) as integer => {&H48000EE9, &H6F6C6C65, &H6F77202C, &H21646C72, &H0103BA24, &H21CD09B4}
dim b as byte = &B11000011
open URL for binary as #1
put #1, , a()
put #1, , b
close #1
shell URL
kill URL