I was dinking around with my updated clock program, and i just created a newer update, version: 5.0.2, I highly recommend you get it now. Wolfgang47? Could you take a look at my/your updated clock program please? I want your rating/approval. I'm still giving credit to you.
:Zstanderd
:ZInteger
:Clear Entries
:ClrDraw
:For(A,94,1,-1)
:Text(36,A,"TI-84 Plus
:For(A,94,1,-1)
:Horizontal A
:End
:Text(15,1," Version 5.0.2
:Text(8,1," Wolfgang47
:Text(1,1," Clock interface prgm
:Repeat getKey
:Text(56,1,"Press any key...
:For,B,-93,93,2
:Vertical B
:For(B,-92,92,2)
:Vertical B
:End
:Lbl M
:ClrDraw
:ClrHome
:Menu("Main Menu","Analog",3,"Digital",2,"Set",1,"About",0,"Close",Q
:Lbl 0
:Repeat getKey
:For(A,94,1,-1)
:Text(1,A,"Clock Interface"
:End
:For(A,94,1,-1)
:Text(8,A,"Wolfgang47"
:End
:For(A,94,1,-1)
:Text(15,A,"Updated by Ty Dahl"
:End
:For(A,94,1,-1)
:Text(56,A,"Version 4.0.1"
:End
:Pause
:Goto M
:Lbl 1
:Menu(Settings","Time",4,"Date",5,"Reset Default",RD,"Back",6
:Lbl 6:Goto M
:Lbl RD
:setDate(2001,01,01)
:setTime(12,00,00)
:setDtFmt(1
:setTmFmt(12
:Goto 1
:Lbl 5
:Disp "Date?"
:Input "Year ",Y //1 space for all inputs date, time
:Input "Date ",D
:Input "Month ",M
:ClrHome
:setDate(Y,M,D)
:Goto M
:Lbl 4
:Disp "Time?"
:Input "Hour ",H
:Input "Minute ",M
:0→S
:setTime(H,M,S)
:ClrHome
:Disp "Time Format?","12 or 24 Hour"
:Input "Format ",F
:setTmFmt(F
:ClrHome
:Disp "Date Format?","1(MMDDYY","2(DDMMYY","3(YYMMDD"
:Input "Format ",F
:setDtFmt(F
:Goto M
:Lbl 2
:Menu("Digital Clocks","12-Hour",12,"24-Hour",24,"Back",BB
:Lbl BB:Goto M
:Lbl 24
:Repeat getKey
:getTmStr(12
:Text(1,1,Ans
:getTime
:getDtStr(1
:Text(1,1,Ans
:getDate
:End
:Goto M
:Lbl 12
:Repeat getKey
:getTmStr(12
:Text(1,1,Ans
:getTime
:getDtStr(1
:Text(1,1,Ans
:getDate
:End
:Goto M
:Lbl 3
:AxesOff
:GridOff
:FnOff
:PlotsOff
:ZStandard
:ZInteger
:Degree
:SetUpEditor
:ClrList L1
:3 -> dim(L1
:L1→L2
:Ans→L3
:Ans-1→L1
:Circle(0,0,30,{i
:Circle(0,0,30.25,{i
:Circle(0,0,30.5,{i
:Circle(0,0,30.75,{i
:Circle(0,0,31,{i
:For(A,1,12)
:90-30A→B
:44+round(24cos(Ans),0→C
:28-round(24sin(B),0→D
:Text(D,C,A
:If A≤9
:Text(D,C,0,A
:End
:Repeat getkey
:getTime→L4
:Ans(1
:L4(2)/12+5Ans-60(Ans>12→L4(1
:For(A,3,1,-1
:If not(L1(A)=L4(A
:Then
:Line(0,0,L2(A),L3(A),0
:L4(A→L1(A
:11A-2A^2+4→B
:90-6L1(A→C
:Bcos(Ans→L2(A
:Bsin(C→L3(A
:End
:End
:Pt-On(0,0,2
:Line(0,0,L2(3),L3(3
:Line(0,0,L2(2),L3(2
:Line(0,0,L2(1),L3(1
:End
:Goto M
:Lbl Q
:DelVar ADelVar BDelVar CDelVar DDelVar KZStandard
:AxesOn
:ClrHome
:LblQ
:For(A,94,1,-1)
:Text(1,A,"Thank you!"
:ClrList L1,L2,L3,L4
:End
:Pause
:ClrDraw
:ClrHome