*****************************************************************************
*									    *
*	   PART: Alert							    *
*	VERSION: 1.0							    *
*   SOURCE CODE: 1							    *
*	   DATE: 3.5.2002						    *
*      LANGUAGE: Assembler (DevPac V3.14)				    *
*	 SYSTEM: A1200	KS 40.68 WB 40.42 2MB chip 64MB fast 68030/50mhz    *
*									    *
*	 AUTHOR: Joerg Riemer 14167 Berlin/SchottmuellerStr.107/Germany	    *
*	  EMAIL: joerg_riemer@freenet.de / mission@cs.tu-berlin.de 	    *
*									    *
* 	COMMENT: Alert creates a recoverable guru meditation just for	    *
*		 testing LAlert. see LAlert.s for more information.	    *
*									    *
*****************************************************************************

		move.l	#"HELP",D7
		lea	array(pc),A5

		movea.l	4.w,A6
		jsr	-108(A6)

		moveq	#0,D0
		rts

*****************************************************************************

array		dc.l	-1

 end of source **************************************************************