.AA
L1+710->°SEC
L1+708->°MIN
L1+706->°HOUR
L1+704->°DAY
L1+702->°MONTH
L1+700->°YEAR
Fix 5
ClrDraw
Lbl Sprit
[]->Str1
[FFFF8001880188058805B8098C098A118A11BFFD8A2189C1880188018001FFFF].graph
[C1839C392244424287E18911900960062004B1EDA105A1059009891187E1F66F].clock
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
Lbl Text
[]->GDB1
"Graph"[00]
"Set Clock"[00]
"Choice 2"[00]
"Choice 3"[00]
"Choice 4"[00]
"Choice 5"[00]
"Choice 6"[00]
"Choice 7"[00]
"Choice 8"[00]
"Choice 9"[00]
"Choice A"[00]
"Choice B"[00]
"Choice C"[00]
"Choice D"[00]
"Choice E"[00]
Zeros(768)->°BG
Lbl Code
ClrDraw(L1)
ClrDraw(L3)
Fill(°BG+96,384,255)
Text(0,,"F1:Menu")
RectI(0,7,96,1)
StorePic
While 1
getKey(3)-getKey(2)+X+3^3->X
If getKey(1)
B++
!If -2
B--
A<3+A->A
End
End
If getKey(4)
B--
!If +1
->B
A--+1??->A
End
End
RecallPic
TIME()
Lbl FOR2
For(Z,0,5)
A*3+Z->r1*32+Str1->r2
Z/3*26->r4*3+(Z^3->r5)*4+L6+133->r3
For(theta,0,15)
{theta*2+r2}^^r->{theta*12+r3}^^r
End
Text(r5*32+1,r4+27,stdDev(GDB1,r1)
End
RectI(X*32,B*26+9,32,25)
Text(32,0,stdDev(GDB1,A+B*3+X)
.DispGraph(L6,°BG)^^r
DispGraph
EndIf getKey(15)
Lbl RET
Return
Lbl TIME
°YEAR
GetDT()
Text(77,0,HOUR/10>Dec)
Text(81,0,HOUR^10>Dec)
Text(85,0,":")
Text(87,0,MIN/10>Dec)
Text(91,0,MIN^10>Dec)
Return
Lbl WKP
Pause 200
Lbl WLP
While 1
EndIf getKey(0)
Return
..CLOCK LIBRARY
Data(31,28,31,30,31,30,31,31,30,31,30,31)->GDB0DPM
Lbl ClkOf
Asm(DB02E620C8AFD340)
Return
Lbl ClkOn
Asm(DB02E620C83E01D340)
Return
Lbl IsClk
Asm(DB02E6202804DB40E6016F)^256
.returns 1 if clock is on, 0 if off
Return
Lbl GetDT
->r6
°r1GetRT()
60->r3
Div21()
r4->{r6+10}^^r
Div21()
r4->{r6+8}^^r
24->r3
Div21()
r4->{r6+6}^^r
r2>=37679+r2->r1
^1461->r2
/365+(r2!=1460-1)+(r1/1461*4)+1997->{r6}^^r
r2>=1095+28->{GDB0DPM+1}
1->r1:(r2=1460??r2^365,365)->r2
While >={r1-1+GDB0DPM}:r1++
r2-{r1-2+GDB0DPM}->r2:End
r1->{r6+2}^^r
r2+1->{r6+4}^^r
28->{GDB0DPM+1}
Return
Lbl GetRT
Asm(DB02E620280F0E47EDA20CEDA20E45EDA20CEDA2C90604772310FC)
Return
Lbl SetDT
Select(Select(r1-1997,/2/2*1461-1+r3->r3)^4,*365+r3->r3)=3-1
+1+28->{GDB0DPM+1}
While r2-1->r2
{-1+GDB0DPM}+r3->r3:End:->r1
r3<37679-1+r3->r2
28->{GDB0DPM+1}
24->r3
Mul21():r2+r4->r2<r4+r1->r1
60->r3
Mul21():r2+r5->r2<r5+r1->r1
Mul21():r2+r6->r2<r6+r1->r1
°r1
Lbl SetRT
Asm(DB02E620C80E43EDA30CEDA30E41EDA30CEDA33E01D3403E03D340)
Return
Lbl DOfWk
Select(Select(r1-1997,/2/2*1461-1+r3->r3)^4,*365+r3->r3)=3-1
+1+28->{GDB0DPM+1}
While r2-1->r2
{-1+GDB0DPM}+r3->r3:End
28->{GDB0DPM+1}
Return r3<37679-1+r3+3^7+1
Lbl Mul21
r1*r3+(r2*^r3)->r1:r2*r3->r2
Return
Lbl Div21
0->r4^^r
For(4)
r4*256+{°r1+1}->r4
r1*256+{°r2+1}->r1
r2*256+(r4/r3)->r2
r4^r3->r4
End
Return