\3>_? 6^M:\ |<<@><|><  B8<8h@B@BBB(  B DD TBB><>  8  8p888 88p88 8p88888p88 8p888p88 8p888p88 88p8p88 88p8 8p88888p8  8p888 88p88   $A@$BDD@ N???00?00? B><|PARE LA CINTA # # <@a ۄ\\\E]\:]\b!X![!@P!!d K SR Pv0:1:y=176:xs=2:ys=xs:d$="PARE LA CINTA":7:0:1:100d:80P &x=(256-xs*8*d$)/2 a=23306 [:a,x:a+1,y:a+2,xs:a+3,ys:cs=(8d$"st")+(6d$="st"):a+4,cs:a=a+4:b=1̱d$:a+b,d$(b):b:a+b,255:64869e: SOLITARIO 5 COLUMNAS * * * (*  Jolu Morgon * 2* * <* Junio '84 * F* P3ha=0:r(x )=x-((x/10 )*10 ) Z4:4: d665503,0:65500=1160 nBxs=2:ys=2:y=0:d$="MANDOS":0:7 xRx=0:xs=1:y=24:d$="1-5: Columna a mover o recibir.":8 <y=480:d$="M: Lleva carta del mazo al pozo.":8 :y=74J:d$="P: Mover desde el Pozo a ....":8 y=98b:d$="A: Pozo-solucion del solitario.":8:y=114r:x=32 :d$="Iniciar con cualquier As, y":8:d$="superponer resto de la ba-":y=130:8:y=146:d$="raja sin distincion de palo.":8 65500,1 BARAJAR Y7:xs=2:ys=3:y=168:d$="BARAJANDO":1:7:0 :x(40():f(40() n=140( 0a=(*40()+1:a41)240 x(a)=1240 f(n)=a x(a)=1 n "ha=0:fin=0:w=40(:c(11 ,4):n=14:c(1,n)=1:n:d(26):d(1)=25:e(10 ):e(1)=9 :a$="":b$="" ,!x(40():x(1)=1 qPRESENTACION MESA r\:x=16:y=0:xs=1:ys=2:d$="1 2 3 4 5":0:8 |"h=2:v=9 :2000 Vv=-3:z=12:v=v+4:1000:c(2,z)=f(w+1):z 4v=10 :h=3:1000:c3=f(w+1) ah=2:v=10 :z=34:v=v+4:1000:c(2,z)=f(w+1):z [v=25:h=6:1000:x(2)=f(w+1):x(1)=x(1)+1 $v=25:h=16:2000 Txs=1:ys=2:x=208:y=32 :d$="P":8:0:8 y=112p:d$="M":8 x=88X:d$="A":8 u=0:u1=u:u2=u:u3=u  CONTADORES Y PULSACION X7:1:xs=1:ys=3:x=232:u=x(1)-1472 Qu=x(1)-1:y=568:d$=(uu>9 )+("0"+uu9 ):8 u1=d(1)474 Qy=136:u1=d(1):d$=(u1u110 )+("0"+u1u1<10 ):8 u2=e(1)476 ru2=e(1):y=80P:x=72H:ys=2:xs=2:d$="^"+(u2u2>0)+("0"u20):8 u3=fin478 kx=72H:xs=2:ys=xs:y=176:u3=fin:d$=(finfin>9 )+("0"+finfin9 ):8 *4:ir=0:23560\,0 c$="" c$=:c$=""480 .25~,35# #23560\=109m978 #23560\=112p900 c$<"1"c$>"5"478 PULSACION COL 1 2 3 4 5 &xs=1:ys=2:y=0:x=(16c$="1")+(480c$="2")+(4*8*c$-8c$>"2"):d$=c$:1:0:8:0 023560\,0 5e$="" :e$=:e$=""570: <.25~,35# ?e$="3"5600 De$=c$5600 N+8:23560\=97a700 Xe$<"1"e$>"5"478 ]9l=(e$e$<"3")+(-1+e$e$>"3"):c$="3"612d bSk=(c$c$<"3")+(-1+c$c$>"3"):mm=r(c(c(1,k)+1,k)):616h d$mm=r(c3):mm=0mm=-1 e-c(1,l)=0mm=-1650 h;pp=r(c(c(1,l)+1,l)):pp=0pp=10 i,mm=9 c(1,l)=0478 jmm+1pp478 kc$="3"650 lknn=(1k=1)+(5k=2)+(k*4+2k>2):c(1,k)=1625q mmm=0e$"a"478 oc=c(c(1,k),k):h=2*c(1,k)-2:v=(1c$="1")+(5c$="2")+(4*c$-2c$>"3"):1005:ir=1 p 630v q:n=26:n,nn;4;" ":n:ir=1 vc=c(c(1,k)+1,k):h=2*c(1,l)+2:v=(1e$="1")+(5e$="2")+(4*e$-2e$>"3"):1005 oc(1,k)=c(1,k)-1:ll=c(c(1,k)+2,k):c(c(1,k)+2,k)=0:660 ll=c3:8204  470 Lc(1,l)=c(1,l)+1:c(c(1,l)+1,l)=ll:478 DE COLUMNA A "A" c$="3"800  Gk=(c$c$<"3")+(-1+c$c$>"3"):c(1,k)=0478 ;mm=r(c(c(1,k)+1,k)):mm=0mm=10 !65503=0750 "pp=r(ha):pp=0750 pp+1mm478  760 ,65503,1:mm1478 jha=c(c(1,k)+1,k):ir=1:620l:c(1,k)=c(1,k)-1:c=ha:1003  470  PULSACION COL 3 %c$="0" *$pp=r(c3):pp=0pp=10 ,c3=0478 .!65503=1840H 2,65503,1:pp1478 4e(1)<0826: 8n=36:n,10 ;(3e(1)>0)+(4e(1)0);7;(""e(1)>0)+(" "e(1)0);4;" ":n:4;7,10 ;" ":c$="3"829= :c=c3:1003 < 830> =c=c3:h=2*c(1,l)+2:v=(1e$="1")+(5e$="2")+(4*e$-2e$>"3"):1005:c(1,l)=c(1,l)+1:c(c(1,l)+1,l)=c3 >h=2:v=9 :e(1)=e(1)-1:4:n=26:n,9 ;" ":n:e(1)0835C B 2000 Cc$="0"e$="a"ha=c3 D e(1)=-1470 F>h=3:v=10 :1000:c3=f(w+1):c$="3" G 470 H$mm=r(ha):mm=0mm=10 R#mm=10 pp=18204 \mm+1=pp8204 f 478 p=b=37:b,10 ;4;" ":b:826: PULSACION POZO fxs=1:ys=2:x=208:y=32 :1:0:8:d$="P":8:0  m=0:23560\,0 'c$=:23560\=0930 .25~,35# 3y=32 :x=208:0:d$="P":8 #23560\=97a3100 c$="3"920 c$<"1"c$>"5"920 3y=32 :x=208:0:d$="P":8 Un=(c$c$"2")+(-1+c$c$"3"):pp=r(x(x(1))):pp=0pp=10 ;mm=r(c(c(1,n)+1,n)):mm=0mm=10 -c(1,n)=0pp10 470 -c(1,n)=0pp=10 975 mm1+pp478 4000:470 PULSACION MAZO !65501=1990 Mh=16:v=25:1900l:d(1)=165501,1 !65501=1986  2000 d(1)=d(1)-1 ]x(x(1)+1)=f(w):x(1)=x(1)+1:h=6:1000:470 j65501,0:xs=2:ys=3:y=88X:0:d$="?OTRO INTENTO?":7:502 +0:23560\=115s10 O:xs=10 :ys=24:y=0:d$="FIN":7::0:990 SELECCION & PRINT CARTA !c=f(w):w=w-1:1005 Qv=10 :h=16:fin=fin+1:.25~,10 :.30,20 f=((c-1)/10 ) =a$=(""f)+(""f=1)+(""f=2)+(""f=3) !t=2:f>1t=1  c=r(c):c=0c=10  h16h=16 c<8b$=c:1090B 5b$=(""c=8)+(""c=9 )+(""c=10 ) Bh161100L G/b=h+5h+6:4;b,v;" ":b Lt:7:h,v;b$;" ";h+1,v;a$;" ":b=h+2h+4:b,v;" ":b:xs=2:ys=3:y=(h+2)*8:x=(v*8+8c8)+(v*8c=8):8:d$=(cc<8)+("st"c=8)+("C"c=9 )+("R"c=10 ):8 QMv*8+8,175-(h*8):8;6;15,0 Vfin=40(5100 ` l64:n=1620:n,25;" ":n: L3:7:n=hh+4:h,v;"":h=h+1:n:h=h-5: SEGUNDA PULSACION A !/pp=r(x(x(1))):pp=0pp=10 &"65503=13200 0pp1478 :Fss=3150N :h=6:v=25:x(1)=25000 D%c=x(x(1)-1):1005 Nx(1)=x(1)-1:ha=x(x(1)+1):65503,1:c=x(x(1)+1):x(x(1)+1)=0:1003 X 470 $mm=r(ha):mm=0mm=10 $mm=10 pp=13130: mm+1pp478 3130: Fss=4020:h=6:v=25:x(1)=25000 8c=x(x(1)-1):1005:.5,25 v=(1n=1)+(5n=2)+(n*4+2n3):h=(2c(1,n)=0)+(c(1,n)*2+2c(1,n)0) c=x(x(1)):1005:x(1)=x(1)-1:c(1,n)=c(1,n)+1:c(c(1,n)+1,n)=x(x(1)+1):x(x(1)+1)=0  c=x(x(1)):1003: 8b=15:4;h,v;" ":h=h+1:b ss FINAL VENCEDOR  xs=2:ys=3:y=0:d$="**ENHORABUENA**":7:y=30:d$="!!LO CONSIGUIO!!":7:1:100d:990 #("solit"1 yD PARE LA CINTAx@a[  "" dMMU3[6e3!]M4 \>v>![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[h2[: [G: [2 [*[Å2[: [G: [2[: [O :[<2[ :[<2[ :[Õ@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// P P P 8MXXXWq !dv>FIIIBBBBFIBDZ<