' RTC Setup Test

Option explicit
Const time_display_box=1
Const yer_val_box=2
Const yer_label_box=3
Const mth_val_box=4
Const mth_label_box=5
Const day_val_box=6
Const day_label_box=7
Const hrs_val_box=8
Const hrs_label_box=9
Const min_val_box=10
Const min_label_box=11

'Dim old_date As string length 10
'Dim old_time As string length 10
'Dim not_touched =1
Dim refresh_line As integer

CLS

GUI setup 1
'GUI displaybox time_display_box,0,0,200,20,RGB(yellow),RGB(black)
'CtrlVal(time_display_box)="test"

Font 5
GUI numberbox yer_val_box,20,30,100,50,RGB(yellow),RGB(blue)
CtrlVal(yer_val_box)=Val(Mid$(Date$,7,4)) ' extract year data

Font 1
GUI interrupt pen_down,pen_up
SetTick 1000,check_time

Do

Loop

Sub check_time
refresh_line=GetScanLine()
'Do While refresh_line>400 Or refresh_line<=MM.FontHeight*2 'nd refresh_line<=
Do While refresh_line<=MM.FontHeight*2
Print refresh_line
refresh_line=GetScanLine()
Loop
Print Time$
'CtrlVal(time_display_box)=Time$+" "+Date$
Text 0,0,Time$+" "+Date$
End Sub

'Sub MM.KEYPRESS ref As integer, caption As string
'Print caption
' If ref=yer_val_box And caption="Ent" Then
' If Val(CtrlVal(yer_val_box))>4000 Then CtrlVal(yer_val_box)="4000"
' If Val(CtrlVal(yer_val_box))<0 Then CtrlVal(yer_val_box)="0"
' EndIf
'End Sub

Sub pen_down
Print "down"
End Sub

Sub pen_up
Print "up"
End Sub

Do While refresh_line<=30 or refresh_line> 40
refresh_line=GetScanLine()
Loop
CtrlVal(time_display_box)=Time$+" "+Date$