(* -------> IMPLEMENTATION MODULE <-------- *)

IMPLEMENTATION MODULE AmokDisk;

FROM SYSTEM IMPORT      WORD;

FROM Heap IMPORT        AllocMem;

VAR     i   :INTEGER;



BEGIN   (* MAIN *)

FOR i:=0 TO   1  DO
  AllocMem(ImgPtr[i],SIZE(ImgPtr[i]^),TRUE);
END;

Imgwidth := 37;
Imgheight:= 22;
Imgdepth :=  2;



WITH ImgPtr[Disk]^ DO         (* Disk *)

  (* Plane 1 *)
 Dat[  0]:=0513FH; Dat[  1]:=0FFEAH; Dat[  2]:=00000H;(* 1*)
 Dat[  3]:=0803FH; Dat[  4]:=0F860H; Dat[  5]:=00000H;(* 2*)
 Dat[  6]:=0803FH; Dat[  7]:=0F860H; Dat[  8]:=00000H;(* 3*)
 Dat[  9]:=0803FH; Dat[ 10]:=0F860H; Dat[ 11]:=00000H;(* 4*)
 Dat[ 12]:=0803FH; Dat[ 13]:=0F860H; Dat[ 14]:=00000H;(* 5*)
 Dat[ 15]:=0817FH; Dat[ 16]:=0FFE0H; Dat[ 17]:=00000H;(* 6*)
 Dat[ 18]:=08000H; Dat[ 19]:=00000H; Dat[ 20]:=00000H;(* 7*)
 Dat[ 21]:=08000H; Dat[ 22]:=00000H; Dat[ 23]:=00000H;(* 8*)
 Dat[ 24]:=081FFH; Dat[ 25]:=0FFFEH; Dat[ 26]:=00000H;(* 9*)
 Dat[ 27]:=083FFH; Dat[ 28]:=0FFFFH; Dat[ 29]:=00000H;(*10*)
 Dat[ 30]:=083FFH; Dat[ 31]:=0FFFFH; Dat[ 32]:=00000H;(*11*)
 Dat[ 33]:=083FFH; Dat[ 34]:=0FFFFH; Dat[ 35]:=00000H;(*12*)
 Dat[ 36]:=083FFH; Dat[ 37]:=0FFFFH; Dat[ 38]:=00000H;(*13*)
 Dat[ 39]:=083FFH; Dat[ 40]:=0FFFFH; Dat[ 41]:=00000H;(*14*)
 Dat[ 42]:=083FFH; Dat[ 43]:=0FFFFH; Dat[ 44]:=00000H;(*15*)
 Dat[ 45]:=083FFH; Dat[ 46]:=0FFFFH; Dat[ 47]:=00000H;(*16*)
 Dat[ 48]:=083FFH; Dat[ 49]:=0FFFFH; Dat[ 50]:=00000H;(*17*)
 Dat[ 51]:=083FFH; Dat[ 52]:=0FFFFH; Dat[ 53]:=00000H;(*18*)
 Dat[ 54]:=042AAH; Dat[ 55]:=0AAAAH; 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]:=00000H; Dat[ 65]:=00000H;(*22*)

  (* Plane 2 *)
 Dat[ 66]:=00400H; Dat[ 67]:=00010H; Dat[ 68]:=08000H;(* 1*)
 Dat[ 69]:=00400H; Dat[ 70]:=00000H; Dat[ 71]:=02000H;(* 2*)
 Dat[ 72]:=00400H; Dat[ 73]:=00000H; Dat[ 74]:=00800H;(* 3*)
 Dat[ 75]:=00400H; Dat[ 76]:=00000H; Dat[ 77]:=00800H;(* 4*)
 Dat[ 78]:=00400H; Dat[ 79]:=00000H; Dat[ 80]:=00800H;(* 5*)
 Dat[ 81]:=00680H; Dat[ 82]:=00000H; Dat[ 83]:=00800H;(* 6*)
 Dat[ 84]:=00000H; Dat[ 85]:=00000H; Dat[ 86]:=00800H;(* 7*)
 Dat[ 87]:=001FFH; Dat[ 88]:=0FFFEH; Dat[ 89]:=00800H;(* 8*)
 Dat[ 90]:=00200H; Dat[ 91]:=00000H; Dat[ 92]:=00800H;(* 9*)
 Dat[ 93]:=00400H; Dat[ 94]:=00000H; Dat[ 95]:=00800H;(*10*)
 Dat[ 96]:=00400H; Dat[ 97]:=01FC0H; Dat[ 98]:=00800H;(*11*)
 Dat[ 99]:=00400H; Dat[100]:=07FC0H; Dat[101]:=00800H;(*12*)
 Dat[102]:=00401H; Dat[103]:=0FFC0H; Dat[104]:=00800H;(*13*)
 Dat[105]:=00407H; Dat[106]:=0F7C0H; Dat[107]:=00800H;(*14*)
 Dat[108]:=0041FH; Dat[109]:=0FFC0H; Dat[110]:=00800H;(*15*)
 Dat[111]:=0047FH; Dat[112]:=007F0H; Dat[113]:=00800H;(*16*)
 Dat[114]:=005FCH; Dat[115]:=007F0H; Dat[116]:=00800H;(*17*)
 Dat[117]:=00400H; Dat[118]:=00000H; Dat[119]:=01800H;(*18*)
 Dat[120]:=03D55H; Dat[121]:=05555H; Dat[122]:=0F000H;(*19*)
 Dat[123]:=00000H; Dat[124]:=00000H; Dat[125]:=00000H;(*20*)
 Dat[126]:=00000H; Dat[127]:=00000H; Dat[128]:=00000H;(*21*)
 Dat[129]:=00000H; Dat[130]:=00000H; Dat[131]:=00000H;(*22*)

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


WITH ImgPtr[DiskH]^ DO         (* DiskH *)

  (* Plane 1 *)
 Dat[  0]:=02AAAH; Dat[  1]:=0AAAAH; Dat[  2]:=0A000H;(* 1*)
 Dat[  3]:=04000H; Dat[  4]:=00000H; Dat[  5]:=00000H;(* 2*)
 Dat[  6]:=08000H; Dat[  7]:=00000H; Dat[  8]:=00000H;(* 3*)
 Dat[  9]:=08000H; Dat[ 10]:=00000H; Dat[ 11]:=00000H;(* 4*)
 Dat[ 12]:=08000H; Dat[ 13]:=07FFFH; Dat[ 14]:=0F000H;(* 5*)
 Dat[ 15]:=08000H; Dat[ 16]:=07FFFH; Dat[ 17]:=0F000H;(* 6*)
 Dat[ 18]:=0FFE0H; Dat[ 19]:=07FFFH; Dat[ 20]:=0F000H;(* 7*)
 Dat[ 21]:=0FFE0H; Dat[ 22]:=07FFFH; Dat[ 23]:=0F000H;(* 8*)
 Dat[ 24]:=0FFE0H; Dat[ 25]:=07FFFH; Dat[ 26]:=0F000H;(* 9*)
 Dat[ 27]:=0FFE0H; Dat[ 28]:=07FFFH; Dat[ 29]:=0F000H;(*10*)
 Dat[ 30]:=0FFE0H; Dat[ 31]:=07FFFH; Dat[ 32]:=0F000H;(*11*)
 Dat[ 33]:=0FFE0H; Dat[ 34]:=07FFFH; Dat[ 35]:=0F000H;(*12*)
 Dat[ 36]:=0FFE0H; Dat[ 37]:=07FFFH; Dat[ 38]:=0F000H;(*13*)
 Dat[ 39]:=0FFE0H; Dat[ 40]:=07FFFH; Dat[ 41]:=0F000H;(*14*)
 Dat[ 42]:=0FFE0H; Dat[ 43]:=07FFFH; Dat[ 44]:=0F000H;(*15*)
 Dat[ 45]:=0FFE0H; Dat[ 46]:=02BBAH; Dat[ 47]:=0A000H;(*16*)
 Dat[ 48]:=08000H; Dat[ 49]:=00E0CH; Dat[ 50]:=00000H;(*17*)
 Dat[ 51]:=08000H; Dat[ 52]:=00E0CH; Dat[ 53]:=00000H;(*18*)
 Dat[ 54]:=04000H; Dat[ 55]:=01E0CH; Dat[ 56]:=00000H;(*19*)
 Dat[ 57]:=01FFFH; Dat[ 58]:=0FFFFH; Dat[ 59]:=0F000H;(*20*)
 Dat[ 60]:=00001H; Dat[ 61]:=0FFFFH; Dat[ 62]:=0F000H;(*21*)
 Dat[ 63]:=0F800H; Dat[ 64]:=000FFH; Dat[ 65]:=0C000H;(*22*)

  (* Plane 2 *)
 Dat[ 66]:=00000H; Dat[ 67]:=00000H; Dat[ 68]:=00000H;(* 1*)
 Dat[ 69]:=00000H; Dat[ 70]:=00000H; Dat[ 71]:=00000H;(* 2*)
 Dat[ 72]:=00000H; Dat[ 73]:=00000H; Dat[ 74]:=00000H;(* 3*)
 Dat[ 75]:=05540H; Dat[ 76]:=07FFFH; Dat[ 77]:=0F000H;(* 4*)
 Dat[ 78]:=00020H; Dat[ 79]:=08000H; Dat[ 80]:=00000H;(* 5*)
 Dat[ 81]:=00020H; Dat[ 82]:=08001H; Dat[ 83]:=0E000H;(* 6*)
 Dat[ 84]:=00000H; Dat[ 85]:=087FFH; Dat[ 86]:=0E000H;(* 7*)
 Dat[ 87]:=03F80H; Dat[ 88]:=087FFH; Dat[ 89]:=0E000H;(* 8*)
 Dat[ 90]:=03F80H; Dat[ 91]:=087E6H; Dat[ 92]:=00000H;(* 9*)
 Dat[ 93]:=00000H; Dat[ 94]:=081FEH; Dat[ 95]:=00000H;(*10*)
 Dat[ 96]:=00000H; Dat[ 97]:=0807EH; Dat[ 98]:=00000H;(*11*)
 Dat[ 99]:=00000H; Dat[100]:=0811FH; Dat[101]:=08000H;(*12*)
 Dat[102]:=00000H; Dat[103]:=08307H; Dat[104]:=0E000H;(*13*)
 Dat[105]:=00000H; Dat[106]:=08311H; Dat[107]:=0E000H;(*14*)
 Dat[108]:=00000H; Dat[109]:=08318H; Dat[110]:=06000H;(*15*)
 Dat[111]:=00000H; Dat[112]:=04318H; Dat[113]:=00000H;(*16*)
 Dat[114]:=00000H; Dat[115]:=00E0CH; Dat[116]:=00000H;(*17*)
 Dat[117]:=00000H; Dat[118]:=00E0CH; Dat[119]:=01000H;(*18*)
 Dat[120]:=03D55H; Dat[121]:=05F5DH; Dat[122]:=0F000H;(*19*)
 Dat[123]:=01FFFH; Dat[124]:=0FFFFH; Dat[125]:=0F000H;(*20*)
 Dat[126]:=00001H; Dat[127]:=0FFFFH; Dat[128]:=0F000H;(*21*)
 Dat[129]:=0F800H; Dat[130]:=000FFH; Dat[131]:=0C000H;(*22*)

END;
END AmokDisk.