home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOT_2.ZIP / DEMO.EXE / arc / DEMWR1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  1016 b   |  31 lines
  1. Program DemoWriteOne;
  2. {DEMWR1}
  3.  
  4. USES DOS,CRT, totFAST;
  5.  
  6. begin
  7.    ClrScr;
  8.    with Screen do
  9.    begin
  10.       WriteCenter(1,CAttr(white,red),'TechnoJock''s Object Toolkit');
  11.       WriteCenter(2,79,'Write Demo One');
  12.       WriteAT(5,5,lightgreen,'Written using WriteAT');
  13.       WriteHi(5,7,white,cyan,'Written with the Write~Hi~ method');
  14.       WriteRight(80,9,yellow,'Written with WriteRight');
  15.       WriteCap(5,11,white,cyan,'Written with WriteCap');
  16.       WriteCap(5,13,white,cyan,'also written with WriteCap');
  17.       WriteVert(40,5,12,'Writevert');
  18.       WriteBetween(1,40,15,lightgreen,'Left Half');
  19.       WriteBetween(41,80,15,lightgreen,'Right Half');
  20.       WritePlain(5,17,'This is written with WritePlain');
  21.       GotoXY(5,19);
  22.       Write('Good Old Write! ');
  23.       Writeln('And ...');
  24.       Writeln('Good old Writeln');
  25.       Writeln('');
  26.       System.Writeln('This ','is',' Turbo''s Writeln');
  27.       WriteClick(33,24,white,'That''s all Folks!');
  28.       GotoXY(1,25);
  29.    end;
  30. end.
  31.