BLACKJACK F " r:0:6,6;"PARE EL MAGNETOFON":30:#1;" PARA JUGAR EN EL GRAN CASINO":70F: (:6:1:1 2x5,6;" ":6,6;" B L A C K J A C K ":7,6;" ----------------- " 7 150 < 0 d&7:7:0:0: nb$="N23456789TAJQK" xa=0:m=100d 8000@ p(4) m=0:10 ,1;"Su caja esta a 0 $";19,1;"Lo siento pero se le ";20,1;"ha terminado su credito.";21,1;"Si quiere mas vuelva a jugar": ^:10 ,1;" Su caja esta con ";m;" $":12 ,1;" Cuanto quiere apostar?" b  b>m160 m=m-b O0;0,0;"SUS CARTAS";11 ,0;"CARTAS DE SPECTRUM" 99 ,1;"Total = ";20,1;"Total =" i=21-1 500 i i=12 a=p(i)=11 gi=11;2;7;"Quiere otra carta? ";a$:a$=a$+" ":a$(1)="n"340T " 500 ,%p(i)>21i=2:340T 6!p(i+2)=5340T @$i=2p(i)>16340T J 280 Ti ^\p(1)21p(3)=5(p(2)21p(4)2)380| hp(1)=21p(3)=2(p(2)21p(4)2)b=b*1.5@:1;5,18;"BLACKJACK":380| rL(p(2)21p(2)p(1))p(1)>21b=0 |m=m+2*b  130 #p(i+2)=p(i+2)+1 c=(13 *)+2 c=11 a=a+1 0p(i)=p(i)+c*(c<12 )+10 *(c>11 ) $p(i)<22a=0570: & a=a-1 0p(i)=p(i)-10 : 85004! D 9000(# N+0;11 *i-2,9 ;p(i) X @H0,78N,209,81Q,81Q,81Q,78N,0 JN102f,255,255,255,126~,60<,24,24 TM24,60<,126~,255,255,126~,60<,24 ^M24,60<,126~,255,255,219,24,60< hM60<,60<,219,231,231,219,24,24 r 8000@ |!k="e""e"+39':x:k,x:k  !46p=11 *i-7:q=6*p(i+2)-5 !>o5:p-3,q;"":k=15:p-3+k,q;" ":k:p+3,q;"":0 !H[suit=1+(4*):2*(suit<3):p-2,q+3;(148+suit) !R #(x="a" #2$k=031:x+k,0:k #<1s=8*b$(c)+15360<:b$(c)="T"s="e" #F5j=07:v=(s+j):c=0:d=256 #PFk=81-1:d=d/2:vdc=c+3*d*d:v=v-d #Zk #d#h=(c/256):L=c-256*h #n,x,h:x+1,h:x+8,L:x+9 ,L #x!x=x+2+8*(j=3) #-p,q+2;"";p+1,q+2;"" #j # # $T"BLACKJACK"1 amZ|xbcpq uis>F#vdhlBN23456789TAJQKAn