home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / DRWATXT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  1.4 KB  |  42 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program DrawAlternateText;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel;
  10.  
  11. const
  12.   MaxWorldX  : Float = 1000.0;
  13.   MaxWorldY  : Float = 1000.0;
  14.   CharArray1 : array [0..25] of char =       { Define an array of characters }
  15.                         ('A','B','C','D','E','F','G','H','I','J','K','L','M',
  16.                          'N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
  17.  
  18. var
  19.   I : integer;
  20.   CharHeight, CharWidth : Float;
  21.  
  22. begin
  23.   InitGraphic;                              { Initialize the graphics system }
  24.  
  25.   DefineWorld(1, 0, 0, MaxWorldX, MaxWorldY);  { Define the world to draw in }
  26.   SelectWorld(1);
  27.   SelectWindow(1);
  28.   DrawBorder;
  29.  
  30.   for I := 1 to 50 do          { Print Random characters in center of screen }
  31.     DrawTextW(Random(600) + 200, Random(600) + 200,
  32.               Random(5), CharArray1[Random(26)]);
  33.  
  34.   DrawTextW(15, 50, 1, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'); { Type chars in corner }
  35.   DrawTextW(15, 100, 1, 'abcdefghijklmnopqrstuvwxyz');
  36.   DrawTextW(15, 150, 1, '1234567890-=\`~!@#$%^&*()_');
  37.   DrawTextW(15, 200, 1, '[]{}:";,.<>/?+|');
  38.  
  39.   repeat until KeyPressed;                     { Wait until a key is pressed }
  40.   LeaveGraphic;                                  { Leave the graphics system }
  41. end. { DrawAlternateText }
  42.