(*********************************************************************
 *
 *  :Program.		Image für Mastermind
 *  :Author.		Hans Schafft
 *  :Address.		Landfriedstraße 1A - Hinterhaus
 *  :Address.		6900 Heidelberg
 *  :Phone.		06221 - 22416
 *  :Version.		1.0
 *  :Date.		1989
 *  :Copyright.		PD
 *  :Language.		Modula-II
 *  :Translator.	M2Amiga
 *
 *********************************************************************)
(* 	Um die PfeilImages einzubinden habe ich IFFRToCode von AMOK #3  *)
(*	benutzt. Dem Autor Pit Burkhardt auf diesem Wege vielen Dank !  *)
(************************************************************************)

IMPLEMENTATION MODULE LinksImg;

FROM SYSTEM	IMPORT	WORD;
FROM Heap	IMPORT	AllocMem;

BEGIN
  AllocMem(LinksImgPtr,SIZE(LinksImgPtr^),TRUE);

  WITH LinksImage DO
    leftEdge := 0;
    topEdge := 0;
    width := 8;
    height:= 39;
    depth :=  4;
    imageData := LinksImgPtr;
    planePick := 0FFH;
    planeOnOff := 0H;
    nextImage := NIL;
  END;


WITH LinksImgPtr^ DO         (* links *)

  (* Plane 1 *)
 Dat[ 0]:=00000H;(* 1*)
 Dat[ 1]:=07F00H;(* 2*)
 Dat[ 2]:=07F00H;(* 3*)
 Dat[ 3]:=07F00H;(* 4*)
 Dat[ 4]:=07F00H;(* 5*)
 Dat[ 5]:=07F00H;(* 6*)
 Dat[ 6]:=07C00H;(* 7*)
 Dat[ 7]:=07C00H;(* 8*)
 Dat[ 8]:=07C00H;(* 9*)
 Dat[ 9]:=07C00H;(*10*)
 Dat[10]:=07C00H;(*11*)
 Dat[11]:=07C00H;(*12*)
 Dat[12]:=07C00H;(*13*)
 Dat[13]:=07C00H;(*14*)
 Dat[14]:=07C00H;(*15*)
 Dat[15]:=07C00H;(*16*)
 Dat[16]:=07C00H;(*17*)
 Dat[17]:=07C00H;(*18*)
 Dat[18]:=07C00H;(*19*)
 Dat[19]:=07C00H;(*20*)
 Dat[20]:=07C00H;(*21*)
 Dat[21]:=07C00H;(*22*)
 Dat[22]:=07C00H;(*23*)
 Dat[23]:=07C00H;(*24*)
 Dat[24]:=07C00H;(*25*)
 Dat[25]:=07C00H;(*26*)
 Dat[26]:=07C00H;(*27*)
 Dat[27]:=07C00H;(*28*)
 Dat[28]:=07C00H;(*29*)
 Dat[29]:=07C00H;(*30*)
 Dat[30]:=07C00H;(*31*)
 Dat[31]:=07C00H;(*32*)
 Dat[32]:=07C00H;(*33*)
 Dat[33]:=07F00H;(*34*)
 Dat[34]:=07F00H;(*35*)
 Dat[35]:=07F00H;(*36*)
 Dat[36]:=07F00H;(*37*)
 Dat[37]:=07F00H;(*38*)
 Dat[38]:=00000H;(*39*)

  (* Plane 2 *)
 Dat[39]:=00000H;(* 1*)
 Dat[40]:=04000H;(* 2*)
 Dat[41]:=06000H;(* 3*)
 Dat[42]:=07000H;(* 4*)
 Dat[43]:=07800H;(* 5*)
 Dat[44]:=07C00H;(* 6*)
 Dat[45]:=07F00H;(* 7*)
 Dat[46]:=07F00H;(* 8*)
 Dat[47]:=07F00H;(* 9*)
 Dat[48]:=07F00H;(*10*)
 Dat[49]:=07F00H;(*11*)
 Dat[50]:=07F00H;(*12*)
 Dat[51]:=07F00H;(*13*)
 Dat[52]:=07F00H;(*14*)
 Dat[53]:=07F00H;(*15*)
 Dat[54]:=07F00H;(*16*)
 Dat[55]:=07F00H;(*17*)
 Dat[56]:=07F00H;(*18*)
 Dat[57]:=07F00H;(*19*)
 Dat[58]:=07F00H;(*20*)
 Dat[59]:=07F00H;(*21*)
 Dat[60]:=07F00H;(*22*)
 Dat[61]:=07F00H;(*23*)
 Dat[62]:=07F00H;(*24*)
 Dat[63]:=07F00H;(*25*)
 Dat[64]:=07F00H;(*26*)
 Dat[65]:=07F00H;(*27*)
 Dat[66]:=07F00H;(*28*)
 Dat[67]:=07F00H;(*29*)
 Dat[68]:=07F00H;(*30*)
 Dat[69]:=07F00H;(*31*)
 Dat[70]:=07F00H;(*32*)
 Dat[71]:=07F00H;(*33*)
 Dat[72]:=07C00H;(*34*)
 Dat[73]:=07800H;(*35*)
 Dat[74]:=07000H;(*36*)
 Dat[75]:=06000H;(*37*)
 Dat[76]:=04000H;(*38*)
 Dat[77]:=00000H;(*39*)

  (* Plane 3 *)
 Dat[78]:=00000H;(* 1*)
 Dat[79]:=03F00H;(* 2*)
 Dat[80]:=01F00H;(* 3*)
 Dat[81]:=00F00H;(* 4*)
 Dat[82]:=00700H;(* 5*)
 Dat[83]:=00300H;(* 6*)
 Dat[84]:=00000H;(* 7*)
 Dat[85]:=00000H;(* 8*)
 Dat[86]:=00000H;(* 9*)
 Dat[87]:=00000H;(*10*)
 Dat[88]:=00000H;(*11*)
 Dat[89]:=00000H;(*12*)
 Dat[90]:=00000H;(*13*)
 Dat[91]:=00000H;(*14*)
 Dat[92]:=00000H;(*15*)
 Dat[93]:=00000H;(*16*)
 Dat[94]:=00000H;(*17*)
 Dat[95]:=00000H;(*18*)
 Dat[96]:=00000H;(*19*)
 Dat[97]:=00000H;(*20*)
 Dat[98]:=00000H;(*21*)
 Dat[99]:=00000H;(*22*)
 Dat[100]:=00000H;(*23*)
 Dat[101]:=00000H;(*24*)
 Dat[102]:=00000H;(*25*)
 Dat[103]:=00000H;(*26*)
 Dat[104]:=00000H;(*27*)
 Dat[105]:=00000H;(*28*)
 Dat[106]:=00000H;(*29*)
 Dat[107]:=00000H;(*30*)
 Dat[108]:=00000H;(*31*)
 Dat[109]:=00000H;(*32*)
 Dat[110]:=00000H;(*33*)
 Dat[111]:=00300H;(*34*)
 Dat[112]:=00700H;(*35*)
 Dat[113]:=00F00H;(*36*)
 Dat[114]:=01F00H;(*37*)
 Dat[115]:=03F00H;(*38*)
 Dat[116]:=00000H;(*39*)

  (* Plane 4 *)
 Dat[117]:=00000H;(* 1*)
 Dat[118]:=07F00H;(* 2*)
 Dat[119]:=07F00H;(* 3*)
 Dat[120]:=07F00H;(* 4*)
 Dat[121]:=07F00H;(* 5*)
 Dat[122]:=07F00H;(* 6*)
 Dat[123]:=07C00H;(* 7*)
 Dat[124]:=07C00H;(* 8*)
 Dat[125]:=07C00H;(* 9*)
 Dat[126]:=07C00H;(*10*)
 Dat[127]:=07C00H;(*11*)
 Dat[128]:=07C00H;(*12*)
 Dat[129]:=07C00H;(*13*)
 Dat[130]:=07C00H;(*14*)
 Dat[131]:=07C00H;(*15*)
 Dat[132]:=07C00H;(*16*)
 Dat[133]:=07C00H;(*17*)
 Dat[134]:=07C00H;(*18*)
 Dat[135]:=07C00H;(*19*)
 Dat[136]:=07C00H;(*20*)
 Dat[137]:=07C00H;(*21*)
 Dat[138]:=07C00H;(*22*)
 Dat[139]:=07C00H;(*23*)
 Dat[140]:=07C00H;(*24*)
 Dat[141]:=07C00H;(*25*)
 Dat[142]:=07C00H;(*26*)
 Dat[143]:=07C00H;(*27*)
 Dat[144]:=07C00H;(*28*)
 Dat[145]:=07C00H;(*29*)
 Dat[146]:=07C00H;(*30*)
 Dat[147]:=07C00H;(*31*)
 Dat[148]:=07C00H;(*32*)
 Dat[149]:=07C00H;(*33*)
 Dat[150]:=07F00H;(*34*)
 Dat[151]:=07F00H;(*35*)
 Dat[152]:=07F00H;(*36*)
 Dat[153]:=07F00H;(*37*)
 Dat[154]:=07F00H;(*38*)
 Dat[155]:=00000H;(*39*)

END;
END LinksImg.