write("----- RANDOM.SAL ------");
write("Dieses Demoprogramm erzeugt Melodien");
write("nach dem Zufallsprinzip.");
write("Zum Starten geben Sie bitte ein:");
write("random()");
(* us---------------------
	This demo generates random music.
	You can start it with
	random()
*)

random := FUNC(0,`
	result := [];
	scale := [c/32 d e f g a h c2 d e f g];
	loopn( 50,`
		pos := rndUniform(1, #(scale));
		ton := scale(pos,pos);
		t_length := rndUniform(1,4) ;
		ton := expand( ton,t_length,1);
		result := result + ton;
		 ´); (* loopn *)

	play(result);
	return(result);
	´); (* random *);