dim c$(4028):for i=0to 2017c$(i)=chr$(peek(0))next
if"e"=c$(0)do?c$(j+7),c$(4028-j);:j=j+2loop
for i=7to 1012?c$(2025-i),c$(i);next