home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TTT510.ZIP / TTTDEM.ZIP / FASTDEM2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-01-31  |  1.2 KB  |  39 lines
  1. Program FastTTT5_Demo_2;
  2. uses CRT, FastTTT5;
  3.  
  4. var
  5.   I,X1,Y1,X2,Y2 : integer;
  6.   Ch : char;
  7. begin
  8.     TextBackground(Lightgray);
  9.     Clrscr;
  10.     Box(1,1,80,25,white,lightgray,2);
  11.     For I := 1 to 100 do
  12.     begin
  13.         X1 := random(77);
  14.         X2 := X1 + random(80 - X1);
  15.         Y1 := random(22);
  16.         Y2 := Y1 + random(25 - Y1);
  17.         FBox(X1,Y1,X2,Y2,random(15),random(7),random(3)+1);
  18.     end;
  19.     ClearText(1,1,80,2,white,black);
  20.     WriteCenter(2,lightgray,black,'You just saw 100 (count ''em) boxes being displayed');
  21.     WriteCenter(1,white,black,'Press any key to see the Exploding box effect');
  22.     Ch := readkey;
  23.     ClearText(1,1,80,1,white,black);
  24.     GrowFbox(1,2,80,25,black,lightgray,1);
  25.     Delay(500);
  26.     GrowFbox(5,5,20,20,yellow,red,2);
  27.     Delay(500);
  28.     GrowFbox(10,18,80,25,white,blue,3);
  29.     Delay(500);
  30.     GrowFbox(20,4,70,16,lightgray,black,4);
  31.     Delay(500);
  32.     GrowFbox(50,5,60,23,black,cyan,1);
  33.     ClearText(1,1,80,1,white,black);
  34.     WriteCenter(1,white,black,'Too much ... press any key to continue');
  35.     WriteAT(1,24,white,black,'Run DemoTTT.exe for the main demo program');
  36.     WriteAT(1,25,white,black,'TechnoJock''s Turbo Toolkit v5.0');
  37.     Ch := Readkey;
  38.     Clrscr;
  39. end.