H1:=HOD(H,N);
H2:DRAWLINE(CURRBARSCOUNT =N+10 AND H1=N-2,H,CURRBARSCOUNT =N+10 AND H1=M,H,1);
H3:DRAWLINE(CURRBARSCOUNT =N AND H1=P,H,CURRBARSCOUNT =N AND H1=M,H,1);
H4:DRAWLINE(CURRBARSCOUNT =N AND H1=M,H,CURRBARSCOUNT =N AND H1=Q,H,1);
DRAWKLINE(H,O,L,C);