******************************************************************************
*
*	Routine to handle UniVerse Spooled Device Management
*
*	Module	%M%	Version	%I% 	Date	%H%	
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description........................................
*	10/13/98 23801 RGA Change copyright info.
*	11/10/92 10549 TMC New file
*
*******************************************************************************
*
*spooler
*created by: rj
*last modified by:
*rev 1.0
*
*  SET-LPTR command always prompts for information
*            defaults for null responce is 140,60
*            then display term command just like Ultimate
*
1 *
print "PRINTER PAGE WIDTH(#COLUMNS)":
input columns
if columns = "" then columns = 140
if columns < 16 or columns > 156 then
  print "VALUE MUST BE WITHIN RANGE (16-156)"
  GOTO 1
END
2 *
print "PRINTER PAGE DEPTH(#LINES)":
input lines
if lines = "" then lines = 60
if lines < 0 or lines > 132 then
   print "VALUE MUST BE WITHIN RANGE (0-132)"  
   GOTO 2
END
* let's change values in term
execute "TERM ,,,,,,":columns:",":lines 
* let's display it now       
execute "TERM"
end