home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / tpdoskermit / fixattr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2020-01-01  |  861 b   |  30 lines
  1. $R-,S-
  2.  
  3. Unit FixAttr;
  4.  
  5. Interface
  6.  
  7. Uses Crt;
  8.  
  9. Implementation
  10.  
  11. CONST Space : CHAR = ' ';
  12.  
  13. BEGIN
  14. InLine(
  15.    $B4/$03           {MOV    AH,03           }
  16.   /$BB/$02/$00       {MOV    BX,0002         }
  17.   /$CD/$10           {INT    10              }
  18.   /$52               {PUSH   DX              }  {Save cursor pos}
  19.   /$B4/$40           {MOV    AH,40           }
  20.   /$B9/$01/$00       {MOV    CX,1            }
  21.   /$BA/Space         {MOV    DX,OFFSET Space }
  22.   /$CD/$21           {INT    21              }  {Write ' ' to stderr}
  23.   /$B4/$02           {MOV    AH,02           }
  24.   /$5A               {POP    DX              }
  25.   /$CD/$10           {INT    10              }  {Restore cursor}
  26.   /$B4/$08           {MOV    AH,08           }
  27.   /$CD/$10           {INT    10              }  {Read DOS attr}
  28.   /$88/$26/TextAttr);{MOV    [TextAttr],AH   }  {Update TextAttr}
  29. END.
  30.