##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: August, 2016 # Modified: 2016-10-03/22:47-0400 ##+ # # &date sample # procedure main() write("&date: ", &date) # transpose to month/day/year form write("M/D/Y: ", map("Mm/Dd/yYxX", "yYxX/Mm/Dd", &date)) end