hilo !!!'PLAY YOUR CARDS RIGHT  Ron Ridge m=100d 236099\,100d 4:4:0: (G1;6;1;5,5;" PLAY YOUR CARDS RIGHT " -10 ,1;"Your bet will double each time you win."''" Guess wrong and you lose the whole of that bet.";20,5;"PRESS ANY KEY TO START":0: 2 810* <b$="" Ga$=" " Pdx=010 :7;1;x,1;b$;x,9 ;b$;x,17;b$;x,25;b$:x Z90;7;20,1;" You have `";m;" " d" How much do you bet `";bet nfbet>m#0;1;7;1;" You don't have that much! ":200:100d xS.05|L,1:6;1;14,1;"You bet `";bet:100d 8v=010 :7;0;v,1;a$:v 770 a=1+(4*) b=1+(13 *) '0:c$(a)=""c$(a)=""2 \.1}L,5:7;1,2;d$(b);9 ,6;d$(b):.5,1 7 d$(b)="6"d$(b)="7"d$(b)="8"d$(b)="9"d$(b)=""3,2;c$(a);3,6;c$(a);5,2;c$(a);5,6;c$(a);7,2;c$(a);7,6;c$(a) Kd$(b)="3"d$(b)="5"d$(b)="7"d$(b)="9"d$(b)="A"5,4;c$(a) rd$(b)="5"d$(b)="4"3,2;c$(a);3,6;c$(a);7,2;c$(a);7,6;c$(a) Nd$(b)="2"d$(b)="3"d$(b)="9"2,4;c$(a);8,4;c$(a) Dd$(b)="8"d$(b)=""4,4;c$(a);6,4;c$(a) :d$(b)=""2,4;c$(a);8,4;c$(a) }d$(b)="K"4,3;"";5,3;"";6,3;"";2,2;c$(a);8,6;c$(a) {d$(b)="J"4,4;"";5,3;"";6,3;"";2,2;c$(a);8,6;c$(a) d$(b)="Q"4,3;"";5,3;" ";6,3;"";7,4;"";2,2;c$(a);8,6;c$(a) 470 770 c=1+(4*) d=1+(13 *) 8v=010 :7;0;v,9 ;a$:v '0:c$(c)=""c$(c)=""2 ^.1}L,5:7;1,10 ;d$(d);9 ,14;d$(d):.5,1 d$(d)="8"d$(d)="7"d$(d)="6"d$(d)="9"d$(d)=""3,10 ;c$(c);3,14;c$(c);5,10 ;c$(c);5,14;c$(c);7,10 ;c$(c);7,14;c$(c) Ld$(d)="3"d$(d)="5"d$(d)="7"d$(d)="9"d$(d)="A"5,12 ;c$(c) vd$(d)="5"d$(d)="4"3,10 ;c$(c);3,14;c$(c);7,10 ;c$(c);7,14;c$(c) Pd$(d)="2"d$(d)="3"d$(d)="9"2,12 ;c$(c);8,12 ;c$(c) Fd$(d)="8"d$(d)=""4,12 ;c$(c);6,12 ;c$(c) <d$(d)=""2,12 ;c$(c);8,12 ;c$(c) d$(d)="K"4,11 ;"";5,11 ;"";6,11 ;"";2,10 ;c$(c);8,14;c$(c) d$(d)="J"4,12 ;"";5,11 ;"";6,11 ;"";2,10 ;c$(c);8,14;c$(c) d$(d)="Q"4,11 ;"";5,11 ;" ";6,11 ;"";7,12 ;"";2,10 ;c$(c);8,14;c$(c) &(i$="h"db)(i$="l"db)520 &(i$="h"bd)620l  470 " 770 ,e=1+(4*) 6f=1+(13 *) @9v=010 :0;7;v,17;a$:v J'0:c$(e)=""c$(e)=""2 T^.1}L,5:7;1,18;d$(f);9 ,22;d$(f):.5,1 Vd$(f)="6"d$(f)="7"d$(f)="8"d$(f)="9"d$(f)=""3,18;c$(e);3,22;c$(e);5,18;c$(e);5,22;c$(e);7,18;c$(e);7,22;c$(e) WLd$(f)="3"d$(f)="5"d$(f)="7"d$(f)="9"d$(f)="A"5,20;c$(e) Xvd$(f)="4"d$(f)="5"3,18;c$(e);3,22;c$(e);7,18;c$(e);7,22;c$(e) YPd$(f)="2"d$(f)="3"d$(f)="9"2,20;c$(e);8,20;c$(e) ZFd$(f)="8"d$(f)=""4,20;c$(e);6,20;c$(e) [<d$(f)=""2,20;c$(e);8,20;c$(e) \Rd$(f)="K"4,19;"";5,19;"";6,19;"" ]Pd$(f)="J"4,20;"";5,19;"";6,19;"" ^jd$(f)="Q"4,19;"";5,19;" ";6,19;"";7,20;"" _Pd$(f)="K"d$(f)="J"d$(f)="Q"2,18;c$(e);8,22;c$(e) c&(i$="h"df)(i$="l"df)520 h&(i$="h"df)620l r 470 | 770 g=1+(4*) h=1+(13 *) 9v=010 :0;7;v,25;a$:v '0:c$(g)=""c$(g)=""2 ^.1}L,5:7;1,26;d$(h);9 ,30;d$(h):.5,1 d$(h)="6"d$(h)="7"d$(h)="8"d$(h)="9"d$(h)=""3,26;c$(g);3,30;c$(g);5,26;c$(g);5,30;c$(g);7,26;c$(g);7,30;c$(g) Ld$(h)="3"d$(h)="5"d$(h)="7"d$(h)="9"d$(h)="A"5,28;c$(g) vd$(h)="4"d$(h)="5"3,26;c$(g);3,30;c$(g);7,26;c$(g);7,30;c$(g) Pd$(h)="2"d$(h)="3"d$(h)="9"2,28;c$(g);8,28;c$(g) Fd$(h)="8"d$(h)=""4,28;c$(g);6,28;c$(g) <d$(h)=""2,28;c$(g);8,28;c$(g) Rd$(h)="K"4,27;"";5,27;"";6,27;"" Pd$(h)="J"4,28;"";5,27;"";6,27;"" jd$(h)="Q"4,27;"";5,27;" ";6,27;"";7,28;"" Pd$(h)="K"d$(h)="J"d$(h)="Q"2,26;c$(g);8,30;c$(g) /(i$="h"fh)(i$="l"fh)m=m+bet:520 &(i$="h"fh)620l m=m+bet::580D O4;16,1;" ";14,1;" " I1;6;" NEXT- HIGHER OR LOWER (H/L) ";i$;" " i$"l"i$"h"470 !e$="higher":i$="l"e$="lower" ;0;7;14,1;" You bet on ";e$;" "  4:0 U0;16,1;"WRONG!";17,1;"You lost `";bet;" "  m=m-bet &m<0m=0 0D0;7;20,1;" You have `";m;" ":150 :m0100d::1;6;1;10 ,2;" YOU HAVE NO MONEY LEFT. ":'0;" COME BACK AGAIN":'" WHEN YOU HAVE MORE":0 D:4:4:0 Eb10 ,8;"YOU NOW HAVE `";m;13 ,1;"Would you like to carry on Y/N":0 N="y":70F XE="n":6;1;1;10 ,12 ;" GOOD-BYE " b.15,6;"HAVE FUN WITH YOUR `";m: lbet=bet*2 vd0;4;16,1;"CORRECT";17,1; "Your bet is now `";bet:502 ;0;20,1;" You have `";m+bet:100d fm+bet5002;7;1;12 ,1;" YOU NOW HAVE `";m+bet;" ":100d m+bet500:2;7;1;12 ,0;" YOU NOW HAVE `";m+bet;" AND YOU HAVE BROKEN THE BANK ! ":100d:'''''8; 0;1;" PLEASE GO HOME ":0   580D   c$=""  d$="23456789JQKA"  4":S="J""P"+7:J:S,J:S HK0,568,568,16,214,254,214,16 RK0,16,568,124|,254,124|,568,16 \M255,255,0,255,255,0,255,255 fM0,100d,254,254,124|,124|,568,16 pN16,568,124|,254,254,124|,16,124| uI255,0,255,0,0,255,0,255 zQ152,164,164,164,164,164,164,152  m4j PeP ab cdefghBA IlElowerCD 23456789JQKA