ассемблер

[FPaul]

Да, забыл.
Значит всё сложнее.

[macomics]

Можно воспользоваться функциями 2 и 9 в цикле.

use16
org     256
    mov ah, 15
    int 10h
    mov byte ptr screen_page, bh
    mov al, ah
    mov ah, 0
    sub ax, word ptr window_width
    shr ax, 1
    mov byte ptr window_position.x, al
    push ds
    mov ax, 0040h
    mov ds, ax
    mov al, [84h]
    pop ds
    mov ah, 0
    sub ax, word ptr window_height
    shr ax, 1
    mov byte ptr window_position.y, al
    mov al, 32
    jmp update_screen

main_loop:
    mov ah, 11h
    int 16h
    jz wait_a_kay
    mov ah, 10h
    int 16h
    jmp main_loop

wait_a_kay:
    mov ah, 10h
    int 16h
    cmp ax, 0x7000
    jnz update_screen
    mov ah, 12h
    int 10h
    test ah, 20h
    jnz main_loop
    mov ax, 4C00h
    int 21h

update_screen:
    push ax
    mov ax, 0732h
    mov bh, byte ptr text_color
    xor cx, cx
    xor bh, 77h
    mov dx, 317Fh
    int 10h
    pop ax
    cmp al, 32
    jc main_loop
    mov cx, word ptr window_height
    push word ptr window_position

draw_window_loop:
    push cx
    push ax
    mov ah, 2
    mov bh, byte ptr screen_page
    mov dx, word ptr window_position
    int 10h
    inc byte ptr window_position.y
    pop ax
    mov ah, 9
    mov bx, word ptr page_and_color
    mov cx, word ptr window_width
    int 10h
    pop cx
    loop draw_window_loop
    pop word ptr window_position
    jmp main_loop

page_and_color:
text_color db 70h
screen_page db ?
window_position:
 ; позицию надо рассчитать исходя из размеров окна и параметров экрана, чтобы окно было по центру
window_position.x db ? ; максимум(0, (ширина экрана - ширина окна) shr 1)
window_position.y db ? ; максимум(0, (высота экрана - высота окна) shr 1)
window_width dw 20
window_height dw 10

Что-то вроде этого