' RTC Setup Test

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

CLS

GUI setup 1
GUI displaybox time_display_box,0,0,300,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
'Do
'refresh_line=GetScanLine()
'Print refresh_line
'Loop While refresh_line<50
Print Time$
'Print refresh_line
CtrlVal(time_display_box)=Time$
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
EndIf
End Sub

Sub pen_down
Print "down"
End Sub

Sub pen_up
Print "up"
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
EndIf
End Sub