:Disp "cranwell@yahoo.com"
:Lbl M:"0123456789"üS:Menu(1,"pippi",P,2,"binaar",B,4,"LAST",L,5,"NEW",N)
:Lbl P:10üC:Goto M
:Lbl B:2üC:Goto M
:Lbl N:3üL:Goto GO
:Lbl L:LNWWüL
:Lbl GO:ClLCD:4üZ:For(I,1,8):Disp "":End
:Lbl A:0üD:" "üX:If Z==2:Outpt(7,8,"+")
:Repeat DùL:Outpt(8,6+D,"?"):D+1üD:End:0üD
:Repeat DùL:iPart C rand+1üR:X+sub(S,R,1)üX:D+1üD:End
:lngth X-1üW:sub(X,2,W)üX
:Lbl REDO:5üD
:Repeat D==0:Outpt(7,8,D):D-1üD:For(I,1,3L*Z):End:End
:Outpt(8,6,X):For(I,1,3L*Z):End
:Repeat D>(W-1):Outpt(8,6+D,"?"):D+1üD:End
:InpST "Nop?=",NOP:If NOP=="+":Goto REDO
:If NOP==X:Then:Outpt(8,6,"WINNER"):Z-1üZ
:If Z<2:Then:L+1üL:4üZ:End:Else:Outpt(8,6,"LOSER")
:Outpt(6,6,X):Z+1üZ
:If Z>6:Then:L-1üL:4üZ:End:End:Disp "",""
:LüLNWW:Goto A

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

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