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(40)*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);
CM61:=INTPART(PPART(61)*100);
CM62:=INTPART(PPART(62)*100);
CM63:=INTPART(PPART(63)*100);
CM64:=INTPART(PPART(64)*100);
CM65:=INTPART(PPART(65)*100);
CM66:=INTPART(PPART(66)*100);
CM67:=INTPART(PPART(67)*100);
CM68:=INTPART(PPART(68)*100);
CM69:=INTPART(PPART(69)*100);
CM70:=INTPART(PPART(70)*100);
CM71:=INTPART(PPART(71)*100);
CM72:=INTPART(PPART(72)*100);
CM73:=INTPART(PPART(73)*100);
CM74:=INTPART(PPART(74)*100);
CM75:=INTPART(PPART(75)*100);
CM76:=INTPART(PPART(76)*100);
CM77:=INTPART(PPART(77)*100);
CM78:=INTPART(PPART(78)*100);
CM79:=INTPART(PPART(79)*100);
CM80:=INTPART(PPART(80)*100);
CM81:=INTPART(PPART(81)*100);
CM82:=INTPART(PPART(82)*100);
CM83:=INTPART(PPART(83)*100);
CM84:=INTPART(PPART(84)*100);
CM85:=INTPART(PPART(85)*100);
CM86:=INTPART(PPART(86)*100);
CM87:=INTPART(PPART(87)*100);
CM88:=INTPART(PPART(88)*100);
CM89:=INTPART(PPART(89)*100);
CM90:=INTPART(PPART(90)*100);
CM91:=INTPART(PPART(91)*100);
CM92:=INTPART(PPART(92)*100);
CM93:=INTPART(PPART(93)*100);
CM94:=INTPART(PPART(94)*100);
CM95:=INTPART(PPART(95)*100);
CM96:=INTPART(PPART(96)*100);
CM97:=INTPART(PPART(97)*100);
CM98:=INTPART(PPART(98)*100);
CM99:=INTPART(PPART(99)*100);
CM100:=INTPART(PPART(100)*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 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 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 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 {DRAWKLINE(H,O,L,C);};