7Hˆ: U9€:F~>F >"ĸĸ^'~ ū Ā ôÂÉd ’ 1960 n Ÿ157, 8:· x Ĩ ‚ C1=100:Œ A1(13),P(7) Œ$ Œ A(4),D(4),B(4),V(4),C(4),B1(13) –5 ·:ą396:ƒ"P R E M I U M C O L O U R P O K E R";  + ą512:ƒ"DO YOU WANT INSTRUCTIONS ?"; Š A7$=Þ$:„ A7$="" ‰ 170 ī „ A7$="Y" ‰ ’ 1880: 200 ū „ A7$<>"N" ‰ 170 Č ˜ 210:Š Q=1 ™ 13:“ A1$(Q):‹ Q Ō_ ” "ACE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE","TEN","JACK","QUEEN","KING" Ü Š Q=0 ™ 7:“ P(Q):‹ Q æ ” 2,3,5,7,10,40,100,400 ð7 ŠQ=0™4:A(Q)=0:D(Q)=0:B(Q)=0:V(Q)=0:C(Q)=0:‹Q:Z=0:F=0 ú Ą  ·:’ 270: 340  „ M=0 ‰  M=1:O=0  ą(48):ƒ "CREDITS = "; "> ą0:ƒ"BETS ="M*O;:ą(48):ƒ"CREDITS ="ž(C1);:ą(73):ƒ"PAYOUTS"; ,s Ÿ156, 12:ą128:ƒ"TWO PAIR ="P(0)*M;:ą192:ƒ"3 / KIND ="P(1)*M;:ą256:ƒ"STRAIGHT ="P(2)*M;:ą320:ƒ"FLUSH ="P(3)*M; 6y ą144:ƒ"FULL HOUSE ="P(4)*M;:ą208:ƒ"4 / KIND ="P(5)*M;:ą272:ƒ"STR/FLUSH ="P(6)*M;:ą336:ƒ"RYL/FLUSH ="P(7)*M;:Ÿ156, 2 @ „ O=0 ‰  M=0:O=1 J • T „Z=1‰• ^ Š R=1 ™ 5:F=165 h#  R ’ 610,620,630,640,650:’ 1710 r ‹ R | Ą †% Š Q=0 ™ 4:C(Q)=0:‹ Q:S=1:Š Q=0 ™ 4  A(Q)=ž(Ė*13)+1 š D(Q)=ž(Ė*4)+1 Ī B(Q)=A(Q)+D(Q)*20 Ū Y=0 ļ „ B(Q)=C(Y) ‰ 400  Y=Y+1:„ Y=5 ‰ 460 ˆ 440 Ė C(Q)=B(Q) Ö „ S=0 ‰ 500 ā „ S=1 ‰ ‹ Q ę  520 ô  840 þ Ą  Ÿ156, 14:ą163:ƒ"PRESS";  ą233:ƒ"B TO PLACE BETS";  ą297:ƒ"D TO DRAW";:Ÿ156, 2 & A7$="":A7$=Þ$:„ A7$=""‰ 550 0, „ A7$="B"ģC1>=1‰C1=C1-1:M=M+1:’ 270:550 :U „C1<=0ģA7$="B"‰ą361:ƒ"YOU CAN'T BET ANY MORE";:ą425:ƒ"YOU'LL HAVE TO DRAW";: 550 DW „A7$="D"ģM=0‰ą361:ƒ"PLACE A BET FIRST";:ŠQ=1™1000:‹Q:U=361:ą(U):’1950ˆ„A7$="D"‰1750 N 550 X Ą b( W=451:T=514:K=525:Y=963:Z=515:H=583:• l( W=463:T=526:K=537:Y=975:Z=527:H=595:• v( W=475:T=538:K=549:Y=987:Z=539:H=607:• €( W=487:T=550:K=561:Y=999:Z=551:H=619:• Š) W=499:T=562:K=573:Y=1011:Z=563:H=631:• ” Ą žF U=233:ą(U):’1950:U=297:ą(U):’1950:U=361:ą(U):’1950:U=425:ą(U):’1950 Ļ( Ÿ156, 15:ą233:ƒ"1 - 5 TO HOLD CARDS"; ē" ą297:ƒ"C TO CANCEL HELD CARDS"; ž ą361:ƒ"D TO DRAW"; ÆA ą391:ƒ"1";:ą403:ƒ"2";:ą415:ƒ"3";:ą427:ƒ"4";:ą439:ƒ"5";:Ÿ156, 2 Ð A7$="":A7$=Þ$:„A7$=""‰720 Ú! „ A7$="1"‰ą390:ƒ"HELD";:V(0)=1 ä! „ A7$="2"‰ą402:ƒ"HELD";:V(1)=1 î! „ A7$="3"‰ą414:ƒ"HELD";:V(2)=1 ø! „ A7$="4"‰ą426:ƒ"HELD";:V(3)=1 ! „ A7$="5"‰ą438:ƒ"HELD";:V(4)=1  4 „ A7$="C"‰U=384:ą(U):’1950:ŠQ=0™4:V(Q)=0:‹Q:710  „ A7$="D"‰820   720 * Ą 4 S=0:ŠQ=0™4 > „ V(Q)=0‰C(Q)=B(Q):400 H5 „ V(Q)=0‰R=Q+1:R’610,620,630,640,650:F=165:’1720 R ‹Q \ ŠQ=0™4 f; „ V(Q)=0‰R=Q+1:R’610,620,630,640,650:F=128:’1720:’1800 p ‹Q z Ą „ Š I=1™4 Ž Š J=0™I-1 ˜% „A(J)>A(I):Q=A(I):A(I)=A(J):A(J)=Q Ē ‹J Ž ‹I ķ Ą Ā T=1:V2=0 Ę T’1010,1050,1100,1170,1210 Ô „V2=0:T=T+1:„T<>6‰970 Þ ŠQ=1™1000:‹Q:1250 č Ą ō& „A(0)=A(1)ģA(1)=A(2)ģA(2)=A(3):V2=1 ü& „A(1)=A(2)ģA(2)=A(3)ģA(3)=A(4):V2=1  •  Ą / „A(0)=A(1)ģA(1)=A(2):V2=2:„A(3)=A(4):V2=V2+1 $ „A(1)=A(2)ģA(2)=A(3):V2=2 ./ „A(2)=A(3)ģA(3)=A(4):V2=2:„A(0)=A(1):V2=V2+1 8 • B Ą L P2=0:„A(0)=A(1):P2=P2+1 V „A(1)=A(2):P2=P2+1 ` „A(2)=A(3):P2=P2+1 j „A(3)=A(4):P2=P2+1 t „P2=2:V2=4 ~ • ˆ Ą ’6 „D(0)=D(1)ģD(1)=D(2)ģD(2)=D(3)ģD(3)=D(4):V2=5:’1210 œ „V2=6:V2=8 Ķ • ° Ą š; „A(0)+1=A(1)ģA(1)+1=A(2)ģA(2)+1=A(3)ģA(3)+1=A(4):V2=V2+6 Ä& „A(0)=1ģA(1)+A(2)+A(3)+A(4)=46:V2=6 Ε Ø Ą ⠄V2=0‰1680 ė · ö3 „V2=1:E=P(5)*M:ą400:ƒ"FOUR OF A KIND. COLLECT"E; 4 „V2=2:E=P(1)*M:ą400:ƒ"THREE OF A KIND. COLLECT"E;  / „V2=3:E=P(4)*M:ą400:ƒ"FULL HOUSE. COLLECT"E; - „V2=4:E=P(0)*M:ą400:ƒ"TWO PAIR. COLLECT"E; * „V2=5:E=P(3)*M:ą400:ƒ"FLUSH. COLLECT"E; (- „V2=6:E=P(2)*M:ą400:ƒ"STRAIGHT. COLLECT"E; 20 „V2=8:E=P(7)*M:ą400:ƒ"ROYAL FLUSH. COLLECT"E; <4 „V2=11:E=P(6)*M:ą400:ƒ"STRAIGHT FLUSH. COLLECT"E; F Ą P ŠT=0™7:P(T)=P(T)*2*M:‹T Z ą464:ƒ"DOUBLE UP - PRESS D"; d& ą528:ƒ"COLLECT WINNINGS - PRESS C"; n A7$=Þ$:„A7$=""‰1390 x! „A7$="C":C1=C1+Í(E):M=0:˜:200 ‚ „A7$<>"D"‰A7$="":1390 Œ Ą –/ Z=1:·:L=M:M=1:’300:M=L:ą7:ƒ"DOUBLE PAYOUTS";   ’630:R=3:’1710 Š A(2)=ž(Ė*13)+1 ī D(2)=ž(Ė*4)+1 ū ą169:ƒ"PRESS B FOR BIG"; Č ą233:ƒ"(LARGER THAN EIGHT)"; Ō ą297:ƒ"PRESS S FOR SMALL"; Ü ą361:ƒ"(SMALLER THAN EIGHT)"; æ A7$=Þ$:„A7$=""‰1510 ð, „A7$="B":ą809:ƒ"YOUR GUESS IS BIG";:1550 ú. „A7$="S":ą809:ƒ"YOUR GUESS IS SMALL";:1560  1510  „A7$="B"ģA(2)>8‰1580  „A7$="S"ģA(2)<8‰1580 " 1620 , R=3:F=128:’630:’1720:’1800 6 ŠQ=1™1000:‹Q @i ·:E=E*2:ą400:ƒ"CONGRATULATIONS - YOU GUESSED CORRECTLY";:ą464:ƒ"COLLECT"E;" DOUBLE UP AGAIN PRESS D"; J ŠQ=0™7:P(Q)=P(Q)*2:‹Q:1380 T R=3:F=128:’630:’1720:’1800 ^ ŠT=1™1000:‹T h1 ·:ą400:ƒ"YOU GUESSED INCORRECTLY";:ŠT=1™500:‹T rW „C1<=0:·:ą390:ƒ"SORRY - YOU'VE GOT NOTHING ELSE TO PLAY WITH....";:Š Q=1™3000:‹Q:·:‘ | ŠQ=1™1000:‹Q † M=0:˜:200  „C1<=0‰1650ˆ· š  1670 Ī Ą Ū  2330 ļ •  Z=Z+64:„Z>960:• Ė 1720 Ö ŠR=1™5 ā R’610,620,630,640,650 ę F=128:’1720:’1800 ô ‹R þ 670  D(R-1)’2040,2040,2040,2040  •  B1$(R-1)=A1$(A(R-1)) & ą(Z-448):ƒB1$(R-1) 0 I=Ā(B1$(R-1)) : J=Y-54-I D ą(J):ƒB1$(R-1); N • X·:ą20:ƒ"** P O K E R **" bŽ ƒ:ƒ" THIS GAME IS VERY SIMPLE TO PLAY. YOU START WITH TEN CREDITS AND YOU BET AS MANY AS YOU LIKE ON EACH HAND. THEN YOU DRAW THE CARDS AND SELECT THE CARDS YOU WANT"; lP ƒ" TO HOLD. YOU THEN DRAW THE CARDS AGAIN AND YOU ARE TOLD IF YOU HAVE WON." v­ ƒ\" IF YOU WIN YOU HAVE THE CHOICE TO DOUBLE UP OR TO COLLECT YOUR MONEY. IF YOU DOUBLE UP, YOU ARE BETTING ON WHETHER A CARD IS BIG (GREATER THAN EIGHT) OR SMALL "; €– ƒ "(LESS THAN EIGHT). IF YOU GUESS CORRECTLY, YOU DOUBLE YOU WINNINGS. THE GAME CONTINUES UNTIL YOU RUN OUT OF CREDITS. GOOD LUCK ......." Š ƒ "PRESS ANY KEY TO START."; ” „ Þ$="" ‰ 1940 ˆ ·:• ž- N=U/64+1:N=N*64-U:ŠI=1™N-1:ƒ" ";:‹I:ą(U):• Ļ ˜ 2510:Ÿ157, 0:Ÿ156, 2:·:ŧ ē# ą 512:Š A=1 ™ 64:ƒ ß(A+192);:‹ A ž Š X=0 ™ 1007 Æ “ A Ð Ÿ 64528+X,255-A Ú ‹ X ä · î • ø! Ą DISPLAY CARD Z AT CURS X,G  X=T+2:G=1  S=D(R-1)-1  „ S<2 ‰ Ÿ157, 9 ˆ Ÿ157, 0  Ÿ156, 15 * N=Z 4 N=A(R-1) > ’ 2260 H- „ N=1 ‰ ’ 2290:’ 2290:’ 2270:’ 2290:’ 2290 R- „ N=2 ‰ ’ 2270:’ 2290:’ 2290:’ 2290:’ 2270 \- „ N=3 ‰ ’ 2270:’ 2290:’ 2270:’ 2290:’ 2270 f- „ N=4 ‰ ’ 2280:’ 2290:’ 2290:’ 2290:’ 2280 p- „ N=5 ‰ ’ 2280:’ 2290:’ 2270:’ 2290:’ 2280 z- „ N=6 ‰ ’ 2280:’ 2290:’ 2280:’ 2290:’ 2280 „- „ N=7 ‰ ’ 2280:’ 2290:’ 2280:’ 2270:’ 2280 Ž- „ N=8 ‰ ’ 2280:’ 2270:’ 2280:’ 2270:’ 2280 ˜- „ N=9 ‰ ’ 2280:’ 2270:’ 2280:’ 2280:’ 2280 Ē. „ N=10 ‰ ’ 2280:’ 2280:’ 2280:’ 2280:’ 2280 Ž „ N>10 ‰ ’ 2310:’ 2400:’ 2320 ķ ’ 2300 Ā Ÿ157, 8:Ÿ156, 2 Ę • Ô2 ą X,G:G=G+1:ƒ ß(N*2+199) ß(N*2+200) [A8 255];:• Þ; ą X,G:G=G+1:ƒ [A4 255] ß(S*2+193) ß(S*2+194) [A4 255];:• čZ ą X,G:G=G+1:ƒ [A2 255] ß(S*2+193) ß(S*2+194) [A2 255] ß(S*2+193) ß(S*2+194) [A2 255];:• ō ą X,G:G=G+1:ƒ [A10 255];:• ü2 ą X,G:G=G+1:ƒ [A8 255] ß(N*2+199) ß(N*2+200);:• ; ą X,G:G=G+1:ƒ [A2 255] ß(S*2+193) ß(S*2+194) [A6 255];:• ; ą X,G:G=G+1:ƒ [A6 255] ß(S*2+193) ß(S*2+194) [A2 255];:•  Ÿ157, 12:Ÿ156, 7 $ Š G=15 ™ 9 š -1 . X=(R-1)*12+4 8Q ą X,G:ƒ ß(227) ß(227) ß(227) ß(227) ß(227) ß(227) ß(227) ß(227) ß(227) ß(227); B ‹ G L Ÿ157, 8:Ÿ156, 2 V • ` „ N=13 ‰ ’ 2440:’ 2450:’ 2460 j! „ N=11 ‰ ’ 2470:’ 2450 :’ 2460 t „ N=12 ‰ ’ 2490:’ 2480:’ 2500 ~ • ˆD ą X,G:G=G+1:ƒ [A4 255] ß(228) ß(229) [A1 255] ß(241) [A2 255] ;:• ’O ą X,G:G=G+1:ƒ [A2 255] ß(230) ß(231) ß(232) ß(233) ß(234) ß(235) [A2 255];:• œO ą X,G:G=G+1:ƒ [A2 255] ß(236) ß(237) ß(238) ß(239) ß(237) ß(240) [A2 255];:• ĶC ą X,G:G=G+1:ƒ [A4 255] ß(243) ß(244) [A1 255] ß(242) [A2 255];:• °O ą X,G:G=G+1:ƒ [A2 255] ß(230) ß(231) ß(245) ß(246) ß(234) ß(249) [A2 255];:• šA ą X,G:G=G+1:ƒ [A3 255] ß(247) ß(228) ß(229) ß(248) [A3 255];:• ÄO ą X,G:G=G+1:ƒ [A2 255] ß(236) ß(253) ß(251) ß(252) ß(253) ß(250) [A2 255];:• Î( ” 0, 0, 1, 3, 7, 15, 31, 63, 127, 63 Ø( ” 31, 15, 7, 3, 1, 0, 0, 0, 128, 192 â6 ” 224, 240, 248, 252, 254, 252, 248, 240, 224, 192 ė- ” 128, 0, 0, 0, 0, 60, 126, 255, 255, 255 ö' ” 127, 63, 31, 15, 7, 3, 1, 0, 0, 0 3 ” 0, 60, 126, 255, 255, 255, 254, 252, 248, 240 ( ” 224, 192, 128, 0, 0, 0, 0, 1, 3, 7 - ” 15, 31, 63, 127, 127, 127, 57, 1, 3, 31 0 ” 0, 0, 0, 128, 192, 224, 240, 248, 252, 254 (. ” 254, 254, 156, 128, 192, 248, 0, 0, 0, 7 2/ ” 15, 15, 15, 7, 123, 255, 255, 255, 121, 1 <- ” 3, 31, 0, 0, 0, 224, 240, 240, 240, 224 F2 ” 222, 255, 255, 255, 158, 128, 192, 248, 0, 1 P( ” 3, 3, 7, 7, 15, 14, 30, 28, 63, 63 Z2 ” 120, 112, 112, 0, 0, 128, 192, 192, 224, 224 d0 ” 240, 112, 120, 56, 252, 252, 30, 14, 14, 0 n& ” 0, 7, 31, 60, 56, 56, 0, 0, 0, 1 x+ ” 7, 31, 62, 63, 63, 0, 0, 224, 248, 60 ‚0 ” 30, 30, 30, 60, 248, 240, 192, 128, 0, 252 Œ( ” 252, 0, 0, 7, 31, 60, 56, 0, 0, 31 –( ” 31, 0, 0, 56, 60, 31, 7, 0, 0, 224  / ” 248, 60, 28, 28, 60, 248, 248, 60, 28, 28 Š* ” 60, 248, 224, 0, 0, 3, 7, 15, 30, 60 ī* ” 120, 240, 255, 255, 0, 0, 0, 0, 0, 0 ū4 ” 0, 240, 240, 112, 112, 112, 112, 112, 254, 254 Č/ ” 112, 112, 112, 112, 112, 0, 0, 63, 63, 56 Ō) ” 56, 56, 59, 63, 60, 0, 0, 0, 56, 63 Ü+ ” 31, 0, 0, 252, 252, 0, 0, 0, 224, 248 æ+ ” 60, 28, 28, 28, 60, 248, 224, 0, 0, 3 ð, ” 15, 30, 60, 56, 59, 63, 60, 56, 56, 60 ú* ” 30, 15, 3, 0, 0, 240, 252, 62, 14, 0 / ” 240, 252, 30, 14, 14, 14, 60, 248, 224, 0 $ ” 0, 63, 63, 0, 0, 0, 0, 0, 1, 3 + ” 7, 15, 30, 60, 56, 0, 0, 254, 254, 14 ". ” 30, 60, 120, 240, 224, 192, 128, 0, 0, 0 ,- ” 0, 0, 0, 15, 63, 120, 112, 112, 120, 63 6/ ” 63, 120, 112, 112, 120, 63, 15, 0, 0, 224 @/ ” 248, 60, 28, 28, 60, 248, 248, 60, 28, 28 J+ ” 60, 248, 224, 0, 0, 7, 31, 60, 56, 56 T( ” 56, 60, 31, 7, 0, 56, 62, 31, 7, 0 ^/ ” 0, 224, 248, 28, 14, 14, 14, 30, 254, 238 h/ ” 14, 30, 60, 248, 224, 0, 0, 224, 225, 227 r6 ” 231, 231, 231, 231, 231, 231, 231, 231, 227, 225 |, ” 224, 0, 0, 112, 252, 254, 143, 7, 7, 7 †+ ” 7, 7, 7, 143, 254, 252, 112, 0, 0, 15 % ” 15, 0, 0, 0, 0, 0, 0, 0, 56, 56 š/ ” 60, 31, 15, 0, 0, 255, 255, 112, 112, 112 Ī4 ” 112, 112, 112, 112, 112, 112, 240, 224, 128, 0 Ū+ ” 0, 15, 31, 60, 56, 56, 56, 56, 56, 56 ļ, ” 56, 56, 60, 31, 15, 0, 0, 240, 248, 60 Â/ ” 28, 28, 28, 28, 28, 28, 252, 252, 63, 255 Ė2 ” 240, 0, 0, 112, 112, 113, 115, 119, 127, 126 Ö2 ” 126, 127, 119, 115, 113, 112, 112, 0, 0, 120 ā. ” 240, 224, 192, 128, 0, 0, 0, 0, 128, 192 ę0 ” 224, 240, 120, 0, 129, 129, 66, 66, 36, 36 ô. ” 24, 24, 24, 24, 36, 36, 66, 66, 129, 129 þ0 ” 0, 0, 0, 255, 132, 206, 132, 255, 192, 222 0 ” 192, 204, 204, 193, 193, 200, 0, 0, 0, 255 . ” 33, 115, 33, 255, 3, 123, 3, 51, 51, 131 & ” 131, 19, 0, 0, 0, 1, 2, 4, 8, 16 &' ” 32, 64, 128, 0, 3, 5, 9, 17, 0, 1 0$ ” 255, 1, 0, 0, 0, 0, 0, 0, 0, 0 :+ ” 0, 0, 0, 0, 247, 248, 63, 31, 143, 71 D$ ” 35, 16, 8, 4, 2, 1, 1, 1, 1, 1 N1 ” 239, 31, 252, 248, 241, 226, 196, 8, 16, 32 X3 ” 64, 128, 128, 128, 128, 128, 0, 128, 255, 128 b" ” 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 l' ” 0, 0, 9, 9, 9, 137, 73, 41, 25, 9 v. ” 9, 15, 0, 15, 193, 175, 145, 143, 33, 65 €$ ” 129, 1, 1, 1, 1, 1, 1, 1, 1, 1 Š" ” 1, 1, 1, 1, 0, 0, 0, 0, 0, 0 ”& ” 0, 0, 0, 0, 0, 255, 0, 0, 0, 255 ž" ” 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 Ļ. ” 1, 255, 4, 7, 4, 255, 128, 128, 128, 128 ē5 ” 128, 128, 128, 128, 128, 128, 128, 255, 32, 224 ž5 ” 32, 255, 129, 143, 128, 128, 128, 128, 128, 128 Æ2 ” 128, 128, 128, 128, 128, 128, 128, 128, 0, 0 Ð" ” 0, 0, 0, 6, 9, 9, 9, 9, 9, 9 Ú" ” 9, 9, 9, 9, 0, 0, 0, 0, 0, 0 ä" ” 0, 0, 0, 0, 0, 0, 0, 0, 0, 6 î) ” 0, 0, 0, 0, 0, 7, 63, 255, 192, 222 ø. ” 192, 204, 204, 193, 193, 200, 0, 0, 0, 0 . ” 0, 224, 252, 255, 3, 123, 3, 51, 51, 131 . ” 131, 19, 231, 208, 8, 4, 131, 64, 32, 16 & ” 8, 4, 2, 1, 5, 1, 11, 1, 231, 11 + ” 16, 32, 193, 2, 4, 8, 16, 32, 64, 128 ** ” 160, 128, 208, 128, 0, 0, 0, 0, 0, 0 4$ ” 0, 1, 1, 3, 3, 7, 7, 7, 23, 31 >( ” 0, 0, 0, 0, 0, 0, 0, 128, 128, 192 H0 ” 192, 224, 224, 224, 232, 248, 0, 0, 0, 128 R) ” 64, 32, 16, 8, 4, 2, 1, 0, 192, 160 \6 ” 144, 136, 132, 130, 129, 128, 128, 128, 128, 128 f2 ” 128, 128, 128, 128, 128, 128, 128, 128, 5, 1 p% ” 11, 1, 5, 1, 11, 1, 5, 1, 11, 1 z1 ” 5, 1, 11, 255, 160, 128, 208, 128, 160, 128 „6 ” 208, 128, 160, 128, 208, 128, 160, 128, 208, 255 Ž" ” 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ˜$ ” 0, 0, 0, 0, 0, 255, 0, 0, 0, 0 Ē" ” 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Ž" ” 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ķ" ” 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ĸĸ€ĸFĀ~Ą~›~•~~†~~y~q~i~b~\~U~Mĸ (dĸ