position of field "title" = 100,200

step num from 1 to pageCount of this book
	if isObject(field  "title" of page num) = true
		position of field "title" of page num = 100,200
	end if
end step

position of commandWindow = 0,0

put script of button "button 1"

execute commandWindow

to handle buttonClick
	request getSectionNames("c:\desktop\asym.ini")
end

-- put the following code in your book script
-- note that the R.SBK is required for this to
-- work.
to get getSectionNames fName
	if ASYM_IsFile(fName) <> true
		return null
	end

	allNames = null

	closeFile fName
	openFile fName
	readFile fName to EOF
	allData = IT

	step k from 1 to textlineCount(allData)
		curTextline = ASYM_Trim(textline k of allData)
		ct = charCount(curTextline)
		if char 1 of curTextline = "[" and \
		  last char of curTextline = "]"
			push chars 2 to (ct - 1) of curTextline onto allNames
		end
	end

	return allNames
end

if (randomizeAnswers == true) {
	master_mc.randomizeAnswerLocations(this, answerObjectNames);
}

public function randomizeAnswerLocations(movieId:MovieClip, contentMovieId:MovieClip, answerObjectNames:Object):Void {
	var targetId; // no type since can be CheckBox, RadioButton, etc.
	var randomNum:Number;
	var keyId:String;
	var objectsLocationArray:Array = new Array();
	var objectsCounter:Number = 0;
	var success:Boolean;
	var n:Number;
	
	for (keyId in answerObjectNames) {
		objectsLocationArray[objectsCounter] = answerObjectNames[keyId];
		objectsCounter ++;
	}
		
	for (var keyId in answerObjectNames) {
		targetId = contentMovieId[keyId];
		
		if (targetId != undefined) {
			success = false;
			while (success == false) {
				randomNum = Math.floor(Math.random() * objectsCounter); // between 0 and the number of objects
				if (objectsLocationArray[randomNum] != "used") {
					targetId._x = objectsLocationArray[randomNum].x;
					targetId._y = objectsLocationArray[randomNum].y;
					objectsLocationArray[randomNum] = "used";
					success = true;
				}
			}
		}
	}
}

#Region "Variables"
    Private tDataSet As DataSet = TrackingDataSet
    Private Const tableName As String = "Reviewers"
    Private Const columnWidth As Integer = 134
#End Region

#Region "Event Handlers"
    Private Sub ReviewersEditor_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If tDataSet IsNot Nothing Then
            With ReviewersSource
                .Clear()
                .DataSource = tDataSet
                .DataMember = tableName
                .AllowNew = False
            End With

            With ReviewersGridView
                .DataSource = ReviewersSource
                .Columns("ReviewerId").Visible = False

                Dim columnId As DataGridViewColumn = .Columns("FirstName")

                With columnId
                    .HeaderText = FirstNameHeader_Label.Text
                    .Width = columnWidth
                End With

                columnId = .Columns("LastName")
                With columnId
                    .HeaderText = LastNameHeader_Label.Text
                    .Width = columnWidth
                End With

                columnId = .Columns("Organization")
                With columnId
                    .HeaderText = OrganizationHeader_Label.Text
                    .Width = columnWidth
                End With

                columnId = .Columns("ContactNumber")
                With columnId
                    .HeaderText = ContactNumberHeader_Label.Text
                    .Width = columnWidth
                End With

                columnId = .Columns("EmailAddress")
                With columnId
                    .HeaderText = EmailAddressHeader_Label.Text
                    .Width = columnWidth
                End With
            End With
        End If
    End Sub
#End Region