C code:

---

#include <exec/types.h>
#include <intuition/intuition.h>
#include <proto/intuition.h>
#include <proto/dos.h>
#include <proto/exec.h>
#include <proto/graphics.h>
#include <proto/datatypes.h>
#include <datatypes/pictureclass.h>

struct IntuitionBase  *IntuitionBase = NULL;
struct Screen         *Bildschirm = NULL;         // Zeiger auf Screen Struktur
struct RastPort       *rp=NULL;
struct Window         *MyWindow = NULL;

Object *dto;
struct BitMapHeader *bmhd;
struct BitMap *bm;
struct IntuiMessage *imsg;

void init(void);
void cleanup(void);
void action(void);
void drawpic(void);

int main(void)
{
   init();
   if (IntuitionBase != NULL)
   {
     action();
     cleanup();
   } 
   return 0;
}

void init(void)
{
    // Öffne Intuition Library
   IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library", 37L);
   /* Öffne neuen Screen */
   Bildschirm = OpenScreenTags(NULL,
                               SA_LikeWorkbench, FALSE,        
                               SA_Width,640,
                               SA_Height,480,
                               SA_Exclusive,TRUE,
                               SA_Title,NULL,  
                               TAG_DONE);
   if(Bildschirm!=NULL)
   {
    MyWindow=(struct Window*)OpenWindowTags(NULL,
                                            WA_Left,0,
                                            WA_Top,0,
                                            WA_Width,640,
                                            WA_Height,480,
                                            WA_DepthGadget,FALSE,
                                            WA_CloseGadget,TRUE,
                                            WA_SizeGadget,FALSE,
                                            WA_DragBar,FALSE,
                                            WA_GimmeZeroZero,TRUE,
                                            WA_IDCMP,IDCMP_CLOSEWINDOW|IDCMP_MOUSEBUTTONS,
                                            WA_CustomScreen,Bildschirm,
                                            WA_Activate,TRUE,
                                            TAG_END);

    if(MyWindow!=NULL)
    {
    rp=MyWindow->RPort;
    dto = NewDTObject ("gfx/1.jpeg",DTA_GroupID,GID_PICTURE,PDTA_Remap,TRUE,PDTA_Screen,Bildschirm,PDTA_DestMode,PMODE_V43,TAG_END);
    }
   }
}

void cleanup(void)
{
   if(MyWindow!=NULL)
   {CloseWindow(MyWindow);
   }
   if(dto!=NULL)
   {DisposeDTObject(dto);
   }
   if(Bildschirm != NULL)   // Falls der Screen geöffnet werden konnte...
   {CloseScreen(Bildschirm);  // Schließe Screen
   }
   if(IntuitionBase!=NULL)
   {CloseLibrary((struct Library *) IntuitionBase);  // Schließe Intuition Library
   }
}

void action(void)
{
   ULONG signals;
   struct IntuiMessage *message;
   UWORD msg_code;
   ULONG msg_class;
   BOOL end = FALSE;
   while(!end&&MyWindow)
      {
        signals = SetSignal(0L,0L);
        if(signals & (1L<<MyWindow->UserPort->mp_SigBit))
        {
         while(message = (struct IntuiMessage*)GetMsg(MyWindow->UserPort))
         {
           drawpic();
          msg_class = message->Class;
          msg_code  = message->Code;
          ReplyMsg((struct Message*)message);
          switch(msg_class)
          {
           case IDCMP_CLOSEWINDOW:
                end = TRUE;
                break;
           case IDCMP_MOUSEBUTTONS:
                end = TRUE;
                break;
           default:
                break;
          }
         }
        }
       }
}

void drawpic(void)
{
   if(dto!=NULL)
   {
    DoDTMethod (dto,NULL,NULL,DTM_PROCLAYOUT,NULL,TRUE);
    GetDTAttrs (dto,PDTA_BitMapHeader,&bmhd,PDTA_BitMap,&bm,TAG_END);
    BltBitMapRastPort(bm,0,0,rp,MyWindow->BorderLeft,MyWindow->BorderTop,MyWindow->GZZWidth,MyWindow->GZZHeight,0xc0);
   }
}

---