в борьбе с лосями

Hi All.
Очередные месяц в поисках счастья (торговой идеи). На что бэк тестах хорошо в реальности нет. Приходится торговать в минус, причем большим объемом и анализировать все свои входы и выходы. 
На след. неделю решил добывать в свои скрипты функцию, которую рожденную за прошедшие 10 минут.
Может кому пригодиться держите:
func savecup (emitent,class,fname) ' сохраняем стакан в файл

filecup = fname
Stakan = create_map() ' offer всегда больше bid
Stakan = GET_QUOTES_II_LEVEL_DATA(class,emitent)

s_o = 0
offer_map = GET_VALUE (STAKAN, «OFFER»)
offer_count=GET_VALUE(STAKAN,«OFFER_COUNT»)-1

FOR Index FROM 0 TO offer_count-1
map2=Get_Collection_Item (offer_map,offer_count-Index)
p_o = 0+GET_VALUE(map2,«PRICE»)
q_o = 0+GET_VALUE(map2,«QUANTITY»)
s_o = s_o + q_o
WRITELN (filecup, «ask: » & p_o&" | "& q_o)
END FOR

WRITELN (filecup, "----------------")
s_b = 0
bid_map = GET_VALUE (STAKAN, «BID»)
bid_count=GET_VALUE(STAKAN,«BID_COUNT»)-1
FOR Index FROM 0 TO bid_count
map1=Get_Collection_Item (bid_map,bid_count-Index)
p_b = 0+GET_VALUE(map1,«PRICE»)
q_b = 0+GET_VALUE(map1,«QUANTITY»)
s_b = s_b + q_b
WRITELN (filecup, «bid: » & p_b&" | "& q_b)
END FOR
WRITELN (filecup, «SUM Ask: » & s_o&" | "& «Bid: » & s_b)

end func