4th Dimension.4dd

OPEN WINDOW (10;45;500;330;0;"Hello Window")
While (True)
  MESSAGE ("Hello World")
End while