178 lines
4.2 KiB
Plaintext
Executable File
178 lines
4.2 KiB
Plaintext
Executable File
subroutine DISP.SP.OPTS( RESULT, REC )
|
|
*******************************************************************************
|
|
*
|
|
* Display "sp.config" options for printers in &DEVICE&
|
|
*
|
|
* 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.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
*
|
|
|
|
RESULT = ""
|
|
|
|
if REC< 6 > then
|
|
RESULT = "Driver: " : REC< 6 > : "; "
|
|
end
|
|
|
|
if REC< 7 > then
|
|
RESULT := "Form: " : REC< 7 > : "; "
|
|
end
|
|
|
|
begin case
|
|
case REC< 8 > = 1
|
|
RESULT := "No flow control; "
|
|
case REC< 8 > = 2
|
|
RESULT := "DTR flow control; "
|
|
case REC< 8 > = 3
|
|
RESULT := "XON/XOFF flow control, any character restarts; "
|
|
case REC< 8 > = 4
|
|
RESULT := "XON/XOFF flow control, XON only restarts; "
|
|
case 1
|
|
null
|
|
end case
|
|
|
|
if REC< 9 > = 1 then
|
|
RESULT := "Printing enabled; "
|
|
end else
|
|
if REC< 9 > = 2 then
|
|
RESULT := "Printing disabled; "
|
|
end
|
|
end
|
|
|
|
if REC< 10 > = 1 then
|
|
RESULT := "Queuing enabled; "
|
|
end else
|
|
if REC< 10 > = 2 then
|
|
RESULT := "Queuing disabled; "
|
|
end
|
|
end
|
|
|
|
begin case
|
|
case REC< 11 > = 1
|
|
RESULT := "75 baud; "
|
|
case REC< 11 > = 2
|
|
RESULT := "110 baud; "
|
|
case REC< 11 > = 3
|
|
RESULT := "134.5 baud; "
|
|
case REC< 11 > = 4
|
|
RESULT := "150 baud; "
|
|
case REC< 11 > = 5
|
|
RESULT := "300 baud; "
|
|
case REC< 11 > = 6
|
|
RESULT := "600 baud; "
|
|
case REC< 11 > = 7
|
|
RESULT := "1200 baud; "
|
|
case REC< 11 > = 8
|
|
RESULT := "1800 baud; "
|
|
case REC< 11 > = 9
|
|
RESULT := "2400 baud; "
|
|
case REC< 11 > = 10
|
|
RESULT := "4800 baud; "
|
|
case REC< 11 > = 11
|
|
RESULT := "9600 baud; "
|
|
case REC< 11 > = 12
|
|
RESULT := "19,200 baud; "
|
|
case 1
|
|
null
|
|
end case
|
|
|
|
begin case
|
|
case REC< 12 > = 1
|
|
RESULT := "No parity; "
|
|
case REC< 12 > = 2
|
|
RESULT := "Even parity; "
|
|
case REC< 12 > = 3
|
|
RESULT := "Odd parity; "
|
|
case 1
|
|
null
|
|
end case
|
|
|
|
begin case
|
|
case REC< 13 > = 1
|
|
RESULT := "No CR/LF conversion; "
|
|
case REC< 13 > = 2
|
|
RESULT := "Convert LF to CR/LF; "
|
|
case REC< 13 > = 3
|
|
RESULT := "Convert CR to LF; "
|
|
case REC< 13 > = 4
|
|
RESULT := "CR suppressed at top of page; "
|
|
case 1
|
|
null
|
|
end case
|
|
|
|
begin case
|
|
case REC< 14 > = 1
|
|
RESULT := "Tab expansion on; "
|
|
case REC< 14 > = 2
|
|
RESULT := "Tab expansion off; "
|
|
case 1
|
|
null
|
|
end case
|
|
|
|
begin case
|
|
case REC< 15 > = 1
|
|
RESULT := "No formfeeds; "
|
|
case REC< 15 > = 2
|
|
RESULT := "Formfeeds, no delay; "
|
|
case REC< 15 > = 1
|
|
RESULT := "Formfeeds, 2 second delay; "
|
|
case 1
|
|
null
|
|
end case
|
|
|
|
begin case
|
|
case REC< 16 > = 1
|
|
RESULT := "No linefeed delay; "
|
|
case REC< 16 > = 2
|
|
RESULT := ".08 second linefeed delay; "
|
|
case REC< 16 > = 3
|
|
RESULT := ".10 second linefeed delay; "
|
|
case REC< 16 > = 4
|
|
RESULT := ".16 second linefeed delay; "
|
|
case REC< 16 > = 5
|
|
RESULT := ".18 second linefeed delay; "
|
|
case REC< 16 > = 6
|
|
RESULT := ".26 second linefeed delay; "
|
|
case REC< 16 > = 7
|
|
RESULT := "Linefeed delay: emulate teletype 37; "
|
|
case REC< 16 > = 8
|
|
RESULT := "Column + .08 second linefeed delay; "
|
|
case REC< 16 > = 9
|
|
RESULT := "Column + .16 second linefeed delay; "
|
|
case 1
|
|
null
|
|
end case
|
|
|
|
if REC< 17 > then
|
|
RESULT := REC< 17 > : "-bit data word; "
|
|
end
|
|
|
|
if REC< 18 > then
|
|
sv = dcount( REC< 18 >, @VM )
|
|
for i = 1 to sv
|
|
RESULT := REC< 18, i > : "; "
|
|
next i
|
|
end
|
|
|
|
res.length = len( RESULT )
|
|
if res.length then
|
|
RESULT = RESULT[ 1, res.length - 2 ]
|
|
end
|
|
|
|
return
|
|
end
|