Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

PopupRenderer.prototype._setItemsRule = function(rewriteRule)
{
    var ruleSelector = "#itemsDiv div";
    
    // Create rule (with styles merging element) if it's empty
    if (this._itemCssRule == null) {
        // Get/create stylesheet (always the first one)
        var popupDoc = this._popupDoc;
        if (popupDoc == null) return;
        var styleSheets = popupDoc.styleSheets;
        var styleSheet = styleSheets.length != 0 ? styleSheets[0] : popupDoc.createStyleSheet();
        
        // Сreate new rule
        styleSheet.addRule(ruleSelector, "cursor:default", 0);
        this._itemCssRule = styleSheet.rules[0];
    } else if (!rewriteRule) {
        // Rule is already created and mustn't be rewritten
        return;
    }
    
    // Set rule CSS text
    this._itemCssRule.style.cssText = this.itemCssText;
    this._itemCssRule.style.cursor  = "default";
};

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

    Sub LoadRegionList ( okrugId$ )
        Dim view As NotesView
        Dim doc As NotesDocument
        
        Set view = m_dbClassificator.GetView ( "(Regions)" )
        view.Refresh
        
        Redim m_arrayRegionNames ( view.EntryCount - 1 ) As String
        Redim m_arrayRegionIds ( view.EntryCount - 1 ) As String
        Redim m_arrayRegionOkrug ( view.EntryCount - 1 ) As String
        
        Set doc = view.GetFirstDocument
        While Not ( doc Is Nothing )
            If okrugId$ = "" Or doc.okrug ( 0 ) = okrugId$ Then
                m_arrayRegionNames ( cb% ) = doc.nameReg ( 0 )
                m_arrayRegionIds ( cb% ) = doc.codReg ( 0 )
                m_arrayRegionOkrug ( cb% ) = doc.Okrug ( 0 )
                m_listOkrug ( doc.Okrug ( 0 ) ) = doc.Okrug ( 0 )
                cb% = cb% + 1
            End If
            
            Set doc = view.GetNextDocument ( doc )
        Wend
        
        If okrugId$ <> "" Then
            Redim Preserve m_arrayRegionNames ( cb% - 1 ) As String
            Redim Preserve m_arrayRegionIds ( cb% - 1 ) As String
            Redim Preserve m_arrayRegionOkrug ( cb% - 1 ) As String
        End If
    End Sub

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

// Если все ок - оплачиваем покупку номера
if (parResult.Value.ToString() == "1")
{
    SqlCommand cmdBil_StartAccounting = new SqlCommand("bil_StartAccounting", con);
        cmdBil_StartAccounting.CommandType = CommandType.StoredProcedure;
    cmdBil_StartAccounting.Parameters.Add("@AccountID", ((dbConnector)Session["tds"]).User);
    cmdBil_StartAccounting.Parameters.Add("@ServiceCode", serviceCode);
    cmdBil_StartAccounting.Parameters.Add("@Params", parParams.Value.ToString());
    cmdBil_StartAccounting.Parameters.Add("@CurrentTime", DateTime.Now);
    cmdBil_StartAccounting.Parameters.Add("@Parameters", number);
    SqlParameter parResultBuy = cmdBil_StartAccounting.Parameters.Add("@Result", SqlDbType.Decimal);
    parResultBuy.Direction = ParameterDirection.Output;

    cmdBil_StartAccounting.ExecuteNonQuery();

    // Делаем новую запись в account_numbers
    tdsMts.account_numbersRow newRow = ((dbConnector)Session["tds"]).Tds.account_numbers.Newaccount_numbersRow();
                    
    newRow.accounts_id = Int32.Parse(((dbConnector)Session["tds"]).User);
    newRow.country_code = numberRow.country_code;
    newRow.city_code = numberRow.city_code;
    newRow.number = numberRow.number.Replace(" ", "").Replace("-", "");
    newRow.state = false;

    ((dbConnector)Session["tds"]).Tds.account_numbers.Addaccount_numbersRow(newRow);
    ((dbConnector)Session["tds"]).UpdateToDb();

    // Резервируем номер
    numberRow.reserved = Int32.Parse(((dbConnector)Session["tds"]).User);
    numberRow.reason = 1; // Код покупки номера
    pd.UpdateToDb();
}

m4  ROUT
_memcpy
pdst  RN  r0
psrc  RN  r1
count RN  r2
pdst  RN  r0
psrc  RN  r1
count RN  r2
    tst     count, count
    beq     _end
    ; check count
    cmp     count, #4
    ble     _bb_loop
    ; check relative pointer alignment
    cmp     pdst, psrc
    bgt     _pdst_gt_psrc
    sub     r3, psrc, pdst
    bal   _test_r3
_pdst_gt_psrc
    sub     r3, pdst, psrc
_test_r3
    tst     r3, #3
    beq     _ww_copy
    tst     r3, #1
    beq     _hh_copy
    ; copy byte-by-byte (no optimization)

_bb_loop
    ldrb    r3, [psrc], #1
    strb    r3, [pdst], #1
    subs    count, count, #1
    bne     _bb_loop
    mov   pc, lr

_hh_copy
    ; align first
    tst     pdst, #1
    beq     _hh_loop_no_tail
    ldrb    r3, [psrc], #1
    strb    r3, [pdst], #1
    subs    count, count, #1
    ; check count for one-byte tail
    tst     count, #1
    beq     _hh_loop_no_tail
    eor     count, count, #1
_hh_loop_tail
    ldrh    r3, [psrc], #2
    strh    r3, [pdst], #2
    subs    count, count, #2
    bne     _hh_loop_tail
    ; store tail byte
    ldrb    r3, [psrc]
    strb    r3, [pdst]
    mov   pc, lr

Н>Просто ради интереса — кто чего делает. 20 строк, надеюсь коммерческой тайны не составляют

dim a[20];
a[1] = 1;
a[2] = 2;
a[3] = 3;
a[4] = 4;
a[5] = 5;
a[6] = 6;
a[7] = 7;
a[8] = 8;
a[9] = 9;
a[10] = 10;
a[11] = 11;
a[12] = 12;
a[13] = 13;
a[14] = 14;
a[15] = 15;
a[16] = 16;
a[17] = 17;
a[18] = 18;
a[19] = 19;
a[20] = 20;

P>dim a[20];
P>a[1] = 1;
P>a[2] = 2;
P>a[3] = 3;
P>a[4] = 4;
P>a[5] = 5;
P>a[6] = 6;
P>a[7] = 7;
P>a[8] = 8;
P>a[9] = 9;
P>a[10] = 10;
P>a[11] = 11;
P>a[12] = 12;
P>a[13] = 13;
P>a[14] = 14;
P>a[15] = 15;
P>a[16] = 16;
P>a[17] = 17;
P>a[18] = 18;
P>a[19] = 19;
P>a[20] = 20;

#include <boost/iterator/counting_iterator.hpp>
#include <algorithm>

template<size_t N>
void fill_array(int (&arr)[N])
{
  std::copy(boost::counting_iterator<int>(0), boost::counting_iterator<int>(N), arr);
}

int main()
{
  int a[20];

  fill_array(a);
}

P>>dim a[20];
P>>a[1] = 1;
P>>a[2] = 2;
P>>a[3] = 3;
P>>a[4] = 4;
P>>a[5] = 5;
P>>a[6] = 6;
P>>a[7] = 7;
P>>a[8] = 8;
P>>a[9] = 9;
P>>a[10] = 10;
P>>a[11] = 11;
P>>a[12] = 12;
P>>a[13] = 13;
P>>a[14] = 14;
P>>a[15] = 15;
P>>a[16] = 16;
P>>a[17] = 17;
P>>a[18] = 18;
P>>a[19] = 19;
P>>a[20] = 20;
K>

K>#include <boost/iterator/counting_iterator.hpp>
K>#include <algorithm>

K>template<size_t N>
K>void fill_array(int (&arr)[N])
K>{
K>  std::copy(boost::counting_iterator<int>(0), boost::counting_iterator<int>(N), arr);
K>}

K>int main()
K>{
K>  int a[20];

K>  fill_array(a);
K>}
K>

K>

dim a[5,4];
a[1,1]=1
a[1,2]=2
a[1,3]=3
a[1,4]=4
a[2,1]=5
a[2,2]=6
a[2,3]=7
a[2,4]=8
a[3,1]=9
a[3,2]=10
a[3,3]=11
a[3,4]=12
a[4,1]=13
a[4,2]=14
a[4,3]=15
a[4,4]=16
a[5,1]=17
a[5,2]=18
a[5,3]=19
a[5,4]=20