Do know you an IDE online on Web ?
I would like to test this code
dow (a <= 5) and (b + c = 0); do_something (a:b:c); enddo;