5 '"Морзянка"!
10 Z=RND(-TIME):FOR I=1TO60
20 X=INT(RND(1)*65)
30 IF X<4 THEN 20
40 PLAY"S9M800L=X;O7C":NEXT