$$ MODE TUSCRIPT
days="Monday'Tuesday'Wednesday'Thursday'Friday'Saturday'Sunday"
dayofweek=DATE (today,day,month,year,number)
day=SELECT (days,#dayofweek)
SELECT day
CASE "Monday"
---> do something
CASE "Saturday","Sunday"
DEFAULT
ENDSELECT