execbase = 4
OpenLib	 = -552
CloseLib = -414


AutoRequest = -348

	move.l	execbase,a6
	lea	intuiname,a1
	moveq	#0,d0
	jsr	OpenLib(a6)
	tst.l	d0
	beq	_nointuition

	move.l	d0,a6

requ:
	move.l	#0,a0		; WBSCREEN
	lea	btext,a1	; Bodytext
	lea	ltext,a2	; Lefttext
	lea	rtext,a3	; Righttext
	move.l	#0,d0		; IDCMP left
	move.l	#0,d1		; IDCMP right
	move.l	#180,d2
	move.l	#80,d3
	jsr	AutoRequest(a6)

auswertung:
	tst.l	d0		; welcher Knopf (0=rechts)
	beq	requ		

	move.l	a6,a1
	move.l	execbase,a6
	jsr	CloseLib(a6)
	
_nointuition:
	rts


intuiname:
	dc.b "intuition.library",0
	even
intuibase:
	dc.l 0

btext:
	dc.b	0,1	; Farben
	dc.b	0	; Modus
	even
	dc.w	10,10	; Text-Position
	dc.l	0	; topaz
	dc.l	bodytext
	dc.l	0	; kein weiterer Text
bodytext:
	dc.b "Programm beenden?",0
	even

ltext:
	dc.b	0,1	; Farben
	dc.b	0	; Modus
	even
	dc.w	5,3	; Text-Position
	dc.l	0	; topaz
	dc.l	lefttext
	dc.l	0	; kein weiterer Text
lefttext:
	dc.b "Ja",0
	even

rtext:
	dc.b	0,1	; Farben
	dc.b	0	; Modus
	even
	dc.w	5,3	; Text-Position
	dc.l	0	; topaz
	dc.l	righttext
	dc.l	0	; kein weiterer Text
righttext:
	dc.b "Nein",0
	even


 END