TUBE $& :100d  "set""a" d$6:0:9 :1 n x815,2;6;" *** ACME GLASS CUBE ***" ,5;"** GENUINE SIMULATED PLASTIC **" *4;" *** DO NOT DROP! ***" "":"":"" (9 ;"  IOLO DAVIDSON 1982 " 8000@ 1000 2000 9 :1 616,0;" Press Colour Key To Select " $" Face- Then Press Key T Or R " $" To Turn Clockwise Or Otherwise " $" Shift Keys Are Not Needed " 0:0 ,,k=0:move=0:m$="":2500  1000 617,0;" Would You like This One " % " Unscrambled, (Press U,) Or are " $" You In A Hurry? (Press H) "  3000  k$="h" &7k$="u"600X:7200 :5000:2500 0.5,-40(:530 X617,0;" Hold Down H To Halt Action " b." Or Hold R To Regain Control ";31 l !*** Dim initial face arrays *** a(6,14) e=19 c=16 a(c,e)=c+1 c e $(f=16:e=10 14 .a(f,e) 8e:f B2,3,4,5,6,3,1,5,6,4,1,2,6,4,5,6,5,1,3,2,4,6,2,1,6,5,4,3,2,1 K#*** Address array for display *** Lu(546,2) Ve=1546 `f=12 ju(e,f) o.008zn,e tf:e ~7,8,6,10 ,5,12 ,7,12 ,9 ,12 ,10 ,10 ,11 ,8,9 ,8,8,10 1,7,2,9 ,3,11 ,4,9 ,5,7,4,5,3,3,2,5,3,7 7,18,5,18,3,18,2,20,1,22,3,22,5,22,6,20,4,20 7,23,8,25,9 ,27,10 ,25,11 ,23,10 ,21,9 ,19,8,21,9 ,23 11 ,6,10 ,4,9 ,2,7,2,5,2,6,4,7,6,9 ,6,8,4 3,28,5,28,7,28,6,26,5,24,3,24,1,24,2,26,4,26 *** cubie shape arrays *** a$(6,4) a$(1)="" a$(2)="" a$(3)=a$(1) a$(4)=a$(2) a$(5)="" a$(6)=a$(5) @4b(8):c(4,3):d(4,3) r.s=14:t=13:d(s,t) |t:s a5,4,3,3,2,1,7,6,5,1,8,7  *** Display *** f=16 e=19 z=e+9 *f-9 :a(f,e) lu(z,1),u(Z,2);a$(f,12):u(z,1)+1,u(z,2);a$(f,34) .006yD,f*e e f  9   3 *** display moved edgesonly*** 4 e=opy >f=a(k,e+9 ) H c=mny R)z=f*9 -9 +d(e,c):a(f,d(e,c)) \zu(z,1),u(Z,2);a$(f,12):u(z,1)+1,u(z,2);a$(f,34):.004yn,z fc:e !*** display moved face only ***  p=vwy $z=k*9 -9 +p:f=k:a(k,p) zu(z,1),u(Z,2);a$(f,12):u(z,1)+1,u(z,2);a$(f,34):.004yn,z p  9  3000 k$="q"500 *k$="t"k02800 :2500 *k$="r"k02600( :2500 /k$<"2"k$>"7".5,-40(:2500 5000 k06000p k=k$-1 6000p 2500 ( 7100 - 4000 2s=18 <%t=s+2:t>8t=t-8 F a(k,s)=b(t) Ps Zs=14 _5g=a(k,s+9 ):x=s+1:x=5x=1 dt=13 na(g,d(s,t))=c(x,t) xt:s Nv=8:w=1:o=4:p=1:m=3:n=1:y=-1 21004  7100 4000 s=18 %t=s-2:t<1t=t+8  a(k,s)=b(t) s "&s=14:t=13 '5g=a(k,s+9 ):x=s-1:x=0x=4 ,t=13 6a(g,d(s,t))=c(x,t) @t:s JMv=1:w=8:o=1:p=4:m=1:n=3:y=1 T 21004 ^ ""3000 )="".007ye`A,*60<:3010 k$=  ***load rotate buffers***  s=18  b(s)=a(k,s) s s=14 g=a(k,s+9 ) t=13 c(s,t)=a(g,d(s,t)) t:s  ;14,0;31;29;28;32 ڰk$ $"Colour Of Central Cubie Selects " $"Face For Rotation, R Or T Rotate" $" Press Q For New Cube " 12 ,14;"FACE":14,15;0;ٰk$;a$(k$-1,12);15;a$(k$-1,34) 8:8:1 (14,15;"";15;"" 0:9 :0 | p3qb=u(k*9 ,1):qb1=u(k*9 ,2) u8:8:1 zqb,qb1;"" qb+1,qb1;"" 9 :0:0  X:z$ bn=07 ln;:row:z$+n,row vn  move=move+1  m$=k$+m$  m$=k+m$   move=0 4 6000p >k=m$(1) H!k$=(k+1):t$=m$(2) M$move=move-1:m$=m$(3) R5010:6000p \t$="t"2605- ft$="r"2805 k="h"7275k m ="r" pmove072204 z @ Jx=23232Z23263Z T x,0 ^x: ZZJ rrz6kov!6                  +AAMK set X>0 8