Курсовая работа: Завантажувач шрифтів

Msg4 db 'выберите шрифтовый файл $'

Msg5 db 'ошибка закр. файла $'

Msg6 db 'Шрифт установлен $'

escposl db 0

Fname db 255,?,255 dup(0)

Handle dw 0

Stroka db 30 DUP(?)

.code

ProgramStart PROC NEAR

mov ax,@data

mov ds,ax

call clear

Call Vibor

call clear

Call Init

mov dx,offset Msg4

Call outputer

mov dx,offset fname

Call inputer

mov bl,byte ptr [fname+1]

xor bh,bh

mov di,offset fname+2

mov [bx+di],byte ptr 0

call clear

Call fopen

call clear

Call esca

Call fclose

Quit: