for i=1to 8line input""a$
if i=6mid$(a$,50)="incom"
?a$next