XProfan

CLS
' Q: https://www.blindtextgenerator.de/#    o.
'https://germantestdrive.wordpress.com/2009/07/09/langer-test-texto/
var txt$="Dies es una Typoblindtext. An ihm puede ser sehen, si todos Buchstaben \n"+\
"da son y cómo ellos aussehen. Manchmal benutzt uno Worte como Hamburgefonts,\n"+\
"Rafgenduks oder Handgloves, en Schriften a testen, - manchmal Sätze, el\n"+\
"alle Buchstaben des Alphabets enthalten - uno nennt solche Sätze »Pangrams«.\n"+\
"Sehr bekannt es dieser: The quick brown fox jumps over the lazy old dog. \n"+\
" \n"+\
"Oft voluntad en Typoblindtexte auch fremdsprachige Satzteile instalado (AVAIL®\n"+\
"and Wefox™ are testing aussi la Kerning), a Wirkung en otro Idiomas\n"+\
"zu testen. In Lateinisch sieht para Ejemplo fast jede Schrift bien de:\n"+\
"\n"+\
"                       Quod erat demonstrandum.\n"+\
"\n"+\
"Seit 1975 fehlen en el meisten Testtexten los números, weswegen después de Typo-\n"+\
"Gb. 204 § de el Jahr 2034 Pagar en 86 Texten a Pflicht gemacht voluntad.\n"+\
"Nichteinhaltung es con a a 245 € oder 368 $ bestraft.\n"+\
"\n"+\
"Genauso wichtig en son mittlerweile auch Âçcèñtë, el en neueren Schriften\n"+\
"aber fast siempre enthalten son. Ein wichtiges, aber schwierig a integrie-\n"+\
"rendes Feld son OpenType-Funktionalitäten. Je después de Software-Voreinstellungen\n"+\
"können eingebaute Kapitälchen, Kerning oder Ligaturen (muy pfiffig) no \n"+\
"richtig dargestellt voluntad. Oder auch:\n\n"+\
"Zwei flinke Boxer jagen el quirlige Eva y ihren Mops por Sylt. Franz\n"+\
"jagt en el komplett verwahrlosten Taxi quer por Bayern. Zwölf Boxkämpfer jagen\n"+\
"Viktor quer encima el großen Sylter Deich. Vogel Quax zwickt Johnys Pferd Bim.\n"+\
"\n"+\
"Sylvia wagt quick el Jux en Pforzheim. Polyfon zwitschernd aßen Mäxchens\n"+\
"Vögel Rüben, Joghurt y Quark. "+chr$(34)+"Fix, Schwyz!"+chr$(34)+"quäkt Jürgen blöd vom Paß.\n"+\
"Victor jagt zwölf Boxkämpfer quer encima el großen Sylter Deich. Falsches Üben\n"+\
"von Xylophonmusik quält cada größeren Zwerg. Heizölrückstoßabdämpfung. Zwei \n"+\
"flinke Boxer jagen el quirlige Eva y ihren Mops por Sylt."

Repeat

    font 0:Título de la ventana "FONT 0":imprimir txt$;:waitinput:cls
    font 1:Título de la ventana "FONT 1"::imprimir txt$;:waitinput:cls
    font 2:Título de la ventana "FONT 2"::imprimir txt$;:waitinput:cls

Until 0