RUBIKEMU

:DCS
"33333333333333333222238888355553322223888835555332222388883555533222238888355553333333333333333336666322223BBBB336666322223BBBB336666322223BBBB336666322223BBBB33333333333333333366663AAAA311113366663AAAA311113366663AAAA311113366663AAAA3111133333333333333333
If 80>det([[20
Then
Disp "Get Doors CSE to run this:","http://dcs.cemetech.net
Return
End
//   222
//   222
//   222
//555333444666
//555333444666
//555333444666
//   111
//   111
//   111
//red(1) 0 248 orange(2) 32 253  yellow(3) 224 255 green(4) 0 4 blue(5) 31 0 white(6) 255 255
//123
//456
//789
//det(12,FG_LO,FG_HI,BG_LO,BG_HI
ClrHome
1->S
69->dim(|LRUBIK)
{0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,2,2,2,2,2,2,2,2,2,0,3,3,3,3,3,3,3,3,3,0,4,4,4,4,4,4,4,4,4,0,5,5,5,5,5,5,5,5,5,0,6,6,6,6,6,6,6,6,6}->|LRUBIK
det(12,0,0,255,255
Output(1,5,"2
Output(2,4,"5346
Output(3,5,"1
Lbl A
If S=0
6->S
If S=7
1->S
If S=1
Goto 1
If S=2
Goto 2
If S=3
Goto 3
If S=4
Goto 4
If S=5
Goto 5
If S=6
Goto 6
Lbl 1
|LRUBIK(11)->A
|LRUBIK(12)->B
|LRUBIK(13)->C
|LRUBIK(14)->D
|LRUBIK(15)->E
|LRUBIK(16)->F
|LRUBIK(17)->G
|LRUBIK(18)->H
|LRUBIK(19)->I
Goto 7
Lbl 2
|LRUBIK(21)->A
|LRUBIK(22)->B
|LRUBIK(23)->C
|LRUBIK(24)->D
|LRUBIK(25)->E
|LRUBIK(26)->F
|LRUBIK(27)->G
|LRUBIK(28)->H
|LRUBIK(29)->I
Goto 7
Lbl 3
|LRUBIK(31)->A
|LRUBIK(32)->B
|LRUBIK(33)->C
|LRUBIK(34)->D
|LRUBIK(35)->E
|LRUBIK(36)->F
|LRUBIK(37)->G
|LRUBIK(38)->H
|LRUBIK(39)->I
Goto 7
Lbl 4
|LRUBIK(41)->A
|LRUBIK(42)->B
|LRUBIK(43)->C
|LRUBIK(44)->D
|LRUBIK(45)->E
|LRUBIK(46)->F
|LRUBIK(47)->G
|LRUBIK(48)->H
|LRUBIK(49)->I
Goto 7
Lbl 5
|LRUBIK(51)->A
|LRUBIK(52)->B
|LRUBIK(53)->C
|LRUBIK(54)->D
|LRUBIK(55)->E
|LRUBIK(56)->F
|LRUBIK(57)->G
|LRUBIK(58)->H
|LRUBIK(59)->I
Goto 7
Lbl 6
|LRUBIK(61)->A
|LRUBIK(62)->B
|LRUBIK(63)->C
|LRUBIK(64)->D
|LRUBIK(65)->E
|LRUBIK(66)->F
|LRUBIK(67)->G
|LRUBIK(68)->H
|LRUBIK(69)->I
Lbl 7
If A=1
Then
0->J
248->K
End
If A=2
Then
32->J
253->K
End
If A=3
Then
224->J
255->K
End
If A=4
Then
0->J
4->K
End
If A=5
Then
31->J
0->K
End
If A=6
Then
255->J
255->K
End
det(12,J,K,255,255
Output(1,1,"*
If B=1
Then
0->J
248->K
End
If B=2
Then
32->J
253->K
End
If B=3
Then
224->J
255->K
End
If B=4
Then
0->J
4->K
End
If B=5
Then
31->J
0->K
End
If B=6
Then
255->J
255->K
End
det(12,J,K,255,255
Output(1,2,"*
If C=1
Then
0->J
248->K
End
If C=2
Then
32->J
253->K
End
If C=3
Then
224->J
255->K
End
If C=4
Then
0->J
4->K
End
If C=5
Then
31->J
0->K
End
If C=6
Then
255->J
255->K
End
det(12,J,K,255,255
Output(1,3,"*
If D=1
Then
0->J
248->K
End
If D=2
Then
32->J
253->K
End
If D=3
Then
224->J
255->K
End
If D=4
Then
0->J
4->K
End
If D=5
Then
31->J
0->K
End
If D=6
Then
255->J
255->K
End
det(12,J,K,255,255
Output(2,1,"*
If E=1
Then
0->J
248->K
End
If E=2
Then
32->J
253->K
End
If E=3
Then
224->J
255->K
End
If E=4
Then
0->J
4->K
End
If E=5
Then
31->J
0->K
End
If E=6
Then
255->J
255->K
End
det(12,J,K,255,255
Output(2,2,"*
If F=1
Then
0->J
248->K
End
If F=2
Then
32->J
253->K
End
If F=3
Then
224->J
255->K
End
If F=4
Then
0->J
4->K
End
If F=5
Then
31->J
0->K
End
If F=6
Then
255->J
255->K
End
det(12,J,K,255,255
Output(2,3,"*
If G=1
Then
0->J
248->K
End
If G=2
Then
32->J
253->K
End
If G=3
Then
224->J
255->K
End
If G=4
Then
0->J
4->K
End
If G=5
Then
31->J
0->K
End
If G=6
Then
255->J
255->K
End
det(12,J,K,255,255
Output(3,1,"*
If H=1
Then
0->J
248->K
End
If H=2
Then
32->J
253->K
End
If H=3
Then
224->J
255->K
End
If H=4
Then
0->J
4->K
End
If H=5
Then
31->J
0->K
End
If H=6
Then
255->J
255->K
End
det(12,J,K,255,255
Output(3,2,"*
If I=1
Then
0->J
248->K
End
If I=2
Then
32->J
253->K
End
If I=3
Then
224->J
255->K
End
If I=4
Then
0->J
4->K
End
If I=5
Then
31->J
0->K
End
If I=6
Then
255->J
255->K
End
det(12,J,K,255,255
Output(3,3,"*
Repeat A>0
getKey->A
End
If A=45
Stop
If A=92
1->S
If A=93
2->S
If A=94
3->S
If A=82
4->S
If A=83
5->S
If A=84
6->S
det(12,0,0,255,255
Output(1,5,"2
Output(2,4,"5346
Output(3,5,"1
det(12,26,71,255,255
If S=1
Output(3,5,"1
If S=2
Output(1,5,"2
If S=3
Output(2,5,"3
If S=4
Output(2,6,"4
If S=5
Output(2,4,"5
If S=6
Output(2,7,"6
Goto A