home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
tpdoskermit.zip
/
fixattr.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-18
|
890b
|
30 lines
$R-,S-
Unit FixAttr;
Interface
Uses Crt;
Implementation
CONST Space : CHAR = ' ';
BEGIN
InLine(
$B4/$03 {MOV AH,03 }
/$BB/$02/$00 {MOV BX,0002 }
/$CD/$10 {INT 10 }
/$52 {PUSH DX } {Save cursor pos}
/$B4/$40 {MOV AH,40 }
/$B9/$01/$00 {MOV CX,1 }
/$BA/Space {MOV DX,OFFSET Space }
/$CD/$21 {INT 21 } {Write ' ' to stderr}
/$B4/$02 {MOV AH,02 }
/$5A {POP DX }
/$CD/$10 {INT 10 } {Restore cursor}
/$B4/$08 {MOV AH,08 }
/$CD/$10 {INT 10 } {Read DOS attr}
/$88/$26/TextAttr);{MOV [TextAttr],AH } {Update TextAttr}
END.