/編集画面で実行
/一応月足表示で実行
/５本月足の上昇で買
/有効性はあまりないかも
/注目銘柄のセットをコメント化しています

sisuname:=月足検索;
dnoloop:=off;
var
 i,
 zzcode,//銘柄コード
 zzdno,//dno
 zzdata,//株価データ
 zzclose,
zzenddno,//enddno
 zzav5;//5月平均
begin
/resetchumokuall('h');
/resetchumokuall('i');
for zzcode:=1001 to 2999 do 
if (10>=sijo(zzcode))and(sijo(zzcode)>=0)and(checkChumoku(zzcode,'j')) then begin

zzdno:=readkabudata(zzdata,'tukiashi',zzcode,false,false,false);

////////////////////////////////////////ここに検索日を入力すること
for zzdno:=1 to 9999 do begin
if zzdata[zzdno][0]='130329' then zzenddno:=zzdno end;
////////////////////////////////////////月足画面にして、先月末の日付

for zzdno:=zzenddno-11 to zzenddno do begin
zzclose[zzdno]:=zzdata[zzdno][4];
if (zzdno>=(zzenddno-5)) then zzav5[zzdno]:=calcav('zzclose',zzdno-4,zzdno);
end;

if(ref('zzav5',zzenddno-1)<ref('zzav5',zzenddno))
    and (ref('zzclose',zzenddno)>ref('zzav5',zzenddno))then begin
 print(zzcode+','+'買');
/ setchumoku(zzcode,'i');
 end;

if(ref('zzav5',zzenddno-1)>ref('zzav5',zzenddno))
    and (ref('zzclose',zzenddno)<ref('zzav5',zzenddno))then begin
 print(zzcode+','+'売');
/ setchumoku(zzcode,'h');
 zzdata:=0;
 zzenddno:=0;
 end;

end;
/refreshchumoku;
message('検索が終りました',MT_WARNING,MB_OK);
end;