program window;

uses graphics,mouse,crt;

var                 exit : boolean;
    oldmousex, oldmousey : word;
           virtualwindow : pointer;
         colour, r, g, b : byte;

begin

getmem(virtualwindow,64000);

asminitgraphics(1);
exit:=false;

if init_mouse then
begin

    asmclsuser(0,64000,seg(virtualwindow^));

    menubar(seg(mode1addr^));
    Asminitpalette;

    Set_Pointer_Location(100,100);
    show_pointer;

    repeat
      oldmousex:=mousex;
      oldmousey:=mousey;

      Get_Pointer_location(false,0,0,false);

      if (Mousex=0) and
         (Mousey=0) and
         (MouseButton=1)then exit:=true;

      if (MouseButton=1)then
           begin
           end;

      if (MouseButton=2)then
           begin
           end;

    until exit;

end;
freemem(virtualwindow,64000);

end.