INPUT:
BEGINCH(SESS1STARTTIME),
ENDCH(1300);

{ 1300 IS AN EXAMPLE }

VARS:CH(H),CL(L);

IF TIME = BEGINCH + BARINTERVAL THEN BEGIN
CH = H;
CL = L;
END;

IF TIME >= BEGINCH AND TIME <= ENDCH THEN BEGIN
IF H > CH THEN CH = H;
IF L < CL THEN CL = L;
END;

IF TIME > ENDCH AND DATE = DATE TOMORROW THEN BUY AT CH STOP;
IF TIME > ENDCH AND DATE = DATE TOMORROW THEN SELL AT CH STOP;