*««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««*
	*
	*   Example name
	*	DFEasyReq.s 1.0 (12.3.96)
	*
	*   Function
	*	Demostrates the requester function. A interface to intutiton/
	*	EasyRequestArgs()
	*
	*   Inputs
	*	Window	- pointer to a window or null.
	*	Text	- pointer to a null terminated ascii text
	*	Args	- pointer to an arg array if needed in the text.
	*	Title	- pointer to a title for the req. or null
	*	GadTit	- pointer to a gadget title(s). NEEDED!
	*
	*   Outputs
	*	Gadget number, 1...N = leftmost, 0 =rightmost (false)
	*
	*   Notes
	*	You may need to modify some of the include paths.
	*	You will of course also need the dfunc package which should
	*	contain includes and macros for the dfunc.library.
	*
	*	Also set UCASE = LCASE for my sources.
	*
	*   Bugs
	*	
	*   Created	: 12.3.96
	*   Last change	: 12.3.96
	*»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*

*## For the Startup.asm:

StartSkip	=	0		;0=WB/CLI, 1=CLI only  (AsmOne)
Processor	=	0		;0/680x0/0x0
MathProc	=	0		;0/68881/68882/68040/68060

*## Default includes:

		Incdir	""

** external includes and lvos:

		Include	lvo:intuition.lvo

** includes from our DFuncXXXX.lha archive:

		Include	lvo:dfunc.lvo

		Incdir	inc:

		Include	digital.macs
		Include	digital.i
		Include	dfunc/dfunc.i

		Include	startup.asm

		Incdir	""

	dc.b	"$VER: DFEasyReq 1.0 (12.3.96)",0
	even
*»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*
Init	DefLib	dfunc,38		;open our library (newstartup macro)
	DefEnd

Start	LibBase	dfunc			;use dfunc.library base (a6) (macro)

*** This is the dfunc.library function we demostrate:

	lea	$0.w,a0		;we need no window for this test
	lea	Text(pc),a1	;requester text
	lea	Args(pc),a2	;no args
	lea	Title(pc),a3	;title of requester
	lea	GadTit(pc),a4	;title of gadget(s)

	DCall	EasyReq		;call function
***
*	You can use a pointer to a window or null (=WBench/public)
*	You need a pointer to a text (null-terminated)
*	You need a pointer to an argument array if format tags in text
*	You can use a pointer to a title text (else = window text)
*	You MUST give a pointer to a gadget text
***

	lea	Left(pc),a0		;text for left gadget
	tst.l	d0			;or was it right?
	bne.b	.ok			;no, it was left..
	lea	Right(pc),a0		;if right, then use this text
.ok	DCall	WriteStd		;print to shell (or StdIO)
*·············································································*
Close	Return	0			;Exit with 0 in d0 (macro)
*»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*
Args	dc.l	38

Text	dc.b	"Hello everyone!",10,10
	dc.b	"This is a requester test to see how dfunc.library v%ld",10
	dc.b	"handles requesters.",0
Title	dc.b	"dfunc.library/DFEasyReq",0
GadTit	dc.b	"OK|OK",0
Left	dc.b	"You pressed left gadget",10,10,0
Right	dc.b	"You pressed right gadget",10,10,0
*»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»*