• Off Campus ($780)
• Windom House Double ($855)
• Windom House Single ($925)
• CC Inn Single ($975)
• Apartment Multiple Occupancy ($975)
• Apartment Single ($1,175)

• One Preconference Session ($150)
• Two Preconference Sessions ($285)
• Three Preconference Sessions ($420)
• Four Preconference Sessions ($555)

• Apple iPhone/iPod Support
• Safari Browser Support
• Voice Recording
• Enhanced Right-Click Menus
• Ability to Hide the Universal Media Player

to handle buttonClick
	-- Update this line with the reference to 
	-- the file you wish to save.
	fName = "c:\temp.doc"

	-- Update this line with the reference to 
	-- your field.
	select text of field "foo"
	send copy

	bs = ASYM_BlockSuspend()
	wordObject = 
		createAutoObject("Word.Application")
	err = ASYM_RestoreSuspend(bs)

	if err <> NULL OR wordObject = NULL
		request "Can't open Word"
		break
	end

	bs = ASYM_BlockSuspend()
	emptyDoc = extAdd() of extDocuments of 
		wordObject
	err = ASYM_RestoreSuspend(bs)

	if err <> NULL OR emptyDoc = NULL
		request "Can't create a new document"
		get closeAutoObject(wordObject)
		break
	end

	bs = ASYM_BlockSuspend()
	get extSaveAs(fName) of emptyDoc
	err = ASYM_RestoreSuspend(bs)

	if err <> NULL
		request "Error saving Word Document"
		get closeAutoObject(wordObject)
		break
	end

	get extPaste() of extSelection of wordObject

	-- save and close the storyBoard file
	get extSave() of emptyDoc
	get extClose(0) of emptyDoc
end

-- Close the Automation Object
to get closeAutoObject obj
	bs = ASYM_BlockSuspend()
	get extQuit(0) of obj
	get ASYM_RestoreSuspend(bs)
	return null
end

LMSSetValue( "cmi.core.lesson_location", [URL to current page] );
LMSSetValue( "cmi.core.exit", "" );
LMSSetValue( "cmi.core.lesson_status", "completed" );
LMSSetValue( "cmi.core.score.min", [min score for book] );
LMSSetValue( "cmi.core.score.max", [max score for book] );
LMSSetValue( "cmi.core.score.raw", [actual score achieved] );
LMSSetValue( "cmi.core.session_time", [accumulated time spent in lesson] );

LMSCommit();
LMSFinish();

If P1begininning = true
  Set visible of Auto-Sizing Field "P1 Text Field" to true
  Set visible of Hotspot Area "P1Hotspot" to true
  Set enabled of Hotspot Area "P1Hotspot" to true
Else
  Set visible of Auto-Sizing Field "P1 Text Field" to false
  Set visible of Hotspot Area "P1Hotspot" to false
  Set enabled of Hotspot Area "P1Hotspot" to false
End if

Set P1begininning to true

Define local variable "showP1" (Initial value: "")

Set showP1 to P1begininning = true or P1begininning = "true"

Set visible of Auto-Sizing Field "P1 Text Field" to showP1
Set visible of Hotspot Area "P1Hotspot" to showP1
Set enabled of Hotspot Area "P1Hotspot" to showP1

master_mc.setAnswerFont(this, 1, 8, "16", true);  
        //Sets up the font size and font weight (Bold = true)

function setAnswerFont(contentMovieId:MovieClip, startingNumber:Number, 
        endingNumber:Number, fontSize:String, isBold:Boolean):Void {
    
    studioClassId.setAnswerFont(parentMc, contentMovieId, startingNumber, 
        endingNumber, fontSize, isBold);
}

public function setAnswerFont(movieId:MovieClip, contentMovieId:MovieClip, startingNumber:Number, 
        endingNumber:Number, fontSize:String, isBold:Boolean):Void {
    var objectId;
    var num:Number;
		
    for(num=startingNumber; num<=endingNumber; num++) {
        objectId = contentMovieId["answer_" + num];
        if (objectId != null) {
            objectId.setStyle("fontSize",fontSize);
            if (isBold == true) {
                objectId.setStyle("fontWeight","bold");
            }
        }
    }
}

Private Sub BuildResourceList(ByVal dirName As String, ByRef listId As List(Of String), _
    ByVal dirInfoId As DirectoryInfo, ByVal skipHelpImageReports As Boolean, ByVal skipCodeFiles As Boolean)
    
	Dim fileInfoArray As FileInfo() = dirInfoId.GetFiles()
	Dim fileInfoId As FileInfo
	Dim fileVersionInfoId As FileVersionInfo
	Dim fileName As String

	For Each fileInfoId In fileInfoArray
		fileName = fileInfoId.FullName
		If skipCodeFiles = False OrElse fileInfoId.Extension <> ".vb" Then
			fileVersionInfoId = FileVersionInfo.GetVersionInfo(fileName)
			If fileVersionInfoId.FileVersion IsNot Nothing Then
				listId.Add(String.Format("{0}{1}{2}{1}{3}{1}{4}", FormatRelativePath(dirName, _
				    fileName), ControlChars.Tab, fileInfoId.LastWriteTime.ToShortDateString, _
				    fileInfoId.LastWriteTime.ToShortTimeString, fileVersionInfoId.FileVersion))
			Else
				listId.Add(String.Format("{0}{1}{2}{1}{3}", FormatRelativePath(dirName, _
				    fileName), ControlChars.Tab, fileInfoId.LastWriteTime.ToShortDateString, _
				    fileInfoId.LastWriteTime.ToShortTimeString))
			End If
		End If
	Next
	' Add subdirectory info
	Dim directoryInfoArray As DirectoryInfo() = dirInfoId.GetDirectories()
	Dim directoryInfoId As DirectoryInfo

	For Each directoryInfoId In directoryInfoArray
		Dim subDirName As String = FormatRelativePath(dirName, directoryInfoId.FullName)
		Dim isHelpImageReports As Boolean = (subDirName.ToLower.Contains("images") = True OrElse _
		    subDirName.ToLower.Contains("help") = True OrElse subDirName.ToLower.Contains("reports") = True)

		If skipHelpImageReports = False OrElse isHelpImageReports = False Then
			listId.Add(String.Format("------{0}-------", subDirName))
			BuildResourceList(dirName, listId, directoryInfoId, skipHelpImageReports, skipCodeFiles)
		End If
	Next
End Sub

Private Function FormatRelativePath(ByVal dirName As String, ByVal inputPath As String) As String
	Dim returnString As String = inputPath

	If returnString.StartsWith(dirName) = True Then
		returnString = returnString.Substring(dirName.Length + 1)
	End If

	Return returnString
End Function