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


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


#define INTUITION_REV 0
#define GRAPHICS_REV 0

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


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

 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,"","");
   SizeWindow(wind0,0,125);
   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. MARAUDER II ................     9. ...........................     ";
txt3 = "     2. QUICKNIBBLE v1.16 ..........    10. DISKSALV v1.0 .............     "; 
txt4 = "     3. MIRROR v1.4 (82 TR.) .......    11. DISKDOC. v1.3 (use KS 1.2)      ";
txt5 = "     4. TURBO COPY v1.0 ............    12. FILEZAP v2.2 ..............     ";
txt6 = "     5. ACOPY v1.0 .................    13. ...........................     ";
txt7 = "     6. CLIMATE v1.2 (use KS v1.2)..    14. SMARTDISK v1.0 ............     ";
txt8 = "     7. ............................    15. ...........................     "; 
txt9 = "     8. DIRUTIL X v1.01 (use KS 1.2)    16. CHANGE KICKSTARTversion ...     ";
 
txt10= "      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);
 SetDrMd(rp,JAM2);
 Text(rp,txt2,strlen(txt2));
 Move(rp,15,44);
 SetDrMd(rp,JAM2);
 Text(rp,txt3,strlen(txt3));
 Move(rp,15,56);
 SetDrMd(rp,JAM2);
 Text(rp,txt4,strlen(txt4));
 Move(rp,15,68);
 SetDrMd(rp,JAM2);
 Text(rp,txt5,strlen(txt5));
 Move(rp,15,80);
 SetDrMd(rp,JAM2);
 Text(rp,txt6,strlen(txt6));
 Move(rp,15,92);
 SetDrMd(rp,JAM2);
 Text(rp,txt7,strlen(txt7));
 Move(rp,15,104);
 SetDrMd(rp,JAM2);
 Text(rp,txt8,strlen(txt8));
 Move(rp,15,116);
 SetDrMd(rp,JAM2);
 Text(rp,txt9,strlen(txt9));

 SetAPen(rp,0);
 SetBPen(rp,1); /* zwart op witte achtergrond */
 SetSoftStyle(rp,FSF_BOLD,FSF_BOLD);
 Move(rp,15,128);
 SetDrMd(rp,JAM2);
 Text(rp,txt10,strlen(txt10));

 /* ======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));

}