| While construct
INSERT "WHILE "
RETURN
INSERT " $$"
RETURN
LEFT
INSERT "ENDWHILE"
RETURN
UP:UP:UP
RIGHT:RIGHT:RIGHT:RIGHT
RIGHT:RIGHT
