I don't think there's a way to call up the built-in dialog box for editing table scripts, but this would get you close. You'd need to add a save button if you want to save the edits back to the table.
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
jsl = dt << Get Script( "Distribution" );
nw = New Window( "Script", <<Modal, Script Box( Char( Name Expr( jsl ) ) ) );