36 lines
505 B
Text
36 lines
505 B
Text
|
|
SAVELOG "RoadShow.ev 200435 201316 jan 25 "
|
|
|
|
Var RoadShow = "false"
|
|
|
|
DEBUGVAR SystemDateDayInt
|
|
|
|
;DEBUGVAR SystemTimeMinuteInt
|
|
DEBUGVAR SystemTimeHourInt
|
|
|
|
If SystemDateYearInt = 2025 Then
|
|
|
|
If SystemDateMonthInt = 1 Then
|
|
|
|
Var RoadShowBoxID = 0
|
|
|
|
If BoxID = 201316 Then
|
|
Var RoadShowBoxID = 1
|
|
EndIf
|
|
If BoxID = 200435 Then
|
|
Var RoadShowBoxID = 1
|
|
EndIf
|
|
|
|
|
|
If RoadShowBoxID = 1 Then
|
|
If SystemDateDayInt = 25 Then
|
|
Var RoadShow = "true"
|
|
EndIf
|
|
EndIf
|
|
|
|
EndIf
|
|
|
|
|
|
EndIf
|
|
|
|
DEBUGVAR RoadShow
|