142 lines
5.4 KiB
Plaintext
Executable File
142 lines
5.4 KiB
Plaintext
Executable File
******************************************************************************
|
|
*
|
|
* 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/14/98 23801 SAP Change copyrights.
|
|
* 10/01/93 12406 ALC Use system(32) to get uvhome directory.
|
|
* 11/10/92 10549 TMC New file
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
*spooler
|
|
*created by: kk
|
|
*last modified by: rj
|
|
*rev 1.0
|
|
*
|
|
* LA100
|
|
*************************************************
|
|
*PROGRAM TO SET OPTIONS ON THE DEC LETTERPRINTER*
|
|
*BY KEN KASPER *
|
|
*4/25/84 *
|
|
*************************************************
|
|
|
|
uvpath = system(32)
|
|
execute "SH -c '":uvpath:"/runpriv runpriv'", //out. > error, //in. < "id"
|
|
if index(error,"sys2",1) or index(error,"root",1) then
|
|
* we where not able to change group successfully
|
|
print "User is not assigned to sys2 group"
|
|
stop
|
|
end else
|
|
null
|
|
end
|
|
|
|
CPI5 = CHAR(27):CHAR(91):CHAR(53):CHAR(119)
|
|
CPI6 = CHAR(27):CHAR(91):CHAR(54):CHAR(119)
|
|
CPI6.6 = CHAR(27):CHAR(91):CHAR(55):CHAR(119)
|
|
CPI8.25 = CHAR(27):CHAR(91):CHAR(56):CHAR(119)
|
|
CPI10 = CHAR(27):CHAR(91):CHAR(48):CHAR(119)
|
|
CPI12 = CHAR(27):CHAR(91):CHAR(50):CHAR(119)
|
|
CPI13.2 = CHAR(27):CHAR(91):CHAR(51):CHAR(119)
|
|
CPI16.5 = CHAR(27):CHAR(91):CHAR(52):CHAR(119)
|
|
TWOLINES = CHAR(27):CHAR(91):CHAR(52):CHAR(122)
|
|
THREELINES = CHAR(27):CHAR(91):CHAR(53):CHAR(122)
|
|
FOURLINES = CHAR(27):CHAR(91):CHAR(54):CHAR(122)
|
|
SIXLINES = CHAR(27):CHAR(91):CHAR(48):CHAR(122)
|
|
EIGHTLINES = CHAR(27):CHAR(91):CHAR(50):CHAR(122)
|
|
TWELVELINES = CHAR(27):CHAR(91):CHAR(51):CHAR(122)
|
|
FONTPITCHES = CHAR(27):CHAR(91):CHAR(63):CHAR(50):CHAR(57):CHAR(104)
|
|
ALLPITCHES = CHAR(27):CHAR(91):CHAR(63):CHAR(50):CHAR(57):CHAR(108)
|
|
LETTERQUALITY = CHAR(27):CHAR(91):CHAR(50):CHAR(34):CHAR(122)
|
|
DRAFTQUALITY = CHAR(27):CHAR(91):CHAR(49):CHAR(34):CHAR(122)
|
|
PROMPT ''
|
|
PRINT@(-1)
|
|
100 PRINT@(5,3):"Enter 1) Letter Quality or 2) Draft Quality print - ":@(-4):;INPUT QUALITY,2
|
|
IF QUALITY = '' THEN QUALITY = 2
|
|
PRINT@(57,3):QUALITY
|
|
IF QUALITY #1 AND QUALITY #2 THEN GOTO 100
|
|
IF ALPHA(QUALITY) THEN GOTO 100
|
|
200 PRINT @(5,5):"Enter Pitch Select 1) Font Pitch or 2) All Pitches - ":@(-4):;INPUT PITCH,2
|
|
IF PITCH = '' THEN PITCH = 1
|
|
PRINT@(58,5):PITCH
|
|
IF PITCH #1 AND PITCH #2 THEN GOTO 200
|
|
IF ALPHA(PITCH) THEN GOTO 200
|
|
300 PRINT@(5,7):"Enter Characters/Inch (5, 6, 6.6, 8.25, 10, 12, 13.2, 16.5) - ":@(-4):;INPUT CHARS,4
|
|
IF CHARS = '' THEN CHARS = 10
|
|
PRINT@(67,7):CHARS
|
|
IF CHARS #5 AND CHARS #6 AND CHARS #6.6 AND CHARS #8.25 AND CHARS #10 AND CHARS #12 AND CHARS #13.2 AND CHARS #16.5 THEN GOTO 300
|
|
IF ALPHA(CHARS) THEN GOTO 300
|
|
400 PRINT @(5,9):"Enter Lines/Inch (2,3,4,6,8, OR 12) - ":@(-4):;INPUT LINES,2
|
|
IF LINES = '' THEN LINES = 6
|
|
PRINT@(43,9):LINES
|
|
IF LINES #2 AND LINES #3 AND LINES #4 AND LINES #6 AND LINES #8 AND LINES #12 THEN GOTO 400
|
|
IF ALPHA(LINES) THEN GOTO 400
|
|
500 PRINT@(5,11):"Enter Number of Lines per Page - ":@(-4):;INPUT NUM.LINES,3
|
|
IF NUM.LINES = '' THEN NUM.LINES = 66
|
|
PRINT@(38,11):NUM.LINES
|
|
IF NUM.LINES < 1 THEN GOTO 500
|
|
IF ALPHA(NUM.LINES) THEN GOTO 500
|
|
*****************************************
|
|
*SETUP PITCHES
|
|
*****************************************
|
|
PRINTER ON
|
|
IF PITCH = 1 THEN PRINT FONTPITCHES
|
|
IF PITCH = 2 THEN PRINT ALLPITCHES
|
|
PRINTER OFF
|
|
****************************************
|
|
*SETUP PRINT QUALITY
|
|
****************************************
|
|
PRINTER ON
|
|
IF QUALITY = 1 THEN PRINT LETTERQUALITY
|
|
IF QUALITY = 2 THEN PRINT DRAFTQUALITY
|
|
PRINTER OFF
|
|
****************************************
|
|
*SETUP LINES PER INCH
|
|
****************************************
|
|
PRINTER ON
|
|
IF LINES = 2 THEN PRINT TWOLINES
|
|
IF LINES = 3 THEN PRINT THREELINES
|
|
IF LINES = 4 THEN PRINT FOURLINES
|
|
IF LINES = 6 THEN PRINT SIXLINES
|
|
IF LINES = 8 THEN PRINT EIGHTLINES
|
|
IF LINES = 12 THEN PRINT TWELVELINES
|
|
PRINTER OFF
|
|
****************************************
|
|
*SETUP CHARACTERS PER INCH
|
|
****************************************
|
|
PRINTER ON
|
|
IF CHARS = 5 THEN PRINT CPI5
|
|
IF CHARS = 6 THEN PRINT CPI6
|
|
IF CHARS = 6.6 THEN PRINT CPI6.6
|
|
IF CHARS = 8.25 THEN PRINT CPI8.25
|
|
IF CHARS = 10 THEN PRINT CPI10
|
|
IF CHARS = 12 THEN PRINT CPI12
|
|
IF CHARS = 13.2 THEN PRINT CPI13.2
|
|
IF CHARS = 16.5 THEN PRINT CPI16.5
|
|
PRINTER OFF
|
|
****************************************
|
|
*PRINT THE SETUP
|
|
****************************************
|
|
PRINTER ON
|
|
IF PITCH = 1 THEN PITCH = "FONT"
|
|
IF PITCH = 2 THEN PITCH = "ALL"
|
|
IF QUALITY = 1 THEN QUALITY = "LETTER"
|
|
IF QUALITY = 2 THEN QUALITY = "DRAFT"
|
|
PRINT "LINES/INCH - ":LINES
|
|
PRINT "LINES/PAGE - ":NUM.LINES
|
|
PRINT "CHARACTERS/INCH - ":CHARS
|
|
PRINT "QUALITY - ":QUALITY
|
|
PRINT "PITCH SELECT - ":PITCH
|
|
PRINTER OFF
|