I decided to fuse two programs together, CHill's ClockMec, and APotato's CubeTimer.

The program's been acting strangely, so I'd appreciate any help.

Code:
ClrDraw
DelVar D
ZStandard
CoordOff:GridOff:AxesOff:BackgroundOff:BorderColor 4
­15→Xmin
15→Xmax
TextColor(LTBLUE
Text(­1,5,70,"Welcome to…
TextColor(RED
For(X,100,70,­1
Text(­1,X,80,"Cube
Text(­1,140-X,140,"Timer
Text(­1,124-X,140,"    "
End
TextColor(BLACK
Text(­1,70,215,"v1
End

Text(­1,143,55,"By Joshua C
TextColor(BLACK
Text(85,1,"Press
Text(100,1,"Enter
Pause

ClrDraw
0→L
1→Y
While Y≤26
L+4→L
Y+1→Y
End
3→X
11→Y
Goto Y
End
ClrDraw
Lbl M
End
Lbl Y
ClrDraw
TextColor(BLACK
Text(1,1,"--------------------Cube-Timer----------------------"
Text(21,6,"1:Timer"
Text(41,6,"2:Quit"
Text(61,1,"__________________________________"
Repeat K=92 or 93
getKey→K
End
If K=92
Then
Goto T
End
If K=93
Then
Return

While 1
getKey→K
While K=0
getKey→K
End
If K=25
Goto U
If K=34
Goto D
If K=105
Goto E
If K≠25 or 35 or 105
Goto Y
End
Lbl U
Output(X,5," "
Output(X,Y," "
X-1→X
If X=2
Then
5→X
10→Y
Goto Y
Else
If X=4
Then
13→Y
Goto Y
Else
If X=3
Then
11→Y
Goto Y
End
Lbl D
Output(X,5," "
Output(X,Y," "
X+1→X
If X=6
Then
3→X
11→Y
Goto Y
Else
If X=4
Then
13→Y
Goto Y
Else
If X=5
Then
10→Y
Goto Y
End
Lbl E
If X=3
Goto T
If X=4
Goto A
If X=5
Goto Z
End
Lbl Z
ClrDraw
TextColor(RED
Text(­2,1,3,"Cubetimer, by Joshua C"
Lbl T
S+1→S
0→T
0→K
ClrDraw
TextColor(RED
Text(­2,1,3,"Cubetimer, by Joshua C"
TextColor(BLACK
Text(53,100,"------"
Text(74,100,"00.000"
Text(95,100,"------"
Text(137,31,"Press anykey to Start/Stop"
Text(149,31,"Press Mode to Quit"
Repeat K=22 or K≠0
getKey→K
If K=22
Then
Goto M
Else
If K≠0
Then
Repeat K=0
getKey→K
If K=0
Then
Goto R
Pause
End
End
End
End
End
End
End
End
End
Lbl R
0→K
Repeat K≠0
getKey→K
End
Text(74,100,T
T+0.037→T
Pause
If S=1
Then
T→A
Goto T
Else
If S=2
Then
T→B
Goto T
Else
If S=3
Then
T→C
Goto T
Else
If S=4
Then
T→D
Goto T
Else
If S=5
Then
T→E
0→S
Goto T
Else
If S≥6
Then
T→E
0→S
Goto T




Edit: I just fixed the program. Should I do anything to it now?

Code:
ClrDraw
GridOff
BackgroundOff
Polar
PolarGC
ClrDraw
AxesOff
PlotsOff
ZStandard
FnOff
ClrDraw
DelVar D
ZStandard
CoordOff:GridOff:AxesOff:BackgroundOff:BorderColor 4
­15→Xmin
15→Xmax
TextColor(LTBLUE
Text(­1,5,70,"Welcome to…

TextColor(RED
For(X,100,70,­1
Text(­1,X,80,"Cube
Text(­1,140-X,140,"Timer
Text(­1,124-X,140,"    "
End
TextColor(BLACK
For(A,1,100
Text(­1,70,215,"v1
End
For(A,1,500
End

Text(­1,143,55,"By Joshua C
TextColor(BLACK
Text(85,1,"Press
Text(100,1,"Enter
Pause

ClrDraw
0→L
1→Y
While Y≤26
L+4→L
Y+1→Y
End
3→X
11→Y
Goto Y
End
ClrDraw
Lbl M
End
Lbl Y
TextColor(BLACK
Text(1,1,"-------Cubetimer---------"
Text(21,6,"1:Timer"
Text(41,6,"2:Quit"
Text(61,1,"_________________________"

Repeat K=92 or 93
getKey→K
End
If K=92
Then
Goto T
End
If K=93
Then
Return
End
Goto Y
End
Lbl U
Output(X,5," "
Output(X,Y," "
X-1→X
If X=2
Then
5→X
10→Y
Goto Y
Else
If X=4
Then
13→Y
Goto Y
Else
If X=3
Then
11→Y
Goto Y
End
Lbl D
Output(X,5," "
Output(X,Y," "
X+1→X
If X=6
Then
3→X
11→Y
Goto Y
Else
If X=4
Then
13→Y
Goto Y
Else
If X=5
Then
10→Y
Goto Y
End
Lbl E
If X=3
Goto T
If X=4
Goto A
If X=5
Goto Z
End
Lbl Z
ClrDraw
TextColor(RED
Text(­2,1,3,"Cubetimer, by Joshua C"
Lbl T
S+1→S
0→T
0→K
ClrDraw
TextColor(RED
Text(­2,1,3,"Cubetimer, by Joshua C"
TextColor(BLACK
Text(53,100,"------"
Text(74,100,"00.000"
Text(95,100,"------"
Text(137,31,"Press anykey to Start/Stop"
Text(149,31,"Press mode to Quit"

Repeat K=22 or K≠0
getKey→K
If K=22
Then
Goto M
Else
If K≠0
Then
Repeat K=0
getKey→K
If K=0
Then
Goto R
Pause
End
End
End
End
End
End
End
End
End
End
End
Lbl R
0→K
Repeat K≠0
getKey→K
TextColor(BLACK
Text(74,100,T
T+.037→T
End
Pause
If S=1
Then
T→A
Goto T
Else
If S=2
Then
T→B
Goto T
Else
If S=3
Then
T→C
Goto T
Else
If S=4
Then
T→D
Goto T
Else
If S=5
Then
T→E
0→S
Goto T
Else
If S≥6
Then
T→E
0→S
Goto T
APotato
Is
Awesome!
:D
Purple Yams Suck
Lbl A
If E=0
Then
ClrHome
Output(1,4,"Do 5 solves first"
Pause
Goto Y
Else
ClrHome
Disp "Your Average of 5 is:"
Disp (A+B+C+D+E)/5
Disp "Your solve times are:"
Disp A,B,C,D,E
Pause

Goto Y
  
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.

» Go to Registration page
Page 1 of 1
» All times are UTC - 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