Program pengacakan kata

'Penambahan tombol-tombol control
kata = Controls.AddTextBox(0,0)
translate = Controls.AddButton("acak bro..",200,0)
hasil = Controls.AddMultiLineTextBox(0,100)
GraphicsWindow.show()

teks1 = Shapes.AddText("Kata yang akan diacak:")
xtext1 = Shapes.GetLeft(teks1)
Shapes.Move(kata, xtext1, 20)
ykata = Shapes.GetTop(kata)
xkata = Shapes.GetLeft(kata)
Shapes.Move(translate, xkata + 160, ykata)

'pendefensian even-handlers untuk controls
controls.ButtonClicked = tomboldiklik

'sub-sub
sub tomboldiklik
  If Controls.LastClickedButton = translate then
    datapengacakan = Controls.GetTextBoxText(kata)
    For i = 1 To Text.GetLength(datapengacakan)
    a[i] = Text.GetSubText(datapengacakan, i,1)
    b[i] = Text.GetCharacterCode(a[i]) + 1
    c[i] = Text.GetCharacter(b[i])
    d = Text.Append(d, c[i])
    Controls.SetTextBoxText(hasil, d )
    EndFor
  EndIf
EndSub