home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOT_2.ZIP / DEMO.EXE / arc / DEMBX1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  1.0 KB  |  38 lines
  1. Program DemoBoxOne;
  2. {DEMBX1}
  3.  
  4. USES DOS,CRT, totFAST;
  5.  
  6. begin
  7.    Clrscr;
  8.    with Screen do
  9.    begin
  10.       Box(1,1,19,10,white,0);
  11.       WriteAt(2,2,white,'Style 0');
  12.       Box(21,1,39,10,white,1);
  13.       WriteAt(22,2,white,'Style 1');
  14.       Box(41,1,59,10,white,2);
  15.       WriteAt(42,2,white,'Style 2');
  16.       Box(61,1,80,10,white,3);
  17.       WriteAt(62,2,white,'Style 3');
  18.       Box(1,12,19,20,white,4);
  19.       WriteAt(2,13,white,'Style 4');
  20.       Box(21,12,39,20,white,5);
  21.       WriteAt(22,13,white,'Style 5');
  22.       Box(41,12,59,20,white,6);
  23.       WriteAt(42,13,white,'Style 6');
  24.       Box(61,12,80,20,white,127);
  25.       WriteAt(62,13,white,'Style 127');
  26.       WriteAt(1,22,white,'Style 1,3');
  27.       Horizline(13,80,22,white,1);
  28.       WriteAt(1,23,white,'Style 2,4');
  29.       Horizline(13,80,23,white,4);
  30.       WriteAt(1,24,white,'Style 14');
  31.       Horizline(13,80,24,white,14);
  32.       WriteAt(1,25,white,'Style 219');
  33.       Horizline(13,80,25,white,219);
  34.       repeat until keypressed;
  35.       gotoXY(1,25);
  36.    end;
  37. end.
  38.