DIARIO.BASÚÚfÜÿ ì3000¸ Ò"M:*.*":ì1 èû íGî"CLAVE (-30/130)";CLAVE:úCLAVE<-30ÅCLAVE >130‚Ëì1005í òñF$=" _ _ " üAõ¬0,2;"INTRODUCE DD/MM/AA -";Û1;" ";Â8;  í1200° ú I$>"3"Ëì1030 @×.01z#× =,-10 :õI$;Û1;" ";Â8;:ñF$(1)=I$  í1200° $úF$(1)="3"ÆI$>"1"Ëì1050 $úI$="0"ÆF$(1)="0"Ëì1050 $D×.01z#× =,-10 :õI$;"/";Û1;" ";Â8;:ñF$(2)=I$ . í1200° 8úI$>"1"Ëì1070. B@×.01z#× =,-10 :õI$;Û1;" ";Â8;:ñF$(4)=I$ L í1200° V$úF$(4)="1"ÆI$>"2"Ëì1100L W$úF$(4)="0"ÆI$="0"Ëì1100L `D×.01z#× =,-10 :õI$;"/";Û1;" ";Â8;:ñF$(5)=I$ j í1200° t@×.01z#× =,-10 :õI$;Û1;" ";Â8;:ñF$(7)=I$ ~ í1200° ˆ)×.01z#× =,-10 :õI$:ñF$(8)=I$ ’ ì1230Î °ñI$=¦:úI$=" "Ëì1200° ºúI$<"0"ÅI$>"9"Ëì1200° Äþ ΠñN=1:õ¬1,1;"ESPERE":ñA$="":ëA=1Ì225á:ñA$=A$+" ":óA:õ¬1,1;"INTRODUCE EL TEXTO:";Û1;¬2,0;" ";Â8; Ø#ò10 :ñI$=¦:úI$=""Ëì1240Ø Ù×.01z#× =,-10 â%úI$=Â13 ËñA$=A$(ÌN):ì1420Œ ìúI$=Â4ËñI$=Â124| öúI$=Â5ËñI$=Â92\ _úI$=Â12 ÆN>1ËñN=N-1:õ" ";Â8;Â8;Û1;" ";Â8;:ì1240Ø  (ú¯I$<32 ůI$>124|Ëì1240Ø ñA$(N)=I$:ñN=N+1 xúN>224àËì1420Œ ‚'õI$;Û1;" ";Â8;:ì1240Ø Œû –7õ" CODIFICANDO E INTRODUCIENDO EN MEMORIA"  ô40000@œ,¯F$(1) ¡ô40001Aœ,¯F$(2) ¢ô40002Bœ,¯F$(4) £ô40003Cœ,¯F$(5) ¤ô40004Dœ,¯F$(7) ¥ô40005Eœ,¯F$(8) ¦ô40006Fœ,±a$+8 ªëA=1̱A$ ´ô40006Fœ+A,¯A$(A)+CLAVE ¾óA Èô40006Fœ+A,255ÿ Òû Üõ¬0,0;"CODIFICADO" æëa=0̱a$+6 ðõÂ(¾(40000@œ+a)); úóa ñclave=0:ña$="" # ø"m:"+f$¯40000@œ,¾40006Fœ ?õ#0;Û1;" PULSE UNA TECLA ":ò0  ì3000¸ Ðû äjõ¬0,0;"ELIJA EL DIA HA LEER":Ï:õ'" ESCRIBA SU NOMBRE TAL COMO APARECE EL LA PANTALLA" îîF$:ï"M:"+F$¯40000@œ óGî"CLAVE (-30/130)";CLAVE:úCLAVE<-30ÅCLAVE >130‚Ëì2010Ú |û:õ¬0,0;Â(¾40000@œ);Â(¾40001Aœ);"/";Â(¾40002Bœ);Â(¾40003Cœ);"/";Â(¾40004Dœ);Â(¾40005Eœ)  õ¬1,0  ñN=0:  ñA$=Â(¾(40007Gœ+N)) *úA$=Â255ÿËì1551 +ñA$=Â((¯A$)-CLAVE) 4RõA$;Û1;" ";Â8;:×.01z#× =,-10 :ò2:ñN=N+1:ì2080  ¸/ç1:Ú1:Ù7:Ü1:Û0:û Â6õ¬0,0;"DIARIO SECRETO por ALEAsoft 1991 " Ì,õ¬4,4;"PULSA LA OPCION DESEADA" Ö(õ¬6,6;"1-INTRODUCIR UN DIA" à"õ¬7,6;"2-LEER UN DIA" ê$õ¬8,6;"3-BORRAR UN DIA" ô-õ¬9 ,6;"4-SALVAR UN DIA EN CINTA" þ)õ¬10 ,6;"5-VER LISTA DE DIAS" ÿ.õ¬11 ,6;"6-CARGAR UN DIA DE CINTA" &õ¬12 ,6;"7-CAMBIAR EL DIA" ñi$=¦:úi$=""Ëì3090 úi$="1"Ëì10 úi$="2"Ëì2000Ð úi$="3"Ëì3200€ úi$="7"Ëì3500¬ úi$="4"Ëì3300ä úi$="6"Ëì3400H úi$="5"Ëì3100  ì3080 7û:õ¬0,0;"ESTOS SON LOS DIAS ALMACENADOS":Ï &6õ#0;Û1;" PULSE UNA TECLA " 0ò0:ì3000¸ €nû:õ¬0,0;"ELIJA EL DIA HA BORRAR":Ï:õ'" ESCRIBA SU NOMBRE TAL COMO APARECE EL LA PANTALLA" Š îF$:Ò"M:"+F$ ”õ'"EL DIA ";F$;" BORRADO" ž ì3110& änû:õ¬0,0;"ELIJA EL DIA HA SALVAR":Ï:õ'" ESCRIBA SU NOMBRE TAL COMO APARECE EL LA PANTALLA" îîF$:ï"M:"+F$¯ øøF$¯40000@œ,¾40006Fœ  ì3110& H6û:õ¬0,0;"INTRODUCE LA CINTA Y PULSA PLAY" Rï""¯40000@œ \"õ'"INTRODUCE LA FECHA (DD_MM_AA)" fîF$ p"ø"M:"+F$¯40000@œ,¾40006Fœ z ì3110& ¬‘û:õ¬0,0;"ELIJA EL DIA HA CAMBIAR":Ï:õ'" ESCRIBA SU NOMBRE TAL COMO APARECE EL LA PANTALLA Y DESPUES SU NUEVO NOMBRE" ¶î"NOMBRE ANTIGUO";F$ Àî"NOMBRE NUEVO";G$ ÊÑ"M:"+F$Ì"M:"+G$ Ô ì3110& Ç