#include "exec/types.h"
#include "intuition/intuition.h"


struct IntuitionBase *IntuitionBase;
struct Window *wind0;
struct GfxBase *GfxBase;
struct RastPort *rp;


#define INTUITION_REV 0
#define GRAPHICS_REV 0

char *txt13,
     *txt1, 
     *txt2, 
     *txt3, 
     *txt4,
     *txt5, 
     *txt6, 
     *txt7,
     *txt8,
     *txt9 
 ;


main()
{
 ULONG flags;
 SHORT x,y,w,h,d,einde,i;
 USHORT mode;
 UBYTE c0,c1;
 UWORD *name;
 

 VOID OpenALL();

 OpenALL();

 /* ======open window====== */

 name="";
 x=0;
 y=190;
 w=640;
 h=10;
 flags=SMART_REFRESH|WINDOWDRAG|WINDOWDEPTH;
 c0=-0x01;
 c1=-0x01;

 wind0=(struct Window *)
         make_window(x,y,w,h,name,flags,c0,c1);

 
 /* ======window verplaatsen====== */

 for(i=0;i<19;i++)
  {
   MoveWindow(wind0,0,-10);
  };
 
 /* ======window vergroten====== */

   SetWindowTitles(wind0,(UWORD *)"",(UWORD *)"");
   SizeWindow(wind0,0,113);
   Delay(10L);

txt13="Contact us at : PB 163, 2018 Antwerpen 14, Belgium. (Tel. : 03/324.35.51.)";

txt1 = "           TYPE THE MENU-NUMBER (AND PARAMETERS) YOU HAVE CHOOSEN           ";
txt2 = "     1. SUPERKIT AMIGA .............     8. DISKWIK v1.0 ..............     ";
txt3 = "     2. ACOPY v1.0 .................     9. DISKDOC. v1.3 (use KS 1.2).     "; 
txt4 = "     3. QUICKCOPY v1.0 .............    10. DISKSALV. v1.0 ............     ";
txt5 = "     4. DOTIL v1.0 .................    11. FILEZAP v2.2 ..............     ";
txt6 = "     5. DIRUTIL 2 v4.0 .............    12. C-MON v2.02 ...............     ";
txt7 = "     6. MYCLI v2.0 .................    13. CHANGE KICKSTARTversion ...     ";
txt8 = "     7. SMARTDISK v1.0 .............     i. INFORMATION about this disk     ";
 
txt9 = "      COPY & UTILITY DISK v4.0  (window version)  by BAMIGA SECTOR ONE      ";

 rp=wind0->RPort;

 SetAPen(rp,0);
 SetBPen(rp,1);
 Move(rp,15,20);
 SetDrMd(rp,JAM2);
 Text(rp,txt1,strlen(txt1));

 SetAPen(rp,3);
 SetBPen(rp,2);
 Move(rp,15,32);
 Text(rp,txt2,strlen(txt2));
 Move(rp,15,44);
 Text(rp,txt3,strlen(txt3));
 Move(rp,15,56);
 Text(rp,txt4,strlen(txt4));
 Move(rp,15,68);
 Text(rp,txt5,strlen(txt5));

 Move(rp,15,80);
 Text(rp,txt6,strlen(txt6));
 Move(rp,15,92);
 Text(rp,txt7,strlen(txt7));
 Move(rp,15,104);
 Text(rp,txt8,strlen(txt8));

 SetAPen(rp,0);
 SetBPen(rp,1); /* zwart op witte achtergrond */
 Move(rp,15,116);
 Text(rp,txt9,strlen(txt9));

 /* ======einde====== */

 puts("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");


 exit(TRUE);

}

 VOID OpenALL()
 {
 /* ======open Intuition====== */

 IntuitionBase=(struct IntuitionBase *)
            OpenLibrary("intuition.library",INTUITION_REV);

 if(IntuitionBase==NULL)
   exit(FALSE);

 /* ======open Graphics Library====== */

 GfxBase=(struct GfxBase *)
           OpenLibrary("graphics.library",GRAPHICS_REV);

 if(GfxBase==NULL)
    exit(FALSE);
 }

make_window(x,y,w,h,name,flags,color0,color1)
SHORT x,y,w,h;
UBYTE *name,color0,color1;
ULONG flags;

{
 struct NewWindow NewWindow;

 NewWindow.LeftEdge = x;
 NewWindow.TopEdge = y;
 NewWindow.Width = w;
 NewWindow.Height = h;
 NewWindow.DetailPen = color0;
 NewWindow.BlockPen = color1;
 NewWindow.Title = name;
 NewWindow.Flags = flags;
 NewWindow.IDCMPFlags = NULL;
 NewWindow.Type = WBENCHSCREEN;
 NewWindow.FirstGadget = NULL;
 NewWindow.CheckMark = NULL;
 NewWindow.Screen = NULL;
 NewWindow.BitMap = NULL;
 NewWindow.MinWidth = 0;
 NewWindow.MinHeight = 0;
 NewWindow.MaxWidth = 640;
 NewWindow.MaxHeight = 155;

 return(OpenWindow(&NewWindow));

}