ZXTape! 2s2PROGRAMA DE ADIESTRAMIENTO CON ORDENADOR (P.A.C.O. INVESTRONICA1984SPANISH EDUCATIVENONEORIGINAL TAPE P.A.C.O. Y Yp[ 0:0:7: "sc" 0:13 ,0; ("paco" sc @<B>BB~<|<<<<>bB@@BBbBB@B@<RB|<BBR@B<B|JB@|BJ@~~xF$@BDBFBBBB<B>B~<B>BHx<B~8<><<<|3025  N$(X)=X$ 14,X;N$(X) WF=6:F,1;" SYMBOL SHIFT Y N PARA LA   ":200 XF=11 :F,1;" PULSA ENTER PARA FINALIZAR ":200:17 N$12 33! )X=813 :N$(X)=" "29 X (X=27:N$(X)=" "29 X N$=N$(1X-1) OF=18:F,1;" SI NO TE IMPORTA, TE LLAMARE: ":200 21,0;N$ ! 9000(# #V:F=8:F,1;" BIEN ";N$;", DIME QUE ":200 (JF=11 :F,1;" DESEAS HACER: SUMAR, RESTAR, ":200 )JF=14:F,1;" MULTIPLICAR O DIVIDIR ":200 /$O$:O$>30O$=O$(30) 021,0;O$ A C=5 B T=5 FX=1̱O$ K=O$(X)="-"O$(X)="R"O$(X)="J"O$="SUBSTRACCION"2000 M5O$(X)="+"O$(X)="S"O$(X)="A"O$(X)="K"1000 P=O$(X)="X"O$(X)="M" O$(X)="*"O$="B"O$(X)="."3000 U5O$(X)="V"O$(X)="/"O$(X)="D"O$(X)=":"4000 Z#X:8,1;W$(30) ^LF=8:F,1;"POR FAVOR ";N$;", ":200 _BF=11 :F,1;" REPITEMELO: ":200 `!21,0;W$(30) d 46. xGRAFICOS DEFINIDOS  :C=12:C$ X=07:Q C$+X,Q X:C K"C",0,16,0,16,32 ,64@,66B,60< K"D",0,74J,96`,82R,74J,70F,66B,0  tF-1,0;"";F,31;""  ,F-1,0;" DIFICULTAD";1,31;"";F,12 ;" 123456789 EVALUACION";3,31;"" -  1:1:7: L" PROGRAMA PARA ADIESTRAMIENTO EN OPERACIONES ARITMETICAS " "ESTE PROGRAMA C.A.I.(INSTRUCCIONASISTIDA CON UN COMPUTADOR), NOPRETENDE SUBSTITUIR AL PROFESOR,SINO AYUDARLE, HACIENDO QUE ELALUMNO EJERCITE Y AFIANCE LOSCONOCIMIENTOS QUE PREVIAMENTE HAADQUIRIDO." ,,"LO HEMOS HECHO ADAPTATIVO PARAQUE POR MEDIO DE UNA EVALUACIONCONTINUA, LE PLANTEE AL ALUMNOLOS EJERCICIOS MAS ADECUADOS ASU NIVEL. A ESTE FIN SE HAESTABLECIDO UNA DIFICULTAD QUEVA DESDE 1(MINIMA) A 9(MAXIMA)." ,,"AUNQUE SE ESCOJA UNA DIFICULTADINICIALMENTE INADECUADA, DESPUESDE UNOS EJERCICIOS, SE ADAPTARAAL ALUMNO. QUE NIVEL ELIGE?" 50:D$=:D$<491ůD$>579440 R21,11 ;" NIVEL ELEGIDO : ";D$;" ":D=D$:9000(#:  0O$="SUMAR":Y$""Y$O$D=5 Y$=O$:PIN=0  5000  T=T+1 T=169200#  F=2 K1=P  G$=(P+S) T=69500%  F,1;"SUMAR "  300,  9700%  9600%  9800H& 610 ,15-K1;P;11 ,13 -K1;"+ ";S 12 ,13 -K1;J$(1(K1+2));13 ,0;W$(30):A$"S"D2I113 ,0;W$(31) 9((P=0S=0)D2)D31040 [6,0;"TIENES ";7,0;"Y TE DAN ";8,0;"LUEGO TENDRAS "  X=1P  )6,6+(X*2);"* "  X  X=1S  17,8+(X*2-1);"* " X ,R$="":21,0;"TOTAL?"  PP=0 %I=G$1-1:PIN=0 CV$="":0:V$=:V$=""ůV$>579ůV$<4801043 ,13 ,14-G$+I;V$:G$(I)V$X=1502:X:X=14:13 ,14-G$+I;"";13 ,0;Z$:.2~L,-20:13 ,14-G$+I;V$;13 ,0;W$(15-G$+I):X:PIN=PIN+1:U=I:1699:I=U:V$=G$(I):PIN31043 "R$=V$+R$:PIN0PP=PP+PIN  I:PIN=PP +PIN>1R$=G$9400$:1430 L!21,0;W$(10 ) N 1500 Q 1002 21,0;W$ X=2*(*4)  F=16  200  F,1; 9300T$+X N$;"," X=2*(*5)  F=19  200  F,1; 9350$+X  1001 EE$(T-5)=D:C=C+1:C/T.77ERD<9 D=D+1 SX=2*(*15):F=15:200:F,1;:9100#+X:N$;"," MX=2*(*11 ):F=19:200:F,1;:9130#+X: 0:1540 PIN>31820 #D<3PIN>11705 #D>3PIN21740 #D2PIN=21720  "P+S<10 8,14; !P+S10 9 ,0; !X=1P+S:"* ";:X A$="S":1900l 21,0;W$  G$>P$I>1I=I-1 Y15,0;"CUANTAS SON ";P$(I);" + ";F$(I);"?";W$;W$;W$;W$:""1750 tNN=P$(I)+F$(I):V$="":S$="":NN>9 0:S$=:S$=""űS$>2ůS$<480ůS$>5791755 17,0;S$ B0:V$=:V$1ůV$<480ůV$>5791765  S$=S$+V$ S$=P$(I)+F$(I)1800 O17,0;W$;W$;17,0;S$;" NO ";N$;" ,SON ";P$(I)+F$(I) ((P$(I)+F$(I)>9 )I1)(P$(I+(I9 )18,0;" "  1810 J17,0;W$;17,0;S$;", DE ACUERDO ";N$:1790 $9000(#:9900&:1900l  13 ,14-G$+U;G$(U) l'21,0;"TOTAL?": -O$="RESTAR":Y$""Y$O$D=5 Y$=O$:T=T+1  PIN=0 T=169200#  6000p G$=((P-S))  F=2 T=69500% F,1;"RESTAR "  300, G$=H2015  G$="0"+G$  2012  9700%  K1=(P)  K2=(S) K222029 X6,0;"TIENES ";7,0;"Y DAS ";8,0;"LUEGO TENDRAS "  2200 S$="" CR$="":13 ,0;W$;21,0;"RESTO?"  PP=0 %I=G$1-1:PIN=0 CV$="":0:V$=:V$=""ůV$>579ůV$<4802036 ,13 ,14-G$+I;V$:G$(I)V$X=1502:X:X=14:13 ,14-G$+I;" ";13 ,0;Z$:.2~L,-20:13 ,14-G$+I;V$;13 ,0;W$(15-G$+I):X:PIN=PIN+1:U=I:2699 :I=U:V$=G$(I):PIN32036 "R$=V$+R$:PIN0PP=PP+PIN  I:PIN=PP +PIN>1R$=G$9400$:2455 3PIN>1ƺ(R$)=(G$)9400$:2455 !R$Hƺ(R$)=(P-S)21004 R$H2400` -S$=0ƱR$>1ưR$=G$21004  2032 % R$=S$+R$ / 2045 4!21,0;W$(15) 6 1500 9 2001  X=1P 16,6+(X*2-1);"* " X  X=1S /7,8+(X*2-2);"* " X  2029 21,0;W$ X=2*(*4) F=16 200 F,1; 9300T$+X N$;"," X=2*(*5) F=19 200 F,1; 9350$+X 2001 PIN>32820 #D<3PIN<12705 #D>3PIN22740 #D2PIN=22720  >X=1P-S:8,13 +2*X;"* ":X 2900T 21,0;W$ G$>P$I>1I=I-1 s15,0;W$;W$;W$;W$;15,0;"CUANTAS SON ";P$(I)+((P$(I)579ůV$<4802755 S$=S$+V$ :S$=P$(I)+((P$(I)":2795 fIɱG$(P$(I+1)-F$(I+1)<0)18,0;" " 2810 K17,0;W$;17,0;S$;" ,DE ACUERDO ";N$;:2790 $9000(#:9900&:2900T  13 ,14-G$+U;G$(U) T'21,0;"RESTO?": 8O$="MULTIPLICAR":A$="M":Y$""Y$O$D=5 Y$=O$:T=T+1 PIN=0 T=169200# 7000X K1=(P) K2=(S) F=2 T=69500% F,1;O$ 300, 9700% 9600% 9800H& Z6,19-K1;P;7,16-K2;"X ";S;8,16-K2;J$(K2+3) J=1K2 K3=((S(J)*P)):R$="":S$="" I=K31-1 0PAR=0:D<3PIN<13700t %21,0;"TOTAL?" U=I:3800:R$=V$+R$:I R$=(P*S(J))3098  9900& J HK2>13106" :(PIN2D5C/T.76)(PIN2D>5C/T>.76)3106 #PIN2D>53106" #PIN<2D<63500 /PIN2D<69950&:9400$ ! 3001 "08+J,19-((P*S));J$((((P*S)))) #J=J+1:PAR=0 $G$=(P*S):K3=(P*S) %7S$="":R$="":21,0;"TOTAL?" &PP=0:I=K31-1:PAR=0:3985:R$=R$+V$:I:PP>2PIN=PIN+1:PP>4PIN=PIN+1 'PIN<23500 ($9950&:9400$:3001 ;PAR=0PIN221,0;W$:1500 3001 t!P=1S=13040 uW=1S-1 v&17,0+(W*2);P;"+"; xW zP; | W=1S ~"19,0+(W*2);W; W  3040 ENTRADA DE MULTIPLICACION G$=(P$*S(J)) K3>P$U=U-1 CV$="":0:V$=:V$<480ůV$>579V$=""3805 -V$=G$(I)8+J,19-J-K3+I;V$: 8+J,19-J-K3+I;V$:X=1502:X:X=14:8+J,19-J-K3+I;"";8+J,0;Z$:.2~L,-20:8+J,19-J-K3+I;V$:X:8+J,19-J-K3+I;" " ;8+J,0;W$(10 ) PIN=PIN+1 PAR=PAR+1 PAR<33805 -PAR>4D3V$=G$(I):3808 /PAR>2PAR4D33880( 2U=0U=U+1 715,0;W$;W$;W$;W$;W$;21,0;W$;15,0;"CUANTAS SON ";S(J);" X ";P$(U);"?":""38957 9 0:T$=:T$=""űT$>2ůT$>579ůT$<4803900< AX17,0;T$:0:V$=:V$1ůV$<480ůV$>5793905A FT$=T$+V$:N=1̱T$ KT$=P$(U)*S(J)3970 P517,0;T$;" NO ";N$;" ,SON ";P$(U)*S(J) U((P$(U)*S(J))>10 U>1)(P$(U+(U<(K3-(K3>P$)+(K3-(K3>P$)>U))))*S(J)>10 )((P$(U+(U<(K3-1+(K3-1>U))))*S(J))>(G$(U+(K3>P$))))18,0;"" Z$9000(#:9920&:3980 517,0;T$;" ,DE ACUERDO ";N$:3925U 121,0;"TOTAL?":3805 CV$="":0:V$=:V$=""ůV$<480ůV$>5793985 )8+J,18-K3+I;V$:V$=G$(I) X=130:X:X=14:8+J,18-K3+I;" ";8+J,0;Z$:.2~L,-20:8+J,18-K3+I;V$:X:8+J,0;W$(10 );8+J,18-K3+I;" ":PAR=PAR+1:PP=PP+1:PAR13985 V$=G$(I):3987 IG$=" ":KP=15:O$="DIVIDIR":A$="D":Y$""Y$O$D=5 Y$=O$:T=T+1  PAR=0 T=169200#  8000@  PIN=0 K=15-((R+P*S)) "F=2:T=69500% )F,1;"DIVIDIR ":300,  9700%  9600%  9800H& ^7,K;R+P*S;7,16;"";7,17;S;8,16;J$(H1+2) J=H11-1 :S$="":R$="":21,0;"COCIENTE?" Y=0:B$=" ":85004!  R$=R$+V$ 9 ,16+H1-J;R$ #R$P(J)44000:PAR=0 G=(.01z# =+G(J)/10 ) G$=G  KP=K(J) $G=0J1KP=KP-1 S$="":R$="":B$="R" Q21,0;"RESTO? ";8+H1-J,KP;W$(̱G$):L=G$ Y=0:B$="R":85004! R$=R$+V$:S$=V$+S$ V$="" 8+H1-J,KP+G$-S$;S$ S$=G$4124 "S$1PIN=2 BPIN>19400$ CPIN29950& E 4001 1I=130:I:I=14:9 ,16+H1-J;" ";9 ,0;Z$:.2~L,-20 399 ,16+H1-J;R$;9 ,0;W$(8) 5I 6PIN=PIN+1 7PAR=PAR+1 8 9 ,16+H1-J;" " 9PAR24416@ ? 4026 @9 ,16+H1-J;P(J) A 4052 DX=8+H1-J EI=14 F6X,KP;G$+" ";X,0;Z$:.2~L,-20 J%X,KP;G$+R$;X,0;W$(8) NI OPAR=PAR+1 PX,KP;G$+" " QPAR24435S R 4130" SX,K(J);G(J) U 4142. vL=G$1-1 xS$(L)=G$(L)4486 zX=8+H1-J {I=14 |=X,KP+L-1;" ";X,0;Z$:.2~L,-20 /X,KP+L-1;S$(L);X,0;W$(8) I L PIN=PIN+1 PAR=PAR+1 PAR24494 X,KP;W$(̱G$)  4058  X,KP;G$  4123  P=0  S=0 D<45035 H=(D/2)  J=1H 5003+D*3 S=S+S(J)*10 ^(J-1) P=P+P(J)*10 ^(J-1) J P$=P F$=S  S(J)=1+(*4) P(J)=1+(*5)  P(J)=3+(*6) "S(J)=1+(*(9 -P(J)))  P(J)=1+(*9 ) S(J)=D-2+(*6)  P(J)=1+(*9 ) S(J)=10 -P(J)+(*P(J))  P(J)=1+(*9 ) S(J)=D-4+(*6)  P(J)=1+(*9 ) S(J)=10 -P(J)+(*P(J))  S=(*10 ) P=1+(*9 ) #D=1P+S>9 5035 2D=2(P+S>16P+S<8)5035 #D=3P+S<9 5035   8550f! Q 9000(# R13 ,0;W$ S 9920& T 9900& U p P=0 u S=0 zD<46070 {H=(D/2) | J=1H }6013}+D*3 ~P=P+P(J)*10 ^(J-1) S=S+S(J)*10 ^(J-1) J D>56045 P$=P F$=S  P(J)=1+(*6) S(J)=1+(*P(J))  P(J)=1+(*9 ) S(J)=1+(*P(J))  P(J)=4+(*6)  P(J)=5+(*5)  P(J)=6+(*4)  P(J)=3+(*7)  S=1+(*(P-1))  6018 P=3+(*7) S=(*(P+1))  H=1  6017 ] P=0 b S=0 gD<47100 lH1=1+(D/2) qH2=H1-(H1/1.5@) vJ=1H1 {P(J)=D-3+(*4) P=P+P(J)*10 ^(J-1) J J=1H2 S(J)=D-2+(*3) S=S+S(J)*10 ^(J-1) J P$=P  P=1+(*9 ) S=1+(*9 ) #D=1P*S>9 7100 $D=3P*S<10 7100 P(1)=P S(1)=S P$=P  D R=0 E P=0 J S=0 TH1=1+(D/3.4Y) YH2=1+(D/5) ^J=1H1 cP(J)=D-2+(*3) e&J=1P(J)=1+(*9 ) fP=P+P(J)*10 ^(J-1) hJ mJ=1H2 rS(J)=D-2+(*3) t&J=1S(J)=1+(*9 ) wS=S+S(J)*10 ^(J-1) |J }#D=1S*P>9 8000@ ~D>4R=(*S)  G=P*S+R J=H11-1 1G(J)=(.01z# =+G-P(J)*S*10 ^(J-1)) G=G(J) K(J)=15-(G) -G(J)=(.01z# =+G(J)/10 ^(J-2)) J  T9 ,17+H1-J;P(J);8+H1-J,15-PP;(PP/10 ^(J-2)) !4Y=2V$=G$(L): !><0:V$=:V$=""ůV$<480ůV$>5798510>! !R,B$="R"V$G$(L):Y=Y+1:8570z! !f !z+A$="M"8+J,0;W$:8590! !,A$="D"8+H1-J,KP+L-1;V$:X=1502:X:X=14:8+H1-J,KP+L-1;V$:8+H1-J,0;Z$;8+H1-J,KP+L-1;"":.2~L,-20:8+H1-J,0;W$(8):8+H1-J,KP+L-1;" ":X:PIN=PIN+1:V$="":85004! !'K=13 19:K,0;W$:K !R$="":85004! #)W=175K #*W #+ # " BIEN "; # # " BUENO "; # #" ESTUPENDO "; # #" MUY BIEN "; # #" CORRECTO "; # #" PERFECTO "; # #" EXCELENTE "; # #" ADMIRABLE "; # # " ESO ES "; # # " EXACTO "; # #" MAGNIFICO "; # #" ASI ME GUSTA "; # #" ASOMBROSO "; # #" ERES EL MEJOR "; # #" FANTASTICO "; # # "VES COMO NO ES TAN DIFICIL?" # #" SIGUE ASI"; # #" CADA VEZ LO HACES MEJOR"; # #" SIGUE HACIENDOLO IGUAL"; # #" ADELANTE CON OTRA MAS"; # #" HAZ TAMBIEN LA SIGUIENTE"; # #" SIGUE COMO HASTA AHORA"; # #"" PRONTO LO HARAS MEJOR QUE YO"; # #" TE ESTAS SUPERANDO"; # #" ESTAS PROGRESANDO MUCHO"; # #" LO HACES BASTANTE BIEN"; # # 9600% #?F=10 :F,1;"ACABAS DE ";O$;" 10 VECES":200 #AF=13 :F,1;"DESEAS VER LOS RESULTADOS?":200 #23658j\,8 #S$ #S$=""9209# #]S$(1)"S"S$(1)"N"S$(1)"B"S$(1)"V"S$(1)"C"9209# #S$(1)="N"9224$ #zF-3,1;" INCORRECTO / CORRECTO ";F,1;"NIVEL: " #X=110 #9E$(X)" "1:F,X*2+6;E$(X):0 $KM$(X)" "1:7:F,X*2+6;M$(X):5:0 $X $N=1100d:N $PF=16:F,1;"PULSA UNA TECLA PARA CONTINUAR":200 $ 0 $E$=W$(15) $ M$=E$:35# $T "CUIDADO "; $U $V "FIJATE "; $W $X "PIENSA "; $Y $Z "ATIENDE "; $[ $""TAL VEZ DEBAS REPASAR LA TABLA" $ $ "PUEDES HACERLO CORRECTAMENTE" $ $"SABES ";O$;" MEJOR" $ $"INTENTA HACERLO MEJOR" $ $""TRATA DE HACER BIEN LA PROXIMA" $ $PIN1M$(T-5)=D $2PIN2C/T.76B\)D>2D=D-1 $A$"M"9700% $ %F-1,0;"DIFICULTAD123456789EVALUACION" % %&X=521:X,0;W$:X % %1,22; %I=((10 *C)/(T-1)) %I<2I=2 %I=10 I=9 % X=1D %""; %X % X=D8 % ""; &X &3,22; & X=1I & ""; &X & X=I8 & ""; &X & &Hrutinas contador &R8T<15 2,16+T;"";T-5;"" &\ &W=1421 &W,0;W$ &W & &W=1419 &W,0;W$ &W & & 9900& &X=2*(*4) & F=16 & 200 & F,1; &9300T$+X &N$;"," &X=2*(*5) & F=19 & 200 & F,1; &9350$+X & ' 1 qd &AByZ  ERROR fX NTOINtip0s+ h|ued$ E M O RESTARY RESTARP5659F2347G3312SRV DJ&CDW