tldm-universe/Ardent/UV/BP/SET-LPTR

52 lines
1.5 KiB
Plaintext
Raw Permalink Normal View History

2024-09-09 21:51:08 +00:00
******************************************************************************
*
* 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