Here's a small program that generates scrambles of length 25, and displays it on 5 lines. The scrambler does not allow sequences like: U' U2 or R L2 R2. It's useful for when I cube away from home. When I don't follow a randomly generated scramble, I'm always worried that the cube might not be totally random, so I often spend waaaay too much time scrambling and not enough time cubing.
When I want length 30 scrambles (when I do blindfold solves), I change the first 5 to a 6. (haha, screw user interface, I wrote it for myself.)
:int(6rand→F
:For(I,1,5
:" →Str0
:For(J,1,5
:Repeat not(A and D=3
:randInt(1,5→D
:End
:Ans=3→A
:round(6fPart(6ֿ¹(F+D→F
:Str0+" "+sub("URFDLB",1+F,1
:If int(3rand
:Ans+sub("2'",randInt(1,2),1
:Ans→Str0
:End
:Disp sub(Ans,3,length(Ans)-2
:End