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