home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 09 / schrift / plschrif.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-03-22  |  705 b   |  25 lines
  1. PROGRAM PlSchriftTest;
  2. (* Hilfspgm. zum Ansehen der Plotter-Zeichensätze *)
  3. (* belegt sind nur die Zeichen von 32..127 und 160..255 *)
  4. (* im Bereich 128..159 stehen Steuerbefehle *)
  5. (* der Bereich 160..255 ist eine Kopie des unteren Bereiches *)
  6. (* man beachte die ASCII-Werte der Umlaute !! *)
  7. (* die ASCII-Codes sind analog dem Druckerzeichensatz 'Standardmodus' *)
  8.  
  9. USES HPGL;
  10.  
  11. VAR   x, y , i : INTEGER;
  12.  
  13. BEGIN
  14.   OpenGraphik ('PRN');
  15.   P_SetTextStyle (Germ, P_HorizDir, 0.5);
  16.   P_SetColor (Black);
  17.   x := 10; y := 200;
  18.   FOR i := 32 TO 127 DO
  19.     BEGIN
  20.       P_OutTextXY (x, y, CHR (i) );
  21.       INC (x, 5);
  22.       IF x > 180 THEN BEGIN x := 10;  DEC (y, 10); END;
  23.     END;
  24. END.
  25.