CloseWorkbench:	equ	-78
OpenWorkbench:	equ	-210
OpenLibrary:	equ	-408
CloseLibrary:	equ	-414
wbenchFront:	equ	-342
wbenchback:	equ	-336

	move.l	4.w,a6
	lea	intname,a1
	moveq	#0,d0

	jsr	OpenLibrary(a6)

	move.l	d0,Intbase

	beq	Error
	move.l	Intbase,a6
	jsr	CloseWorkbench(a6)

;	move.l	4.w,a6
;	lea	Intbase(pc),a1
;	jsr	closelibrary(a6)

error:	rts

Intname:
	dc.b	'intuition.library',0
Intbase:
	ds.l	1