added LSL2 stored procedures

LSL2/STPROC/PRINTSETUPNEW.txt

@@ -0,0 +1,19 @@
+function PrintSetupNew(Printers, Default)
+
+declare function SET_PRINTER, Get_Printer
+DECLARE subroutine Msg
+
+PrintCount	= 0
+Printers	= ''
+Default		= ''
+
+Init		= Set_Printer('INIT', '', '', '', '', 3 : @VM : @VM : 1 : @VM : 3, '', '', '', '')
+Printers	= Get_Printer('DEVICES')
+CurrentPort	= Get_Printer('CURRENTPORT')
+Ports		= Get_Printer('PORTS')
+rv			= Set_Printer('TERM')
+
+Printers[-1, 1]	= ''
+PrintCount		= DCount(Printers, @FM)
+Msg(@Window, '','OK', '', 'Title':@FM:'Printers=':Printers)
+return PrintCount