(* --------------------------------------------------------------------- :Program. Img.mod :Contents. ProjectIcon-Image für Logikus.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 Img; FROM SYSTEM IMPORT WORD; FROM Heap IMPORT AllocMem; BEGIN (* MAIN *) AllocMem(ImgPtr,SIZE(ImgPtr^),TRUE); Imgwidth :=112; Imgheight:= 20; Imgdepth := 2; WITH ImgPtr^ DO (* logidat.brush *) (* Plane 1 *) Dat[ 0]:=00000H; Dat[ 1]:=00000H; Dat[ 2]:=00000H; Dat[ 3]:=00000H; Dat[ 4]:=00000H; Dat[ 5]:=00000H; Dat[ 6]:=00000H;(* 1*) Dat[ 7]:=00000H; Dat[ 8]:=00000H; Dat[ 9]:=00000H; Dat[ 10]:=00000H; Dat[ 11]:=00000H; Dat[ 12]:=00000H; Dat[ 13]:=00000H;(* 2*) Dat[ 14]:=00000H; Dat[ 15]:=00000H; Dat[ 16]:=00000H; Dat[ 17]:=00001H; Dat[ 18]:=05555H; Dat[ 19]:=05555H; Dat[ 20]:=05550H;(* 3*) Dat[ 21]:=00780H; Dat[ 22]:=00000H; Dat[ 23]:=00000H; Dat[ 24]:=01E01H; Dat[ 25]:=05555H; Dat[ 26]:=05555H; Dat[ 27]:=05550H;(* 4*) Dat[ 28]:=00780H; Dat[ 29]:=00000H; Dat[ 30]:=00000H; Dat[ 31]:=01E01H; Dat[ 32]:=05555H; Dat[ 33]:=05555H; Dat[ 34]:=05550H;(* 5*) Dat[ 35]:=00780H; Dat[ 36]:=00000H; Dat[ 37]:=00000H; Dat[ 38]:=00001H; Dat[ 39]:=05555H; Dat[ 40]:=05555H; Dat[ 41]:=05550H;(* 6*) Dat[ 42]:=00780H; Dat[ 43]:=007F8H; Dat[ 44]:=007F8H; Dat[ 45]:=01E01H; Dat[ 46]:=04015H; Dat[ 47]:=05140H; Dat[ 48]:=00550H;(* 7*) Dat[ 49]:=00780H; Dat[ 50]:=01FFEH; Dat[ 51]:=01FFEH; Dat[ 52]:=01E01H; Dat[ 53]:=04505H; Dat[ 54]:=04054H; Dat[ 55]:=05550H;(* 8*) Dat[ 56]:=00780H; Dat[ 57]:=01E1EH; Dat[ 58]:=01E1EH; Dat[ 59]:=01E01H; Dat[ 60]:=04545H; Dat[ 61]:=04454H; Dat[ 62]:=05550H;(* 9*) Dat[ 63]:=00780H; Dat[ 64]:=01E1EH; Dat[ 65]:=01E1EH; Dat[ 66]:=01E01H; Dat[ 67]:=04545H; Dat[ 68]:=00414H; Dat[ 69]:=05550H;(*10*) Dat[ 70]:=00780H; Dat[ 71]:=01E1EH; Dat[ 72]:=01E1EH; Dat[ 73]:=01E01H; Dat[ 74]:=04545H; Dat[ 75]:=01514H; Dat[ 76]:=05550H;(*11*) Dat[ 77]:=00780H; Dat[ 78]:=01E1EH; Dat[ 79]:=01E1EH; Dat[ 80]:=01E01H; Dat[ 81]:=04544H; Dat[ 82]:=00004H; Dat[ 83]:=05550H;(*12*) Dat[ 84]:=007FFH; Dat[ 85]:=09FFEH; Dat[ 86]:=01FFEH; Dat[ 87]:=01E01H; Dat[ 88]:=04504H; Dat[ 89]:=05544H; Dat[ 90]:=05550H;(*13*) Dat[ 91]:=007FFH; Dat[ 92]:=087F8H; Dat[ 93]:=007FEH; Dat[ 94]:=01E01H; Dat[ 95]:=04014H; Dat[ 96]:=05544H; Dat[ 97]:=05550H;(*14*) Dat[ 98]:=00000H; Dat[ 99]:=00000H; Dat[100]:=0001EH; Dat[101]:=00001H; Dat[102]:=05555H; Dat[103]:=05555H; Dat[104]:=05550H;(*15*) Dat[105]:=00000H; Dat[106]:=00000H; Dat[107]:=0001EH; Dat[108]:=00001H; Dat[109]:=05555H; Dat[110]:=05555H; Dat[111]:=05550H;(*16*) Dat[112]:=00000H; Dat[113]:=00000H; Dat[114]:=01FFEH; Dat[115]:=00001H; Dat[116]:=05555H; Dat[117]:=05555H; Dat[118]:=05550H;(*17*) Dat[119]:=00000H; Dat[120]:=00000H; Dat[121]:=01FF8H; Dat[122]:=00001H; Dat[123]:=05555H; Dat[124]:=05555H; Dat[125]:=05550H;(*18*) Dat[126]:=00000H; Dat[127]:=00000H; Dat[128]:=00000H; Dat[129]:=00000H; Dat[130]:=00000H; Dat[131]:=00000H; Dat[132]:=00000H;(*19*) Dat[133]:=00000H; Dat[134]:=00000H; Dat[135]:=00000H; Dat[136]:=00000H; Dat[137]:=00000H; Dat[138]:=00000H; Dat[139]:=00000H;(*20*) (* Plane 2 *) Dat[140]:=00000H; Dat[141]:=00000H; Dat[142]:=00000H; Dat[143]:=00000H; Dat[144]:=00000H; Dat[145]:=00000H; Dat[146]:=00000H;(* 1*) Dat[147]:=00000H; Dat[148]:=00000H; Dat[149]:=00000H; Dat[150]:=00000H; Dat[151]:=00000H; Dat[152]:=00000H; Dat[153]:=00000H;(* 2*) Dat[154]:=00000H; Dat[155]:=00000H; Dat[156]:=00000H; Dat[157]:=00000H; Dat[158]:=00000H; Dat[159]:=00000H; Dat[160]:=00000H;(* 3*) Dat[161]:=00780H; Dat[162]:=00000H; Dat[163]:=00000H; Dat[164]:=01E00H; Dat[165]:=00000H; Dat[166]:=00000H; Dat[167]:=00000H;(* 4*) Dat[168]:=00780H; Dat[169]:=00000H; Dat[170]:=00000H; Dat[171]:=01E00H; Dat[172]:=00000H; Dat[173]:=00000H; Dat[174]:=00000H;(* 5*) Dat[175]:=00780H; Dat[176]:=00000H; Dat[177]:=00000H; Dat[178]:=00000H; Dat[179]:=00000H; Dat[180]:=00000H; Dat[181]:=00000H;(* 6*) Dat[182]:=00780H; Dat[183]:=007F8H; Dat[184]:=007F8H; Dat[185]:=01E00H; Dat[186]:=00000H; Dat[187]:=00000H; Dat[188]:=00000H;(* 7*) Dat[189]:=00780H; Dat[190]:=01FFEH; Dat[191]:=01FFEH; Dat[192]:=01E00H; Dat[193]:=00000H; Dat[194]:=00000H; Dat[195]:=00000H;(* 8*) Dat[196]:=00780H; Dat[197]:=01E1EH; Dat[198]:=01E1EH; Dat[199]:=01E00H; Dat[200]:=00000H; Dat[201]:=00000H; Dat[202]:=00000H;(* 9*) Dat[203]:=00780H; Dat[204]:=01E1EH; Dat[205]:=01E1EH; Dat[206]:=01E00H; Dat[207]:=00000H; Dat[208]:=00000H; Dat[209]:=00000H;(*10*) Dat[210]:=00780H; Dat[211]:=01E1EH; Dat[212]:=01E1EH; Dat[213]:=01E00H; Dat[214]:=00000H; Dat[215]:=00000H; Dat[216]:=00000H;(*11*) Dat[217]:=00780H; Dat[218]:=01E1EH; Dat[219]:=01E1EH; Dat[220]:=01E00H; Dat[221]:=00000H; Dat[222]:=00000H; Dat[223]:=00000H;(*12*) Dat[224]:=007FFH; Dat[225]:=09FFEH; Dat[226]:=01FFEH; Dat[227]:=01E00H; Dat[228]:=00000H; Dat[229]:=00000H; Dat[230]:=00000H;(*13*) Dat[231]:=007FFH; Dat[232]:=087F8H; Dat[233]:=007FEH; Dat[234]:=01E00H; Dat[235]:=00000H; Dat[236]:=00000H; Dat[237]:=00000H;(*14*) Dat[238]:=00000H; Dat[239]:=00000H; Dat[240]:=0001EH; Dat[241]:=00000H; Dat[242]:=00000H; Dat[243]:=00000H; Dat[244]:=00000H;(*15*) Dat[245]:=00000H; Dat[246]:=00000H; Dat[247]:=0001EH; Dat[248]:=00000H; Dat[249]:=00000H; Dat[250]:=00000H; Dat[251]:=00000H;(*16*) Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=01FFEH; Dat[255]:=00000H; Dat[256]:=00000H; Dat[257]:=00000H; Dat[258]:=00000H;(*17*) Dat[259]:=00000H; Dat[260]:=00000H; Dat[261]:=01FF8H; Dat[262]:=00000H; Dat[263]:=00000H; Dat[264]:=00000H; Dat[265]:=00000H;(*18*) Dat[266]:=00000H; Dat[267]:=00000H; Dat[268]:=00000H; Dat[269]:=00000H; Dat[270]:=00000H; Dat[271]:=00000H; Dat[272]:=00000H;(*19*) Dat[273]:=00000H; Dat[274]:=00000H; Dat[275]:=00000H; Dat[276]:=00000H; Dat[277]:=00000H; Dat[278]:=00000H; Dat[279]:=00000H;(*20*) END; END Img.