Как изменить код ,что бы выводилось БЕА?
Есть такое тз. С использованием встроенного ассемблера языка Borland Pascal в графическом видеорежиме 320×200 256 цветов, при обращении напрямую к видеопамяти, вывести изображение – первую букву фамилии, имени и отчества учащегося. Высота символов должна быть не менее 2/3 высоты экрана, толщина начертания символов 20–40 пикселей. Зафиксировать изображение на экране до нажатия любой клавиши. По завершении работы программа должна восстанавливать видеорежим (установить тот режим, который был до запуска программы).
Я не особо понимаю,как я должен изменить буквы на мои ФИО, чтобы выводилось БЕА, а не НАР. Кому не тяжело, можете подсказать, что я должен изменить в программе?
var
mode:char;
begin
asm
mov ah,$0f
int $10
mov mode,al
mov ax,$13
int $10
mov ax,$a000
mov es,ax
mov di,10*320+10
mov dx,180
mov cx,30
call @block
mov di,85*320+40
mov dx,30
mov cx,30
call @block
mov di,10*320+70
mov dx,180
mov cx,30
call @block
mov di,55*320+115
mov dx,135
mov cx,30
call @block
mov di,85*320+145
mov dx,30
mov cx,30
call @block
mov di,55*320+175
mov dx,135
mov cx,30
call @block
mov di,10*320+160
mov dx,45
mov cx,1
@2:
call @line
add cx,2
add di,320-1
dec dx
jnz @2
mov di,10*320+220
mov dx,180
mov cx,30
call @block
mov di,10*320+250
mov dx,30
mov cx,60
call @block
mov di,85*320+250
mov dx,30
mov cx,60
call @block
mov di,40*320+280
mov dx,45
mov cx,30
call @block
xor ah,ah
int $16
mov ah,0
mov al,mode
int $13
jmp @ex
@block:
@1:
call @line
add di,320
dec dx
jnz @1
ret
@line:
push di
push cx
mov al,15
rep stosb
pop cx
pop di
ret
@ex:
end;
end.