Klavyeden Girilen Bir Cümlede Belirtilen Karakteri Yeni Degeriyle Degistirip Yeniden Yazdiran Program

REM DEĞİŞTİRME
CLS : DIM K$ (255)
INPUT "CÜMLEYİ GİRİNİZ: ", C$: PRINT
INPUT "DEĞİŞTİRELECEK HARFİ GİRİNİZ: " , H$
INPUT "HARFİN YENİ DEĞERİNİ GİRİN : " , Y$
PRINT : FOR I = 1 TO LEN(C$)
K$(I) = MID$(C$,I,1)
IF K$(I) = H$ THEN K$(I) = Y$
NEXT I
PRINT "Yeni cümle : " ;
FOR I = 1 TO LEN(C$)
PRINT K$(I);
NEXT I
END