**TI86** Ò ÂBlakjackÂÀFnOff:ClDrw:AxesOff:ZDecmÖFloat:GridOn:200»ÖText(23,37,"L A C K J A C K"ÖText(43,45,"Written by Dan Jack"ÖLbl A:13¼:23ÃÖFor(Æ,24,34ÖText(Ã,Æ,"|"ÖText(¼,Æ,"|"ÖText(Ã+10,Æ,"|"ÖIf Æ29:ThenÖText(¼+10,Æ,"|"Ö¼+1¼:Ã-1Ã:EndÖIf getKy0ÖGoto B:EndÖFor(Æ,33,9,1ÖText(Æ,20,"L":EndÖText(8,20," "ÖGoto AÖLbl B:ClLCDÖ0¼:5.8Æ:0Ç:0¾:0À:3ÊÖIf »0:Goto MÖDisp "You have: $"ÖOutpt(1,12,»ÖInput "Your bet- $",½ÖIf ½>»:ThenÖDisp "You can't bet that","much. Try again.":Pause :Goto B:EndÖIf ½<0:ThenÖDisp "Hey, you cheater!","Positive bets only.":»-50»:Pause :Goto B:EndÖ»-½»:ClDrw:ClLCDÖLbl CÖrandInt(2,14)ÃÖIf Ã<10:Then:Ã+ÇÇ:ElseÖIf Ã==14:Then:"A"ÃÖÇ+11Ç:¼+1¼:Else:ÃÅ:Ç+10ÇÖIf Å==11:"J"ÃÖIf Å==12:"Q"ÃÖIf Å==13:"K"ÃÖEnd:End:¾+1¾ÖIf Ç>21 and ¼1:ThenÖ¼-1¼:Ç-10Ç:EndÖLine(Æ,Ê,Æ+1.6,ÊÖLine(Æ,Ê-2,Æ+1.6,Ê-2ÖLine(Æ,Ê,Æ,Ê-2ÖLine(Æ+1.6,Ê,Æ+1.6,Ê-2ÖText(28,49,ÇÖIf À0:Goto FÖText(7,10Æ+69,ÃÖÆ+2ÆÖText(28,15,"You have:"ÖIf ¾<2:Goto CÖIf Ç>21:Goto KÖIf ¾==5:Goto JÖIf ¾==2 and Ç==21:Goto JÖMenu(1,"Hit",C,2,"Stay",D,5,"Quit",NÖLbl D:5.8Æ:0¾:0¼:ÇÀ:0Ç:1ÊÖGoto CÖLbl FÖText(47,10Æ+69,ÃÖÆ+2ÆÖText(28,10,"Dealer has:"ÖIf ¾<2:Goto CÖIf Ç>21:Goto LÖIf randInt(14,16)>Ç:Goto CÖǾ:ÀÇ:¾ÀÖPause :ClLCDÖDisp "You had:","Dealer had:"ÖOutpt(1,10,ÇÖOutpt(2,13,ÀÖIf Ç>À:ThenÖLbl GÖDisp "You win!"Ö2½+»»ÖGoto I:EndÖIf À>Ç:ThenÖLbl HÖDisp "You lose!"ÖIf »0:Goto M:Goto I:EndÖDisp "You and dealer tied."Ö½+»»ÖLbl IÖDisp "Do you want to try","again?"ÖMenu(1,"Yes",B,2,"No",OÖLbl J:PauseÖDisp "Congratulations! You"ÖIf ¾==5:ThenÖDisp "got a 5 card charlie!"Ö5½+»»:ElseÖDisp "got Black Jack!"Ö3½+»»:End:Goto IÖLbl K:Pause ÖDisp "You busted!":Goto HÖLbl L:Pause ÖDisp "Dealer busted-":Goto GÖLbl MÖDisp "You have no money-","get out of my casino!"ÖGoto PÖLbl N:½+»»ÖLbl O:ClLCDÖDisp "Game over","Your score- $"ÖOutpt(2,14,»ÖDisp "Thanks for playing!"ÖLbl PÖGridOff:ClDrw:ZPrev:Disp " "ÖDelVar(»:DelVar(¾:DelVar(Ç:DelVar(À:DelVar(½:DelVar(Ã:DelVar(¼:DelVar(Æ:DelVar(Å:DelVar(ÊßÃ