/*
	Add36k
	
	(c) 1991 Alexander Rawass

	Alexander Rawass
	Wilhelminenstr. 44
	6700 Ludwigshafen 15
	Germany
	0621/57 75 98
	
	E-Mail: rawass@sun.rhrk.uni-kl.de
*/

#include <exec/types.h>
#include <exec/memory.h>
#include <intuition/intuitionbase.h>

struct Library	*IntuitionBase;
struct Screen	*scr;
struct BitMap	*bm;
struct Window	*win;
ULONG		origheight;

VOID _main()
{
long pl0,pl1,plb,ple;

	IntuitionBase=OpenLibrary("intuition.library",0);
	scr=IntuitionBase->ActiveScreen;
	win=IntuitionBase->ActiveWindow;
	origheight=scr->Height;
	SizeWindow(win,0,-150);
	Delay(1*50);
	scr->Height=50;
	scr->Depth=1;
	bm=&scr->BitMap;
	bm->Rows=50;
	bm->Depth=1;
	pl0=bm->Planes[0];
	pl1=bm->Planes[1];
	bm->Planes[1]=NULL;
	plb=pl0+(640*50/8);
	ple=pl1+(640*origheight/8);
	RemakeDisplay();
	FreeMem(plb,ple-plb);
	CloseLibrary(IntuitionBase);
}