Відеопам'ять у текстовому режимі (+текстпрограми)

MOV CL,Character

XOR AX,AX

MOV AL,PosY

MOV BX,Cols

ADD BX,BX

MUL BX

XOR BX,BX

MOV BL,PosX

ADD BL,PosX

ADD AX,BX

MOV ChOff,AX

MOV BX,VOffset

ADD BX,ChOff

PUSH DS

MOV AX,0B800h

MOV DS,AX

MOV WORD PTR DS:BX,CX

POP DS

END;

BEGIN

Dir:=TRUE;

ReadScreenProp;

ClearScreen;

{WriteLn(PageSize,' ',VOffset,' ',ActivePage,' ',Cols,' ',Rows,' ',ChOff);}

PutSymbol(' ',$0000,0,0);

PutSymbol('V',$1E,3,1);

PutSymbol('I',$1E,3,2);

PutSymbol('D',$1E,3,3);

PutSymbol('E',$1E,3,4);

PutSymbol('O',$1E,3,5);