:Disp "cranwell@yahoo.com"
:6üR
:Lbl CRANWELL
:"A234567890JQK"üC
:"$%å#"üS
:For(I,1,6)
:Disp "":End
:{1,56}üdim T
:{1,5}üdim U
:Lbl L:Fill(0,T):0üH
:0üH:1üJ
:Lbl P:3üK:H+1üH
:"~SHUFFLE~"üÊ
:If H==5:Then:7üW
:Disp "":1üA
:For(I,1,20)
:Outpt(7,W,Ê)
:For(ZZ,1,13):End
:úAüA:W+AüW:End
:If getKy:Stop
:Goto L:End
:Disp "",""
:For(I,1,5):4I-3üG
:Outpt(6,G,"|***|")
:Outpt(7,G,"+---+")
:End
:Fill(0,U):0üZ
:Lbl Q:6üR:Z+1üZ
:If Zù6:Then
:If Z>(L+5):Goto P
:Lbl M:0üK:"***"üÊ
:Menu(1,Ê,A,2,Ê,B,3,Ê,C,4,Ê,D,5,Ê,E)
:Lbl E:K+1üK
:Lbl D:K+1üK
:Lbl C:K+1üK
:Lbl B:K+1üK
:Lbl A:K+1üK
:If U(1,K)ø0:Goto M
:1üU(1,K):K*4-1üK
:End
:Lbl ZZ
:iPart 52rand+4üD
:If T(1,D)ø0
:Goto ZZ
:DüT(1,D)
:D/4üJ
:Outpt(R,K-1," "+sub(C,iPart J,1))
:If iPart J==10
:Outpt(R,K-2," 1")
:Outpt(R,K+1,sub(S,4(fPart J)+1,1))
:K+4üK
:If Z==5:Then:0üL
:Menu(1,"TAKE",P,2,"1",X,3,"2",T,4,"3",O,5,"4",J)
:Lbl J:L+1üL
:Lbl O:L+1üL
:Lbl T:L+1üL
:Lbl X:L+1üL:End
:Goto Q
:

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

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