break on
dim $SO
$SO=setoption('explicit','on')
$SO=setoption('novarsinstrings','on')
$SO=setoption('nomacrosinstrings','on')
 
dim $COMPUTERlIST, $PRINTERARRAY, $COMP, $PRINTER
$COMPUTERLIST = split('forest',',')
for each $COMP in $COMPUTERLIST
  if $COMP
    $PRINTERARRAY=printerlist($COMP)
    for each $PRINTER in $PRINTERARRAY
      'Computer: ' + $COMP + '  ' + $PRINTER ?
    next 
  endIf
next