rm_o1:=callstock('rm09',vtopen,datatype);
rm_o2:=callstock('rm10',vtopen,datatype);
rm_o:=rm_o1-rm_o2;
rm_h1:=callstock('rm09',vthigh,datatype);
rm_h2:=callstock('rm10',vthigh,datatype);
rm_h:=rm_h1-rm_h2;
rm_l1:=callstock('rm09',vtlow,datatype);
rm_l2:=callstock('rm10',vtlow,datatype);
rm_l:=rm_l1-rm_l2;
rm_c1:=callstock('rm09',vtclose,datatype);
rm_c2:=callstock('rm10',vtclose,datatype);
rm_c:=rm_c1-rm_c2;
kline(rm_o,rm_h,rm_l,rm_o,1);
rm_o1:=callstock('rm09',vtopen,datatype);
rm_o2:=callstock('rm01',vtopen,datatype);
rm_o:=rm_o1-rm_o2;
rm_h1:=callstock('rm09',vthigh,datatype);
rm_h2:=callstock('rm01',vthigh,datatype);
rm_h:=rm_h1-rm_h2;
rm_l1:=callstock('rm09',vtlow,datatype);
rm_l2:=callstock('rm01',vtlow,datatype);
rm_l:=rm_l1-rm_l2;
rm_c1:=callstock('rm09',vtclose,datatype);
rm_c2:=callstock('rm01',vtclose,datatype);
rm_c:=rm_c1-rm_c2;
kline(rm_o,max(rm_h,max(rm_l,max(rm_o,rm_c))),min(rm_l,min(rm_h,min(rm_o,rm_c))),rm_o,0);