(*
---------------------------------------------------------------------
   :Program.       Maus.mod
   :Contents.      Mousepointer-Images für Logigraph.mod
   :Author.        Franz X. Dimbeck
   :ADdress.       Troppauerstr. 48, D-8058 Erding, BRD
   :Phone.         08122 18135
   :Copyright.     Public Domain
   :Language.      Modula-2
   :Translator.    M2Amiga V3.3d
   :History.       V1.1 13.Mar.1990
---------------------------------------------------------------------
*)

(* $R- $V- $S- $F- *)
IMPLEMENTATION MODULE Maus;

FROM SYSTEM IMPORT      WORD;

FROM Heap IMPORT        AllocMem;

VAR     i   :INTEGER;



BEGIN   (* MAIN *)

FOR i:=0 TO   3  DO
  AllocMem(MausPtr[i],SIZE(MausPtr[i]^),TRUE);
  MausPtr[i]^.Pos[0]:=0;
  MausPtr[i]^.Pos[1]:=0;
  MausPtr[i]^.Add[0]:=0;
  MausPtr[i]^.Add[1]:=0;
  MausPtr[i]^.Add[2]:=0;
  MausPtr[i]^.Add[3]:=0;
END;
Mausheight:= 19;


WITH MausPtr[pfeil]^ DO         (* pfeil *)

   (* Plane 1 *)     (* Plane 2 *)
  Dat[ 0]:=08000H;  Dat[ 1]:=04000H;  (* 1*)
  Dat[ 2]:=04000H;  Dat[ 3]:=0E000H;  (* 2*)
  Dat[ 4]:=06000H;  Dat[ 5]:=0F000H;  (* 3*)
  Dat[ 6]:=03000H;  Dat[ 7]:=07800H;  (* 4*)
  Dat[ 8]:=03800H;  Dat[ 9]:=07C00H;  (* 5*)
  Dat[10]:=01C00H;  Dat[11]:=03E00H;  (* 6*)
  Dat[12]:=01E00H;  Dat[13]:=03F00H;  (* 7*)
  Dat[14]:=00F00H;  Dat[15]:=01F80H;  (* 8*)
  Dat[16]:=00F80H;  Dat[17]:=01FC0H;  (* 9*)
  Dat[18]:=007C0H;  Dat[19]:=00FE0H;  (*10*)
  Dat[20]:=007E0H;  Dat[21]:=00FF0H;  (*11*)
  Dat[22]:=003F0H;  Dat[23]:=007F8H;  (*12*)
  Dat[24]:=003F8H;  Dat[25]:=007FCH;  (*13*)
  Dat[26]:=001FCH;  Dat[27]:=003FEH;  (*14*)
  Dat[28]:=001F8H;  Dat[29]:=003FCH;  (*15*)
  Dat[30]:=000F0H;  Dat[31]:=001F8H;  (*16*)
  Dat[32]:=000E0H;  Dat[33]:=001F0H;  (*17*)
  Dat[34]:=00040H;  Dat[35]:=000E0H;  (*18*)
  Dat[36]:=00000H;  Dat[37]:=000C0H;  (*19*)
END;


WITH MausPtr[hand]^ DO         (* hand *)

   (* Plane 1 *)     (* Plane 2 *)
  Dat[ 0]:=0C000H;  Dat[ 1]:=04000H;  (* 1*)
  Dat[ 2]:=0E180H;  Dat[ 3]:=0E180H;  (* 2*)
  Dat[ 4]:=07180H;  Dat[ 5]:=0F180H;  (* 3*)
  Dat[ 6]:=039C0H;  Dat[ 7]:=079C0H;  (* 4*)
  Dat[ 8]:=01CC0H;  Dat[ 9]:=03DC0H;  (* 5*)
  Dat[10]:=06EC0H;  Dat[11]:=07FC0H;  (* 6*)
  Dat[12]:=03760H;  Dat[13]:=07FE0H;  (* 7*)
  Dat[14]:=01FE0H;  Dat[15]:=07FE0H;  (* 8*)
  Dat[16]:=06DE0H;  Dat[17]:=07FE0H;  (* 9*)
  Dat[18]:=03FE0H;  Dat[19]:=07FE0H;  (*10*)
  Dat[20]:=05BF0H;  Dat[21]:=07FF0H;  (*11*)
  Dat[22]:=02FF0H;  Dat[23]:=07FFCH;  (*12*)
  Dat[24]:=017ECH;  Dat[25]:=03FF2H;  (*13*)
  Dat[26]:=00FDEH;  Dat[27]:=01FE1H;  (*14*)
  Dat[28]:=003BCH;  Dat[29]:=00FC2H;  (*15*)
  Dat[30]:=00078H;  Dat[31]:=00384H;  (*16*)
  Dat[32]:=00030H;  Dat[33]:=00048H;  (*17*)
  Dat[34]:=00020H;  Dat[35]:=00050H;  (*18*)
  Dat[36]:=00000H;  Dat[37]:=00020H;  (*19*)
END;


WITH MausPtr[stift]^ DO         (* stift *)

   (* Plane 1 *)     (* Plane 2 *)
  Dat[ 0]:=00000H;  Dat[ 1]:=0FE00H;  (* 1*)
  Dat[ 2]:=03A00H;  Dat[ 3]:=0C700H;  (* 2*)
  Dat[ 4]:=07B00H;  Dat[ 5]:=08780H;  (* 3*)
  Dat[ 6]:=07380H;  Dat[ 7]:=08FC0H;  (* 4*)
  Dat[ 8]:=06DC0H;  Dat[ 9]:=09FE0H;  (* 5*)
  Dat[10]:=00EE0H;  Dat[11]:=0FFF0H;  (* 6*)
  Dat[12]:=07770H;  Dat[13]:=0FFF8H;  (* 7*)
  Dat[14]:=03BB8H;  Dat[15]:=07FFCH;  (* 8*)
  Dat[16]:=01DDCH;  Dat[17]:=03FFEH;  (* 9*)
  Dat[18]:=00EEEH;  Dat[19]:=01FFFH;  (*10*)
  Dat[20]:=00777H;  Dat[21]:=00FFFH;  (*11*)
  Dat[22]:=003BAH;  Dat[23]:=007FFH;  (*12*)
  Dat[24]:=001DCH;  Dat[25]:=003FEH;  (*13*)
  Dat[26]:=000ECH;  Dat[27]:=001FEH;  (*14*)
  Dat[28]:=00070H;  Dat[29]:=000FCH;  (*15*)
  Dat[30]:=00020H;  Dat[31]:=00070H;  (*16*)
END;


WITH MausPtr[schere]^ DO         (* schere *)

   (* Plane 1 *)     (* Plane 2 *)
  Dat[ 0]:=08080H;  Dat[ 1]:=00080H;  (* 1*)
  Dat[ 2]:=0C080H;  Dat[ 3]:=0C180H;  (* 2*)
  Dat[ 4]:=06080H;  Dat[ 5]:=0E180H;  (* 3*)
  Dat[ 6]:=03080H;  Dat[ 7]:=07180H;  (* 4*)
  Dat[ 8]:=01880H;  Dat[ 9]:=03980H;  (* 5*)
  Dat[10]:=00C80H;  Dat[11]:=01D80H;  (* 6*)
  Dat[12]:=00680H;  Dat[13]:=00F80H;  (* 7*)
  Dat[14]:=00300H;  Dat[15]:=00780H;  (* 8*)
  Dat[16]:=001CEH;  Dat[17]:=003DEH;  (* 9*)
  Dat[18]:=00071H;  Dat[19]:=003FFH;  (*10*)
  Dat[20]:=00131H;  Dat[21]:=00373H;  (*11*)
  Dat[22]:=00111H;  Dat[23]:=00333H;  (*12*)
  Dat[24]:=0010EH;  Dat[25]:=0031EH;  (*13*)
  Dat[26]:=00F00H;  Dat[27]:=01F0EH;  (*14*)
  Dat[28]:=01100H;  Dat[29]:=03F00H;  (*15*)
  Dat[30]:=01100H;  Dat[31]:=03300H;  (*16*)
  Dat[32]:=01100H;  Dat[33]:=03300H;  (*17*)
  Dat[34]:=00E00H;  Dat[35]:=01E00H;  (*18*)
END;
END Maus.