FOR xx = 1 to 2
    lcVar  = [Note_Name]+TRANSFORM(xx)
    &lcVar = ALLTRIM(a_name[ xx ])
    @ ( 6 * ( xx - 1 ) + 7 ) * row_incr, 16  SAY &lcVar
    @ ( 8 * ( xx - 1 ) + 7 ) * row_incr, 16 GET dummy ;
                FUNCTION '*NH Note' ;
		SIZE but_height, 8 ;
		VALID v_choice(&lcVar) ;
		DEFAULT 0
ENDFOR
READ CYCLE MODAL