1 <AA>
 2           FOR X1=H TO T;
 3                LET V1=[X1,@締日 ];　 IF LEN(V1)=0 THEN CONTINUE;  /*空欄を飛ばす*/
 4                LET Z1=M(X1,@取引日); IF Z1<10000000 THEN CONTINUE;
 5
 6            IF V1="月末" OR "30" THEN GOTO $月末;　　　　　  /*月末締=30 とした時*/
 7            IF DAY(DATENUM(Z1)<=IVAL(V1) THEN LET Z4=-1 ELSE LET Z4=0;　 /*当該月*/
 8
 9 $開始:   LET Z2=MDATE(Z1,%Z4,VAL(V1)+1);
10 $締日:   LET Z3=MDATE(Z1.%(Z4+1),VAL(V1));GOTO $書込;
11
12 $月末:   LET Z2=MDATE(Z1,0,1);
13          LET Z3=MDATE(Z1,0,99);GOTO $書込;
14
15 $書込:   LET M(X1,@から )=Z2;
16          LET M(X1,@まで )=Z3;
17          NEXT;
18 STOP;