\START82\ \COMMENT=Program file dated 04/10/96, 18:39 \NAME=TWENTY1 :0\->\H :0\->\I :Lbl 9 :ClrHome :Disp "DEALING..." :ClrList \L1\ :ClrList \L2\ :52\->\dim \L1\ :seq(int (A/4)(int (A/4)<10)+10(int (A/4)\>=\10),A,4,55,1)\->\\L2\ :\L2\\->\\L3\ :1\->\C :Lbl 1 :iPart rand(dim \L2\)+1\->\D :\L2\(D)\->\\L1\(C) :\L2\(53-C)\->\\L2\(D) :dim \L2\-1\->\dim \L2\ :IS>(C,52) :Goto 1 :FnOff :AxesOff :ZoomSto :ZStandard :ZInteger :1\->\A :Lbl 2 :0\->\B :0\->\C :ClrDraw :Vertical 0 :Text(0,1,"DEALER") :Text(0,49,"PLAYER") :B+\L1\(A)\->\B :B\->\D :\L1\(A)\->\K :Text(7,1,"?") :If \L1\(A)=1 :11\->\D :A+1\->\A :If A=53 :Then :Disp :\L3\\->\\L2\ :1\->\L :Lbl A :iPart rand(dim \L2\)+1\->\M :\L2\(M)\->\\L1\(L) :0\->\\L2\(M) :SortD(\L2\) :dim \L2\-1\->\dim \L2\ :IS>(L,52) :Goto A :1\->\A :DispGraph :End :B+\L1\(A)\->\B :D+\L1\(A)\->\D :Text(14,1,\L1\(A)) :If \L1\(A)=1 and B=D :B+10\->\D :A+1\->\A :If A=53 :Then :Disp :\L3\\->\\L2\ :1\->\L :Lbl B :iPart rand(dim \L2\)+1\->\M :\L2\(M)\->\\L1\(L) :0\->\\L2\(M) :SortD(\L2\) :dim \L2\-1\->\dim \L2\ :IS>(L,52) :Goto B :1\->\A :DispGraph :End :C+\L1\(A)\->\C :C\->\E :Text(7,49,\L1\(A)) :If \L1\(A)=1 :11\->\E :A+1\->\A :If A=53 :Then :Disp :\L3\\->\\L2\ :1\->\L :Lbl C :iPart rand(dim \L2\)+1\->\M :\L2\(M)\->\\L1\(L) :0\->\\L2\(M) :SortD(\L2\) :dim \L2\-1\->\dim \L2\ :IS>(L,52) :Goto C :1\->\A :DispGraph :End :C+\L1\(A)\->\C :E+\L1\(A)\->\E :Text(14,49,\L1\(A)) :If \L1\(A)=1 and C=E :C+10\->\E :A+1\->\A :If A=53 :Then :Disp :\L3\\->\\L2\ :1\->\L :Lbl D :iPart rand(dim \L2\)+1\->\M :\L2\(M)\->\\L1\(L) :0\->\\L2\(M) :SortD(\L2\) :dim \L2\-1\->\dim \L2\ :IS>(L,52) :Goto D :1\->\A :DispGraph :End :If D=21 or E=21 :Goto 7 :14\->\G :Lbl 3 :If G=35 :Then :Text(50,49,"5-CARDS") :Text(57,49,"YOU WIN!" :1+I\->\I :Goto 8 :End :Text(50,49,E,"- HIT?") :Text(57,49,"1=YES") :getKey :Lbl 4 :getKey\->\F :If F=0 :Goto 4 :If F=92 :Then :G+7\->\G :C+\L1\(A)\->\C :E+\L1\(A)\->\E :Text(G,49,\L1\(A)) :If C\<>\E and C>11 :C\->\E :If \L1\(A)=1 and E\<=\11 :C+10\->\E :A+1\->\A :If A=53 :Then :Disp :\L3\\->\\L2\ :1\->\L :Lbl E :iPart rand(dim \L2\)+1\->\M :\L2\(M)\->\\L1\(L) :0\->\\L2\(M) :SortD(\L2\) :dim \L2\-1\->\dim \L2\ :IS>(L,52) :Goto E :1\->\A :DispGraph :End :If E<21 :Goto 3 :If E=21 :Goto 7 :Text(50,49,E,"- OVER 21 ") :Text(57,49,"YOU LOSE!" :H+1\->\H :Goto 8 :End :14\->\G :49\->\J :Lbl 5 :Text(50,J," ") :Text(57,J," ") :IS>(J,94) :Goto 5 :Lbl 6 :If G=35 :Then :Text(50,1,"5-CARDS," :Text(57,1,"WINNER" :H+1\->\H :Goto 8 :End :If D\G :B+\L1\(A)\->\B :D+\L1\(A)\->\D :Text(G,1,\L1\(A)) :If B\<>\D and B>11 :B\->\D :If \L1\(A)=1 and D\<=\11 :B+10\->\D :A+1\->\A :If A=53 :Then :Disp :\L3\\->\\L2\ :1\->\L :Lbl F :iPart rand(dim \L2\)+1\->\M :\L2\(M)\->\\L1\(L) :0\->\\L2\(M) :SortD(\L2\) :dim \L2\-1\->\dim \L2\ :IS>(L,52) :Goto F :1\->\A :DispGraph :End :If D<21 :Goto 6 :End :Lbl 7 :Text(50,1,"-----",D,"-----") :Text(50,49,"-----",E,"-----" :If D\>=\E and D\<=\21 :Then :1\->\J :H+1\->\H :Else :49\->\J :I+1\->\I :End :Text(57,J,"WINNER") :Lbl 8 :Text(7,1,K) :Pause :Menu("PLAY","AGAIN",2,"AGAIN- SHUFFLE",9,"QUIT",0) :Lbl 0 :ZoomRcl :AxesOn :ClrDraw :ClrList \L1\ :ClrList \L2\ :ClrList \L3\ :ClrHome :Disp "DEALER WON:",H,"YOU WON:",I :Stop :COPYRIGHT STEPHEN OSTERMILLER 1996 \STOP82\