In the https://www.cemetech.net/forum/viewtopic.php?t=15381 (original post) i tried to convert this code to Ti-84/83 BASIC but failed miserably. During posting this forum topic I was locked out of this account I am posting this with, so the user redsn0w is me.

anyways here's the code:

Code:
``` clock() Prgm //Setup Code StoGDB a ClrDraw ClrIO ClrHome FnOff setGraph(“axes”,”off”) //Set Window 1.3->xmax 1.3->ymax ⁻1.3->xmin ⁻1.3->ymin ZoomSqr setMode(“Angle”,”RADIAN”) //Draw Clock Base Circle 0,0,1 PtText “12”,⁻.15,1.2 PtText “6”,⁻.08,⁻1.05 PtText “9”,⁻1.2,.08 PtText “3”,1.05,.08 //Draw 3 hour,5 minute, and 1 minute tick marks For b,0,60*π/30,π/30  Line .925*cos(b),.925*sin(b),cos(b),sin(b) EndFor For b,0,12*π/6,π/6  Line .85*cos(b),.85*sin(b),cos(b),sin(b) EndFor For b,0,4*π/2,π/2  Line .8*cos(b),.8*sin(b),cos(b),sin(b) EndFor //Repeats until a key is pressed While getKey()=0  //Split time List Var into two INT vars  getTime()->l1  l1[1]->h  l1[2]->m  //Draw and erase hands  Line 0,0,.5*sin((h-1)*π/6),.5*cos((h-1)*π/6),0  Line 0,0,.5*sin(h*π/6),.5*cos(h*π/6),1  Line 0,0,.7*sin((h-1)*π/30),.7*cos((h-1)*π/30),0  Line 0,0,.7*sin(h*π/30),.7*cos(h*π/30),1 EndWhile FnOn RclGDB a EndPrgm ```

this is also on tibasicdev, http://tibasicdev.wikidot.com/forum/t-10610363/looking-for-beta-testers-clock-program-for-68k-in-basic

Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

»
» All times are GMT - 5 Hours

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Advertisement