Pada segitiga siku-siku terdapat 4 parameter yaitu x, y, r dan alfa.
Jika 3 dari 4 diketahui maka parameter yang lain bisa diketahui.
Controls.ButtonClicked = bc
mlt = Controls.AddMultiLineTextBox(0,0)
button1 = Controls.AddButton("Proses", 200, 0)
i = 0
Sub bc
if Controls.LastClickedButton = button1 Then
takemlttext = Controls.GetTextBoxText(mlt)
index = Text.GetIndexOf(takemlttext, " ")
While index <> 0
word[i] = Text.GetSubText(takemlttext, 1, index - 1)
takemlttext = Text.GetSubTextToEnd(takemlttext, index + 1)
index = Text.GetIndexOf(takemlttext, " ")
TextWindow.WriteLine(word[i])
i = i + 1
EndWhile
EndIf
EndSub