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:
Edit: I just fixed the program. Should I do anything to it now?
Code:
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
