;;ChChange.CAL
;;	(Change Channel)
;;	Written By 蛞蝓なめちゃん, 1997/09/15
;;	                  odasan@ma.catv.ne.jp
;;	機  能 : 選択範囲のすべての data を、指定 channel に書換えます。
;;	使用法 : ・対象範囲を選択したあと、本 program を実行。
;;	         ・設定する値を入力します。
;;	注  意 : ・指定できる channel の範囲は初期設定で 1 〜 16 ですが、
;;             下記 program の "max" "min" を書換えることで、変えられます。
;;	 UNDO  : 編集メニューの「元に戻す」で、
;;	         「CAL(forEachEvent)」を取消せば、元に戻ります。

(do	(int max 16)		;; channel 値 の上限
	(int min  1)		;; channel 値 の下限
	(int ch 1)			;; 初期値
	(getInt ch "Channel : " min max)
	(forEachEvent
		(= Event.Chan (- ch 1))
	)
)