ONCE Massimo   = 300
ONCE Contatore = 1
IF Contatore = 1 THEN
   $Dato[1] = close[300] / 10000
   $Dato[2] = close[299] / 10000
   $Dato[3] = close[298] / 10000
   $Dato[4] = close[297] / 10000
   $Dato[5] = close[296] / 10000
   $Dato[6] = close[295] / 10000
   $Dato[7] = close[294] / 10000
   $Dato[8] = close[293] / 10000
   $Dato[9] = close[292] / 10000
   $Dato[10] = close[291] / 10000
   $Dato[11] = close[290] / 10000
   $Dato[12] = close[289] / 10000
   $Dato[13] = close[288] / 10000
   $Dato[14] = close[287] / 10000
   $Dato[15] = close[286] / 10000
   $Dato[16] = close[285] / 10000
   $Dato[17] = close[284] / 10000
   $Dato[18] = close[283] / 10000
   $Dato[19] = close[282] / 10000
   $Dato[20] = close[281] / 10000
   $Dato[21] = close[280] / 10000
   $Dato[22] = close[279] / 10000
   $Dato[23] = close[278] / 10000
   $Dato[24] = close[277] / 10000
   $Dato[25] = close[276] / 10000
   $Dato[26] = close[275] / 10000
   $Dato[27] = close[274] / 10000
   $Dato[28] = close[273] / 10000
   $Dato[29] = close[272] / 10000
   $Dato[30] = close[271] / 10000
   $Dato[31] = close[270] / 10000
   $Dato[32] = close[269] / 10000
   $Dato[33] = close[268] / 10000
   $Dato[34] = close[267] / 10000
   $Dato[35] = close[266] / 10000
   $Dato[36] = close[265] / 10000
   $Dato[37] = close[264] / 10000
   $Dato[38] = close[263] / 10000
   $Dato[39] = close[262] / 10000
   $Dato[40] = close[261] / 10000
   $Dato[41] = close[260] / 10000
   $Dato[42] = close[259] / 10000
   $Dato[43] = close[258] / 10000
   $Dato[44] = close[257] / 10000
   $Dato[45] = close[256] / 10000
   $Dato[46] = close[255] / 10000
   $Dato[47] = close[254] / 10000
   $Dato[48] = close[253] / 10000
   $Dato[49] = close[252] / 10000
   $Dato[50] = close[251] / 10000
   $Dato[51] = close[250] / 10000
   $Dato[52] = close[249] / 10000
   $Dato[53] = close[248] / 10000
   $Dato[54] = close[247] / 10000
   $Dato[55] = close[246] / 10000
   $Dato[56] = close[245] / 10000
   $Dato[57] = close[244] / 10000
   $Dato[58] = close[243] / 10000
   $Dato[59] = close[242] / 10000
   $Dato[60] = close[241] / 10000
   $Dato[61] = close[240] / 10000
   $Dato[62] = close[239] / 10000
   $Dato[63] = close[238] / 10000
   $Dato[64] = close[237] / 10000
   $Dato[65] = close[236] / 10000
   $Dato[66] = close[235] / 10000
   $Dato[67] = close[234] / 10000
   $Dato[68] = close[233] / 10000
   $Dato[69] = close[232] / 10000
   $Dato[70] = close[231] / 10000
   $Dato[71] = close[230] / 10000
   $Dato[72] = close[229] / 10000
   $Dato[73] = close[228] / 10000
   $Dato[74] = close[227] / 10000
   $Dato[75] = close[226] / 10000
   $Dato[76] = close[225] / 10000
   $Dato[77] = close[224] / 10000
   $Dato[78] = close[223] / 10000
   $Dato[79] = close[222] / 10000
   $Dato[80] = close[221] / 10000
   $Dato[81] = close[220] / 10000
   $Dato[82] = close[219] / 10000
   $Dato[83] = close[218] / 10000
   $Dato[84] = close[217] / 10000
   $Dato[85] = close[216] / 10000
   $Dato[86] = close[215] / 10000
   $Dato[87] = close[214] / 10000
   $Dato[88] = close[213] / 10000
   $Dato[89] = close[212] / 10000
   $Dato[90] = close[211] / 10000
   $Dato[91] = close[210] / 10000
   $Dato[92] = close[209] / 10000
   $Dato[93] = close[208] / 10000
   $Dato[94] = close[207] / 10000
   $Dato[95] = close[206] / 10000
   $Dato[96] = close[205] / 10000
   $Dato[97] = close[204] / 10000
   $Dato[98] = close[203] / 10000
   $Dato[99] = close[202] / 10000
   $Dato[100] = close[201] / 10000
   $Dato[101] = close[200] / 10000
   $Dato[102] = close[199] / 10000
   $Dato[103] = close[198] / 10000
   $Dato[104] = close[197] / 10000
   $Dato[105] = close[196] / 10000
   $Dato[106] = close[195] / 10000
   $Dato[107] = close[194] / 10000
   $Dato[108] = close[193] / 10000
   $Dato[109] = close[192] / 10000
   $Dato[110] = close[191] / 10000
   $Dato[111] = close[190] / 10000
   $Dato[112] = close[189] / 10000
   $Dato[113] = close[188] / 10000
   $Dato[114] = close[187] / 10000
   $Dato[115] = close[186] / 10000
   $Dato[116] = close[185] / 10000
   $Dato[117] = close[184] / 10000
   $Dato[118] = close[183] / 10000
   $Dato[119] = close[182] / 10000
   $Dato[120] = close[181] / 10000
   $Dato[121] = close[180] / 10000
   $Dato[122] = close[179] / 10000
   $Dato[123] = close[178] / 10000
   $Dato[124] = close[177] / 10000
   $Dato[125] = close[176] / 10000
   $Dato[126] = close[175] / 10000
   $Dato[127] = close[174] / 10000
   $Dato[128] = close[173] / 10000
   $Dato[129] = close[172] / 10000
   $Dato[130] = close[171] / 10000
   $Dato[131] = close[170] / 10000
   $Dato[132] = close[169] / 10000
   $Dato[133] = close[168] / 10000
   $Dato[134] = close[167] / 10000
   $Dato[135] = close[166] / 10000
   $Dato[136] = close[165] / 10000
   $Dato[137] = close[164] / 10000
   $Dato[138] = close[163] / 10000
   $Dato[139] = close[162] / 10000
   $Dato[140] = close[161] / 10000
   $Dato[141] = close[160] / 10000
   $Dato[142] = close[159] / 10000
   $Dato[143] = close[158] / 10000
   $Dato[144] = close[157] / 10000
   $Dato[145] = close[156] / 10000
   $Dato[146] = close[155] / 10000
   $Dato[147] = close[154] / 10000
   $Dato[148] = close[153] / 10000
   $Dato[149] = close[152] / 10000
   $Dato[150] = close[151] / 10000
   $Dato[151] = close[150] / 10000
   $Dato[152] = close[149] / 10000
   $Dato[153] = close[148] / 10000
   $Dato[154] = close[147] / 10000
   $Dato[155] = close[146] / 10000
   $Dato[156] = close[145] / 10000
   $Dato[157] = close[144] / 10000
   $Dato[158] = close[143] / 10000
   $Dato[159] = close[142] / 10000
   $Dato[160] = close[141] / 10000
   $Dato[161] = close[140] / 10000
   $Dato[162] = close[139] / 10000
   $Dato[163] = close[138] / 10000
   $Dato[164] = close[137] / 10000
   $Dato[165] = close[136] / 10000
   $Dato[166] = close[135] / 10000
   $Dato[167] = close[134] / 10000
   $Dato[168] = close[133] / 10000
   $Dato[169] = close[132] / 10000
   $Dato[170] = close[131] / 10000
   $Dato[171] = close[130] / 10000
   $Dato[172] = close[129] / 10000
   $Dato[173] = close[128] / 10000
   $Dato[174] = close[127] / 10000
   $Dato[175] = close[126] / 10000
   $Dato[176] = close[125] / 10000
   $Dato[177] = close[124] / 10000
   $Dato[178] = close[123] / 10000
   $Dato[179] = close[122] / 10000
   $Dato[180] = close[121] / 10000
   $Dato[181] = close[120] / 10000
   $Dato[182] = close[119] / 10000
   $Dato[183] = close[118] / 10000
   $Dato[184] = close[117] / 10000
   $Dato[185] = close[116] / 10000
   $Dato[186] = close[115] / 10000
   $Dato[187] = close[114] / 10000
   $Dato[188] = close[113] / 10000
   $Dato[189] = close[112] / 10000
   $Dato[190] = close[111] / 10000
   $Dato[191] = close[110] / 10000
   $Dato[192] = close[109] / 10000
   $Dato[193] = close[108] / 10000
   $Dato[194] = close[107] / 10000
   $Dato[195] = close[106] / 10000
   $Dato[196] = close[105] / 10000
   $Dato[197] = close[104] / 10000
   $Dato[198] = close[103] / 10000
   $Dato[199] = close[102] / 10000
   $Dato[200] = close[101] / 10000
   $Dato[201] = close[100] / 10000
   $Dato[202] = close[99] / 10000
   $Dato[203] = close[98] / 10000
   $Dato[204] = close[97] / 10000
   $Dato[205] = close[96] / 10000
   $Dato[206] = close[95] / 10000
   $Dato[207] = close[94] / 10000
   $Dato[208] = close[93] / 10000
   $Dato[209] = close[92] / 10000
   $Dato[210] = close[91] / 10000
   $Dato[211] = close[90] / 10000
   $Dato[212] = close[89] / 10000
   $Dato[213] = close[88] / 10000
   $Dato[214] = close[87] / 10000
   $Dato[215] = close[86] / 10000
   $Dato[216] = close[85] / 10000
   $Dato[217] = close[84] / 10000
   $Dato[218] = close[83] / 10000
   $Dato[219] = close[82] / 10000
   $Dato[220] = close[81] / 10000
   $Dato[221] = close[80] / 10000
   $Dato[222] = close[79] / 10000
   $Dato[223] = close[78] / 10000
   $Dato[224] = close[77] / 10000
   $Dato[225] = close[76] / 10000
   $Dato[226] = close[75] / 10000
   $Dato[227] = close[74] / 10000
   $Dato[228] = close[73] / 10000
   $Dato[229] = close[72] / 10000
   $Dato[230] = close[71] / 10000
   $Dato[231] = close[70] / 10000
   $Dato[232] = close[69] / 10000
   $Dato[233] = close[68] / 10000
   $Dato[234] = close[67] / 10000
   $Dato[235] = close[66] / 10000
   $Dato[236] = close[65] / 10000
   $Dato[237] = close[64] / 10000
   $Dato[238] = close[63] / 10000
   $Dato[239] = close[62] / 10000
   $Dato[240] = close[61] / 10000
   $Dato[241] = close[60] / 10000
   $Dato[242] = close[59] / 10000
   $Dato[243] = close[58] / 10000
   $Dato[244] = close[57] / 10000
   $Dato[245] = close[56] / 10000
   $Dato[246] = close[55] / 10000
   $Dato[247] = close[54] / 10000
   $Dato[248] = close[53] / 10000
   $Dato[249] = close[52] / 10000
   $Dato[250] = close[51] / 10000
   $Dato[251] = close[50] / 10000
   $Dato[252] = close[49] / 10000
   $Dato[253] = close[48] / 10000
   $Dato[254] = close[47] / 10000
   $Dato[255] = close[46] / 10000
   $Dato[256] = close[45] / 10000
   $Dato[257] = close[44] / 10000
   $Dato[258] = close[43] / 10000
   $Dato[259] = close[42] / 10000
   $Dato[260] = close[41] / 10000
   $Dato[261] = close[40] / 10000
   $Dato[262] = close[39] / 10000
   $Dato[263] = close[38] / 10000
   $Dato[264] = close[37] / 10000
   $Dato[265] = close[36] / 10000
   $Dato[266] = close[35] / 10000
   $Dato[267] = close[34] / 10000
   $Dato[268] = close[33] / 10000
   $Dato[269] = close[32] / 10000
   $Dato[270] = close[31] / 10000
   $Dato[271] = close[30] / 10000
   $Dato[272] = close[29] / 10000
   $Dato[273] = close[28] / 10000
   $Dato[274] = close[27] / 10000
   $Dato[275] = close[26] / 10000
   $Dato[276] = close[25] / 10000
   $Dato[277] = close[24] / 10000
   $Dato[278] = close[23] / 10000
   $Dato[279] = close[22] / 10000
   $Dato[280] = close[21] / 10000
   $Dato[281] = close[20] / 10000
   $Dato[282] = close[19] / 10000
   $Dato[283] = close[18] / 10000
   $Dato[284] = close[17] / 10000
   $Dato[285] = close[16] / 10000
   $Dato[286] = close[15] / 10000
   $Dato[287] = close[14] / 10000
   $Dato[288] = close[13] / 10000
   $Dato[289] = close[12] / 10000
   $Dato[290] = close[11] / 10000
   $Dato[291] = close[10] / 10000
   $Dato[292] = close[9] / 10000
   $Dato[293] = close[8] / 10000
   $Dato[294] = close[7] / 10000
   $Dato[295] = close[6] / 10000
   $Dato[296] = close[5] / 10000
   $Dato[297] = close[4] / 10000
   $Dato[298] = close[3] / 10000
   $Dato[299] = close[2] / 10000
   $Dato[300] = close[1] / 10000
ENDIF
x = $Dato[Contatore]
Contatore = Contatore + 1
IF Contatore > Massimo THEN
   Contatore = 1
ENDIF
RETURN x AS "Dato"