Initial data commit

Task/Date-format/Yabasic/date-format.basic

@@ -0,0 +1,28 @@
+dim n$(1)
+
+n = token(date$, n$(), "-")
+
+print n$(4), "-", n$(2), "-", n$(3)
+print nDay$(n$(5)), ", ", nMonth$(n$(6)), " ", n$(3), ", ", n$(4)
+
+sub nDay$(n$)
+	switch n$
+	case "Mon": case "Fri": case "Sun": break
+	case "Tue": n$ = n$ + "s" : break
+	case "Wed": n$ = n$ + "nes" : break
+	case "Thu": n$ = n$ + "rs" : break
+	case "Sat": n$ = n$ + "ur" : break
+	default: n$ = "none" : break
+	end switch
+	
+	return n$ + "day"
+end sub
+
+sub nMonth$(n$)
+	local month$(1), n
+	
+	n = token("January, February, March, April, May, June, July, August, September, October, November, December", month$(), ", ")
+	n = instr("JanFebMarAprMayJunJulAugSepOctNovDec", n$)
+	
+	return month$(int(n/3) + 1)
+end sub