
'SuoniRandom
SuoniRandom_NonRipetuti
Stop



' =================================================================
'  Suona 14 file casuali presi tra 00.wav e 21.wav
' =================================================================

Label SuoniRandom_NonRipetuti
	s92 = ""
	For v91 = 1 To 14
		For v92 = 0 To Infinity
			s91 = Str(Rnd * 21, "00") + ".wav"
			If Not StringContains(s92, s91)
				Exit
			EndIf
		Next
		s92 = s92 + s91 + " "
		Print s91
		Load s91
		Wait Not MediaPlaying
	Next
	Print s92
Return

Label SuoniRandom
	For v91 = 1 To 14
		s91 = Str(Rnd * 21, "00") + ".wav"
		s92 = s92 + s91 + " "
		Print s91
		Load s91
		Wait Not MediaPlaying
	Next
	Print s92
Return




