ZXTape! 2eARITMETICAS BASICAS (Side A)ROSET / INVESTRONICA1984SPANISH EDUCATIVENONEORIGINAL TAPE suma   A.Cowley B.Sc.Oct.1982  5 @32434~:"m/c"32440~:"gr""a":"Pt.Esp.":6  6  2000 "a(6):b$(3,16)  b$(1)="columna unidades" b$(2)="columna decenas" b$(3)="columna centenas" c=0  s=550& Fn$(1,19) H n$(1) Q 1: TB1:1,7;" Que nivel eliges ?":0 W5,2;"SUMAR:-" Z 8,2;"1.Unidades?" ]+10 ,2;"2.Decenas y unidades?" `412 ,2;"3.Centenas,decenas y unidades?" c-15,9 ;2;"Teclea 1,2 o 3" f=""102f il$= j""106j ll$<"1"l$>"3"102f pl=l$ 2k=(*3)+4:k:1:0:k: n$(1)  " SUMA ",,,,"Nivel ";l,,,, $"Intentalo otra vez, ";n$(1) s=550& r=8 550& i=120 %i,11 ;" " i t=20 i=16 a(i)=(*9 )+1  i  6l=3a(3)+a(6)>8260  6l=1a(1)+a(4)>9 260  6l=2a(2)+a(5)>8260 1,1;" SUMA " h=033 k=1+hl+h  j=31-5*k+5*h i=5*h/3+3 690+10 *a(k)  $l=1990+10 *a(k) "k ,h /Ci=28-4*l29:12 ,i;"_";17,i;"_":i 8,i=8:j=24-4*l:790 A@0,26;"unid.":l>10,20;"dec." G&l=30,14;"cent." J k=1l MI20,11 ;"Que debo poner en la ";21,11 ;b$(k);"?" P 800  Y8i=14:j=31-5*k:690+10 *q `!l=1990+10 *q b 890z hAq=a(k)+a(k+3)+cq=a(k)+a(k+3)+c-10 400 k850R:795 pRl=1i,29;" ";i+1,29;" ";i+2,29;" " } 333M  870f  l=2k=2480  l=1k=3480 V20,11 ;"Cuantas me llevo ? ";21,7;" "  800   18,27-5*k;q 0q=((a(k)+a(k+3)+c)/10 )470  850R "18,27-5*k;" "  412 870f:c=q  20:k s=s+t s<530s=530 (s+350^*(t=-20)) t=20506  $i=143:d$="" l>2d$=a(i+2)  l>1d$=d$+a(i+1)  d$=d$+a(i)  ,d$,:i  d$="---" !,d$(1l),,,,d$(1l) +21,7;" " ,20,11 ;"Mas? s o n " =""512 q$= q$="n"q$="N"530  #c=0:s=530211  215 -:1,8;" HASTA PRONTO " Cv$=n$(1):z=191-1:v$(z)" "533 v$=v$(z):z 20:5,((32 -(v$))/2);v$ e11 ,11 ;" TECLEA ";13 ,9 ;"RUN y ENTER";15,9 ;"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 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;" "  k=(*3)+4:k:k:  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;" "  i+0,j;"  " i+1,j;"" i+2,j;"  "  4i,j;" ";i+1,j;" ";i+2,j;" ":  =""800  #q$= &q$<"0"q$>"9"800  '""807' ) q=q$: R,20,11 ;"No,intentalo otra vez" S4890z:.5,-10 :1.5@,-20 U$547#:20:t=-20: fV20,11 ;"Bien hecho!!! ";21,7;" " 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:   GI,29;" ";I+1,29;" * ";I+2,29;" "  GI,29;" * ";I+1,29;" * ";I+2,29;" "  GI,29;" * ";I+1,29;" * ";I+2,29;" * "  GI,29;"** ";I+1,29;"** ";I+2,29;" "  GI,29;" * ";I+1,29;"***";I+2,29;" * "  GI,29;"** ";I+1,29;"** ";I+2,29;"** "  $GI,29;"** ";I+1,29;"***";I+2,29;"** " % .GI,29;"***";I+1,29;"***";I+2,29;"** " / 8GI,29;"***";I+1,29;"***";I+2,29;"***" 9 &6:6:1:2:  1,13 ;" 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;" Como te llamas ? "  JPm/c ~ H!? T] ~T]B~T] ~T] ~T] ~T]B~T] ~!~5 gr X 9?`??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"3"102f Al=l$:ink=(*3)+4:ink:1:0:ink: 0n$(1)::" Resta ",,,,"Nivel ";l,,,, $"Intentalo otra vez, ";n$(1) %:s=550&:r=8:550& <i=120:i,11 ;" ":i Ic(3):t=20:i=16:a(i)=(*9 )+1:i  .l=1a(1)a(4)270  &a(l)-a(l+3)<2260  )l=3a(2)=1260  0,2;" Resta " h=033 k=1+hl+h  j=31-5*k+5*h i=5*h/3+3 690+10 *a(k)  $l=1990+10 *a(k) "k:h /Ci=28-4*l29:12 ,i;"-";17,i;"-":i 8,i=8:j=24-4*l:790 A@0,26;"unid.":l>10,20;"Dec." G&l=30,12 ;"Cent." Kk=1l:l=k372t M,20,11 ;"Me llevo una (s o n)?" P=""336P Sq$=:d$="s" V<a(k+3)c(k)a(k+3)a(k)*(c(k)=0)d$="n" Wq$d$850R:333M X 870f Yd$="n"372t Zc(k)=0352` [c(k)=c(k)+10 :355c `c(k)=a(k)+10 c#c(k+1)=a(k+1)-1 f!j=29-5*k:680 i)2,j+2+(c(k)<10 );c(k) lj=j-5:680 r92,j+2+(c(k+1)<10 );c(k+1) tI20,11 ;"Que debo poner en la ";21,11 ;b$(k);"?" zC800 :i=14:j=31-5*k:690+10 *q !l=1990+10 *q ?890z:q=a(k)*(c(k)=0)+c(k)-a(k+3)400 850R:795 Rl=1i,29;" ";i+1,29;" ";i+2,29;" "  372t 870f:20:k !s=s+t:s<530s=530 4(s+350^*(t=-20)):t=20506 &:i=143:d$="" l>2d$=a(i+2)  l>1d$=d$+a(i+1) d$=d$+a(i):,d$,:i +d$="---":,d$(1l),,,,d$(1l) U21,11 ;" ";20,11 ;"Mas? s o n " =""512 q$=:q$="n"530  #c=0:s=530211  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$ h11 ,11 ;" 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;" " $W30,40(:20,0,-/4:-20,0,2*/3: &40(,60<,30 ,140(,30:-10 ,-15,.3 /!-10 ,-15,-.3: :+j=16:r+6,3;"_" D110 :r+6,3;"O":15:j: N.j=16:r+6,3;"O _" O410 :r+6,3;"O O":15:j: 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: 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 z2s=530:p$="|ADIOS|":z=20:y=0 <p=132 :32435~,8:fred=32440~ p>p$649 'p<5 21,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:: /1,j+5;"/";2,j+4;"/" )5,j+1;"/";6,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;" ":  i+0,j;" " i+1,j;" " i+2,j;" ": Bi+0,j;" ";i+1,j;"";i+2,j;" ": 4i,j;" ";i+1,j;" ";i+2,j;" ":  =""800  & q$=:q$<"0"q$>"9"800  '""807' ) q=q$: R,20,11 ;"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): \j=13:r+6,3;"O":10 :r+6,3;" ":20:j: bj=14:r+6,3;"O O":10 :r+6,3;"O ":20:j: bj=16:r+7,4;"":10 :r+7,4;" ":20:j:  II,29;" ";I+1,29;" * ";I+2,29;" ": II,29;" * ";I+1,29;" * ";I+2,29;" ": II,29;" * ";I+1,29;" * ";I+2,29;" * ": II,29;"** ";I+1,29;"** ";I+2,29;" ": II,29;" * ";I+1,29;"***";I+2,29;" * ": II,29;"** ";I+1,29;"** ";I+2,29;"** ": $II,29;"** ";I+1,29;"***";I+2,29;"** ": .II,29;"***";I+1,29;"***";I+2,29;"** ": 8II,29;"***";I+1,29;"***";I+2,29;"***": F6: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 R123{,83S,7:0:20,7;" Como te llamas ?": !5columna unidadescolumna decenas columna centenascs& L1lnr/tKjQ4q!m/c ~a H!? T] ~T]B~T] ~T] ~T] ~T]B~T] ~!~5 gr X 9)?`??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