#Script Version="5.9.3"
#Script Name="AnotherTest"
#Script Title="Plugin tester Too"
#Script Description="This plugin is a test for the scripter too"

Public $sParmInfo as string = ""

  Dim s As String = "Class Info String"
  Dim i As Variant = s
  Dim sSum as string= ""
  
  print "*************************************************"
  testptr(i)
  
  for each s as string in param
    testptr(s)
    sSum &= s & " , "
  next
  
  return "Sum ["&sSum&"]"
  
Public Sub testptr(data As Variant)
 Dim j As Pointer
  
  j = VarPtr(data)

  Print "Input =", j, data
  
  print "New Parm was : ";;Quote($sParminfo)
  
End

public sub _new(...)
  dim parminfo as string = ""
  for each v as variant in param
    ParmInfo &= quote(cstr(v)) & ","
  next
  print "defined Version = "& $sVersion &"  Parminfo = ";ParmInfo
  Print $sName
  $sParmInfo = parminfo
  
end
