(*********************************************************************
 
    :Program.  	GearCode.mod
    :Author.   	Pit Burkhardt  
    :Address.   Stettinerstraße 25 D-7030 Böblingen
    :shortcut. 	[pit]
    :Version.  	1.0   
    :Date.     	some fine Day in July 1988
    :Copyright. PD
    :Language. 	Modula-II
    :Translator.M2Amiga
    :Imports.	none 
    :UpDate.	none
    :Contents.	Data for BOB-Images, MODULE was created by IFF2Code/[pit].
    :Remark.	Studienarbeit 
    		Im Kernfach TECHNISCHES DESIGN
                an der Universität Stuttgart	 
    
**********************************************************************)

IMPLEMENTATION MODULE GearCode;

FROM SYSTEM IMPORT      WORD;

FROM Memory IMPORT        AllocMemory;

VAR     i   :INTEGER;



BEGIN   (* MAIN *)

FOR i:=0 TO   4  DO
  AllocMemory(GearPtr[i],SIZE(GearPtr[i]^),TRUE);
END;

Gearwidth := 48;
Gearheight:= 30;
Geardepth :=  3;



WITH GearPtr[FAST]^ DO         (* FAST *)

  (* Plane 1 *)
 Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H;(* 1*)
 Dat[  3]:=00000H; Dat[  4]:=00000H; Dat[  5]:=00000H;(* 2*)
 Dat[  6]:=00000H; Dat[  7]:=00000H; Dat[  8]:=00000H;(* 3*)
 Dat[  9]:=00000H; Dat[ 10]:=06000H; Dat[ 11]:=00000H;(* 4*)
 Dat[ 12]:=00001H; Dat[ 13]:=0C800H; Dat[ 14]:=00000H;(* 5*)
 Dat[ 15]:=00007H; Dat[ 16]:=00200H; Dat[ 17]:=00000H;(* 6*)
 Dat[ 18]:=0001CH; Dat[ 19]:=00080H; Dat[ 20]:=00000H;(* 7*)
 Dat[ 21]:=00070H; Dat[ 22]:=00020H; Dat[ 23]:=00000H;(* 8*)
 Dat[ 24]:=001C0H; Dat[ 25]:=00008H; Dat[ 26]:=00000H;(* 9*)
 Dat[ 27]:=00000H; Dat[ 28]:=00000H; Dat[ 29]:=00000H;(*10*)
 Dat[ 30]:=00000H; Dat[ 31]:=00000H; Dat[ 32]:=00800H;(*11*)
 Dat[ 33]:=07FFFH; Dat[ 34]:=0FFFFH; Dat[ 35]:=0F800H;(*12*)
 Dat[ 36]:=00000H; Dat[ 37]:=00000H; Dat[ 38]:=00000H;(*13*)
 Dat[ 39]:=00000H; Dat[ 40]:=00020H; Dat[ 41]:=00000H;(*14*)
 Dat[ 42]:=0001FH; Dat[ 43]:=0FFE0H; Dat[ 44]:=00000H;(*15*)
 Dat[ 45]:=00000H; Dat[ 46]:=00000H; Dat[ 47]:=00000H;(*16*)
 Dat[ 48]:=00000H; Dat[ 49]:=00020H; Dat[ 50]:=00000H;(*17*)
 Dat[ 51]:=0001FH; Dat[ 52]:=0FFE0H; Dat[ 53]:=00000H;(*18*)
 Dat[ 54]:=00000H; Dat[ 55]:=00000H; Dat[ 56]:=00000H;(*19*)
 Dat[ 57]:=00000H; Dat[ 58]:=00020H; Dat[ 59]:=00000H;(*20*)
 Dat[ 60]:=0001FH; Dat[ 61]:=0FFE0H; Dat[ 62]:=00000H;(*21*)
 Dat[ 63]:=00000H; Dat[ 64]:=00000H; Dat[ 65]:=00000H;(*22*)
 Dat[ 66]:=00000H; Dat[ 67]:=00020H; Dat[ 68]:=00000H;(*23*)
 Dat[ 69]:=0001FH; Dat[ 70]:=0FFE0H; Dat[ 71]:=00000H;(*24*)
 Dat[ 72]:=00000H; Dat[ 73]:=00000H; Dat[ 74]:=00000H;(*25*)
 Dat[ 75]:=00000H; Dat[ 76]:=00020H; Dat[ 77]:=00000H;(*26*)
 Dat[ 78]:=0001FH; Dat[ 79]:=0FFE0H; Dat[ 80]:=00000H;(*27*)
 Dat[ 81]:=00000H; Dat[ 82]:=00000H; Dat[ 83]:=00000H;(*28*)
 Dat[ 84]:=00000H; Dat[ 85]:=00020H; Dat[ 86]:=00000H;(*29*)
 Dat[ 87]:=0001FH; Dat[ 88]:=0FFE0H; Dat[ 89]:=00000H;(*30*)

  (* Plane 2 *)
 Dat[ 90]:=00000H; Dat[ 91]:=06000H; Dat[ 92]:=00000H;(* 1*)
 Dat[ 93]:=00001H; Dat[ 94]:=0F800H; Dat[ 95]:=00000H;(* 2*)
 Dat[ 96]:=00007H; Dat[ 97]:=0FE00H; Dat[ 98]:=00000H;(* 3*)
 Dat[ 99]:=0001FH; Dat[100]:=09F80H; Dat[101]:=00000H;(* 4*)
 Dat[102]:=0007EH; Dat[103]:=007E0H; Dat[104]:=00000H;(* 5*)
 Dat[105]:=001F8H; Dat[106]:=001F8H; Dat[107]:=00000H;(* 6*)
 Dat[108]:=007E0H; Dat[109]:=0007EH; Dat[110]:=00000H;(* 7*)
 Dat[111]:=01F80H; Dat[112]:=0001FH; Dat[113]:=08000H;(* 8*)
 Dat[114]:=07E00H; Dat[115]:=00007H; Dat[116]:=0E000H;(* 9*)
 Dat[117]:=0FFFFH; Dat[118]:=0FFFFH; Dat[119]:=0F000H;(*10*)
 Dat[120]:=0FFFFH; Dat[121]:=0FFFFH; Dat[122]:=0F000H;(*11*)
 Dat[123]:=00000H; Dat[124]:=00000H; Dat[125]:=00000H;(*12*)
 Dat[126]:=0003FH; Dat[127]:=0FFC0H; Dat[128]:=00000H;(*13*)
 Dat[129]:=0003FH; Dat[130]:=0FFC0H; Dat[131]:=00000H;(*14*)
 Dat[132]:=00000H; Dat[133]:=00000H; Dat[134]:=00000H;(*15*)
 Dat[135]:=0003FH; Dat[136]:=0FFC0H; Dat[137]:=00000H;(*16*)
 Dat[138]:=0003FH; Dat[139]:=0FFC0H; Dat[140]:=00000H;(*17*)
 Dat[141]:=00000H; Dat[142]:=00000H; Dat[143]:=00000H;(*18*)
 Dat[144]:=0003FH; Dat[145]:=0FFC0H; Dat[146]:=00000H;(*19*)
 Dat[147]:=0003FH; Dat[148]:=0FFC0H; Dat[149]:=00000H;(*20*)
 Dat[150]:=00000H; Dat[151]:=00000H; Dat[152]:=00000H;(*21*)
 Dat[153]:=0003FH; Dat[154]:=0FFC0H; Dat[155]:=00000H;(*22*)
 Dat[156]:=0003FH; Dat[157]:=0FFC0H; Dat[158]:=00000H;(*23*)
 Dat[159]:=00000H; Dat[160]:=00000H; Dat[161]:=00000H;(*24*)
 Dat[162]:=0003FH; Dat[163]:=0FFC0H; Dat[164]:=00000H;(*25*)
 Dat[165]:=0003FH; Dat[166]:=0FFC0H; Dat[167]:=00000H;(*26*)
 Dat[168]:=00000H; Dat[169]:=00000H; Dat[170]:=00000H;(*27*)
 Dat[171]:=0003FH; Dat[172]:=0FFC0H; Dat[173]:=00000H;(*28*)
 Dat[174]:=0003FH; Dat[175]:=0FFC0H; Dat[176]:=00000H;(*29*)
 Dat[177]:=00000H; Dat[178]:=00000H; Dat[179]:=00000H;(*30*)

  (* Plane 3 *)
 Dat[180]:=00000H; Dat[181]:=00000H; Dat[182]:=00000H;(* 1*)
 Dat[183]:=00000H; Dat[184]:=00000H; Dat[185]:=00000H;(* 2*)
 Dat[186]:=00000H; Dat[187]:=00000H; Dat[188]:=00000H;(* 3*)
 Dat[189]:=00000H; Dat[190]:=00000H; Dat[191]:=00000H;(* 4*)
 Dat[192]:=00000H; Dat[193]:=00000H; Dat[194]:=00000H;(* 5*)
 Dat[195]:=00000H; Dat[196]:=00000H; Dat[197]:=00000H;(* 6*)
 Dat[198]:=00000H; Dat[199]:=00000H; Dat[200]:=00000H;(* 7*)
 Dat[201]:=00000H; Dat[202]:=00000H; Dat[203]:=00000H;(* 8*)
 Dat[204]:=00000H; Dat[205]:=00000H; Dat[206]:=00000H;(* 9*)
 Dat[207]:=00000H; Dat[208]:=00000H; Dat[209]:=00000H;(*10*)
 Dat[210]:=00000H; Dat[211]:=00000H; Dat[212]:=00000H;(*11*)
 Dat[213]:=00000H; Dat[214]:=00000H; Dat[215]:=00000H;(*12*)
 Dat[216]:=00000H; Dat[217]:=00000H; Dat[218]:=00000H;(*13*)
 Dat[219]:=00000H; Dat[220]:=00000H; Dat[221]:=00000H;(*14*)
 Dat[222]:=00000H; Dat[223]:=00000H; Dat[224]:=00000H;(*15*)
 Dat[225]:=00000H; Dat[226]:=00000H; Dat[227]:=00000H;(*16*)
 Dat[228]:=00000H; Dat[229]:=00000H; Dat[230]:=00000H;(*17*)
 Dat[231]:=00000H; Dat[232]:=00000H; Dat[233]:=00000H;(*18*)
 Dat[234]:=00000H; Dat[235]:=00000H; Dat[236]:=00000H;(*19*)
 Dat[237]:=00000H; Dat[238]:=00000H; Dat[239]:=00000H;(*20*)
 Dat[240]:=00000H; Dat[241]:=00000H; Dat[242]:=00000H;(*21*)
 Dat[243]:=00000H; Dat[244]:=00000H; Dat[245]:=00000H;(*22*)
 Dat[246]:=00000H; Dat[247]:=00000H; Dat[248]:=00000H;(*23*)
 Dat[249]:=00000H; Dat[250]:=00000H; Dat[251]:=00000H;(*24*)
 Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=00000H;(*25*)
 Dat[255]:=00000H; Dat[256]:=00000H; Dat[257]:=00000H;(*26*)
 Dat[258]:=00000H; Dat[259]:=00000H; Dat[260]:=00000H;(*27*)
 Dat[261]:=00000H; Dat[262]:=00000H; Dat[263]:=00000H;(*28*)
 Dat[264]:=00000H; Dat[265]:=00000H; Dat[266]:=00000H;(*29*)
 Dat[267]:=00000H; Dat[268]:=00000H; Dat[269]:=00000H;(*30*)

END; 
(* Brushbreite gegenüber IFF geändert! *)


WITH GearPtr[SLOW]^ DO         (* SLOW *)

  (* Plane 1 *)
 Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H;(* 1*)
 Dat[  3]:=00000H; Dat[  4]:=00000H; Dat[  5]:=00000H;(* 2*)
 Dat[  6]:=00000H; Dat[  7]:=00000H; Dat[  8]:=00000H;(* 3*)
 Dat[  9]:=00000H; Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 4*)
 Dat[ 12]:=00000H; Dat[ 13]:=00000H; Dat[ 14]:=00000H;(* 5*)
 Dat[ 15]:=00000H; Dat[ 16]:=00000H; Dat[ 17]:=00000H;(* 6*)
 Dat[ 18]:=00000H; Dat[ 19]:=00000H; Dat[ 20]:=00000H;(* 7*)
 Dat[ 21]:=00000H; Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 8*)
 Dat[ 24]:=00000H; Dat[ 25]:=00000H; Dat[ 26]:=00000H;(* 9*)
 Dat[ 27]:=00000H; Dat[ 28]:=00000H; Dat[ 29]:=00000H;(*10*)
 Dat[ 30]:=00000H; Dat[ 31]:=00000H; Dat[ 32]:=00000H;(*11*)
 Dat[ 33]:=00000H; Dat[ 34]:=00000H; Dat[ 35]:=00000H;(*12*)
 Dat[ 36]:=00000H; Dat[ 37]:=06000H; Dat[ 38]:=00000H;(*13*)
 Dat[ 39]:=00001H; Dat[ 40]:=0C800H; Dat[ 41]:=00000H;(*14*)
 Dat[ 42]:=00007H; Dat[ 43]:=00200H; Dat[ 44]:=00000H;(*15*)
 Dat[ 45]:=0001CH; Dat[ 46]:=00080H; Dat[ 47]:=00000H;(*16*)
 Dat[ 48]:=00070H; Dat[ 49]:=00020H; Dat[ 50]:=00000H;(*17*)
 Dat[ 51]:=001C0H; Dat[ 52]:=00008H; Dat[ 53]:=00000H;(*18*)
 Dat[ 54]:=00000H; Dat[ 55]:=00000H; Dat[ 56]:=00000H;(*19*)
 Dat[ 57]:=00000H; Dat[ 58]:=00000H; Dat[ 59]:=00800H;(*20*)
 Dat[ 60]:=07FFFH; Dat[ 61]:=0FFFFH; Dat[ 62]:=0F800H;(*21*)
 Dat[ 63]:=00000H; Dat[ 64]:=00000H; Dat[ 65]:=00000H;(*22*)
 Dat[ 66]:=00000H; Dat[ 67]:=00008H; Dat[ 68]:=00000H;(*23*)
 Dat[ 69]:=0007FH; Dat[ 70]:=0FFF8H; Dat[ 71]:=00000H;(*24*)
 Dat[ 72]:=00000H; Dat[ 73]:=00000H; Dat[ 74]:=00000H;(*25*)
 Dat[ 75]:=00000H; Dat[ 76]:=00008H; Dat[ 77]:=00000H;(*26*)
 Dat[ 78]:=0007FH; Dat[ 79]:=0FFF8H; Dat[ 80]:=00000H;(*27*)
 Dat[ 81]:=00000H; Dat[ 82]:=00000H; Dat[ 83]:=00000H;(*28*)
 Dat[ 84]:=00000H; Dat[ 85]:=00008H; Dat[ 86]:=00000H;(*29*)
 Dat[ 87]:=0007FH; Dat[ 88]:=0FFF8H; Dat[ 89]:=00000H;(*30*)

  (* Plane 2 *)
 Dat[ 90]:=00000H; Dat[ 91]:=00000H; Dat[ 92]:=00000H;(* 1*)
 Dat[ 93]:=00000H; Dat[ 94]:=00000H; Dat[ 95]:=00000H;(* 2*)
 Dat[ 96]:=00000H; Dat[ 97]:=00000H; Dat[ 98]:=00000H;(* 3*)
 Dat[ 99]:=00000H; Dat[100]:=00000H; Dat[101]:=00000H;(* 4*)
 Dat[102]:=00000H; Dat[103]:=00000H; Dat[104]:=00000H;(* 5*)
 Dat[105]:=00000H; Dat[106]:=00000H; Dat[107]:=00000H;(* 6*)
 Dat[108]:=00000H; Dat[109]:=00000H; Dat[110]:=00000H;(* 7*)
 Dat[111]:=00000H; Dat[112]:=00000H; Dat[113]:=00000H;(* 8*)
 Dat[114]:=00000H; Dat[115]:=00000H; Dat[116]:=00000H;(* 9*)
 Dat[117]:=00000H; Dat[118]:=06000H; Dat[119]:=00000H;(*10*)
 Dat[120]:=00001H; Dat[121]:=0F800H; Dat[122]:=00000H;(*11*)
 Dat[123]:=00007H; Dat[124]:=0FE00H; Dat[125]:=00000H;(*12*)
 Dat[126]:=0001FH; Dat[127]:=09F80H; Dat[128]:=00000H;(*13*)
 Dat[129]:=0007EH; Dat[130]:=007E0H; Dat[131]:=00000H;(*14*)
 Dat[132]:=001F8H; Dat[133]:=001F8H; Dat[134]:=00000H;(*15*)
 Dat[135]:=007E0H; Dat[136]:=0007EH; Dat[137]:=00000H;(*16*)
 Dat[138]:=01F80H; Dat[139]:=0001FH; Dat[140]:=08000H;(*17*)
 Dat[141]:=07E00H; Dat[142]:=00007H; Dat[143]:=0E000H;(*18*)
 Dat[144]:=0FFFFH; Dat[145]:=0FFFFH; Dat[146]:=0F000H;(*19*)
 Dat[147]:=0FFFFH; Dat[148]:=0FFFFH; Dat[149]:=0F000H;(*20*)
 Dat[150]:=00000H; Dat[151]:=00000H; Dat[152]:=00000H;(*21*)
 Dat[153]:=000FFH; Dat[154]:=0FFF0H; Dat[155]:=00000H;(*22*)
 Dat[156]:=000FFH; Dat[157]:=0FFF0H; Dat[158]:=00000H;(*23*)
 Dat[159]:=00000H; Dat[160]:=00000H; Dat[161]:=00000H;(*24*)
 Dat[162]:=000FFH; Dat[163]:=0FFF0H; Dat[164]:=00000H;(*25*)
 Dat[165]:=000FFH; Dat[166]:=0FFF0H; Dat[167]:=00000H;(*26*)
 Dat[168]:=00000H; Dat[169]:=00000H; Dat[170]:=00000H;(*27*)
 Dat[171]:=000FFH; Dat[172]:=0FFF0H; Dat[173]:=00000H;(*28*)
 Dat[174]:=000FFH; Dat[175]:=0FFF0H; Dat[176]:=00000H;(*29*)
 Dat[177]:=00000H; Dat[178]:=00000H; Dat[179]:=00000H;(*30*)

  (* Plane 3 *)
 Dat[180]:=00000H; Dat[181]:=00000H; Dat[182]:=00000H;(* 1*)
 Dat[183]:=00000H; Dat[184]:=00000H; Dat[185]:=00000H;(* 2*)
 Dat[186]:=00000H; Dat[187]:=00000H; Dat[188]:=00000H;(* 3*)
 Dat[189]:=00000H; Dat[190]:=00000H; Dat[191]:=00000H;(* 4*)
 Dat[192]:=00000H; Dat[193]:=00000H; Dat[194]:=00000H;(* 5*)
 Dat[195]:=00000H; Dat[196]:=00000H; Dat[197]:=00000H;(* 6*)
 Dat[198]:=00000H; Dat[199]:=00000H; Dat[200]:=00000H;(* 7*)
 Dat[201]:=00000H; Dat[202]:=00000H; Dat[203]:=00000H;(* 8*)
 Dat[204]:=00000H; Dat[205]:=00000H; Dat[206]:=00000H;(* 9*)
 Dat[207]:=00000H; Dat[208]:=00000H; Dat[209]:=00000H;(*10*)
 Dat[210]:=00000H; Dat[211]:=00000H; Dat[212]:=00000H;(*11*)
 Dat[213]:=00000H; Dat[214]:=00000H; Dat[215]:=00000H;(*12*)
 Dat[216]:=00000H; Dat[217]:=00000H; Dat[218]:=00000H;(*13*)
 Dat[219]:=00000H; Dat[220]:=00000H; Dat[221]:=00000H;(*14*)
 Dat[222]:=00000H; Dat[223]:=00000H; Dat[224]:=00000H;(*15*)
 Dat[225]:=00000H; Dat[226]:=00000H; Dat[227]:=00000H;(*16*)
 Dat[228]:=00000H; Dat[229]:=00000H; Dat[230]:=00000H;(*17*)
 Dat[231]:=00000H; Dat[232]:=00000H; Dat[233]:=00000H;(*18*)
 Dat[234]:=00000H; Dat[235]:=00000H; Dat[236]:=00000H;(*19*)
 Dat[237]:=00000H; Dat[238]:=00000H; Dat[239]:=00000H;(*20*)
 Dat[240]:=00000H; Dat[241]:=00000H; Dat[242]:=00000H;(*21*)
 Dat[243]:=00000H; Dat[244]:=00000H; Dat[245]:=00000H;(*22*)
 Dat[246]:=00000H; Dat[247]:=00000H; Dat[248]:=00000H;(*23*)
 Dat[249]:=00000H; Dat[250]:=00000H; Dat[251]:=00000H;(*24*)
 Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=00000H;(*25*)
 Dat[255]:=00000H; Dat[256]:=00000H; Dat[257]:=00000H;(*26*)
 Dat[258]:=00000H; Dat[259]:=00000H; Dat[260]:=00000H;(*27*)
 Dat[261]:=00000H; Dat[262]:=00000H; Dat[263]:=00000H;(*28*)
 Dat[264]:=00000H; Dat[265]:=00000H; Dat[266]:=00000H;(*29*)
 Dat[267]:=00000H; Dat[268]:=00000H; Dat[269]:=00000H;(*30*)

END; 
(* Brushbreite gegenüber IFF geändert! *)


WITH GearPtr[BACK]^ DO         (* BACK *)

  (* Plane 1 *)
 Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H;(* 1*)
 Dat[  3]:=00000H; Dat[  4]:=00000H; Dat[  5]:=00000H;(* 2*)
 Dat[  6]:=00000H; Dat[  7]:=00000H; Dat[  8]:=00000H;(* 3*)
 Dat[  9]:=00000H; Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 4*)
 Dat[ 12]:=00000H; Dat[ 13]:=00000H; Dat[ 14]:=00000H;(* 5*)
 Dat[ 15]:=00000H; Dat[ 16]:=00000H; Dat[ 17]:=00000H;(* 6*)
 Dat[ 18]:=00000H; Dat[ 19]:=00000H; Dat[ 20]:=00000H;(* 7*)
 Dat[ 21]:=00000H; Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 8*)
 Dat[ 24]:=00000H; Dat[ 25]:=00000H; Dat[ 26]:=00000H;(* 9*)
 Dat[ 27]:=00000H; Dat[ 28]:=00000H; Dat[ 29]:=00000H;(*10*)
 Dat[ 30]:=00000H; Dat[ 31]:=00008H; Dat[ 32]:=00000H;(*11*)
 Dat[ 33]:=0007FH; Dat[ 34]:=0FFF8H; Dat[ 35]:=00000H;(*12*)
 Dat[ 36]:=00000H; Dat[ 37]:=00000H; Dat[ 38]:=00000H;(*13*)
 Dat[ 39]:=00000H; Dat[ 40]:=00008H; Dat[ 41]:=00000H;(*14*)
 Dat[ 42]:=0007FH; Dat[ 43]:=0FFF8H; Dat[ 44]:=00000H;(*15*)
 Dat[ 45]:=00000H; Dat[ 46]:=00000H; Dat[ 47]:=00000H;(*16*)
 Dat[ 48]:=00000H; Dat[ 49]:=00008H; Dat[ 50]:=00000H;(*17*)
 Dat[ 51]:=0007FH; Dat[ 52]:=0FFF8H; Dat[ 53]:=00000H;(*18*)
 Dat[ 54]:=00000H; Dat[ 55]:=00000H; Dat[ 56]:=00000H;(*19*)
 Dat[ 57]:=00000H; Dat[ 58]:=00000H; Dat[ 59]:=00800H;(*20*)
 Dat[ 60]:=001FFH; Dat[ 61]:=0FFF8H; Dat[ 62]:=01800H;(*21*)
 Dat[ 63]:=02000H; Dat[ 64]:=00000H; Dat[ 65]:=07000H;(*22*)
 Dat[ 66]:=00800H; Dat[ 67]:=00001H; Dat[ 68]:=0C000H;(*23*)
 Dat[ 69]:=00200H; Dat[ 70]:=00007H; Dat[ 71]:=00000H;(*24*)
 Dat[ 72]:=00080H; Dat[ 73]:=0001CH; Dat[ 74]:=00000H;(*25*)
 Dat[ 75]:=00020H; Dat[ 76]:=00070H; Dat[ 77]:=00000H;(*26*)
 Dat[ 78]:=00008H; Dat[ 79]:=001C0H; Dat[ 80]:=00000H;(*27*)
 Dat[ 81]:=00002H; Dat[ 82]:=00700H; Dat[ 83]:=00000H;(*28*)
 Dat[ 84]:=00000H; Dat[ 85]:=09C00H; Dat[ 86]:=00000H;(*29*)
 Dat[ 87]:=00000H; Dat[ 88]:=03000H; Dat[ 89]:=00000H;(*30*)

  (* Plane 2 *)
 Dat[ 90]:=00000H; Dat[ 91]:=00000H; Dat[ 92]:=00000H;(* 1*)
 Dat[ 93]:=00000H; Dat[ 94]:=00000H; Dat[ 95]:=00000H;(* 2*)
 Dat[ 96]:=00000H; Dat[ 97]:=00000H; Dat[ 98]:=00000H;(* 3*)
 Dat[ 99]:=00000H; Dat[100]:=00000H; Dat[101]:=00000H;(* 4*)
 Dat[102]:=00000H; Dat[103]:=00000H; Dat[104]:=00000H;(* 5*)
 Dat[105]:=00000H; Dat[106]:=00000H; Dat[107]:=00000H;(* 6*)
 Dat[108]:=00000H; Dat[109]:=00000H; Dat[110]:=00000H;(* 7*)
 Dat[111]:=00000H; Dat[112]:=00000H; Dat[113]:=00000H;(* 8*)
 Dat[114]:=00000H; Dat[115]:=00000H; Dat[116]:=00000H;(* 9*)
 Dat[117]:=000FFH; Dat[118]:=0FFF0H; Dat[119]:=00000H;(*10*)
 Dat[120]:=000FFH; Dat[121]:=0FFF0H; Dat[122]:=00000H;(*11*)
 Dat[123]:=00000H; Dat[124]:=00000H; Dat[125]:=00000H;(*12*)
 Dat[126]:=000FFH; Dat[127]:=0FFF0H; Dat[128]:=00000H;(*13*)
 Dat[129]:=000FFH; Dat[130]:=0FFF0H; Dat[131]:=00000H;(*14*)
 Dat[132]:=00000H; Dat[133]:=00000H; Dat[134]:=00000H;(*15*)
 Dat[135]:=000FFH; Dat[136]:=0FFF0H; Dat[137]:=00000H;(*16*)
 Dat[138]:=000FFH; Dat[139]:=0FFF0H; Dat[140]:=00000H;(*17*)
 Dat[141]:=00000H; Dat[142]:=00000H; Dat[143]:=00000H;(*18*)
 Dat[144]:=0FFFFH; Dat[145]:=0FFFFH; Dat[146]:=0F000H;(*19*)
 Dat[147]:=0FFFFH; Dat[148]:=0FFFFH; Dat[149]:=0F000H;(*20*)
 Dat[150]:=07E00H; Dat[151]:=00007H; Dat[152]:=0E000H;(*21*)
 Dat[153]:=01F80H; Dat[154]:=0001FH; Dat[155]:=08000H;(*22*)
 Dat[156]:=007E0H; Dat[157]:=0007EH; Dat[158]:=00000H;(*23*)
 Dat[159]:=001F8H; Dat[160]:=001F8H; Dat[161]:=00000H;(*24*)
 Dat[162]:=0007EH; Dat[163]:=007E0H; Dat[164]:=00000H;(*25*)
 Dat[165]:=0001FH; Dat[166]:=09F80H; Dat[167]:=00000H;(*26*)
 Dat[168]:=00007H; Dat[169]:=0FE00H; Dat[170]:=00000H;(*27*)
 Dat[171]:=00001H; Dat[172]:=0F800H; Dat[173]:=00000H;(*28*)
 Dat[174]:=00000H; Dat[175]:=06000H; Dat[176]:=00000H;(*29*)
 Dat[177]:=00000H; Dat[178]:=00000H; Dat[179]:=00000H;(*30*)

  (* Plane 3 *)
 Dat[180]:=00000H; Dat[181]:=00000H; Dat[182]:=00000H;(* 1*)
 Dat[183]:=00000H; Dat[184]:=00000H; Dat[185]:=00000H;(* 2*)
 Dat[186]:=00000H; Dat[187]:=00000H; Dat[188]:=00000H;(* 3*)
 Dat[189]:=00000H; Dat[190]:=00000H; Dat[191]:=00000H;(* 4*)
 Dat[192]:=00000H; Dat[193]:=00000H; Dat[194]:=00000H;(* 5*)
 Dat[195]:=00000H; Dat[196]:=00000H; Dat[197]:=00000H;(* 6*)
 Dat[198]:=00000H; Dat[199]:=00000H; Dat[200]:=00000H;(* 7*)
 Dat[201]:=00000H; Dat[202]:=00000H; Dat[203]:=00000H;(* 8*)
 Dat[204]:=00000H; Dat[205]:=00000H; Dat[206]:=00000H;(* 9*)
 Dat[207]:=00000H; Dat[208]:=00000H; Dat[209]:=00000H;(*10*)
 Dat[210]:=00000H; Dat[211]:=00000H; Dat[212]:=00000H;(*11*)
 Dat[213]:=00000H; Dat[214]:=00000H; Dat[215]:=00000H;(*12*)
 Dat[216]:=00000H; Dat[217]:=00000H; Dat[218]:=00000H;(*13*)
 Dat[219]:=00000H; Dat[220]:=00000H; Dat[221]:=00000H;(*14*)
 Dat[222]:=00000H; Dat[223]:=00000H; Dat[224]:=00000H;(*15*)
 Dat[225]:=00000H; Dat[226]:=00000H; Dat[227]:=00000H;(*16*)
 Dat[228]:=00000H; Dat[229]:=00000H; Dat[230]:=00000H;(*17*)
 Dat[231]:=00000H; Dat[232]:=00000H; Dat[233]:=00000H;(*18*)
 Dat[234]:=00000H; Dat[235]:=00000H; Dat[236]:=00000H;(*19*)
 Dat[237]:=00000H; Dat[238]:=00000H; Dat[239]:=00000H;(*20*)
 Dat[240]:=00000H; Dat[241]:=00000H; Dat[242]:=00000H;(*21*)
 Dat[243]:=00000H; Dat[244]:=00000H; Dat[245]:=00000H;(*22*)
 Dat[246]:=00000H; Dat[247]:=00000H; Dat[248]:=00000H;(*23*)
 Dat[249]:=00000H; Dat[250]:=00000H; Dat[251]:=00000H;(*24*)
 Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=00000H;(*25*)
 Dat[255]:=00000H; Dat[256]:=00000H; Dat[257]:=00000H;(*26*)
 Dat[258]:=00000H; Dat[259]:=00000H; Dat[260]:=00000H;(*27*)
 Dat[261]:=00000H; Dat[262]:=00000H; Dat[263]:=00000H;(*28*)
 Dat[264]:=00000H; Dat[265]:=00000H; Dat[266]:=00000H;(*29*)
 Dat[267]:=00000H; Dat[268]:=00000H; Dat[269]:=00000H;(*30*)

END; 
(* Brushbreite gegenüber IFF geändert! *)


WITH GearPtr[NEUT]^ DO         (* NEUT *)

  (* Plane 1 *)
 Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H;(* 1*)
 Dat[  3]:=00000H; Dat[  4]:=00000H; Dat[  5]:=00000H;(* 2*)
 Dat[  6]:=00000H; Dat[  7]:=00000H; Dat[  8]:=00000H;(* 3*)
 Dat[  9]:=00000H; Dat[ 10]:=06000H; Dat[ 11]:=00000H;(* 4*)
 Dat[ 12]:=00001H; Dat[ 13]:=0C800H; Dat[ 14]:=00000H;(* 5*)
 Dat[ 15]:=00007H; Dat[ 16]:=00200H; Dat[ 17]:=00000H;(* 6*)
 Dat[ 18]:=0001CH; Dat[ 19]:=00080H; Dat[ 20]:=00000H;(* 7*)
 Dat[ 21]:=00070H; Dat[ 22]:=00020H; Dat[ 23]:=00000H;(* 8*)
 Dat[ 24]:=001C0H; Dat[ 25]:=00008H; Dat[ 26]:=00000H;(* 9*)
 Dat[ 27]:=00000H; Dat[ 28]:=00000H; Dat[ 29]:=00000H;(*10*)
 Dat[ 30]:=00000H; Dat[ 31]:=00000H; Dat[ 32]:=00800H;(*11*)
 Dat[ 33]:=07FFFH; Dat[ 34]:=0FFFFH; Dat[ 35]:=0F800H;(*12*)
 Dat[ 36]:=00000H; Dat[ 37]:=00000H; Dat[ 38]:=00000H;(*13*)
 Dat[ 39]:=00000H; Dat[ 40]:=00020H; Dat[ 41]:=00000H;(*14*)
 Dat[ 42]:=0001FH; Dat[ 43]:=0FFE0H; Dat[ 44]:=00000H;(*15*)
 Dat[ 45]:=00000H; Dat[ 46]:=00000H; Dat[ 47]:=00000H;(*16*)
 Dat[ 48]:=00000H; Dat[ 49]:=00020H; Dat[ 50]:=00000H;(*17*)
 Dat[ 51]:=0001FH; Dat[ 52]:=0FFE0H; Dat[ 53]:=00000H;(*18*)
 Dat[ 54]:=00000H; Dat[ 55]:=00000H; Dat[ 56]:=00000H;(*19*)
 Dat[ 57]:=00000H; Dat[ 58]:=00000H; Dat[ 59]:=00800H;(*20*)
 Dat[ 60]:=001FFH; Dat[ 61]:=0FFF8H; Dat[ 62]:=01800H;(*21*)
 Dat[ 63]:=02000H; Dat[ 64]:=00000H; Dat[ 65]:=07000H;(*22*)
 Dat[ 66]:=00800H; Dat[ 67]:=00001H; Dat[ 68]:=0C000H;(*23*)
 Dat[ 69]:=00200H; Dat[ 70]:=00007H; Dat[ 71]:=00000H;(*24*)
 Dat[ 72]:=00080H; Dat[ 73]:=0001CH; Dat[ 74]:=00000H;(*25*)
 Dat[ 75]:=00020H; Dat[ 76]:=00070H; Dat[ 77]:=00000H;(*26*)
 Dat[ 78]:=00008H; Dat[ 79]:=001C0H; Dat[ 80]:=00000H;(*27*)
 Dat[ 81]:=00002H; Dat[ 82]:=00700H; Dat[ 83]:=00000H;(*28*)
 Dat[ 84]:=00000H; Dat[ 85]:=09C00H; Dat[ 86]:=00000H;(*29*)
 Dat[ 87]:=00000H; Dat[ 88]:=03000H; Dat[ 89]:=00000H;(*30*)

  (* Plane 2 *)
 Dat[ 90]:=00000H; Dat[ 91]:=06000H; Dat[ 92]:=00000H;(* 1*)
 Dat[ 93]:=00001H; Dat[ 94]:=0F800H; Dat[ 95]:=00000H;(* 2*)
 Dat[ 96]:=00007H; Dat[ 97]:=0FE00H; Dat[ 98]:=00000H;(* 3*)
 Dat[ 99]:=0001FH; Dat[100]:=09F80H; Dat[101]:=00000H;(* 4*)
 Dat[102]:=0007EH; Dat[103]:=007E0H; Dat[104]:=00000H;(* 5*)
 Dat[105]:=001F8H; Dat[106]:=001F8H; Dat[107]:=00000H;(* 6*)
 Dat[108]:=007E0H; Dat[109]:=0007EH; Dat[110]:=00000H;(* 7*)
 Dat[111]:=01F80H; Dat[112]:=0001FH; Dat[113]:=08000H;(* 8*)
 Dat[114]:=07E00H; Dat[115]:=00007H; Dat[116]:=0E000H;(* 9*)
 Dat[117]:=0FFFFH; Dat[118]:=0FFFFH; Dat[119]:=0F000H;(*10*)
 Dat[120]:=0FFFFH; Dat[121]:=0FFFFH; Dat[122]:=0F000H;(*11*)
 Dat[123]:=00000H; Dat[124]:=00000H; Dat[125]:=00000H;(*12*)
 Dat[126]:=0003FH; Dat[127]:=0FFC0H; Dat[128]:=00000H;(*13*)
 Dat[129]:=0003FH; Dat[130]:=0FFC0H; Dat[131]:=00000H;(*14*)
 Dat[132]:=00000H; Dat[133]:=00000H; Dat[134]:=00000H;(*15*)
 Dat[135]:=0003FH; Dat[136]:=0FFC0H; Dat[137]:=00000H;(*16*)
 Dat[138]:=0003FH; Dat[139]:=0FFC0H; Dat[140]:=00000H;(*17*)
 Dat[141]:=00000H; Dat[142]:=00000H; Dat[143]:=00000H;(*18*)
 Dat[144]:=0FFFFH; Dat[145]:=0FFFFH; Dat[146]:=0F000H;(*19*)
 Dat[147]:=0FFFFH; Dat[148]:=0FFFFH; Dat[149]:=0F000H;(*20*)
 Dat[150]:=07E00H; Dat[151]:=00007H; Dat[152]:=0E000H;(*21*)
 Dat[153]:=01F80H; Dat[154]:=0001FH; Dat[155]:=08000H;(*22*)
 Dat[156]:=007E0H; Dat[157]:=0007EH; Dat[158]:=00000H;(*23*)
 Dat[159]:=001F8H; Dat[160]:=001F8H; Dat[161]:=00000H;(*24*)
 Dat[162]:=0007EH; Dat[163]:=007E0H; Dat[164]:=00000H;(*25*)
 Dat[165]:=0001FH; Dat[166]:=09F80H; Dat[167]:=00000H;(*26*)
 Dat[168]:=00007H; Dat[169]:=0FE00H; Dat[170]:=00000H;(*27*)
 Dat[171]:=00001H; Dat[172]:=0F800H; Dat[173]:=00000H;(*28*)
 Dat[174]:=00000H; Dat[175]:=06000H; Dat[176]:=00000H;(*29*)
 Dat[177]:=00000H; Dat[178]:=00000H; Dat[179]:=00000H;(*30*)

  (* Plane 3 *)
 Dat[180]:=00000H; Dat[181]:=00000H; Dat[182]:=00000H;(* 1*)
 Dat[183]:=00000H; Dat[184]:=00000H; Dat[185]:=00000H;(* 2*)
 Dat[186]:=00000H; Dat[187]:=00000H; Dat[188]:=00000H;(* 3*)
 Dat[189]:=00000H; Dat[190]:=00000H; Dat[191]:=00000H;(* 4*)
 Dat[192]:=00000H; Dat[193]:=00000H; Dat[194]:=00000H;(* 5*)
 Dat[195]:=00000H; Dat[196]:=00000H; Dat[197]:=00000H;(* 6*)
 Dat[198]:=00000H; Dat[199]:=00000H; Dat[200]:=00000H;(* 7*)
 Dat[201]:=00000H; Dat[202]:=00000H; Dat[203]:=00000H;(* 8*)
 Dat[204]:=00000H; Dat[205]:=00000H; Dat[206]:=00000H;(* 9*)
 Dat[207]:=00000H; Dat[208]:=00000H; Dat[209]:=00000H;(*10*)
 Dat[210]:=00000H; Dat[211]:=00000H; Dat[212]:=00000H;(*11*)
 Dat[213]:=00000H; Dat[214]:=00000H; Dat[215]:=00000H;(*12*)
 Dat[216]:=00000H; Dat[217]:=00000H; Dat[218]:=00000H;(*13*)
 Dat[219]:=00000H; Dat[220]:=00000H; Dat[221]:=00000H;(*14*)
 Dat[222]:=00000H; Dat[223]:=00000H; Dat[224]:=00000H;(*15*)
 Dat[225]:=00000H; Dat[226]:=00000H; Dat[227]:=00000H;(*16*)
 Dat[228]:=00000H; Dat[229]:=00000H; Dat[230]:=00000H;(*17*)
 Dat[231]:=00000H; Dat[232]:=00000H; Dat[233]:=00000H;(*18*)
 Dat[234]:=00000H; Dat[235]:=00000H; Dat[236]:=00000H;(*19*)
 Dat[237]:=00000H; Dat[238]:=00000H; Dat[239]:=00000H;(*20*)
 Dat[240]:=00000H; Dat[241]:=00000H; Dat[242]:=00000H;(*21*)
 Dat[243]:=00000H; Dat[244]:=00000H; Dat[245]:=00000H;(*22*)
 Dat[246]:=00000H; Dat[247]:=00000H; Dat[248]:=00000H;(*23*)
 Dat[249]:=00000H; Dat[250]:=00000H; Dat[251]:=00000H;(*24*)
 Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=00000H;(*25*)
 Dat[255]:=00000H; Dat[256]:=00000H; Dat[257]:=00000H;(*26*)
 Dat[258]:=00000H; Dat[259]:=00000H; Dat[260]:=00000H;(*27*)
 Dat[261]:=00000H; Dat[262]:=00000H; Dat[263]:=00000H;(*28*)
 Dat[264]:=00000H; Dat[265]:=00000H; Dat[266]:=00000H;(*29*)
 Dat[267]:=00000H; Dat[268]:=00000H; Dat[269]:=00000H;(*30*)

END; 
(* Brushbreite gegenüber IFF geändert! *)


WITH GearPtr[PARK]^ DO         (* PARK *)

  (* Plane 1 *)
 Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H;(* 1*)
 Dat[  3]:=00000H; Dat[  4]:=00000H; Dat[  5]:=00800H;(* 2*)
 Dat[  6]:=001FFH; Dat[  7]:=0FFF8H; Dat[  8]:=01800H;(* 3*)
 Dat[  9]:=02000H; Dat[ 10]:=00000H; Dat[ 11]:=07000H;(* 4*)
 Dat[ 12]:=00800H; Dat[ 13]:=00001H; Dat[ 14]:=0C000H;(* 5*)
 Dat[ 15]:=00200H; Dat[ 16]:=00007H; Dat[ 17]:=00000H;(* 6*)
 Dat[ 18]:=00080H; Dat[ 19]:=0001CH; Dat[ 20]:=00000H;(* 7*)
 Dat[ 21]:=00020H; Dat[ 22]:=00070H; Dat[ 23]:=00000H;(* 8*)
 Dat[ 24]:=00008H; Dat[ 25]:=001C0H; Dat[ 26]:=00000H;(* 9*)
 Dat[ 27]:=00002H; Dat[ 28]:=00700H; Dat[ 29]:=00000H;(*10*)
 Dat[ 30]:=00000H; Dat[ 31]:=09C00H; Dat[ 32]:=00000H;(*11*)
 Dat[ 33]:=00000H; Dat[ 34]:=03000H; Dat[ 35]:=00000H;(*12*)
 Dat[ 36]:=00000H; Dat[ 37]:=00000H; Dat[ 38]:=00000H;(*13*)
 Dat[ 39]:=00000H; Dat[ 40]:=00020H; Dat[ 41]:=00000H;(*14*)
 Dat[ 42]:=0001FH; Dat[ 43]:=0FFE0H; Dat[ 44]:=00000H;(*15*)
 Dat[ 45]:=00000H; Dat[ 46]:=00000H; Dat[ 47]:=00000H;(*16*)
 Dat[ 48]:=00000H; Dat[ 49]:=00020H; Dat[ 50]:=00000H;(*17*)
 Dat[ 51]:=0001FH; Dat[ 52]:=0FFE0H; Dat[ 53]:=00000H;(*18*)
 Dat[ 54]:=00000H; Dat[ 55]:=00000H; Dat[ 56]:=00000H;(*19*)
 Dat[ 57]:=00000H; Dat[ 58]:=00000H; Dat[ 59]:=00000H;(*20*)
 Dat[ 60]:=00000H; Dat[ 61]:=00000H; Dat[ 62]:=00000H;(*21*)
 Dat[ 63]:=00000H; Dat[ 64]:=06000H; Dat[ 65]:=00000H;(*22*)
 Dat[ 66]:=00001H; Dat[ 67]:=0C800H; Dat[ 68]:=00000H;(*23*)
 Dat[ 69]:=00007H; Dat[ 70]:=00200H; Dat[ 71]:=00000H;(*24*)
 Dat[ 72]:=0001CH; Dat[ 73]:=00080H; Dat[ 74]:=00000H;(*25*)
 Dat[ 75]:=00070H; Dat[ 76]:=00020H; Dat[ 77]:=00000H;(*26*)
 Dat[ 78]:=001C0H; Dat[ 79]:=00008H; Dat[ 80]:=00000H;(*27*)
 Dat[ 81]:=00000H; Dat[ 82]:=00000H; Dat[ 83]:=00000H;(*28*)
 Dat[ 84]:=00000H; Dat[ 85]:=00000H; Dat[ 86]:=00800H;(*29*)
 Dat[ 87]:=07FFFH; Dat[ 88]:=0FFFFH; Dat[ 89]:=0F800H;(*30*)

  (* Plane 2 *)
 Dat[ 90]:=0FFFFH; Dat[ 91]:=0FFFFH; Dat[ 92]:=0F000H;(* 1*)
 Dat[ 93]:=0FFFFH; Dat[ 94]:=0FFFFH; Dat[ 95]:=0F000H;(* 2*)
 Dat[ 96]:=07E00H; Dat[ 97]:=00007H; Dat[ 98]:=0E000H;(* 3*)
 Dat[ 99]:=01F80H; Dat[100]:=0001FH; Dat[101]:=08000H;(* 4*)
 Dat[102]:=007E0H; Dat[103]:=0007EH; Dat[104]:=00000H;(* 5*)
 Dat[105]:=001F8H; Dat[106]:=001F8H; Dat[107]:=00000H;(* 6*)
 Dat[108]:=0007EH; Dat[109]:=007E0H; Dat[110]:=00000H;(* 7*)
 Dat[111]:=0001FH; Dat[112]:=09F80H; Dat[113]:=00000H;(* 8*)
 Dat[114]:=00007H; Dat[115]:=0FE00H; Dat[116]:=00000H;(* 9*)
 Dat[117]:=00001H; Dat[118]:=0F800H; Dat[119]:=00000H;(*10*)
 Dat[120]:=00000H; Dat[121]:=06000H; Dat[122]:=00000H;(*11*)
 Dat[123]:=00000H; Dat[124]:=00000H; Dat[125]:=00000H;(*12*)
 Dat[126]:=0003FH; Dat[127]:=0FFC0H; Dat[128]:=00000H;(*13*)
 Dat[129]:=0003FH; Dat[130]:=0FFC0H; Dat[131]:=00000H;(*14*)
 Dat[132]:=00000H; Dat[133]:=00000H; Dat[134]:=00000H;(*15*)
 Dat[135]:=0003FH; Dat[136]:=0FFC0H; Dat[137]:=00000H;(*16*)
 Dat[138]:=0003FH; Dat[139]:=0FFC0H; Dat[140]:=00000H;(*17*)
 Dat[141]:=00000H; Dat[142]:=00000H; Dat[143]:=00000H;(*18*)
 Dat[144]:=00000H; Dat[145]:=06000H; Dat[146]:=00000H;(*19*)
 Dat[147]:=00001H; Dat[148]:=0F800H; Dat[149]:=00000H;(*20*)
 Dat[150]:=00007H; Dat[151]:=0FE00H; Dat[152]:=00000H;(*21*)
 Dat[153]:=0001FH; Dat[154]:=09F80H; Dat[155]:=00000H;(*22*)
 Dat[156]:=0007EH; Dat[157]:=007E0H; Dat[158]:=00000H;(*23*)
 Dat[159]:=001F8H; Dat[160]:=001F8H; Dat[161]:=00000H;(*24*)
 Dat[162]:=007E0H; Dat[163]:=0007EH; Dat[164]:=00000H;(*25*)
 Dat[165]:=01F80H; Dat[166]:=0001FH; Dat[167]:=08000H;(*26*)
 Dat[168]:=07E00H; Dat[169]:=00007H; Dat[170]:=0E000H;(*27*)
 Dat[171]:=0FFFFH; Dat[172]:=0FFFFH; Dat[173]:=0F000H;(*28*)
 Dat[174]:=0FFFFH; Dat[175]:=0FFFFH; Dat[176]:=0F000H;(*29*)
 Dat[177]:=00000H; Dat[178]:=00000H; Dat[179]:=00000H;(*30*)

  (* Plane 3 *)
 Dat[180]:=00000H; Dat[181]:=00000H; Dat[182]:=00000H;(* 1*)
 Dat[183]:=00000H; Dat[184]:=00000H; Dat[185]:=00000H;(* 2*)
 Dat[186]:=00000H; Dat[187]:=00000H; Dat[188]:=00000H;(* 3*)
 Dat[189]:=00000H; Dat[190]:=00000H; Dat[191]:=00000H;(* 4*)
 Dat[192]:=00000H; Dat[193]:=00000H; Dat[194]:=00000H;(* 5*)
 Dat[195]:=00000H; Dat[196]:=00000H; Dat[197]:=00000H;(* 6*)
 Dat[198]:=00000H; Dat[199]:=00000H; Dat[200]:=00000H;(* 7*)
 Dat[201]:=00000H; Dat[202]:=00000H; Dat[203]:=00000H;(* 8*)
 Dat[204]:=00000H; Dat[205]:=00000H; Dat[206]:=00000H;(* 9*)
 Dat[207]:=00000H; Dat[208]:=00000H; Dat[209]:=00000H;(*10*)
 Dat[210]:=00000H; Dat[211]:=00000H; Dat[212]:=00000H;(*11*)
 Dat[213]:=00000H; Dat[214]:=00000H; Dat[215]:=00000H;(*12*)
 Dat[216]:=00000H; Dat[217]:=00000H; Dat[218]:=00000H;(*13*)
 Dat[219]:=00000H; Dat[220]:=00000H; Dat[221]:=00000H;(*14*)
 Dat[222]:=00000H; Dat[223]:=00000H; Dat[224]:=00000H;(*15*)
 Dat[225]:=00000H; Dat[226]:=00000H; Dat[227]:=00000H;(*16*)
 Dat[228]:=00000H; Dat[229]:=00000H; Dat[230]:=00000H;(*17*)
 Dat[231]:=00000H; Dat[232]:=00000H; Dat[233]:=00000H;(*18*)
 Dat[234]:=00000H; Dat[235]:=00000H; Dat[236]:=00000H;(*19*)
 Dat[237]:=00000H; Dat[238]:=00000H; Dat[239]:=00000H;(*20*)
 Dat[240]:=00000H; Dat[241]:=00000H; Dat[242]:=00000H;(*21*)
 Dat[243]:=00000H; Dat[244]:=00000H; Dat[245]:=00000H;(*22*)
 Dat[246]:=00000H; Dat[247]:=00000H; Dat[248]:=00000H;(*23*)
 Dat[249]:=00000H; Dat[250]:=00000H; Dat[251]:=00000H;(*24*)
 Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=00000H;(*25*)
 Dat[255]:=00000H; Dat[256]:=00000H; Dat[257]:=00000H;(*26*)
 Dat[258]:=00000H; Dat[259]:=00000H; Dat[260]:=00000H;(*27*)
 Dat[261]:=00000H; Dat[262]:=00000H; Dat[263]:=00000H;(*28*)
 Dat[264]:=00000H; Dat[265]:=00000H; Dat[266]:=00000H;(*29*)
 Dat[267]:=00000H; Dat[268]:=00000H; Dat[269]:=00000H;(*30*)

END; 
END GearCode.