@ 03 * row_incr + row_plus, 58 GET new_rem ; PICTURE '!!' VALID v_find( .T. ) @ 08 * row_incr, 02 GET choice ; PICTURE '@*IV ' + REPLICATE( ';', max_view - 1 ) ; SIZE 1, 76, 0 ; WHEN rem_cnt >= _CUROBJ - 1 ; VALID pullrem() @ 02, 02 GET choice ; FUNCTION pupdhe; SIZE but_height, but_width, 1 ; VALID rec_rem() ; DEFAULT( 1 ) @ 03 * row_incr + row_plus, 02 GET edit_del ; FUNCTION pdae ; SIZE 1, radio_width, 1 ; VALID v_edit_del() ; COLOR ,,,,,,,,&control1_color,&disabl1_color