:Disp "cranwell@yahoo.com"
:Disp "GODDESS 401"
:Lbl CRANWELL:For(U,1,5)
:Disp "":End:iPart 401randüE
:Disp "Enter NAME"
:InpST Z:lngth ZüL:{1,L}üdim T
:Lbl B:Disp "","":2üK:0üM:LüN:1üS
:Fill(0,T):E+1üE:Eürand
:Outpt(1,18,E):Repeat M==L
:Lbl A:iPart N rand+SüX
:If T(1,X):Goto A
:1üT(1,X):Outpt(1,1,T)
:sub(Z,X,1)üQ
:If K>20:Then:Disp "":2üK:End
:Outpt(7,K,Q):Outpt(8,L+3-K,Q)
:K+1üK:M+1üM:If getKy==105
:Goto CRANWELL:End:Goto B
:

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)