PROCEDURE Maus; ASSEMBLER;
ASM
  MOV AX,m1
  MOV BX,m2
  MOV CX,m3
  MOV DX,m4
  INT $33
  MOV m1,AX
  MOV m2,BX
  MOV m3,CX
  MOV m4,DX
END;

PROCEDURE LESc1; ASSEMBLER;
ASM
  MOV AX,SEG(c1)
  MOV ES,AX
END;

PROCEDURE MausDa(nr:Word);
Inline($58/$cd/$33);

PROCEDURE Mouse;
BEGIN
  MausDa(2);
  m1:=9; m2:=5; m3:=0; m4:=Ofs(c0);
  LESc1; Maus;
  MausDa(1);
  MouseWindow(4,0,GetMaxX-6,GetMaxY-15);
END;

PROCEDURE Handy;
BEGIN
  MausDa(2);
  m1:=9; m2:=5; m3:=0; m4:=Ofs(c1);
  LESc1; Maus;
  MausDa(1);
  MouseWindow(5,0,GetMaxX-10,GetMaxY-15);
END;

PROCEDURE Clock;
BEGIN
  MausDa(2);
  m1:=9; m2:=5; m3:=0; m4:=Ofs(c2);
  LESc1; Maus;
  MausDa(1);
  MouseWindow(5,0,GetMaxX-10,GetMaxY-15);
END;

PROCEDURE Cross;
BEGIN
  MausDa(2);
  m1:=9; m2:=5; m3:=0; m4:=Ofs(c3);
  LESc1; Maus;
  MausDa(1);
  MouseWindow(4,0,GetMaxX-10,GetMaxY-14);
END;

PROCEDURE Arrow;
BEGIN
  MausDa(2);
  m1:=9; m2:=5; m3:=0; m4:=Ofs(c4);
  LESc1; Maus;
  MausDa(1);
  MouseWindow(5,0,GetMaxX-10,GetMaxY-6);
END;

END.