home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / ch08_lgo / tutor.dcr / 00270.txt < prev    next >
Encoding:
Text File  |  1996-12-06  |  326 b   |  12 lines
  1. global gParamNum, gParamNameList
  2.  
  3. on startMovie
  4.    set gParamNum = externalParamCount()
  5.    if gParamNum then
  6.       if voidP(gParamNameList) then set gParamNameList = [:]
  7.       repeat with n = 1 to gParamNum
  8.          set parName = externalParamName(n)
  9.          setAProp gParamNameList, n, parName
  10.       end repeat
  11.    end if
  12. end