CM1:=INTPART(PPART(1)*100);
 CM2:=INTPART(PPART(2)*100);
 CM3:=INTPART(PPART(3)*100);
 CM4:=INTPART(PPART(4)*100);
 CM5:=INTPART(PPART(5)*100);
 CM6:=INTPART(PPART(6)*100);
 CM7:=INTPART(PPART(7)*100);
 CM8:=INTPART(PPART(8)*100);
 CM9:=INTPART(PPART(9)*100);
 CM10:=INTPART(PPART(10)*100);
 CM11:=INTPART(PPART(11)*100);
 CM12:=INTPART(PPART(12)*100);
 CM13:=INTPART(PPART(13)*100);
 CM14:=INTPART(PPART(14)*100);
 CM15:=INTPART(PPART(15)*100);
 CM16:=INTPART(PPART(16)*100);
 CM17:=INTPART(PPART(17)*100);
 CM18:=INTPART(PPART(18)*100);
 CM19:=INTPART(PPART(19)*100);
 CM20:=INTPART(PPART(20)*100);
 CM21:=INTPART(PPART(21)*100);
 CM22:=INTPART(PPART(22)*100);
 CM23:=INTPART(PPART(23)*100);
 CM24:=INTPART(PPART(24)*100);
 CM25:=INTPART(PPART(25)*100);
 CM26:=INTPART(PPART(26)*100);
 CM27:=INTPART(PPART(27)*100);
 CM28:=INTPART(PPART(28)*100);
 CM29:=INTPART(PPART(29)*100);
 CM30:=INTPART(PPART(30)*100);
 CM31:=INTPART(PPART(31)*100);
 CM32:=INTPART(PPART(32)*100);
 CM33:=INTPART(PPART(33)*100);
 CM34:=INTPART(PPART(34)*100);
 CM35:=INTPART(PPART(35)*100);
 CM36:=INTPART(PPART(36)*100);
 CM37:=INTPART(PPART(37)*100);
 CM38:=INTPART(PPART(38)*100);
 CM39:=INTPART(PPART(39)*100);
 CM40:=INTPART(PPART(30)*100);
 CM41:=INTPART(PPART(41)*100);
 CM42:=INTPART(PPART(42)*100);
 CM43:=INTPART(PPART(43)*100);
 CM44:=INTPART(PPART(44)*100);
 CM45:=INTPART(PPART(45)*100);
 CM46:=INTPART(PPART(46)*100);
 CM47:=INTPART(PPART(47)*100);
 CM48:=INTPART(PPART(48)*100);
 CM49:=INTPART(PPART(49)*100);
 CM50:=INTPART(PPART(50)*100);
 CM51:=INTPART(PPART(51)*100);
 CM52:=INTPART(PPART(52)*100);
 CM53:=INTPART(PPART(53)*100);
 CM54:=INTPART(PPART(54)*100);
 CM55:=INTPART(PPART(55)*100);
 CM56:=INTPART(PPART(56)*100);
 CM57:=INTPART(PPART(57)*100);
 CM58:=INTPART(PPART(58)*100);
 CM59:=INTPART(PPART(59)*100);
 CM60:=INTPART(PPART(60)*100);
 IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT  IF(CURRBARSCOUNT