.display title "",""
.display subtitle "","^Q"
.display number "^71566a",D,"^7?27l"
.nf
.st; 
.t; 
.lo 2,1
.headers
.require 'sys$sysprg:lno3'
.ps  59, 89,  9,  0,  1
.lm+6
.rm+43
.fg1
.b2
.half spacing 3
.c;^72324_`^3^4INSTALLING PLTPRG^3
.rm400
.skip 1 .test text 2,2
^3     To^7902_`install^71222_`PLTPRG^71680_`on^71852_`your^72113_`system,^72499_`you^72719_`will^72941_`need^73205_`to^73348_`modify^73705_`the^73898_`following^74359_`files:^74636_`PLTPRG.COM,
^3PLTPRG.DVI,^71239_`PLTPRG.DVC,^71967_`PLTPRG.PTR,^72671_`and^72872_`PLTBATCH.COM.^73818_`The^74033_`items^74305_`to^74431_`be^74578_`modified^74993_`in^75126_`these
^3files are described below.
.skip 1 .test text 2,2
^3     The^7940_`file^71130_`PLTPRG.COM^71852_`has^72048_`device^72365_`assignments^72931_`that^73140_`have^73387_`to^73519_`be^73672_`tailored^74045_`to^74177_`your^74427_`system.^74857_`The^75078_`device
^3assignments^71129_`include:^71552_`the^71758_`location^72167_`of^72326_`the^72532_`PLTPRG^73001_`files,^73290_`the^73495_`location^73904_`of^74063_`the^74268_`files^74520_`SCSFIL.DAT^75189_`and
^3LAMETA.EXE^71256_`(the^71465_`Multiware^71949_`character^72386_`font^72597_`file^72777_`and^72975_`the^73148_`Multiware^73632_`LA50^73918_`raster^74205_`conversion^74710_`program),^75189_`and
^3assigning the system printers to logical names (printers used in printing out the PLTPRG generated tables).
.skip 1 .test text 2,2
^3     The^7927_`file^71104_`PLTPRG.DVI^71760_`contains^72150_`a^72238_`list^72404_`of^72528_`the^72697_`devices^73042_`to^73160_`plot^73358_`to,^73513_`and^73706_`flags^73945_`indicating^74402_`whether^74782_`these^75037_`devices
^3are^7709_`to^7822_`be^7958_`plotted^71273_`to^71387_`the^71551_`terminal,^71977_`or^72105_`as^72229_`batch^72491_`jobs.^72775_`PLTPRG.DVC^73455_`contains^73840_`the^74004_`information^74536_`on^74679_`the^74844_`plot^75038_`devices
^3given^7800_`in^7919_`the^71081_`file^71251_`PLTPRG.DVI.^71971_`This^72196_`includes^72581_`the^72743_`plotting^73095_`area,^73344_`device^73640_`emulation,^74128_`necessary^74571_`escape^74879_`sequences,
^3and^7739_`where^71044_`to^71168_`send^71408_`the^71584_`plot^71788_`to.^71996_`It^72109_`should^72438_`be^72584_`noted^72860_`that^73062_`for^73232_`most^73480_`non-terminal^74077_`devices,^74464_`the^74639_`device^74948_`or^75088_`queue
^3(terminal^7967_`line^71165_`name^71432_`for^71593_`non-queued^72131_`devices,^72509_`and^72699_`queue^72990_`name^73257_`for^73418_`queued^73760_`devices)^74138_`to^74254_`send^74486_`it^74580_`to^74697_`must^74940_`be^75078_`given.
^3In^7675_`both^7902_`PLTPRG.DVI^71558_`and^71752_`PLTPRG.DVC,^72473_`devices^72817_`that^73013_`will^73211_`not^73385_`be^73525_`used^73759_`can^73948_`be^74088_`"commented^74665_`out"^74892_`by^75035_`placing
^3exclamation^71095_`marks^71408_`"!"^71604_`in^71742_`column^72113_`1^72220_`of^72355_`the^72536_`lines.^72880_`In^73027_`most^73280_`cases,^73589_`you^73796_`will^74006_`have^74252_`to^74382_`just^74587_`comment^75027_`out,^75249_`or
^3uncomment^71077_`out,^71286_`the^71455_`various^71803_`plot^72000_`devices,^72379_`and^72571_`give^72783_`the^72951_`correct^73287_`terminal^73681_`line^73880_`or^74013_`queue^74306_`name^74575_`for^74738_`that^74932_`device^75234_`on
^3your system.  The data in both files are described at length in each file.
.skip 1 .test text 2,2
^3     The^7927_`file^71104_`PLTPRG.PTR^71765_`contains^72155_`information^72691_`describing^73172_`the^73342_`system^73667_`printers^74039_`to^74157_`be^74299_`used^74533_`in^74660_`printing^75038_`out^75213_`the
^3tables^7819_`created^71158_`using^71427_`PLTPRG.^71932_`This^72161_`data^72368_`includes^72757_`a^72842_`prompt^73181_`describing^73659_`each^73890_`printer,^74252_`the^74418_`number^74787_`of^74908_`characters
^3per line, and the superscript/subscript escape sequences. 
.skip 1 .test text 2,2
^3     The^7923_`file^71095_`PLTBATCH.COM^71946_`submits^72310_`a^72393_`batch^72656_`job.^72899_`If^73006_`a^73089_`batch^73353_`queue^73642_`other^73898_`than^74117_`the^74283_`default^74603_`batch^74866_`queue^75155_`is^75263_`to
^3be used, the submit command must be modified accordingly.
.skip 1 .test text 2,2
^3     Below are listings of the files described above.
.rm
.rm+43
.half spacing 2
.b4
.lm+5
.c;^72373_`^3^4^~FILE PLTPRG.COM^1^3
.b2
^1_$!**************************************************************^3
^1_$!*        Main command file to run PLTPRG.  This file         *^3
^1_$!*      is used to make various device assignments, etc       *^3
^1_$!**************************************************************^3
^1_$!^3
^1_$!      Assign the directory containing PLTPRG to DP:^3
^1_$!^3
^1_$ Assign/Nolog _$Disk1:[Prog.Pltprg] Dp:^3
^1_$! ^3
^1_$!      Assign the directory containing SCSFIL.DAF to GL:^3
^1_$!^3
^1_$ Assign/Nolog _$Disk1:[Graphics] GL:^3
^1_$!^3
^1_$!       Print device assignments:^3
^1_$!       For print devices, assign them to Prtdev1 - Prtdev9^3
^1_$!       Assign queued devices using their queue, and not the device name^3
^1_$!^3
^1_$ Assign/Nolog Sys_$Laser Prtdev1       ^3
^1_$! Assign/Nolog Txa?: Prtdev2^3
^1_$!^3
^1_$ Assign/Nolog Dp:PLTPRG.VT2 CRV:^3
^1_$ If P1 .NES. "NON" .AND. P1 .NES. "411" .AND. P1 .NES. "HDS" Then Goto Next^3
^1_$ Assign/Nolog Dp:PLTPRG.'P1' CRV:^3
^1_$ Next: ^3
^1_$!      ^3
^1_$ Top:^3
^1_$    Weare=="PLTPRG"^3
^1_$    Define/User_Mode/Nolog Sys_$Input Sys_$Command^3
^1_$    Run Dp:Pltprg^3
^1_$!                   Reset Ctrl-C,Ctrl-Y; they were turned off in program^3
^1_$    Set control=y ^3
^1_$ If Weare .NES. "PLTPRG" Then Goto Top^3
^1_$!^3
^1_$!      Area for deassignment of assignments made above^3
^1_$!^3
^1_$ Deassign GL:^3
^1_$ Deassign Dp:^3
^1_$ Deassign Crv:^3
^1_$ Deassign Prtdev1^3
^1_$! Deassign Prtdev2^3
^1_$ Delete/Symbol/Global Weare^3
^1_$!^3
^1_$!      Purge old version numbers, and rename the files^3
^1_$!      to the lowest version number^3
^1_$!^3
^1_$ Flag = F_$Search("Pltprg.*")^3
^1_$ If Flag .EQS. "" Then Exit^3
^1_$ Purge Pltprg.*^3
^1_$ Rename Pltprg.* Pltprg.*^3
^1_$ Exit^3
.b4
.c;^72413_`^3^4FILE PLTPRG.DVI^1^3
.b2
^1!^3
^1!    File containing a list of devices to plot on.  These must match in order^3
^1!    with PLTPRG.DVC.  Devices prior to the "_$" in column 1 are for plots ^3
^1!    on normal paper; devices after the "_$" are for plots on graph paper.^3
^1!    The first line is the device prompt for the user; the second line^3
^1!    describes how to make the plot (0 to terminal; 1 to terminal but not to^3
^1!    the screen; 2 to compute it as a batch process).^3
^1!^3
^1VT 240 Terminal^3
^1  0        Not batch^3
^1!HP Plotter^3
^1!  2        Batch^3
^1Terminal w/ Tektronix 4010/4014 emulation^3
^1  0        Not batch^3
^1Tektronix 4105/7/9 ^3
^1  0        Not batch^3
^1LA 50 Printer (connected to the terminal)^3
^1  1        Not batch, not on screen^3
^1LN03 Laser Printer^3
^1  2        Batch^3
^1!HP Plotter (Connected to the terminal printer port)^3
^1! 1        Not Batch, Not on screen^3
^1_$^3
^1!HP Plotter w/ graph paper^3
^1!  2        Batch^3
.b4
.c;^72392_`^1^4FILE PLTPRG.DVC^1^3
.b2
^1!^3
^1!       File containing the plotting device information for^3
^1!       Pltprg/Plotfl.  Definitions of the data are in the bottom of the file^3
^1!^3
^1!   _#1 VT 240 terminal^3
^1!^3
^1VT12^3
^1TT:^3
^111.0 8.5 1 0 0^3
^10 0 0 0 0^3
^1!^3
^1!   _#2 HP Plotter^3
^1!^3
^1!7550^3
^1!Filename^3
^1!9.97 7.68 0 1 0^3
^1!0 1 1 0 1^3
^1! PG;RO 0;IP;SC 0,9886 250,6891;^3
^1! PG;RO 90;IP;SC 685,9916 0,7113^3
^1!@DP:PLOTQ.COM TXA?:^3
^1!^3
^1!   _#3 Tektronix 4010/4014 emulator^3
^1!^3
^14014^3
^1TT:^3
^110.23 7.75 1 0 0^3
^11 0 0 1 0^3
^1 <ESC>[H<ESC>[J<ESC>[?38h^3
^1 _^Y<ESC>[3/v<ESC>[?38l^3
^1!^3
^1!   _#4 Tektronix 4105/7/9^3
^1!^3
^14105^3
^1TT:^3
^19.2 8.6 1 0 0^3
^11 0 0 1 0^3
^1 <ESC>[H<ESC>[J_^P<ESC>%!0^3
^1 <ESC>%!0<ESC><FF>_^P<ESC>%!2^3
^1!¢^3
^1!   _#5 LA 50 printer^3
^1!^3
^1META^3
^1Meta50.dat^3
^111.0 8.5 0 0 0^3
^10 0 0 0 1^3
^1@DP:PLTMET.COM^3
^1! ^3
^1!   _#6 Dec LN03 laser printer using tektronix 4014 emulation^3
^1!^3
^14014^3
^1Filename^3
^110.23 7.75 0 2 0 ^3
^11 0 0 1 1^3
^1 <ESC>[?38h^3
^1 <ESC>[?38l^3
^1@DP:PLOTQS.COM Sys$Laser^3
^1! Use above (<ESC>[?38l) if on a print queue; otherwise use <ESC>[!p^3
^1! (It will eject the paper then)^3
^1!^3
^1!   _#7 HP Plotter attached to the printer port. ^3
^1!^3
^1!7550^3
^1!FILENAME^3
^1!9.97 7.68 2 1 0^3
^1!1 1 1 1 0^3
^1! <ESC>[5i^3
^1! PG;RO 0;IP;SC 0,9886 250,6891;^3
^1! PG;RO 90;IP;SC 685,9916 0,7113^3
^1! <ESC>[4i ^3
^1!^3
^1!   _#8 HP Plotter with gridded paper^3
^1!^3
^1!7475^3
^1!Filename^3
^1!9.97 7.68 0 1 1 5.56 4.000 4.20 5.56^3
^1!0 1 1 0 1^3
^1! PG;RO 0;IP;SC 0,9886 250,6891;^3
^1! PG;RO 90;IP;SC 685,9916 0,7113;^3
^1!@DP:PLOTQ.COM TXA?:^3
^1!^3
^1! ************  DEFINITIONS **************************^3
^1!^3
^1! First line:^3
^1! ^3
^1!    The name of the device emulation that will be used (Multiware definition)^3
^1!^3
^1! Second Line:^3
^1!^3
^1!    The name of where to send the output.  If it doesn't go to^3
^1!    the terminal screen, it will have to go to a temporary file.^3
^1!^3
^1!        Use TT: for the terminal.  ^3
^1!        Use Meta50.dat for metafile types.^3
^1!        Otherwise, use the word "FILENAME"^3
^1!^3
^1! Third Line:^3
^1!^3
^1!   1           X axis length (inches)^3
^1!   2           Y axis length (inches)^3
^1!   3           Terminal flag (1 if a terminal, 0 if not)^3
^1!   4           Rotate flag (0 if no rotation; 1 if rotation done by the ^3
^1!                  output device, and is done on a "best fit" basis; 2 if ^3
^1!                  rotation to be done by the program, and is done on a ^3
^1!                  "best fit" basis;3 if rotation manditory, and done by the^3
^1!                  output device; and 4 if rotation is necessary, and done ^3
^1!                  by the program^3
^1!   5           Gridded paper flag (1 if paper has a grid on it, 0 if not)^3
^1!^3
^1!            And, if gridded paper, the following: ^3
^1!   ^3
^1!   6           The distance from the left edge of the paper to the center ^3
^1!                 of the plotting region, in inches^3
^1!   7           The distance from the bottom edge of the paper to the center ^3
^1!                 of the plotting region, in inches^3
^1!   8           The distance from the right edge of the paper (when the paper^3
^1!                 is rotated 90 degrees) to the center of the plotting region,^3
^1!                 in inches^3
^1!   9           The distance from the bottom edge of the paper (when the paper^3
^1!                 is rotated 90 degrees) to the center of the plotting region,^3
^1!                 in inches^3
^1!^3
^1! Forth line:^3
^1!^3
^1!   1    Number of lines to read to set up device^3
^1!   2    Number of lines to read to set the scaling, etc, if not rotated^3
^1!   3    Number of lines to read to set up the scaling if it is rotated ^3
^1!   4    Number of lines to read to return the device to its initial state ^3
^1!   5    Flag to indicate the command file to run when finished making the^3
^1!          plot. (1 indicates a command file; 0 indicates none)^3
^1!^3
^1! The additional lines depend on the number of lines, etc indicated in^3
^1!   the forth line. The first group of lines correspond to line 4 item _#1;^3
^1!   the second group, line 4 item _#2, etc.  The last line is the name of the ^3
^1!   command file to run (if Line 4 item _#5 is not 0).  A command file is ^3
^1!   necessary if the plots are not done directly to the terminal, or if the ^3
^1!   output has to be converted into raster format for a printer attached to ^3
^1!   the terminal.  ^3
^1! There are three command files.  The first is DP:PLOTQ.COM.  This is the^3
^1!   command file to send a plot to a device that is not on a queue. You ^3
^1!   must provide the name of the terminal line that the device is connected ^3
^1!   to as an arguement to this command file.  The second command file is ^3
^1!   DP:PLOTQS.COM.  This is the command file to send a plot to a queued ^3
^1!   device.  You must provide the name of the queue that the device is ^3
^1!   connected to as an arguement to this command file.  The third command ^3
^1!   file is DP:PLTMET.COM.  This command file is used to turn the metafile^3
^1!   output into rasterized data, and sends the data to a printer attached^3
^1!   to the terminal.^3
^1!^3
^1! Note: You can put comments in by having a ! in column 1.  Also, these ^3
^1!   devices must be in the same order as the devices listed in the file ^3
^1!   PLTPRG.DVI.^3
^1!^3
.b4
.c;^72403_`^1^4FILE PLTPRG.PTR^1^3
.b2
^11^3
^1LN03 Laser Printer^3
^1 3 1 80 96 132^3
^1 <ESC>[1w^3
^1 <ESC>[2w^3
^1 <ESC>[4w^3
^1 <ESC>[1w^3
^1<ESC>L^3
^1<ESC>K^3
^1!^3
^1!       Setup for PLTPRG system printers^3
^1!^3
^1!^3
^1!       Definitions for the above lines^3
^1!^3
^1!   Line 1 is the number of print devices^3
^1!^3
^1!   Lines 2 - M+1 are the names of the M print devices (40 characters max)^3
^1!^3
^1!   Line K is the number of different horizontal spaces (N),  Spool flag (0 for ^3
^1!     nonspooled, and 1 for spooled device), the number of ^3
^1!     horizontal spaces, and the (N) horizontal spaces available.^3
^1!^3
^1!   Lines K+1 to K+N+1 are the escape sequences to get the non-default spaces,^3
^1!     and line N is the sequence to return the printer to the default spaces.^3
^1!^3
^1!   Line K+N+2 is the escape sequence for superscripts; K+N+3 to return from ^3
^1!     the superscripts.^3
^1!^3
.b4
.c;^72290_`^3^4FILE PLTBATCH.COM^1^3
.b2
^1_$!^3
^1_$!         Command file to start a batch job^3
^1_$!^3
^1_$ Define/User_Mode/Nolog Sys_$Input Sys_$Command^3
^1_$!^3
^1_$!         Send the locations of the data file, and the ^3
^1_$!         PLTPRG command/execution files to the batch job^3
^1_$!^3
^1_$ Defdir = F_$Parse("A.A",,,"DEVICE") + F_$Parse("A.A",,,"DIRECTORY")^3
^1_$ Devprg = F_$Parse("DP:",,,"DEVICE") + F_$Parse("DP:",,,"DIRECTORY")^3
^1_$ Devgl  = F_$Parse("GL:",,,"DEVICE") + F_$Parse("GL:",,,"DIRECTORY")^3
^1_$!^3
^1_$ Submit Dp:Plotflbatch/Nolog/Parameters=('Defdir','Devprg','P1','Devgl')^3
^1_$! Submit Dp:Plotflbatch/Keep/Parameters=('Defdir','Devprg','P1','Devgl')^3
^1_$ Exit^3