home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ANSCRT.ZIP / TESTANS.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-05-28  |  2.2 KB  |  94 lines

  1. Program TestAnsi;
  2.  
  3.   { This a demo program for the AnsCrt unit.  It needs the ANSCRT.TPU
  4.     in Turbo's TPU path.  TESTANS.EXE is the precompiled version. }
  5.  
  6. Uses anscrt;
  7.  
  8. var
  9.  x, y, i : byte;
  10.  NameStr : string;
  11.  ch      : char;
  12.  
  13. begin
  14.   TextBackground(Black);
  15.   TextColor(LightGray);
  16.   ClrScr;
  17.   x := 0;
  18.   y := 0;
  19.   Write('Test of ANSCRT unit. @');
  20.   x := WhereX;
  21.   y := WhereY;
  22.   GotoXY(12,22);
  23.   TextColor(White + Blink);
  24.   Write('The @ sign above is on line ',y,' at column ',x - 1);
  25.   GotoXY(1,y + 1);
  26.   TextColor(Yellow);
  27.   TextBackground(Green);
  28.   Write('(Bright yellow on green.)  Enter your name (in Bright cyan on blue): ');
  29.   TextColor(LightCyan);
  30.   TextBackground(Blue);
  31.   ClrEol;
  32.   ReadLn(NameStr);
  33.   LowVideo;
  34.   Write('Test LowVideo, Keypressed and ReadKey - Press any function key');
  35.   Repeat until Keypressed;
  36.   ch := ReadKey;
  37.   If ch = #0 then
  38.    begin
  39.      TextColor(White + Blink);
  40.      Write(' Special key');
  41.      ch := ReadKey;
  42.      TextColor(cyan);
  43.    end;
  44.   WriteLn;
  45.   HighVideo;
  46.   WriteLn('Test HighVideo and GetKey - Press another key');
  47.   ch := GetKey;
  48.   If ch = #32 then Write('Space');
  49.   If ch = #9  then Write('Tab');
  50.   If ch = #8  then Write('Backspace');
  51.   Write(' ',ch);
  52.   GotoXY(1,22);
  53.   LowVideo;
  54.   ClrEol;
  55.   Write('Test of ClrEol - Press a key');
  56.   ch := GetKey;
  57.   TextColor(White);
  58.   TextBackground(Red);
  59.   GotoXY(1,22);
  60.   ClrEol;
  61.   Write('All gone in white on red');
  62.   Write('    Press any key');
  63.   ch := ReadKey;
  64.   GotoXY(1,22);
  65.   NormVideo;
  66.   ClrEol;
  67.   Write('Press any key for color demo');
  68.   ch := GetKey;
  69.   WriteLn(ch);
  70.   ClrScr;
  71.   for i := 0 to 7 do
  72.     begin
  73.       GotoXY(1,i + 1);
  74.       TextColor(i);
  75.       TextBackground(Black);
  76.       ClrEol;
  77.       Write('TextColor ',i);
  78.       TextColor(i + 8);
  79.       Write(' TextColor ',i + 8:2);
  80.       TextColor(i + Blink);
  81.       Write(' TextColor ',i + Blink);
  82.       TextColor(i + 8 + Blink);
  83.       Write(' TextColor ',i + 8 + Blink);
  84.       TextBackground(i);
  85.       ClrEol;
  86.       TextColor(White);
  87.       Write('  TextBackground ',i);
  88.     end;
  89.       TextBackground(Black);
  90.       LowVideo;
  91.       WriteLn;
  92.       WriteLn;
  93.       Write('Finished');
  94. end.