home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9101 / tricks / ansi / ansidemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-10-11  |  1.7 KB  |  45 lines
  1. PROGRAM AnsiDemo;
  2.  
  3. CONST
  4.   ESC = CHR(27);
  5. VAR
  6.   i, j: BYTE;
  7.  
  8. PROCEDURE WriteESC(s: STRING);
  9. BEGIN
  10.   Write(ESC, '[', s);
  11. END;
  12.  
  13. BEGIN
  14.   WriteESC('0m');              (* NormVideo               *)
  15.   WriteESC('2J');              (* ClrScr                  *)
  16.   WriteESC('1B');              (* Scroll 1 line down      *)
  17.   FOR i := 0 TO 8 DO           (* SetColor                *)
  18.     FOR j := 30 TO 47 DO BEGIN
  19.       Write(ESC, '[', i, 'm', ESC, '[', j, 'm');
  20.       Write(' [', i, ':', j , '] ');
  21.     END;
  22.   WriteESC('19;1f');           (* GotoXY 1,19             *)
  23.   WriteESC('1B');              (* Scroll down 1 Line      *)
  24.   WriteESC('s');               (* Read Curs_Pos           *)
  25.   WriteESC('1;1f');            (* GotoXY 1,1              *)
  26.   WriteESC('k');               (* ClrEoL                  *)
  27.   Write(' ': 23, 'Demo für ANSI-Steuerung in Turbo Pascal');
  28.   WriteESC('u');               (* Restore last Curs_Pos   *)
  29.   WriteESC('0m');              (* NormVideo               *)
  30.   WriteESC('0;59;"CLS";13p');                       (* F1 *)
  31.   WriteESC('0;60;"DEBUG"p');                        (* F2 *)
  32.   WriteESC('0;61;"TURBO";13p');                     (* F3 *)
  33.   WriteESC('0;62;"EXIT";13p');                      (* F4 *)
  34.   WriteESC('0;63;"DIR";13p');                       (* F5 *)
  35.            (* <F6> kann wegen des #Z nicht belegt werden! *)
  36.   WriteESC('0;65;"DEL "p');                         (* F7 *)
  37.   WriteESC('0;66;"COPY "p');                        (* F8 *)
  38.   WriteESC('0;67;"XCOPY "p');                       (* F9 *)
  39.   WriteESC('0;32;"DEL *.BAK";13p');              (* ALT-D *)
  40.   WriteESC('13;32p');
  41.   WriteESC('32;13p');
  42.   WriteESC('27;13p');
  43.   WriteESC('"Y";"Z";p');
  44. END.
  45.