14 lines
288 B
Turing
14 lines
288 B
Turing
$$ 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"
|
|
---> do something
|
|
DEFAULT
|
|
---> do something
|
|
ENDSELECT
|