home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / LEXMPSRC.RAR / CRTSTUFF.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  516b  |  35 lines
  1. program CrtStuff;
  2.  
  3. uses
  4.   Linux, Dos, Strings, VpSysLow, Crt;
  5.  
  6. var
  7.   I, J, X1, X2, Y1, Y2: Integer;
  8.  
  9. begin
  10.   // Randomize;
  11.  
  12.   for I := 1 to 25 do
  13.   begin
  14.     X1 := 1 + Random(70);
  15.     Y1 := 1 + Random(13);
  16.     X2 := X1 + 10;
  17.     Y2 := Y1 + 10;
  18.  
  19.     Window(X1, Y1, X2, Y2);
  20.     TextBackground(Random(8));
  21.     ClrScr;
  22.  
  23.     for J := 1 to 200 do
  24.     begin
  25.       TextColor(Random(16));
  26.       Write(I, ' ');
  27.     end;
  28.   end;
  29.  
  30.   Window(1, 1, 80, 24);
  31.  
  32.   for I := 1 to 100 do WriteLn;
  33. end.
  34.  
  35.