(*********************************************************************
 *
 *  :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 RechtsImg;

FROM SYSTEM	IMPORT	WORD;
FROM Heap	IMPORT	AllocMem;

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

  WITH RechtsImage DO
    leftEdge := 0;
    topEdge := 0;
    width := 24;
    height:= 39;
    depth :=  4;
    imageData := RechtsImgPtr;
    planePick := 0FFH;
    planeOnOff := 0H;
    nextImage := NIL;
  END;

  WITH RechtsImgPtr^ DO         (* rechts *)

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

  (* Plane 2 *)
 Dat[ 78]:=00000H; Dat[ 79]:=00000H;(* 1*)
 Dat[ 80]:=00100H; Dat[ 81]:=00000H;(* 2*)
 Dat[ 82]:=00300H; Dat[ 83]:=00000H;(* 3*)
 Dat[ 84]:=00700H; Dat[ 85]:=00000H;(* 4*)
 Dat[ 86]:=00F00H; Dat[ 87]:=00000H;(* 5*)
 Dat[ 88]:=01F00H; Dat[ 89]:=00000H;(* 6*)
 Dat[ 90]:=0FF00H; Dat[ 91]:=00000H;(* 7*)
 Dat[ 92]:=0FF00H; Dat[ 93]:=00000H;(* 8*)
 Dat[ 94]:=0FF00H; Dat[ 95]:=00000H;(* 9*)
 Dat[ 96]:=0FF00H; Dat[ 97]:=00000H;(*10*)
 Dat[ 98]:=0FF00H; Dat[ 99]:=00000H;(*11*)
 Dat[100]:=0FF00H; Dat[101]:=00000H;(*12*)
 Dat[102]:=0FF00H; Dat[103]:=00000H;(*13*)
 Dat[104]:=0FF00H; Dat[105]:=00000H;(*14*)
 Dat[106]:=0FF00H; Dat[107]:=00000H;(*15*)
 Dat[108]:=0FF00H; Dat[109]:=00000H;(*16*)
 Dat[110]:=0FF00H; Dat[111]:=00000H;(*17*)
 Dat[112]:=0FF00H; Dat[113]:=00000H;(*18*)
 Dat[114]:=0FF00H; Dat[115]:=00000H;(*19*)
 Dat[116]:=0FF00H; Dat[117]:=00000H;(*20*)
 Dat[118]:=0FF00H; Dat[119]:=00000H;(*21*)
 Dat[120]:=0FF00H; Dat[121]:=00000H;(*22*)
 Dat[122]:=0FF00H; Dat[123]:=00000H;(*23*)
 Dat[124]:=0FF00H; Dat[125]:=00000H;(*24*)
 Dat[126]:=0FF00H; Dat[127]:=00000H;(*25*)
 Dat[128]:=0FF00H; Dat[129]:=00000H;(*26*)
 Dat[130]:=0FF00H; Dat[131]:=00000H;(*27*)
 Dat[132]:=0FF00H; Dat[133]:=00000H;(*28*)
 Dat[134]:=0FF00H; Dat[135]:=00000H;(*29*)
 Dat[136]:=0FF00H; Dat[137]:=00000H;(*30*)
 Dat[138]:=0FF00H; Dat[139]:=00000H;(*31*)
 Dat[140]:=0FF00H; Dat[141]:=00000H;(*32*)
 Dat[142]:=0FF00H; Dat[143]:=00000H;(*33*)
 Dat[144]:=01F00H; Dat[145]:=00000H;(*34*)
 Dat[146]:=00F00H; Dat[147]:=00000H;(*35*)
 Dat[148]:=00700H; Dat[149]:=00000H;(*36*)
 Dat[150]:=00300H; Dat[151]:=00000H;(*37*)
 Dat[152]:=00100H; Dat[153]:=00000H;(*38*)
 Dat[154]:=00000H; Dat[155]:=00000H;(*39*)

  (* Plane 3 *)
 Dat[156]:=00000H; Dat[157]:=00000H;(* 1*)
 Dat[158]:=0FE00H; Dat[159]:=00000H;(* 2*)
 Dat[160]:=0FC00H; Dat[161]:=00000H;(* 3*)
 Dat[162]:=0F800H; Dat[163]:=00000H;(* 4*)
 Dat[164]:=0F000H; Dat[165]:=00000H;(* 5*)
 Dat[166]:=0E000H; Dat[167]:=00000H;(* 6*)
 Dat[168]:=00000H; Dat[169]:=00000H;(* 7*)
 Dat[170]:=00000H; Dat[171]:=00000H;(* 8*)
 Dat[172]:=00000H; Dat[173]:=00000H;(* 9*)
 Dat[174]:=00000H; Dat[175]:=00000H;(*10*)
 Dat[176]:=00000H; Dat[177]:=00000H;(*11*)
 Dat[178]:=00000H; Dat[179]:=00000H;(*12*)
 Dat[180]:=00000H; Dat[181]:=00000H;(*13*)
 Dat[182]:=00000H; Dat[183]:=00000H;(*14*)
 Dat[184]:=00000H; Dat[185]:=00000H;(*15*)
 Dat[186]:=00000H; Dat[187]:=00000H;(*16*)
 Dat[188]:=00000H; Dat[189]:=00000H;(*17*)
 Dat[190]:=00000H; Dat[191]:=00000H;(*18*)
 Dat[192]:=00000H; Dat[193]:=00000H;(*19*)
 Dat[194]:=00000H; Dat[195]:=00000H;(*20*)
 Dat[196]:=00000H; Dat[197]:=00000H;(*21*)
 Dat[198]:=00000H; Dat[199]:=00000H;(*22*)
 Dat[200]:=00000H; Dat[201]:=00000H;(*23*)
 Dat[202]:=00000H; Dat[203]:=00000H;(*24*)
 Dat[204]:=00000H; Dat[205]:=00000H;(*25*)
 Dat[206]:=00000H; Dat[207]:=00000H;(*26*)
 Dat[208]:=00000H; Dat[209]:=00000H;(*27*)
 Dat[210]:=00000H; Dat[211]:=00000H;(*28*)
 Dat[212]:=00000H; Dat[213]:=00000H;(*29*)
 Dat[214]:=00000H; Dat[215]:=00000H;(*30*)
 Dat[216]:=00000H; Dat[217]:=00000H;(*31*)
 Dat[218]:=00000H; Dat[219]:=00000H;(*32*)
 Dat[220]:=00000H; Dat[221]:=00000H;(*33*)
 Dat[222]:=0E000H; Dat[223]:=00000H;(*34*)
 Dat[224]:=0F000H; Dat[225]:=00000H;(*35*)
 Dat[226]:=0F800H; Dat[227]:=00000H;(*36*)
 Dat[228]:=0FC00H; Dat[229]:=00000H;(*37*)
 Dat[230]:=0FE00H; Dat[231]:=00000H;(*38*)
 Dat[232]:=00000H; Dat[233]:=00000H;(*39*)

  (* Plane 4 *)
 Dat[234]:=00000H; Dat[235]:=00000H;(* 1*)
 Dat[236]:=0FF00H; Dat[237]:=00000H;(* 2*)
 Dat[238]:=0FF00H; Dat[239]:=00000H;(* 3*)
 Dat[240]:=0FF00H; Dat[241]:=00000H;(* 4*)
 Dat[242]:=0FF00H; Dat[243]:=00000H;(* 5*)
 Dat[244]:=0FF00H; Dat[245]:=00000H;(* 6*)
 Dat[246]:=01F00H; Dat[247]:=00000H;(* 7*)
 Dat[248]:=01F00H; Dat[249]:=00000H;(* 8*)
 Dat[250]:=01F00H; Dat[251]:=00000H;(* 9*)
 Dat[252]:=01F00H; Dat[253]:=00000H;(*10*)
 Dat[254]:=01F00H; Dat[255]:=00000H;(*11*)
 Dat[256]:=01F00H; Dat[257]:=00000H;(*12*)
 Dat[258]:=01F00H; Dat[259]:=00000H;(*13*)
 Dat[260]:=01F00H; Dat[261]:=00000H;(*14*)
 Dat[262]:=01F00H; Dat[263]:=00000H;(*15*)
 Dat[264]:=01F00H; Dat[265]:=00000H;(*16*)
 Dat[266]:=01F00H; Dat[267]:=00000H;(*17*)
 Dat[268]:=01F00H; Dat[269]:=00000H;(*18*)
 Dat[270]:=01F00H; Dat[271]:=00000H;(*19*)
 Dat[272]:=01F00H; Dat[273]:=00000H;(*20*)
 Dat[274]:=01F00H; Dat[275]:=00000H;(*21*)
 Dat[276]:=01F00H; Dat[277]:=00000H;(*22*)
 Dat[278]:=01F00H; Dat[279]:=00000H;(*23*)
 Dat[280]:=01F00H; Dat[281]:=00000H;(*24*)
 Dat[282]:=01F00H; Dat[283]:=00000H;(*25*)
 Dat[284]:=01F00H; Dat[285]:=00000H;(*26*)
 Dat[286]:=01F00H; Dat[287]:=00000H;(*27*)
 Dat[288]:=01F00H; Dat[289]:=00000H;(*28*)
 Dat[290]:=01F00H; Dat[291]:=00000H;(*29*)
 Dat[292]:=01F00H; Dat[293]:=00000H;(*30*)
 Dat[294]:=01F00H; Dat[295]:=00000H;(*31*)
 Dat[296]:=01F00H; Dat[297]:=00000H;(*32*)
 Dat[298]:=01F00H; Dat[299]:=00000H;(*33*)
 Dat[300]:=0FF00H; Dat[301]:=00000H;(*34*)
 Dat[302]:=0FF00H; Dat[303]:=00000H;(*35*)
 Dat[304]:=0FF00H; Dat[305]:=00000H;(*36*)
 Dat[306]:=0FF00H; Dat[307]:=00000H;(*37*)
 Dat[308]:=0FF00H; Dat[309]:=00000H;(*38*)
 Dat[310]:=00000H; Dat[311]:=00000H;(*39*)

END;
END RechtsImg.