Just a small improvement on saying the date so that it includes 1st, 2nd and 3rd's and th's as well....



Print ("+---------------------+" )
Print ("| Announcing the Date |" )
Print ("+---------------------+" )


IF ($day=1 or $day=21 or $day=31)
$day_txt=$day"st"
goto (Say_date)
ELSEIF ($day=2 or $day=22)
$day_txt=$day"nd"
goto (Say_date)
ELSEIF ($day=3 or $day=23)
$day_txt=$day"rd"
goto (Say_date)
ELSE
$day_txt=$day"th"
goto (Say_date)
Print $day_txt
ENDIF

:Say_Date
Print ("$dayname, the $day_txt of $monthName.")
say("$dayname, the $day_txt of $monthName.")


halt()