clear
set procedure to getBINinfo.cc
r = new report()
r.printer.chooseprinter()
cPrinter = r.printer.printername
x = new getBINinfo(cPrinter,'0')
?cPrinter
?
?'Paper bins'
for i = 1 to x.aBinNames.size
      ? x.aBins[i]
      ?? '    '+ x.aBinNames[i]
   endfor
?
?'Paper sizes'
for i = 1 to x.aSourceNames.size
   ? x.aSources[i]
   ?? "     " + x.aSourceNames[i]
endfor