if $read(kf.mrc,w,$3-) { msg # zaten var. }
else { write kf.mrc $3- | msg # $3- listeye eklendi }