include 'C:\KMLIB\main.inc' ; подключаем нашу библиотеку.
mKOS_HEADER 'MENUET01',0x01,START,I_END,0x100000,0x100000,0x0,0x0 ; устанавливаем заголовок.
START: ; метка начала кода.
draw_window: ; метка подпрограммы зарисовки окна.
mBeginRedrawAndDrawWin 100,300,100,150,s3.,0x00ffffff,0x00,0x008899ff,app_title ; определяем и рисуем окно.
smEndRedrawWin ; заканчиваем перерисовку окна.
event_wait: ; метка подпрограммы ожидания событий.
mCheckEvents123A redraw,key,button ; проверяем события: о перерис., от клавиш и кнопок.
jmp event_wait ; прыгаем на ожидание нового события.
key: ; метка подпрограммы проверки нажатий на клавиши.
smGetKey ; получаем нажатую клавишу.
mCheckCloseKey aKEY_ESCAPE,close_program ; проверяем клавишу закрытия программы.
jmp event_wait ; прыгаем на ожидание нового события.
button: ; метка подпрограммы проверки нажатий на кнопки.
smGetPressedButtonID ; получаем идентифиеатор кнопки.
mCheckCloseButton close_program ; проверяем кнопку закрытия программы.
jmp event_wait ; прыгаем на ожидание нового события.
close_program: ; метка подпрограммы для закрытия программы.
smCloseProgram ; закрываем прграмму.
app_title db 'Пример окна!',0 ; текст в заголовке окна.
redraw = draw_window ; переопределяем метку.
I_END: ; метка конца образа программы.
|