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