ObjectPAL (Paradox)


method run (var eventInfo event)
  var
    x      smallint
  endvar

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


submitted by: Virtuoso2@aol.com (Lynne Plettenberg)