P?! 6zmD:\:!6=d|12345<>,13 ,0,7 517,12 ,17,13 ,0,7 516,12 ,16,13 ,1,6 515,12 ,15,13 ,0,7 514,12 ,14,13 ,0,7 513 ,12 ,13 ,13 ,0,7 512 ,13 ,13 ,13 ,0,7 512 ,14,13 ,14,0,7 512 ,15,13 ,15,0,7 512 ,16,13 ,16,1,7 512 ,17,13 ,17,0,7 512 ,18,13 ,18,0,7 512 ,19,13 ,19,0,7 512 ,20,13 ,20,0,7 510 ,20,11 ,20,1,7 39 ,20,8,20,0,7 39 ,19,8,19,0,7 39 ,18,8,18,0,7 39 ,17,8,17,0,7 39 ,16,8,16,1,5 39 ,15,8,15,0,7 39 ,14,8,14,0,7 39 ,13 ,8,13 ,0,7 38,12 ,8,13 ,0,7 37,12 ,7,13 ,0,7 36,12 ,6,13 ,0,7 35,12 ,5,13 ,1,7 34,12 ,4,13 ,0,7 33,12 ,3,13 ,0,7 32,12 ,2,13 ,0,7  31,12 ,1,13 ,0,7  31,10 ,1,11 ,1,7  11,9 ,1,8,0,7  12,9 ,2,8,0,7  13,9 ,3,8,0,7 14,9 ,4,8,0,7 15,9 ,5,8,1,2 16,9 ,6,8,0,7 17,9 ,7,8,0,7 18,9 ,8,8,0,7 19 ,8,8,8,0,7 19 ,7,8,7,0,7 19 ,6,8,6,0,7 19 ,5,8,5,1,7 19 ,4,8,4,0,7 19 ,3,8,3,0,7 19 ,2,8,2,0,7 19 ,1,8,1,0,7 311 ,1,10 ,1,1,7 312 ,1,13 ,1,0,7 312 ,2,13 ,2,0,7 312 ,3,13 ,3,0,7 312 ,4,13 ,4,0,7  312 ,5,13 ,5,1,4 !312 ,6,13 ,6,0,7 "312 ,7,13 ,7,0,7 #312 ,8,13 ,8,0,7 $313 ,9 ,13 ,8,0,7 %314,9 ,14,8,0,7 &315,9 ,15,8,0,7 '316,9 ,16,8,1,7 (317,9 ,17,8,0,7 )318,9 ,18,8,0,7 *319,9 ,19,8,0,7 +320,9 ,20,8,0,7 ,520,11 ,20,10 ,1,7 -519,11 ,19,10 ,0,6 .518,11 ,18,10 ,0,6 /517,11 ,17,10 ,0,6 0516,11 ,16,10 ,0,6 1515,11 ,15,10 ,0,6 2514,11 ,14,10 ,0,6 3513 ,11 ,13 ,10 ,0,6 4510 ,19,11 ,19,0,5 5510 ,18,11 ,18,0,5 6510 ,17,11 ,17,0,5 7510 ,16,11 ,16,0,5 8510 ,15,11 ,15,0,5 9510 ,14,11 ,14,0,5 :510 ,13 ,11 ,13 ,0,5 ;32,10 ,2,11 ,0,2 <33,10 ,3,11 ,0,2 =34,10 ,4,11 ,0,2 >35,10 ,5,11 ,0,2 ?36,10 ,6,11 ,0,2 @37,10 ,7,11 ,0,2 A38,10 ,8,11 ,0,2 B311 ,2,10 ,2,0,4 C311 ,3,10 ,3,0,4 D311 ,4,10 ,4,0,4 E311 ,5,10 ,5,0,4 F311 ,6,10 ,6,0,4 G311 ,7,10 ,7,0,4 H311 ,8,10 ,8,0,4 L(z=13:m=z+14 Q9a(n,z)=0t(z)=0a(n,z)>68D1120` Va(n,z)a(n,m)1120` [ 1125e `m:z:1160 eMz=14:a(n,z)=0a(n,z)>68Dt(z)=0:1155 jt(z)=01155 o2t(z)=0:m=14:z=m1150~ ta(n,z)a(n,m)1150~ yt(z)=1 ~m z  2140\ a(n,fi)=b1:cn=b1 Es(b1,1)=0s(b1,2)=01220:2280 6po=1:(s(b1,2)/10 )=copo=2 $1400x:1220:1480 /po=1:s(b1,1)>0po=2 $1600@:1500:1700 .5,10 : ;#1;0,0;"AS SACADO TRES SEIS " *z=110 :.3,10 :z c1=02280 #a(n,c1)>68D2280 (1405}:2280 x&po=po-1:po=po:po=po+1 }9c2=fi:co=(s(cn,po)/10 ):fi=s(cn,po)-co*10 $z=1nu:co=a(z,5)n=z z co=0:1500 .co=a(n,5):a(n,fi)=0:1800 11600@:.3,2:.3,10 #n=o(tu):co=a(n,5):fi=c2: G#1;0,0;"CUENTAS VEINTE ":da2=20 5z=110 :.2~L,5:z:2060  1000+cn a1,a2,a3,a4,a5,a6 *co*(coa6):a6:po=2a1=a3:a2=a4 a5=1a1,a2;"" x$=(143+fi)  a1,a2;x$  @]9 :a(n,5):601Y+10 *a(n,5):a1,a2:680:Z=14 Ja3,a4:x$=(143+z) Oa(n,z)>0x$=" " T#0;1;a1+a3,a2+a4;x$ ^z h+a1=0:a2=0:z=14 ra(n,z)=0a1=a1+1 |!a(n,z)=100da2=a2+1 a7;0;1;n*5-3,27;a1;n*5-2,27;a2:z: *s(a(n,fi),po)=a(n,5)*10 +fi: s(cn,po)=0: fin=0:n=1nu !600X+10 *a(n,5) e:a(n,1)=e:n &po=1:fi=1:n=1nu Dco=a(n,5):cn=a(n,fi):1500:1600@:1700:n Sn=o(tu):n*5-5,22;9 ;a(n,5);1;" " +co=a(n,5):seis=0:c1=0 ?0:800 :900:da1=6seis=seis+1 seis=31300 wda2=da1:da1=6a(n,1)>0a(n,2)>0a(n,3)>0a(n,4)>0da2=7  C600X+10 *co:b1,b2,b3,b4:t(4):z=14 a(n,z)=100d2135W _t(z)=(a(n,z)=0da2=5((s(b1,1)/10 )coź(s(b1,2)/10 )co))  a(n,z)=0(da1=5(a(n,1)=0a(n,2)=0a(n,3)=0a(n,4)=0)(s(b1,1)>co*10 s(b1,2)>co*10 s(b1,1) 4!cn=b4cn=100d:2110> 93cn=cn+1:cn=69Eco<6cn=1 >cn>100d2135W @cn>96`2130R C9s(cn,1)=0s(cn,2)=02130R Hm=da22135W MA(s(cn,1)/10 )=(s(cn,2)/10 )2135W Rm:t(z)=1 Wz:da1=61100L \x$="":z=14 ft(z)=1x$=x$+"-"+z ksz:x$=""#1;0,0;"NO PUEDES MOVER ":c1=0:z=1502:z:2270 p a$(n)="SPECTRUM "4000 so#1;0,0;" ":#1;0,0;"CON QUE FICHA";x$;"? "; u)f=:f<491f>5242165u z7fi=f-480:#1;fi:t(fi)=02165u +c1=fi:cn=a(n,fi):cn=01200 6po=1:s(cn,2)=co*10 +fipo=2 1800:z=1da2 ;s(cn,po)=0co=0:1500:co=a(n,5) cn=b2cn=b3:2210 !cn=b4cn=100d:2220 3cn=cn+1:cn=69Eco<6cn=1 Hpo=1:s(cn,po)>0po=2:s(cn,po)>02220  1500 .5,10 z:a(n,fi)=cn ia(n,1)=100da(n,2)=100da(n,3)=100da(n,4)=100d3000 a(n,fi)=100d#1;0,0;"CUENTAS DIEZ ":z=110 :.2~L,20:z:1600@:da2=10 :2060   1700 $c4=2:po=2c4=1 Ma5=0s(cn,c4)>0ƺ(s(cn,c4)/10 )co1400x:1480 jda1=6#1;0,0;" TIRA OTRA VEZ ":z=1502:z:2045 cn*5-5,22;9 ;a(n,5);" ":tu=tu+1:tu>nutu=1 &a(o(tu),6)>02280  2030 fin=fin+1 1600@:a(n,6)=fin ?#1;0,0;a$(n);" TERMINO EN ";fin;" PUESTO" 8z=14:1,2:1,7:z fin=nu3080 F#1;0,0;"SIGUE EL JUEGO? " 0:="s"2280 "n"3060 0:7:1: '5,5;"PUESTOS DE LLEGADA" n=1nu & x$=a$(n) 09a(n,6)=0x$=x$+" SIN TERMINAR":3140D :!x$=a(n,6)+" PUESTO "+x$ Dn*2+5,4;x$ Nn X1n*2+6,5;"OTRA PATIDA? (s/n)" b0:="s" l"n"3170b v 0 2:7:2: Y1,0;" INSTRUCCIONES = " " Las reglas del juego son las mismas que en el parchis de so- bremesa, de tal forma que el or-denador no permite hacer jugadasilegales." " Para empezar te pide el numero de jugadores, que puede ser de dos a cuatro. Pudiendo ser uno o varios jugadores el mismo spectrum." " Despues pide sucesivamente el nombre y color de cada jugador. Para que juege el Spectrum solo hay que meter el nombre en vacioy automaticamente ese jugador quedara bajo control del Spec- trum. Puede comtrolar varios ju-gadores e incluso todos." :#0;" PULSA UNA TECLA ":0 P::" Despues de introducidos todos los datos te pregunta si son co-rrectos." ƪ" A continuacion se hacen las ti-radas para saber quien empieza, poniendo en la parte inferior dela pantalla quien debe tirar. Para tirar se pulsa cualquier tecla." н" Despues se colocan las fichas y empieza el juego solicitando primero la tirada y a continua- cion la ficha a mover, indicandoque fichas puedes mover despues ejecutara el movimiento. " 7" Las fichas tienen su numero so-bre la misma ficha." :#0;" PULSA UNA TECLA ":0 ::" Si se quiere detener el juego. Al tirar el dado, pulsa: CAPS SHIFT + F y pasara al final del juego, in-dicando la posicion en que ha terminado cada jugador." c" Despues de meter las cuatro fi- chas te pregunta si quieren se-gir jugando o si pasa al final." 1#0;" PULSA UNA TECLA " 17,0;"";18,0;"";18,31;"";19,0;"":7 n=06:n =1;18,1;"  1985 MICROHOBBYCASSETTE " *#z=110 :""8 4'z:.01z# =,n*8:n:3350 z&c5=0:cn<1cn>68D !s(cn,1)s(cn,2) s(cn,1)>co*10 s(cn,2)>co*10 s(cn,1)68D >f=014:e=cn-15+f:e<1e=e+68D 7s(e,1)=0s(e,2)=03540 ʲ(s(e,1)>0s(e,1)0s(e,2)co*10 +4s(e,2)>co*10 +4c2=15-f f: Da3=0:c3=0:cn<1cn>68D(cn68De=e-68D 7s(e,1)=0s(e,2)=03590 ((s(e,1)>0s(e,1)0s(e,2)co*10 +4s(e,2)>co*10 +4)f0s(e,1)0s(e,2)co*10 +4s(e,2)>co*10 +4)fda2a3=10 :f=da2a3=20: f: 2a1=1:a2=1:cn<1cn>68D 1000+cn:a1,a1,a1,a1,a1 $cnb2cn+da2>b2 .>1000+cn+da2-68D*(cn+da2>68D):a2,a2,a2,a2,a2 8 B&c4=0:cn<1cn>68D Lf=cn:f4c4=4 ` *x$=2fi=x$(2):2175 da254040 3z=14:t(z)a(n,z)fi=z:2175 z 5l(4):z=14:t(z)z:4500 Gcn=a(n,z):3450z :3500 :3550 :3600:3650B l(z)=1 %c5=0c4=4l(z)=2 c4=3l(z)=3 %c5=0c4=3l(z)=4 %c4=2c4=1l(z)=5 %c5=0c4=2l(z)=6 %c5=0c4=1l(z)=7 "2c3=0(c4=4c4=3)l(z)=8 ,2c3=0(c4=2c4=1)l(z)=9 1-c5=1c3<20cnb1z:4500 6&c4=4a1=0l(z)=10 @&c4=3a1=0l(z)=11 J&c4=2a1=0l(z)=12 T&c4=1a1=0l(z)=13 ^>c4=1c3=0(c2=0c2>8)l(z)=14 hL(c4=2c4=3)c3=0(c2=0c2>10 )l(z)=15 r1c4=4c3=0c2=0l(z)=16 |w(a(n,1)=0a(n,2)=0a(n,3)=0a(n,4)=0)cn=b1c5=1l(z)=17 1c4=1a1=0c3=0l(z)=18 1c4=2a1=0c3=0l(z)=19 1c4=3a1=0c3=0l(z)=20 1c4=4a1=0c3=0l(z)=21 (a(n,1)=0a(n,2)=0a(n,3)=0a(n,4)=0)cn=b1c5=1c3=0(c2=0c2>6)l(z)=22 'c5=1a3<19z:4500 >(c4=1c4=2)a1=1a2=1l(z)=23 1a1=0a2=1c4=1l(z)=24 1a1=0a2=1c4=2l(z)=25 _c4=1c2>0c2<7a1=0(a2=1c3=0c2<4)l(z)=26 >a1=1a2=1(c4=3c4=4)l(z)=27 Ia3>5(a1=0c2=0c2<9 )c3=0l(z)=28 1a1=0a2=1c4=3l(z)=29 1a1=0a2=1c4=4l(z)=30 (s(cn+da2,1)>co*10 s(cn+da2,1)co*10 s(cn+da2,2)0c2<9 a1=0(a2=1c3=0c2<4)l(z)=32 `c4=3c2>0c2<11 a1=0(a2=1c3=0c2<6)l(z)=33! &Tc4=4c2>0a1=0(a2=1c3=0c2<7)l(z)=34" 0"cn+da2=b4+1l(z)=35# :'a3=20a2=0l(z)=36$ bz (c2=0:z=41-1 l(z)c2c2=l(z):c3=z z fi=c3:2175  p19 MUOG=3@_MP>v> P P 3\M3\\MU=U\Wq !v>>BB<DHpHDB@~BfZBBBBbRJFBB<|B<<>B<B<<<>c1=7:c2=168:c3=8*20+1:c4=c3 (7:500:0 275K:n=16 <d1,d2,d3,d4,d5,d6 A 550& F,n::0,1;:n=120:a1:;6;1;1;a1;:n K;0,2,16,80P,167,159,1,2,16,8,95_,159,1,7,8,64@,159,480,1,7,8,64@,63?,480,0,7,8,16,111o,480,0,7,8,112p,111o,480 Pc3=159:c4=480 Uc1=8:c2=111o Z 500 _N64@,111o:47/,-47/:64@,64@:47/,47/ dc3=480:c4=159 nc1=64@:c2=167 x 500 }130:b1,b2,b3,b4 !9 ,9 ,4,4 3:450 "n=14:a,b1,b2,b3,b4 a:450:n 2,2,2,5,5,5,2,15,5,5,4,15,2,5,5,6,15,15,5,5 +1:n=14:a,b1,b2,b3,b4 a:450:n 2,2,10 ,2,7,4,10 ,2,7,2,5,10 ,13 ,7,2,6,13 ,10 ,2,7 185:n=0111o a "a"+n,a K0,60<,118v,102f,118v,118v,60<,0 I0,60<,102f,90Z,118v,98b,60<,0 K0,60<,102f,122z,102f,122z,36$,0 J0,60<,118v,102f,70F,118v,60<,0 H0,85U,42*,85U,42*,85U,42*,85U n A0,0,0,0,0,3,7,7 A7,7,3,0,0,0,0,0 G224,224,192,0,0,0,0,0 G0,0,0,0,0,192,224,224 G7,7,3,0,0,192,224,224 G224,224,192,0,0,3,7,7 M224,224,192,0,0,192,224,224 A7,7,3,0,0,3,7,7 E0,96`,96`,0,240,0,0,0 =n=568D:1000+n:a,b,c,d,e,f:e=0n ;a,b;f;"";c,d;"":n 2#1;0,1;"CUANTOS JUGADORES? "; +nu=:nu<502nu>524230 4nu=nu-480:#1;nu:n=130:n (a(nu,6):9 :a$(a,10 ) #23658j\,8:n=1nu B("NOMBRE J. ";n;" ");a$(n):a$(n,1)=" "a$(n)="SPECTRUM" 2#1;0,0;" COLOR ";8; 7co=:co<502co=513co>546253 ^co=co-480:#1;co:z=130:z:z=1nu:co=a(z,5)255  Ez:a(n,5)=co:n*5-5,22;a(n,5);a$(n) kn:23658j\,0:#1;0,1;"ESTA CORRECTOS ":0:="n"850R:225 Co(nu):cn=1:290":n=14:co:z=1nu )co=a(z,5)o(cn)=z:cn=cn+1 z:n "!6,5,2,4 ,6:7:da1=0 1!b2,b3,b4,c1,c3,c4:n=1nu 63c2:b1=n*5-3:500:450:n ;\29,2,2,230,19,19,161,121y,81Q,41) @a1:n=1nu:320@:z=12:x$:n*5-4+z,22;x$:z:n E"CASA-","FINA-" J723675{\,140:23676|\,254:0 On=0151:b1 T"a"+n,b1:n Y 192,128,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,1,0,0,0,0,0,0,0,0,0,0,0,0,128,192 [0,480,120x,120x,480,0,1,3,192,128,0,12 ,30,30,12 ,0 ^3,1,0,0,0,0,0,0,0,0,0,0,0,0,128,192 c3,1,0,480,120x,120x,480,0,0,12 ,30,30,12 ,0,128,192 e0,480,120x,120x,480,0,0,0,0,12 ,30,30,12 ,0,0,0,0,0,0,480,120x,120x,480,0,0,0,0,12 ,30,30,12 ,0 h0,480,120x,120x,480,0,480,120x,0,12 ,30,30,12 ,0,12 ,30,120x,480,0,480,120x,120x,480,0,30,12 ,0,12 ,30,30,12 ,0 m-23675{\,88X:23676|\,255 rt(4):n=1nu |`n*5-5,22;9 ;a(n,5);1;" ":800 :900 Kt(n)=da1:n*5-5,22;9 ;a(n,5);" " n:da=0:n=1nu t(n)>dada=t(n):da2=n n:n=1nu wnda2t(n)=da#1;0,0;"Hay empate, se repite ":1,0:z=1502:z:370r :n:#1;0,0;" COMIENZA ";a$(da2) 71,20:n=120:n:n=1nu o(n)=da2tu=n n  2000 z$(b3) z=0b4-1  b1+z,b2;z$ z: c1,c2  c3,0  0,-c4  -c3,0  0,c4   &z=0d2*d3-1d3 +d1d4+z,d5:0,-d6 0d1d4,d5-z:d6,0 5z: l%39',34",83S,89Y m3,3 %568,513,90Z,96` 16,3 %22,17,76L,82R 3,16 $5,68D,69E,75K 16,16 0,0 0,2 2,0 2,2  310 ,10 ;"";11 ,10 ;"": `9 ,9 ;"";10 ,9 ;"";11 ,11 ;"";12 ,11 ;"": b9 ,9 ;"";10 ,9 ;"";11 ,10 ;"";12 ,11 ;"": f9 ,9 ;"";10 ,9 ;"";11 ,9 ;"";12 ,9 ;"": f9 ,9 ;"";10 ,9 ;"";11 ,9 ;"";12 ,9 ;"": f9 ,9 ;"";10 ,9 ;"";11 ,9 ;"";12 ,9 ;"":  p#1;0,0;a$(n);" TIRA EL DADO ":502*(a$(n)="SPECTRUM "):da=20+(*6) %="F"3080 */3:f=1da:700+10 *da1 4+da1=da1+1:da1>6da1=1 >/700+10 *da1:.01z# =,25:f H R860\:b1,b2,b3,b4 \$0,22,10 ,21 f1:0:450 p 1: X23675{\,140:23676|\,254:6:0:900+da1*10 823675{\,88X:23676|\,255:1: En*5-3,29;"";n*5-2,29;"": En*5-3,29;"";n*5-2,29;"": En*5-3,29;"";n*5-2,29;"": Fn*5-3,29;""; n*5-2,29;"": En*5-3,29;"";n*5-2,29;"": En*5-3,29;"";n*5-2,29;"": 520,12 ,20,13 ,0,7 519,12 ,19,13 ,0,7 518,12 ,18