[VM]

repeat
s := parse.get(i);
y := 0,15*i;
drawtext(s, 0, y);
i := i + 1;
repaint;
until  i> parse.len;