PROGRAM do_loop
LET x = 0
DO
   LET x = x + 1
   PRINT x
LOOP until key input
PRINT "loop finished"
END