===== Schriftmuster =====

Fur den Druck eines Blattes mit **Schriftmustern** der verfügbaren Schriften ist zunächst einmal die Feststellung wichtig, dass mit Ausnahme der Schrift //Lineprinter// alle anderen residenten Schriften (die über eine Schriftnummer anwählbaren) auch in in der Liste der skalierbaren Schriften enthalten sind.

Von daher reicht es, die Schrift //Lineprinter// sowie alle skalierbaren Schriften anzudrucken. Im nachfolgend gelisteten Prescribe-Datenstrom werden für jede Schrift die Groß- und Kleinbuchstaben sowie die Ziffern angedruckt.

Bei der Anwahl der dicktengleichen Schriften (feste Teilung) mit dem Kommando //SFNT// ist zu beachten, dass nur die Schriftgrösse, aber nicht die Laufweite ausgewählt wird. Deshalb ist nach dem //SFNT//-Kommando noch das //SCPI//-Kommando zum Setzen der Laufweite notwendig.

Die Schrift //Lineprinter// wird als einzige mit dem Kommando //FONT// über ihre Schriftnummer angewählt.

Bei den drei Symbolschriften //Symbol//, //ITCZapfDingbats// und //Wingdings// ist beachten, dass sie nur in einem festen Zeichensatz gedruckt werden können. Deshalb wird mit dem Kommando //CSET// für jede Schrift vorher der Zeichensatz umgeschaltet. Damit wieder normaler Text gedruckt werden kann, muss diese Umschaltung dann auch wieder zurückgesetzt werden.
\\
\\
<code Prescribe schriftmuster.prs>
!R! RES; UNIT C;

MAP  .5,  2; SFNT 'Courier', 12; SCPI 12; TEXT 'Courier';
MAP 5.5,  2; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5,  3; SFNT 'LetterGothic', 12; SCPI 12; TEXT 'Letter Gothic';
MAP 5.5,  3; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';

MAP  .5,  4; FONT 88; TEXT 'Lineprinter';
MAP 5.5,  4; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';

MAP  .5,  5; SFNT 'CGTimes', 12; TEXT 'CGTimes';
MAP 5.5,  5; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5,  6; SFNT 'CGOmega', 12; TEXT 'CGOmega';
MAP 5.5,  6; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5,  7; SFNT 'Coronet', 12; TEXT 'Coronet';
MAP 5.5,  7; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5,  8; SFNT 'Clarendon-Cd', 12; TEXT 'Clarendon';
MAP 5.5,  8; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5,  9; SFNT 'Univers-Md', 12; TEXT 'Univers';
MAP 5.5,  9; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 10; SFNT 'Univers-MdCd', 12; TEXT 'Univers Condensed';
MAP 5.5, 10; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 11; SFNT 'AntiqueOlive', 12; TEXT 'AntiqueOlive';
MAP 5.5, 11; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';

MAP  .5, 12; SFNT 'GaramondAntiqua', 12; TEXT 'GaramondAntiqua';
MAP 5.5, 12; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 13; SFNT 'Marigold', 12; TEXT 'Marigold';
MAP 5.5, 13; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 14; SFNT 'Albertus-Md', 12; TEXT 'Albertus';
MAP 5.5, 14; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 15; SFNT 'Arial', 12; TEXT 'Arial';
MAP 5.5, 15; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 16; SFNT 'TimesNewRoman', 12; TEXT 'TimesNewRoman';
MAP 5.5, 16; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';

MAP  .5, 17; SFNT 'Helvetica', 12; TEXT 'Helvetica';
MAP 5.5, 17; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 18; SFNT 'Helvetica-Nr', 12; TEXT 'Helvetica Narrow';
MAP 5.5, 18; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 19; SFNT 'Palatino', 12; TEXT 'Palatino';
MAP 5.5, 19; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 20; SFNT 'ITCAvantGardeGothic-Bk', 12; TEXT 'ITCAvantGardeGothic';
MAP 5.5, 20; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 21; SFNT 'ITCBookman-Lt', 12; TEXT 'ITCBookman';
MAP 5.5, 21; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 22; SFNT 'NewCenturySchoolbookRom', 12; TEXT 'NewCenturySchoolbook';
MAP 5.5, 22; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 23; SFNT 'Times-Rom', 12; TEXT 'Times-Roman';
MAP 5.5, 23; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';
         
MAP  .5, 24; SFNT 'ITCZapfChancery-MdIt', 12; TEXT 'ITCZapfChancery';
MAP 5.5, 24; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';

MAP  .5, 25; SFNT 'Univers-Md', 12; CSET 0N; TEXT 'Symbol';
             SFNT 'Symbol', 12; CSET 19M;
MAP 5.5, 25; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';

MAP  .5, 26; SFNT 'Univers-Md', 12;  CSET 0N; TEXT 'ITCZapfDingbats';
             SFNT 'ITCZapfDingbats', 12; CSET 14L;
MAP 5.5, 26; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';

MAP  .5, 27; SFNT 'Univers-Md', 12;  CSET 0N; TEXT 'Wingdings';
             SFNT 'Wingdings', 12; CSET 579L;
MAP 5.5, 27; TEXT 'ABCDEFGHIJKLMNOPQRST abcdefghijklmnopqrstuvw 0123456789';

PAGE;
EXIT;
</code>
\\
=== Ausdruck ===
\\
{{convert4print:prescribe:schriften.png}}