: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 :