<成人の日>
CLOSE;  DISP OPEN;
DISP  [20, 4],"   ===== 成人の日を算出します =====";
INPUT [20, 6],"西暦年を4桁で指定してください。 →   ",V10,U(NNNN);
/***** 指定年の元日 *****************************************************/
LET V11=V10+"0101";  LET Z11=VAL(V11);
DISP  [20,10],"指 定 年 の 元 日           : ",V11;
/***** 元日の曜日連番（日曜日が０）**************************************/
LET Z12=DATEVAL(V11) MOD 7;
DISP  [20,11],"元日の曜日連番（日曜日が０）: ",Z12;
/***** 成人の日 *********************************************************/
LET Z13=9-Z12+INT((Z12+5)/7)*7;
DISP  [20,12],"成  人  の  日              : ",V10,"年1月",Z13,"日";
/***** おまけ ***********************************************************/
    /***** （Thanks Giving Day = １１月の第４木曜日）********************/
LET Z22=DATEVAL(V10+"1101") MOD 7;
LET Z23=26-Z22+INT((Z22+2)/7)*7;
DISP  [20,14],"（おまけ） 感  謝  祭       : ",V10,"年11月",Z23,"日";
INPUT [20,17],"了解したら [Enter] を押してください。 →   ",V01,U(J);
CLOSE;  STOP;