for i=1to 99line input""a$:?mid$(a$,i,1);next