; RANDOM PAN
; by Lars Ahlz‚n

(do
	(include "need20.cal")	; Require version 2.0 or higher of CAL

	(word pan 64)

	(forEachEvent
		(do
     		(= pan (random 0 127))
			(if (== Event.Kind NOTE)
				(insert Event.Time Event.Chan CONTROL 10 pan)
			)
		)
	)
)