TimeOpen$ = "07:00:00" 'Door open & close times
TimeClose$ = "22:00:00"
.
.
SETTICK 1000,Time_Update,1 'Update LCD time display each second
SUB Time_Update
PosX=36: PosY=1: LCD_GotoXY
Text$ = TIME$
Lookup
LCD_StringOut
END SUB

'Main loop - Servo time checking

TIMER = Secs_from_Midnight(TIME$)*1000 'Sync TIMER & real time
AMopen = Secs_from_Midnight(TimeOpen$) *1000
PMclose = Secs_from_Midnight(TimeClose$) *1000

red = 9: green = 10 'LED pins: red=closed, green=open
SETPIN red,DOUT: SETPIN green,DOUT
PIN(red) =1: PIN(green) =1 'Turn both LEDs ON
Status$ = ""
SETTICK 5000,Check_Time,2 'Check door posn every five secs
SETTICK 2000,Flash_LED,3 'Flash LEDs every two secs

DO 'programs loops in here waiting for timer interrupts
LOOP

SUB Flash_LED
IF Status$ = "IN ONLY" THEN PIN(red)=1: PIN(green)=0
IF Status$ = "OPEN" THEN PIN(red)=0: PIN(green)=1
PAUSE 100: PIN(red)=0: PIN(green)=0 'Flash LED for 0.1 secs
END SUB

SUB Check_Time
Ti = TIMER 'Ti - variable to minimise TIMER calls
IF Ti => 86400000 THEN TIMER = 1 'Reset TIMER at midnight
IF Ti < AMopen THEN
SERVO 2,50,2.1
Status$ = "IN ONLY" 'IN ONLY = closed
ELSEIF Ti => AMopen AND Ti < PMclose THEN
SERVO 2,50,1.4
Status$ = "OPEN"
ELSEIF Ti => PMclose THEN
SERVO 2,50,2.1
Status$ = "IN ONLY"
ENDIF

PosX=0: PosY=5: LCD_GotoXY 'display the door status
Text$ = "----"+ Status$ +"----"
Lookup
LCD_Stringout

END SUB

FUNCTION Secs_from_Midnight(convert$)
conv1 = VAL(MID$(convert$,1,2)) *3600
conv2 = VAL(MID$(convert$,4,2)) *60
conv3 = VAL(MID$(convert$,7,2))
Secs_from_Midnight = conv1 + conv2 + conv3
END FUNCTION

'------------------------------------------

OPTION AUTORUN ON
SetPin 3, DOUT 'relay 1
SetPin 5, DOUT 'rekay 2
SETPIN 16, OOUT 'heartbeat led - just to show life
Pin(3)=0
Pin(5)=0
PIN(16)=0
DIM RTCBUFF(7)
SETMCLOCK


SETTICK 3600000,SETMCLOCK,1 'update uMite clock every hour
SETTICK 250, HEARTBEAT,3

Do
IF TIME$ = "08:45:00" THEN SHOP 'pulse shop buzzer relay
IF TIME$ = "09:00:00" THEN SHOP
IF TIME$ = "12:30:00" THEN SHOP
IF TIME$ = "13:00:00" THEN SHOP
IF TIME$ = "14:00:00" THEN SHOP
IF TIME$ = "14:15:00" THEN SHOP
If Time$ = "08:15:00" THEN OFFICE 'pulse office buzzer relay
LOOP

SUB HEARTBEAT
PULSE 16, 125
END SUB


'**********************************************
SUB OFFICE
PULSE 5, 250
PAUSE 1050
END SUB


'**********************************************
SUB SHOP
PULSE 3, 250
PAUSE 1050
END SUB


'**********************************************
SUB SETMCLOCK
I2caddr = &h68 ' DS3231 I2C address
I2C open 100,100 ' Enable I2C
I2C write I2caddr, 0, 1, 0
I2C Read i2caddr, 0, 7, RTCbuff(0) ' Read Time
I2C Close

BCDTEMP = RTCBuff(0)
BCDtoDec BCDTEMP
SEC$ = Str$(decimal)

BCDTEMP = RTCBuff(1)
BCDtoDec BCDTEMP
MIN$ = Str$(decimal)

BCDTEMP = RTCBuff(2)
BCDtoDec BCDTEMP
HOURS$ = Str$(decimal)

BCDTEMP = RTCBuff(3)
BCDtoDec BCDTEMP
DAYOFWEEK = decimal

BCDTEMP = RTCBuff(4)
BCDtoDec BCDTEMP
DAY$ = Str$(decimal)

bcdtemp = rtcbuff(5)
BCDtoDec BCDTEMP
MONTH$ = Str$(decimal)

bcdtemp = rtcbuff(6)
BCDtoDec BCDTEMP
YEAR$ = Str$(decimal + 2000 )

T$ = HOURS$+":"+MIN$+":"+SEC$
D$ = DAY$+"/"+MONTH$+"/"+YEAR$
Time$ = T$
Date$ = D$
END SUB


'**********************************************
Sub BCDtoDec (BCDTEMP)
Decimal = Fix(BCDTemp / 16) * 10
Decimal = Decimal + (BCDTEMP And &hF)
End Sub


'**********************************************
SUB SETDS3231
' SET DS3231
' MMBasic Time$ and Date$ must be set first!!!!!!!!

' get seconds
X = VAL(RIGHT$(TIME$, 2))
SECONDS = (X\10)*16 + X mod 10

' get minutes
X = VAL(MID$(TIME$, 4, 2))
MINUTES = (X\10)*16 + X mod 10

' get hours
X = VAL(LEFT$(TIME$, 2))
HOURS = (X\10)*16 + X mod 10

' get day of month
DD = VAL(LEFT$(DATE$, 2))
DOM = (DD\10)*16 + DD mod 10

' get month
MM = VAL(MID$(DATE$, 4, 2))
MONTH = (MM\10)*16 + MM mod 10

' get year
YY = VAL(RIGHT$(DATE$, 2))
YEAR = (YY\10)*16 + YY mod 10

' get day of the week
YYYY = VAL(RIGHT$(DATE$, 4))
A = (14-MM)\12
M = MM + 12*A - 2
Y = YYYY - A
DOW = (DD + Y + Y\4 - Y\100 + Y\400 + 31*M\12) mod 7 + 1

I2C open 100,100
I2C write &H68, 0, 8, 0,SECONDS,MINUTES,HOURS,DOW,DOM,MONTH,YEAR
If MM.I2C <> 0 then
print "I2C error = "; MM.I2C
end
Endif
I2C close
END SUB