PRINT
PRINT "年号と誕生日から年齢を当てます。"
PRINT
INPUT PROMPT "生まれ  T:大正  S:昭和  H:平成  →  ":Q$
INPUT PROMPT "誕生日： 年，月, 日  ":X,Y,Z
PRINT
LET K$=DATE$
LET Y$=K$(1:4)
LET M$=K$(5:6)
LET D$=K$(7:8)
LET YY=VAL(Y$)
LET MM=VAL(M$)
LET DD=VAL(D$)
IF Q$="T" OR Q$="t" THEN LET X=X+1911
IF Q$="S" OR Q$="s" THEN LET X=X+1925
IF Q$="H" OR Q$="h" THEN LET X=X+1988
LET YY=YY-X
IF MM < Y THEN LET YY=YY-1
IF MM = Y THEN
   IF DD < Z THEN
      LET YY=YY-1
   END IF
END IF
PRINT YY;"歳 です。"
END