********************************************************************************
*
*	Support of PR1ME INFORMATION verb - DELAY
*
*	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/14/98 23801 SAP Change copyrights. 
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
*******************************************************************************

$OPTIONS DEFAULT

*	Get paramaters from input line
	delay1 = field(@sentence," ",2)
	delay2 = field(@sentence," ",3)
	delay3 = field(@sentence," ",4)

	if (delay1 # "" and not(num(delay1))) or (delay2 # "" and not(num(delay2))) or (delay3 # "" and not(num(delay3))) then
		@SYSTEM.RETURN.CODE = -1
		stop "Invalid token on command line."
	end

	delay1 = iconv(delay1, "mo")
	delay2 = iconv(delay2, "mo")
	delay3 = iconv(delay3, "mo")

*	Supply defaults
	if delay1 = "" or delay1 = 0 then delay1 = 6
	if delay2 = "" or delay2 = 0 then delay2 = 12
	if delay3 = "" or delay3 = 0 then delay3 = 72

*	Compute average delay based on line length
	begin case
	case delay3 > 72
		delay = (delay1+delay2+delay2)/3
	case delay3 = 72
		delay = (delay1+delay2)/2
	case delay3 < 72
		delay = (delay1+delay1+delay2)/3
	end case

*	Adjust for 300 baud (30 cps)
	delay = delay/30

*	Compute LFdelay factor
	begin case
	case delay >= .46
		lfdelay = 8
	case delay >= .38
		lfdelay = 7
	case delay >= .30
		lfdelay = 6
	case delay >= .26
		lfdelay = 5
	case delay >= .18
		lfdelay = 4
	case delay >= .16
		lfdelay = 3
	case delay >= .10
		lfdelay = 2
	case delay >= .08
		lfdelay = 1
	case 1
		lfdelay = 0
	end case

*	Execute the command to change delay
	execute "PTERM LFDELAY ":lfdelay returning @SYSTEM.RETURN.CODE