input""c$
if asc(c$)=100goto 1
do
b$=b$+chr$(peek(0))
y=peek(0)
if y<0?b$+a$
a$=chr$(y)+a$loop
1for i=0to 1004a$=a$+chr$(peek(0))+" "next
for i=2012to 2step-2mid$(a$,i)=chr$(peek(0))next
?a$,"."