home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOLKIT.ZIP / WRITETTT.DEM < prev   
Encoding:
Text File  |  1986-09-28  |  1.4 KB  |  37 lines
  1. Program Illustrating_Fastwrit_Procedures;
  2.  
  3. {$I Decl.ttt}
  4. {$I Fastwrit.TTT}
  5.  
  6. begin
  7. clrscr;
  8. Box(20,1,60,5,yellow,black,2);
  9. Box(3,7,78,25,15,1,1);
  10. ClearText(4,8,77,24,white,blue);
  11. VertLine(33,9,11,white,blue,1);
  12. VertLine(47,9,11,white,blue,1);
  13. HorizLine(5,75,12,white,blue,2);
  14. WriteAT(74,1,white,black,'V 3.0');
  15. WriteCenter(2,green,black,'TECHNOJOCKS');
  16. WriteCenter(3,green,black,'TURBO');
  17. WriteCenter(4,green,black,'TOOLKIT');
  18. WriteVert(1,16,darkgray,black,'Technojock');
  19. WriteVert(80,16,darkgray,black,'Technojock');
  20. WriteBetween(33,47,9,white,blue,'Procedures');
  21. WriteBetween(33,47,10,white,blue,'&');
  22. WriteBetween(33,47,11,white,blue,'Functions');
  23. WriteAT(9,15,yellow,blue,'This is a demonstration of some of the procedures and functions');
  24. WriteAT(9,16,yellow,blue,'contained in the file Fastwrit.TTT. The screen is updated very');
  25. WriteAT(9,17,yellow,blue,'quickly using an inline procedure.');
  26. WriteAT(9,19,yellow,blue,'The procedures in Fastwrit.TTT include box and line drawing,');
  27. WriteAT(9,20,yellow,blue,'text centering on the screen or between two X coordinates,');
  28. WriteAT(9,21,yellow,blue,'vertical text writing and much more.');
  29. WriteAT(9,23,lightcyan,blue,'Other utilities in the TTT series include window management, menu');
  30. WriteAT(9,24,lightcyan,blue,'management, and fullscreen input routines.');
  31. Read(kbd,ch);
  32. Clrscr;
  33. Writeln('Run DemoTTT.com for the main demo program');
  34. Write('Technojocks Turbo Toolkit');
  35. end.
  36.  
  37.