Вот зацените на АСМ'е написал
FASM нужен чтоб скомпилить
org 100h
mov bx, 0001h
push bx
video:
mov ax, 0003h
int 10h
mov [bukva], 21h
symvol:
mov ah, 09h
mov al, [bukva]
pop bx
mov cx, 0960h
int 10h
inc [bukva]
inc bl
cmp al, 7Fh
je text
cmp bl, 10h
push bx
je chcvet
jne diskfuck
chcvet:
pop bx
mov bl, 01h
push bx
diskfuck:
mov ax, 0200h
mov cx, 0000h
mov dx, 0000h
int 13h
mov ah, 09h
mov dx, beep
int 21h
jmp symvol
text:
mov [bukva], 21h
jmp symvol
bukva db ?
beep db 07h, '$'