http://fukuno.jig.jp/app/IchigoJam/#1%20'*Life%20Days%0A2%20CLV%3ACLS%0A3%20LET%20%5B1%5D%2C31%2C28%2C31%2C30%2C31%2C30%2C31%2C31%2C30%2C31%2C30%2C31%0A4%20P%3D2017%3AQ%3D9%3AR%3D27%0A5%20'%0A6%20'%40BIRTHDAY%0A7%20%3F%22*Input%20Your%20Birthday%22%0A8%20%3F%22Year%3D%22%3B%3AINPUT%20Y%0A9%20IF%20Y%3EP%20OR%20Y%3C1839%20GOTO%206%0A10%20%3F%22Month%3D%22%3B%3AINPUT%20M%0A11%20IF%20M%3C1%20OR%20M%3E12%20GOTO%206%0A12%20%3F%22Day%3D%22%3B%3AINPUT%20D%0A13%20IF%20D%3C1%20GOTO%206%0A14%20IF%20M!%3D2%20AND%20D%3E%5BM%5D%20GOTO%206%0A15%20Z%3DY%3AGSB%2055%0A16%20IF%20M%3D2%20AND%20D%3E%5B2%5D%2BC%20GOTO%206%0A17%20'%0A18%20E%3DD%0A19%20FOR%20I%3D0%20TO%20M-1%3AE%3DE%2B%5BI%5D%3ANEXT%0A20%20Z%3DY%3AGSB%2055%0A21%20IF%20M%3E2%20E%3DE%2BC%0A22%20S%3DR%0A23%20FOR%20I%3D0%20TO%20Q-1%3AS%3DS%2B%5BI%5D%3ANEXT%0A24%20Z%3DP%3AGSB%2055%0A25%20IF%20Q%3E2%20S%3DS%2BC%0A26%20T%3DS-E%0A27%20IF%20Y%3DP%20IF%20T%3E%3D0%20GOTO%2038%20ELSE%20GOTO%206%0A28%20T%3DT%2B365%0A29%20Z%3DY%3AGSB%2055%0A30%20T%3DT%2BC%0A31%20IF%20Y%3DP-1%20GOTO%2038%0A32%20'%0A33%20FOR%20I%3DY%2B1%20TO%20P-1%0A34%20Z%3DI%3AGSB%2055%0A35%20T%3DT%2B365%2BC%0A36%20NEXT%0A37%20'%0A38%20'%40ANSWER%0A39%20%3F%22*Your%20Life%20Days%3D%22%3B%0A40%20IF%20T%3E%3D0%20%3FT%3AEND%0A41%20'%0A42%20LET%20%5B20%5D%2C6%2C3%2C5%2C5%2C6%0A43%20C%3D0%0A44%20FOR%20I%3D0%20TO%204%0A45%20J%3D20%2BI%3AK%3D30%2BI%0A46%20%5BK%5D%3DT%2510%2B%5BJ%5D-C%0A47%20C%3D0%3AIF%20%5BK%5D%3C0%20%5BK%5D%3D%5BK%5D%2B10%3AC%3D1%0A48%20T%3DT%2F10%0A49%20NEXT%0A50%20FOR%20I%3D34%20TO%2030%20STEP%20-1%0A51%20%3F%5BI%5D%3B%0A52%20NEXT%0A53%20%3F%3AEND%0A54%20'%0A55%20'%40LEAP%0A56%20C%3D(Z%254%3D0%20AND%20Z!%3D1900)%3ARTN%0ARUN%0A