MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 08  AA AA  !"#$%&'()*+,AA -./0AB !12345AC 76789:;<AD %=>?@AAE >BCDEFGHIAF BJKLMNOPQRAG STUVAH WXYZBA ;[\]^_`abBB cdefghijklmnopqrBB %stuvwBC xyzBD +{|}~BE =BF {BG /BH JPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "08" PLUS3DOS@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTrack-Info  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@|#A |paqx:|x>0q8 ?*WTmTŒ' PIUU@x<#A paqx88@"?A -TOmQjTZJR6UI%@@' UJ ?@x<#ap8 0paq8 @>A /ȟ' !UU@??@8<>xp_9܅۪UUUUUUUUUU 0ꪪUUUUUUv0 `8UUUUUUUUժUUUUUUUUUUUUUU `8UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU `8UUUUUUUUժUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0UUUUUUUUժUUUUUUUUUUUUUU0UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU0 `UUUUUUUUUUUUUժUUUUUUUUU0 `UUUUUUUUUUUUUUUUUUUTrack-Info  R UUUUUUUUUUUUUUUUUUUUUUUUUUUUU88888888888888888888877777778888888888888888888888887777777788888888888888888887778888888888888888888888887777888888888888888888866666778888888888888888888888666666688888888888888888888888888666688888888888888888888888888888888888888888888888888888:8:88888888888888888=88r>=8888888888888888888:8>>>7ppp7::::::W:::::::::::Wp0p00VWWWW888888888888888888>p0007>>>88888888888888888888888>7>>888888888888888888888 888888888886888888888 88888888886668888888888888888888888888888866688888558888888888888888888866688665555888888888888888866688668855588888888887778866;;6666;;;55;;;8888888778888866;;6666555555;;88888887778888PLUS3DOSmdCINTA 08 (REVISTAS 29 a 32) n4:0:7: x5000:6000p 8,10 ;"A - CARA A" 9 ,10 ;"B - CARA B" A$= A$=""150 A$="A"A$="a"500 A$="B"A$="b"1000 100d --- MENU CARA A --- :5000:6000p 4,12 ;"CARA A" 7,3;"A-Musculos" 7,18;"B-Obstak" &8,3;"C-Astro1" 08,18;"D-Monitor" :!9 ,3;"E-Acorralado" D9 ,18;"F-Puntos" N10 ,3;"G-Nave" X10 ,18;"H-Barman" !15,11 ;"1 - VOLVER" B$= B$=""680 B$="A"B$="a""AA" B$="B"B$="b""AB" B$="C"B$="c""AC" B$="D"B$="d""AD" B$="E"B$="e""AE" B$="F"B$="f""AF" B$="G"B$="g""AG" B$="H"B$="h""AH" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Azatoth" 7,18;"B-Senet" !8,3;"C-Rungekutta" $8,18;"D-Ranson" .9 ,3;"E-Desensam" 89 ,18;"F-Tron" B!10 ,3;"G-Cuatreros" L10 ,18;"H-Picnic" !15,11 ;"1 - VOLVER" B$= B$=""1180 B$="A"B$="a""BA" B$="B"B$="b""BB" B$="C"B$="c""BC" B$="D"B$="d""BD" B$="E"B$="e""BE" B$="F"B$="f""BF" B$="G"B$="g""BG" B$="H"B$="h""BH" <B$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 08" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 29-32"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOSƎF F} o7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: ꏏDIMENSIONADOS 7:6:236099\,100d:23658j\,8 A$(9 ,9 )  B$(9 )  C$(6) D$(3,12 )  D(30)  F(30) G$(6,9 ) J$(30,18) K$(9 Track-Info  R ,9 ) !M$(30,18) "Q$(14) 2YE1=1:U=0:E=1:M=0:L=0:P=0:Q=0:R=0 Q$n=147/:a:"a"+n,a:n R 85U S,n=16:C$(n)=(143+n):n U0,230,137,233,47/,233,0,0,0,67C,68D,68D,71G,116t,0,0,0,36$,181,173,165,164,0,0,0,233,9 ,105i,41),198,0,0,0,119w,69E,103g,70F,117u,0,0,0,480,72H,72H,120x,74J,0,0 WꏏSOLICITUD DE DATOS X 350^ Y_9 ,9 ;"POSEES ARCHIVO";11 ,10 ;"DE ALUMNADO";13 ,13 ;"S - N" Z 0 [="S"94^ \="N"100d ] 88X ^:350^:8,7;"PREPARA EL CASSETTE";11 ,10 ;" PULSA PLAY ";1;15,11 ;" CARGANDO " _ ""M$() `""D() a""F() b E1=F(E1) cAACN VARIABLES dD$(1)="CABEZA" fD$(2)="TRONCO" hD$(3)="EXTREMIDADES" jA$(1)="FRONTAL" lA$(2)="Orb.OJOS" nA$(3)="Orb.LABIOS" pA$(4)="BUCINADOR" rA$(5)="MASETEROS" tA$(6)="ES-CL-MA." vA$(7)="ESPLENIO" xA$(8)="OCCIPITAL" zA$(9 )="TEMPORAL" |G$(1)="ES-CL-MA." ~G$(2)="SERRATO" G$(3)="RECTO AB." G$(4)="DELTOIDES" G$(5)="PECTORAL" G$(6)="OBLIC.AB." K$(6)="OCCIPITAL" K$(1)="TRAPECIO" K$(7)="DELTOIDES" K$(8)="TRICEPS" K$(2)="G.DORSAL" K$(3)="GLUTEOS" K$(4)="BICEPS C." K$(5)="GEMELOS" K$(9 )="T.AQUILES" ꏏPRESENTACION b:31,161:80P,0:0,-146:-80P,0:0,146 a7,169:233,0:0,-161:-233,0:0,161 0,1;"";C$() ?2,15;1;7;1;" LOS MUSCULOS " 210 220 Ҋ4,15;6;" QUE DESEAS ";4,28;1;"?":6,16;"1. REPASAR";8,16;"2. EXAMINAR" b12 ,16;"C= CABEZA";14,16;"T= TRONCO";16,16;"E= EXTREMIDA." @19,15;1;6;1;"Pulsa opcion"  Ja=118:1+a,4;1;6;" ":a 8300l '"""numero""+""letra""+""ENTER"" ";T$ qT$="1C"2:1:7:1:1:6,15;Q$();12 ,15;Q$():240 qT$="1T"2:1:7:1:1:6,15;Q$();14,15;Q$():240 rT$="1E"2:1:7:1:1::6,15;Q$();16,15;Q$():240 qT$="2C"2:1:7:1:1:8,15;Q$();12 ,15;Q$():240 qT$="2T"2:1:7:1:1:8,15;Q$();14,15;Q$():240 qT$="2E"2:1:7:1:1:8,15;Q$();16,15;Q$():240 222 b0:0:0:7:#0;0,0;"DESEAS CORREGIRLO ";1;"?" 0 ="S"246 ="N"250 241 1O=113 :5+O,15;Q$():O 222 0 T$="1C"1000 T$="1T"2000 T$="1E"3000 T$="2C"1200 T$="2T"2500 T$="2E"3500 @ꏏENCUADRE RESULTADOS B 334N D20,156 FF=19 H A:B:A,B LF N214,0,0,-130,-214,0,0,130,2,-2,210,0,0,-126~,-210,0,0,126~ P44,10 ;4;0;" RESULTADOS " R818,22;6;1;0;"";C$() T YꏏENC. INSTRUCCIONES ^63,2;4;1;" INSTRUCCIONES " `14,130:1;228,0:0,-105i:-228,0:0,104h:16,128:224,0:0,-101e:-224,0:0,100d b818,22;6;1;0;"";C$() d ꏏINSTRUCCION REPASO  :35Track-Info  R 0^ z7,3;"Cada vez que pulses""ENTER""";8,3;"aparecera el nombre de un";9 ,3;"musculo." 11 ,3;"Si cuando esten todos, pul";12 ,3;"sas otra vez ""ENTER"", los";13 ,3;"borrare y empezaremos." a15,3;"Si desearas otra opcion de";16,3;"beras pulsar el cero -""0""-" ꏏESPERA ,X$="....PULSA UNA TECLA PARA CONTINUAR..." 420,10 ;1;0;X$(12 ) X$=X$(2)+X$(1)  10 =""452  ꏏINSTRUCCION CONTROL  350^ ~7,6;"Te hare 10 preguntas a";8,4;"sorteo, debiendo pulsar";9 ,4;"el numero correcto." 11 ,6;"Ten en cuenta que para";12 ,4;"responder a cada pregun-";13 ,4;"ta solo tienes 5 segund.";15,6;"Al terminar te anotare";16,4;"los aciertos y fallos."  450  &ꏏRESULTADO PARCIAL + 320@ ,37,7;1;1;7;D$(I) ..9 ,10 ;4;" ACIERTOS: " 0/11 ,10 ;4;" FALLOS..: " 2]14,7;"OPCIONES";15,8;"1. REPASAR ";16,8;"2. SEGUIR " 4 :ꏏRESULTADO TOTAL ; :320@ = 572< >154,130 ?J=115:A:B:A,B A A=0B=0A:B:A,B BJ C64@,0,0,0,46.,118v,172,0,0,0,46.,86V,172,0,0,0,46.,68D,172,0,0,0,46.,118v,0,-502,0,0,154,130,0,-62>,0,0,186,130,0,-62>,0,0,218,130,0,-62> D26,21;4;1;0;"A" E26,25;4;1;0;"F" F98,7;2;1;7;D$(1) G99 ,7;2;1;7;D$(2) H:10 ,7;2;1;7;D$(3) I412 ,7;4;1;"PUNTOS TOTAL" J)8,21;L;8,25;M K)9 ,21;P;9 ,25;U L+10 ,21;R;10 ,25;Q M512 ,20;4;1;0;L+P+R N512 ,25;6;1;0;M+U+Q O PꏏCALIFICACION T"L=0300,:1200 U"P=0300,:2500 V"R=0300,:3500 X E=L+P+R \-14,9 ;4;" CALIFICACION " ^DE>2816,9 ;1;"SOBRESALIENTE.":620l `?E>2516,12 ;1;"NOTABLE.":620l b;E>2316,14;1;"BIEN":620l dAE>2016,11 ;1;"SUFICIENTE":620l f,16,10 ;1;"INSUFICIENTE" lJ=14 n*N=120:.05|L,.5+N pN r3N=201-1:.05|L,N-.5 tN vJ {ꏏCUADRO DE HONOR   320@ 26,6;6;"PUNTUACIONES MAXIMAS" c9 ,6;1;"1. ";11 ,6;1;"2. ";13 ,6;1;"3. " 9 ,9 ;J$(30)  11 ,9 ;J$(29)  13 ,9 ;J$(28) "NOMBRE: ";J$(E) @J$(30)=J$(E)9 ,9 ;1;J$(E):660 AJ$(29)=J$(E)11 ,9 ;1;J$(E):660 AJ$(28)=J$(E)13 ,9 ;1;J$(E):660 m15,5;J$(E);16,5;"NO MERECES ESTAR ENTRE";17,6;"LOS MEJORES, TODAVIA"  500  9000(#   200 ꏏTEMPORIZACION  T1=502 .005y# =,502 ,T110 #0;1,29;T1 Z$= Z$=""712 &Z$>579ůZ$<491712 &Z$<579ůZ$>491740 T1=T1-1 T1<0750 /T1<10 #0;1,2;"0";T1  703 )#0;1,24;Z$;" "  T=Z$: \#0;1,1;" FUISTE MUY LENTO ":1.5@,-10 :T=0:  ꏏENCUADRE MUSCULOS %_0,0:255,0:0,175:-255,0:0,-175 &_3,3:249,0:0,169:-249,0:0,-169 )21,24;"";C$() * ꏏREPASO CABEZA Track-Info  R  :400  :800  N1,1;1;7;1;"REPASO: MUSCULOS DE LA CABEZA"  1030  1070.  8010J  1051 8,142 J=126 A:B A,B  A=0B=0A:B:A,B "J $480P,0,24,-15,0,0,8,118v,80P,0,24,-3,0,0,8,62>,80P,0,9 ,3,0,0,8,46.,88X,0,15,25,0,0,8,30,94^,0,18,36$ %&0,0,247,142,-72H,0,-32 ,-32 ,0,0,247,110n,-64@,0,-12 ,-12 ,0,0,247,70F,-64@,0,-24,-12 ,0,0,247,22,-90Z,0,-20,30 & . 1071/ /J=19 0A:B 1A,B;6;1;A$(J) 2 300, 3.05|L,J*2 4J 5C#0;1,0;"""0""= SALIR - ""ENTER""= OTRA VEZ""" 6 0 7="0":200 8 10819 :J=19 ;A:B < A,B;B$() =J B3,1,6,1,13 ,1,15,1,17,1,18,22,12 ,22,7,22,3,22 G 1070. ꏏCONTROL  :500  :800  N1,1;1;7;1;"CONTROL :MUSCULOS DE LA CABEZA"  1030  1238 J=19 A:B #A,B;2;7;1;J .5,12 +J J ݚ3,7,6,7,13 ,7,15,7,17,7,18,27,12 ,27,7,27,3,27 !M=0:L=0:I=1 J=110  S=(*9 )+1 $O=110 :.03{u\,O:O Z#0;1,1;6;1;0;(A$(S));" es el numero ":700 #T=S1370Z $U#0;1,1;1;" FALLASTE ";0;" era el: ";S;" " &].5,1:.5,20:.5,1:.5,20:.5,.5 ' M=M+1 -J < 1400x ZQ#0;1,1;1;" ACERTASTE ";0;" BRAVO!!! " [X=40(1-1 \.005y# =,X ]0,X+100d ^X _ L=L+1 d 1320( xꏏRESULTADOS + OPCION  :550& 9 ,22;1;L 11 ,22;1;M  0 +="1":570::500:8600! ="2"570::595S  1421  ꏏREPASO TRONCO  :400  :800  N1,1;1;7;1;" REPASO: MUSCULOS DEL TRONCO "  2030  2070  8020T  2041 23,142 J=117 A:B A,B  A=0B=0A:B:A,B J  94^,0,8,-5,0,0,23,78N,80P,0,8,8,0,0,23,62>,80P,0,24,12  0,0,247,142,-80P,0,-8,-24,0,0,247,78N,-80P,0,-20,32 ,0,0,247,546,-80P,0,-16,16   2071 J=16 A:B A,B;6;1;G$(J)  300, .05|L,J*2 J A#0;1,0;"""0""= SALIR - ""ENTER""= OTRA VEZ"  0 ="0":200  2081! "J=16 #A:B $ A,B;B$() %J *h3,3,11 ,3,13 ,3,3,22,11 ,22,14,22 / 2070 ꏏCONTROL :500 :800  N1,1;1;7;1;" CONTROL: MUSCULOS DEL TRONCO " 2030 2538 J=16 A:B #A,B;2;7;1;J .5,12 +J J h3,8,11 ,8,13 ,8,3,27,11 ,27,14,27 (!P=0:U=0:I=2 *J=110 + .S=(*6)+1 0$O=110 :.03{u\,O:O 2[#0;1,1;6;1;0;(G$(S));" es el numero: ":700 7T=S2670n 8U#0;1,1;1;" FALLASTE ";0;" era el ";S;" " :[.5,1Track-Info  R :.5,20:.5,1:.5,20:1,1 ; U=U+1 AJ P 2700 nQ#0;1,1;1;" ACERTASTE ";0;" BRAVO !!! " oX=40(1-1 p.005y# =,X q0,X+100d rX s P=P+1 x 2620< ꏏRESULTADOS + OPCION :550& 9 ,22;1;P 11 ,22;1;U 0 +="1":570::300,:8600! ="2"570::595S 2721  ꏏREPASO DE EXTRE. :400 :800  N1,1;1;7;1;"REPASO: EXTREMIDADES Y ESPALDA" 3030 3070 8000@ 3051 23,134 J=125 A:B A,B A=0B=0A:B:A,B J (80P,0,28,-20,0,0,23,110n,80P,0,30,-4,0,0,23,86V,106j,0,0,0,23,70F,80P,0,20,10 ,0,0,23,46.,80P,0,16,8 !0,0,247,142,-80P,0,-36$,-6,0,0,247,118v,-80P,0,-24,6,0,0,247,94^,-80P,0,-24,16,0,0,247,30,-80P,0,-32 ,8  3071 J=19 A:B A,B;4;1;K$(J)  0 .05|L,J*2 J B#0;1,0;"""0""= SALIR...""ENTER""= OTRA VEZ"""  0 ="0":200  3081 J=19 A:B A,B;B$() J 4,3,7,3,10 ,3,12 ,3,15,3,3,22,6,22,9 ,22,17,22 621,0;" "  3070 ꏏCONTROL :500 :800  N1,1;1;7;1;"CONTROL:EXTREMIDADES Y ESPALDA" 3030 3538 J=19 A:B #A,B;2;7;1;J .5,12 +J J ٙ4,8,7,8,10 ,8,12 ,8,15,8,3,26,6,26,9 ,26,17,26 !R=0:Q=0:I=3 J=110  S=(*9 )+1 $O=110 :.03{u\,O:O [#0;1,1;6;1;0;(K$(S));": es el numero ":700 T=S3670V  U#0;1,1;1;" FALLASTE ";0;" era el ";S;" " "[.5,1:.5,20:.5,1:.5,20:1,1 # Q=Q+1 )J 8 3700t VQ#0;1,1;1;" ACERTASTE ";0;" BRAVO !!! " WX=40(1-1 X.005y# =,X Y0,X+100d ZX [ R=R+1 ` 3620$ tꏏRESULTADOS + OPCION y ~ 550& 9 ,22;1;R 11 ,22;1;Q  500 +="1":570::300,:8600! ="2"570::595S  3721  XꏏGRAFICOS @?J=206:a1=131:b1=128:d1=129:f1=133:g1=120x:h1=125}:i1=135:j1=126~:k1=122z:l1=137:m1=140:n1=123{:o1=139:p1=138:q1=119w:r1=136:s1=134:t1=130:u1=124|:v1=121y:8080:8030^ J'j=358f:8150:8030^: T'j=200:8230& :8030^: ^ Y=1j ha:b ra,b | a=0b=0a:b:a,b Y 0,0,a1,144,-3,0,-3,-2,-1,-2,0,-2,-1,-2,1,-2,1,-4,-2,-2,-3,-2,-1,-1,-2,-2,-1,-3,0,-14,-1,-3,0,-10 ,-2,-4,-1,-5,1,0,1,3,0,-6,3,1,1,7,0,3,2,6,0,7,1,3,1,-5,-1,-6,-1,-5,-1,-6,-1,-7,1,-8,0,-3,-2,-6,-1,-5,1,-8,0,-7,-1,-2,-3,-1,-1,-1,1,-1,7,0 uTrack-Info  R 1,2,0,7,3,9 ,0,8,6,22,1,0,1,-14,2,-7,-2,-8,2,-5,0,-9 ,1,-5,9 ,0,2,2,-5,1,-3,2,2,17,-1,7,2,10 ,2,12 ,-2,8,-2,7,1,4,1,-5,3,-4,5,-5,5,-11 ,3,0,2,4,-3,4,3,1,0,1,-6,1,-4,8,-4,5,0,8,-1,2,1,1,0,3,-1,3,-2,2,-3,2,-3,1,-2,2,0,3,1,2,1,1,0,1,-1,1,1,2,-1,2,-1,1,-2,1 0,0,b1,136,-1,-4,0,0,a1,136,1,-4,0,0,d1,132,-2,-4,-2,-1,0,0,d1,133,2,-4,2,-1,0,0,b1,125},-5,0,0,0,f1,125},5,1,0,0,g1,125},2,-2,2,-5,2,-6,4,-5,4,6,3,8,4,3,0,0,h1,123{,4,-4,0,0,i1,123{,-4,-4,0,0,j1,119w,3,-4,0,0,i1,119w,-3,-4,0,0,k1,121y,-6,-6,0,0 Hl1,121y,2,-3,5,-2,0,0,g1,116t,2,-3,2,-1,0,0,m1,116t,-4,-3,0,0,n1,110n,5,-6,0,0,n1,105i,5,-7,0,0,m1,113q,-7,-6,0,0,o1,110n,-6,-6,0,0,p1,104h,-6,-8,0,0,q1,117u,3,-14,8,-13 ,8,13 ,3,9 ,0,3,0,0,h1,95_,0,-1,-3,-2,0,0 j1,92\,-3,-2,-2,-2,0,0,b1,89Y,-2,-2,-3,-1,-2,-2,0,-2,0,0,r1,98b,2,-4,0,0,r1,93],3,-2,2,-3,0,0,s1,90Z,4,-2,3,-3,0,0,t1,87W,-3,-3,-3,-1,-3,-4,-2,-6,0,0,t1,87W,3,-3,3,-2,2,-2,1,-6,0,0 u1,81Q,-1,-7,-3,-5,3,5,1,-10 ,0,0,r1,80P,0,-5,-2,-7,2,7,3,-6,0,0,v1,64@,-1,-7,-2,-4,-2,3,2,-3,1,-12 ,2,12 ,2,2,0,0,i1,66B,2,-5,1,4,-1,-4,-2,-8,2,-11 ,2,11 ,-1,-4  ꏏGRAFICOS CABEZA ֜0,0,121y,15,-2,12 ,-3,10 ,-4,7,-3,6,-4,2,-5,3,-2,0,-5,2,-4,4,-1,3,2,3,0,3,-1,1,1,2,-1,-2,1,-1,4,2,-6,2,1,3,0,3,1,2,3,2,1,3,-3,3,3,-3,-1,-3,-3,-2,-3,2,-7,1,-1,2,0,2,4,3,3,0,1,-2,-1,2,-3,0,-4,-4,5,8,6,7,4,4,-2,2,0,3,2,4,2,3,3,7,5,6,8,6,6,3,9 ,1,5,1,6,0,8,-1,7,-1,7,-3,6,-5,5,-5,3,-7,1,-9 ,0,-10 ,-2,-7,-2,-8,-4,-7,-5,-5,-1,-6,2,-8,4,-10 ,5,-8,3,-4 0,0,100d,557,4,1,7,2,9 ,5,7,5,4,7,-8,8,-5,9 ,-1,8,3,8,4Track-Info  R         ,6,8,5,7,2,8,0,7,-2,5,-4,3,-6,1,-6,-2,-5,-3,-4,-6,-5,-6,-1,0,0,131,92\,-1,2,0,5,3,4,5,2,4,-1,3,-3,1,-3,0,-2,-2,-4,-1,-5,-2,-4,-4,-2,-1,-3,-3,-2,-2,3,0,0,85U,87W,4,-1,1,-2,0,0 :89Y,80P,3,1,5,-7,1,-3,-1,-4,-4,-3,-3,3,0,2,4,-2,2,3,-3,5,-4,2,-1,-3,5,-2,0,0,93],83S,5,-7,2,-6,-1,-6,-6,-7,0,0,94^,85U,5,-3,1,-3,2,-5,0,-9 ,-5,-9 ,0,0,103g,109m,6,-3,0,0,103g,107k,5,-2,0,0,101e,109m,1,2,2,1,2,1,3,-1,2,-2,-1,-4,-1,-3,-2,-2,-3,-1,-2,1,-1,3,0,4,0,0 97a,106j,2,5,4,4,3,2,4,0,3,-3,1,-4,-1,-5,-2,-4,-3,-3,-3,-2,-4,0,-3,3,-1,3,0,3,0,0,97a,86V,1,2,5,4,6,4,5,7,2,7,-2,5,0,2,9 ,3,6,5,-8,6,-5,7,-3,1,0,0,95_,89Y,5,4,-5,-4,0,5,2,4,0,0,90Z,93],3,6,4,3,0,0,98b,114r,1,3,3,2,0,0,99c,82R,7,2,6,11 ,2,5,-2,-5,1,-6,2,-9 ,0,-10 ,-3,-6,-5,-6,0,0 7100d,79O,7,0,6,3,0,0,103g,74J,3,0,5,3,-2,-9 ,-4,2,-2,0,2,0,4,-2,-2,-6,-3,3,3,-3,-2,-5,0,0,119w,81Q,2,-11 ,-4,-6,-2,-3,0,0,122z,78N,2,-6,0,-3,-3,-4,0,0,126~,77M,2,-4,-2,-4,0,0,131,136,11 ,2,12 ,-3,12 ,-6,0,0,132,132,9 ,1,13 ,-3,12 ,-9 ,0,0,134,128,7,1,13 ,-4,10 ,-7,0,0,173,110n,-1,-12 ,-4,-10 ,-5,-7,0,0,170,108l,-1,-12 ,-4,-10 ,-5,-7,0,0,167,107k,-1,-12 ,-4,-10 ,-5,-7,0,0 155,77M,-2,-9 ,-1,-7,2,-8,-1,-9 ,-3,-9 ,-4,-10 ,-6,-8,0,0,162,579,3,-14,5,-14,0,0,158,75K,-2,-11 ,2,-12 ,0,-10 ,-2,-7,-2,-17,0,0,159,71G,0,-10 ,3,-16,-1,-10 ,2,-14,0,0,151,74J,-5,-11 ,-4,-8,3,0,7,-12 ,-7,12 ,-3,0,-4,-10 ,-8,-13 ,-8,-13 ,-8,-14,0,0,144,513,6,-12 ,0,0,141,47/,6,-13 ,0,0,139,42*,6,-13 ,0,0,137,40(,8,-16,0,0,129,27,13 ,-5,0,0,127,24,13 ,-3,0,0,124|,19,16,0,0,0 Z147,76L,-6,-11 ,-4,-9 ,-2,-8,-6,-11 ,-7,-12 ,0,0,Track-Info  R         143,75K,-5,-10 ,-4,-8,-2,-8,-4,-9 ,0,0,139,74J,-5,-9 ,-3,-9 ,-1,-8,-3,-8,-3,-9 ,0,0,135,74J,-6,-10 ,-10 ,-9 ,-4,-9 ,4,9 ,10 ,9 ,-3,-8,-7,-5,-3,-9 ,3,9 ,7,5,-2,-14,-4,-13 ,0,0,119w,104h,5,1,8,-2,1,7,2,5,5,4,6,3,6,-2,-7,-3,-6,-4,-3,-5,2,-3,2,0,2,5,9 ,5,6,2,0,0,160,113q,-8,-1,-6,-4,-3,-4,0,0,162,110n,-6,-2,-7,2,0,0,161,106j,-5,-2,-7,1,0,0,161,103g,-5,-3,-9 ,1,0,0,159,97a,-7,0,-5,2,0,0,157,95_,-6,-2,-3,4,2,5,1,7,-2,3  !ꏏGRAFICO TRONCO &H0,0,122z,140,3,-7,3,-3,0,-2,0,2,-3,3,-3,7,-1,-6,-2,-3,-6,-3,-6,-2,-4,-2,-2,-3,-2,-3,-2,-4,0,-7,-2,-11 ,0,0,140,139,0,-4,3,-3,5,-3,3,-2,6,-2,4,-3,3,-5,3,-7,0,-12 ,0,0,160,96`,-2,9 ,-1,0,-2,-13 ,-3,-13 ,0,-6,3,-11 ,2,-12 ,0,0,104h,96`,1,3,0,3,1,2,0,-9 ,4,-22,-4,-16,-1,-10 ,0,0 0b110n,126~,6,-1,10 ,-1,3,-2,1,-10 ,0,-10 ,-1,-4,-4,-2,-3,0,-4,2,-6,4,-6,5,-5,3,-3,-3,3,3,0,0,149,126~,-9 ,-2,-7,-1,-1,-11 ,0,-10 ,1,-2,1,-2,2,-2,3,0,10 ,4,6,6,5,4,5,0,0,0,120x,92\,-1,-12 ,0,-20,4,-8,0,0 :125},140,1,-3,2,-2,1,-6,0,-2,0,0,130,140,1,-9 ,3,-4,13 ,1,0,0,130,140,-2,-6,0,0,135,138,2,-8,3,-2,0,0,125},133,-7,-6,10 ,-2,0,0,101e,110n,10 ,14,-10 ,-14,5,3,5,5,5,6,-5,-6,-5,-5,-5,-3,12 ,4,9 ,6,-9 ,-6,-12 ,-4,21,-1,-21,1,17,-7,5,-2 D0,0,159,110n,-10 ,14,10 ,-14,-5,3,-5,5,-5,6,5,-6,5,-5,5,-3,-12 ,4,-9 ,6,9 ,-6,12 ,-4,-21,-1,21,1,-17,-7,-5,-2,0,0,108l,102f,3,-5,3,-1,4,-7,0,0,106j,100d,2,-4,3,-2,6,-14,0,0,111o,85U,6,-11 ,0,0,111o,76L,6,-8,0,0,111o,68D,6,-8,0,0,108l,60<,5,-6,9 ,-2,0,0 N154,102f,-3,-5,-3,-1,-4,-7,0,0,156,100d,-2,-4,-3,-2,-6,-14,0,0,151,85U,-6,-11 ,0,0,151,76L,-6,-8,0,0,151,68D,-6,-8,0,0,148,60<,-5,-6,-9 ,-2,0,0,141,92\,1,-Track-Info  R         12 ,0,-20,-6,-8,0,0 X131,94^,0,-44,,0,0,131,94^,-4,-1,-4,-2,-1,-7,0,0,131,94^,4,-1,4,-2,1,-7,0,0,131,85U,-8,-3,8,3,8,-3,0,0,131,78N,-4,-1,-4,1,4,-1,4,1,4,-1,4,1,0,0,131,70F,-4,-1,-4,1,4,-1,4,1,4,-1,4,1,0,0,131,66B,-8,1,8,-1,8,1,0,0,127,535,-2,11 ,0,0,134,535,2,11 l)J=206:a1=71G:b1=68D:d1=69E:f1=73I:g1=60<:h1=65A:i1=75K:j1=66B:k1=62>:l1=77M:m1=80P:n1=63?:o1=79O:p1=78N:q1=59;:r1=76L:s1=74J:t1=70F:u1=64@:v1=61=:8080:8030^ !ꏏOPCIONES REPASO ! :345Y !-7,8;4;" QUE REPASAMOS " !a10 ,9 ;"C. CABEZA";12 ,9 ;"T. TRONCO";14,9 ;"E. EXTREMIDADES" ! 0 !="C"1000 !="T"2000 !="E"3000 ! 8620! #(ꏏPUNTUACION ALUMNOS #2 #7M$(E1)=J$(E) #< D(E1)=E #A #F 800  #KN1,1;1;7;1;" CALIFICACION DE LOS ALUMNOS " #P33,1;" N. ALUMNO PUNTOS " #U34,1;"------------------------------" #Z!E115A=115 #_E1<15A=1E1 #d>A+4,2;A:A+4,5;". ";M$(A);" ";D(A) #iA #nE115#0;1,0;"PULSA TECLA PARA SEGUIR":0:#0;1,0;" " #sVE115J=116:J+4,1;" ":J #tE115A=16E1 #xQE115(A-11 ),2;A:(A-11 ),5;". ";M$(A);" ";D(A) #zE115A #}_E1=2920,2;"FIN DE CAPACIDAD DE ARCHIVO":0:E1=1:9100# # F(A)=E1 #E1=E1+1 # 500 #ꏏSOLICITUD GRABACION #5#0;1,0;"PULSA TECLA PARA SEGUIR" $ :350^ $m9 ,9 ;"DESEAS GRABAR";11 ,6;"LAS CALIFICACIONES";13 ,11 ;"""S"" - ""N""" $ 0 $="S"9500% $ ="N"9235$ $ 9223$ $ME=1:L=0:P=0:R=0:M=0:U=0:Q=0 $ 452 $ $ꏏGRABACION DATOS % % 345Y % (8,7;"PREPARA EL CASSETTE" %"M10 ,8;"PULSA LAS TECLAS";12 ,8;"PLAY + GRABACION" %$h14,4;"GRABAMOS: 1. ALUMNOS";15,14;"2. PUNTOS";16,14;"3. NUMERO" %%514,14;1;1;" " %0"ALUMNOS"M$() %1i14,14;0;1;" ";15,14;1;1;" " %?"PUNTOS"D() %@i15,14;0;1;" ";16,14;1;1;" " %A"NU.ALUMNOS"F() %D 0 %HꏏVERIFICACION %I %J1,6;"PREPARA EL CASSETTE";2,9 ;"PULSA EL PLAY";4,9 ;1;" VERIFICANDO ";0;6,5;"CON ERROR ""GO TO 9400""" %K ""M$() %L""D() %M""F() %N 9235$ %ꏏLONGITUD PROGRAMA %HDIR=23552\:LONG=23627K\+256 *23628L\+2-DIR %LONG %ꏏGRABACION BYTES %"MUSCULOS"DIR,LONG: PLUS3DOSN 5015  31999| -A=9 :b=0:c=10 :e=0 :5:0:0 331999|:f=32000}32042*}:g:f,g:f %f=0127:g:"a"+f,g:f -A=9 :b=0:c=10 :e=0 >6;5,0;"" ?6;16,0;"Track-Info  R         " dz-------------------------------------------------------------------RUTINA----------------------------------------------- 44;A,5;"";A+1,5;"" )b=b+1:b=cb=0:2000 b=43000 76;5,31;"";16,31;"" ?.01z# =,20:A,5;" ";A+1,5;" " )="q"a>6a=a-1:490 ="a"a<14a=a+1 32000} "(a,7)=75000 *(a+1,7)=75000  200 7;6,31;"";7,31;"";8,31;"";9 ,31;"";10 ,31;"";11 ,31;"";12 ,31;"";13 ,31;"";14,31;"";15,31;"":.01z# =,20 d=(*9 )+6 )d,31;" ";d+1,31;" "  e=e+1 Fe=20e=40(e=60<e=80Pe=100dc=c-1  R4;1,29;"";2,29;"";3,29;"" U4;18,29;"";19,29;"";20,29;""  26;a,5;"";a+1,5;"" b.03{u\,10 :.01z# =,20:.06|u\,15:.01z# =,7:.02{# =,5 b.03{u\,10 :.01z# =,20:.06|u\,15:.01z# =,7:.02{# =,5 <20::7;7,7;"TUS PUNTOS SON= ";e 1:1:7::10 ,10 ;1;"PARE LA CINTA":I=115:.5,I:I::6;10 ,3;"J jugar";12 ,3;"S salir del programa" 94;1,2;"CONTROLES Q=arriba A=abajo" ="j"2  ="s" | 5020 %9-----------------------------datas codigo-------------- %33!,0,64@,85U,62>,192,6,31,35#,94^,43+,115s,35#,16,249,114r,35#,61=,32 ,242 %33!,0,88X,58:,0,91[,14,22,6,31,35#,94^,43+,115s,35#,16,249,119w,35#,13 ,32 ,242,201 %!y--------------------------------------------------------------datas graficas------------------------------------------- %&192,240,252,255,239,231,255,255,255,255,231,239,255,252,240,192 %+248,248,253,7,255,255,255,1,1,255,255,255,7,253,248,248 %030,63?,127,255,184,191,247,247,247,183,183,252,255,127,63?,30 %1247,240,247,247,7,247,247,247,0,2,2,11 ,41),44,,557,105i %50,0,161,38&,185,74J,190,104h,0,0,192,96`,240,214,524,234 %:535,239,196,222,21,557,42*,12 ,187,182,199,221,154,125},86V,211 %?148,170,84T,168,64@,178,88X,204,41),59;,6,13 ,15,0,1,0 %D138,115s,79O,212,47/,243,32 ,0,108l,36$,240,16,192,64@,0,0 Track-Info  R         PLUS3DOS6jo1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i:  9900&  3000 Nn=030:254,n:.01z# =,n:n:1:1:7: 1000 9y1,x1;" ";y,x;"";y1+1,x1;" ";y+1,x;""  x1=x:y1=y %x=x+2*(="p")-2*(="o") %y=y+2*(="a")-2*(="q") ((y,x)=13 punt=punt+100d: (y,x)15  20  n=0212:n,0;5;2;"":n:y2,x2 a Sa0y2=y2+(a=2)-(a=1):x2=x2+(a=3)-(a=4):34" ! ")y2,x2;" ";y2+1,x2;" ":31 (u=3025-1 *Q(8*u-4,171-8*y).05|L,0:punt=punt+10 +u .-y,u;0;"":.01z# =,20 /y,u;0;" " 0  x=30  y=2  y1=2  x1=30 punt=0 disp=40(  PATIO z2,30,4,4,4,4,4,4,4,4,2,2,2,2,1,1,1,1,4,4,4,4,4,4,2,2,2,2,3,3,3,3,3,3,4,4,4,4,2,2,2,2,3,3,3,3,3,3,3,3,1,1,1,1,3,3,3,3,2,2,2,2,2,2,4,4,2,2,4,4,4,4,4,4,4,4,4,4,4 !4,4,4,4,4,4,4,4,4,4,4,1,1,1,1,3,3,3,3,3,3,1,1,1,1,1,1,1,1,4,4,4,4,2,2,4,4,2,2,4,4,2,2,4,4,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,0 2000:30 !18,14;5;""  20 1n=020:254,n:.01z# =,n:n 4px=31:n=22528X23295Z-64@:n,7*:n:n=031:o=60000`:n:0 >7k=0500:20*,0;0;"" Ho=60000` R-y,x;0;"";y+1,x;0;"" \*y=y+(="a"y<20)-(="q"y>2) fe="p"y,x-10 ;0;"":.01z# =,45-:y,x-10 ;0;" " p{f=164-8*y:(244,f)ũ(244,f+8)n=020:254,n:.01z# =,n:n:2200 k punt=punt+k:x=30:y=2:2,30,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,0 2200:30 !10 ,10 ;5;""  20 1n=020:254,n:.01z# =,n:n px=31:n=22528X23295Z-64@:n,7*:n:n=031:o=60000`:n:0 *x=31:i=Track-Info  R 5000-1 .>.520*,0;0;"" o=60000` *y=y+(="a"y<20)-(="q"y>0) -y,x;0;"";y+1,x;0;""  ="p"disp `i 4000 P3000 :502,170:30,0,0,-40(,-30,0,0,20,30,0,0,-20,20,0,0,10 ,-15,0,0,10 ,30,0,-8,0,0,-20,0,20,8,0,0,-20,0,20,15,0,0,-10 ,-15,0,7,0,8,-10 ,7,0,0,20,15,0,0,-20,-15,0,502,0,-10 ,0,0,40(,-10 ,-10 ,255,255 a,b:a=2553020 a,b:3010 9 ,0 H"MANDOS:"'"Q..ARRIBA"'"A..ABAJO"'"O..IZQUIERDA"'"P..DERECHA Y DISPARO" ;:"FASE 1&3 SOLO SE PERMITE CIRCU LAR POR EL CAMINO" A"FASE 2 NO SE PERMITE COLISION SE TIENE MANDO DE DISPARO" G"FASE 4 SE PERMITE COLISION PUN- TUA LA DESTRUCCION DE ESTRELLAS" ;#0;"PULSA UNA TECLA":0::.5,0: 1n=030:254,n:.01z# =,n:n T:3,2;"TU PUNTUACION HA SIDO DE:"''';12 ;1;10 *PUNT 015,2;"PULSA S PARA NUEVA PARTIDA" "s"4030  10 & &60<,94^,92\,59;,12 ,239,90Z,99c,27,60<,112p,96`,480,32 ,24,480,129,102f,126~,60<,60<,126~,102f,129,213,192,480,188,23,155,13 ,142,85U,2,13 ,60<,233,216,177,112p,14,141,27,151,60<,176,64@,170,113q,176,217,232,61=,12 ,3,171,0 &$9900&:n="a""h":a:n,a:n & 5e4P &33!,255,87W,22,0,62>,192,6,31,43+,94^,35#,115s,43+,16,249,114r,43+,61=,32 ,242,201 &29920&:n=60000`60021u:a:n,a:n & 3 PLUS3DOSXo7:7:0::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: *0,0,502,0,125},237,67C,1,125},237,83S,3,125},237,99c,5,125},237,115s,7,125},221,34",9 ,125},253,34",11 ,125},201,201,201 L=32255}32285~ S:L,S L MONITOR DE DEPURACION 0:0:6: (S5;"MONITOR DE DEPURACION Z-80 ":5;" FRANCISCO COTO GILABERT ":"" FSELECCION DE COMANDO P-="M"" ":4;"M";" ";:200 Z="C"270 d="G"370r n="T"430 x="N"470 ="S"510 ="L"600X ="V"670 23692\,255 70F COMANDO M !X$:4;X$:"":2010 M=ZZ+79O X=M:2300 /B$(1,1);B$(2,1);" "; M " ":4;"OK":  COMANDO C "":4;"C";" "; "'X$:4;X$:" ":2010:J=Z ,X=J:2300 61B$(1,1);B$(2,1);" "; @D$ JID$="O"B$(1,1);B$(2,1):J=J+1:300, T"D$="K"" ":"":4;"OK": ^4X$=D$:2010:J,Z:D$:J=J+1:300, r COMANDO G |" ":4;"G";" "; X$:4;X$:2010 Z " ":4;"OK":  COMANDO T 8" ":4;"T";" ";:X$:4;X$:2010 sTRAMPA=Z:TRAM1=Z:TRAM2=(Z+1):TRAM3=(Z+2):Z,195:Z+1,255:Z+2,125} "":4;"OK":  COMANDO N L"":4;"N":TRAMPA,TRAM1:TRAMPA+1,TRAM2:TRAMPA+2,TRAM3 "":4;"OK":10 :  COMANDO S ,"":4;"S";:X$:4;" Track-Info  R  ";X$; 2010:O=Z X$:4;" ";X$ &2010:P=Z 0 "CSP"O,P :" " :4;"OK" D X COMANDO L b"":4;"L";" "; lX$:4;X$:2010 v""Z "":4;"OK"   COMANDO V "":4;"V":"" QX=32000}:2300:"A";" ";B$(1,1);B$(2,1) QX=32001}:2300:"B";" ";B$(1,1);B$(2,1) QX=32002}:2300:"C";" ";B$(1,1);B$(2,1) QX=32003}:2300:"D";" ";B$(1,1);B$(2,1) QX=32004}:2300:"E";" ";B$(1,1);B$(2,1) X=32005}:2300:"HL";" ";B$(1,1);B$(2,1);:X=32006}:2300:B$(1,1);B$(2,1) X=32007}:2300:"SP";" ";B$(1,1);B$(2,1);:X=32008}:2300:B$(1,1);B$(2,1) X=32009 }:2300:"IX";" ";B$(1,1);B$(2,1);:X=32010 }:2300:B$(1,1);B$(2,1) X=32011 }:2300:"IY";" ";B$(1,1);B$(2,1);:X=32012 }:2300:B$(1,1);B$(2,1) "":4;"OK"  EXA:Rutina EXA,DECI x=x$  z=0 n=x1-1  y$=x$(nn) cy$="0"y$="1"y$="2"y$="3"y$="4"y$="5"y$="6"y$="7"y$="8"y$="9"z=z+((y$)*16^(x-n)) 'y$="A"z=z+(10 *16^(x-n))  'y$="B"z=z+(11 *16^(x-n)) 'y$="C"z=z+(12 *16^(x-n))  'y$="D"z=z+(13 *16^(x-n)) *'y$="E"z=z+(14*16^(x-n)) 4'y$="F"z=z+(15*16^(x-n)) n  B$(2,1) A(2,1) N=74-1 aX>(2^N)-1A(1,1)=A(1,1)+2^(N-4):X=X-2^N .N 8A(2,1)=X BN=12 L3A(N,1)9 B$(N,1)=A(N,1) V*A(N,1)=10 B$(N,1)="A" `*A(N,1)=11 B$(N,1)="B" j*A(N,1)=12 B$(N,1)="C" t*A(N,1)=13 B$(N,1)="D" ~*A(N,1)=14B$(N,1)="E" *A(N,1)=15B$(N,1)="F" N  S2}C}S}c}s}" }" }1)="B" j*A(N,1)=12 B$(N,1)="C" t*A(N,1)=13 B$(N,1)="D" ~*A(N,1)=14B$(N,1)="E" *A(N,1)=15B$(N,1)="F" N 2PLUS3DOSHH+ꌌ A.Carmelo Rubiano - 6 -- 11 -- 84 - {1:1:7::i=115:1;10 ,10 ;"PARE LA CINTA":.5,i:i::9500% &0:6:1:0: RE=0:PA=0:VOL=0:1,1;" *ESPERE*";3,1;"A TERMINAR SU LABERINTO":a(15,25):b(15,25):c(15,25):d(15,25) d(n=115:m=125 n m=1a(n,m)=(*2) x n=1b(n,m)=(*2) "m1a(n,m)=c(n,m-1) "n1b(n,m)=d(n-1,m) Sc(n,m)=(*2):d(n,m)=(*2):c(n,m)=d(n,m)d(n,m)=0150 !n=15d(n,m)=b(1,m) !m=25c(n,m)=a(n,1) Na(n,m)=0((m-1)*8),((n-1)*8):0,8 Nb(n,m)=0((m-1)*8),((n-1)*8):8,0 Vc(n,m)=0((m-1)*8)+7,((n-1)*8):0,8 Vd(n,m)=0((m-1)*8),((n-1)*8)+7:8,0 m:n W1,1;" ";3,1;" ";4;15,26;"PASOS=";17,26;PA;6;19,26;"MONST="Track-Info  R ;21,26;RE X2:251,171:-480,0:0,-480:480,0:0,480:n(18):m(18):p=118 YCj=0:n(p)=(*15)+1:m(p)=(*25)+1 b#a(n(p),m(p))=0j=j+1 c#b(n(p),m(p))=0j=j+1 d#c(n(p),m(p))=0j=j+1 e#d(n(p),m(p))=0j=j+1 lj>2601Y vsp1.05|L,-5:7;((m(p)-1)*8)+3,((n(p)-1)*8)+3,2 w{p=1.1}L,-5:7;1;((m(p)-1)*8)+3,((n(p)-1)*8)+3,2 p %5;0,0;"TIME=0 " =j=0:g=(*15)+1:h=(*25)+1 a(g,h)=0j=j+1 b(g,h)=0j=j+1 c(g,h)=0j=j+1 d(g,h)=0j=j+1 j>2700 a$(5):b$(5):c$(5):d$(5):e$(5):f$(5):g$(5):g$(5):h$(5):i$(5):j$(5) 9000(#:p=15:f$(p)=a$(p):g$(p)=b$(p):h$(p)=c$(p):i$(p)=d$(p):j$(p)=e$(p):p:k$="":l$="":85004! &VOL=1VOL=0:7520` Yt()=((65536*23674z\+256*23673y\+23672x\)/502):t1=t() 5;0,5;t()-t1:(t()-t1)=15w=120:.05|L,-w:w:RE=RE+1:3200 :700 6x$=:x$="5"x$="6"x$="7"x$="7"x$="8"1017  1014 2000+(x$*3) 87500L:0,5;" ":t1=t():1014 0a(g,h)=0.5,-25:1015 4k$="":l$="":h=h-1:h=0h=25  3000 0b(g,h)=0.5,-25:1015 4k$="":l$="":g=g-1:g=0g=15  3060 0d(g,h)=0.5,-25:1015 4k$="":l$="":g=g+1:g=16g=1  3040 0c(g,h)=0.5,-25:1015 4k$="":l$="":h=h+1:h=26h=1  3020 Y9000(#:r=51-1:t=52-1:f$(t)=f$(t-1):g$(t)=g$(t-1):h$(t)=h$(t-1):i$(t)=i$(t-1):j$(t)=j$(t-1):t:f$(1)=a$(r):g$(1)=b$(r):h$(1)=c$(r):i$(1)=d$(r):j$(1)=e$(r):85004!:.04|# =,40(:PA=PA+1:3200 :r:1020 G9000(#:r=15:t=14:f$(t)=f$(t+1):g$(t)=g$(t+1):h$(t)=h$(t+1):i$(t)=i$(t+1):j$(t)=j$(t+1):t:f$(5)=a$(r):g$(5)=b$(r):h$(5)=c$(r):i$(5)=d$(r):j$(5)=e$(r):85004!:.04|# =,40(:PA=PA+1:3200 :r:1020 j9000(#:r=15:t=15::j$(t)=i$(t):i$(t)=h$(t):h$(t)=g$(t):g$(t)=f$(t):t .r=1t=15:f$(t)=e$(t):t .r=2t=15:f$(t)=d$(t):t .r=3t=15:f$(t)=c$(t):t .r=4t=15:f$(t)=b$(t):t .r=5t=15:f$(t)=a$(t):t J85004!:.04|# =,40(:PA=PA+1:3200 :r:1020 j9000(#:r=15:t=15::f$(t)=g$(t):g$(t)=h$(t):h$(t)=i$(t):i$(t)=j$(t):t .r=1t=15:j$(t)=a$(t):t .r=2t=15:j$(t)=b$(t):t .r=3t=15:j$(t)=c$(t):t .r=4t=15:j$(t)=d$(t):t .r=5t=15:j$(t)=e$(t):t J85004!:.04|# =,40(:PA=PA+1:3200 :r:1020 A17,26;4;PA;21,26;6;RE: 85004!:r:1020 Lg=n(1)h=m(1)T=2030:R=17:3,5;0;R;" S A L I D A ":.09}8Q,1-T+R:R:T:0:0:5 Vt=216:g=n(t)h=m(t)VOL=1:T=9 20:R=17:3,0;0;R;"H I B E R E S P A C I O":.09}8Q,1-T+8:R:T:700 `2t:3,0;" ": !46;1,26;f$;2,26;g$;3,26;h$;4,26;i$;5,26;j$;4;3,28;k$;4,28;l$: #(ea(g,h)=1a$(1)=" ":b$(1)=" ":c$(1)=" ":d$(1)=" ":e$(1)=" " #*ea(g,h)=0a$(1)="":b$(1)="":c$(1)="":d$(1)="":e$(1)=Track-Info  R "" #,ec(g,h)=1a$(5)=" ":b$(5)=" ":c$(5)=" ":d$(5)=" ":e$(5)=" " #.ec(g,h)=0a$(5)="":b$(5)="":c$(5)="":d$(5)="":e$(5)="" #01b(g,h)=1p=24:e$(p)=" ":p #21b(g,h)=0p=15:e$(p)="":p #41d(g,h)=1p=24:a$(p)=" ":p #61d(g,h)=0p=15:a$(p)="":p #80d(g,h)=0a(g,h)=0a$(1)="" #:0d(g,h)=0c(g,h)=0a$(5)="" #< %.9510&%:p="A""O"+7:O:p,O:p: %&255,255,255,255,129,129,129,255,15,15,15,15,15,15,15,15,240,240,240,240,240,240,240,240,255,255,255,255,241,241,241,255,255,255,255,255,143,143,143,255,15,15,15,15,9 ,9 ,9 ,15,240,240,240,240,144,144,144,240 %+28,8,8,62>,115s,123{,62>,72H,88X,140,10 ,62>,0,0,0,0 %0231,61=,36$,126~,231,219,126~,153,153,219,24,126~,0,0,0,0 %5231,61=,36$,126~,255,255,126~,153,153,219,24,126~,0,0,0,0 %:568,16,16,124|,106j,222,124|,18,26,491,80P,124|,0,0,0,0 PLUS3DOS B B #o1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: _23658j\,0::8,13 ;"PUNTOS";11 ,9 ;"JOSE LUIS SELVI" ;:i=0502:.02{# =,i:.01z# =,i-3:i z:0,1;"En este juego aparece una cua-dricula de 9 x 9 cuadros cuyosvertices estan definidos por puntos." (5,1;"El juego consiste en trazar la-dos de la cuadricula en turno alternativo con el SPECTRUM, de modo que cuando se completa un cuadro se obtiene un punto y ganael que mas cuadros completa." 212 ,1;"Para dar tu jugada tienes queintroducir un numero de tres ci-fras. La primera indica la filahorizontal donde inicias tu tra-zo, la segunda es la columna vertical y la tercera sera 1 si eltrazo es vertical o 0 si es horizontal." <321,0;"PULSA UNA TECLA PARA EMPEZAR." F0:6:6: Pq$=" " Z)y=020:1;q$;" ":y d/y=119:7;y,1;q$:y Ȩw=09 :1;7;1;0,2*w+1;w;20,2*w+1;w;2*w+1,20;w;2*w+1,0;w:w [1:x=12 15616:y=2016416:x,y:y:x:0 0,22;"(h,v)":220,163:-5,2:0,-4:5,2:-24,0:0,-24:2,5:-4,0:2,-5 -1,29;"0";5,24;"1" 400 t=(2*) 8t=09 ,23;"TU TURNO":500 :t=19 ,23;"MI TURNO":800  !k=0:m(10 ,10 ) <h=19 :v=19 :m(v,h)=0:v:h 921,0;3;"ULTIMA JUGADA DEL SPECTRUM" #q=2:c0=0:c1=0  d=1 57;1;17,23;"TU = ";c0;" " 57;1;19,23;"YO = ";c1;" "  c0+c181Q8000@  tk=0:.05|L,25:12 ,22;1;"Tu jugada:";14,24;" ":"Jugada: ";j$ :7;1;1;14,24;" ";j$;" " j0=j$ &Ia=(j0/100d):bb=j0-100d*a:b=(bb/10 ):c=bb-10 *b 0 5500| :(f=1Track-Info  R .3,0:520 D^1:12 +16*b,164-16*a:16*(1-c),-16*c:0 X 6500d bk>0520 #t=t+1:t=2t=1  260  4000 4F12 ,22;2;"Mi jugada:";14,24;" " R 2000 f=7;1;2;14,24;" ";a;b;c;" " p.05|L,20 z=7;1;3;21,26;" ";a;b;c;" "  6500d ^2:12 +16*b,164-16*a:16*(1-c),-16*c:0  d=d+1 #t=t+1:t=2t=0  260 d>40(21004 2c=(2*):a=(10 *):b=(10 *)  5500| f=12000  6000p  jv=02000 * 49a=09 :b=09 :c=01 > 5500| Hf=12200 R 6000p fjv=1  c:b:a q=q+1:21004 t  d<3 &h=19 :v=19 6m(v,h)<34170J @m(v,h)=35000 Jv:h hc0+c181Q8000@  ;r=0:iz=0:de=0:ar=0:ab=0 B(v*2,h*2-1)568r=r+1:iz=1 B(v*2,h*2+1)568r=r+1:de=1 B(v*2-1,h*2)568r=r+1:ar=1 B(v*2+1,h*2)568r=r+1:ab=1 r=31:16*h-4,180-16*v:16,0:0,-16:-16,0:0,16:0 r=35250 $r=3t=0c0=c0+1 -7;1;17,28;c0;" " $r=3t=1c1=c1+1 -7;1;19,28;c1;" " Ir=3v*2,h*2;1;t:m(v,h)=-1:4000  =iz=0h>1m(v,h-1)=1+m(v,h-1) =de=0h<9 m(v,h+1)=1+m(v,h+1) =ar=0v>1m(v-1,h)=1+m(v-1,h) =ab=0v<9 m(v+1,h)=1+m(v+1,h) m(v,h)=1+m(v,h) iz=0h>1m(v,h-1)=4m(v,h-1)=-1:1;2*v,2*h-2;t:c1=c1+1 de=0h<9 m(v,h+1)=4m(v,h+1)=-1:1;2*v,2*h+2;t:c1=c1+1 ar=0v>1m(v-1,h)=4m(v-1,h)=-1:1;2*v-2,2*h;t:c1=c1+1 ab=0v<9 m(v+1,h)=4m(v+1,h)=-1:1;2*v+2,2*h;t:c1=c1+1 r  f=0 ,a>9 b>9 c>1f=1: "a=9 b=9 f=1: "b=9 c=0f=1: "a=9 c=1f=1: B(2*a+1+c,2*b+2-c)568f=1:  pc=162008 z0a=0m(1,b+1)0m(a,b+1)0m(a+1,b)0t=0c0=c0+1*k -7;1;17,28;c0;" " $k=1t=1c1=c1+1 -7;1;19,28;c1;" "  ,a=0c=0m(1,b+1)=1+m(1,b+1):m(1,b+1)>32,2*b+2;1;t:k=1:m(1,b+1)=-1 1!a=0c=06550 6a=9 c=0m(9 ,b+1)=1+m(9 ,b+1):m(9 ,b+1)>318,2*b+2;1;t:k=1:m(9 ,b+1)=-1 ;!a=9 c=06550 @b=9 c=1m(a+1,9 )=1+m(a+1,9 ):m(a+1,9 )>32*a+2,18;1;t:k=1:m(a+1,9 )=-1 E!b=9 c=16550 Jb=0c=1m(a+1,1)=1+m(a+1,1):m(a+1,1)>32*a+2,2;1;t:k=1:m(a+1,1)=-1 O!b=0c=16550 Tc=16850 ^Bc=0Track-Info  R m(a+1,b+1)=1+m(a+1,b+1) h2c=0m(a,b+1)=1+m(a,b+1) r}m(a+1,b+1)>32*a+2,2*b+2;1;t:k=1:m(a+1,b+1)=-1 |gm(a,b+1)>32*a,2*b+2;1;t:k=1+k:m(a,b+1)=-1  6550 Bc=1m(a+1,b+1)=1+m(a+1,b+1) 2c=1m(a+1,b)=1+m(a+1,b) }m(a+1,b+1)>32*a+2,2*b+2;1;t:k=1:m(a+1,b+1)=-1 gm(a+1,b)>32*a+2,2*b;1;t:k=1+k:m(a+1,b)=-1  6550 @1y=021:y,21;" ":y Jc0>c1c$=" TU GANAS " Tc021m=2 ,a$="q"m=m-1:m<2m=21 xx=x+1:x>31a=120:.01z# =,a:a:f,g;" ":x=0:p=p+1375_:1000:12 5550:p=p+7:2500 :a=(m,x):f,g;" ":m,x;2;"":.01z# =,-10 :a=111110012000 w>0w=w-1:w=0t,0;"--------------------------------":.01z# =,-10 :.01z# =,40(:t,0;" ":t=m2000 a=00111000812 Aa=00111011;.1}L,10 :p=p+500:2500 Ba=00111100<.1}L,20:p=p+1000:2500 Ba=00111101=.1}L,30:p=p+1500:2500 ( 12 w=0:t,0;" ":2010:2500 :a=16:a(),b();1;1;1;"":a:a=15:3;a(),b();"":a:a=14:a(),b();4;"":a:a=13:a(),b();5;"": Јa=40(-20-2:.01z# =,a:a:m,x;" ":n=n-1:2010:m=12 :x=0:m,x;" ":n>012 Ҁ1;10 ,0;" Ha finalizado ":#1;1;1;"Pulse una tecla":0:10 Ib$="":2;1,12 ;" Track-Info  R  ";1,12 ;b$(n): #1,3;a$(p):p>qq=p 1,22;a$(q)  A=15:A$ GE=1152:B=A$(E)-480:B>9 B=B-7 3C=A$(E+1)-480:C>9 C=C-7 HB=B*16+C:"A"+(E-1)/2+8*(A-1),B:E:A: b(*9 )=0w=0w=(*10 +1):t=(*20+2):t,0;""  'b:"FE70301F1F3070FE","183C4A527E42FF99","0024428181422400","0018186666181800","3C4299A5A599423C" PLUS3DOS  1:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I::pm=0:10 ,8;"ESPERE UN MOMENTO"  4000 )pt=0:m=0:z$="":v=5 9 :h=0 x=1:y=15 d'b$=" " i'a$=" " x621,0;".O.O.O.O.O.O.O.O.O.O.O.O.O.O.O.O" 0,1;"Vidas=5" !0,15;"";"Mesas=0" h$="" n=0600X %b$=b$(232 )+b$(1) &a$=a$(31)+a$(131) ]0;10 ,0;a$;18,0;a$;7,0;b$;15,0;b$ 70;8,0;,,,,;16,0;,,,, 1000 x,y;h$ A(x+1,y)=79Oh121,y;"":3000 Hh0x=1y=15h=0:h$="":0.05|L,20 0,28;n ,n - 9000(# s$=:s$""z$=s$  x,y;"" z$="q"y0y=y-1  z$="p"y31y=y+1  z$="w"x20x=x+1 z$="o"x1x=x-1 [((x,y)" ")(x=7x=15x=10 x=18).2~L,-20:2000 L  v=v-1 Ov03,3;"SE TE ACABARON LAS VIDAS":v=1:9000(# 0,7;v  h=1:h$="" .05|L,30 m=m+1 0,22;m  <m=144154:n=07:q:m+n,q:n:m K480,557,2,124|,176,480,480,120x Q128,128,128,128,128,128,128,255 K535,535,7,122z,180,480,480,120x 63?,99c,67C,255,255,255,60<,24,63?,63?,63?,63?,255,63?,60<,24,255,255,255,255,255,255,0,0 255,255,255,255,255,255,60<,24,252,198,194,255,255,255,60<,24,252,252,252,252,255,252,60<,24 Ð0,0,0,7,31,255,255,480,0,0,0,224,240,254,255,12 ;2,12 ;"BAR-MAN";5,4;"Tienes que servir todas las mesas y despues volver a la puerta . Pero ten cuidado con los camiones y con que el tiempo no llegue a 600" 514,1;"o=arriba-w=abajo-q=izq.-p=dcha." %20,6;"Pulsa una tecla" =""4070  Gn=02558:n,0:7;0,175:n Gn=01758:0,n:0;255,0:n  \Track-Info  R =""4700\ #(,1;5,6;"FIN DE PARTIDA" #2'n=-2020:.03{u\,-n:n #<pt=(v*m)*100d #Fpt>pmpm=pt #P?12 ,5;"Puntos=";pt;14,5;"Record=";pm #Un=0300,:n #Z ::2 PLUS3DOSq(H(o1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: 2hi=0:5000 F"DEBES ENCONTRAR ESTA COPA ":"QUE ESTA PERDIDA . ":'"CUIDADO CON QUEDARTE ENCERRADO. ":''"Q-ARRIBA","A-ABAJO","O-DERECHA","I-IZQUIERDA":'''"PULSA ENTER":0 P0:0:7: UE"NIVEL DE DIFICULTAD (1-10)? ";di:di<1di>10 85U Z%cl=(*5)+3:sc=0 dllv=5:tr=0:a=10 :b=13 :hb=0:p1=1:p2=1:p3=1:p4=1 i 1010 n a,b;cl;1;"";0 x tp=tp+1:pk=23560\ }Jpk=97aa<18a,b;cl;"":a=a+1:a,b;cl;1;"" Jpk=113qa>3a,b;cl;"":a=a-1:a,b;cl;1;"" Jpk=105ib>3a,b;cl;"":b=b-1:a,b;cl;1;"" Kpk=111ob<21a,b;cl;"":b=b+1:a,b;cl;1;"" (b*8+4,(21-a)*8+2)=0.005y# =,557:a,b;"";a,b;1;"":sc=sc+17:7,27;sc D.0009vkC,16:tp>19ƺ(*3)=03000 ua=3(b=11 b=12 )p4=1ƾ23560\=113qa=18:1000:p3=1:1010 ta=18(b=11 b=12 )p3=1ƾ23560\=97aa=3:1000:p4=1:1010 ub=3(a=10 a=11 )p1=1ƾ23560\=105ib=21:1000:p2=1:1010 ub=21(a=10 a=11 )p2=1ƾ23560\=111ob=3:1000:p1=1:1010 Ltr=1ta+3>ata-1btb-11Track-Info  R 20+*1,3+*3;"":*2>1*1,3+*3;"" $y*2>1*1,14+*3;"":*2>1.5@20+*1,14+*4;"" ) 0 .hb>di*10 sc>200010 ,11 ;cl;1;"";11 ,11 ;"":20,0;1;"LO CONSEGUISTE, YA ERES AMO DEL ";21,0;"CASTILLO AZAZOTH.!!!!!":3160X Bn=011 :(*3)=1(*16)+3,(*19)+3;cl;0;(144+(*7)) Ln:110n :r=80-1:.05|L,15:96`-8*r,80P-8*r:16+16*r,0:0,16+16*r:-16-16*r,0:0,-16-16*r:r r=08:.05|L,25:1:96`-8*r,80P-8*r:16+16*r,0:0,16+16*r:-16-16*r,0:0,-15-16*r:r:0  1000  1010 …p1=13500 :rj=05,83S:18,1:5,93]:18,-1:p1=0:3200 ̋p2=13500 :rj=0194,83S:-18,1:194,93]:-18,-1:p2=0:3200 ֆp3=13500 :rj=091[,5:1,18:101e,5:-1,18:p3=0:3200 p4=13500 :rj=091[,170:1,-18:101e,170:-1,-18:p4=0:3200 &p1+p2+p3+p4+tr0tp=0: 'lv=lv-1:lv=03150N |0,0;1;" HAS PERDIDO UNA VIDA. SIGUE!. ":n=-60<69E:.01z# =,n:n:1000:1010 tp=0: NI0,0;1;"YA NO SALDRAS NUNCA.";10 ,27;"0" X%sc>hihi=sc:13 ,27;hi bx;1;#0;" PULSA UNA TECLA PARA EMPEZAR. ":n=060<:.009ztj,n:n:0:0:80P /n=14:.005y# =,-5*n:n: rj=(*3):  n=020:w$ m=07  a:w$+m,a m:n 7"r",24,44,,44,,24,254,36$,36$,108l,"s",24,524,524,24,127,36$,36$,546,"t",24,60<,60<,24,126~,36$,36$,36$,"u",24,36$,60<,24,126~,36$,36$,102f "k",0,127,145,145,255,136,72H,63?,"l",0,252,18,18,255,134,132,252,"g",8,24,254,136,156,546,502,60< @"a",255,253,122z,122z,524,16,60<,126~,"b",110n,145,44,,86V,170,84T,40(,16,"c",11 ,12 ,8,28,546,546,58:,28,"m",156,162,190,136,254,137,148,162 "e",568,16,16,568,68D,68D,124|,124|,"f",8,8,20,36$,66B,231,239,70F,"d",2,3,4,4,60<,246,255,62> "h",162,148,137,254,136,190,162,156,"i",255,16,150,85U,61=,85U,150,32 ,"j",4,105i,170,188,170,105i,8,255 B"n",15,568,63?,63?,252,184,154,158,"o",240,12 ,252,252,127,125},121y,121y,"p",158,248,15,15,3,1,7,63?,"q",121y,63?,240,240,192,128,224,252 | Track-Info  R PLUS3DOSRQQ*********************** ** S E N E T ** ** ** **  J.A. ELOSU 1985 ** *********************** o1:1:7::1;10 ,10 ;"PARE LA CINTA":I=115:.5,I:I: 71000:236099\,30:23658j\,8  MENU  4:4: #&1;7;0;4,10 ;" M E N U ";8,3;"[1] REGLAS DEL JUEGO ";10 ,3;"[2] JUEGO SPECTRUM-HUMANO ";12 ,3;"[3] JUEGO ENTRE HUMANOS ";14,3;"[4] JUEGO INTERRUMPIDO ";16,3;"[5] ACABAR " (A#1;8;1;1;7;" DIGITAR OPCION " -A="".1}L,20:.1}L,10 :300,:45- 2="1"0:900 7 ="2"MOD=1:5000 < ="3"MOD=0:2000 A="4"200 F ="5" Z 45- d GRABACION JUEGO  iZ#0;1;1;7;"PULSA: (G)rabar(C)ontinuar(M)enu":0:0 n="G"130 s="C"2030 x="M"1600@:30 } 105i P#1;1;7;" ## PULSA 7 VECES ## ":0:0 >"QQ"Q():"LL"L():"OO"O():"GG"G$():"CC"C$():"WW"W() =1;1;7;" CONTINUAS JUGANDO (S/N) ? ";R$ R$="N"1600@:30 R$="S"2020 145  CARGA DE JUEGO  O1;6;20,1;" CARGA JUEGO OPCION (2 o 3) ? ":0 +="2"MOD=1:6000p:230 ="3"MOD=0:230 210 z:1;9 ,5;" STAR TAPE Y ENTER ":0:1;7;9 ,5;" " G4:"QQ"Q():"LL"L():"OO"O():"GG"G$():"CC"C$():"WW"W() 10:INICIO=0:9000(#:9800H& {1;W(1);9 ;2,1;C$(1):1;W(2);9 ;2,22;C$(2) M#1;1;7;" EMPIEZA:[1]";G$(1);"[2]";G$(2);" " 0:0  ="1"TUR=1:2020 ="2"TUR=2:300, " 260 ,MOD=02020 6 5030  INSTRUCCIONES  7:0 01;0;7;0,0;N$ u4,0;" El SENET es un juego de tablero para dos personas que se jugaba en el antiguo Egipto. Juego de inteligencia, mas que de azar, y de larga duracion se le consideraba con sentido reli gioso,ya que los movimientos de las piezas en el tablero repre- sentarian las vicisitudes del alma humana en su viaje al mas alla. " S$:" No existen documentos egipcios que expliquen exactamente como se jugaba, pero el arqueologo suizo Gustave Jequier ha elabo- rado unas reglas, corroboradas por el egiptolista Edgar Pusch." H#1;1;6;" PULSA UNA TECLA PARA CONTINUAR ":0 4,0;" Es un juego de carreras ,en el que gana el jugador que logra sacar primero todas las fichas del tablero. " S$:1;" Cada uno tiene 5 fichas, rojas o negras y se mueven en forma de S invertida. Es decir: A0 a A9 - B9 a B0 - C0 a C9 " nS$:" Se colocan en las casillas del A0 al A9, las ROJAS en los pa- res, las NEGRAS en los impares." qS$:1;" La ficha elegida es la corres- pondiente a: FILA.....( A-B-C ) COLUMNA..( 0 a 9 )"  S$:0 u4,0;"EL movimiento de fichas es segunla puntuacion obtenida de cuatrodados de dos caras,roja y negra." 2;" 1 cara blanca - 1 punto 2 caras blancas - 2 puntos 3 caras blancas - 3 puntos 4 caras blancas - 4 puntos 4 caras negras - 6 puntos " S$:"Los jugadores tiran alternativa-mente los dados hasta que uno deellos saca 1 punto. Se adjudicalas negras y mueve obligatoria-mente de la casilla A9 a B9. " 2;" 1-4-6 puntos: se mueve ficha y se tira de nuevo. 2 - 3 puntos: se mueve ficha y se pasa el turno."  0 1;4,0;" Cuando una ficha va a parar a una casilla ocupada por otra e- nemiga, esta tiene que retroce- der a la casilla que la primera acaba de abandonar. " 2;S$:1Track-Info  R ;" Dos fichas de un mismo color nopueden estar en la misma casillapero si estan en casillas conse-cutivas estan protegidas contraun cambio de las enemigas. " 2;S$:1;"Si son tres las fichas seguidas,no pueden ser atacadas ni sobre-pasadas por las fichas enemigas,pero si permiten el paso de lasde su color. " 2;S$:0 ƾ2;4,0;"Las tiradas de dados que no pue-dan ser utilizadas para avanzarhacen retroceder la ficha,no pu-diendose hacer si la casilla es-ta ocupada, en ese caso se pasa." ʓS$:1;"(@)-Casilla C6, el cepo, las fi-chas que caigan en el deben vol-ver a empezar desde la primeracasilla libre. " m6;"(#)Casillas C5-C7-C8,refugios enlos que ninguna ficha puede seratacada. " БS$:5;" Cuando un jugador ha colocado todas sus fichas en la ultima fila, puede ir sacandolas cu- ando llegen a la casilla C9(^)." Y0:1;0;7;4,0;" ***TECLAS A UTILIZAR*** " ך2;S$:1;" --: Coordenadas ficha a <0 a 9> mover. ----: Retroceso de ficha.

----: Paso de la jugada. " 1;" ----: Interrumpir partida. (G)rabar partida para continuarla en otro momento mediante la opcion (4) del menu. (C)ontinuar la partida (M)enu. " 61;1;" # LAS ENTRADAS EN MAYUSCULAS # " C2;S$:1;5;" despues de cada opcion." _1;2;7;" NO INTENTES HACER TRAMPAS NO PODRAS HACERLO " w0:#1;1;1;;0;7;" PULSA UNA TECLA PARA MENU ":0:4:30  VARIABLES  gN$=" " 'S$=" " T$=" " X(30):Y(30)  P=1 X=612 6 Y=2293 X(P)=X:Y(P)=Y  P=P+1 Y:P=21:X $ P=11 )Y=292-3 .X(P)=9 :Y(P)=Y 8 P=P+1 =Y LD$(9 ,32 ) VD$(1)=" NO HAY FICHA" `&D$(2)=" ESA NO ES TU FICHA " j'D$(3)=" TE SALES DEL TABLERO" t.D$(4)=" VAS A CAMBIAR UNA FICHA TUYA" ~!D$(5)=" JUGADA ILEGAL" /D$(6)=" FALTAN FICHAS PARA PODER SALIR" -D$(7)=" MIRA MEJOR - PUEDES AVANZAR" /D$(8)=" TRAMPOSO !!! PUEDES RETROCEDER" #D$(9 )=" ENTRADA ERRONEA" V$(29,2) @ VARIABLES INICIALES  J2G$(2,8):INICIO=1:TUR=1 ^ Q(30) c,X=19 2:Q(X)=2:X h-X=210 2:Q(X)=0:X m&X=11 30:Q(X)=6:X w4L(2):L(1)=0:L(2)=0 |4O(2):O(1)=0:O(2)=0   JUEGO HUMANOS  Q1;7;0;20,0;"NOMBRE JUGADORES MAXIMO 7 LETRAS" 21;7;" [ JUGADOR 1 ] ";G$(1) 21;7;" [ JUGADOR 2 ] ";G$(2) :9000(#:9800H&  9200# 9.1}L,15:.1}L,10 :.1}L,25 51;7;" FICHA A MOVER ? o [R-P-I] ";R$ R$=""2025 ,R$="R"6700,:6850:7400 ,R$="P"6700,:7000X:2180 R$="I"100d  2500  F=I+PUNT %Q(I)=6D=1:9990'  $Q(I)W(TUR)D=2:9990' %#F>30D=3:9990' *"Q(I)=Q(F)D=4:9990' 4 8000@ 9&LEGAL=1D=5:9990' >Q(F)=62135W C 8100 H&LEGAL=1D=5:9990' R9500%:2180 W3F=30L(TUR)=59700%:2180 \#F=30D=6:9990' p$F=279600%:2180 z 85004!  3100 MOD=02020  5030  CONVERSION CASILLA   Z=129 V$(Z) R$=V$(Z)I=Z: Z D=9 :9990' "A0","A1","A2","A3","A4","A5","A6","A7","A8","A9","B9","B8","B7","B6","B5","B4","B3","B2","B1","B0","C0","C1","C2","C3","C4","C5","C6","C7","C8"  CAMBIO JUGADOR  &*PUNT=1PUNT=4PUNT=6 0TUR=1TUR=2: :TUR=1: Track-Info  R  JUEGO MAQUINA-HUMANO  51;7;" NOMBRE (max. 7) ? ";G$(1) G$(2)="SPECTRUM" &:6000p:9000(#:9800H&  9200# TUR=12025 Q#1;1;1;7;1,4;" ...estoy pensando. " 'FS=0:FE=0:FINAL=0  X=129:DE=0 Q(X)=65290 .Q(X)W(TUR)FE=FE+1:DE=X:5290 *FS=FS+1:MJ=0:I=X:F=I+PUNT F>305290 Q(I)=Q(F)5290 @F=30L(2)=50:9700%:5400 F=305290  8000@ LEGAL=15290 Q(F)=65120  8100 LEGAL=15290 MJ=MJ+10 <F=27FINAL=0FINAL=-1:II=I:5290 F=275290 /I<21L(2)=4MJ=MJ+10  (I<4Q(F)6MJ=MJ+10 I<45270 ?F>20I<21L(2)=40:5330 'F>25I<26MJ=MJ+15 F>275280 dI=26Q(25)=W(2)Q(24)W(2)L(1)>2FE>25280 #<F>20L(1)=5Q(F)6MJ=MJ+15 (=F>20Q(I+2)W(2)PUNT=15280 -KF>20PUNT2(Q(I)=Q(I+1)Q(I)=Q(I-1))5280 /NF>20(Q(I)=Q(F+1)Q(I)=Q(F-1))MJ=MJ+15:5280 2+F>20L(1)>15280 7((Q(I)=Q(I+1)Q(I)=Q(I+2))(Q(I)=Q(I+1)Q(I)=Q(I-1))(Q(I)=Q(I-1)Q(I)=Q(I-2)))MJ=MJ+3*FE:5215_ 1Q(I-1)W(2)Q(I+3)=W(2)MJ=MJ+5*FE:5280 AK(FE>1Q(I-2)=W(2)Q(I+1)=W(2))5195K FPUNT=25330 KHFE>1Q(I-1)=W(2)Q(I+2)=W(2)5280 PBFE>2Q(I-1)W(2)MJ=MJ+3*FE:5280 UQ(I+1)W(2)PUNT>1FE>2(Q(F+1)=W(2)Q(F-1)=W(2))MJ=MJ+5*FE:5280 Z!MJ=MJ+3*FE*FS:5280 _((Q(I)=Q(F+1)Q(I)=Q(F+2))(Q(I)=Q(F+1)Q(I)=Q(F-1))(Q(I)=Q(F-1)Q(I)=Q(F-2)))5225i dPUNT<3((Q(I-1)W(2)Q(I+2)W(2))(Q(I-2)W(2)Q(I+1)W(2)))5225i fMJ=MJ+8*FE:5280 iF(Q(I)=Q(I+1)Q(I)=Q(I-1))MJ=MJ+2*FE:5240x nMPUNT=2FE>2Q(I-1)W(2)MJ=MJ+10 :5280 s#MJ=MJ+FE*(5-FS):5280 x4(Q(I)=Q(F+1)Q(I)=Q(F-1))5270 }+FE>2MJ=MJ+2*FE*(5-FS) MJ=MJ+5*FE:5280 MJ=MJ+15/(I-DE)  MJ=MJ+V(I) MJ>FINALFINAL=MJ:II=I FS5-O(2)X FINAL=07000X  0 ÓFINAL=0#1;1;1;7;1,7;" NO PUEDO MOVER ":Z=125:.01z# =,Z:Z:0:5400 I=II:F=I+PUNT $F=279600%:5400 &Q(F)=685004!:5400 9500%:5400 CAMBIO DE TURNO ,4PUNT=2PUNT=3TUR=1:2020 6 5030 pVALOR DE LAS CASILLAS u V(29) z T=1 V=35#29-1 V(T)=V:T=T+1 V  V=2513 -1.5@ V(T)=V:T=T+1 V V=15212 V(T)=V:T=T+1 V V=1517.5 V(T)=V:T=T+1 V BV(26)=25:V(28)=30:V(29)=15  , COMPROBACION PASO  6 FI=0 @X=129 JI=X:F=I+PUNT TQ(I)W(TUR)6830 ^FI=FI+1 hF>306830 rQ(I)=Q(F)6830 | 8000@ LEGAL=16830 C(Q(F)=6F30)(F=30L(TUR)=5)6840 F=306830  8100 LEGAL=06840 FI5-O(TUR)X  D=7:9990'  RETORCESO LEGAL  81;1;7;" FICHA A RETROCEDER ? ";R$  2500  F=I-PUNT %Q(I)=6D=1:9990' $Q(I)W(TUR)D=2:9990' "F<1D=3:9990' "Q(I)=Q(F)D=4:9990'  7700 &LEGAL=1D=5:9990' Q(F)=6 D=Track-Info  R 5:9990' X%COMPROBACION RETROCESO  FI=0:II=0 X=229 I=X:F=I-PUNT Q(I)W(TUR)7200  FI=FI+1 F<17200  Q(I)=Q(F)7200   7700 LEGAL=17200  Q(F)=67250R  FI5-O(TUR)X *)MOD=0(MOD=1TUR=1) 4 7290z R@(MOD=0)(MOD=1TUR=1)D=8:9990' \I<217310 fF<20II=I:7285u k#F=27II07295 p 7310 uX zII=0 I=II  F=I-PUNT 0:7400  RETROCESO FICHA  $F=279600%:7500L  85004! .I>20F<21L(TUR)=L(TUR)-1 V 3100 `MOD=02020 j 5030  RETROCESOS ILEGALES  F<3F=3 #R=0:LEGAL=0 ( Y=I-1F-2-1 -/Q(Y)=6Q(Y)=Q(I)R=0:7740< 2 R=R+1 7&R=3LEGAL=1:7745A <Y FF=3F=I-PUNT P @ AVANCES ILEGALES  A J3 FICHAS SEGUIDAS ^ DEFENSA=0:LEGAL=0 hI>23 mI=23F=24 rZ=I+1F+2 |5Q(Z)=6Q(Z)=Q(I)DEFENSA=0:8080 DEFENSA=DEFENSA+1 ,DEFENSA=3LEGAL=1:8085 Z I=23F=23+PUNT  2 FICHAS SEGUIDAS LEGAL=0 3F=26F=28F=29LEGAL=1: 6Q(F)=Q(F+1)Q(F)=Q(F-1)LEGAL=1:  !4 AVANCE FICHA  !pg1;6;W(TUR);X(I),Y(I);"":Z=115:.01z# =,Z:Z:6;X(I),Y(I);"" !ze1;6;W(TUR);X(F),Y(F);"":Z=110 :.1}L,Z:Z:W(TUR);X(F),Y(F);"" !.F>20I<21L(TUR)=L(TUR)+1 !Q(F)=Q(I):Q(I)=6 ! #( TABLERO  #*6:0 #-'Z$="" #28X=021:2;4;X,0;Z$:X #7W0:0,175:255,0:0,-175:-255,0 #< a$="" #A b$=" " #F e$="" #Px=513 3 #Uy=1283 #Z26;x,y;a$;x+1,y;b$;x+2,y;e$ #_y:X #n1;7;14,17;"#";14,20;"@";14,23;"#";14,26;"#";14,29;"^" #x`N=0:X=2293:1;0;7;4,X;N:N=N+1:X #}\1;0;7;6,0;"A";9 ,0;"B";12 ,0;"C" # FICHAS INICIALES  #-Z=129:Q(Z);X(Z),Y(Z);"":Z #1;0;7;15,2;" T U R N O ";19,2;" PUNTOS: ";16,2;" ";17,2;" ";17,12 ;"";18,2;" " # # AZAR FICHAS  #61;7;0;17,4;G$(TUR) #!0;19,11 ;"" $INICIO=0(MOD=0(MOD=1TUR=1)).3,10 :1;1;6;0;17,19;" PULSA ";18,19;"TIRADA DE";19,19;" DADOS ":0  $X=1620 $"%1;7;X,17;T$:X $, F$="" $1X=17 $6#9400$:17,19;F$ $;#9400$:17,25;F$ $@#9400$:19,19;F$ $E#9400$:19,25;F$ $JX $T[TOT=((17,19)+(17,25)+(19,19)+(19,25)) $YTOT=130PUNT=1 $^TOT=132PUNT=2 $cTOT=134PUNT=3 $hTOT=136PUNT=4 $mTOT=128PUNT=6 $r41;0;7;19,11 ;PUNT $wINICIO1 $|PUNT=19360$ $ 502 $&TUR=1TUR=2:9200# $TUR=1:9200# $!C$(2,9 ):W(2) $%C$(TUR)=" NEGRAS ":W(TUR)=0 $FTUR=1C$(2)=" ROJAS ":W(2)=2:9380$ $-C$(1)=" ROJAS ":W(1)=2 $INICIO=0:1;W(1);9 ;2,1;C$(1):1;W(2);9 ;2,22;C$(2) $$I=10 :F=11 :85004! $MOD=02020 $ 5030 $TIRADA AZAR $C=(*2) $C=12 $C=00 $.01z# =,7: % INTERCAMBIO FICHAS  %: QF=Q(F) Track-Info  R %Dg1;6;W(TUR);X(I),Y(I);"":Z=115:.01z# =,Z:Z:6;X(I),Y(I);"" %Nf1;2;0;X(F),Y(F);"":Z=110 :.1}L,Z:Z:W(TUR);X(F),Y(F);"" %Xb1;6;QF;X(I),Y(I);"":Z=14:.1}L,5:Z:QF;X(I),Y(I);"" %]Q(F)=Q(I):Q(I)=QF %b(F>20I<21) %gL(TUR)=L(TUR)+1 %l,TUR=1L(2)=L(2)-1 %q,TUR=2L(1)=L(1)-1 %v % CASILLA 27  %P=110 % Q(P)=6FF=P:9650% %P %e1;6;Q(I);X(I),Y(I);"":Z=115:.01z# =,Z:Z:6;X(I),Y(I);"" %Z=19 :1;7;Z;X(27),Y(27);"":.1}L,Z+5:.1}L,Z+15:Z:6;X(27),Y(27);"" % Q(I)=6:I=27:F=FF %d1;6;W(TUR);X(F),Y(F);"":Z=15:.1}L,Z:Z:W(TUR);X(F),Y(F);"" %L(TUR)=L(TUR)-1 % Q(F)=W(TUR) % % CASILLA 30  %g1;6;W(TUR);X(I),Y(I);"":Z=115:.01z# =,Z:Z:6;X(I),Y(I);"" %c1;1;6;0;17,19;" FICHA ";19,19;" FUERA " %1;7;W(TUR);12 ,29;"":Z=115:.01z# =,Z:.01z# =,10 :.1}L,20:.01z# =,15:Z:6;12 ,29;"" &O(TUR)=O(TUR)+1 & Q(I)=6 & 9845u& &H FICHAS FUERA  &\P1;5;1,1;" ";G$(1);" ";G$(2) &fj1;5;1,15;"";1,16;"";1,9 ;"";1,22;"" &k71;5;2,10 ;"" &uM1;7;1,11 ;O(1);1,20;O(2) &zO(TUR)=59870& & & GANADOR  &b1;1;W(TUR);9 ;17,19;" GANADOR ";19,19;" ";G$(TUR) &g1;1;W(TUR);9 ;3,3;" GANADOR :: ";3,19;G$(TUR);" " &X=10 184:Z=10 202:.1}L,8:.1}L,Z:.1}L,15:.1}L,Z-5:.1}L,X:.1}L,10 :.1}L,18:.1}L,Z:Z:X &?#1;1;6;" PULSA UNA TECLA PARA MENU " &0:1600@:30 ' JUGADA ILEGAL  '[#1;1;1;7;D$(D):S=130:.01z# =,S:S:2025 PLUS3DOSm1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i i"RESOLUCION DE ECUACIONES DIFE- RENCIALES ORDINARIAS DE PRIMER ORDEN POR EL METODO DE RUNGE - KUTTA" (5,4;"Ecuacion: dY/dX= ?" D"Entre la funcion derivada. Utilizar X e Y como argumentos ";A$ 5,21;A$ K(X?,YS )=A$ &"Valor inicial y final de X? ";X0,XN "Valor inicial de Y? ";Y0 "No. de puntos? ";N G"Quiere imprimir los puntos por pantalla? ";C$:FLAG=(C$="S"C$="s") %FLAG15;"UN MOMENTO" h=(XN-X0)/(N-1) P(N,2) .P(1,1)=X0:P(1,2)=Y0 !H2=H/2 & I=2N +2XC=P(I-1,1):YC=P(I-1,2) 0K1=K(XC,YC) :K2=K(XC+H2,YC+H2*K1) DK3=K(XC+H2,YC+H2*K2) NK4=K(XC+H,YC+H*K3) X9P(I,2)=YC+H/6*(K1+2*K2+2*K3+K4) bP(I,1)=XC+H l)FLAG=1P(I,1),P(I,2) I  ** GRAFICA ** HXMIN=P(1,1):XMAX=XMIN:YMAX=P(1,2):YMIN=YMAX  I=2N 2P(I,1)>XMAXXMAX=P(I,1):4050 &P(I,1)YMAXYMAX=P(I,2):4070 &P(I,2)30y=30 y<0y=0 x>179000(# "!x>4y<79000(# ,x,y;2;a$ 6Ox=17y=26x=17y=27Track-Info  R x=17y=289000(# @1,7;v J#hom=04,6;"" T"x=4y=6hom=1 ^Whom=1x=17y=24p=p+(*502):hom=0:0,7;p rx<10 y<20al=(2+4*):la=(7+10 *):al,la;0;"":.009ztj,-24:al,la;" ":x=aly=la90102# |Gmas=(*150):mas=12 pio=1:17,18;"" Spio=1y=18x=17p=p+125}:pio=0:0,7;p m,30;"" @x>mm=m+.4L:m-.4L,30;" ":m,30;"" @xx-2swe=2m=m:6000p v N ******* *FINAL* ******* 10 ,13 ;"GAME OVER":f=0-30-1:.05|L,f:.05|L,f+5:f:21,1;"PARA VOLVER A JUGAR PULSA (S)" ="s"Ŧ="S"  ="n"  1020 :3:3: '0,0;1;1;" MARCO ANTONIO ARROYO RAMIREZ" 9 ,0;"TIENES QUE RESCATAR A LA GENTE QUE CONSIGUE HUIR DE LA INVASIONDE LAS TROPAS RUSAS,Y LLEVARLAS AL BARCO.PERO TEN CUIDADO,HAN PUESTO UN TANQUE EN LA MURALLA PARA EVITAR EL RESCATE." 16,2;" DERECHA..........P IZQUIERDA........I PARADO...........O ABAJO............A ARRIBA...........Q" ?21,1;"PULSA UNA TECLA PARA CONTINUAR":0: p#kkk=(21-m)*8-3 z1;240,kkk:1;-200,0:.005y# =,35#:1;240,kkk:1;-200,0:m,30;" ";m-1,30;" ";m+1,30;" " m+1=x90102#  #(N ******* *FALLO* ******* #21x,y;"":f=2428:.005y# =,f:f #<)h=h-1:t=v:h=01005 #Ft=v # 100d PLUS3DOS-X***********************  DESENSAMBLADOR Z-80   ANTONIO OCON-1985 *********************** o7:7:0::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: 9900&  ** ENTRADA DE DATOS ** ?" INTRODUCCION DE DATOS":"Direccion de comienzo..";d:n=d "Numero de Bytes..";f:f=f+d #s=0:p=2 (F:"DIRECCION INSTRUCCION ________________________________" d** LECTURA ** na=n x1n2=0:inded=0:indix=0:n$="" }** es IX o IY? ** a=2213010 a=2533020 ** Es CB? ** a=2031000 ** Es ED? ** a=2372000 ** ES ITERATIVA? ** #a>63?a<192400 ** CASO NORMAL ** m=(a/10 ) r=a-10 *m (9000(#+m+inded) i=0r a$ i ** LLEVA NUMERO? ** a$(1)="2"750 a$(1)="1"700 "** IMPRESION ** 'indix01270 ,&A$(1)="*"A$=A$(2)+")" -3;N;12 ;a$ /rp=p+1:p=22p=0:#1;" COPY (S/N)":dirsi=3062:dirno=3084:9500% 0 3084 2: 4$indix0indix=indix-1 6n=n+n2+1+indix @n>f340T J100d:goto Lectura S** FIN Track-Info  R  ** TR#1;" Otra Direccion (S/N)?":dirsi=10 :dirno=350^:9500% ^"" Teclee RUN para continuar": ** CALCULOS ITERATIVOS** ** a>63 y a<192 ** a>127540 ** a>63 y a<128 ** m=((a-64@)/8) r=a-64@-(m*8)  9110#  i=0m a$:i  9110#  i=0r b$:i a$="ld "+a$+","+b$ a=118va$="halt" 290":goto imprime  ** a>127 ** &m=((a-128)/8) 0r=a-128-(m*8) : 9100# D i=0m Na$:i X 9110# b i=0r lb$:i v a$=a$+b$ 290":goto imprime ** SUB. ANADE 1 NO. **  n2=1 num=(n+1) (a=211a$="out ("+(num)+"),a": 780   ** SUB. ANADE 2 NOS. **  n2=2 )num=(n+2)*256+(n+1)  a$=a$(2)+(num) %a=34"a$="ld ("+(num)+"),hl"  $a=502a$="ld ("+(num)+"),a" *inded=0 4'a=67Ca$="ld ("+(num)+"),bc": 9'a=83Sa$="ld ("+(num)+"),de": >'a=99ca$="ld ("+(num)+"),hl": H(a=115sa$="ld ("+(num)+"),sp": R ** CB **  n=n+1 a=n m=(a/8) r=a-(m*8) $a>63?1160 . ** CB<64 ** 8 9120# B i=0m La$:i V 9110# ` i=0r jb$:i t a$=a$+b$ ~1260:goto imprime  ** CB>64 ** y=(a/64@)-1 x=m-(8*(y+1))  9130#  i=0y a$:i  9110#  i=0r b$:i a$=a$+(x)+","+b$ :indix=0290":goto imprime ** CAMBIA HL-(IX+D) ** top=a$-1  c=1top p$=a$(cc+1) p$="hl"1340< (c -** ERROR ** 2.5,-15:.5,-20::1;"Desensamblado imposible en esta zona,revise la rutina e intro- duzca otra direccion": 160 ** >%a<16013302:goto error Hinded=300, R190:caso normal ** IX o IY ** i$="IX":3030 i$="IY" n=n+1 a=(n) * es IX-caso especial?* ]a=546a$="ld ("+i$+"+"+((n+1))+"),"+((n+2)):indix=3:300, ;a=41)a$="add "+i$+","+i$:indix=1:300, ** es IX-CB ? ** Pa=203n$="+"+((n+1)):a=(n+2):indix=3:1040 ** es IX-d ? ** a=5793100 Ja>43+a<191n$="+"+((n+1)):indix=2:180 ** IX-caso normal ** indix=1:180  #'**datas normales** #(^"nop","2ld bc,","ld (bc),a","inc bc","inc b","dec b","1ld b,","rlca","ex af,af'","add hl,bc" #)b"ld a,(bc)","dec bc","inc c","dec c","1ld c,","rrca","1djnz DIS-","2ld de,","ld (de),a","inc de" #*\"inc d","dec d","1ld d,","rla","1jr DIS-","add hl,de","ld a,(de)","dec de","inc e","dec e" #+T"1ld e,","rra","1jr nz,DIS-","2ld hl,","2","inc hl","inc h","dec h","1ld h,","daa" #,g"1jr z,DIS-","add hl,hl","2*ld hl,(","dec hl","inc l","dec l","1ld l,","cp l","1jr nc,DIS-","2ld sp," #-c"2","inc sp","inc (hl)","dec (hl)","1ld (hl),","scf","1jr c,DIS-","add hl,sp","2*ld a,(","dec sp" #. "inc a","dec a","1ld a,","ccf" #;T" "," ","ret nz","pop bc","2jp nz,","2jp ","2call nz,","push bc","1add a,","rst 0" #d"2call c,"," ","1sbc a,","rst '24'","ret po","pop hl","2jp po,","ex (sp),hl","2call po,","push hl" #?_"1and ","rst '32'","ret pe","jp (hl)","2jp pe,","ex de,hl","2call pe,"," ","1xor ","rst '40'" #@Z"ret p","pop af","2jp p,","di","2call p,","push af","1or ","rst '48'","ret m","ld sp,hl" #A9"2jp m,","ei","2call m,"," ","1cp ","rst '56'" #**datas iterativas** #="add a,","adc a,","sub ","sbc a,","and ","xor ","or ","cp " #$"b","c","d","e","h","l","(hl)","a" #4"rlc ","rrc ","rl ","rr ","sla ","sra "," ","srl " #"bit ","res ","set " #**datas de ED<124** #E" "," "," "," ","in b,(c)","oTrack-Info  R ut (c),b","sbc hl,bc","2","neg","retn" #W"im 0","ld i,a","in c,(c)","out (c),c","adc hl,bc","2ld bc,("," ","reti"," ","ld r,a" #W"in d,(c)","out (c),d","sbc hl,de","2"," "," ","im 1","ld a,i","in e,(c)","out (c),e" #W"adc hl,de","2ld de,("," "," ","im 2","ld a,r","in h,(c)","out (c),h","sbc hl,hl","2" #J" "," "," ","rrd","in l,(c)","out (c),l","adc hl,hl","2*ld hl,("," "," " #:" ","rld","in f,(c)"," ","sbc hl,sp","2"," "," "," "," " #;"in a,(c)","out (c),a","adc hl,sp","2*ld sp,(" $T **datas de ED>124** $d6"ldi","cpi","ini","outi"," "," "," "," ","ldd","cpd" $e:"ind","outd"," "," "," "," ","ldir","cpir","inir","otir" $f9" "," "," "," ","lddr","cpdr","indr","otdr"," "," " %** RUTINA (S/N) ** %&=""9510&% %0c$= %5.2~L,40( %:c$="S"c$="s"dirsi %D:dirno &** PRESENTACION ** &:" DESENSAMBLADOR DECIMAL  Antonio Ocon - 1985 Este programa ofrece el listado de los mnemonicos correspondien-tes al codigo de maquina junto con la direccion de la instruc- cion principal." &:"Si se detiene el listado con un error es debido a que se intenta desensamblar una seccion de la memoria que no contiene un pro- grama en codigo de maquina,como por ejemplo,tablas de datos,zonade programas BASIC,etc." &:"Todos los numeros representados son decimales,lo que facilita lalocalizacion de rutinas,asi comola identificacion de valores." &.:1;" PULSE UNA TECLA " &=""9914& &.2~L,40(:10 PLUS3DOS=<<G7;2;1;1;20,9 ;"PARE LA CINTA" 100d ,0:0: 6Gi=0200:ٺ(1+*6);255*,175*:i @ 5 32 ,139:35#,0:0,-14:-10 ,0:0,-66B:-15,0:0,66B:-10 ,0:0,14 80P,139:35#,0:0,-40(:-10 ,0:10 ,-39':-11 ,0:-11 ,39':0,-39':-13 ,0:0,78N _128,139:35#,0:0,-78N:-35#,0:0,78N 176,139:16,0:12 ,-27:0,27:15,0:0,-78N:-15,0:-13 ,39':0,-39':-15,0:0,78N 32 ,139:63?,-27:67C,139:39',-27:-11 ,0:67C,125}:39',-17:0,4:579,125}:46.,-17:3,0:579,60<:46.,27:0,19:42*,60<:579,27:5,0:42*,125}:568,-17:0,-19:32 ,125}:63?,-17:3,0:32 ,139:63?,-27:0,-4  80P,139:31,-27:115s,139:7,-27:-11 ,0:115s,99c:8,1:0,11 :105i,99c:14,1:3,0:115s,60<:7,27:-3,12 104h,60<:15,27:3,0:93],99c:23,0:4,-11 :93],60<:22,27:0,11 :80P,60<:31,27:4,0:80P,139:31,-27:0,-23 128,139:0,-27:163,139:-23,-27:-11 ,0:163,60<:-23,27:0,23:128,60<:0,27:11 ,0:128,139:0,-27:0,-23 176,139:-31,-27:192,139:-41),-27:-6,0:204,112p:-491,-7:-4,7:204,139:-491,-27:0Track-Info  R         ,-7 Ι219,139:-61=,-27:-4,0:219,60<:-61=,27:0,23:204,60<:-491,27:4,0:191,99c:-41),0:5,-11 :191,60<:-41),27:0,11 :176,60<:-31,27:5,0:176,139:-31,-27:0,-23  20  1  20  0 52;1;19,9 ;"1985 J-M P P"  100d i=6495465289  n:i,n:i 1,126~,70F,74J,86V,102f,126~,128,0,8,24,8,24,24,24,0,0,126~,98b,14,480,70F,126~,0,0,124|,68D,28,6,70F,126~,0 0,14,22,38&,126~,12 ,12 ,0,0,62>,32 ,62>,6,70F,126~,0,0,124|,64@,126~,98b,98b,126~,0,0,126~,98b,4,8,16,32 ,0 0,60<,36$,126~,98b,98b,126~,0,0,62>,34",62>,6,70F,126~,0,0,0,0,0,0,0,0,0 M0,126~,98b,14,8,0,24,0,0,0,0,0,0,0,24,0,0,0,0,0,0,24,8,16,0,40(,40(,0,0,0,0,0,0,0,24,0,0,0,24,0  i0,62>,34",126~,98b,98b,98b,0,0,124|,68D,124|,70F,70F,126~,0,0,126~,70F,64@,96`,98b,126~,0,0,60<,34",34",98b,98b,124|,0,0,126~,64@,126~,96`,96`,126~,0 _0,126~,64@,126~,96`,96`,96`,0,0,126~,70F,64@,102f,98b,126~,0,0,34",34",62>,98b,98b,98b,0,0,8,8,8,24,24,24,0,0,8,8,8,12 ,76L,124|,0 e0,72H,80P,126~,98b,98b,98b,0,0,32 ,32 ,32 ,96`,96`,126~,0,0,34",546,42*,98b,98b,106j,0,0,502,42*,38&,98b,98b,106j,0,0,126~,66B,66B,70F,70F,126~,0 0,126~,66B,126~,96`,96`,96`,0,0,126~,66B,66B,106j,102f,126~,1,0,124|,68D,124|,98b,98b,98b,0,0,126~,64@,126~,6,6,126~,0,0,126~,82R,16,24,24,24,0,0,66B,66B,66B,98b,98b,126~,0 b0,70F,34",18,18,14,4,0,0,74J,42*,42*,42*,20,20,0,0,98b,98b,60<,60<,70F,70F,0,0,70F,70F,100d,24,24,24,0,0,126~,100d,8,16,102f,126~,0  0:6:0: #.236066\,186:236077\,252 %$1;0,14;"CA>=/" *2,0;"*3414B*0AA8=2>=0A*0*CD*2>=CA8=**20=C4*70284=3>;4*27>20A*2>=CA0**;0*?0A43*@D4*E08B*2A40=3>*4=*ED*4BCA>*<>E8<84=C>*>*2>=CA0*4;*1>A34*34*;0*?8BC0," /.06|u\,8:502 47,0;"*4;*<>E8<84=C>*B4*A40;8I0*2>=***;0B*C42;0B/*********************0AA810,,,,,@,,,,,,,?************0109>,,,,,,0,,,,,,,;************8I@D84A30,,I,,,,,,,=************34A4270,,,,G,,,,,,,<" 9.06|u\,8:502 >14,0;"*4;*<>E8<84=C>*4B*0DC><0C82>,*=>3414B*<0=C4=4A*0?A4C030B*;0B*C4*2;0B-*?D4B*4;*>A34=03>A*=>*;44**<0B*@D4*D=0*0*;0*E4I," C.06|u\,8 i=65368X65527  n:i,n:i 40,255,255,127,63?,31,15,0,126~,126~,126~,126~,126~,126~,126~,126~,126~,190,222,238,246,250,252,0,Track-Info ! R!!!!!!!!! 0,255,255,255,255,255,255,0 (0,63?,95_,111o,119w,123{,125},126~,126~,0,63?,31,15,7,3,0,0,128,160,176,184,188,190,126~,0,0,62>,67C,255,189,231,0 `30,58:,46.,44,,44,,46.,26,14,14,26,46.,44,,44,,46.,58:,30,0,0,124|,194,255,189,231,0,0,0,0,24,40(,0,0,0,0,0,8,24,36$,24,0,0 0,0,42*,20,34",22,0,0,0,38&,16,42*,64@,42*,82R,0,74J,85U,130,130,65A,130,89Y,44,,0,116t,38&,34",102f,82R,106j,0 0,32 ,20,46.,34",16,110n,0,0,0,16,524,28,2,106j,0,0,0,0,0,8,90Z,110n,0 =#0;1;7;"?0A0*2><4=I0A*?D;B4*.B?024.***" " "990 +236066\,0:236077\,60<  8000@ 0:0:0: sx=9 :y=1:m=0:n=0:a=10 :b=1:r=0:s=0:der=0:izq=0  5 q=11698 !0,q:255,0:q q=62548 !q,0:0,175:q `)2;1;9 ,0;"" j*1;1;10 ,0;"" izq=221004 izq=32200 izq=42300  m=x:n=y ="q"2050 ="a"2075 4y=y+1:y>31ū(x,y)57000X ;2;1;m,n;"":v:2;1;x,y;""  2500 3x=x-1:x<0ū(x,y)57000X  ;2;1;m,n;"":v:2;1;x,y;"" izq=3:2500 4x=x+1:x>21ū(x,y)57000X  ;2;1;m,n;"":v:2;1;x,y;"" *izq=4:2500 4 m=x:n=y >="q"2150f H="a"2175 R3y=y-1:y<0ū(x,y)57000X \;2;1;m,n;"":v:2;1;x,y;"" a 2500 f3x=x-1:x<0ū(x,y)57000X p;2;1;m,n;"":v:2;1;x,y;"" zizq=3:2500 4x=x+1:x>21ū(x,y)57000X ;2;1;m,n;"":v:2;1;x,y;"" izq=4:2500  m=x:n=y ="z"2250 ="x"2275 3x=x-1:x<0ū(x,y)57000X ;2;1;m,n;"":v:2;1;x,y;""  2500 3y=y-1:y<0ū(x,y)57000X ;2;1;m,n;"":v:2;1;x,y;"" izq=2:2500 4y=y+1:y>31ū(x,y)57000X ;2;1;m,n;"":v:2;1;x,y;"" izq=1:2500  m=x:n=y ="z"2350. ="x"2375G 4x=x+1:x>31ū(x,y)57000X $;2;1;m,n;"":v:2;1;x,y;"" ) 2500 .3y=y-1:y<0ū(x,y)57000X 8;2;1;m,n;"":v:2;1;x,y;"" Bizq=2:2500 G4y=y+1:y>31ū(x,y)57000X L;2;1;m,n;"":v:2;1;x,y;"" Vizq=1:2500 der=23100 der=33200 der=43300 r=a:s=b ="p"3050 ="l"3075 4b=b+1:b>31ū(a,b)57100 ;1;1;r,s;"":v:1;1;a,b;"" 1500 3a=a-1:a<0ū(a,b)57100 ;1;1;r,s;"":v:1;1;a,b;"" der=3:1500 4a=a+1:a>21ū(a,b)57100 ;1;1;r,s;"":v:1;1;a,b;"" der=4:1500  r=a:s=b &="p"3150N 0="l"3175g :3b=b-1:b<0ū(a,b)57100 D;1;1;r,s;"":v:1;1;a,b;"" I 1500 N3a=a-1Track-Info " R""""""""" :a<0ū(a,b)57100 X;1;1;r,s;"":v:1;1;a,b;"" bder=3:1500 g4a=a+1:a>21ū(a,b)57100 l;1;1;r,s;"":v:1;1;a,b;"" vder=4:1500 r=a:s=b ="n"3250 ="m"3275 3a=a-1:a<0ū(a,b)57100 ;1;1;r,s;"":v:1;1;a,b;"" 1500 3b=b-1:b<0ū(a,b)57100 ;1;1;r,s;"":v:1;1;a,b;"" der=2:1500 4b=b+1:b>31ū(a,b)57100 ;1;1;r,s;"":v:1;1;a,b;"" der=1:1500 r=a:s=b ="n"3350 ="m"3375/ 4a=a+1:a>31ū(a,b)57100 ;1;1;r,s;"":v:1;1;a,b;""  1500 3b=b-1:b<0ū(a,b)57100 ;1;1;r,s;"":v:1;1;a,b;"" *der=2:1500 /4b=b+1:b>31ū(a,b)57100 4;1;1;r,s;"":v:1;1;a,b;"" >der=1:1500 X 7200  ]2td=td+1:pa=pa+1:papar7500L bW0;6;1;#0;J$(1);ti;" ";"Jugad:";pa;" ";J$(2);td g 502 l 1000 col=1:7300 2ti=ti+1:pa=pa+1:papar7500L W0;6;1;#0;J$(1);ti;" ";"Jugad:";pa;" ";J$(2);td  502  1000  2:1:m,n;"":20:m,n;"":20:m,n;"":20:m,n;"":20:m,n;"":20:m,n;"":20:m,n;"":20:m,n;"":20:m,n;"":30 * 7005] 1:1 Pr,s;"":15:r,s;"":15:r,s;"":15:r,s;"":15 dr,s;"":15:r,s;"":15:r,s;"":15:r,s;"":15:r,s;"":30  7105 Ltd>ti7550~ Vtd=ti7575 [ `W0;6;1;#0;J$(1);ti;" ";"Jugad:";pa;" ";J$(2);td j_1;2;0;6,11 ;J$(1);10 ,8;"ES EL CAMPEON!!!" t?1;4;0;16,10 ;"OTRA PARTIDA?" v="s"8000@ y ="n" |=""7542v ~Y:0;6;1;#0;J$(1);ti;" ";"Jugad:";pa;" ";J$(2);td _1;1;0;6,11 ;J$(2);10 ,8;"ES EL CAMPEON!!!"  7540t @*j$(2,10 ):0:4: E<pa=0:par=0:td=0:ti=0:v=0 J1;2,14;"MENU";5,0;"1 NOMBRE JUGADOR IZQUIERDO.";7,0;"2 NOMBRE JUGADOR DERECHO.";9 ,0;"3 CUANTAS PARTIDAS JUGAMOS.";11 ,0;"4 VELOCIDAD." T81;1;2,14;"MENU:":100d YU1;0;2,14;"MENU:":1;1;5,0;"1" ^*21,0;"MAXIMO 10 CARACTERES" h J$(1) m 30 rP1;0;5,0;"1":1;1;7,0;"2" | J$(2)  30 21,0;" ":1;0;7,0;"2":1;1;9 ,0;"3" /21,0;"RECOMENDABLE ENTRE 5 Y 25" par ^21,0;" ":1;0;9 ,0;"3" S1;1;11 ,0;"4":21,0;"MAXIMA 1 - MINIMA 10" v _1;0;11 ,0;"4":21,0;" "  1000 Track-Info # R######### PLUS3DOSmCUATREROS DEL ESPACIO..1985 o1:1:7::1;10 ,10 ;"PARE LA CINTA":i=115:.5,i:i: (r=0:0:0:7:  3000 2000  1500 221,0;4;t$ 7t$=t$(2)+t$(1) d=xi=(*28)+1:20,xi;1;5;p$ nD0,0;7;"NAVES =";v;" PUNTOS =";pu;" RECORD =";r p=t$=t$(2)+t$(10 ):21,0;4;t$ sn=p0-1:t$=t$(31)+t$(31):21,0;4;t$:1,n;6;" # ";2,n;" ";2,n+2;s$;2,n+5;" ":p=p-1:x=2:="a"125} u514,0;a$:a$=a$(31)+a$(31) xe.050|L,-10 :n:1,n;" ";2,n;" ":p=25:x=3:112p }y=n+2:2,y;" " /(x,y)="."v=v-1:1000:502 7(x,y+1)="."v=v-1:1000:502 7(x,y+2)="."v=v-1:1000:502 =t$=t$(2)+t$(10 ):21,0;4;t$ x,y;6;s$ B.005y# =,20-y:x20(y=xi-1y=xi)180 Cx20(yxiyxi+1)v=v-1:1000:502 6y1=y:x1=x:y=y+(="p"y<29)-(="o"y>1) X="q"x=x-2:x=1y=n+2x=x-1:3,0;b$:110n -x=1.010z# =,30:x=x+1 x1,y1;" " 510 ,0;a$:a$=a$(31)+a$(31) x=x+1:130 x,y;" " x=x-1 /(x,y)="."v=v-1:1000:502 46,0;a$:a$=a$(31)+a$(31) 7(x,y+1)="."v=v-1:1000:502 7(x,y+2)="."v=v-1:1000:502 =t$=t$(2)+t$(10 ):21,0;4;t$ Bx,y;6;s$;x+1,y;7;p$:.005y# =,20-x Rx=2y=n+2g=030:.005y# =,g:g:x=3:600X  cx=2yn+21,0;b$;2,0;b$:v=v-1:1000:502 6y1=y:x1=x:y=y+(="p"y<31)-(="o"y>0) Dx1,y1;" ";x+1,y+1;" ";x+1,y-1;" " x=x-1:500 XNave ]n=p0-1:t$=t$(31)+t$(31):21,0;4;t$:1,n;6;1;" # ";2,n;" ";2,n+2;s$;2,n+5;" ";3,n+2;6;" ":p=p-1 b`.050|L,-10 :n:1,n;" ";2,n;" ";3,n+1;" ":n gpu=pu+10 :s=s+2:1,0;b$;2,0;b$:s=6x=320:x,0;b$:x:z=0 i[n=321:n,0;2;p$;n-1,0;" ":.030{u\,40(-n jat$=t$(2)+t$(10 ):21,0;4;t$:n:21,0;4;"" l<n=0s:#0;1,s;1;2;"":n v 502 D0,0;7;"NAVES =";v;" PUNTOS =";pu;" RECORD =";r pq=x21:.04|# =,40(-q:254,q:q,y;1;"";q-1,y;0;" ":.002xn,q @t$=t$(2)+t$(10 ):21,0;4;t$:q h20,0;b$:y=0:x=2:v=0n=3090Z:254,n:n:2500  150: ;p=022:a=3280 :.009ztj,40(:p #s=25:v=5:pu=0 )s=0:x=3:s$="":p$="" 't$="" 'b$=" " 'a$=" . . "   a="a""n"+7:b:a,b:a '0,0,31,63?,95_,20,18,18,0,16,502,99c,243,231,243,255,0,0,8,108l,206,223,255,255,0,0,480,113q,195,251,207,255 0,30,579,121y,125},63?,30,0,4,2,2,15,63?,108l,216,255,0,0,0,255,153,255,255,255 32 ,64@,64@,240,252,546,27,255,255,193,113q,29,23,19Track-Info $ R$$$$$$$$$ ,16,252,255,131,142,184,232,200,8,63?,1,1,3,6 12 ,31,2,6,24,126~,255,24,60<,255,24,0,128,128,192,96`,480,248,64@,96`,24,60<,238,224,224,160,144,144  r0):2,a;2;" ";3,a;" " 7="m"100d <:19,ho;0;" ":60015o,ho:60000` Aho=ho+1 F_ho=28b=b+1:ho=0:;19,31;0;"";19,28;" " H,b=218,31;0;"" I,b=318,28;0;"" J6b=419,28;0;"":20 K b=4v=v-1:.25~,30:b=0:19,ho;" ":ho=0:19,31;" ";18,31;" ";18,28;" ":a=216:a,0;0;" ":.1}L,a+10 :a:n:40( P21:0,7;p:0,29;v Z 502 df=314:60018r,f:60000`:f+1,a+1;ٺ(*5);"";f,a+1;"":f:(f+1,a+1)>128ū(f+1,a+2)>128b=4:b=475K iYz=1518:z+1,a+1;1;"";z,a+1;ٺ(*5);" " nz+1=19a+1=hop=p+2:20,ho;0;"v";20,ho;1;"x":i=06:.001wn,23:i:ho=0 sz+1=19a+2=hop=p+2:20,ho;0;"x";20,ho;1;"v":i=06:.1}L,557:i:ho=0 uhz+1=19(a+1hoa+2ho).2~L,23:n=40(502:254,n:n wz xf=203-1:f,a+1;" ";f-1,a+1;0;"":4;20,a;"":.001wn,f+20:f z m=m+1 }1m>516,(*25)+1;" " /16,a+1;ٺ(*5);1;g$  4:5:5: !j=1:p=0:v=3 41;"PUNTOS=";p;" MERIENDA=";j;" VIDAS=";v  0: 10 ,7;3;1;7;" FRUTA PERDIDA ":8,5;"";12 ,5;"" n=5020-1:.1}L,n:x=(*19)+2:y=(*31):br=(*1):in=(*8):fa=(*2):x,y;fa;br;in;"":.1}L,n+2:.1}L,n+4:n v=50230-1:.001wn,v+6:x=(*19)+2:yTrack-Info % R%%%%%%%%% =(*20)+10 :br=(*1):in=(*8):fa=(*1):x,y;in;fa;br;1;"":.001wn,v+3:.001wn,v:v "QUIERES MAS FRUTA?(s/n)";j$ j$="s":15  j$="n"  715 x=281-1:17,x;3;" ";18,x;" ";19,x-1;0;" ":.01z# =,x:.01z# =,x-1:x:17,0;" ";18,0;" ";19,0;" " Kx=025:.01z# =,23:21,x;3;" ":x Lx=019:.01z# =,40(:21,x;3;" ":x 618,29;2;c$;19,29;d$  v=2  Lx=281-1:17,x;2;" ";18,x;" ";19,x-1;0;" ":.01z# =,x:.01z# =,x-2:x:17,0;" ";18,0;" ";19,0;" " NKx=015:.04|# =,502:21,x;8;" ":x OJx=09 :.01z# =,40(:21,x;8;" ":x Q618,29;2;e$;19,29;f$ V x=281-1:17,x;2;" ";18,x;" ";19,x-1;0;" ":.01z# =,x-4:.01z# =,x-2:x:17,0;" ";18,0;" ";19,0;" " Jx=06:.06|u\,40(:21,x;2;" ":x Jx=03:.01z# =,40(:21,x;2;" ":x 8j=j+1:j=40,29;v:700 *0,21;j:v=3:25 .m=0:a=10 :ho=0:b=0 ?a$="":b$="":c$="":d$="":e$="":f$="":g$=""  Ef=020:n=07:x:(144+f)+n,x:n:f 0,241,217,109m,557,27,7,31,0,31,513,102f,76L,184,224,248,8,480,71G,132,132,67C,480,15 i8,4,226,33!,33!,226,12 ,240,124|,82R,73I,36$,18,9 ,4,2,0,0,128,64@,32 ,156,94^,94^,2,66B,254,226,226,76L,30,28,94^,76L,32 ,22,15,31,12 ,0 6,1,6,1,31,491,72H,132,32 ,64@,176,64@,248,12 ,18,33!,132,130,129,65A,32 ,16,8,7,33!,65A,129,130,4,8,16,224,0,3,3,246,252,82R,73I,146,0,192,192,111o,63?,74J,146,73I,217,121y,223,89Y,217,121y,223,89Y 0,0,0,31,127,255,255,255,127,36$,36$,230,254,255,255,63? 36$,502,105i,125},62>,535,25,17,8,92\,145,238,77M,172,152,136 129,195,231,255,255,164,73I,146,31,24,31,24,31,24,31,24  &a$=" DIA DE CAMPO " &b$=" " &c$=" TE ENCUENTRAS EN EL CAMPO " &d$=" TERMINANDO TU MERIENDA... " &e$=" CUANDO TU FRUTA ES ATACADA " &f$=" POR LAS HORMIGAS. " &g$=" TU UNICA DEFENSA ES MATAR " &h$=" O QUEDARTE SIN FRUTA. " &i$=" PERO CUIDADO CON LAS SON " &j$=" ALIADAS DE LAS HORMIGAS " &k$=" USAR TECLAS O-IZQUIERDA. " &l$=" P-DERECHA. " &m$=" M-PISAR. " Ex=1b$:0,x;6;b$(x):.01z# =,60<-x:x ^x=1̱a$:1,x;1;6;2;a$(x):.01z# =,20+n:6:x Wx=1̱b$:4:2,x;6;b$(x):.01z# =,b$(1)+20:x Qx=1̱c$:4:4,x;6;c$(x):.01z# =,c$(x)-60<:x Qx=1̱d$:4:5,x;6;d$(x):.01z# =,d$(x)-60<:x Qx=1̱e$:4:7,x;6;e$(x):.01z# =,e$(x)-60<:x Qx=1̱f$:4:8,x;6;f$(x):.01z# =,f$(x)-60<:x Rx=1̱g$:4:10Track-Info & R&&&&&&&&&  ,x;6;g$(x):.01z# =,g$(x)-60<:x Rx=1̱h$:4:11 ,x;6;h$(x):.01z# =,h$(x)-60<:x !Mx=1̱i$:4:13 ,x;6;i$(x):.01z# =,20+x:x &Mx=1̱j$:4:14,x;6;j$(x):.002xn,1+x:x +Rx=1̱k$:4:17,x;6;k$(x):.01z# =,k$(x)-60<:x 0Mx=1̱b$:4:18,x;6;b$(x):.01z# =,20+x:x 5Rx=1̱l$:4:19,x;6;l$(x):.01z# =,l$(x)-70F:x :Mx=1̱b$:4:20,x;6;b$(x):.01z# =,20+x:x ?Rx=1̱m$:4:21,x;6;m$(x):.01z# =,m$(x)-70F:x @'3138B :n=6010060120 A a:n,a:n B33!,0,88X,1,0,3,237,91[,0,91[,126~,163,178,119w,35#,11 ,120x,177,32 ,246,201 Djn=07:.40L,10 +n:23296[,176:23297[,n:60100:40(:n In=210-2:4:.02{# =,502-n:n,0;ٺ(*4);" ":n-1,0;" ":n N'3160X :n=60000`60035 S a:n,a:n XI6,2,197,33!,0,0,17,1,0,229,205,181,3,1,200,2,17,0,10 ,225,198,0,237,74J,229,198,0,237,82R,225,568,230,193,16,223,201 gin=07:.20~L,1+n:23296[,176:23297[,n:502:60100:n l Track-Info ' R'''''''''