ZXTape! 2eARITMETICAS BASICAS (Side B)ROSET / INVESTRONICA1984SPANISH EDUCATIVENONEORIGINAL TAPE multip 75 9A.Cowley B.Sc.Nov.1982  5 @32434~:"m/c"32440~:"gr""a":"Pt.Esp.":6  6  2000 "a(5):b$(4,17)  b$(1)="columna unidades" b$(2)="columna decenas" b$(3)="columna centenas" b$(4)="columna miles"  s=550& Fn$(1,19) H n$(1) Q 1: T>1:1,6;" Que nivel eliges? ":0 W"3,0;"Multiplicar:-" Z!5,0;"1. Unidades?" ]+7,0;"2. Decenas y unidades?" `49 ,0;"3. Centenas,decenas y unidades?" c)12 ,10 ;"Teclea 1,2 o 3" f=""102f il$= j""106j ll$<"1"l$>"3"102f pl=l$ 8ink=(*3)+4:ink:1:0:ink: n$(1)  *" Multiplicacion ",,,,"Nivel ";l,,,, $"Intentalo otra vez, ";n$(1)  s=550& r=8 550& c(5):i=020 %i,11 ;" " i t=20 i=15 a(i)=(*9 )+1  i  a(5)=1260  7l=1a(1)*a(5)>25260  &i=l+14:a(i)=0:i (0,0;"Multiplicacion "  k=1l j=32 -4*k  i=3 690+10 *a(k) "k &6i=8:j=28:690+10 *a(5) /Ci=28-4*l29:12 ,i;"-";17,i;"-":i 8,i=8:j=23-4*l:790 A0,27;"unid." JOi=13:c(i+1)=(((a(i)*a(5)+c(i))/10 ))*(il):i V8c(2)0l>10,22;"dec." Y<l=3c(3)00,19;"cen.dec." h.c(4)00,15;"mil." t k=1l wI20,11 ;"Que debo poner en la ";21,11 ;b$(k);"?" z 800  }Ci=14:j=32 -4*k:690+10 *q:890z Qq=a(5)*a(k)+c(k)-(((a(5)*a(k)+c(k))/10 ))*10 400 !850R:795:375w  870f %k=lc(k+1)=0480 klk=k+1 k>lc(k)=0480 k=l+1375w k=l+2486 W20,11 ;"Cuantas me llevo ? ";21,11 ;" "  800   18,28-4*k;q q=c(k+1)470  850R "18,28-4*k;" "  412  870f  20:k s=s+t s<530s=530 (s+350^*(t=-20)) t=20509  :d$="" l>2d$=a(3) l>1d$=d$+a(2) d$=d$+a(1) ,d$, d$="" l>2d$=" " l>1d$=d$+" " d$=d$+a(5) ,d$, +d$="---":,d$(1l),,,,d$(1l) ,21,11 ;" " ,20,11 ;"Mas? s o n " =""516 q$= q$="n"530  s=530210  215 :1:1:1,9 ;" ";2,9 ;" Hasta pronto ";3,9 ;" ":0 Cv$=n$(1):z=191-1:v$(z)" "533 v$=v$(z):z 20:5,((32 -(v$))/2);v$ f11 ,12 ;" Teclea ";13 ,10 ;"RUN y ENTER";15,10 ;"para empezar"  _14,4;" ";15,2;" ";16,3;" ";17,4;" "  )513,45-:-20,0,- ! #116,3;" ";17,4;" " $U30,40(:20,0,-/4:-20,0,2*/3 % &40(,60<,30 )40(,30 ,-10 ,-15,.3 /-10 ,-15,-.3 9 :+j=16:r+6,3;"_" D/10 :r+6,3;"O":15:j E N.j=16:r+6,3;"O _" O210 :r+6,3;"O O":15:j P bKj=1100d:r+7,4;" ";r+7,4;"":j g.20,11 ;" Solo te queda una " hz=13:.1}L,z*5:.1}L,z*5:.1}L,z*5:.25~*(1+(z=3)),(z+1)*5:z*5:z i w.20,11 ;"** Estas listo ? **" xz=24:.1}L,z*5:.1}L,z*5:.1}L,z*5:.25~*(1+(z=4)),(z+1)*5:z y s=530 zp$="|ADIOS|" {z=20:y=0 }p=132 (32435~,8:fred=32440~ p>p$649 &p<521,1+p;p$(p) &p>421,9 -p;p$(p)  670 z0670 2y=0z,1;"-";z+1,2;" " 2y=1z,2;"|";z-1,1;" " #y=y+1-((y=1)*2) y=0z=z-2 p 0,1;" " &ink=(*3)+4:ink:ink:  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;"  " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;"  "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "  i+0,j;" " i+1,j;" " i+2,j;" "    i+0,j;" " i+1,j;" " i+2,j;" "  \j*8,110n:24,-24:j*8+24,110n:-24,-24  4i,j;" ";i+1,j;" ";i+2,j;" ":  =""800  #q$= &q$<"0"q$>"9"800  '""807' ) q=q$: R,20,11 ;"No no, hazlo de nuevo" S4890z:.5,-10 :1.5@,-20 U$547#:20:t=-20: f020,11 ;" Bien hecho!!!  " g|890z:543:.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :502: ps=550&: zM21,11 ;" ";21,11 ;n$(1): Wj=13:r+6,3;"O":10 :r+6,3;" ":20 j: ]j=14:r+6,3;"O O":10 :r+6,3;"O ":20 j: ]j=16:r+7,4;"":10 :r+7,4;" ":20 j:   (6:6:1:2:  0,12 ;" Hola " j128,88X:25,25:30,-30,-:-30,-30,-:-25,25 V25,-25:-30,-30,-:-30,30,-:25,25 V-25,-25:-30,30,-:30,30,-:25,-25 V-25,25:30,30,-:30,-30,-:-25,-25 123{,83S,7  0 )20,9 ;"Como te llamas?"  e"multip"3:"m/c"32440~,150:"gr""a",168:"Pt.Esp.":0:4000 Icolumna unidades columna decenas columna centenas columna miles s&hh L3lnrJttjqD---QnVhh 4m/c ~v  H!? T] ~T]B~T] ~T] ~T] ~T]B~T] ~!~5 Igr X#?`??x? Pt.Esp. @"#idU#1LS@mSsge[@B<@<m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @<<TOoLl5Tn>Ç xB8h8888h88BJ`)#?"UJ!)8x`0@DTDDT@;oʷҘf̪) lJxx@@DTDx1:1,7;" Que nivel eliges? ":0 W3,0;"Dividir :-" Z!5,0;"1. Unidades?" ]+7,0;"2. Decenas y unidades?" `49 ,0;"3. centenas,decenas y unidades?" c%12 ,10 ;"Teclea 1,2 o 3" f=""102f il$= j""106j ll$<"1"l$>"3"102f pl=l$ 8ink=(*3)+4:ink:1:0:ink: n$(1)  $" Division ",,,,"Nivel ";l,,,, $"Intentalo otra vez, ";n$(1)  s=550& r=8 550& c(4):i=020 %i,11 ;" " i t=20 i=14 a(i)=(*10 )  i  a(4)<2260  Da(l+2*(l=1)-2*(l=3))j=20+4*y+8*(l=1)+4*(l=2)  i=10 690+10 *a(k)  y=y+1 "k &Bj=17:790:j=35#:690+10 *a(4) 0C140,105i:(4*l+1)*9 -10 ,0 A%2,15+4*l;"unid." D/l>12,10 +4*l;"dec." G*l=32,18;"cent.dec." q y=0 tk=4-l3 wI20,11 ;"Que debo poner en la ";21,11 ;b$(k);"?" z 800  }Li=15:j=20+4*y+15:690+10 *q:890z 1q=((a(k)+10 *c(k))/a(4))400 !850R:795:375w  870f ,20,11 ;"Cual es el resto? "  800  k3430 %18,11 ;"Resto final ";q  433 =q04,4*y+6+4*(l=2);q Qc(k+1)=(10 *c(k)+a(k))-((10 *c(k)+a(k))/a(4))*a(4) q=c(k+1)470  850R K4,4*y+6+4*(l=2);" ";18,21;" "  406  870f 20:y=y+1:k s=s+t s<530s=530 (s+350^*(t=-20)) t=20509  :d$="____" ," ";d$(1l+1) d$="" l>2d$=a(1) l>1d$=d$+a(2) d$=d$+a(3) ,a(4);")";d$  ,21,11 ;" " ,20,11 ;"Mas? s o n " =""516 q$= q$="n"530  Dt=48:t,0;" ":t  s=530210  215 :1:1:1,9 ;" ";2,9 ;" Hasta pronto ";3,9 ;" ":0 Cv$=n$(1):z=191-1:v$(z)" "533 v$=v$(z):z 20:5,((32 -(v$))/2);v$ e11 ,12 ;" Tecla ";13 ,10 ;"RUN y ENTER";15,10 ;"para empezar"  _14,4;" ";15,2;" ";16,3;" ";17,4;" "  )513,45-:-20,0,- ! #116,3;" ";17,4;" " $U30,40(:20,0,-/4:-20,0,2*/3 % &40(,60<,30 )40(,30 ,-10 ,-15,.3 /-10 ,-15,-.3 9 :+j=16:r+6,3;"_" D/10 :r+6,3;"O":15:j E N.j=16:r+6,3;"O _" O210 :r+6,3;"O O":15:j P bKj=1100d:r+7,4;" ";r+7,4;"":j g.20,11 ;" Solo te queda una " hz=13:.1}L,z*5:.1}L,z*5:.1}L,z*5:.25~*(1+(z=3)),(z+1)*5:z*5:z i v.20,11 ;"** Estas listo ? **" xz=24:.1}L,z*5:.1}L,z*5:.1}L,z*5:.25~*(1+(z=4)),(z+1)*5:z y s=530 zp$="|ADIOS|" {z=20:y=0 }p=132 (32435~,8:fred=32440~ p>p$649 &p<521,1+p;p$(p) &p>421,9 -p;p$(p)  670 z0670 2y=0z,1;"-";z+1,2;" " 2y=1z,2;"|";z-1,1;" " #y=y+1-((y=1)*2) y=0z=z-2 p 0,1;" " &ink=(*3)+4:ink:ink:  %i-5+0,j-16;" " )i-5+1,j-16;" " %i-5+2,j-16;" "  )i-5+0,j-16;" " )i-5+1,j-16;"  " )i-5+2,j-16;" "  %i-5+0,j-16;" " %i-5+1,j-16;" " )i-5+2,j-16;" "  %i-5+0,j-16;" " %i-5+1,j-16;" " %i-5+2,j-16;" "  %i-5+0,j-16;" " )i-5+1,j-16;" " +i-5+2,j-16;"  "  )i-5+0,j-16;" " %i-5+1,j-16;" " %i-5+2,j-16;" "  %i-5+0,j-16;" " )i-5+1,j-16;" " %i-5+2,j-16;" "  %i-5+0,j-16;" " %i-5+1,j-16;" " %i-5+2,j-16;" "  %i-5+0,j-16;" " %i-5+1,j-16;" " %i-5+2,j-16;" "    %i-5+0,j-16;" " %i-5+1,j-16;" " %i-5+2,j-16;" "  )140,105i:0,40(: gi-5,j-16;" ";i-5+1,j-16;" ";i-5+2,j-16;" ":  =""800  #q$= &q$<"0"q$>"9"800  '""807' ) q=q$: R,20,11 ;"No no, hazlo de nuevo" S4890z:.5,-10 :1.5@,-20 U$547#:20:t=-20: f020,11 ;" Bien hecho!!!  " g|890z:543:.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :502: ps=550&: zM21,11 ;" ";21,11 ;n$(1): Wj=13:r+6,3;"O":10 :r+6,3;" ":20 j: ]j=14:r+6,3;"O O":10 :r+6,3;"O ":20 j: ]j=16:r+7,4;"":10 :r+7,4;" ":20 j:   &6:6:1:2:  0,12 ;" Hola " j128,88X:25,25:30,-30,-:-30,-30,-:-25,25 V25,-25:-30,-30,-:-30,30,-:25,25 V-25,-25:-30,30,-:30,30,-:25,-25 V-25,25:30,30,-:30,-30,-:-25,-25 123{,83S,7  0 )20,6;"Cual es tu nombre ?"  d"divid"3:"m/c"32440~,150:"gr""a",168:"Pt.Esp.":0:4000  5columna centenascolumna decenas columna unidadessnn L3lnr yt+dbqD846P|ADIOS|! }reQnVnn 9m/c ~Qc H!? T] ~T]B~T] ~T] ~T] ~T]B~T] ~!~5 >gr X ?`??x?Pt.Esp. @+#idU#1LS@mSsge[@B<@<m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @<<TOoLl5Tn>Ç xB8h8888h88BJ`)#?"UJ!)8x`0@DTDDT@;oʷҘf̪) lJxx@@DTDx