.codigo;
'Creamos el folio;
&a := %ANCHODINA4;
&b := %ALTODINA4;
&c := %BLANCO;
.ventana &a &b;
.memograf &a &b &c;
'Textos del programa;
&fichero := ~E3.txt;
&titulo := ~Telara$nas_de_miedo_y_confusi$on;
'Formato de spain;
&code := 241;
&asc := ~$n;
&chr := %CAR &code;
&ntitulo := %CAMBIARP &asc &chr &titulo;
&cod := 243;
&ascs := ~$o;
&chr := %CAR &cod;
&ntitulo := %CAMBIARP &ascs &chr &ntitulo;
'Leemos el fichero de texto;
&txt := %LEERTEXTO &fichero;
'Cambiamos balizas Miedo;
&t := ~Miedo;
&tt := ~MIEDO;
&txt := %CAMBIARP &t &tt &txt;
'Propiedades del texto;
&align := %ALINJUS;
&x := 100;
&y := 100;
&ancho := &a - 350;
&alto := &b - 100;
&fuente := ~Consolas;
&tf := 11;
&estilo := 0; 
'Lo pintamos;
.pintartexto &txt &align &x &y &ancho &alto &fuente &tf &estilo;
'Ahora un titulo;
&xx := 120;
&yy := 50;
&estilo := 1;
&grado := 0;
&cborde := %NEGRO;
&cfondo := %BLANCO;
&fuente := ~Impact;
&tfuente := 20;
.posicion &xx &yy;
.color &cborde &cfondo;
.fuente &fuente &tfuente &estilo &grado;
.textograf &ntitulo;
'Ahora un copyright ....;
&copyright := ~www.sonorodescargas.es;
&xx := 25;
&yy := 900;
&estilo := 1;
&grado := 0;
&cborde := %ROJO;
&cfondo := %BLANCO;
&fuente := ~Tahoma;
&tfuente := 9;
.posicion &xx &yy;
.color &cborde &cfondo;
.fuente &fuente &tfuente &estilo &grado;
.textograf &copyright;
.vergraf;
'Hemos terminado;
.fin;