home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / tttdem51.zip / WINDEM2.PAS < prev    next >
Pascal/Delphi Source File  |  1989-01-31  |  1KB  |  39 lines
  1. Program WinTTT5_Demo_2;
  2. Uses DOS, Crt, FastTTT5, WinTTT5;
  3.  
  4. var
  5.   I : integer;
  6.   Ch : char;
  7. begin
  8.     Clrscr;
  9.     Offcursor;
  10.     Fillscreen(1,1,80,25,white,black,chr(176));
  11.     FBox(5,3,25,8,white,black,1);
  12.     SaveScreen(1);
  13.     WriteCenter(25,black,lightgray,'Press any key to see a part restore from the heap');
  14.     Ch := ReadKey;
  15.     Fillscreen(1,25,80,25,black,lightgray,' ');     {clear Message line}
  16.     PartRestoreScreen(1,5,3,25,8,50,15);
  17.     DisposeScreen(1);
  18.     WriteCenter(25,black,lightgray,'Press any key to see a screen move');
  19.     Ch := ReadKey;
  20.     MoveScreenBlock(50,15,70,20,55,3);
  21.     Fillscreen(50,15,70,20,white,black,chr(176));
  22.     WriteCenter(25,black,lightgray,'Press any key to see a screen copy');
  23.     Ch := ReadKey;
  24.     CopyScreenBlock(1,1,80,12,1,13);
  25.     WriteCenter(25,black,lightgray,'Press any key to see a partial screen scroll');
  26.     Ch := ReadKey;
  27.     For I := 1 to 24 do
  28.     begin
  29.         Scroll(up,39,1,80,25-I);
  30.         Delay(75);   {faster than an Izuzu!}
  31.     end;
  32.     WriteAT(40,22,white,black,'Run DemoTTT.exe for the main demo program');
  33.     WriteAT(40,23,white,black,'TechnoJock''s Turbo Toolkit v5.0');
  34.     ClearLine(25,white,black);     {clear Message line}
  35.     Ch := Readkey;
  36.     ClrScr;
  37.     Reset_StartUp_Mode;
  38. end.
  39.