lparameters tnMonth, tnYear >ldStart=ctod("^"+str(tnYear,4)+"/"+padl(int(tnMonth),2,"0")+"/"+"01") >ldEndDay = gomonth(ldStartDay,1)-day(gomonth(ldStartDay,1)) >for ix = 0 to day(ldEndDay-1) > ? ldStart+ix, dow(ldStart+ix,2) = 7 && Sunday >endforCetin