while(!instr("1a",mid$(a$,2,1)))line input""a$:?a$:line input""b$:wend