Monday, November 08, 2010 at 12:05 AM.

---

system.verbs.builtins.string.getNextMonth

on getNextMonth (adrmonth, adryear) {
	<<10/31/97 at 8:26:50 AM by DW -- moved from toys.getNextMonth
	case adrmonth^ {
		"January" {
			adrmonth^ = "February"};
		"February" {
			adrmonth^ = "March"};
		"March" {
			adrmonth^ = "April"};
		"April" {
			adrmonth^ = "May"};
		"May" {
			adrmonth^ = "June"};
		"June" {
			adrmonth^ = "July"};
		"July" {
			adrmonth^ = "August"};
		"August" {
			adrmonth^ = "September"};
		"September" {
			adrmonth^ = "October"};
		"October" {
			adrmonth^ = "November"};
		"November" {
			adrmonth^ = "December"};
		"December" {
			adrmonth^ = "January";
			adryear^ = adryear^ + 1}}}
<<bundle
	<<local (month = "December", year = 1997)
	<<getNextMonth (@month, @year)
	<<dialog.alert (month + " " + year)

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.