Dataflex

/*

CLEARSCREEN

REPEAT
  WRITELN "Hello World!"
LOOP

submitted by: nheidorn@alpha.comsource.net (R. Neil Heidorn)

// Hello World -- DataFlex version
// Written by Antti Tuominen / Yomi Oy
// 20.9.1996

use ui

string answer

/ask
DoItAgain [y/n]: _
/*

while (true) 
   showln ("Hello World!")
   sleep 1


   page set ask at 12 30
   accept ask.1 to answer
   if answer eq "n" system
   clearscreen
end

submitted by: tuanta@cc.jyu.fi (Antti Tuominen)