:Disp "cranwell@yahoo.com"
:"HE IT WE "üA
:sub(A,int 3rand*3+1,3)üS
:"RUNS WALK "üA
:S+sub(A,int 2rand*5+1,5)üS
:"HOME BACK "üA
:S+sub(A,int 2rand*5+1,5)üS
:Return
:"sorry, never got around 
  to actually finishing this"

    Source: geocities.com/xulfrepus/ti85

               ( geocities.com/xulfrepus)