[font=monospace][b][color=#000077]function[/color][/b] ASSIGN_BUTTON_TO_SEQ (NUM)[color=white]``[/color] [color=white]```[/color]%Sequence[$a] := (NUM-1) [color=white]```[/color]add_text_line ($Display,!Group_Name [NUM-1]) [color=white]```[/color]message (%Sequence [$a]) [color=white]```[/color]wait (250000) [color=white]```[/color]inc ($a) [b][color=#000077]end function[/color][/b] [b][color=#000077]on init[/color][/b] [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_1 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_2 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_3 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_4 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_5 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_6 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_7 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_8 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_9 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_10 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_11 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_12 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_13 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_14 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_15 [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Button_16 [color=white]```[/color] [color=white]```[/color][b][color=#000077]declare[/color][/b] $i [color=white]```[/color][b][color=#000077]declare[/color][/b] $a [color=white]```[/color][b][color=#000077]declare[/color][/b] $b [color=white]```[/color] [color=white]```[/color][b][color=#000077]declare[/color][/b] !Group_Name [512][color=white]``[/color] [color=white]```[/color][b][color=#000077]declare[/color][/b] %Sequence [512] [color=white]```[/color][b][color=#000077]declare[/color][/b] $Seq_Length [color=white]```[/color][b][color=#000077]declare[/color][/b] $Play_group [color=white]```[/color] [color=white]```[/color][b][color=#000077]while[/color][/b] ($i < $NUM_GROUPS) [color=white]``````[/color]!Group_Name [$i] := $i+1 & [color=olive]" "[/color] & group_name ($i) [color=white]``````[/color]inc ($i) [color=white]```[/color][b][color=#000077]end while[/color][/b] [color=white]```[/color] [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $Start_Seq [color=white]```[/color]set_text ($Start_Seq, [color=olive]"Start Seq/Clr"[/color]) [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_button $End_Seq [color=white]```[/color] [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_label $Display (2,6) [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_label $Perf_Display (2,1) [color=white]```[/color][b][color=#000077]declare[/color][/b] ui_value_edit $Key_Sw (0,128,1) [color=white]```[/color] [color=white]```[/color]set_text( $Button_1, !Group_Name [0]) [color=white]```[/color]set_text( $Button_2, !Group_Name [1]) [color=white]```[/color]set_text( $Button_3, !Group_Name [2]) [color=white]```[/color]set_text( $Button_4, !Group_Name [3]) [color=white]```[/color]set_text( $Button_5, !Group_Name [4]) [color=white]```[/color]set_text( $Button_6, !Group_Name [5]) [color=white]```[/color]set_text( $Button_7, !Group_Name [6]) [color=white]```[/color]set_text( $Button_8, !Group_Name [7]) [color=white]```[/color]set_text( $Button_9, !Group_Name [8]) [color=white]```[/color]set_text( $Button_10, !Group_Name [9]) [color=white]```[/color]set_text( $Button_11, !Group_Name [10]) [color=white]```[/color]set_text( $Button_12, !Group_Name [11]) [color=white]```[/color]set_text( $Button_13, !Group_Name [12]) [color=white]```[/color]set_text( $Button_14, !Group_Name [13]) [color=white]```[/color]set_text( $Button_15, !Group_Name [14]) [color=white]```[/color]set_text( $Button_16, !Group_Name [15]) [color=white]```[/color] [color=white]```[/color]make_persistent (%Sequence) [color=white]```[/color]make_persistent ($Key_Sw) [color=white]```[/color] [color=white]```[/color] [color=white]```[/color]move_control ($Button_1,1,1) [color=white]```[/color]move_control ($Button_2,2,1) [color=white]```[/color]move_control ($Button_3,3,1) [color=white]```[/color]move_control ($Button_4,4,1) [color=white]```[/color]move_control ($Button_5,1,2) [color=white]```[/color]move_control ($Button_6,2,2) [color=white]```[/color]move_control ($Button_7,3,2) [color=white]```[/color]move_control ($Button_8,4,2) [color=white]```[/color]move_control ($Button_9,1,3) [color=white]```[/color]move_control ($Button_10,2,3) [color=white]```[/color]move_control ($Button_11,3,3) [color=white]```[/color]move_control ($Button_12,4,3) [color=white]```[/color]move_control ($Button_13,1,4) [color=white]```[/color]move_control ($Button_14,2,4) [color=white]```[/color]move_control ($Button_15,3,4) [color=white]```[/color]move_control ($Button_16,4,4) [color=white]```[/color] [color=white]```[/color]move_control ($Start_Seq,1,6) [color=white]```[/color]move_control ($End_Seq,2,6) [color=white]```[/color]move_control ($Perf_Display, 1,5) [color=white]```[/color]move_control ($Key_Sw, 3,6) [b][color=#000077]end on[/color][/b] [b][color=#000077]on note[/color][/b] [color=white]```[/color][b][color=#000077]if[/color][/b] ($EVENT_NOTE = $Key_Sw) [color=white]``````[/color]disallow_group ($ALL_GROUPS) [color=white]``````[/color]$b := 0 [color=white]``````[/color]exit [color=white]```[/color][b][color=#000077]end if[/color][/b][color=white]``[/color] [color=white]```[/color]disallow_group(ALL_GROUPS) [color=white]```[/color]$Play_group := %Sequence [$b mod $Seq_Length] [color=white]```[/color]allow_group ($Play_group) [color=white]```[/color]set_text ($Perf_Display, !Group_Name [$Play_group]) [color=white]```[/color]inc($b) [color=white]```[/color] [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Start_Seq) [color=white]```[/color]set_text ($Display,[color=olive]""[/color]) [color=white]```[/color]$Start_Seq := 1 [color=white]```[/color]$End_Seq := 0 [color=white]```[/color]$a:= 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($End_Seq) [color=white]```[/color]$Start_Seq := 0 [color=white]```[/color]wait (500000) [color=white]```[/color]$End_Seq := 0 [color=white]```[/color]$Seq_Length := $a [color=white]```[/color]$b:= 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_1) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (1) [color=white]```[/color]$Button_1 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_2) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (2) [color=white]```[/color]$Button_2 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_3) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (3) [color=white]```[/color]$Button_3 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_4) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (4) [color=white]```[/color]$Button_4 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_5) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (5) [color=white]```[/color]$Button_5 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_6) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (6) [color=white]```[/color]$Button_6 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_7) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (7) [color=white]```[/color]$Button_7 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_8) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (8) [color=white]```[/color]$Button_8 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_9) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (9) [color=white]```[/color]$Button_9 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_10) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (10) [color=white]```[/color]$Button_10 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_11) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (11) [color=white]```[/color]$Button_11 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_12) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (12) [color=white]```[/color]$Button_12 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_13) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (13) [color=white]```[/color]$Button_13 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_14) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (14) [color=white]```[/color]$Button_14 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_15) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (15) [color=white]```[/color]$Button_15 := 0 [b][color=#000077]end on[/color][/b] [b][color=#000077]on ui_control[/color][/b] ($Button_16) [color=white]```[/color]ASSIGN_BUTTON_TO_SEQ (16) [color=white]```[/color]$Button_16 := 0 [b][color=#000077]end on[/color][/b] [/font]