; <--- description ---> ; compiler: FASM 1.67 ; name: Basic window example for KolibriOS ; version: 1.02 ; last update: 1/03/2007 ; written by: Ivan Poddubny ; e-mail: ivan-yar@bk.ru ;modified by: Heavyiron ; <--- include all MeOS stuff ---> include "lang.inc" include "..\..\..\..\macros.inc" ; <--- start of MenuetOS application ---> MEOS_APP_START ; <--- start of code ---> CODE mov eax,48 ; get system colors mov ebx,3 mov ecx,sc mov edx,sizeof.system_colors mcall redraw: ; redraw event handler call draw_window ; at first create and draw the window wait_event: ; main cycle mov eax, 10 mcall dec eax ; if event = 1 jz redraw ; jump to redraw handler dec eax ; else if event = 2 jz key ; jump to key handler button: ; button event handler mov al, 17 ; get button identifier mcall cmp ah, 1 jne wait_event ; return if button id != 1 or eax, -1 ; exit application mcall key: ; key event handler mov al, 2 ; get key code mcall jmp wait_event draw_window: mov eax, 12 ; start drawing mov ebx, 1 mcall xor eax, eax ; create and draw the window mov ebx, 100*65536+200 ; (window_cx)*65536+(window_sx) mov ecx, 100*65536+100 ; (window_cy)*65536+(window_sy) mov edx, [sc.work] ; work area color or edx, 0x33000000 ; & window type 3 mov edi, title ; window title int 0x40 mov eax, 12 ; finish drawing mov ebx, 2 mcall ret ; <--- initialised data ---> DATA if lang eq ru title db '������ �ணࠬ��',0 else if lang eq fr title db 'La programme poncive',0 else title db 'Template program',0 end if ; <--- uninitialised data ---> UDATA sc system_colors MEOS_APP_END ; <--- end of MenuetOS application --->