POKER1.4 - This is another fun text game, just regular Poker I guess. Requires the programs INFO1 (which requires INFO2), POKDATA1, POKDATA2, and POKDATA3 to be on the calculator also. POKER1.4 = 596 Bytes, all required files = 822 Bytes. note: a little bit of additional memory is needed to run it. PRGM1:POKER1.4 :Lbl 1 :ClrStat :Prgm# insert the program number or letter of INFO1, which you need to have on you TI-81, in place of the '#' sign. :1->P :Prgm# insert the program number or letter of POKDATA2, which you need to have on you TI-81, in place of the '#' sign. :Prgm# insert the program number or letter of POKDATA3, which you need to have on you TI-81, in place of the '#' sign. :1->V :Lbl J :Prgm# insert the program number or letter of POKDATA1, which you need to have on you TI-81, in place of the '#' sign. :Disp "0=KEEP 1=DROP =" note: the first '0' is zero, the second 'O' is the letter 'O'. :Disp V :Input {y}(V :IS>(V,5 :Goto J :Prgm# insert the program number or letter of POKDATA3, which you need to have on you TI-81, in place of the '#' sign. :Prgm# insert the program number or letter of POKDATA1, which you need to have on you TI-81, in place of the '#' sign. :1->R :Lbl R :0->V :Lbl M :V+1->V :{x}(R)/10^V->L :If L>9 :Goto M :L->{y}(R :V->{x}(R :IS>(R,5 :Goto R :xSort :{x}(1->A :{x}(1->B :{x}(1->C :{x}(1->D :{x}(1->E :4=(({y}(1)={y}(2))+({y}(3)={y}(4))+({y}(1)={y}(3))+({y}(1)={y}(5->F :If 1[not equals to sign](B=C-1)(C=D-1)(D=E-1 :Goto 2 :If 1[not equals to sign]((A=B-1)+(2=((A=1)+(E=13 :Goto 2 :Disp "STRAIT" :8->W :If F[not equals to sign]4 :Goto Z :Disp "FLUSH" :70->W :If B[less than or equal to]9 :Goto Z :Disp "ROYAL" :10^2->W :Goto Z :Lbl 2 :(A=B)+(B=C)+(C=D)+(D=E->V :If V=1 :Goto 7 :If V=2 :Goto 5 :If V[less than or equal to]3 :Goto 4 :If 1=(B=C)+(C=D :Goto 3 :50->W :Disp "4 OF A KIND" :Goto Z :Lbl 3 :Disp "FULL HOUSE" :25->W :Goto Z :Lbl 4 :If F[less than or equal to]4 :Goto 8 :Disp "FLUSH" :10->W :Goto Z :Lbl 5 :If 1[less than or equal to](A=C)+(B=D)+(C=E :Goto 6 :Disp "3 OF A KIND" :5->W :Goto Z :Lbl 6 :Disp "2 PAIR" :1->W :Goto Z :Lbl 7 :Disp "PAIR" :0->W :Goto Z :Lbl 8 :Disp "YOU LOST" :-M->M :Goto A :Lbl Z :MW->M :Lbl A :Disp M :@+M->@ :Pause :Goto 1 Prgm2:INFO1 :Lbl A :ClrHome :If @<-99 :Prgm# insert the program number or letter of INFO2, which you need to have on you TI-81, in place of the '#' sign. :Disp "MONEY=" :Disp @ :Disp "YOU BET=" :Input M :If M=0 :Stop :Int abs M->M :If M-10^2>@ :Goto A Prgm3:INFO3 :Disp "BANKRUPT" :10^3->@ :Stop PRGM4:POKDATA1 :ClrHome :Sci :1->P :Lbl P :Disp {x}(P :IS>(P,5 :Goto P :Norm PRGM5:POKDATA2 :1->Q :Lbl Q :P->{y}(Q :IS>(Q,5 :Goto Q PRGM:POKDATA3 :Lbl 1 :1->P :Lbl P :If 1={y}(P :(Int Rand4+1)10^(Int Rand13+1->{x}(P :IS>(P,5 :Goto P :1->X :Lbl X :1->Y :Lbl Y :If (X[not equals to sign]Y)+({x}(X)={x}(Y :Goto 1 :IS>(Y,5 :Goto Y :IS>(X,5 :Goto X :0->P :Prgm# insert the program number or letter of POKDATA2, which you need to have on you TI-81, in place of the '#' sign.