function [st]=randmorse(paris,mode);
% ezzel kezdj: randmorse(30,1)
% morse(paris,mode);
% mode=1  csak betük
% mode=2  csak számok
% mode=3  csak irásjelek
% mode=4  vegyes
t=6/paris;
karakterszam=6;
fs=3678;        % a mintavételi freki
f=800;         % a hang frekvenciája
a=0.8;          % az amplitúdó
ti=a*sin(2*pi*f*[0:1/fs:t]);    
ta=a*sin(2*pi*f*[0:1/fs:3*t]);
sz=0*ti;        % a szünet    
st='';
csop=0;

if mode==1 szam=paris;end
if mode==2 szam=paris/1.5;end
if mode==3 szam=paris/1.5;end
if mode==4 szam=paris/1.5;end

for i=1:szam
csop=csop+1;

% csak betük
if mode==1 hossz=26;end
if mode==1 tol=1;end
% csak számok
if mode==2 hossz=10;end
if mode==2 tol=27;end
% csak irasjelek
if mode==3 hossz=5;end
if mode==3 tol=37;end
% vegyes
if mode==4 hossz=46;end
if mode==4 tol=1;end
%%%%%%
n=floor(rand(1)*hossz)+tol;
if n==1 ch='a'; end
if n==2 ch='b'; end
if n==3 ch='c'; end
if n==4 ch='d'; end
if n==5 ch='e'; end
if n==6 ch='f'; end
if n==7 ch='g'; end
if n==8 ch='h'; end
if n==9 ch='i'; end
if n==10 ch='j'; end
if n==11 ch='k'; end
if n==12 ch='l'; end
if n==13 ch='m'; end
if n==14 ch='n'; end
if n==15 ch='o'; end
if n==16 ch='p'; end
if n==17 ch='q'; end
if n==18 ch='r'; end
if n==19 ch='s'; end
if n==20 ch='t'; end
if n==21 ch='u'; end
if n==22 ch='v'; end
if n==23 ch='w'; end
if n==24 ch='x'; end
if n==25 ch='y'; end
if n==26 ch='z'; end
if n==27 ch='0'; end
if n==28 ch='1'; end
if n==29 ch='2'; end
if n==30 ch='3'; end
if n==31 ch='4'; end
if n==32 ch='5'; end
if n==33 ch='6'; end
if n==34 ch='7'; end
if n==35 ch='8'; end
if n==36 ch='9'; end
if n==37 ch='.'; end
if n==38 ch=','; end
if n==39 ch='/'; end
if n==40 ch='='; end
if n==41 ch='?'; end
if n==42 ch='+'; end
if n==43 ch='-'; end
if n==44 ch='@'; end
if n==45 ch=':'; end
if n==46 ch=' '; end
%ötös csoportokat csinál
if csop==karakterszam ch=' ';end
if csop==karakterszam csop=0;end
%%%%%%%
st=[st ch];
end
ch=st;
y=[];
for i=1:length(ch)
    if ch(i)=='a' y=[y ti sz ta sz]; end
    if ch(i)=='b' y=[y ta sz ti sz ti sz ti sz]; end
    if ch(i)=='c' y=[y ta sz ti sz ta sz ti sz]; end
    if ch(i)=='d' y=[y ta sz ti sz ti sz]; end
    if ch(i)=='e' y=[y ti sz]; end
    if ch(i)=='f' y=[y ti sz ti sz ta sz ti sz]; end
    if ch(i)=='g' y=[y ta sz ta sz ti sz]; end
    if ch(i)=='h' y=[y ti sz ti sz ti sz ti sz]; end
    if ch(i)=='i' y=[y ti sz ti sz]; end
    if ch(i)=='j' y=[y ti sz ta sz ta sz ta sz]; end
    if ch(i)=='k' y=[y ta sz ti sz ta sz]; end
    if ch(i)=='l' y=[y ti sz ta sz ti sz ti sz]; end
    if ch(i)=='m' y=[y ta sz ta sz]; end
    if ch(i)=='n' y=[y ta sz ti sz]; end
    if ch(i)=='o' y=[y ta sz ta sz ta sz]; end
    if ch(i)=='p' y=[y ti sz ta sz ta sz ti sz]; end
    if ch(i)=='q' y=[y ta sz ta sz ti sz ta sz]; end
    if ch(i)=='r' y=[y ti sz ta sz ti sz]; end
    if ch(i)=='s' y=[y ti sz ti sz ti sz]; end
    if ch(i)=='t' y=[y ta sz]; end
    if ch(i)=='u' y=[y ti sz ti sz ta sz]; end
    if ch(i)=='v' y=[y ti sz ti sz ti sz ta sz]; end
    if ch(i)=='w' y=[y ti sz ta sz ta sz]; end
    if ch(i)=='x' y=[y ta sz ti sz ti sz ta sz]; end
    if ch(i)=='y' y=[y ta sz ti sz ta sz ta sz]; end
    if ch(i)=='z' y=[y ta sz ta sz ti sz ti sz]; end
    if ch(i)=='0' y=[y ta sz ta sz ta sz ta sz ta sz]; end
    if ch(i)=='1' y=[y ti sz ta sz ta sz ta sz ta sz]; end
    if ch(i)=='2' y=[y ti sz ti sz ta sz ta sz ta sz]; end
    if ch(i)=='3' y=[y ti sz ti sz ti sz ta sz ta sz]; end
    if ch(i)=='4' y=[y ti sz ti sz ti sz ti sz ta sz]; end
    if ch(i)=='5' y=[y ti sz ti sz ti sz ti sz ti sz]; end
    if ch(i)=='6' y=[y ta sz ti sz ti sz ti sz ti sz]; end
    if ch(i)=='7' y=[y ta sz ta sz ti sz ti sz ti sz]; end
    if ch(i)=='8' y=[y ta sz ta sz ta sz ti sz ti sz]; end
    if ch(i)=='9' y=[y ta sz ta sz ta sz ta sz ti sz]; end
    if ch(i)=='.' y=[y ti sz ta sz ti sz ta sz ti sz ta sz]; end
    if ch(i)==',' y=[y ta sz ta sz ti sz ti sz ta sz ta sz]; end
    if ch(i)==':' y=[y ta sz ta sz ta sz ti sz ti sz ti sz]; end
    if ch(i)=='+' y=[y ti sz ta sz ti sz ta sz ti sz]; end
    if ch(i)=='?' y=[y ti sz ti sz ta sz ta sz ti sz ti sz]; end
    if ch(i)=='=' y=[y ta sz ti sz ti sz ti sz ta sz]; end
    if ch(i)=='-' y=[y ta sz ti sz ti sz ti sz ti sz ta sz]; end
    if ch(i)=='@' y=[y ti sz ta sz ta sz ti sz ta sz ti sz]; end
    if ch(i)=='/' y=[y ta sz ti sz ti sz ta sz ti sz]; end
    y=[y sz sz];
end
sound(y,fs);
%end
%end
end