(*--------------------------------------------------------------------------

:Program.    Topimg.MOD 
:Author.     Uwe Meyer
:Address.    Alex. v. Wacker P.4, 5000 Köln 71 
:Phone,      0221/704915
:Shortcut.   [umk]
:Version.    1.0
:Date.       07.Mar-89
:Copyright.  Public Domain
:Language.   Modula II
:Translator. M2Amiga v3.2d
:Imports.    IntuiStruct, Nicolas Benezan [bne]
:Contents.   Initialisiert alle Images für Top.MOD

----------------------------------------------------------------------------*)


IMPLEMENTATION MODULE Topimg;


FROM IntuiStruct IMPORT
 StructImage, ImageEnd, FreeImage, Long, Word;


PROCEDURE DefineImages;
BEGIN
 StructImage (dirimg, 0, 0, 32, 16, 2, {0,1}, {}, NIL);
  Long (00000000000000000000111111111111L);
  Long (00000000000000000001100000000011L);
  Long (01111111111111111111111111111111L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000011000000000000011L);
  Long (11000000000000011000000000000011L);
  Long (11000111111111111111111111100011L);
  Long (11000100000000011000000000100011L);
  Long (11000100000000011000000000100011L);
  Long (11000100000000011000000000100011L);
  Long (11011111000011111111000011111011L);
  Long (11010001000010011001000010001011L);
  Long (11010001000010011001000010001011L);
  Long (11010001000010011001000010001011L);
  Long (11000000000000000000000000000011L);
  Long (11111111111111111111111111111111L);

  Long (00000000000000000000111111111111L);
  Long (00000000000000000001100000000011L);
  Long (01111111111111111111111111111111L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11000000000000000000000000000011L);
  Long (11111111111111111111111111111111L);
 ImageEnd; 
 StructImage (fileimg, 0, 0, 32, 16, 1, {0,2}, {}, NIL);
  Long (11111111111111111111111111111111L);
  Long (11110000000000000000000000001111L);
  Long (10010000000000000000000000001001L);
  Long (11110011110000000000000000001111L);
  Long (10010001100000000000000000001001L);
  Long (11110001100000000000000000001111L);
  Long (10010011110001101101100000001001L);
  Long (11110000000000000000000000001111L);
  Long (10010000000000000000000000001001L);
  Long (11110111111000000000000000001111L);
  Long (10010010010000000000000000001001L);
  Long (11110010010000000000000000001111L);
  Long (10010111111001101101100000001001L);
  Long (11110000000000000000000000001111L);
  Long (11110000000000000000000000001111L);
  Long (11111111111111111111111111111111L);
 ImageEnd;
  StructImage (diskimg, 0, 0, 40, 20, 2, {0,1}, {}, NIL);
  Long (00000000000000000000000000000000L); Word (0000000000000000L);
  Long (00000000000000000000000000000000L); Word (0000000000000000L);
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011100000000000000000000000001L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011100000000000000000000000001L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011100000000000000000000000001L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00011111111111111111111111111111L); Word (1111000000000000L);  
  Long (00000000000000000000000000000000L); Word (0000000000000000L);
  Long (00000000000000000000000000000000L); Word (0000000000000000L);

  Long (11111111111111111111111111111111L); Word (1111111000000000L);
  Long (11111111111111111111111111111111L); Word (1111111000000000L);
  Long (11100000000000000000000000000000L); Word (0111111000000000L);
  Long (11100000000000000000000000000000L); Word (0101111000000000L);
  Long (11100011111111111111111111111110L); Word (0111111000000000L);
  Long (11100000000000000000000000000000L); Word (0000111000000000L);
  Long (11100000000000000000000000000000L); Word (0000111000000000L);
  Long (11100011111111111111111111111110L); Word (0000111000000000L);
  Long (11100000000000000000000000000000L); Word (0000111000000000L);
  Long (11100000000000000000000000000000L); Word (0000111000000000L);
  Long (11100011111111111111111111111110L); Word (0000111000000000L);
  Long (11100000000000000000000000000000L); Word (0000111000000000L);
  Long (11100000000000000000000000000000L); Word (0000111000000000L);
  Long (11100000011111111111111111111100L); Word (0000111000000000L);
  Long (11100000011000000000000000001100L); Word (0000111000000000L);
  Long (11100000011000000000000000001100L); Word (0000111000000000L);
  Long (11100000011000000000000000001100L); Word (0000111000000000L);
  Long (11100000011000000000000000001100L); Word (0000111000000000L);
  Long (01111111111111111111111111111111L); Word (1111111000000000L);
  Long (00111111111111111111111111111111L); Word (1111111000000000L);
  ImageEnd;

 StructImage (unprotimg, 0, 0, 22, 10, 2, {0,1}, {}, NIL);
  Long (11111111111111111111000000000000L);
  Long (10000000000000000001000000000000L);
  Long (10000000000000000001000000000000L);
  Long (10000000000000011001000000000000L);
  Long (10000000000000000001000000000000L);
  Long (10000000000000000001000000000000L);
  Long (10000011111111000001000000000000L);
  Long (10000011111111000001000000000000L);
  Long (10000011111111000001000000000000L);
  Long (11111111111111111111000000000000L);

  Long (00000000000000000000000000000000L);
  Long (00000000000000000000000000000000L);
  Long (00011111111111111000000000000000L);
  Long (00011111111111111000000000000000L);
  Long (00011111111111111000000000000000L);
  Long (00011100000000111000000000000000L);
  Long (00011100000000111000000000000000L);
  Long (00011100000000111000000000000000L);
  Long (00000000000000000000000000000000L);
  Long (00000000000000000000000000000000L);
 ImageEnd;  

 StructImage (protimg, 0, 0, 20, 10, 2, {0,1}, {}, NIL);
  Long (11111111111111111111000000000000L);
  Long (11100000000000000111000000000000L);
  Long (10011100000000111001000000000000L);
  Long (10000011000011000001000000000000L);
  Long (10000000111100000001000000000000L);
  Long (10000011111111000001000000000000L);
  Long (10000011111111000001000000000000L);
  Long (10011111111111111001000000000000L);
  Long (11100000000000000111000000000000L);
  Long (11111111111111111111000000000000L);

  Long (00000000000000000000000000000000L);
  Long (01100000000000000110000000000000L);
  Long (00011111111111111100000000000000L);
  Long (00011111111111111000000000000000L);
  Long (00011111111111111000000000000000L);
  Long (00011100111100111000000000000000L);
  Long (00011111000011111000000000000000L);
  Long (00011100000000111100000000000000L);
  Long (01100000000000000110000000000000L);
  Long (00000000000000000000000000000000L);
 ImageEnd;  
END DefineImages;

END Topimg.