From f740468a40984ad6e500e858651915d3c080e8de Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Sat, 4 Feb 2017 12:25:46 -0500
Subject: Added support for generatingan RSS feed from posts.  Added config
 file for blogs.

---
 date.bas | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 date.bas

(limited to 'date.bas')

diff --git a/date.bas b/date.bas
new file mode 100644
index 0000000..2384204
--- /dev/null
+++ b/date.bas
@@ -0,0 +1,21 @@
+8400 REM ==========================
+8401 REM Date formatter
+8402 REM INPUT - D$ A YYYYMMDD date
+8403 REM OUTPUT - DFANCY$ A proper
+8404 REM          Internet date
+8405 REM ==========================
+8410 DYEAR = VAL(LEFT$(D$, 4))
+8420 DMONTH = VAL(MID$(D$, 5, 2))
+8430 DDAY = VAL(RIGHT$(D$,2))
+8440 DIM MDAYS[12]:MDAYS[1] = 5:MDAYS[2] = 1:MDAYS[3] = 1:MDAYS[4] = 4
+8441 MDAYS[5] = 6:MDAYS[6] = 2:MDAYS[7] = 4:MDAYS[8] = 0:MDAYS[9] = 3
+8442 MDAYS[10] = 5:MDAYS[11] = 1:MDAYS[12] = 3
+8443 DAYNAME$ = "SunMonTueWedThuFriSatSun"
+8444 MONTHNAME$ = "JanFebMarAprMayJunJulAugSepOctNovDec"
+8450 MCODE = MDAYS[DMONTH]
+8460 DOW = ((INT(DYEAR*1.25) + MCODE + DDAY) MOD 7)
+8470 IF DYEAR MOD 4 = 0 AND DMONTH < 3 THEN DOW = (DOW + 6) MOD 7
+8480 DFANCY$ = MID$(DAYNAME$, 3*DOW+1, 3) + ", " + RIGHT$(D$,2) + " "
+8490 DFANCY$ = DFANCY$ + MID$(MONTHNAME$, (DMONTH-1)*3+1, 3) + " " + LEFT$(D$, 4) + " 12:00:00 +0000"
+8498 ERASE MDAYS
+8499 RETURN
-- 
cgit v1.2.3