* Opens a Screen and a Window, and prints a message



LONG	Screen Window IMClass MsgSave
WORD	IMCode



	a1 = #NewScr
	a0 = _GfxBase
	6(a1) = 216(a0) w	;NewScr.Height = GfxBase.NormalDisplayRows

	Screen = OpenScreen( #NewScr )
	beq	Exit

	a0 = #NewWin
	30(a0) = Screen		;NewWin.Screen = Screen

	Window = OpenWindow( #NewWin )
	beq	Exit

	a0 = d0			;( Window )
	Move( 50(a0) 20 30 )

	a0 = Window
	Text( 50(a0) "I hope you enjoy using EZAsm!" 29 )
	

*   Check for messages..


CheckMsg

	a1 = Window
	WaitPort( 86(a1) )	;Window.UserPort

GetMessage

	a1 = Window
	MsgSave = GetMsg( 86(a1) )
	beq	CheckMsg

*   Got something..

	a1 = d0			;( MsgSave )
	IMClass = 20(a1)	;save Class
	IMCode = 24(a1)		;save Code

	ReplyMsg( d0 )

	IMClass != 512 GetMessage	;CLOSEWINDOW?


Exit

	Window != 0 {

		Forbid( )	;( stop messages )

FreeLoop	a1 = Window
		GetMsg( 86(a1) )

		d0 != 0 {
			ReplyMsg( d0 )
			jmp	FreeLoop
		}

		CloseWindow( Window )
		Permit( )
	}

	Screen != 0 {
		CloseScreen( Screen )
	}


	END





NewScr	ds.w	0		;( word align )
	dc.w	0,0,640,0,2	;LeftEdge,TopEdge,Width,Height,Depth
	dc.b	-1,-1		;DetailPen,BlockPen
	dc.w	$8000,$000f	;ViewModes,Type
	dc.l	0,0		;Font,DefaultTitle
	dc.l	0		;Gadgets
	dc.l	0		;CustomBitMap


*  ViewModes = HIRES

*  Type      = CUSTOMSCREEN



NewWin	ds.w	0		;( word align )
	dc.w	20,20,400,150	;LeftEdge,TopEdge,Width,Height	
	dc.b	-1,-1		;DetailPen,BlockPen
	dc.l	$00000200	;IDCMPFlags
	dc.l	$0002100f	;Flags
	dc.l	0,0,0		;FirstGadget,CheckMark,Title
	dc.l	0,0		;Screen,BitMap
	dc.w	400,75		;MinWidth,MinHeight
	dc.w	$ffff,$ffff	;MaxWidth,MaxHeight
	dc.w	$000f		;Type


*  IDCMPFlags = CLOSEWINDOW

*  Flags      = WINDOWCLOSE | SMART_REFRESH | ACTIVATE | WINDOWDRAG |
*		WINDOWDEPTH | WINDOWSIZING | NOCAREREFRESH

*  Type       = CUSTOMSCREEN