XProfan

CLS
' Q: https://www.blindtextgenerator.de/#    bzw.
'https://germantestdrive.wordpress.com/2009/07/09/langer-test-text/
var txt$="Dies ist ein Typoblindtext. An ihm kann man sehen, ob alle Buchstaben \n"+\
"da sind und wie sie aussehen. Manchmal benutzt man Worte wie Hamburgefonts,\n"+\
"Rafgenduks oder Handgloves, um Schriften zu testen, - manchmal Sätze, die\n"+\
"alle Buchstaben des Alphabets enthalten - man nennt solche Sätze »Pangrams«.\n"+\
"Sehr bekannt ist dieser: The quick brown fox jumps over the lazy old dog. \n"+\
" \n"+\
"Oft werden in Typoblindtexte auch fremdsprachige Satzteile eingebaut (AVAIL®\n"+\
"and Wefox™ are testing aussi la Kerning), um die Wirkung in anderen Sprachen\n"+\
"zu testen. In Lateinisch sieht zum Beispiel fast jede Schrift gut aus:\n"+\
"\n"+\
"                       Quod erat demonstrandum.\n"+\
"\n"+\
"Seit 1975 fehlen in den meisten Testtexten die Zahlen, weswegen nach Typo-\n"+\
"Gb. 204 § ab dem Jahr 2034 Zahlen in 86 Texten zur Pflicht gemacht werden.\n"+\
"Nichteinhaltung wird mit bis zu 245 € oder 368 $ bestraft.\n"+\
"\n"+\
"Genauso wichtig in sind mittlerweile auch Âçcèñtë, die in neueren Schriften\n"+\
"aber fast immer enthalten sind. Ein wichtiges, aber schwierig zu integrie-\n"+\
"rendes Feld sind OpenType-Funktionalitäten. Je nach Software-Voreinstellungen\n"+\
"können eingebaute Kapitälchen, Kerning oder Ligaturen (sehr pfiffig) nicht \n"+\
"richtig dargestellt werden. Oder auch:\n\n"+\
"Zwei flinke Boxer jagen die quirlige Eva und ihren Mops durch Sylt. Franz\n"+\
"jagt im komplett verwahrlosten Taxi quer durch Bayern. Zwölf Boxkämpfer jagen\n"+\
"Viktor quer über den großen Sylter Deich. Vogel Quax zwickt Johnys Pferd Bim.\n"+\
"\n"+\
"Sylvia wagt quick den Jux bei Pforzheim. Polyfon zwitschernd aßen Mäxchens\n"+\
"Vögel Rüben, Joghurt und Quark. "+chr$(34)+"Fix, Schwyz!"+chr$(34)+"quäkt Jürgen blöd vom Paß.\n"+\
"Victor jagt zwölf Boxkämpfer quer über den großen Sylter Deich. Falsches Üben\n"+\
"von Xylophonmusik quält jeden größeren Zwerg. Heizölrückstoßabdämpfung. Zwei \n"+\
"flinke Boxer jagen die quirlige Eva und ihren Mops durch Sylt."

Repeat

    font 0:WindowTitle "FONT 0":print txt$;:waitinput:cls
    font 1:WindowTitle "FONT 1"::print txt$;:waitinput:cls
    font 2:WindowTitle "FONT 2"::print txt$;:waitinput:cls

Until 0