REM Wed SPECIAL SHADE 255 0 0
IF !$Shaded
    REM 15 SPECIAL SHADE 0 255 0
ENDIF
IF !$Shaded
    REM SATISFY [$Td % 4 == 0] SPECIAL SHADE 0 0 255
ENDIF

IF !$Shaded
    REM Sunday SPECIAL SHADE 0 255 255
ENDIF

IF !$Shaded
    REM SPECIAL SHADE 255 255 0
ENDIF