DF? 6aD:\8@:MMgZyWqMS> P P PM*3qvT~3-T~O~*0w***3v>6>>>>>kk"">""" >" " $>> <"" <"">""""""""LRL$""":fv$(0($vB$$B<@<B<B<0" #  <@TQ22jv=~\\\]6sQ~R~]T~T~T~\m X![!@P!!  W K SR P H0:0:9 ::23658j\,8:B=0:C=1  N="A""R"+7:A:N,A:N &C(524):N=C524:C(N)=N:N (A(13 ,13 ,2) 24N=C10 :M=CN:A(N,M,C),A(N,M,2):M:N CPAM21)TF=CCP21CP21))770 :"(C)ARTA O (T)E PLANTAS? ";D$:D$"C"D$"T"711 D$="T"2500 D$=B700 D$(C)"D"TF=C:905 BET=BET+AM:CP=CP-AM .7;21,B;"TIENES ";CP; " FICHAS"  Z=C(CC) $5500|:6000p:7000X  X=X+6 S(C)>212000 cX=31S(C)<222;21,B;" HAS HECHO JUEGO DE 5 CARTAS! ":FF=C:2500  700 =CP=B21,B;"HAS PERDIDO TODO !":0:2002  2010 ):10 ,7;"QUIERES MAS (S/N)"  A$  A$="S"  A$="N" A$=""2002 KCP100021,B;"FELICIDADES! HAS DESBANCADO AL ORDENADOR!!": #C;"PULSA `S' PARA OTRA MANO" "S"2030 PF=CDPF=C5000  :90Z 30 DPF=B:AF=B:X=C:Y=10 J=C2 Z=O(J):5500| VA>10 VA=10 K=C2:W(K)=W(K)+VA:K 1VA=CAF=BW(2)=W(2)+10 :AF=C X=X+6:J W(2)=212;7;14,18;" VEINTIUNO! ";15,17;" GANA LA BANCA ":DPF=C:20000 N (PF=C2720 2 75K FJW(C)>21C;7;21,B;" LA BANCA PIERDE! ";:2740 K&W(2)>21W(2)=W(C) P!W(2)<162800 ZFF=C2800 d"PR=(W(2)-8)/13 nPR<2800 &W(2)>21W(2)=W(C) iW(2)=2120,B;" LA BANCA PAGA SOLO VEINTIUNA O EL JUEGO DE CINCO CARTAS":2000 72;21,B;" LA BANCA JUEGA ";W(2)+C; &S(2)>21S(2)=S(C) 8W(2)S(2)2;" Y GANA ":2000 72;"-TU GANAS! ":CP=CP+BET*2:2000 Z=C(CC):5500| VA>10 VA=10 K=C2:W(K)=W(K)+VA:K 1VA=CAF=BW(2)=W(2)+10 :AF=C ]W(1)<22X=252;7;21,B;" CINCO CARTAS! ":2000 7000X X=X+6:26102 ":10 ,10 ;"BARAJANDO" N=C100d X=(*524)+C Y=(*524)+C Z=C(X):C(X)=C(Y):C(Y)=Z N : |)N=YY+8:7;N,X;" ":N ST=((Z-C)/13 ) CH=144+ST VA=Z-(13 *ST) ST<22 AC=147+VA N7;Y,X;AC;Y,X+4;AC;Y+8,X;AC;Y+8,X+4;AC BN=CVA:A(VA,N,C)B7;Y+A(VA,N,C),X+A(VA,N,2);CH N  9   pVA>10 VA=10 z(S(C)=S(C)+VA:S(2)=S(2)+VA 1VA=CAF=BS(2)=S(2)+10 :AF=C \S(C)>21C;7;20,B;" ";9 ;"HAS FALLADO! ";31;" ":DPF=B: 20,B;" ";31;" " v7;B;20,B;"TU PUNTUACION ES ";S(C);:S(2)S(C)S(2)<227;B;" O ";S(2)  dN=10 18 nO7;1;N,X;161;161;161;161;161 xN  XCC=CC+C:CC=535CC=C b #(!0,546,127,127,127,62>,28,8,0,8,28,62>,127,62>,28,8,8,28,62>,127,127,62>,8,28,8,28,28,107k,127,107k,8,28 #20,8,20,34",34",62>,34",34",0,28,34",2,4,24,32 ,62> #<0,28,34",2,12 ,2,34",28,0,4,12 ,20,36$,62>,4,14 #F0,62>,32 ,32 ,60<,2,34",28,0,28,34",32 ,60<,34",34",28 #P0,62>,34",2,4,8,16,16,0,28,34",34",28,34",34",28 #Z0,28,34",34",30,2,34",28,0,76L,82R,82R,82R,82R,82R,76L #d0,14,4,4,4,4,36$,24,0,28,34",34",34",58:,102f,30,0,118v,36$,40(,480,40(,36$,118v #nK129,66B,36$,24,24,36$,66B,129 #4,2 #!2,2,6,2 #12,2,4,2,6,2 #A1,1,1,3,7,1,7,3 #Q1,1,1,3,4,2,7,1,7,3 #a1,1,1,3,4,1,4,3,7,1,7,3 #q1,1,1,3,2,2,4,1,4,3,7,1,7,3 #ҁ1,1,1,3,2,2,4,1,4,3,6,2,7,1,7,3 #ܑ1,1,1,3,3,1,3,3,4,2,5,1,5,3,7,1,7,3 #1,1,1,3,2,2,3,1,3,3,5,1,5,3,6,2,7,1,7,3 bc 2a4  !"#$%&'()*+,-./01234 |r2 10 S (S/N)"  UIERES MAS (S/N)" i˗c