100 CLS:KEY OFF
101 PRINT"SUSTITUCION DE CARACTERES EN ARCHIVO TEXTO FORMATO ASCII A UNICODE
105 N=1
110 PRINT"NOMBRE ARCHIVO A LEER               : "
111 PRINT"NOMBRE ARCHIVO A GRABAR             : "
115 LOCATE CSRLIN-2,1
117 INPUT"NOMBRE ARCHIVO A LEER        (ASC.TXT) : ",A$
118 IF A$="" THEN A$="ASC.TXT"
119 INPUT"NOMBRE ARCHIVO A GRABAR      (UNI.TXT) : ",Z$
120 IF Z$="" THEN Z$="UNI.TXT"
124 OPEN A$ AS #1 LEN=1
125 OPEN Z$ FOR OUTPUT AS 2
127 FIELD #1,1 AS X$
129 PRINT"TOTAL CARACTERES A LEER":PRINT LOF(1):PRINT"CARACTERES LEIDOS :":PRINT N-1;
130 IF EOF(1) THEN 190
131 GET #1

132 IF ASC(X$)=27 THEN Y$=CHR$(32):GOTO 150:'ASCII=1B= 27= >UNICODE=20=32
133 IF ASC(X$)=28 THEN Y$=CHR$(32):GOTO 150:'      1C= 28= >UNICODE=20=32
134 IF ASC(X$)=128 THEN Y$=CHR$(199):GOTO 150:'    80=128=Ç>UNICODE=C7=199
135 IF ASC(X$)=130 THEN Y$=CHR$(233):GOTO 150:'    82=130=é>UNICODE=E9=233
136 IF ASC(X$)=135 THEN Y$=CHR$(231):GOTO 150:'    87=135=ç>UNICODE=E7=231

137 IF ASC(X$)=160 THEN Y$=CHR$(225):GOTO 150:'    A0=160=á>UNICODE=E1=225
138 IF ASC(X$)=161 THEN Y$=CHR$(237):GOTO 150:'    A1=161=í>UNICODE=ED=237
139 IF ASC(X$)=162 THEN Y$=CHR$(243):GOTO 150:'    A2=162=ó>UNICODE=F3=243
140 IF ASC(X$)=163 THEN Y$=CHR$(250):GOTO 150:'    A3=163=ú>UNICODE=FA=250
141 IF ASC(X$)=164 THEN Y$=CHR$(241):GOTO 150:'    A4=164=ñ>UNICODE=F1=241
142 IF ASC(X$)=165 THEN Y$=CHR$(208):GOTO 150:'    A4=165=Ñ>UNICODE=D1=208
143 IF ASC(X$)=166 THEN Y$=CHR$(170):GOTO 150:'    A6=166=ª>UNICODE=AA=170
144 IF ASC(X$)=167 THEN Y$=CHR$(186):GOTO 150:'    A7=167=º>UNICODE=BA=186
145 IF ASC(X$)=168 THEN Y$=CHR$(191):GOTO 150:'    A8=168=¿>UNICODE=BF=191
146 'IF ASC(X$)=237 THEN Y$=CHR$(10):GOTO 150:'     ED=237=Ø>UNICODE=D8=216
147 '           =€>UNICODE=80=128

149 Y$=X$
150 PRINT #2, Y$;
160 N=N+1:PRINT N-1;:LOCATE,1
180 GOTO 130
190 PRINT
191 INPUT"PULSAR ENTER PARA SALIR        : ",Z
192 SYSTEM