7&1/2 cw L'N'R$$$~$$~$>(> >bd&F(*DD:  *>*>> F< 0 >>  00<22<000A]Q]A>..... 2[>2[>2[!X"[ *[:[G:[w#:[G:[ w*[:[G:[ w:[G:[w#w*[! "[![55#55&:[o ͵:[8>2[>2[!X"[ > 2[*[:[G:[w#:[G:[ w*[:[G:[ w:[G:[w#w>2[*[! "[![55#55*[:[G:[w#:[G:[ w*[:[G:[ w:[G:[w#w!d͵!jY+6 #00000000000000000000000000000000 x >. B!@6#{ !@6#{ !X6#{ ................... !W>͍`( >>ͺ`( > !W>!͍`ͺ`A w!(<`#w!(<` A Rw!(<`+w!+| .......... 23658j\,0:pr=(23635S\+256*23636T\)-23755\:l=23522[+pr:236077\,(l/256):236066\,l-256*236077\:1:7:1: e(23743\+pr),83S:10 ,0;:100d:Q=13:(PR+24557_):Q: 00:7:0:(PR+24681i`):  111o d10 ,0;"||||||||||||||||||||||||||||||||||| PARA EL CASSETTE |||||||||||||||||||||||||||||||||||" n oINICIO DE LA PRESENTACION x" LOAD'N'RUN 85 Presenta ... "''" SIETE Y MEDIO "'"Un programa con el cual podras practicar en tu casa y con el ZX SPECTRUM el universal juego de cartas." yd'" Por si no conoces las reglas de este juego, te las describi- mos someramente a continuacion." zo21,0;" PULSA UNA TECLA PARA CONTINUAR ":0:0:7:0:(PR+24681i`): {.'" Se trata de llegar a obtener una puntuacion de 7.5 con las cartas. Las figuras(excepto el rey de diamantes, que es el comodin) valen medio punto. Las demas cartas valen exactamente su valor. Si la puntuacion que obtengas supera el valor de 7.5 entonces te 'pasas' perdiendo el juego." |'" En caso de 'plantarte' antes deobtener la puntuacion de 7.5 vencera quien tenga un valor mas cercano a siete y medio. En caso de empate ganara siemprela banca." }o21,0;" PULSA UNA TECLA PARA CONTINUAR ":0:0:7:0:(PR+24681i`): ~V''''" Las teclas utilizadas seran explicadas durante el desarrollode la partida." '''" BUENA SUERTE!" o21,0;" PULSA UNA TECLA PARA CONTINUAR ":0:6:1:6:(PR+24681i`):  һ10 ,0;"||||||||||||||||||||||||||||||||| CONECTA EL CASSETTE |||||||||||||||||||||||||||||||||":n=02:(PR+24557_):n  \(PR+24681i`):0:7:0::236077\,60<:236066\,0: +7:2 ,13,3;"LOAD'N'RUN 85 Presenta :" -5:1 6!9 ,10 ;" " @"10 ,10 ;" S I E T E " J"11 ,10 ;" Y " T"12 ,10 ;" M E D I O " ^"13 ,10 ;" " h0:0 r20,0;"!"; |P19,2;7;"Tiempo de carga:";1;5;"1.2 min." "" l[W7&1/2 666 (:2:2:7::2 2,6;"####################";6;"# #";6;"# SIETE Y MEDIO #";6;"# #";6;"# LOAD'N'RUN 85 #";6;"####################"  4 (4:4:0 2X=10000':K=10000' < FL0,16,568,124|,254,254,214,16 PK0,16,568,124|,254,124|,568,16 ZN 0,108l,254,254,124|,124|,568,16 d#a=07:b:"p"+a,b:a n#a=07:b:"q"+a,b:a x#a=07:b:"c"+a,b:a #a=07:b:"f"+a,b:a K0,568,568,16,214,254,214,16 t=0:c=0 Q255,128,128,128,128,128,128,128 C0,0,0,0,0,0,0,255 C255,0,0,0,0,0,0,0 Q128,128,128,128,128,128,128,255 C255,1,1,1,1,1,1,1 1,1,1,1,1,1,1,255,128,128,128,128,128,128,128,128,1,1,1,1,1,1,1,1 #a=07:b:"i"+a,b:a #a=07:b:"e"+a,b:a #a=07:b:"a"+a,b:a #a=07:b:"s"+a,b:a #a=07:b:"r"+a,b:a #a=07:b:"d"+a,b:a #a=07:b:"t"+a,b:a "#a=07:b:"g"+a,b:a , 320@ 6 @]q$=17+7+"":w$=17+7+"":e$=17+7+" " Jc0,1,2,3,6,7,8,9 ,4,5,10 ,11 Tc0,1,2,3,6,7,8,9 ,4,5,10 ,11 ^S0,1,2,3,6,7,8,9 ,10 ,11 hc0,1,6,2,3,7,8,9 ,4,5,10 ,11 rc6,7,8,9 ,10 ,11 ,0,1,2,3,4,5 |c6,7,8,9 ,10 ,11 ,0,1,2,3,4,5 c0,1,2,3,6,7,8,9 ,4,5,10 ,11 c0,1,2,3,6,7,8,9 ,4,5,10 ,11 c0,1,2,3,6,7,8,9 ,4,5,10 ,11 c0,1,2,3,6,7,8,9 ,4,5,10 ,11 c0,1,2,3,6,7,8,9 ,11 ,10 ,4,5 c0,1,2,3,6,7,8,9 ,11 ,4,5,10  bi=0 mezcla cartas ֭2:2:6:10 ,4;1;" ";11 ,4;" Espera, estoy mezclando";12 ,4;" " 16,0;"n.b. el comodin es el rey de diamantes":"* el ordenador no ve tu primera carta.":"* si haces 7 1/2 con dos cartas tu haces de banca." 1m(40():n=40(:i=1n:m(i)=i:i  :.2~L,5 Fi=n2-1:j=(*i)+1:t=m(i):m(i)=m(j):m(j)=t:i *a$(46.,4):a=140( Am(a)10 m(a)>30a$(a)(2)=16+0 &Am(a)>10 m(a)30a$(a)(2)=16+2 0a$(a)(3)=m(a) ::.001wn,2 D.m(a)>10 a$(a)(3)=a$(a)(4) NLm(a)=1m(a)=11 m(a)=21m(a)=31a$(a)(3)="A" XLm(a)=8m(a)=18m(a)=28m(a)=38&a$(a)(3)="F" b:.001wn,1 lLm(a)=9 m(a)=19m(a)=29m(a)=39'a$(a)(3)="D" vMm(a)=10 m(a)=20m(a)=30m(a)=40(a$(a)(3)="R" #m(a)<11 a$(a)(4)="" 1m(a)<21m(a)>10 a$(a)(4)="" :.001wn,12 1m(a)<31m(a)>20a$(a)(4)="" 1m(a)40(m(a)>30a$(a)(4)="" a :4:4: Epe=0:ps=0:m=0:ma=0:r=0:G=1 cy=0: ya=0:ss=0:bs=0:gb=0:cb=0:cu=0:cg=0:pk=0:st=0:pc=0:mc=1:ps=0:pu=1:so=0:sb=0:i=1:ab=0:f=0:pb=0:pt=0:pg=0:h=1:e=0: 60:"SPECTRUM ` ";K;0,20;"TU ` ";X >1,0;2;""  3,e;1;q$:4,e;1;e$:5,e;1;e$:6,e;1;e$:7,e;1;e$:8,e;1;e$:9 ,e;1;w$:.2~L,20 bi=11680 13 ,f;q$:14,f;e$:15,f;e$:16,f;e$:17,f;e$:18,f;e$:19,f;w$:f=f+3:.2~L,6  14,h;7;a$(g)  950  cy=cy+1 *%pg=7.5pcy=2cg=1 4)cu=cu+1:h=h+3:g=g+1 >bi=1850R H#g=41)r=1:1500 R%pg=7.5pcu=2cg=1 \bi=12080  fpg=7.5p12 ,18;1;"SIETE Y MEDIO":.01z# =,10 :.01z# =,20:.01z# =,30:m=0:st=1:ps=0:1160 pJpg>7.5psb=1:pg=0::m=0:ps=0:1160 zpu=11090B  pc=pg-pk 521,0;"QUIERES OTRA CARTA s/n":0 ="s"770 B="n"m=0:ma=0:pe=0:ps=0:1160  910  #a$(g)(3)="A"pt=pt+1 $a$(g)(3)="2" pt=pt+2 #a$(g)(3)="3"pt=pt+3 #a$(g)(3)="4"pt=pt+4 #a$(g)(3)="5"pt=pt+5 #a$(g)(3)="6"pt=pt+6 #a$(g)(3)="7"pt=pt+7 Ja$(g)(3)="F"a$(g)(3)="D"a$(g)(3)="R"pt=pt+.5  ps=ps+pt =a$(g)(3)="R"a$(g)(4)=""r=1:m=1 $m=11380d .$ab=1pb=pb+pt:pt=0: 8pg=pt+pg:pt=0: B Lpk=pg:pu=0 V11 ,0;"CUANTO JUEGAS";1;"`":11 ,17;1;so:12 ,0;"(1=100 2=200 ecc..)":0 `M="1"so=100d:.1}L,36$:11 ,17;1;"100": eM="2"so=200:.1}L,36$:11 ,17;1;"200": jM="3"so=300,:.1}L,36$:11 ,17;1;"300": oM="4"so=400:.1}L,36$:11 ,17;1;"400": tM="5"so=500:.1}L,36$:11 ,17;1;"500": ~ 1110V   ab=1 3,e;q$:4,e;e$:5,e;e$:6,e;e$:7,e;e$:8,e;e$:9 ,e;w$:e=e+3:.2~L,26 4,i;7;a$(g)  950 )cb=cb+1:i=i+3:g=g+1 %pb=7.5pcb=1gb=1 #g=41)r=1:1500  30 bi=11970 usb=12,10 ;"TE PASAS GANO YO":.01z# =,7:.01z# =,21:x=x-so:k=k+so:1500 {pb=7.5p2,10 ;"TENGO 7.5 . GANO YO":.01z# =,21:.01z# =,14:x=x-so:k=k+so:1500 {pb>7.5p2,10 ;"ME HE PASADO, GANAS":.01z# =,31:.01z# =,11 :x=x+so:k=k-so:1500  st=11180 pbpc1180 pb>pc13302 ( 1180 20pb=7pb=6.5Ppb=61440 <pb41180 Fy=(*2) P3pb4.5pb5.50:y=11440 Z d nips=1ps=2ps=3ps=4ps=5ps=6ps=7ps=7.5ppt=7.5p x-ps>7.5ppt=ps:sb=1:1420 sps=0ps=0.5ps=1.5@ps=2.5 ps=3.5`ps=4.5ps=5.50ps=6.5Ppt=7 !ab=1pb=pt:pt=0: pg=pt:pt=0:  :11 ,0;1;" SEVIDO.":.02{# =,3 >12 ,0;" ":502 qpb=pg2,10 ;1;"IGUALES, TE GANO":.01z# =,35#:k=k+so:x=x-so:120x:1500 npbpg2,10 ;1;"SUPERO, TE HE GANADO":.01z# =,25:k=k+so:x=x-so:1500 xk0:12 ,0;"BUEN GOLPE, HAS GANADO !.":20,0;"HACEMOS OTRA PARTIDA? S/N.":1570" X0:12 ,0;" LO SIENTO, LO HAS PERDIDO TODO."::" NO HAS PENSADO EN CAMBIARTE DE JUEGO ? ":20,0;"QUIERES LA REVANCHA ? S/N":1570" ;gb=1cg=0gb=0:cg=0:2410j bi=11550 ;cg=1gb=0cg=0:gb=0:1620T 5r=1120x:2:2::460 120x::720 " 0 , ="s" 6 ="n" @ 1570" J Tcambia juego ^:4:4:12 ,0;"HAS HECHO ";1;"SIETE Y MEDIO";0;" CON DOS"::"CARTAS !QUIERES EL MAZO ? (s/n)":0 h+="n"cg=0:gb=0:1500 r!="s"bi=1::1670 |=" "1630^  460 2i=i+3:e=e+3:ab=1:cu=1 13 ,f;1;q$:14,f;1;e$:15,f;1;e$:16,f;1;e$:17,f;1;e$:18,f;1;e$:19,f;1;w$:.2~L,6  950 "cu=1x$=a$(g):cu=0  g=g+1 2,5;"JUEGO ` " pb=71800 pb=51880X pb=61900l pb=.51850:  pb=121860D  pb=341870N Gr=12,17;1;"500":ss=500:1920 Yax=(*2):ax=12,17;1;"100":ss=100d:1920 Tax=02,17;1;"500":ya=1:ss=500:1930 & 1800 0<2,17;1;"100":ss=100d:1920 :<2,17;1;"500":ss=500:1920 D<2,17;1;"200":ss=200:1920 NYbx=(*2):bx=12,17;1;"200":ss=200:1920 XYcx=(*5):cx=42,17;1;"300":ss=300,:1920 bH2,17;1;"400":ya=1:ss=400:1930 lH2,17;1;"500":ya=1:ss=500:1930 v 1740 :2,17;1;" CARTA ":1940 i2,17;1;" ME PLANTO";" ":m=0:ps=0:ab=0:40(:770 B21,0;1;"Para dar carta pulsa ( C )":0 7="c"2,17;" ESPERA ":1160  1940 pb2.5 1920 Jpb=3pb=3.5`w=(*3):w=0w=21920 Mpb=4pb=4.5wi=(*3):wi=0wi=21920 5pb=5we=(*3):we=21920 7pb=5.50wa=(*5):wa=21920 pb=61930 pb=6.5P1930 pb=71930 ~pb=7.5p3,12 ;1;"SIETE Y MEDIO":ab=0:2260:40(:ps=0:m=0:770  {pb7.55q2,21;1;" pasado ":ab=0:ps=0:bs=1:m=0:40(:770  1930  bs=111 ,1;1;"ME PASO, GANA LA BANCA":2260:2,11 :20:k=k-ss:x=x+ss:2220 * 2230 4:20,0;1;" Carta para ti?(n=no) " >B21,0;1;"Para dar carta pulsa ( C )":0 H 2230 R="c"ab=0:770 \="n"2160p f 21004 pF21,0;" ";1;"ESTA BIEN":30 z 2260 R10 ,0;"YO TENGO ";1;pb;0;" *** TU TIENES ";1;pg pg>7.5p11 ,12 ;"TU ";1;"TE PASAS ";0;1;"GANO YO":k=k+ss:x=x-ss:.73333,23:2260:30:2220 gpb>pg11 ,24;1;"GANO YO":k=k+ss:x=x-ss:.5,31:40(:2220 hpbpg11 ,24;1;"TU GANAS":k=k-ss:x=x+ss:.6,24:30:2220  1500 Tpg=7.5p21,0;1;" SIETE Y MEDIO ":2170z pg7.55q:2190   ya=12370B !3,0;7;"" !4,0;7;" " !5,0;7;" " !6,0;7;" " !7,0;7;" " !8,0;7;" " $!9 ,0;7;"" .4,1;7;x$ 8 B Le=e-3:3,e;q$:4,e;e$:5,e;e$:6,e;e$:7,e;e$:8,e;e$:9 ,e;w$:e=e+3:.2~L,26 V4,1;7;x$ ` j:12 ,0;"HE HECHO ";1;"SIETE Y MEDIO";0;" CON DOS "::"CARTAS : TOMO EL MAZO":100d:BI=0::460 #( a