**TI85** Group file dated 03/18/99, 17:29ogram fil³@BJ@>4M1 2ynD50 3BnìnD0 4A9oàB7n2ya4M1`4B1 4B1n2y 4M1oØ4A9PD1oßoD1 4A9oD2 À6LST1nD2 À6LST2oëD4/D16/-Money:oëD5/D16/-$oëD5/D17/2yoé-Your bet: $oÝ2x/D1/D666oØ3BRD50oD50 3BoØ3BQD5oD5 3BoØ3BR2yo2y 3BoëD1/D12/3BoØ3BPD5nëD1/D13/- oLD1/-more/4D1/D2/-less/4D2/D5/-start/4B4oàD1o3B`D5 3BnáB5oàD2o3BaD5 3BoàB5nÞoàB4nìoëD1/D18/-Bet:oëD2/D18/-$oëD2/D19/3BoëD4/D16/-Money:oëD5/D16/-$oëD5/D17/2yoÝ2x/D1/D2o¥ApD13`D1 6LST12xnÞoÝ2x/D1/D2o¥ApD13`D1 6LST22xnÞoëD1/D1/-TI-85:oëD6/D1/-You:oÝ3M/D1/D2oëD2/3MJ/6LST13MoØ6LST13MPD1oëD2/3MJ/-A oØ6LST13MSD10náD3oØ6LST13MPD11oëD2/3MJ/-J oØ6LST13MPD12oëD2/3MJ/-Q oØ6LST13MPD13oëD2/3MJ/-K oD10 6LST13MoàD3oëD2/D1/-??oÞoÝ3M/D1/D2oëD7/3MJ/6LST23MoØ6LST23MPD1oëD7/3MJ/-A oØ6LST23MSD10náèD4oØ6LST23MPD11oëD7/3MJ/-J oØ6LST23MPD12oëD7/3MJ/-Q oØ6LST23MPD13oëD7/3MJ/-K oD10 6LST23MoàD4oÞoÁ6LST1 2rnÁ6LST2 2toàB3oLD1/-hit/4C1/D2/-stand/4C2oàC1oD1`À6LST2 À6LST2o¥ApD13`D1 3KoD3pÀ6LST2aD2 3MoëD7/3M/3KoØ3KPD1oëD7/3M/-A oØ3KSD10náåD5oØ3KPD11oëD7/3M/-J oØ3KPD12oëD7/3M/-Q oØ3KPD13oëD7/3M/-K oD10 3KoàD5o3K 6LST2À6LST2n2t`3K 2toØ2tTD22oÙoëD2/D1/6LST1D1nëD6/D6/2toëD4/D1/-YOU LOSEo2ya3B 2ynáB7nÞoáB3oàC2oØ2rRD16oá³B6oD1`À6LST1 À6LST1o¥ApD13`D1 3KoD3pÀ6LST1aD2 3MoëD2/3M/3KoØ3KPD1oëD2/3M/-A oØ3KSD10ná2D6oØ3KPD11oëD2/3M/-J oØ3KPD12oëD2/3M/-Q oØ3KPD13oëD2/3M/-K oD10 3KoàD6o3K 6LST1À6LST1n2r`3K 2roØ2rTD22oÙoëD2/D1/6LST1D1nëD1/D8/2roëD4/D1/-YOU WINo2y`3B 2ynáB7nÞoágC2oàB6oØ2rSD11oÙoÝ2x/D1/À6LST1oØ6LST12xPD1oÙo2r`D10 2rnáD7oÞnÞnÞoàD7oØ2tSD11oÙoÝ2x/D1/À6LST2oØ6LST22xPD1oÙo2t`D10 2tnáQD8oÞnÞnÞoàD8oëD1/D8/2roëD6/D6/2toØ2tQ2roÙoëD2/D1/6LST1D1oëD4/D1/-YOU LOSEo2ya3B 2ynáB7nÞoØ2tR2roÙoëD2/D1/6LST1D1oëD4/D1/-YOU WINo2y`3B 2ynáB7nÞoØ2tP2roÙoëD2/D1/6LST1D1oëD4/D1/-PUSHoáB7nÞ casinoÿìoÝ2x/D1/D4oëD1/2x/-CasinooëD1/D16a2x/-v 1.1oØ2xRD1nÙoëD1/2xaD1/- oëD1/D21a2x/- oÞoÝ2y/D1/D50nÞnÞoëD2/D7/-c. 1999oëD3/D3/-By Andy SchechteroëD7/D1/-Money: $oëD7/D9/4M1oØ4M1PD0oëD5/D1/-YOU ARE BANKRUPT!!!oàB7oLD1/-games/4B6/D2/-stats/4B8/D5/-exit/4A5/D4/-new/4B4oàB6oØ4M1PD0náB4oLD1/-b/j/4A1/D2/-poker/4A2/D3/-slots/4A3/D5/-back/4B7/D4/-roul/4A4oàA1o4BJn4bn`D1 4bnnáHB6oàA2o7POKERn4pn`D1 4pnnáB6oàA3o7SLOTSn4sn`D1 4snnáHB6oàA4n:ROULETTEn4rn`D1 4rnnáB6oàB4oìoé-Start anew?oLD1/-yes/4B1/D2/-no/4B2oàB2nìnáB7oàB1oD100 4M1nD0 4S1nD0 4P1nD0 4B1nD0 4bnnD0 4snnD0 4pnnD0 4R1nD0 4rnoìnáB7oàB8oìoëD3/D1/-b/j $oëD4/D1/-poker $oëD5/D1/-slots $oëD6/D1/-roul. $oëD2/D7/-Games: Won:oëD3/D9/4bnnëD4/D9/4pnnëD5/D9/4snnëD6/D9/4rnoëD3/D17/4B1nëD4/D17/4P1nëD5/D17/4S1nëD6/D17/4R1oëD1/D1/-Money: $oëD1/D9/4M1oáB7oàA5 M1 ü § POKER§ ¥ ClLCD:5dimL LST1:Lbl A3Ö0Á:0t:0r:0exp:0M:0A9:0B9Öint (rand*51+1)LST1(1)ÖFor(x,2,5)ÖLbl A1Öint (rand*51+1)KÖFor(y,1,5)ÖIf K==LST1(y):Goto A1:EndÖKLST1(x):EndÖFor(x,1,5)Ömod(LST1(x),13)+2LST2(x):(LST1(x)-LST2(x)+2)/13+1y:10^(y-1)xStat(x)ÖOutpt(6,4x-2,LST2(x))ÖIf LST2(x)==14ÖOutpt(6,4x-2,"A "ÖIf LST2(x)==11ÖOutpt(6,4x-2,"J "ÖIf LST2(x)==12ÖOutpt(6,4x-2,"Q "ÖIf LST2(x)==13ÖOutpt(6,4x-2,"K "ÖIf y==1ÖOutpt(7,4x-2,"h"ÖIf y==2ÖOutpt(7,4x-2,"c"ÖIf y==3ÖOutpt(7,4x-2,"s"ÖIf y==4ÖOutpt(7,4x-2,"d"ÖEnd:Lbl B3ÖInput "# of new cards:",xÖIf x>5ÖGoto B3ÖIf x==0ÖGoto B2ÖFor(y,1,5)Ölog xStat(y)+1KÖOutpt(6,4y-2,LST2(y))ÖIf LST2(y)==14ÖOutpt(6,4y-2,"A "ÖIf LST2(y)==11ÖOutpt(6,4y-2,"J "ÖIf LST2(y)==12ÖOutpt(6,4y-2,"Q "ÖIf LST2(y)==13ÖOutpt(6,4y-2,"K "ÖIf K==1ÖOutpt(7,4y-2,"h"ÖIf K==2ÖOutpt(7,4y-2,"c"ÖIf K==3ÖOutpt(7,4y-2,"s"ÖIf K==4ÖOutpt(7,4y-2,"d"ÖEndÖLbl A4:If A9==x:Goto A5ÖMenu(1,"new",E1,2,"new",E2,3,"new",E3,4,"new",E4,5,"new",E5)ÖLbl E1:1+A9A9:1MAT1(1,A9):Goto A4ÖLbl E2:1+A9A9:2MAT1(1,A9):Goto A4ÖLbl E3:1+A9A9:3MAT1(1,A9):Goto A4ÖLbl E4:1+A9A9:4MAT1(1,A9):Goto A4ÖLbl E5:1+A9A9:5MAT1(1,A9):Goto A4ÖLbl A5ÖFor(B,1,x)ÖLbl A2Öint (rand*51+1)KÖFor(M,1,dimL LST1)ÖIf K==LST1(M)ÖGoto A2:EndÖMAT1(1,B)GÖKLST1(G)Ömod(LST1(G),13)+2LST2(G):(LST1(G)-LST2(G)+2)/13+1y:10^(y-1)xStat(G)ÖEndÖClLCDÖFor(G,1,5)ÖOutpt(6,4G-2,LST2(G)ÖIf LST2(G)==11ÖOutpt(6,4G-2,"J "ÖIf LST2(G)==12ÖOutpt(6,4G-2,"Q "ÖIf LST2(G)==13ÖOutpt(6,4G-2,"K "ÖIf LST2(G)==14ÖOutpt(6,4G-2,"A "Ölog xStat(G)+1yÖIf y==1ÖOutpt(7,4G-2,"h"ÖIf y==2ÖOutpt(7,4G-2,"c"ÖIf y==3ÖOutpt(7,4G-2,"s"ÖIf y==4ÖOutpt(7,4G-2,"d"ÖEnd:Lbl B2ÖsortA LST2LST2Öseq(x,x,LST2(1),LST2(1)+4,1)yStatÖFor(x,1,5)ÖIf LST2(x)==yStat(x)Ö1+tt:EndÖIf t==5ÖThenÖIf min(xStat)==max(xStat)ÖThenÖIf LST2(1)==10ÖThenÖ"ROYAL FLUSH"eqn:100G:Goto B1:EndÖ"STRAIGHT FLUSH"eqn:80G:Goto B1:EndÖ"STRAIGHT"eqn:30G:Goto B1:EndÖIf min(xStat)==max(xStat)ÖThenÖ"FLUSH"eqn:40G:Goto B1:EndÖLST2/LST2(1)yStatÖFor(x,1,4)ÖIf yStat(x)==1Ö1+rr:EndÖIf r==4ÖThenÖ"4 OF A KIND"eqn:60G:Goto B1:EndÖLST2/LST2(5)yStatÖFor(x,2,5)ÖIf yStat(x)==1Ö1+expexp:EndÖIf exp==4ÖThenÖ"4 OF A KIND"eqn:60G:Goto B1:EndÖIf LST2(3)==LST2(5)ÖThenÖIf LST2(1)==LST2(2)ÖThenÖ"FULL HOUSE"eqn:50G:Goto B1:EndÖ"3 OF A KIND"eqn:20G:Goto B1:EndÖIf LST2(1)==LST2(3)ÖThenÖIf LST2(4)==LST2(5)ÖThenÖ"FULL HOUSE"eqn:50G:Goto B1:EndÖ"3 OF A KIND"eqn:20G:Goto B1:EndÖLST2/LST2(3)yStatÖFor(x,2,4)ÖIf yStat(x)==1Ö1+B9B9:EndÖIf B9==3ÖThenÖ"3 OF A KIND"eqn:20G:Goto B1:EndÖFor(x,2,5)ÖIf LST2(x)==LST2(x-1)ÖÁ+1Á:EndÖIf Á==2ÖThenÖ"TWO PAIR"eqn:10G:Goto B1:EndÖIf Á==1ÖThenÖ"ONE PAIR"eqn:5G:Goto B1:EndÖ"NOTHING"eqn:10GÖLbl B1ÖOutpt(5,1,eqn)ÖM1+GM1:P1+GP1ÖOutpt(1,16,"Money:"ÖOutpt(2,16,"$"ÖOutpt(2,17,M1) ÉROULETTEÉÇìnD5 À6LST1n4M1 3Goé-Bet on:oLD1/-1 #/4A1/D2/-group/4A2/D3/-color/4A3oàA1oæ-Number (1 for 00):/2xoØ2xRD36náA1oØ2xQ¡D1náA1oáÉB1oàA2oLD1/-1-18/4C1/D2/-19-36/4C2/D3/-1-12/4C3/D4/-13-24/4C4/D5/-25-36/4C5oàC1nD37 2xnáÉB1oàC2nD38 2xnáÉB1oàC3nD39 2xnáÉB1oàC4nD40 2xnáÉB1oàC5nD41 2xnáÉB1oàA3oLD1/-red/4D1/D3/-black/4D2/D5/-green/4D3oàD1nD42 2xnáÉB1oàD2nD43 2xnáÉB1oàD3nD44 2xoàB1o¥ApD38aD1 3Ko3K 6LST1D1oØ3KSD0oÙoD0 6LST1D2nD44 6LST1D4n-green 2eqnoá B2nÞoØ3KSD36nD38 6LST1D2oØ3KSD18nD37 6LST1D2oØ3KSD36nD41 6LST1D3oØ3KSD24nD40 6LST1D3oØ3KSD12nD39 6LST1D3oØ3K/D2PD0oÙoD42 6LST1D4n-red 2eqnnÞoØ3K/D2PD1oÙoD43 6LST1D4n-black 2eqnnÞoàB2oìoëD2/D4/-Ball lands on:oëD4/D8/3KoØ3KP¡D1nëD4/D8/-00oëD4/D11/2eqnoÝ2y/D1/D4oØ2xP6LST12ynáŒB3oÞnàB3oØ2yPD1oÙo4M1`D100 4M1n4R1`D100 4R1nÞoØ2yPD2oÙo4M1`D10 4M1n4R1`D10 4R1nÞoØ2yPD3oÙo4M1`D20 4M1n4R1`D20 4R1nÞoØ2yPD4oÙo4M1`D10 4M1n4R1`D10 4R1oØ3KSD0oÙo4M1`D40 4M1n4R1`D40 4R1nÞnÞoØ2yPD5oÙo4M1aD10 4M1n4R1aD10 4R1nÞoëD6/D1/-Change: $oëD6/D10/4M1a3GoëD7/D1/-Money: $oëD7/D9/4M1oß ¬SLOTS¬ªìnD3 À6LST1oÝ2x/D1/D3o¥ApD5`D1 3KoØ3KPD1oëD3/D22x`D6/-$oØ3KPD2oëD3/D22x`D6/-@oØ3KPD3oëD3/D22x`D6/-ÊoØ3KPD4oëD3/D22x`D6/-¹oØ3KPD5oëD3/D22x`D6/-Æo3K 6LST12xoÝ2y/D1/D75oÞnÞoÃ6LST1 6LST2oØ6LST2D1P6LST2D3oÙoØ6LST2D1PD1oÙoD50 3Gn-JACKPOT 2eqnnáMA1nÞoD25 3Gn-GREAT! 2eqnnáMA1nÞoØ6LST2D1P6LST2D2oá’A2oØ6LST2D2P6LST2D3oÙnàA2oØ6LST2D2PD1oÙoD15 3Gn-GOOD 2eqnnáMA1nÞoD5 3Gn-NOT BAD 2eqnnáMA1nÞoÝ2y/D1/D3oØ6LST22yPD1oÙo¡D5 3Gn-COULD BE WORSE 2eqnnáMA1nÞnÞo¡D10 3Gn-TRY AGAIN 2eqnoàA1oëD5/D5/2eqno4M1`3G 4M1n4S1`3G 4S1oëD6/D16/-Money:oëD7/D16/-$oëD7/D17/4M1oßïŒ