function strchrtest()
    s="This is a sample string";
    ch="s";
    y=strchr(s,ch);
    disp(y);
endfunction