:Disp "cranwell@yahoo.com"
:Disp "SPACES O.K."
:Lbl B:Disp "PHRASE=?":InpST "AB?",S:ClLCD:" "üU
:If S=="GET":HANGET
:lngth SüL:{1,L}üdim T:Fill(0,T)
:For(I,1,5):Disp "":End:Disp "LETTER?":" "üN:Goto GO
:Lbl A:InpST N:If N=="401":Fill(1,T)
:Lbl GO:0üD:4üK:0üZ:Disp ""
:Repeat D==L:D+1üD:If N==sub(S,D,1):1üT(1,D)
:If T(1,D):Then:Z+1üZ:Outpt(7,K,sub(S,D,1))
:Else:Outpt(7,K,"-"):End:K+1üK
:If K>21:Then:Disp "":1üK:End:End:U+NüU
:Outpt(1,1,U+"   ")
:If Z==L:Then:Disp "":Outpt(7,1,lngth U-2)
:Outpt(7,4,"GUESSES"):End
:If Z==L:Goto B:Goto A
:

    Source: geocities.com/xulfrepus/ti85

               ( geocities.com/xulfrepus)