Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/ch08_lgo/tutor.dcr/00275.txt

Text File | 1996-12-06 | 378 b | 13 lines

global gParamNum, gParamNameList
on startMovie
   set gParamNum = externalParamCount()
   if gParamNum then
     if voidP(gParamNameList) then set gParamNameList = [:]
      repeat with n = 1 to gParamNum
         set parName = externalParamName(n)
         set parValue = externalParamValue(n)
         setAProp gParamNameList, parName, parValue
      end repeat
   end if
end