Board.KolibriOS.org

--------------------
{Shapka}Program hello5;
Uses kolibri;    var k:TKolibri;
const   header:string='HelloWorld test'#0;
   str:string='Hello, World!';

{p1}procedure draw_window;
begin   k.BeginDraw;
   k.DefineWindow(10,40,300,300,$33FFFFFF,0,integer(@header[1]));
   k.WriteText(30,10,0,0,str);
   k.DefineButton(5,5,65,25,7,7);
   k.DefineButton(5,35,65,25,8,7);
   k.EndDraw; end;

{p2}procedure zachvat_portov;
begin asm
  mov eax,46
  mov ebx,0
  mov ecx,880
  mov edx,890
  int $40 
end; end;

{p3}procedure proc_vkl;
begin asm
  mov eax,43
  mov bl,255
  mov ecx,888
  int $40
end; end;

{p4}procedure proc_vikl;
begin asm
  mov eax,43
  mov bl,0
  mov ecx,888
  int $40
end; end;

{p5}procedure otdatj_porti;
begin asm
  mov eax,46
  mov ebx,1
  mov ecx,880
  mov edx,890
  int $40 
end; end;

var key:DWord;
BEGIN   draw_window;
   zachvat_portov;  {}
     while true do
   begin   case k.WaitForEvent of
      1:draw_window;
      2:k.GetKey(key);
      3: {break;}begin 
                             k.getButton(key); 
                             if key=7 then proc_vkl; 
                             if key=8 then proc_vikl;
                           end;
      end;
   end;
   otdatj_porti;  {}
END.
----------------------