home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOLKIT.ZIP / WINDOTTT.DEM < prev    next >
Encoding:
Text File  |  1986-09-28  |  1.2 KB  |  45 lines
  1. Program Illustrating_Windowing;
  2.  
  3. {$I Decl.ttt}
  4. {$I Fastwrit.TTT}
  5.  
  6. {$I Window.TTT}
  7.  
  8. Procedure FillUpScreen(Character : char;F,B : byte);
  9. var I , J : integer;
  10. begin
  11. For I := 1 to 25 do
  12.  For J := 1 to 80 do
  13.   WriteAT(J,I,F,B,Character);
  14. end;
  15.  
  16. begin
  17. {snow := true;         include if IBM CGA}
  18. Clrscr;
  19. FillupScreen('W',white,blue);
  20. GotoXY(80,25);                  {move the cursor to a unique location}
  21. MkWin(10,4,40,13,yellow,green,1);
  22. WriteBetween(10,40,7,yellow,green,'This is the first window');
  23. WriteBetween(10,40,9,yellow,green,'Maybe a pulldown menu   ');
  24. Delay(2000);
  25. MkWin(20,11,50,20,red,lightgray,2);
  26. WriteBetween(20,50,14,red,lightgray,'This is the second window');
  27. WriteBetween(20,50,16,red,lightgray,'Perhaps a second menu   ');
  28. Delay(2000);
  29. MkWin(45,6,80,25,magenta,cyan,3);
  30. WriteBetween(45,80,14,magenta,cyan,'This is the third window');
  31. WriteBetween(45,80,16,magenta,cyan,'Perhaps a help screen  ');
  32. Delay(5000);
  33. Rmwin;
  34. Delay(2000);
  35. Rmwin;
  36. Delay(2000);
  37. Rmwin;
  38. Mkwin(25,11,55,15,white,blue,4);
  39. WriteBetween(25,55,13,white,blue,'Thats all there is to it!');
  40. Read(kbd,Ch);
  41. clrscr;
  42. Writeln('Run DemoTTT.com for the main demo program');
  43. write('Technojocks Turbo Toolkit');
  44. end.
  45.