MV - CPCEMU Disk-File Disk-Info ZX-Modules(Track-Info  R ( *RTrack-Info  R DISK MICRO 7 21  AA  AB  AB 0 AC +AD AD 0 AE Y !"AF j#$%&'()*+,-./0BA .123456BB 7BB 0 8BC ^9:;<=>?@ABCDBD EFGHIJKLMNOPQRSTBD UVWXBD 0 YZPLUS3DOS@ @DISKEADO POR MADFOX "MICRO"  300, "21" 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;;88888887778888PLUS3DOS dCINTA 21 (REVISTAS 81 a 84) 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-Nanodrive 2" 7,18;"B-Lectura" &8,3;"C-Sistemas" 08,18;"D-Como se" :9 ,3;"E-Choques" D!9 ,18;"F-Stardrive" !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" HB$="1"100d R 500 --- MENU CARA B --- :5000:6000p 4,12 ;"CARA B" 7,3;"A-Salvame" 7,18;"B-Boca" 8,3;"C-T.N.T." $8,18;"D-Cristal" !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$="1"100d F 1000 --- CABECERA --- 51:0,4;"CINTAS MICRO N. 21" -2:0,16;"HOBBY":0 C3:1,6;"DISKEADO POR MADFOX":0:0 #3,8;"REVISTAS 81-84"  p--- PIE DE PANTALLA --- z?1:20,0;" J, siempre... ILM " ?21,0;" ELIGE UNA OPCION ":0  PLUS3DOS^^da=0255 n a,0 x(1;255-2*a,175 a 9910& &65169:""65170 &+a(ab,c)a,bc)=b,c=65c)=65170: &]"Modo save";s:65295,(66B-s):65301,(62>-s):65316$,(491-s) &*j=0:ix=16384@:de=6912 &9990': &`"Modo load";l:65407,(176+l):65440,(178+l):65453,(176+l) &*j=1:ix=16384@:de=6912 &9990':9910& 'a(j,ix,de): ' "Nano 5.2"9900& ' ""nano 5.2"65170,365m PLUS3DOS&&k "AB.0"4e4@  4e4@ Track-Info  R PLUS3DOSZ@ !?@>.0>˸0} } 0. &)))< J~#Q zHP(@0HPLUS3DOS:d*64999:6:6:2: &i=65095G65144x:a:i,a:i U.201,6,10 ,14,10 Z4,4,217,229,6,5,217,205,229,34",237,75K,125},92\,12 ,217,16,244,217,13 d13 ,13 ,4,4,217,6,5,217,205,229,34",237,75K,125},92\,5,217,16,244,225,217,4,13 ,13 ,201 n :400 x1000:1200 1300:1990 ;"Mismas ecuaciones? (s/n) ";z$:z$="s"z$="S"120x 110n INTRODUCIR ECUACIONES ""Cuantas ecuaciones (1-2)? ";num (e(3,4)::"Ax^2+Bx+Cy+D=0" 600X:i=1num:b$ _(b$);" ecuacion:"'"A? ";e(i,1),"B? ";e(i,2),"C? ";e(i,3),"D? ";e(i,4) i >num=1i=14:e(2,i)=e(1,i):i & X"Primera","Segunda" LIMITES DEL DIBUJO Rd(4,2):fi=(1e(2,3))+(2e(1,3)) finum=11100L ,i=14:e(3,i)=e(fi,i):i pfi=3i=14:e(3,i)=e(1,i)*e(2,3)-e(2,i)*e(1,3):i Zdisc=e(3,2)*e(3,2)-4*e(3,1)*e(3,4) disc=disc(disc>1e-7iV) Cdisc<0(e(3,1)e(3,2))1100L $fi=(3-fi)+(fi=3) .(i=12:j=2*i-3 3Ve(3,1)d(i,1)=-e(3,4)/e(3,2):1090B 8Gd(i,1)=(-e(3,2)+j*disc)/2/e(3,1) B|d(i,2)=(-d(i,1)*d(i,1)*e(fi,1)-d(i,1)*e(fi,2)-e(fi,4))/e(fi,3):1190 L=i=12:(e(i,1)e(i,3))1180 Qie(i,3)d(2+i,1)=0:d(2+i,2)=-e(i,4)/e(i,3):1190 V@di=e(i,2)*e(i,2)-4*e(i,1)*e(i,4) [di=di(di>1e-7iV) `di<01190 jOd(2+i,1)=(-e(i,2)-(e(i,2))*di)/2/e(i,1) t*d(2+i,2)=0:1190 Od(2+i,1)=-e(i,4)/e(i,2):d(2+i,2)=0 i: FONDO DE ESCALA 'm(a,b:.)=a+(b-a)*(b>a) fex=0:fey=1 j=14 fex=m(d(j,1),fex) fey=m(d(j,2),fey) Hj:fe=m(3*fex/2,24*fey/11 ):plot=128/fe orx=127:ory=87W: DIBUJO CURVAS =:orx0orx255orx,0:0,175 ;ory0ory1750,ory:255,0 (0:i=1num 2alfTrack-Info  R a=e(i,1)/plot/plot <=beta=(e(i,2)*plot-2*orx*e(i,1))/plot/plot Fgamma=e(i,3)/plot P_delta=e(i,4)+e(i,1)*orx*orx/plot/plot-e(i,2)*orx/plot-ory*e(i,3)/plot Zgamma1410 d#alfabeta9995 ':1450 n[(delta/gamma+87.5/)87.5/0,-delta/gamma:255,0:1450 aalfaƽ(delta/beta+127.5)127.5-delta/beta,0:0,175:1450 Vdis=beta*beta-4*alfa*delta:dis=dis(dis>1e-7iV):dis<01450 _val=(-beta-dis)/2/alfa:(val-127.5)127.5val,0:0,175 _val=(-beta+dis)/2/alfa:(val-127.5)127.5val,0:0,175 i: MOVIMIENTO DEL CURSOR X#0;0,0;"Coordenada x","Coordenada y":a$(2,16):1 65096H =13 2500 @py=(="7"ƾ65097I<170)-(="6"ƾ65097I>0) @px=(="8"ƾ65099K<250)-(="5"ƾ65099K>0) T(65095G+(pxŽpy)):65097I,65097I+py:65099K,65099K+px Za$(1)=((-orx+23677}\)/plot):a$(2)=((-ory+2+23678~\)/plot) [#0;1,0;a$(1);a$(2):1:2020-20*(pxŽpy) MENAJE PANTALLA ]"":#0;0,0;" Aumentar Disminuir Encuadrar a d e" 5b$=:b$"a"b$"d"b$"e"Ưb$32 2510 b$=32 200 sb$="a"plot=plot*4:orx=127+4*(orx-127):ory=87W+4*(ory-87W):2550 sb$="d"plot=plot/4:orx=127+(orx-127)/4:ory=87W+(ory-87W)/4:2550 ?orx=127+orx-23677}\:ory=87W+ory-23678~\ -65097I,87W:65099K,125} 1300:1990 ' DRAW ' k=1:py=0:vars=23627K\+256*23628L\:vars-123{,246:vars-122z,106j:vars-120x,112p ' uj=0255:pyy=23678~\:py=-(alfa*j*j+beta*j+delta)/gamma:dy=py-pyy:si=(py-87.5/)87.5/ ' sij,py 'hvars-123{,246+6*si:vars-122z,106j+si:vars-120x,112p-12 *si 'j: PLUS3DOSqqU"AD.0"3e40u a=5e4P (300011u,a-(a/256)*256 300022u,(a/256) (300055u,2 2300066u,3 <300077u,10 F300088u,1 P300099u,15 Z c=0 da=5e4P50053 n:c=c+1:c>8a,15:c=0:130 xb:a,b a H568,108l,70F,66B,99c,63?,7,1 H1,7,63?,99c,66B,70F,108l,568 E0,0,0,0,0,1,143,254 G176,254,143,1,0,0,0,0 F0,0,0,0,62>,248,192,0 F0,0,192,248,62>,0,0,0 >a=129:300088u,a::3e40u:10 :a PLUS3DOSZ0u!5uFN~~&@xgxow$x///Xg? ݶw= F = Track-Info  R PLUS3DOS,++59999_:85004! Zs(a~,x8/)=a+180*(a0)*(x<0)-180*(a>0)*(x<0) v(4):r(8) flag=1 ," TIPOS DE CHOQUE" ."1- UNIDIRECCIONAL-ELASTICO" 0 "2- UNIDIRECCIONAL-INELASTICO" 2"3- PLANO-ELASTICO" 4"4- PLANO-INELASTICO" 6M300,:I=15:.1}L,4*i:i$:3*i,0;i$ ;i @2asd=:(asd<491)+(asd>524)320@ J#ela=(asd=491)+(asd=513) T pl=2 U ^Aasd<513pl=1:modo=1:teta=0:410 %ela=0ent=1:520 8"DATOS DE LA ENTRADA O DE LA"'"SALIDA (ENTER/s) ";i$ i$=""ent=1:520  ent=0 600X+(ent=0)  #x(4):i=14:i$ >(pl=1)*((i=2)+(i=4))=1i:530 (i$);x(i):i >"m2/m1= ";km:(ela=0)+(pl=1)01000 X#"v1= ","beta1= ","v2= ","beta2= " Y#"v3= ","beta3= ","v4= ","beta4= " $"1- beta","","2- v","x","3- v","y" (1,4;"DATO COMPLEMENTARIO" ;650:i=13:.15~,20*I:i$,j$ >3*i,10 ;i$;(3-2*(ent=0));j$:i 2asd=:(asd<491)+(asd>513)700  #700+10 *(asd-480) 1"beta";(3-2*(ent=0));"= ";j$ 7j$""modo=1:teta=*j$/180:1000 I"v";(3-2*(ent=0));"x= ";v3x:modo=2:1000 I"v";(3-2*(ent=0));"y= ";v3y:modo=3:1000 *v2x=x(3)*(x(4)*/180) *v1y=x(1)*(x(2)*/180) *v1x=x(1)*(x(2)*/180) *v2y=x(3)*(x(4)*/180) >3000 :5000-1000*(ela=0):pas=1 [i=132:v(i)=(k(i,pas)*k(i,pas)+k(i+1,pas)*k(i+1,pas)):i yi=132:voi=(k(i+1,pas)/(k(i,pas)+1e-20><d))*180/:v(i+1)=s(voi,k(i,pas)):i j=01:i=14:r(4*j+i)=(x(i)*(j=0)+v(i)*j)*(ent0)+(ent=0)*(x(i)*j+v(i)*(j=0)) i:j ; 6600X:i=18:.1}L,3*i:i$ W(pl=1)*((i=2)+(i=4)+(i=6)+(i=8))=1i:1040  awq=r(i) 1pl=1awq=awq*(r(i+1)/180*) )2*(i-1),16;i$;awq:i :20,0;"SOLUCION ";PAS'"VISUALIZO EL CHOQUE." Zy=172:r(y)<0r(y)=-r(y):r(y+1)=r(y+1)+180 y $dis<0250:1071/  7000X I30:7500L:20:18,2;1;"REPETICION"  502 $30:7500L /8(ela0)*(pas=1):pas=2:1012 L #k(4,2):kx=v1x+km*v2x ky=v1y+km*v2y +kv=(v1x*v1x+v1y*v1y)+km*(v2x*v2x+v2y*v2y)  v3x=kx/(1+km):v4x=v3x v3y=ky/(1+km):v4y=v3y ji=14:j=12:k(i,j)=v3x*((i=1)+(i=3))+v3y*((i=2)+(i=4)) j:i  *k(4,2):kxm=kx/km:kym=ky/km aax=1/km/km:aay=aax &bbx=-2*kxm/km:bby=bbx*kym/kxm ccx=kxm*kxm:ccy=kym*kym ,aax=aax*km+1:bbx=bbx*km:ccx=ccx*km ,aay=aay*km+1:bby=bby*km:ccy=ccy*km 5000+modo*100d (teta=0v3x=0:5200P tn=(teta+1e-20><d) #aax=tn*tn*aay+aax:bbx=tn*bby+bbx  ccx=ccx+ccy-kv dis=(bbx*bbx-4*aax*ccx) dis<0 #?i=12:v3x=(-bbx-(1.5@-i)*dis)/2/aax (Tv3y=tn*v3x:k(1,i)=v3x*(v3x>1e-6m7):k(2,i)=v3y*(v3y>1e-6m7) - 5250 P$ccy=ccy-kv+aax*v3x*v3x+bbx*v3x+ccx Zdis=(bby*bby-4*aay*ccy) ddis<0 n?i=12:v3y=(Track-Info  R -bby-(1.5@-i)*dis)/2/aay xHk(1,i)=v3x*(v3x>1e-6m7):k(2,i)=v3y*(v3y>1e-6m7) Ok(3,i)=kxm-v3x/km:k(3,i)=k(3,i)*(k(3,i)>1e-6m7) Ok(4,i)=kym-v3y/km:k(4,i)=k(4,i)*(k(4,i)>1e-6m7) i: $ccx=ccx-kv+aay*v3y*v3y+bby*v3y+ccy dis=(bbx*bbx-4*aax*ccx) dis<0 ?i=12:v3x=(-bbx-(1.5@-i)*dis)/2/aax  5240x XDIBUJO Y CALCULO bDEL MOVIMIENTO  Er(2)=r(2)-(r(2))*180+180*r(2) Er(4)=r(4)-(r(4))*180+180*r(4) p(2,4,2):i=12:j=12:p(i,2*j-1,1)=r(4*i+2*j-5)*(/180*r(4*i+2*j-4)) kp(i,2*j,1)=r(4*i+2*j-5)*(/180*r(4*i+2*j-4)):j:i Ѕalf=((p(1,2,1)-p(1,4,1))/(p(1,1,1)-p(1,3,1)+1e-10_[)) ڴb(4):b(1)=7*(alf)*(p(1,1,1)-p(1,3,1)):b(2)=7*(alf)*(p(1,2,1)-p(1,4,1)) 0b(3)=-b(1):b(4)=-b(2) Li=12:j=14:p(i,j,2)=p(i,j,1):j:i 9i=12:k=13:j=13 p(i,j,2)L63?,480:0,127:0,111o:127,0 A7,15;"x" D0,8;"y" H065149},sx1:65147{,sy1:65146z R065149},sx2:65147{,sy2:65146z \Bsx1,sy1:dx1=.73333*(px1-sx1):dy1=.73333*(py1-sy1):dx1,dy1 fpk=12:-.15~*dx1,-.15~*dy1:((k-1.5@))*.1}L*dy1,-((k-1.5@))*.1}L*dx1 ksx1+dx1-23677}\,sy1+dy1-23678~\:k:(171-sy1)/8,(sx1+7)/8-3*(sx1>63?);1;1 pBsx2,sy2:dx2=.73333*(px2-sx2):dy2=.73333*(py2-sy2):dx2,dy2 zpk=12:-.15~*dx2,-.15~*dy2:((k-1.5@))*.1}L*dy2,-((k-1.5@))*.1}L*dx2 sx2+dx2-23677}\,sy2+dy2-23678~\:k:(171-sy2)/8,(sx2+7)/8-3*(sx2>63?);1;2  8100 Er(2)=r(2)-(r(2))*180+180*r(2) Er(4)=r(4)-(r(4))*180+180*r(4)  BMOVIMIENTO Li=0pp Q65149},(61000H+2*i):65147{,(61001I+2*i):65146z:65149},(620000+2*i):65147{,(620011+2*i):65146z VZ63?,480:0,127:0,111o:127,0:65100L [i ] flag `65149},(61000H+2*i-2):65147{,(61001I+2*i-2):65146z:65149},(620000+2*i-2):65147{,(620011+2*i-2):65146z jx63?,480:0,127:0,111o:127,0:7,15;"x";0,8;"y" tX(171-ly1)/8,(lx1+7)/8-3*(lx1>63?);1;1 yX(171-ly2)/8,(lx2+7)/8-3*(lx2>63?);1;2 ~B#0;"Pulsa una tecla para continuar":0:65100L   CALCULO DE  TRAYECTORIAS @dd1=(px1-sx1)+((py1-sy1)-(px1-sx1))*((py1-sy1)>(px1-sx1)) @dd2=(px2-sx2)+((py2-sy2)-(px2-sx2))*((py2-sy2)>(px2-sx2)) dd=dd1+(dd2-dd1)*(dd2>dd1) @dd3=(px1-lx1)+((py1-ly1)-(px1-lx1))*((py1-ly1)>(px1-lx1)) @dd4=(px2-lx2)+((py2-ly2)-(px2-lx2))*((py2-ly2)>(px2-lx2)) pp=dd+dd3+(dd4-dd3)*(dTrack-Info  R d4>dd3) i=0pp ]61000H+2*i,((sx1+i*(px1-sx1)/dd)(idd))+((px1+(i-dd)*(lx1-px1)/(pp-dd))(i>dd)) ]61001I+2*i,((sy1+i*(py1-sy1)/dd)(idd))+((py1+(i-dd)*(ly1-py1)/(pp-dd))(i>dd)) ]620000+2*i,((sx2+i*(px2-sx2)/dd)(idd))+((px2+(i-dd)*(lx2-px2)/(pp-dd))(i>dd)) ]620011+2*i,((sy2+i*(py2-sy2)/dd)(idd))+((py2+(i-dd)*(ly2-py2)/(pp-dd))(i>dd)) Ai:620000+2*i,0:620011+2*i,0 >61000H+2*i,0:61001I+2*i,0 : !3 RUTINAS !485004!:flag=0 !>Asuma=0:i=65100L65127g:a:i,a:suma=suma+a:i !H229,213,197,1,255,15,33!,239,79O,17,238,79O,546,0,237,168,203,165,203,163,120x,177,32 ,246,193,209,225,201 !M%suma4191_"Error en 8520": !RAsuma=0:i=65146z65182:a:i,a:suma=suma+a:i !\%suma4563"Error en 8550": !f`6,100d,14,100d,229,33!,0,255,197,120x,214,7,71G,229,205,176,254,225,86V,35#,94^,35#,122z,179,40(,7,120x,130,71G,121y,131,79O,24,235,193,225,201 !pAsuma=0:i=6520065214:a:i,a:suma=suma+a:i !z%suma1715"Error en 8580": !197,205,170,34",71G,4,62>,1,15,16,253,174,119w,193,201 !Qsuma=0:i=6528065319':a:i,a:suma=suma+i:i+40(,-a:i !%suma1806"Error en 8610": !H0,-1,1,-1,0,-1,1,-1,0,-1,1,0,1,-1,1,0,1,-1,1,0,1,0,1,1,1,0,1,1,1,0,0,1,1,1,0,1,1,1,0,1 !*65360P,0:65361Q,0 !Asuma=0:i=6500065023:a:i,a:suma=suma+a:i !%suma3422^ "Error en 8640": !33!,72H,238,78N,35#,70F,35#,120x,177,200,229,205,76L,254,205,126~,254,6,255,16,254,225,24,235 ! PLUS3DOS4/4/4" 6000p  5000 sc=0:li=15  200 0v=1:d=pl:c=-pl:m=2:h=162 0,7;1;"VIDAS=";li;0;" ":li=01,-20::10 ,6;"SE ACABARON LAS VIDAS";12 ,4;"HAS CONSEGUIDO ";SC;" PUNTOS":7000X  h=h+(v*c)  m=m+(v*d) (1:m,h:10 ,10 :10 ,-10 :-10 ,-10 :-10 ,10 :m,h:10 ,10 :10 ,-10 :-10 ,-10 :-10 ,10 :0 2(m+10 ,h-9 )1f=36$0-2:.02{# =,f-2:.02{# =,f:.02{# =,f+2:f:li=li-1:10 F sc=sc+pl d=l$d=pl:c=-pl n=p$d=pl:c=pl x=q$d=-pl:c=pl =a$d=-pl:c=-pl m1m=1 m233m=233 h163h=163 h11Track-Info  R          h=11 Dh502m233go=go+10 :sc=sc+100d:190 20 -191:y=142*:n:m:n,m:y .10}L,7,.30,11 ,.10}L,11 ,.10}L,11 ,.10}L,9 ,.10}L,11 ,.50,12 ,.30,11 ,.10}L,11 ,.30,9 ,.10}L,9 ,.10}L,9 ,.10}L,7,.10}L,9 ,.50,11 .30,7,.10}L,7,.30,11 ,.10}L,11 ,.10}L,11 ,.10}L,9 ,.10}L,11 ,.50,12 ,.60,16:502 U.10}L,16,.30,14,.10}L,11 ,.30,12 ,.10}L,9 ,.60,7,.10}L,11 ,.30,14,.10}L,14,.30,16,.10}L,16,.60,14,.10}L,11 ,.30,14,.10}L,14,.30,16,.10}L,16,.60,14 Cv=210-1:.02{# =,40(:3190v :v: 210 0:go=250 40,7;1;"VIDAS=";li;0;" " go a,b:0,-30 9a=aed:b=b+c:a,b:0,-15:a,b-30:a go=go+10 :210 b0,20;1;"ZONA=1":a=0:b=175:c=-1:d=1:e=40(: c=0:e=60<: c=-.3:e=80P: c=-1.5@:e=88X: "c=-.01z# =:e=100d: ,c=.73333:e=140: 6c=-.5:e=170: @c=.9ffff:e=200: Jc=0:e=220: Tc=-1.2:e=250: ^(d=-1:c=-.73333:e=210: hc=1:e=184: rc=-1.5@:e=164: |c=-.1}L:e=115s: c=-.5:e=89Y: c=.8L:e=557: c=-1:e=20: &d=1:c=-.6:e=70F: c=0:e=120x: c=1:e=140: c=.2~L:e=190: c=-.4L:e=255:  10 b0,20;1;"ZONA=2":a=0:b=175:c=-1:d=1:e=502: &d=-1:c=-.73333:e=5: &d=1:c=-.2~L:e=60<: :c=1:e=100d: &d=-1:c=.8L:e=579: &c=.2~L:d=1:e=100d: c=-1:e=150: &(d=-1:c=-.4L:e=120x: 0c=-1:e=80P: :'d=1:c=-.6:e=110n: Dc=0:e=130: Nc=1.2:e=170: Xc=.1}L:e=240: b(d=-1:c=-.73333:e=190: l'd=1:c=-.5:e=255: v 10 b0,20;1;"ZONA=3":a=0:b=175:c=-1:d=1:e=502: c=1:e=80P: c=-1:e=101e: c=1.43333:e=125}: c=0:e=140: c=-.1}L:e=155: c=-.2~L:e=170: c=-1:e=200: c=0:e=240: 'c=-1:d=-1:e=200: c=.8L:e=150: c=0:e=130: c=-1.43333:e=100d: c=-.1}L:e=70F:  c=-1:e=40(: 'd=1:c=-.1}L:e=110n:  c=1:e=140: *c=0:e=160: 4c=-1:e=197: >c=1:e=220: Hc=-1:e=255: R 10 \b0,20;1;"ZONA=4":a=0:b=175:c=-1:d=1:e=95_: f&d=-1:c=-1:e=557: pc=1:e=15: zd=1:e=90Z: c=0:e=110n: c=-.2~L:e=150: (c=-.73333:d=-1:e=110n: 'd=1:c=-.2~L:e=160: c=2:e=170: c=-1:e=200: (d=-1:c=-.6:e=150: c=0:e=110n: &d=1:c=-1:e=140: c=0:e=160: c=.5:e=220: c=-1:e=255:  10 b0,20;1;"ZONA=5":a=0:b=175:c=-1:d=1:e=502: c=0:e=100d: 7,10 ;"" $c=1.2:e=130: .c=-.8L:e=160: 8c=.2~L:e=190: Bc=-1:e=230: L(d=-1:c=-.3:e=200: Vc=1:e=180: `c=-.3:e=140: j&d=1:c=-1:e=160: t(d=-1:c=-.3:e=110n: ~c=.8L:e=60<: c=0:Track-Info  R         e=40(: 9 ,6;"" c=-.8L:e=9 : &d=1:c=-.8L:e=60<: c=0:e=90Z: c=-1:e=95_: c=.3:e=185: c=-1:e=200: c=.3:e=230: c=-1:e=255: "18,10 ;"":10 b0,20;1;"ZONA=6":a=0:b=175:c=-1:d=1:e=502:  'd=-1:c=-.2~L:e=20: %d=1:c=-1:e=502: 'd=-1:c=-.2~L:e=10 : (%d=1:c=-1:e=502: 2c=.2~L:e=100d: <%d=-1:c=1:e=60<: F&d=1:c=.2~L:e=100d: P%d=-1:c=1:e=40(: Z$c=0:d=1:e=70F: dc=-1:e=150: n(d=-1:c=-.2~L:e=110n: x&d=1:c=-1:e=140: c=0:e=170: c=1:e=190: (c=1.2:d=-1:e=140: -3,6;"";18,19;"" &d=1:c=.2~L:e=190: c=-.8L:e=240: d=-1:e=210: 'd=1:c=-.73333:e=255:  10 b0,20;1;"ZONA=7":a=0:b=175:c=-1:d=1:e=502: c=0:e=240: &d=-1:c=1:e=200: c=0:e=30: c=-1.5@:e=8: %c=-1:d=1:e=502: "c=.2~L:e=90Z: ,c=-.2~L:e=130: 6c=.4L:e=160: @c=-.4L:e=190: Jc=1:e=225: Tc=-1.8ffff:e=245: ^(d=-1:c=-.73333:e=210: hc=0:e=180: rc=.3:e=160: |c=-.4L:e=130: c=.1}L:e=90Z: c=-.1}L:e=60<: %d=1:c=-1:e=85U: c=0:e=255:  10 b0,20;1;"ZONA=8":a=0:b=175:c=-1:d=1:e=30: c=-.8L:e=557: c=-.6:e=80P: c=-.4L:e=105i: c=-.3:e=130: c=-.2~L:e=155: c=-.1}L:e=180: c=0:e=225: c=1:e=245: 'd=-1:c=.3:e=200: c=.4L:e=175: &c=.5:e=150: 0c=-.18~8Q:e=579: :5a=226:c=-.5:e=170:b=85U: Dc=.3:e=125}: Nc=-.3:e=75K: Xc=-.1}L:e=40(: bc=-1:e=20: l$c=0:d=1:e=502: vc=.2~L:e=105i: c=0:e=140: c=-.3:e=140: c=-.2~L:e=190: c=.5:e=230: c=-1:e=255:  10 b0,20;1;"ZONA=9":a=0:b=175:c=-1:d=1:e=502: c=.8L:e=75K: c=-.6:e=100d: c=.4L:e=125}: c=-1:e=150: (d=-1:c=-.5:e=111o: c=0:e=80P: c=-.1}L:e=70F:  c=-.2~L:e=60<: c=-.3:e=502:  c=-.4L:e=40(: *c=-.5:e=30: 4c=-.6:e=20: >c=-.73333:e=10 : H%d=1:c=-1:e=30: Rc=.5:e=40(: \c=-1:e=557: fc=.1}L:e=111o: p%d=-1:c=1:e=87W: z%d=1:c=0:e=110n: c=.5:e=190: &d=-1:c=1:e=150: &d=1:c=.2~L:e=180: c=0:e=200: c=-.3:e=240: d=-1:e=195: &d=1:c=-1:e=230: (c=-.5:d=-1:e=130: 'd=1:c=-.2~L:e=170: c=0:e=190: c=1:e=220: c=-.9ffff:e=255:  10 c0,20;1;"ZONA=10":a=0:b=175:c=-1:d=1:e=502: c=-.1}L:e=150: 'd=-1:c=-.5:e=95_: $c=.1}L:e=45-: .c=1:e=5: 8%d=1:c=.5:e=70F: Bc=-.4L:e=90Z: Lc=-.2~L:e=110n: Vc=1.2:e=125}: `c=-1.2:e=140: jc=.5:e=170: tc=-.9ffff:e=200: ~c=0:e=240: (d=-1:c=-.5:e=160: c=-Track-Info  R         1:e=100d: c=1.3&fff:e=78N: c=0:e=502: c=-.2~L:e=25: c=1:e=10 : %d=1:c=.5:e=40(: 4a=159:b=99c:c=-1:e=180: (d=-1:c=-.8L:e=150: d=1:e=170: c=0:e=200: c=.6:e=233: c=-1:e=255: go=240:10 $ 10 )0:q$="q":p$="p":a$="a":l$="l" :0:6:f=031:0,f;"":f:f=020:f,31;"":f:f=310-1:20,f;"":f:f=200-1:f,0;"":f 0:0:7 0x$="STAR DRIVE":21,0;7;x$ ,y=07:x=0(x$)*8 ~(x,y)=1x*2+38&,138+y*2:2,0:0,2:-2,0:0,-2 x:y Ġ6,7;1;"TECLAS ACTUALES";0;8,12 ;q$;" ";p$;9 ,13 ;"";10 ,13 ;"";11 ,12 ;a$;" ";l$ ^94^,115s:35#,0:0,-40(:-35#,0:0,40( #"QUIERES CAMBIAR TECLAS (S/N)";c$ c$="s"5500| c$="n"5540  5100 |."TECLA ";q$:8,12 ;1;q$ ."TECLA ";p$:8,15;1;p$ /"TECLA ";a$:11 ,12 ;1;a$ /"TECLA ";l$:11 ,15;1;l$ >15,3;"1---FACIL";17,3;"2---NORMAL" ;"DIFICULTAD (1-2) ";pl:pl<1pl>25550  : p56010z:a="a""e"+7:a$:a,(""+a$):a u zA"0","1111100","1110000","1111000","1011100","1001110","100","0" ="0","111110","1110","11110","111010","1110010","100000","0" A"0","100","1001110","1011100","1111000","1110000","1111100","0" ="0","100000","1110010","111010","11110","1110","111110","0" G"11110000","11100000","11000000","10000001","11","111","1111","11111" X:7010b:u=1568:f:g:f,g:u:5010 bn.30,2,.50,7,.10}L,6,.30,7,.30,11 ,.50,9 l.10}L,7,.30,9 ,.30,11 ,.50,7,.10}L,7,.30,11 ,.30,14 vk.60,16:502:.30,16,.50,14,.10}L,11 ,.30,11 .30,7,.50,9 ,.10}L,7,.30,9 ,.30,11 ,.50,7,.10}L,4 h.30,4,.30,2,.60,7:502:.30,16,.50,14 .10}L,11 ,.30,11 ,.30,7,.50,9 ,.10}L,7,.30,9 ,.30,16 ~.50,14,.10}L,11 ,.30,11 ,.30,14,.60,16:502:.30,16 .50,14,.10}L,11 ,.30,11 ,.30,7,.50,9 ,.10}L,7,.30,9 n.30,11 ,.50,7,.10}L,4,.30,4,.30,2,.60,7 PLUS3DOSyy  8000@  v=3 8.3,3:.5,15:.3,20 # ( ll=0 V== P A N T A L LA == Z7:3 dV;0,0;" " in=2186 jn,29;"" kn,0;"" nn+1,0;"" sn+1,29Track-Info  R         ;"" xn+2,29;"" n+3,31;"" n+4,31;"" n+5,29;"" n 17,0;" " A2;12 ,30;"":2;12 ,1;"" 4 ^5,1;"":6,1;"":5,29;"":6,29;"" 0 619,14;"V. ";v:19,22;"999" a=16:s=16  q=0 1;a,s;"" XI6,8;"PULSA UNA TECLA":8,10 ;"PARA EMPEZAR" l 0 t6,8;" ":8,10 ;" ":10 ,6;" " *23672x\,0:23673y\,0 C8== P R O G R A M A P R I N C I P A L == Lc=*25+3 Qv=03 V,6;2;2,c;"" `e=316 j(e,c)=5021100L ~$6;2;e,c;"" e-1,c;" " (e+1,c)=579a=a-1:e,c;"":e+1,c;"X":.3,8:.2~L,2:.3,13 :.4L,16:1;a,s;"":6;2;e+1,c;"":v=v-1:19,17;v:1100L ="z"4000 x="x"5000 ="n"6000p @="m"7000X 4t=(23672x\+256*23673y\)/502 t=(1000-t) 019,22;t e 1100L == I Z Q U I E R D A == (a,s-1)=58:ll=ll+1:.5,5:1;a,s-1;"":a,s;" "::s=s-1:19,7;"":1800 ȑ(a,s-1)=60<ū(a-1,s-1)=60<ll=25,1;" ":6,1;" ":.5,8:9500% h^(a-1,s-1)=568a,s;" ":a=a-1:(a+1,s)=568s=s-1 |2(a+1,s)=568a=a+1:4220| 1;a,s;"":1800 == D E R E C H A == (a,s+1)=58:ll=ll+1:.5,5:1;a,s+1;"":a,s;" ":s=s+1:19,9 ;"":1800 (a,s+1)=60<ū(a-1,s+1)=60<ll=25,29;" ":6,29;" ":.5,8:.5,2:9500% P^(a-1,s+1)=568a,s;" ":a=a-1:(a+1,s)=568s=s+1 d2(a+1,s)=568a=a+1:5220d 1;a,s;"":1800 g== E M P U J A R I. == pNj=a:(a,s-2)=568(a,s-1)=502q=1:6008x u 1800 x\(j+1,s-2)=568j=j+1:(j+1,s-2)=568j=j+1 z:(j+1,s-2)=568j=j+1:6010z $6;2;j,s-2;"" q=1g=a :(g-1,s-1)=502g=g-1:6025 q=1g,s-1;" " K(a,s-1)=568s=s-1:1;a,s;"":a,s+1;" "  q=0  1800 O== E M P U J A R D. == XNj=a:(a,s+2)=568(a,s+1)=502q=1:7008` ] 1800 b:(j+1,s+2)=568j=j+1:7010b g$6;2;j,s+2;"" lq=1g=a q:(g-1,s+1)=502g=g-1:7025q vq=1g,s+1;" " {K(a,s+1)=568s=s+1:1;a,s;"":a,s-1;" "  q=0  1800 7== INSTRUCCIONES == @7:0: #$== G R A F I C O S == #(z=110 #2a$ #<n=07 #Fy #P a$+n,y #Zn #dz #P"a",24,36$,36$,126~,110n,118v,126~,0 #O"b",0,0,229,165,191,160,224,0 #U"c",255,129,189,165,165,189,129,255 #L"d",0,0,28,28,92\,88X,124|,27 #L"e",0,0,568,568,58:,26,62>,216 #N"f",24,60<,126~,126~,36$,102f,0,0 #O"g",0,28,28,156,136,252,30,29 #L"h",28,60<,36$,39',33!,225,0,0 #S"i",102f,231,255,255,126~,126~,Track-Info  R         60<,24 #Q"j",60<,184,153,255,60<,60<,36$,231 #== E N C I E R R O == $7.2~L,10 :.2~L,5:.2~L,2 $7:0:20 %= P U N T U A C I O N = % %0x=114 %D-10 ,x;" ":10 ,30-x;" " %X-11 ,x;" ":11 ,30-x;" " %l%2;*21,*31;"" %v#.05|L,x:.05|L,16-x %x % 30 % %G10 ,7;"ENHORABUENA HAS":12 ,10 ;"CONSEGUIDO" %x=209 -1 %14,x;t;" Puntos " % .1}L,x:.1}L,x+5 %x & H.3,5:.3,4:.3,5:.3,0 &H 20 PLUS3DOS(1 RUTINA DEMO BURLADERO ARTICULO MICROHOBBY  4 PARA DETENER LA DEMO PULSAR LA TECLA 'SPACE'  29999/u "BB.0"300000u 300000u PLUS3DOSb0u_u͌u~uuu>uͶuͭuuu>ͿuuͶuگ>2H\!@@6ɯ/(!uKvv !uwGwv~w !OP!OHH!W> H!O>z uw%!u͵!õFN~~0vw$@vw= F = &@xgxox///XgzFu~>LXXXXXXXXXXXXXTȠ P ``!P!@`*U `pp9?5`*(`x`S!A?`)/`PLUS3DOS.C.C.L instr 1,30:9500% 0:0: 6;4,0;" DESACTIVA EL MAYOR NUMERO DE BOMBAS POSIBLE APRETANDO EL DIS POSITIVO ANTES DE QUE EL CRO NOMETRO LLEGUE A 0" )0;3;6,10 ;"" 30;4;11 ,0;"";6;0;11 ,2;"SIEMPRE SUMA PUNTOS";5;0;13 ,0;"";6;0;13 ,2;"SUMA PUNTOS O ARMA LA BOMBA";2;0;15,0;"";6;0;15,2;"CASI SIEMPRE EXPLOSIONA" M0:f=40(20-2:.01z# =,f:.01z# =,f+10 :f  tecl (236099\,90Z: )L:23658j\,8::4;0,2;"DEFINICION DE TECLAS" *G5;5,0;"ARRIBA":a$:6;5,31;a$ +F5;7,0;"ABAJO":b$:6;7,31;b$ ,J5;9 ,0;"IZQUIERDA":c$:6;9 ,31;c$ -J5;11 ,0;"DERECHA":d$:6;11 ,31;d$ .ka$>1űb$>1űc$>1űd$>14;16,13 ;"ERROR":100d:40( /236099\,0 0 pant 2 4 rec=0 7in=0:bo=0:v=3:p=0:7;21,0;"";5;p;7;21,10 ;"";1;21,10Track-Info  R  ;" ";0;6;bo;7;21,18;"";6;v;21,25;7;"";5;rec <:l=0:ex=0:de=0:y=2:x=28 F%in=5v=v+1:in=0 PM6;21,12 ;bo;21,19;" ";21,19;v d4;0,0;"";0,30;"";20,0;"";20,30;"";1,0;"";19,0;"":f=129:4;0,f;"";20,f;"":f:f=119:4;f,30;"":f iif=020:4;f,31;"":f:0;248,8:0;0,166 n*4;3;20,10 ;"" x3f=218:2;f,0;" ":f }n0;0,24:0;31,0:0;0,135:0;-31,0 1;2;5,0;"";6,0;"";7,0;"";8,0;"";9 ,1;"";10 ,0;"";11 ,0;"";12 ,0;"";13 ,0;"";14,0;"" 97;1,1;"";19,1;"" 6;1,4;"";2,4;"";2,9 ;"";2,13 ;"";2,17;"";2,25;"";2,29;"";3,4;"";3,6;"";3,9 ;"";3,11 ;"";3,13 ;"";3,15;"";3,19;"";3,22;"";3,25;"";3,27;"";3,29;"" 6;4,4;"";4,7;"";4,11 ;"";4,13 ;"";4,15;"";4,17;"";4,20;"";4,22;"";4,25;"";4,27;"";4,29;"";5,4;"";5,7;"";5,15;"";5,17;"";5,20;"";5,24;"";5,27;"";5,29;"" 86;6,4;"";6,10 ;"";6,13 ;"";6,17;"";6,20;"";6,22;"";6,29;"";7,4;"";7,6;"";7,10 ;"";7,12 ;"";7,17;"";7,19;"";7,24;"";7,26;"";8,4;"";8,6;"";8,10 ;"";8,13 ;"";8,15;"";8,17;"";8,19;"";8,22;"";8,26;"";8,29;"" >6;9 ,4;"";9 ,8;"";9 ,13 ;"";9 ,15;"";9 ,19;"";9 ,28;"";10 ,4;"";10 ,8;"";10 ,11 ;"";10 ,13 ;"";10 ,15;"";10 ,22;"";11 ,4;"";11 ,8;"";11 ,10 ;"";11 ,17;"";11 ,21;"";12 ,4;"";12 ,6;"";12 ,8;"";12 ,13 ;"";12 ,17;"";12 ,19;"";12 ,22;"" 96;13 ,4;"";13 ,6;"";13 ,10 ;"";13 ,13 ;"";13 ,17;"";13 ,19;"";13 ,25;"";13 ,28;"";14,4;"";14,6;"";14,13 ;"";14,15;"";14,17;"";14,20;"";14,22;"";14,25;"";14,29;"";15,4;"";15,12 ;"";15,15;"";15,17;"";15,20;"";15,22;"";15,28;"" 6;16,4;"";16,6;"";16,13 ;"";16,15;"";16,18;"";16,20;"";16,24;"";16,29;"";17,4;"";17,10 ;"";17,13 ;"";17,15;"";17,17;"";17,20;"";17,26;"";17,29;"" 6;18,4;"";18,6;"";18,8;"";18,11 ;"";18,22;"";18,24;"";18,29;"";19,4;"";19,11 ;"" 7;0;11 ,23;" :60 ";0;4;"":0;232,80P:0;0,7:7;0;y,x;"" , obst 66500:n=1Track-Info  R 535:a:b:va=(*7) @va=0370r J.va=1va=2va=3ti=4 T#va=4va=5ti=5 ^va=6ti=2 hti;0;a,b;"" rn 6510:n=110 :a:b:va=(*6) va=0440 .va=1va=2va=3ti=4 #va=4va=5ti=5 ti;0;a,b;"" n 2,6,2,10 ,2,14,2,22,3,8,3,12 ,3,16,3,17,3,24,4,5,4,19,5,13 ,5,22,6,8,6,11 ,7,5,7,15,7,22,7,23,8,7,8,18,8,20,8,27,8,28,9 ,6,9 ,12 ,10 ,9 ,10 ,10 ,11 ,6,12 ,11 ,12 ,16,13 ,5,13 ,15,13 ,21,13 ,24,13 ,26,13 ,27,14,11 ,14,28,15,19,15,25,16,11 ,16,17,16,28,17,14,17,24,18,5,18,7,18,13 ,18,18,18,21,18,23,18,25 2,18,2,26,4,28,6,27,10 ,20,11 ,13 ,11 ,18,15,5,17,8,3,21  mov .1}L,45-:m=1 ?23674z\,0:23673y\,0:23672x\,0 ^zi=(65536*23674z\+256*23673y\+23672x\)/502:s=(60<-zi) Bs=00;7;11 ,25;;"0":8000@ D0;7;11 ,23;" : ";11 ,25;s 5=b$y,x;" ":y=y+1:7000X:7100 5=a$y,x;" ":y=y-1:7010b:7100 5=c$y,x;" ":x=x-1:7020l:7100 5=d$y,x;" ":x=x+1:7030v:7100 4+de=07;y,x;"":de=1 5+de=17;y,x;"":de=0 985;21,1;" ";21,1;p  2003 W subr X(y,x)=6y=y-1 ] b(y,x)=6y=y+1 g l(y,x)=6x=x+1 q v(y,x)=6x=x-1 { 2(y,x)=32 .1}L,20:p=p+502 (y,x)=40(7200  (y,x)=167300 եy=19x=10 1,30:p=p+1000+(s*5):5;21,1;" ";21,1;p:bo=bo+1:in=in+1:60<   z=(*2) */z=0.1}L,502:p=p+100d: 4.z=1.1}L,-10 :ex=ex+1 6ex=17;1,2;" ";0,2;"";1,1;"":.05|L,35#:7;19,1;" ";19,2;"";20,1;"":.05|L,10 7ex=28000@ H xi=(*3) .xi=0.1}L,60<:p=p+200 ,xi0.1}L,-20:8000@  @ expl JOf=020:6;f,0;" ":f Of=120 Tٺ(*8);6;9 ,0;" " Y.01z# =,f+10 ^(*8):f:0 h v=v-1 wff=020:0;f,0;" ":f:v=08100 | 60< p>recrec=p 0;5;7,6;"PULSA";1;":";0;6;9 ,2;"'ENTER' PARA VOLVER A JUGAR";11 ,2;"'1' PARA DEFINIR TECLAS" O=13 0::f=10 5025:.01z# =,f:f:557 7="1".5,25:.5,40(:40(  8109 % % gdu %&$9530:%:n=121:g$ %0%f=07:a:g$+f,a:f:n %:"a",32 ,92\,82R,170,170,170,170,170,"b",170,170,170,170,170,170,170,170,"c",85U,85U,85U,85U,85U,74J,58:,4 %D"d",248,6,249,6,250,2,252,0,"e",255,0,255,0,255,0,255,0,"f",0,63?,64@,95_,96`,159,96`,31 %NF"gTrack-Info  R ",255,0,247,136,201,170,255,170,"h",85U,255,85U,147,17,239,0,255,"i",170,167,162,159,162,167,170,191,"j",253,85U,229,69E,249,69E,229,85U %XA"k",31,32 ,87W,72H,155,164,169,170,"l",170,169,164,155,168,71G,480,15,"m",240,12 ,226,21,217,37%,149,85U,"n",85U,149,37%,217,18,234,4,248 %b<"o",129,65A,546,8,20,36$,36$,24,"p",24,36$,36$,40(,16,108l,130,129,"q",0,224,149,149,229,133,131,0,"r",0,224,146,149,231,148,147,0 %l"s",60<,60<,255,255,255,255,60<,60<,"t",102f,255,255,126~,126~,255,255,102f,"u",0,24,24,126~,126~,24,24,0 %v PLUS3DOSMHM(#HM0:0:7  1000 2000 PAN  60<  140 ( 200 2 30 <CO1=1:CO2=1:CO3=1:CO4=1:CO5=1:MT=2:G=5:HA=235:CL1=4:CL2=6:TA=1620T:TA:LM:CM FS$="":T$="":A$="~":B$="{z":C$="}|":D$="yx":E$="wv":F$="ut":G$="sr":H$="qp":I$="on":J$="ml":K$="kh":L$="ji":M$="fg":N$="de" P&X$=A$:Z$=B$:Y$=C$:W$=A$ ZeHI=0:CA=0:MA=0:MV=1:LA1=6:CA1=10 :LY1=6:CY1=6 dY20,15;A$;21,15;C$;18,30;G$;19,30;H$ n%MT;LA1,CA1;S$;LA1+1,CA1;T$ x"LY1,CY1;A$;LY1+1,CY1;B$:  INCL=(LM-LA1) INCC=(CM-CA1) INCL0INCC0 LM:LM=255TA:LM CM  LA2=LA1+2*INCL:LY2=LY1 CA2=CA1+2*INCC:CY2=CY1 "HA=HA-1:O$= 6+CY2=CY1+2*(O$="p")-2*(O$="o") @BMA=1LY2=LY1-2*(O$="q")+2*(O$=""):MV=1 JO$="a"500 THI=5:800  ^(0;HA,G:HA<150600X h(LY2,CY2)=MT600X m (LY2,CY2)=13600 rALA1LA2CA1CA21;LA1,CA1;S$;LA1+1,CA1;T$ |JLY1LY2CY1CY21;0;LY1,CY1;W$;LY1+1,CY1;Y$ /O$="p"MV=1X$=A$:Y$=C$:Z$=B$:W$=A$ /O$="p"MA=1X$=K$:Y$=N$:Z$=L$:W$=M$ /O$="o"MV=1X$=D$:Y$=E$:Z$=F$:W$=D$ /O$="o"MA=1X$=I$:Y$=H$:Z$=J$:W$=G$ %LY2=0LY2=16900 %CY2=0CY2=30860\ +MT;LA2,CA2;S$;LA2+1,CA2;T$ .(LY2+2,CY2)CL1MA=0500 cLY2+1,CY2;Z$;LY2,CY2;X$:1/502,18:LY2,CY2;W$;LY2+1,CY2;Y$ $LA1=LA2:CA1=CA2:LY1=LY2:CY1=CY2  I=10 5-1 %LY2,CY2;"_]";LY2+1,CY2;"^\" L.005y# =,2:.005y# =,I:.005y# =,I-1:.005y# =,0 &%LY2,CY2;"ca";LY2+1,CY2;"b`" 0$.005y# =,I:.005y# =,I+2 :I ?m230,20:2;-85U,0:230,5:5;-85U,0:HA=235 DZMA=0MV=1:CA=0:X$=K$:Y$=N$:Z$=L$:W$=M$:MA=1:G=20: NdMA=1HI=0MV=1:CA=1:X$=A$:Y$=C$:Z$=B$:W$=A$:MA=0:G=5: XAS=23624H\/8 lW=15 254,AS+18 254,AS+45- 254,AS-9 ?.005y# =,5:.005y# =,9 :.005y# =,2:W m230,20:2;-85U,0:230,5:5;-85U,0:HA=235 VMUE=MUE-1:1;6;18,16;MUE:MUE=0:1300   %(LY2,CY2)=CL1LY2=LY1:HI=0 4Track-Info  R (LY2,CY2)=CL2LY2=LY1 >(LY2,CY2)=CL1CY2=CY1 R(LY2,CY2)=CL2CY2=CY1 W 350^ f-CY2=0CY2=28:pan=pan-20 p-CY2=30CY2=2:pan=pan+20 .LY2=0LY2=14:pan=pan-100d .LY2=16LY2=0:pan=pan+100d <0;0,0;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 2050:pan :7:180,60<:0,80P:180,60<:30,60<:180,60<:-30,60<:210,120x:-60<,0:180,60<:-15,60<:180,60<:15,60< x180,140:20,0:10 ,-20:180,140:-20,0:-10 ,-20 (O195,120x:-5,20:165,120x:5,20 2L1;7,1;"CA>";8,1;"B?@?=" ";18,1;"B?@?=" 1;19,1;"A|CL1=2:CL2=5:TA=1690:S$="":T$="":MT=6:MT;8,12 ;"KJ";9 ,12 ;"IH": H+a=0142:4;a,0;O$(12);a+1,0;P$(12):a:5;0,12 ;Q$(221);1,12 ;R$(221);6,2;O$(130);7,2;P$;14,0;O$;15,0;P$ RCL1=5:CL2=4:TA=1700:S$="":T$="":MT=3:MT;4,4;"KJ";5,4;"IH";CO4;12 ,4;"GF";13 ,4;"ED": \5;0,0;Q$;1,0;R$;6,0;6,0;O$;7,0;P$;14,0;O$;15,0;P$;4;8,16;O$(12);9 ,16;P$(12) fFTA=1710:MT;12 ,16;"KJ";13 ,16;"IH": p5;0,0;Q$;1,0;R$;6,0;6,0;O$(110 );7,0;P$(110 );6,16;O$(217);7,16;P$(217);14,0Track-Info  R ;O$;15,0;P$;8,16; zFTA=1720:MT;12 ,14;"KJ";13 ,14;"IH": 3420\ =a=0142:4;a,30;O$(12);a+1,30;P$(12):a:5;0,0;Q$(313 );1,0;R$(313 );6,0;O$;7,0;P$;14,0;O$(120);15,0;P$(120) zCL1=5:CL2=4:TA=1740:S$="":T$="":MT=3:MT;4,8;"KJ";5,8;"IH": a=2142:3;a,0;O$(12);a+1,0;P$(12):a:6;0,0;Q$;1,0;R$;6,10 ;O$(122);7,10 ;P$(122);14,0;O$;15,0;P$ wTA=1700:MT;12 ,6;"KJ";13 ,6;"IH";CO5;12 ,8;"GF";13 ,8;"ED": 6;0,0;Q$;1,0;R$;6,0;6,0;O$;7,0;P$;14,0;O$;15,0;P$:a=812 2:3;a,10 ;O$(12);a+1,10 ;P$(12):a TA=1710: 6;0,0;Q$;1,0;R$;6,0;6,0;O$(110 );7,0;P$(110 );6,16;O$(217);7,16;P$(217);14,0;O$;15,0;P$;8,16; TA=1720: 3520 =a=0142:3;a,30;O$(12);a+1,30;P$(12):a:6;14,0;O$;15,0;P$;6,0;O$(127);7,0;P$(127);0,0;Q$(120);1,0;R$(120) |CL1=6:CL2=3:TA=1740:S$="":T$="":MT=4:MT;4,18;"KJ";5,18;"IH": ;LY2=6CY2=28.05|L,2:CO1=0 <LY2=12 CY2=18.05|L,2:CO2=0 $<LY2=12 CY2=20.05|L,2:CO3=0 .;LY2=12 CY2=4.05|L,2:CO4=0 8;LY2=12 CY2=8.05|L,2:CO5=0 B;DIA=DIA+1:1;6;17,23;DIA LDIA=53670V Q V :1:a=0255 ` a,0 j,1;2*(127.5-a),175 t0,a*175/255 ~?1;255,2*(87.5/-a*175/255) a &N=-30502:.01z# =,N:N /N=502-30-1:.01z# =,N:N D.1}L,39':10 ,15;"GF";11 ,15;"ED" 0::1300 #( 64600X #2"BD.0"64600X #<-236066\,87W:236077\,251 #F 1 #P+236066\,0:236077\,60< PLUS3DOSX>$$$~$$~$>(> >bd&F(*D:  >>> <<<<<<<<<ذ`n66 ,4v.nYKN{&>88p,L FdTԔ ґ`;7 ǎ?nVVVVl~~~|_`~7W+W++8y7u.}>_/\;_*<~(U+_/W?(  (@@@ P @@(;@p|>?ܿ@p;?s6=>|=̌0y Ę8y  PN9+`31 8x3#/w8rp ><<<< g0prq18/N8 7l6f2 36fL0<"C>$H0HD|x9EsIJ|DbHHHP2 v/?XGG;r 2Track-Info  R Gnl@ ?sg?*]\"_\C*]\~}t[3*a\Þ*x\#"x\| 4@Ϳnu{=\Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R         Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''