LISTING 1 - CONSTRUCTOR EVENT FOR JRSPELL USER OBJECT

this.object.UILanguage = 0 //english
this.object.SelectionColor = 255
this.object.WordBookName = ""
this.object.WordBookPath = ""
IF this.object.LoadWordbook(1) = False Then  //Use word dictionary
	MessageBox ( "JRSpell", "The MS-Word dictionary was not found. The lokal dictionary will
	 now be loaded" )
    this.object.WordBookName = "english.jsp"
    IF this.object.LoadWordbook(0) = False Then
        MessageBox ( "JRSpell", "The dictionary was not found. Spell checking is disabled" )
    End If
End If


LISTING 2 - INITIATING SPELL CHECKING WITH THE WSPELL UTILITY

this.object.TextControlHWnd = hWin
this.object.ShowDialog = TRUE
this.object.ShowContext = FALSE
this.object.Start ( )


LISTING 3- EMBEDDING A RTF TABLE

function of_rtetable (integer ai_rows, integer ai_columns) returns string

long ll_CellSize, ll_CurrCol, ll_CurrRow
string ls_Return

ls_Return = "{\rtf1\ansi~r~n" + &
		"\pard \sl0~r~n"

// presumes a table width of 9360, which is a letter page with 1 inch margins
ll_CellSize = 9360 / ai_Columns

FOR ll_CurrRow = 1 TO ai_Rows
	ls_Return += "\trowd \trqc\trgaph100\trrh403\trkeep~r~n"
	FOR ll_CurrCol = 1 TO ai_Columns
		ls_Return += "\clbrdrt\brdrs\brdrw15 \clbrdrl\brdrs\brdrw15 \cellx" + String
		 (ll_CellSize * ll_CurrCol) + "~r~n"
	NEXT
	FOR ll_CurrCol = 1 TO ai_Columns
		ls_Return += "\pard \intbl "
		// ls_Return += "{\plain \fs20 Put cell text here}"
		ls_Return += "\cell~r~n"
	NEXT
	ls_Return += "\pard \intbl \row~r~n"
NEXT

ls_Return += "\pard }"

RETURN ls_Return