prgedit 1 prgset chr$(10)*1e6