PRINT
INPUT PROMPT "何秒（例：31646987）？ ":s
PRINT
LET t=31556926    !地球の公転周期（秒）
LET N=INT(s/t)
LET N0=MOD(s,t)
LET D=INT(N0/(24*60*60))
LET D0=MOD(N0,24*60*60)
LET J=INT(D0/(60*60))
LET J0=MOD(D0,60*60)
LET K=INT(J0/60)
LET K0=MOD(J0,60)
PRINT N;"年";D;"日";J;"時";K;"分";K0;"秒"
PRINT
END