AddLabl	L_IFonc			+++ Illegal function call
	moveq	#23,d0
	Rjmp	L_Error

	AddLabl	L_Custom
	lea	.ErrMes(pc),a0
	moveq	#0,d1			* Can be trapped
	moveq	#0,d3			* IMPORTANT!!!
	moveq	#ExtNb,d2		* Number of extension
	Rjmp	L_ErrorExt		* Jump to routine...
.ErrMes
	IFEQ	Languag-English
	dc.b	"Couldn't get memory for the samples",0
	dc.b	"Error during initialization",0			*3
	ENDC
	IFEQ	Languag-Deutsch
	dc.b	"Kein Speicher mehr für die Samples",0
	dc.b	"Fehler während der Initialisierung",0		*3
	ENDC
	even

	AddLabl	L_Custom2
	moveq	#0,d1
	moveq	#-1,d3
	moveq	#ExtNb,d2
	Rjmp	L_ErrorExt