Your best "Hello, world!" program in FreeBasic

[yetifoot]

Code:

Dim As Integer dd(704) = { _
41,  74,  41,  76,  41,  82,  41,  85,  41,  90,  41,  95,  41, 100,  41, 102, _
41, 107,  41, 111,  41, 114,  41, 117,  41, 120,  41, 125,  41, 127,  41, 132, _
41, 136,  41, 140,  41, 143,  41, 147,  41, 151,  41, 152,  41, 153,  41, 154, _
42, 114,  44, 114,  48, 114,  50, 114,  54, 114,  60, 114,  65, 114,  68, 114, _
70, 114,  71, 114,  75,  79,  75,  80,  75,  85,  75,  93,  75, 102,  76, 111, _
76, 118,  76, 125,  76, 127,  76, 134,  76, 138,  76, 140,  76, 141,  96, 130, _
98, 129, 100, 128, 100, 127, 103, 125, 105, 124, 106, 122, 108, 121, 108, 120, _
108, 119, 108, 118, 108, 117, 108, 116, 108, 115, 108, 114, 108, 113, 107, 112, _
107, 111, 106, 111, 105, 110, 103, 110, 102, 110, 100, 110,  97, 110,  92, 113, _
88, 117,  83, 119,  81, 121,  81, 122,  80, 123,  80, 124,  80, 127,  80, 129, _
82, 131,  82, 132,  84, 135,  86, 137,  88, 140,  91, 141,  95, 144,  99, 145, _
101, 145, 103, 145, 106, 145, 108, 145, 112, 144, 114, 143, 116, 142, 116, 141, _
132,  82, 132,  86, 132,  93, 132,  96, 132, 103, 132, 108, 132, 114, 132, 120, _
132, 126, 132, 132, 132, 134, 132, 140, 132, 143, 132, 144, 151,  89, 151,  93, _
151,  95, 151, 100, 151, 105, 151, 111, 151, 117, 151, 123, 151, 128, 151, 131, _
151, 136, 151, 142, 151, 146, 151, 148, 183, 118, 181, 118, 179, 119, 178, 120, _
174, 126, 172, 128, 171, 132, 170, 134, 170, 138, 170, 140, 171, 142, 174, 144, _
177, 146, 179, 146, 182, 146, 184, 146, 187, 145, 189, 144, 192, 141, 194, 139, _
195, 134, 195, 130, 195, 126, 195, 123, 193, 119, 190, 115, 188, 114, 185, 112, _
244,  84, 244,  85, 244,  87, 244,  91, 244,  97, 244, 102, 245, 107, 245, 113, _
246, 115, 248, 120, 250, 127, 252, 131, 254, 137, 254, 139, 254, 141, 254, 142, _
254, 143, 254, 144, 254, 145, 254, 146, 255, 144, 255, 143, 256, 141, 257, 139, _
258, 137, 260, 133, 262, 130, 262, 127, 262, 125, 263, 123, 263, 122, 263, 121, _
263, 120, 263, 119, 263, 120, 263, 122, 264, 124, 266, 129, 270, 136, 274, 142, _
276, 145, 278, 147, 279, 147, 280, 145, 281, 141, 281, 136, 281, 131, 281, 124, _
281, 122, 281, 115, 281, 108, 281, 102, 282,  98, 283,  94, 283,  92, 283,  91, _
283,  90, 283,  88, 283,  87, 283,  86, 311, 123, 309, 123, 307, 123, 305, 125, _
304, 125, 303, 128, 302, 131, 301, 133, 301, 136, 301, 140, 302, 142, 303, 144, _
305, 145, 307, 147, 309, 148, 311, 148, 313, 148, 316, 148, 317, 147, 320, 146, _
321, 145, 321, 143, 322, 142, 322, 139, 322, 137, 322, 134, 322, 131, 321, 128, _
319, 127, 318, 125, 316, 125, 339, 125, 339, 128, 339, 130, 339, 134, 339, 140, _
339, 142, 339, 144, 339, 141, 339, 135, 339, 131, 339, 126, 339, 122, 339, 119, _
339, 118, 339, 117, 340, 117, 341, 116, 345, 116, 349, 116, 352, 116, 355, 116, _
380, 100, 380, 104, 380, 110, 380, 116, 380, 122, 380, 126, 380, 133, 380, 137, _
380, 141, 380, 144, 380, 145, 380, 146, 404, 130, 403, 129, 401, 129, 400, 128, _
399, 128, 397, 128, 395, 130, 392, 133, 391, 137, 390, 141, 390, 143, 390, 145, _
390, 146, 391, 146, 392, 146, 394, 146, 397, 146, 400, 145, 402, 142, 404, 141, _
406, 138, 407, 138, 407, 135, 408, 131, 408, 127, 408, 121, 408, 117, 408, 113, _
408, 110, 408, 107, 408, 104, 408, 102, 408, 100, 408,  99, 408,  97, 408,  96, _
408,  95, 408,  94, 408,  93, 408,  92, 408,  91, 408,  90, 408,  93, 409, 101, _
412, 115, 417, 129, 421, 142, 426, 153, 427, 158, 427, 162, 428, 162, 452,  93, _
452,  96, 452,  98, 452, 101, 452, 106, 452, 113, 452, 118, 452, 124, 452, 130, _
452, 131, 452, 133, 451, 150, 450, 150, 449, 150, 448, 151, 446, 154, 446, 155, _
445, 157, 445, 159, 445, 160, 446, 161, 447, 161, 448, 159, 450, 156, 452, 151 }

ScreenRes 640, 480, 32

For i = 1 To 704 Step 2
  mx = dd(i-1)
  my = dd(i)
  pset (mx, my), &HFFFFFF
  pset (mx + 1, my + 1), &HFFFFFF
  pset (mx - 1, my - 1), &HFFFFFF
  pset (mx + 1, my - 1), &HFFFFFF
  pset (mx - 1, my + 1), &HFFFFFF
  Sleep 20
Next i

Sleep