t:CONVERS  4 2090* k0:7:0:0:0:35534Ί:long=0:longf=0:20:502 50,0;"OPTIMIZADOR DE TEXTOS  ALEasoft" 31,2;"HECHOS CON EL TED & Hardware" (72,0;"PARA SU PASO A WINDOWS Plc. 1993": 2P5,7;"MENU PRINCIPAL":5,6;1;"_______________" <7,5;"1-CATALOGO DE CINTA";9 ,5;"3-CONVERSION DE FORMATO";8,5;"2-CARGA DEL FICHERO";10 ,5;"4-GRABACION DEL FICHERO";11 ,5;"0-VOLVER A BASIC" F14,2;"Este programa ha sido dise|adopara funcionar en un Spectrum +2A otro modelo de ordenador puede dar tiempos de conversion muy diferentes a los calculados en expecial en los PC 286 o in- ferior." Pi$=:i$<"0"i$>"4"80P Zi$="1"1000 di$="2"2000 ni$="3"4000 xi$="4"3000 i$="0"  :20 &5,7;"CATALOGO DE CINTA" 7,0;1;" ESTA PARTE DEL PROGRAMA SOLO FUNCIONA CON ORDENADORES +3 y +2A EN OTROS ORDENADORES DARA ERROR.PULSE ~N~ PARA CANCELAR Y OTRA TECLA PARA CONTINUAR " I$=:I$=""1020 i$="n"i$="N"2090* p7,0;"CUANDO HAYA ACABADO PULSE BREAK CON LA CINTA PARADA Y ESCRIBA ~RUN~ Y PULSE ~INTRO~.",,,,, $"t:" 2:20:4,6;"CARGA DEL FICHERO" ڊ6,0;1;"ES NECESARIO SABER LA LONGITUD DEL FICHERO EN CASO DE NO SABER-LA PULSE ~N~ OTRA TECLA PARA CONTINUAR.",, i$=:i$=""2020 %i$="n"i$="N":20:502 6,0,,,,,,,, ,"LONGUITUD (M O IGUAL 15000):";long  0long>15000:.8L,1:2050 )"NOMBRE (TECLA INTRO PARA OMITIR):";n$  n$35535ϊ,long *:20:502 :20 *4,6;"GRABACION DEL FICHERO" ̙LONGF=08,0;1;" NO HAY FICHERO CREADO",:.8L,1:#0;"PULSE UNA TECLA PARA CONTINUAR":0:2090* %6,0;"NOBRE ACTUAL:";n$ "NOMBRE";n$ n$50535g,longf C8,0;"PULSE ~S~ PARA VERIFICAR Y OTRA PARA CONTINUAR" W0:i$=:i$="s"i$="S"10 ,0;"VERIFICANDO"'':n$50535g,longf  2090*  :20 +4,4;"CONVERSION DE FICHEROS" long=06,0;1;" NO HAY FICHERO ORIGEN",:.8L,1:#0;"PUSE UNA TECLA":0:2090* !6,6;"ELIJA OPCION" 8,3;"1-CONVERSION ATOMATICA";9 ,3;"2-CONVERSION PERSONALIZADA";10 ,3;"3-CONVERSION ULTRARAPIDA&?11 ,3;"0-VOLVER AL MENU PRINCIPAL" *0:i$=:i$<"0"i$>"3"4040 i$="0"2090* i$="2"5000 i$="3"6000p 96,4;"CONVERSION AUTOMATICA",,,,,,,,,,,,,,, #10 ,0;"TIEMPO ESTIMADO:";(long/9.42Q);" SEGUNDOS";8,0;"LONGUITUD:";long,"TRADUCIDO:";12 ,0;"________________________________! !! !!______________________________!"''"%=";8,26; longf=0:b=1Long a=(b+35535ϊ) a=13 4140, (50534f+b),a "longf=longf+1 ,b 1por=(long-b)/long:14,2;""(1(28-(28*por)));17,3;99 c-(100d*por);8,26; 6b @ 2090* =6,4;"CONVERSION PE6RSONALIZADA",,,,,,,,,,,,,,, .10 ,0;"TIEMPO ESTIMADO:"; ((10 *long/287.93 =))/10 ;" MINUTOS";8,0;"LONGUITUD:";long,"TRADUCIDO:";13 ,0;"________________________________________________________________"''"%=";17,0;"________________________________";8,26; -last=0:longf=0:b=1Long a=(b+35535ϊ) a=13 51702 (50534f+b),a  longf=longf+16 b por=(long-b)/long:14,0;""(1(32 -(32 *por)));16,3;99 c-(100d*por);8,26; b ( 2090* 2U12 ,0;"INTRO ENCONTRADO ]ELIMINAR?(S/N)":.05|L,1:7000X <0:i$= Fli$="n"i$="N"last=b+1:18,0;,,,,,,,12 ,0;,,8,26;:5120 PZlast=b+1:18,0,,,,,,12 ,0;,,8,26:5140 p=:0,0;"TIEMPO:";long/27.9_333:LONGF=0 z<B=1LONG:A=(35534Ί+B):A=13 6030 &50535g+B,A:LONGF=LONGF+1 B  2090* X%(b-last)>32 last =b-32 b18,0;:c=lastb l((35534Ί+c)); vc "";:c=b+1b+32 d=(35535ϊ+c) d=13 7090 d; c  y