dim varList

varList = world.GetVariableList

If Not IsEmpty (varList) Then
  
  For Each v In varList 
    world.note v & " = " &  world.GetVariable (v)
  Next

End If

variablelist = new VBArray(world.GetVariableList()).toArray();

if (variablelist)  // if not empty
 for (i = 0; i < variablelist.length; i++)
   world.note(variablelist [i] + " = " + 
       world.GetVariable(variablelist [i]));

foreach $item (Win32::OLE::in ($world->GetVariableList))
 {
 ($key, $value) = ($item, $world->GetVariable ($item));
 $world->note($key . " = " . $value) if (defined ($key));
 }

variablelist = world.GetVariableList
if (variablelist ):
  for v in variablelist : world.Note (v + " = " +
                  world.GetVariable(v))

-- show all variables and their values

for k, v in pairs (GetVariableList()) do 
  Note (k, " = ", v) 
end

Under Lua this function returns a table of all variables and their values, 
keyed by the variable name.

Thus you can directly access variables from the table, like this:

-- show value for variable "victim" ...

print (GetVariableList ().victim)

If there are no variables then the return value is empty. Use "IsEmpty" to test for this possibility.
Otherwise, it returns a variant array containing the names of all the variables. Use "lbound" and "ubound" to find the bounds of the array of variables (ie. the number of variables in the list). You can then use "GetVariable" to find the contents of each variable.