ObjectPAL (Paradox)

method run (var eventInfo event)
  var
    x      smallint
  endvar

x=1
while x=1 
  msgInfo("Hello World!","Hello World!")
endwhile
endmethod