Public Function whichFlashVersion()
	Dim i, x, flashFound
	On Error Resume Next
	whichFlashVersion = 0
	For i = 15 To 1 Step -1
		Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
		flashFound = IsObject(x)
		If flashFound Then
			whichFlashVersion = i
			Exit For
		End If
	Next
End Function

Sub veh_FSCommand(ByVal command, ByVal args)
	Call extract(command, args)
End Sub

Sub ele_FSCommand(ByVal command, ByVal args)
	Call extract(command, args)
End Sub

Sub rhi_FSCommand(ByVal command, ByVal args)
	Call extract(command, args)
End Sub

Sub che_FSCommand(ByVal command, ByVal args)
	Call extract(command, args)
End Sub

Sub war_FSCommand(ByVal command, ByVal args)
	Call extract(command, args)
End Sub

Sub gir_FSCommand(ByVal command, ByVal args)
	Call extract(command, args)
End Sub

Sub fis_FSCommand(ByVal command, ByVal args)
	Call extract(command, args)
End Sub

Sub soc_FSCommand(ByVal command, ByVal args)
	Call extract(command, args)
End Sub