| Get the day name, which is the first three characters of Sys$Date:
SetEval Sys_Day "<Sys$Date>" LEFT 3

| AntiSpam_Rate is used as a temporary variable.
| Set the telephone charge rate to peak by default:
Set AntiSpam_Rate Peak
| Change the rate to cheap if after 18:00 or before 08:00
| Note: The times for comparison MUST have all 6 digits present, otherwise
| the comparison will give results that you didn't expect!
If "<Sys$Time>" > "18:00:00" Then Set AntiSpam_Rate Cheap
If "<Sys$Time>" < "08:00:00" Then Set AntiSpam_Rate Cheap
| Change the rate to cheap at weekends:
If "<Sys_Day>" = "Sat" Then Set AntiSpam_Rate Cheap
If "<Sys_Day>" = "Sun" Then Set AntiSpam_Rate Cheap
| Finally add or remove a rule based on the value of AntiSpam_Rate:
If "<AntiSpam_Rate>" = "Cheap" Then Unset AntiSpam_Defer Else Set AntiSpam_Defer Defer Length > 10000
