Do While MyKey counter=counter+1 ... if counter=мульён then counter=0 прочитать MyKey из отведенного места end if Loop