In the summer of 1999 I reread The Lord of the Rings<\/i> for perhaps the dozenth time. With that particular reading I studied, really<\/i> studied, Appendix D on the calendrical systems in use in Middle-Earth in the Third Age. I was drawn, in particular, to the Hobbit calendar and decided to write a quick-and-dirty computer program to convert our dates into Hobbit dates.<\/p>\n
Today, November 20th, is in Shire Reckoning, the first of Foreyule.<\/p>\n
What made me think of this, today, of all days? Maybe it’s playing The Third Age<\/i>, EA’s Lord of the Rings<\/i> turn-based RPG on the XBox. How is the game? I’ll save that for another post.<\/p>\n
But for those who want to see the program, after the cut is the BASIC source code. Yes, I wrote it in BASIC. You have a problem with that?<\/p>\n
<\/p>\n
100 CLS
\n110 GOSUB 1000
\n120 GOSUB 2000
\n130 GOSUB 2500
\n140 REM PRINT “JULIAN DATE”; JL
\n150 REM PRINT “SHIRE JULIAN DATE”; SJ
\n160 GOSUB 3000
\n170 GOSUB 3500
\n180 GOSUB 4000
\n190 GOSUB 4500
\n200 PRINT “Your date is “;W$;”, “;D$
\n210 REM PRINT DT
\n999 END
\n1000 REM Input date
\n1010 PRINT “Year”;
\n1020 INPUT Y:Y=INT(Y)
\n1030 IF Y<0 THEN GOTO 1010
\n1040 GOSUB 1500
\n1050 PRINT “Month”;
\n1060 INPUT M:M=INT(M)
\n1070 IF M<1 OR M>12 THEN GOTO 1050
\n1080 PRINT “Day”;
\n1090 INPUT D:D=INT(D)
\n1100 IF D<1 THEN GOTO 1080
\n1110 IF M=2 AND D>28+LP THEN GOTO 1080
\n1120 IF (M=4 OR M=6 OR M=9 OR M=11) AND D>30 THEN GOTO 1080
\n1130 IF M>31 THEN GOTO 1080
\n1140 RETURN
\n1500 REM Leap Year Check
\n1510 LP=0
\n1520 IF Y\/4=INT(Y\/4) THEN LP=1
\n1530 IF Y\/100=INT(Y\/100) THEN LP=0
\n1540 IF Y\/400=INT(Y\/400) THEN LP=1
\n1550 RETURN
\n2000 REM Julian Date conversion
\n2010 JL=0
\n2020 IF M=2 THEN JL=31
\n2030 IF M=3 THEN JL=59
\n2040 IF M=4 THEN JL=90
\n2050 IF M=5 THEN JL=120
\n2060 IF M=6 THEN JL=151
\n2070 IF M=7 THEN JL=181
\n2080 IF M=8 THEN JL=212
\n2090 IF M=9 THEN JL=243
\n2100 IF M=10 THEN JL=273
\n2110 IF M=11 THEN JL=304
\n2120 IF M=12 THEN JL=334
\n2130 JL=JL+D
\n2140 IF M>2 THEN JL=JL+LP
\n2150 RETURN
\n2500 REM Shire Julian Date conversion
\n2510 SJ=0
\n2520 SJ=JL+11
\n2530 IF SJ>365+LP THEN SJ=SJ-(365+LP)
\n2540 RETURN
\n3000 REM Shire Date calculation
\n3010 SD=0:SM=0
\n3020 IF SJ=1 THEN SD=2:SM=13:RETURN
\n3030 IF SJ=182 THEN SD=1:SM=14:RETURN
\n3040 IF SJ=183 THEN SM=15:RETURN
\n3050 IF SJ=184+LP THEN SD=2:SM=14:RETURN
\n3060 IF SJ=184 AND LP=1 THEN SM=16:RETURN
\n3070 IF SJ=365+LP THEN SD=1:SM=13:RETURN
\n3080 SJ=SJ-1
\n3090 IF SJ>182+LP THEN SJ=SJ-(3+LP)
\n3100 SM=INT((SJ-1)\/30)+1
\n3110 SD=SJ-((SM-1)*30)
\n3120 RETURN
\n3500 REM Shire month string
\n3510 IF SM=1 THEN M$=”Afteryule”
\n3520 IF SM=2 THEN M$=”Solmath”
\n3530 IF SM=3 THEN M$=”Rethe”
\n3540 IF SM=4 THEN M$=”Astron”
\n3550 IF SM=5 THEN M$=”Thrimidge”
\n3560 IF SM=6 THEN M$=”Forelithe”
\n3570 IF SM=7 THEN M$=”Afterlithe”
\n3580 IF SM=8 THEN M$=”Wedmath”
\n3590 IF SM=9 THEN M$=”Halimath”
\n3600 IF SM=10 THEN M$=”Winterfilth”
\n3610 IF SM=11 THEN M$=”Blotmath”
\n3620 IF SM=12 THEN M$=”Foreyule”
\n3630 IF SM=13 THEN M$=”Yule”
\n3640 IF SM=14 THEN M$=”Lithe”
\n3650 IF SM=15 THEN M$=”Midyear’s Day”
\n3660 IF SM=16 THEN M$=”Overlithe”
\n3670 RETURN
\n4000 REM Create date string
\n4010 D$=””
\n4020 IF SM>14 THEN D$=M$:RETURN
\n4030 D$=STR$(SD)+” “+M$
\n4040 RETURN
\n4500 REM Shire day of week calculation
\n4510 GOSUB 2500
\n4520 DT=0
\n4530 IF SJ=183 OR (SJ=184 AND LP=1) THEN DT=8:RETURN
\n4535 IF SJ>183 THEN SJ=SJ-LP-1
\n4540 DT=SJ-7*INT(SJ\/7)
\n4550 IF DT=0 THEN W$=”Highday”
\n4560 IF DT=1 THEN W$=”Sterday”
\n4570 IF DT=2 THEN W$=”Sunday”
\n4580 IF DT=3 THEN W$=”Monday”
\n4590 IF DT=4 THEN W$=”Trewsday”
\n4600 IF DT=5 THEN W$=”Hevensday”
\n4610 IF DT=6 THEN W$=”Mersday”
\n4620 RETURN<\/p>\n","protected":false},"excerpt":{"rendered":"
In the summer of 1999 I reread The Lord of the Rings for perhaps the dozenth time. With that particular reading I studied, really studied, Appendix D on the calendrical systems in use in Middle-Earth in the Third Age. I was drawn, in particular, to the Hobbit calendar and decided to write a quick-and-dirty computerContinue reading “For Geekoid Fanboys Only”<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[135],"tags":[368,348],"class_list":["post-183","post","type-post","status-publish","format-standard","hentry","category-tolkien","tag-lord-of-the-rings","tag-shire-reckoning","entry"],"_links":{"self":[{"href":"http:\/\/www.allyngibson.com\/index.php?rest_route=\/wp\/v2\/posts\/183","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.allyngibson.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.allyngibson.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.allyngibson.com\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/www.allyngibson.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=183"}],"version-history":[{"count":0,"href":"http:\/\/www.allyngibson.com\/index.php?rest_route=\/wp\/v2\/posts\/183\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.allyngibson.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=183"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.allyngibson.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=183"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.allyngibson.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=183"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}