**dian s 2005
**contoh sederhana pemakaian TRY ... CATCH FINALLY
LOCAL x as String,y as Number,z as Number 
LOCAL oError AS Exception,oError1 as Exception 
CLEAR
x='1'
y=1
z=0
	
TRY 
   z = x + y
	CATCH TO oError
	? oError.Message
FINALLY
	IF oError.ErrorNo = 107   && Operator/operand type mismatch
		? 'Pastikan data anda benar !'   
		**z = val(x) + y
	ENDIF 
ENDTRY