#include <exec/types.h>
#include <intuition/intuition.h>
#include <libraries/dosextens.h>
#include <functions.h>
#include <stdio.h>
#include <pragma/rct_lib.h>


APTR ApplBase;
APTR RctBase;

void main( void)
{
struct Window *win,*win1;
SHORT handle,quit = 1;
struct TagItem taglist[8];
struct Screen *scr;

taglist[0].ti_Tag = 40;


if( ! (RctBase =(APTR)OpenLibrary( ( UBYTE *)"rct.library",16L)))
  {
  printf("Can't open libraries\n");
  return;
  }
if( ApplBase = R_InitApplTags( TAG_DONE))
  {
  scr = ( struct Screen *)R_ShowScreenTags( ApplBase, RSA_CloneWB, 1L, TAG_DONE);


   /* Hier Hauptprogramm einügen! */

	/* Dieses Window wird in voller Größe auf dem neuen Screen geöffnet */
  win = ( struct Window *)R_ShowWindowTags( ApplBase, RWA_SCRCPY, 1, RWA_CustomScreen, ( ULONG)scr, TAG_DONE);
	/* Und dieses auf der Workbench */
  win1 = ( struct Window *)R_ShowWindowTags( ApplBase, RWA_SCRCPY, 1, RWA_Height, 200, TAG_DONE);

  Delay( 100);
	R_FormAlertTags( ApplBase, RFA_Center, 1L, RFA_CloseID , 2L, RFA_WindowDrag, 1L, RFA_WindowClose, 1L, RFA_WindowDepth, 1L, RFA_DefaultID, 2, RFA_GadgetText,"_OK|_Zurück",RFA_AlertText, "[2][ |Programm beenden ?]",TAG_DONE);

  R_ExitAppl( ApplBase);
  }
CloseLibrary( ( struct Library *)RctBase);
}

#include <rct/rcttagfuncs.h>