plot:=
Mov
(
C
,5,
E
);
StDay:=
Input
(
"start Day"
,1,31,1);
StMnth:=
Input
(
"start Month"
,1,12,1);
StYear:=
Input
(
"start Year"
,1800,2200,2006);
EnDay:=
Input
(
"end Day"
,1,31,31);
EnMnth:=
Input
(
"end Month"
,1,12,3);
EnYear:=
Input
(
"end Year"
,1800,2200,2006);
start:=
Year
()>StYear
OR
(
Year
()=StYear
AND
(
Month
()>StMnth
OR
Month
()=StMnth
AND
DayOfMonth
()>=StDay));
end:=
Year
()<EnYear
OR
(
Year
()=EnYear
AND
(
Month
()<EnMnth
OR
Month
()=EnMnth
AND
DayOfMonth
()<=EnDay));
date1:=start
AND
Alert
(start=0,2);
date2:=end=0
AND
Alert
(end,2);
date2:=
Zig
(end
AND
Cum
(1)>1,1,$)=1;
start:=
If
(
LastValue
(
Cum
(date1))>0,date1,
Cum
(1)=1);
end:=
If
(
LastValue
(
Cum
(date2))>0,date2,
LastValue
(
Cum
(1))=
Cum
(1));
pds:=
LastValue
(
BarsSince
(end));
restricted:=
Ref
(
Ref
(plot,-pds),pds)*
ValueWhen
(1,start,1);
restricted