+ CONTROL.DAT "control.dat"
+ EXTRA.DAT "control-extra.dat"
+ USAGE.DAT "usage.dat"
+ USAGE.TMP ".usage.dat"
+ )
+
+# Load CONTROL.DAT
+# ( (control "file") (gap minutes) ( weekday start limit stop ) ... )
+(setf CONTROL (read-expr (or (read-file CONTROL.DAT)
+ (die "** Missing " CONTROL.DAT " ** Exiting."))
+ ))
+(map set '(dow MODE START LIMIT END)
+ (or (assoc DOW CONTROL)
+ (assoc 'policy CONTROL)
+ (list DOW (6 30) 120 (20 0)))
+ )
+
+(setf