I wanted to make an entry to Challenge #2 for an analogue clock. Here is my entry at a slim 220 bytes, but I am wondering if it can be optimized any more. I really want to see what the most utterly optimized clock program would be like!
Rules: Display a circular face with minute and hour hands and a sweeping dot for the seconds. Also display AM/PM and the date. Use the calculator's MODE to set the clock. The program will be judged on size.
My entry so far… can it be optimized further? Er, it must be able to be. How can it be optimized further?
PROGRAM: CLOCK
:StoreGDB0
:Full:FnOff:AxesOff:GridOff:PlotsOff:ZStandard:ZSquare
:Text(57,63,getDtStr(1
:Circle(0,0,9
:Repeat getkey
:Text(57,1,getTmStr(0
:getTime
:96-Ans(3
:Pt-Off(8cos(Ansº),8sin(Ansº
:Ans-6
:Pt-On(8cos(Ansº),8sin(Ansº
:getTime
:90.3-.1Ans(3)-6Ans(2
:For(X,0,1
:Line(0,0,8cos(Ansº),8sin(Ansº),X
:Ans-.3
:End
:getTime
:For(X,0,1
:Line(0,0,5cos(Ansº),5sin(Ansº),X
:Ans-1
:End
:End
:DelVarGDB0DelvarX"
EDIT: woah. I actually did it, I used the cool cat code style