; only be tested with expname.library V 2.1

	INCDIR	Include:
	INCLUDE	lvo/exec_lib.i
	INCLUDE	lvo/expname_lib.i

start:
	movem.l	a2/a6,-(a7)
	move.l	4.w,a6
	lea	expname(pc),a1
	moveq	#2,d0
	jsr	_LVOOpenLibrary(a6)
	tst.l	d0
	beq.s	.end

	move.l	d0,a6	
	lea	mbuffer(pc),a0
	lea	pbuffer(pc),a1
	sub.l	a2,a2

	move.w	#$872,d0	;Manufacturer
	move.b	#$01,d1		;Product


	jsr	_LVOGetExpName(a6)

				;Crash happens now !
				;this is only a example !!

	move.l	a6,a1
	move.l	4.w,a6
	jsr	_LVOCloseLibrary(a6)

.end:
	movem.l	(a7)+,a2/a6
	moveq	#0,d0
	rts

expname:	dc.b	"expname.library",0

mbuffer:	blk.b	50,0	;Manufacturer Name
pbuffer:	blk.b	50,0	;Product Name