5000 4000" 1100- 12008( 1300A-""L2 2000W7 3000m9:H$"NOTHING"<H$"NOTHING""";H$;"**A WINNER THIS ROUND": 6000F 2500P1300Z3000_ H$"NOTHING" " YOU LOSE ".` H$"NOTHING" 6200sa H$"NOTHING"" A WINNER ": 6000b H$"NOTHING" " WITH A ";H$: 6000c H$"NOTHING" 7000d" PRESS ANY KEY TO CONTINUE",i CR0 " NO MORE CREDIT *** GAME OVER":140jk CR499 " YOU BROKE THE BANK*CONGRAGULATIONS":140}nE$:E$""110x20" HIT ANY KEY TO EXIT TO BASIC"E$:E$""145"":*********INITIALIZE CARDS****** CC$(54): C$(54):C1$(54)! I1 54. CC$(I)6 I}"2","3","4","5","6","7","8","9","10","J","Q","K","A""2","3","4","5","6","7","8","9","10","J","Q","K","A" $"2","3","4","5","6","7","8","9","10","J","Q","K","A"R."2","3","4","5","6","7","8","9","10","J","Q","K","A"c8"JR*","JR*"iBL ******SHUFFLE DECK***********V""` BT3 QQ53e BT4 QQ52j I1 QQ :C1$(I)CC$(I):It I1 15RR((1)QQ)1 C1$(RR)"*" 11558C$(I)C1$(RR):C1$(RR)"*"@ IFk**********DEAL FIVE CARDS******y I1 5P$(I)C$(I) I**********BREAK DOWN CARDS***** I1 5S$(I)(P$(I),1)(N$(I)(P$(I),1)< N$(I)"1" N$(I)"10":N(I)10:1400VA N$(I)"J" S$(I)"*" N$(I)"JR":N(I)0: 1400vF N$(I)"A" N(I)14:1400P N$(I)"K" N(I)13:1400Z N$(I)"Q" N(I)12:1400d N$(I)"J" N(I)11:1400nN(I)(N$(I))48x S$(I)"" S(I)1 S$(I)"" S(I)26 S$(I)"" S(I)3O S$(I)"" S(I)4h S$(I)"*" S(I)0p Iv***********PRINT CARDS*********I3943: VI,11:I: V21,255 I1 5""""T)""T)" " T)" "'T)" "9 T)" "K*T)" "]/T)""0 S$(I)""S$(I)"" V38I,21 S$(I)"" S$(I)"" V38I,02 S$(I)"*" V38I,04""::T2);"";N$(I);HT4);"";S$(I) R"":"";"\T1);"";S$(I);7fT2);"";N$(I)ATT8SZZ1 Z:ZZ[ I"":" ";"CREDITS=";CR;26) "BET=";BT;""T0 ***********DELETE CARDS********; "":"";"PRESS ONE(1) TO FIVE(5) TO DELETE CARD ":NN10:VV1g ::"PRESS  * FOR DEAL OR TO STAND" :"PRESS  \ TO CANCEL DELETION" Q$ Q$(42) 2735 Q$(92) "": 1200 Q$(92) 2000 Q$(92) 2510 Q$"1" DC0: 27000 Q$"2" DC1: 2700K Q$"3" DC2: 2700f( Q$"4" DC3: 27002 Q$"5" DC4: 2700< 2540 "":NCDC1: V38NC,11 I1 7 DC8)"" I P$(NC)C$(NN):NN NN 1:L(VV)NC1:VVVV1 2540" VV1 2862- 1300> I1 VV1L DCL(I)8U ""h DC)""{ DC)" " DC)" " DC)" " DC)" " DC)" " DC)"" S$(L(I)1)"" S$(L(I)1)"" V38(L(I)1),0L S$(L(I)1)"" S$(L(I)1)"" V38(L(I)1),2u S$(L(I)1)"*" V38(L(I)1),2 "": DC2)"";N$(L(I)1);:DC4) "";S$(L(I)1) ::" DC1)"";S$(L(I)1);:D2);"";N$(L(I)1)' Z1200:Z, I. ""1 :::::P6 ::" "~@ " "E " "J " "O " "6T " "dY " "^ " "_ " "` " " a " "J b " "_ h ""e r *********EVALUATE HAND********* 1300 JJ0:SC0:AC0:H$"":H1$"":H2$"" I15 N(I)0 JJJJ1 I I1 5! J1 5! N(I)N(J) SCSC1$! J,! I SC7 H$"THREE OF A KIND":6# I1 4D# JI 5[# N(I)N(J) 3540f# 3590}# TVN(I): SVS(I)# N(I)N(J): S(I)S(J)# N(J)TV: S(J)SV# J# I#8LN4JJ#B I1 LN$G ((N(I)(N(I1)))1)0 GPGP3: 3670#$LGPGP((N(I)(N(I1)))1)+$V IN$` JJ0 GP0 H1$"STRAIGHT"q$j JJ1 GP2 H1$"STRAIGHT"$t JJ2 GP3 H1$"STRAIGHT"$yFG0:GP0$~ I 1 LN$ S(I) S(I1) FGFG1$I$ FGLN H2$"FLUSH"*% H1$"STRAIGHT" H2$"FLUSH" H$"STRAIGHT**FLUSH"d% H$"STRAIGHT**FLUSH" N(1)14 H$"ROYAL**FLUSH":% H$"STRAIGHT**FLUSH" N(5)0 N(4)9 H$"ROYAL**FLUSH":% H$"STRAIGHT**FLUSH" % H1$"STRAIGHT" H$"STRAIGHT":H1$"": & H2$"FLUSH" H$"FLUSH":H2$"":<& JJ0 H$"NOTHING":E&AC0i& JJ2 H$"THREE OF A KIND":& N(1)14 JJ1 H$"PAIR":&H$"NOTHING"&&*****BET ROUTINE****************&HHHH1&BT0& V21,0&"": 4300'""7'" PLACE YOUR BETS "h': " PRESS SPACE BAR TO INCREASE BET"':" PRESS  * TO PLAY "'""'" "'5) "CREDITS=";CR;" ";'26)"BET=";BT(h Q$ (mQ$(32)CR04200K(r Q$(32) 54296,15:54296,0: 4240s(w Q$(42) BT0 Q$(32): 6200(| Q$(42) 4265( 4200( CR0 4070(CRCR1:BTBT1( 4070 )"":/)*******PRINT HAND VALUE********A)""b)" PAYOFFS":)" FIVE OF A KIND...............500:1")" ROYAL FLUSH..................100:1")" STRAIGHT FLUSH................50:1"*" FOUR OF A KIND................30:1">*" FULL HOUSE....................20:1"j*" FLUSH.........................15:1"*" STRAIGHT......................10:1"*&" THREE OF A KIND................3:1"*0" TWO PAIRS......................2:1"+:" PAIR OF ACES...................1:1" +ND+****INTRODUCTION/SETUP*******"Q+ W$(20)d+U1: Y1 :ZZ0{+ 65305,0:65301,4+""+""+""+" WELCOME TO JOKER POKER",CR25, 1000, 92007, I1 20: W$(I): IL, I1 100 : Ia,""," YOU COULD BE A REALLY BIG WINNER TODAY"," PRESS  * TO BEGIN"," PRESS ESC FOR INSTRUCTIONS", M1 300,Q$:Q$" "5080-M - Q$#- Q$(42) ZZ200:9- Q$(27) 5510Y- "A","K","Q","J","10"y- "A","A","A","A","JR*"- "A","A","A","K","K"- "7","7","JR*","JR*","7"-P IU U4-nP$(Y)W$(I)-xYY1- I-Y1:UU5 . U19 U1. 1300!. 20001. M1 2509.Q$L.Q$"" 5080S.Ma. I0 4s."": V21,0. J1 7.I38V,0: I8)"". J. I.| 5060."**************INSTRUCTIONS**************"(/" "W/" FIVE CARD DRAW POKER "/" "/" ACE HIGH****DEUCE LOW "/" "0" DECK WILL HAVE ONE JOKER IF BET IS "A0" FOUR CREDITS OR MORE. "p0" "0" LOWEST WINNING HAND IS A PAIR OF ACES "0" "0" FIVE HUNDRED CREDITS BREAK THEN BANK "E1" HIT ANY KEY TO BEGIN PLAY "[1 E$: E$""5610a11p ******WINNING TUNE************1zV1(1)34:V2(1)192:D(1)751V1(2)41:V2(2) 83:D(2)1251V1(3)34:V2(3)192:D(3)552V1(4)36:V2(4)208:D(4)70#2V1(5)41:V2(5) 83:D(5)200I2SO54272: ISO SO24: I,0: I|2 SO24,15: SO2,255: SO3,0:SO5,9:SO6,02 I1 52 SO1,V1(I): SO,V2(I): SO4,652 J1 D(I): J2 SO4,642 I238 ******LOOSING SOUND***********A3B 54296,15: 54277,45: 54278,165: 54276,33: 54273,6^3L 54272,5: I1 200:I3V 54276,32: 54273,0:54272,03`3X *******WIN SUBROUTINE*********3YWHWH13b H$"PAIR" WOBT3l H$"TWO PAIRS" WOBT24v H$"THREE OF A KIND" WOBT324 H$"STRAIGHT" WOBT10N4 H$"FLUSH" WOBT15o4 H$"FULL HOUSE" WOBT204 H$"FOUR OF A KIND" WOBT304 H$"FIVE OF A KIND" WOBT5004 H$"STRAIGHT**FLUSH" WOBT505 H$"ROYAL**FLUSH" WOBT100(5:" WINNINGS=";WO:5CRCRWO:WO0\5"";5" CREDITS= ";:"";CR;5""55'#5#V53248: V23,255 :V29,255: 53275,255 6# II39 43: VII,11:IIA6$ 4088,13 :4089,13 :4090,13 :4091,13 :4092,13V6$ V0,16:V1,64k6$ V2,80:V3,646"$ V4,144: V5,646,$ V6,208: V7,6466$ V16,16: V8,16:V9,646@$ II819881:II,255: II6J$ II8198813:II,0 :II6T$