Sub Activity_Create (FirstTime As Boolean)
Dim options As Map
Dim scores As List
options.Initialize
scores.Initialize
options.Put("Option 1", False)
options.Put("Option 2", False)
options.Put("Option 3", False)
scores.AddAll(Array As Int(2, 1, 4))
InputMap(options, "Choose options")
Dim score As Int
For i = 0 To options.Size - 1
If options.GetValueAt(i) = True Then score = score + scores.Get(i)
Next
Msgbox("Score=" & score, "")
End Sub