SUB myPD_Movie_ScriptCommand(SAMIType, CCHTML)
  Dim MidString, MyPos_L, DetailString, BottomString, MyPos_D, MyPos_S, MyPos_W, s_opt, s_name, i_temp

  IF (SAMIType = "Text") Then
    MyPos_D = Instr(CCHTML, "@@")
    MyPos_S = Instr(CCHTML, "$$Event")
    MyPos_W = Instr(CCHTML, "@#")

    IF (MyPos_D > 0 or MyPos_S > 0 or MyPos_W > 0) Then
      IF (MyPos_D > 0) Then
        DetailString = Trim(Mid(CCHTML, MyPos_D+2, 80))

        IF (Instr(DetailString, "http://") > 0) Then
          DetailString = DetailString
        Else
          DetailString = "doc/" & DetailString
        End IF

        content.location.href = DetailString
      End IF

	  IF (MyPos_W > 0) Then
	     DetailString = Trim(Mid(CCHTML, MyPos_W+2, 80))

        IF (Instr(DetailString, "http://") > 0) Then

			nNum = Instr(DetailString, " [")
			sURL = Left(DetailString,nNum-1)

			strtmp = Trim(Mid(DetailString, nNum+2, 80))

			istr1    = Instr(strtmp,",")
			s_top    = Left(strtmp,istr1-1)
			strtmp1  = Trim(Mid(strtmp, istr1+1, 80))
			istr2    = Instr(strtmp1,",")
			s_left   = Left(strtmp1,istr2-1)
			strtmp2  = Trim(Mid(strtmp1, istr2+1, 80))
			istr3    = Instr(strtmp2,",")
			s_width  = Left(strtmp2,istr3-1)
			strtmp3  = Trim(Mid(strtmp2, istr3+1, 80))
			istr4    = Instr(strtmp3,"]")
			s_height = Left(strtmp3,istr4-1)

			s_opt = "top="
			s_opt = s_opt & s_top
			s_opt = s_opt & ",left="
			s_opt = s_opt & s_left
			s_opt = s_opt & ",toolbar=0"
			s_opt = s_opt & ",status=0"
			s_opt = s_opt & ",menubar=0"
			s_opt = s_opt & ",copyhistory=0"
			s_opt = s_opt & ",scrollbars=0"
			s_opt = s_opt & ",directories=0"
			s_opt = s_opt & ",resizable=0"
			s_opt = s_opt & ",width="
			s_opt = s_opt & s_width
			s_opt = s_opt & ",height="
			s_opt = s_opt & s_height

            i_temp = (Hour(Now) * 3600) + (Minute(Now) * 60) + Second(Now)
			s_name = "w" & FormatNumber(i_temp,0,0,0,0)

			Newwindow=window.open(sURL,s_name,s_opt)
        End IF
	  End IF

      IF (MyPos_S > 0) Then
        EventOn()
      End IF
    Else
      myPD_Caption.innerHTML = CCHTML
    End IF
  End If
End Sub