load 'macros.dump'
	include 'driver.equ'
	include 'wp.equ'

;-----------------------------------------------
;
;   Imported addresses
;
;-----------------------------------------------

	IMPORT	D_AlertBox
	
********************************************************************
*
*
*	includes...
*
*
*
* Wednesday, May 3, 1989 4:54:13 AM
********************************************************************


		ENTRY	W_Thesaurus
		ENTRY	W_EditUserDict
	
	
	

****************************************************************
W_CheckSpelling	PROC		EXPORT

	Case	Object
		EXPORT	W_Thesaurus
		EXPORT	W_EditUserDict
W_Thesaurus		;		
W_EditUserDict		;		
		Case	Off
		spaceword
		pushword #OKBox
		pushlong #FuckOff
		jsl	  D_AlertBox
		pla
		rtl

FuckOff	str 'The spelling checker and thesaurus are not available.'

		ENDP
		END