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);};