DEFINE CLASS myclass AS SESSION OLEPUBLIC
	*
	IMPLEMENTS IVSFlexDataSource IN "c:\windows\system32\vsflex8u.ocx"
	*
	PROTECTED FUNCTION IVSFlexDataSource_GetFieldCount() AS Integer
		MESSAGEBOX("GetFieldCount",  64 , "IVSFlexDataSource")
		RETURN  4 
	ENDFUNC
	*
	PROTECTED FUNCTION IVSFlexDataSource_GetFieldName(Field AS Number) AS Integer
		MESSAGEBOX("GetFieldName",  64 , "IVSFlexDataSource")
		LOCAL res
		res = "name"
		DO CASE
			CASE Field =  0 
				res = "Angle (Deg)"
			CASE Field =  1 
				res = "Angle (Rad)"
			CASE Field =  2 
				res = "Sine"
			CASE Field =  3 
				res = "Co-Sine"
		ENDCASE
		RETURN res
	ENDFUNC
	*
	PROTECTED FUNCTION IVSFlexDataSource_GetRecordCount() AS Integer
		MESSAGEBOX("GetRecordCount",  64 , "IVSFlexDataSource")
		RETURN  360 
	ENDPROC
	*
	PROTECTED FUNCTION IVSFlexDataSource_GetData(Field AS Number, Record AS Number) AS STRING
		MESSAGEBOX("GetData",  64 , "IVSFlexDataSource")
		LOCAL res
		res = NULL
		DO CASE
			CASE Field =  0 
				res = Record
			CASE Field =  1 
				res = Record /  180  *  3 . 1416 
			CASE Field =  2 
				res = Sin(Record /  180  *  3 . 1416 )
			CASE Field =  3 
				res = Cos(Record /  180  *  3 . 1416 )
		ENDCASE
		RETURN res
	ENDFUNC
	*
	PROTECTED PROCEDURE IVSFlexDataSource_SetData(Field AS Number, Record AS Number, newData AS STRING) AS VOID
		MESSAGEBOX("This data is read-only.",  64 , "IVSFlexDataSource")
	ENDPROC
	*
ENDDEFINE